The IBM-360 Scanner Data Reduction System |
From inside the book
Results 1-2 of 2
Page 23
... SPNT ( 29 ) , X SFLUX ( 29,11 ) DIMENSION BF34 ( 29 ) , BBD33 ( 29 ) , BHZ 15 ( 29 ) , BF 15 ( 29 ) , BBD 3 ( 29 ) , BF 25 ( 29 ) , X BF56 ( 29 ) , BH102 ( 29 ) , BBD25 ( 29 ) , BBD40 ( 29 ) , BBD 28 ( 29 ) DOUBLE PRECISION COF ( 6,4 ) ...
... SPNT ( 29 ) , X SFLUX ( 29,11 ) DIMENSION BF34 ( 29 ) , BBD33 ( 29 ) , BHZ 15 ( 29 ) , BF 15 ( 29 ) , BBD 3 ( 29 ) , BF 25 ( 29 ) , X BF56 ( 29 ) , BH102 ( 29 ) , BBD25 ( 29 ) , BBD40 ( 29 ) , BBD 28 ( 29 ) DOUBLE PRECISION COF ( 6,4 ) ...
Page 32
... SPNT ( NNN ) , SPNT ( N ) 6960 FORMAT ( 10X , HAYES WAVELENGTHS ' , F8.0,2x , F8.0 ) WRITE ( 6,6970 ) IPT ( JK ) , IPT ( L ) 6970 FORMAT ( 10X , ' HAYES CHANNELS ' , 2110 ) WRITE ( 6,6950 ) B21 ( 2115 ) , B2I ( 2114 ) 6950 FORMAT ( 10X ...
... SPNT ( NNN ) , SPNT ( N ) 6960 FORMAT ( 10X , HAYES WAVELENGTHS ' , F8.0,2x , F8.0 ) WRITE ( 6,6970 ) IPT ( JK ) , IPT ( L ) 6970 FORMAT ( 10X , ' HAYES CHANNELS ' , 2110 ) WRITE ( 6,6950 ) B21 ( 2115 ) , B2I ( 2114 ) 6950 FORMAT ( 10X ...
Common terms and phrases
2048-channel scans ADD command ALLOCATED ALPHA ALPHA,INP ASCII B+XM*A B1I CONTINUE GO C+XM Column 16 command card CONTINUE RETURN END CONTINUE WRITE KLP data tape name DD LABEL DECtape DIMENSION disk file disk scan number DISP DOUBLE PRECISION EBCDIC Feige 25 file number FLOAT IPT flux calibration FORMAT 10X FORMAT 1H1 FORTRAN Hayes point IBM tape IBM-360 SDRS program IBUF IFIX IOUT IPT JK KBUF KOUT KSP NN KTAB MT KUNIT left slit LETTER ID2 line printer MESSAGE MESSAGE MOUNT TAPE NN=INP NORDSIECK NORM option quartz raw data scans raw data tape READ 3 KSP reduced data tape response curve RETURN END SUBROUTINE right slit RSCV scan number INP scratch scrunched scans SFLUX slit buffer number SPNT standard star scan stored on disk SUMPNT SYSTEM B FLUX tables unit number UNLABELLED wavelength WRITE 3 KSP WRITE RING X1=FLOAT IPT XM FLOAT