;+
;
; NAME: 
;	UVSPRD_LINKIMAGE_PRO
;
; PURPOSE:
;	Sets up the LINKIMAGE interface for UVSPRD
;
; CATEGORY:
;	SMM, UVSP
;
; CALLING SEQUENCE:
;       UVSPRD_LINKIMAGE_PRO
;
; CALLS:
;	none
;
; INPUTS:
;       none explicit, only through commons;
;
; OPTIONAL INPUTS:
;	none
;
; OUTPUTS:
;       none explicit, only through commons;
;
; OPTIONAL OUTPUTS:
;	none
;
; KEYWORDS:
;	none
; COMMON BLOCKS:
;	none
;
; SIDE EFFECTS:
;	none
;
; RESTRICTIONS:
;	none
;
; PROCEDURE:
;	none
;
; MODIFICATION HISTORY:
;       Changed UVSPRD_LINKIMAGE from an include to a procedure, ras, 7/96
;-
pro uvsprd_linkimage_pro


  IF !VERSION.OS EQ 'vms' THEN BEGIN					
   IDL_VERS = strmid(!version.release, 0, 1)				
                                                                        
   Directory = 'SDAC_DIR:[SMM.UVSP]'					
   Filename  = 'UVSPRD_'+!VERSION.ARCH 				

   LINKIMAGE, 'UVSPRD', Filename, 1, 'uvsprd',				$
      DEFAULT = Directory+'.EXE', MAX_ARGS = 2, MIN_ARGS = 1		

;   DELVAR, Directory, Filename						

 ENDIF

end