8 pages matching reduced data tape in this book
Results 1-3 of 8
What people are saying - Write a review
We haven't found any reviews in the usual places.
100 CONTINUE 2048-channel scans 360-SDRS program ABSCISSA ADD command ALPHA ALPHA,INP ASCII B1I GO B1I READ BFLUX command command card CONTINUE GO CONTINUE READ CONTINUE RETURN END CONTINUE WRITE data tape name DECtape DIMENSION disk as scans disk scan number DOUBLE PRECISION EBCDIC EQ.O Feige 34 file number FLOAT IPT flux calibration FORTRAN Hayes point IBM tape IBM-360 SDRS program IEF285I VOL INP(l IOUT KBUF Koski KTAB left slit MESSAGE PLEASE MOUNT NN.LE.O NN=INP(N NORH 2 SCRUNCH NORM NORN option quartz raw data scans raw data tape READ 3*KSP(M reduced data tape response curve RETURN END SUBROUTINE right slit RMIN RSCV RSCV(I scan in slit scan number INP(M scratch SCRUNCH 2 STORE scrunched scans SDPS SFLUX slit buffer number slit code SPNT(N standard star scan stored on disk SUBTRACT SKY system B flux tables unit number WRITE 3'KSP(M