;                      GS_GETSP
;+
;  Routine to restore the spectrum array created by the GS_ routines from
;  storage in a file. The file must have been written by GS_PUTSP (qv)
;
;  The file name to be read is prompted for
;
;  Use:
;       IDL>  .run gs_getsp
;
;
;   CDP    Feb  92
;
;-
gsp = fltarr(768)
sp_file = ' '
read,'Give file name: > ',sp_file

get_lun,lun1
openr,lun1,sp_file

readu,lun1,gsp

close,lun1

free_lun,lun1

end