THIS XRAY README FILE WILL CONTAIN CERTAIN MESSAGES CONCERNING THE DATA FROM THE APOLLO 15 AND 16 XRFS EXPERIMENT ========================================================================== EACH LUNAR DATA SET CONSISTS OF A CLEANED SET OF XRAY SPECTRA FOR AN 8 SECOND PERIOD AND THE ASSOCIATED 1 GET, (GROUND ELAPSED TIME IN SEC) 2 ORBIT NUMBER, 3 ALTITUDE IN KILOMETERS, 4 SELENOGRAPHIC LONGITUDE AND 5 SELENOGRAPHIC LATITUDE, AND THE SPACECRAFT LOOK ANGLES FOR 6 ROLL, 7 PITCH, AND 8 YAW. BOTH THE APOLLO 15 AND 16 LUNAR DATA TAPES HAVE THE SAME FORMAT AND TAPE PARAMETERS. THEY ARE NON LABLED 9 TRACK 1600 BPI TAPES WITH RECFM= VBS, LRECL=900, DENSITY=3, AND BLKSIZE=27004. EACH TAPE HAS TWO FILES. 1 FILE 1 CONTAINS THE NORMAL XRAY DATA (I.E. .75 TO 3.0 KEV) AND ASSOCIATED CALIBRATION DATA. 2 FILE 2 CONTAINS THE ATTENUATION DATA (I.E. DETECTOR 1 FROM 1.5 TO 6.0 KEV ONLY) AND ITS CALIBRATION DATA. TAPE MJB001 CONTAINS THE APOLLO 15 DATA. 1 FILE 1 CONTAINS 26843 DATA SETS BETWEEN GET 85 HR. 10 MIN. AND 220 HR. 49 MIN. 2 FILE 2 CONTAINS 7086 DATA SETS BETWEEN 90 HR. 35 MIN. AND 215 HR. 7 MIN. TAPE MJB003 CONTAINS THE APOLLO 16 DATA. 1 FILE 1 CONTAINS 24577 DATA SETS FROM 80 HR. 4 MIN. TO 191 HR. 56 MIN. 2 FILE 2 CONTAINS 6965 DATA SETS FROM 85 HR. 51 MIN. TO 193 HR. 31 MIN. ======================================================================== THE FOLLOWING IS A SAMPLE INPUT RUN FOR THE XRAY PROGRAM WITH THE FIELDS EXPLAINED. 1 THE FIRST DATA CARD FORMAT IS (F6.0,3(1X,I1),4F6.0,4F5.0) AND 2 THE SECOND DATA CARD FORMAT IS (2F8.0). THE NEXT LINE IS A SAMPLE DATA CARD WITH THE DIFFERENT FIELDS LISTED UNDERNEATH. SEE XRY FOR COORDINATE SPECIFICATIONS. 24.0 1 7R6+180.0-180.0 +30.0 -30.0 201. 115. 147. 24. 1 2 3 4 5 6 7 8 9 10 11 12 400000. 500000. 13 14 THE FIELDS ARE DEFINED AS FOLLOWS: (1) IS THE ACCUMULATION TIME FOR SPECTRA IN SECONDS (I.E. N*8.0) (2) IS THE BEGINNING CHANNEL TO BE USED IN THE SUMMATIONS (3) IS THE LAST CHANNEL TO BE USED IN THE SUMMATIONS (4) DEFINES CORRECTIONS FOR ROLL, PITCH, AND YAW: =0 NO CORRECTION =1 CORRECTION WILL BE PERFORMED, =8 RATIOS WILL BE OUTPUT TO UNIT 8 AND CORRECTIONS WILL BE MADE. (5) IS THE EASTERN LONGITUDE LIMIT. (6) IS THE WESTERN LONG. LIMIT (7) IS THE NORTHERN LATITUDE LIMIT. (8) IS THE SOUTHERN LAT. LIMIT (9) IS THE TOTAL BACKGROUND DET. 1 FOR CHANNELS 1 TO 7. THE BACKGROUNDS DIFFER FOR APOLLO 15 AND 16 AND WERE CALCULATED FROM THE DARKSIDE AVERAGES. THE BACKGROUNDS LISTED ARE FOR THE APOLLO 15 MISSION. THE BACKGROUNDS FOR THE APOLLO 16 MISSION ARE RESPECTIVELY 820. 420. 335. 64. THESE MUST REPLACE 9 THROUGH 12 WHEN RUNNING APOLLO 16 DATA. BACKGROUNDS FOR OTHER GROUPS OF CHANNELS MUST BE CALCULATED SEPARATELY. (10) IS THE TOTAL BACKGROUND DET. 2 FOR CHAN 1 TO 7 (11) IS THE TOTAL BACKGROUND DET. 3 FOR CHAN 1 TO 7 (12) IS THE TIME OF COUNTING USED FOR ITEMS 9 THROUGH 11 (13) IS THE BEGINNING GET TIME IN SEC. FOR EACH PASS (14) IS THE END GET TIME IN SEC. FOR EACH PASS NOTE: ITEMS 13 AND 14 OVERRIDE THE DELTA LONG/LAT ======================================================================== THE PROGRAMS REQUIRED TO CONVERT THE RAW XRAY DATA FROM THE DATA TAPE INTO RATIOS ARE: (1) MAIN THIS READS THE INPUT PARAMETERS AND CALLS ALL OF THE SUBROUTINES REQUIRED TO RUN. (2) XRY THIS SUBROUTINE READS THE RAW DATA FROM THE INPUT TAPE AND ACCUMULATES THE DATA INTO SPECTRA. IT CALLS SUBROUTINE XINTGN. (3)XINTGN THIS SUBROUTINE INTERPOLATES THE G AND N DATA WHICH WAS READ BY XRY AND CORRECTS IT TO THE PROPER GET. THIS PROGRAM CALLS SUBROUTINE SPLINE. (4)SPLINE THIS SUBROUTINE DEVELOPS A SMOOTH CURVE TO INTERPO- LATE BETWEEN POINTS. (5)NEWCOR THIS SUBROUTINE CORRECTS THE LATITUDE AND LONGITUDE FOR ROLL, PITCH, AND YAW. (6)ELRATE THIS SUBROUTINE (CALLED FROM MAIN) PRODUCES THE ELEMENTAL RATIOS BY SUBTRACTING THE BACKGROUNDS AND CALLING SUBROUTINE FF. (7) FF THIS SUBROUTINE CONTAINS THE FILTER FACTORS, BUILDS THE LEAST SQUARE MATRIX, AND CALLS THE IBM INVERSION SUBROUTINE. (8)SUMRY THIS SUBROUTINE CALLED FROM THE MAIN PROGRAM OUTPUTS 1)GET OF SPECTRA ACCUMULATION AS HOURS HR(1,I), MINUTES HR(2,I), AND SECONDS HR(3,I), 2)RATIOS AND THEIR ERRORS FOR EACH SPECTRUM RAT(J,I) AND ERR(J,I) WHERE J=1(AL/SI),2(MG/SI),3(AL/MG), 3)LONGITUDE AND LATITUDE ANS(I,3) AND ANS(I,4), 4)DATA LINE NUMBER IN EACH RUN OF UP TO 500(OUT(I), 5)DATA QUALITY PARAMETER(NQUAL), AND 6)NUMBER OF 8 SECOND ACCUMULATION INTERVALS IN EACH SPECTRUM NC(I). NOTES: (A) FOR THE DEFINITION OF THE POINTED FOV AS A FUNCTION OF THE PITCH, ROLL AND YAW DEVIATION FROM THE NADIR SUBSATELLITE POINT SEE THE SUBROUTINE NEWCOR. (B) WITH REGARD TO DEFINITION OF DARKSIDE DATA FOR BACKGROUND SUBTRACTION AS A FUNCTION OF GROUND ELAPSED TIME (GET) SEE ADDITIONAL SUBROUTINE BKSIDE. ======================================================================= THE SEGMENTED CODE CAN BE PUT TOGETHER BY THIS SCHEME: //TERLSXXX JOB (TC0251188G,T,MA0001,001001),671,MSGLEVEL=1 671-51 //STEP1 EXEC FORTRANH,PARM='LIST,ID,MAP' //SOURCE.SYSIN DD * =M9SMS.XRAYMAIN =M9SMS.XRYTP =M9SMS.XINTGN =M9SMS.SPLINE =TERLS.NEWCOORD =M9SMS.XRAYSUB1 =M9SMS.XRAYSUB2 =M9SMS.SUMMARY // EXEC LINKGO,REGION.GO=300K 00000050 //GO.FT09F001 DD UNIT=2400-9,LABEL=(01,BLP,,IN),DISP=OLD, 00000100 // VOL=SER=MJB001,DCB=(RECFM=VBS,LRECL=900,BLKSIZE=27004) 00000200 //GO.FT08F001 DD SYSOUT=R,DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200) 00000100 //GO.SYSUDUMP DD SYSOUT=D,SPACE=(CYL,(5,2)),DCB=*.FT06F001 00000200 //GO.DATA5 DD * 00000300 8.0 1 7R1+180.0-180.0 +30.0 -30.0 201. 115. 147. 24. 00000500 400000. 450000. 00000600 ======================================================================= THE FOLLOWING IS DOCUMENTATION FROM WITHIN THE SUBROUTINE XRAYTP: SUBROUTINE XRY(IEOF,LONG,LAT) 00000100 C THIS SUBROUTINE IS USED TO READ THE XRAY AND EPHEMERIS DATA FROM 00000200 C THE APOLLO 15 AND 16 XRAY TAPES,500 DATA POINTS AT A TIME,EACH 00000300 C COUNTED FOR LESS THAN 64 SECONDS. DATA CHECKED TO BE WITHIN 00000400 C TIME AND GEOGRAPHICAL LIMITS. COUNTS OF CHANNELS 1-8 STORED TO00000500 C GIVE TOTAL ACCUMULATED SPECTRUM FOR EACH DETECTOR OF EACH DATUM00000600 C G AND N VALUES ARE INTERPOLATED BY CALLING THE SUBROUTINE 00000700 C XINTGN,WHICH CALLS CURVE-FITTING SUBROUTINE SPLINE. 00000800 C IEOF IS A FLAG WHICH INDICATES WHY A RETURN WAS MADE TO THE 00000900 C CALLING PROGRAM. 00001000 C IEOF=-1 SIGNIFIES THAT THE SUBROUTINE HAS BEEN ENTERED FOR THE 00001100 C FIRST TIME. 00001200 C IEOF=1 SIGNIFIES THAT 500 XRAY SPECTRA HAVE BEEN READ. 00001300 C IEOF=2 SIGNIFIES THAT THE LONG. AND LAT. LIMITS WERE FULFILLED. 00001400 C IEOF=3 INDICATES THAT THE UPPER TIME LIMIT HAS BEEN EXCEEDED. 00001500 C IEOF=4 INDICATES THAT AN EOF HAS BEEN ENCOUNTERED WHILE READING 00001600 C THE INPUT DATA TAPE. 00001700 C LONG(1) IS THE EASTERN LONGITUDE FOR THE DATA BEING READ. 00001800 C LONG(2) IS THE WESTERN LONGITUDE LIMIT. 00001900 C LAT(1) IS THE NORTHERN LATITUDE LIMIT. 00002000 C LAT(2) IS THE SOUTHERN LATITUDE LIMIT. 00002100 C NOTE: LAT(1)>LAT(2) AND LONG(1)>LONG(2) MUST ALWAYS BE FULFILLED. 00002200 C CARTESIAN COORDINATES ARE USED. 00002300 COMMON/INPDAT/NFC,NCH,ACCTIM,IOUT,GETS(2) 00002400 C LABELLED COMMON BLOCK/INPDAT/ IS DEFINED AS FOLLOWS: 00002500 C 'NFC' AND 'NCH' ARE RESPECTIVELY THE NUMBER OF THE LOWEST AND 00002600 C HIGHEST CHANNELS TO BE USED FOR SUMMING. 00002700 C 'ACCTIM' IS THE TOTAL AMOUNT OF ACCUMULATION TIME AND IS 00002800 C ALWAYS SOME INTEGER MULTIPLE OF 8 SECONDS. 00002900 C IOUT HAS NO MEANING IN THIS SUBROUTINE. 00003000 C 'GETS' IS GROUND ELAPSED TIME IN SECONDS 00003100 COMMON/INFO/ANS(500,8),SPECT(500,4,10),NFLAG(500),NC(500),NSPEC 00003200 C LABELLED COMMON BLOCK/INFO/ IS DEFINED AS FOLLOWS: 00003300 C ANS(I,1) IS THE GET TIME IN SECONDS. 00003400 C ANS(I,2) IS THE ORBIT NUMBER. 00003500 C ANS(I,3) IS THE SELENOGRAPHIC LATITUDE IN DEGREES. 00003600 C ANS(I,4) IS THE SELENOGRAPHIC LONGITUDE IN DEGREES. 00003700 C ANS(I,5) IS THE ALTITUDE IN KILOMETERS. 00003800 C ANS(I,6) TO ANS(I,8) ARE THE SPACECRAFT LOOK ANGLES IN DEGREES. 00003900 C ANS(I,6) IS THE PITCH. 00004000 C ANS(I,7) IS THE YAW. 00004100 C ANS(I,8) IS THE ROLL. 00004200 C 00004300 C SPECT(I,J,K) CONTAINS THE 8 SECOND XRAY SPECTRA FOR ANS(I,X). 00004400 C J CORRESPONDS TO THE DETECTORS 1 TO 3 AND J=4 IS THE SOLAR 00004500 C MONITOR. 00004600 C K CORRESPONDS TO THE CHANNEL NUMBERS 1 THROUGH 8 AND 9 IS THE 00004700 C NUMBER OF PULSES REJECTED AS BEING NON XRAY EVENTS. FOR THE 00004800 C SOLAR MONITOR K=9 IS THE TOTAL NUMBER OF EVENTS IN CHANNELS 00004900 C 1 TO 8 FOR ALL 4 DETECTORS. THIS NUMBER IS THEN DIVIDED BY 16 00005000 C BEFORE BEING TRANSMITTED TO GIVE A MEASURE OF THE DATA QUALITY 00005100 C BEFORE AND AFTER TELEMETRY TRANSMISSION. 00005200 C THE SUM OF ALL THE CHANNELS FROM NFC TO NCH IS STORED IN K=10. 00005300 C NFLAG(I) INDICATES WHICH MODE THE SPECTROMETER WAS MEASURING 00005400 C DURING A PARTICULAR ACCUMULATION TIME INTERVAL. THE MODES ARE:00005500 C 16= NORMAL SPECTROMETER DATA FOR ALL FOUR DETECTORS. 00005600 C 96= CALIBRATION OF DETECTORS 1 TO 3. 00005700 C 144=DETECTOR 1 ONLY IS IN THE ATTENUATE MODE. 00005800 C 224=DETECTOR 1 IN ATTENUATE MODE AND 1 TO 3 ARE IN CALIBRATION 00005900 C MODE. 00006000 C NC(I) CONTAINS THE NUMBER OF CONTINUOUS 8 SECOND SPECTRA FOR THE 00006100 C SPECIFIC ACCUMULATION INTERVAL. 00006200 C NSPEC IS THE NUMBER OF SPECTRA THAT HAVE BEEN READ BY THE SUB- 00006300 C ROUTINE BEFORE RETURNING CONTROL TO THE CALLING PROGRAM. 00006400 C 00006500 COMMON/RATIO/IDUM,D(1500,8) 00006600 C LABELLED COMMON BLOCK/RATIO/ IS DEFINED AS FOLLOWS: 00006700 C 'IDUM' IS A DUMMY VARIABLE FOR 'I'. 00006800 C 'D' ARRAY IS TEMPORARY STORAGE FOR THE G AND N DATA. 00006900 REAL LONG(2),LAT(2),ATEM(8),SAVTEM(8) 00007000 C ATEM IS TEMPORARY STORAGE FOR THE EPHEMERIS DATA BEING READ AND 00007100 C CORRESPONDS TO THE VECTOR ANS. THERE IS A ONE TO ONE 00007200 C CORRESPONDENCE BETWEEN EACH COMPONENT OF ANS AND EACH 00007300 C COMPONENT OF ATEM. 00007400 C SAVTEM IS A STORAGE VECTOR FOR EPHEMERIS DATA WHICH IS TO BE 00007500 C INTERPOLATED AT THE END OF THE ACCUMULATION PERIOD. 00007600 C 00007700 INTEGER CHSM(4,10),SPECT,TSPEC(9,4) 00007800 C CHSM(4,10) IS THE TEMPORARY STORAGE USED FOR SUMMING SPECTRA IF 00007900 C ACCTIM>8 SECONDS. 00008000 C TSPEC(9,4) IS TEMPORARY STORAGE FOR THE SPECTRA BEING READ. 00008100 C NOTE: ONLY 8 SPECTRA OR 64 SECONDS OF DATA ARE ALLOWED IN THIS 00008200 C SUBROUTINE WITHOUT FURTHER MODIFICATION. 00008300 C 00008400 IF(ACCTIM.LE.64.0) GO TO 10 00008500 =====================================================================