PRO Joint_Sample2
; Define variables for the shared object and symbol parameters
; for LINKNLOAD.
      object = 'joint_sample2'
      object = '.\' + object + '.dll'
      symbol = 'cwavec_from_linknload'


; CREATE MAIN LEVEL VARIABLE --- Create a main level variable 
      pvdata = FLTARR(2)+10
      PRINT, 'Original value for PVDATA is:', pvdata


; CALL C FUNCTION --- Use LINKNLOAD to call the C function
      result = LINKNLOAD (object, symbol, /S_Value)
      Info,result


; PRINT RETURN VALUE --- Print return value from call to
      PRINT, 'New value for PVDATA is:', pvdata

END