      PROGRAM MODTRN                                                    MOD   10
C                                                                       MOD   20
C     THIS VERSION WAS UPDATED NOV   5 1990                             MOD   22
C     NOW CONTAINS NEW VSA AND WATER VAPOR CONTINUM CORRECTION          MOD   244
C                                                                       MOD   26
C     MODTRAN IS A COMPUTER CODE DEVELOPED BY SPECTRAL SCIENCES, INC.   MOD   30
C     AND DESIGNED TO DETERMINE ATMOSPHERIC TRANSMISSION AND RADIANCE   MOD   40
C     AT MODERATE RESOLUTION (FWHM = 1 CM-1) FROM 0 TO 50,000 CM-1.     MOD   50
C     MODTRAN IS BASED ON AFGL'S LOWTRAN 7 CODE.  UNLESS THE CODE IS    MOD   60
C     USED TO RUN LOWTRAN 7, AN UNFORMATTED BAND MODEL TAPE (UNIT=9),   MOD   70
C     UFTAPE, MUST EXIST.  THE PROGRAM "MAKEUF" CREATES THIS TAPE FROM  MOD   80
C     THE FORMATTED BAND MODEL TAPE, BMTAPE.                            MOD   90
C                                                                       MOD  100
C     MOST OF THE ROUTINES FROM LOWTRAN 7 REMAIN UNCHANGED.  SOME       MOD  110
C     ROUTINES HAVE BEEN CHANGED ONLY IN THAT A FEW OF THEIR COMMONS    MOD  120
C     STATEMENTS HAVE BEEN MODIFIED AND THE LOGICAL VARIABLE "MODTRN"   MOD  130
C     HAS BEEN DECLARED:                                                MOD  140
C                                                                       MOD  150
C        ROUTINE    COMMONS                                             MOD  160
C        -------    -------                                             MOD  170
C        ABCDTA     "BLANK"                                             MOD  180
C        AEREXT     "BLANK", CARD1                                      MOD  190
C        AERNSM     "BLANK", CARD1                                      MOD  200
C        AERTMP     "BLANK"                                             MOD  210
C        CIRR18     "BLANK", CARD1, CARD4                               MOD  220
C        CIRRUS     "BLANK", CARD1, CARD4                               MOD  230
C        CLDPRF     "BLANK"                                             MOD  240
C        DESATT     "BLANK"                                             MOD  250
C        EQULWC     "BLANK"                                             MOD  260
C        EXABIN     "BLANK", CARD1, CARD4                               MOD  270
C        FLXADD     "BLANK", CARD1, TRAN                                MOD  280
C        LAYVSA     CARD1                                               MOD  290
C        PHASEF     CARD1                                               MOD  300
C        RDEXA      "BLANK"                                             MOD  310
C        RDNSM      CARD1                                               MOD  320
C        RFPATH     CARD1, SOLS                                         MOD  330
C        SSRAD      "BLANK", CARD1, SOLS                                MOD  340
C        VSANSM     "BLANK", CARD1                                      MOD  350
C                                                                       MOD  360
C     THE OTHER ROUTINES WITH MINOR CHANGES ARE:                        MOD  370
C                                                                       MOD  380
C        ROUTINE    NUMBER OF ADDED AND SUBTRACTED LINES                MOD  390
C        -------    ------------------------------------                MOD  400
C        GEO        108                                                 MOD  410
C        MSRAD      34                                                  MOD  420
C        SSGEO      53                                                  MOD  430
C        STDMDL     39                                                  MOD  440
C                                                                       MOD  450
C     THE MOST SIGNIFICANT CHANGES WERE MADE TO THE MAIN ROUTINE AND    MOD  460
C     THE SUBROUTINE TRANS.  THE MAIN HAS BEEN SPLIT INTO 2 ROUTINES.   MOD  470
C     THE NEW MAIN ROUTINE JUST CONTAINS COMMENT CARDS AND A CALL TO    MOD  480
C     ROUTINE DRIVER.  SUBROUTINE DRIVER IS THE DRIVER FOR MODTRAN.     MOD  490
C     SUBROUTINE TRANS HAS BEEN COMPLETELY REVAMPED WITH ITS NEW FORM   MOD  500
C     CONTAINING 1012 LINES.  TRANS NOW STEPS IN 1 CM-1 INCREMENTS,     MOD  510
C     CALLING THE BAND MODEL ROUTINES, INTERPOLATING BETWEEN 5 CM-1     MOD  520
C     CONTINUUM TRANSMITTANCES, AND PERFORMING THE TRIANGULAR SLIT      MOD  530
C     CALCULATION.                                                      MOD  540
C                                                                       MOD  550
C     A NUMBER OF NEW ROUTINES HAS BEEN ADDED TO ACCOMMODATE THE HIGHER MOD  560
C     RESOLUTION OPTION:                                                MOD  570
C                                                                       MOD  580
C        ROUTINE (# LINES)    PURPOSE                                   MOD  590
C        -----------------    --------------------------                MOD  600
C        BMDATA    (135)      MAKE INITIAL CALLS TO BAND MODEL TAPE     MOD  610
C        BMERFU     (14)      RETURNS EXP(-Y*Y) + Y*SQRT(PI)*ERF(Y) - 1 MOD  620
C        BMFLUX    (277)      PERFORMS ADDING METHOD CALCULATION        MOD  630
C        BMLOAD     (91)      LOADS THE BAND MODEL PARAMETERS           MOD  640
C        BMOD      (287)      PERFORMS CURTIS-GODSON SUMS               MOD  650
C        BMTRAN     (57)      CALCULATES MOLECULAR TRANSMITTANCE        MOD  660
C                                                                       MOD  670
C     TWO CARDS FROM THE LOWTRAN 7 INPUT STREAM HAVE BEEN CHANGED.      MOD  680
C     LOGICAL VARIABLE, MODTRN, IS NOW READ IN ON CARD 1, AS SHOWN:     MOD  690
C                                                                       MOD  700
C     READ(IRD,'(L1,I4,12I5,F8.3,F7.2)')MODTRN,MODEL,ITYPE,IEMSCT,      MOD  710
C    1  IMULT,M1,M2,M3,M4,M5,M6,MDEF,IM,NOPRT,TBOUND,SALB               MOD  720
C                                                                       MOD  730
C     IF MODTRN IS FALSE, THE CODE DEFAULTS TO LOWTRAN 7.  WHEN MODTRN  MOD  740
C     IS TRUE, THE MODERATE RESOLUTION OPTION IS INVOKED.  CARD 4 HAS   MOD  750
C     ALSO BEEN CHANGED.  INSTEAD OF READING THE REAL VARIABLES, V1, V2 MOD  760
C     AND DV, THE INTEGERS IV1, IV2, IDV AND IFWHM ARE READ, AS SHOWN:  MOD  770
C                                                                       MOD  780
C     READ(IRD,'(4I10)')IV1,IV2,IDV,IFWHM                               MOD  790
C                                                                       MOD  800
C     IV1 AND IV2 ARE THE LOWER AND UPPER BOUNDS ON THE FREQUENCY       MOD  810
C     (CM-1) RANGE, RESPECTIVELY.  IV1 IS A NON-NEGATIVE INTEGER AND    MOD  820
C     IV2 MUST EXCEED IV1.  IDV, A POSITIVE INTEGER, IS THE STEP SIZE   MOD  830
C     USED FOR PRINTING OF TRANSMITTANCES AND RADIANCES.  FINALLY,      MOD  840
C     IFWHM IS THE FULL WIDTH AT HALF MAXIMUM USED BY THE TRIANGULAR    MOD  850
C     SLIT FUNCTION.  IFWHM MUST BE A POSITIVE INTEGER NOT EXCEEDING 50 MOD  860
C                                                                       MOD  870
C***********************************************************************MOD  880
C     LOWTRAN7  (LAST REVISED JAN  30 1989) REVISION 3.6                MOD  890
C                                                                       MOD  900
C               AUTHORS                                                 MOD  910
C                                                                       MOD  920
C               F.X.KNEIZYS                                             MOD  930
C               E. P. SHETTLE                                           MOD  940
C               G.P. ANDERSON                                           MOD  950
C               L. W. ABREU                                             MOD  960
C               J. H. CHETWYND                                          MOD  970
C               J. E. A. SELBY    (GRUMMAN AEROSPACE)                   MOD  980
C               S. A. CLOUGH      (AER INC)                             MOD  990
C               W. O. GALLERY     (OPTIMETRICS)                         MOD 1000
C                                                                       MOD 1010
C   PROGRAM LOWTRAN  CALCULATES THE TRANSMITTANCE AND/OR RADIANCE       MOD 1020
C   OF THE ATMOSPHERE  FROM   0 CM-1 TO 50000 CM-1 (0.20 TO INFINITY    MOD 1030
C   MICRONS) AT 20 CM-1 SPECTRAL RESOLUTION ON A LINEAR                 MOD 1040
C   WAVENUMBER SCALE WITH 5CM-1 SAMPLING                                MOD 1050
C                                                                       MOD 1060
C   LOWTRAN 7 IS A LOW-RESOLUTION PROPAGATION MODEL FOR CALCULATING     MOD 1070
C   ATMOSPHERIC TRANSMITTANCE AND BACKGROUND RADIANCE FROM 0 TO         MOD 1080
C   50,000 CM-1 AT A RESOLUTION OF 20 CM-1 WITH A MINIMUM OF 5 CM-1     MOD 1090
C   SAMPLING.  THE MODEL IS BASED ON THE LOWTRAN 6 (1983) MODEL.        MOD 1100
C   THE PROGRAM CALCULATES SINGLE SCATTERED SOLAR (OR LUNAR)            MOD 1110
C   RADIATION.  MULTIPLE SCATTERED RADIATION HAS BEEN ADDED TO THE      MOD 1120
C   MODEL AS WELL AS NEW MOLECULAR BAND MODEL PARAMETERS AND NEW OR     MOD 1130
C   UPDATED OZONE AND MOLECULAR OXYGEN ABSORPTION PARAMETERS FOR THE    MOD 1140
C   UV.  OTHER MODIFICATIONS INCLUDE A WIND-DEPENDENT DESERT MODEL, NEW MOD 1150
C   CIRRUS CLOUD MODELS, AND NEW CLOUD AND RAIN MODELS.  THE MODEL ALSO MOD 1160
C   INCLUDES NEW REPRESENTATIVE (GEOGRAPHICAL AND SEASONAL) ATMOSPHERIC MOD 1170
C   MODELS AND UPDATED AEROSOL MODELS WITH OPTIONS TO REPLACE THEM WITH MOD 1180
C   USER-DERIVED VALUES.  SIX MODES OF PROGRAM EXECUTION ARE ALLOWED    MOD 1190
C   WITH THE NEW MODEL AND COMPUTER CODE FOR A GIVEN SLANT PATH         MOD 1200
C   UTILIZING SPHERICAL-REFRACTIVE GEOMETRY.  THE ARMY VERTICAL         MOD 1210
C   STRUCTURE ALGORITHM HAS BEEN MODIFIED TO INCLUDE THE NEW PEDESTAL   MOD 1220
C   MODEL BELOW THE CLOUD BASE.  A NEW OPTION HAS BEEN  ADDED TO        MOD 1230
C   MODIFY THE AEROSOL PROFILE, IF THE GROUND IS NOT AT SEA LEVEL.      MOD 1240
C                                                                       MOD 1250
C***********************************************************************MOD 1260
C                                                                       MOD 1270
C     THE FOLLOWING INFORMATION SHOULD BE PROVIDED BY THE USER          MOD 1280
C     AND MAILED TO   L.W ABREU  ,AFGL/OPI,HANSCOM AFB,MASS 01731       MOD 1290
C     THIS WILL BE USED TO UPDATE THE AFGL MAILING LIST                 MOD 1300
C     AND FOR NOTIFICATION TO THE USER OF ERRORS IN THE CODE            MOD 1310
C                                                                       MOD 1320
C                                                                       MOD 1330
C           MY NAME IS                                                  MOD 1340
C           COMPANY                                                     MOD 1350
C           ADDRESS                                                     MOD 1360
C           MY COMPUTER IS                                              MOD 1370
C                                                                       MOD 1380
C                                                                       MOD 1390
C***********************************************************************MOD 1400
C   THE USE OF THE WORD 'CARD' IS EQUIVALENT TO EDITING WITH 80 COLUMNS MOD 1410
C                                                                       MOD 1420
C     PROGRAM ACTIVATED BY SUBMISSION OF A FIVE  (OR MORE)              MOD 1430
C      CARD SEQUENCE AS FOLLOWS                                         MOD 1440
C                                                                       MOD 1450
C     CARD 1    MODEL,ITYPE,IEMSCT,IMULT,M1,M2,M3,                      MOD 1460
C               M4,M5,M6,MDEF,IM,NOPRT,TBOUND,SALB                      MOD 1470
C                          FORMAT(13I5,F8.3,F7.2)                       MOD 1480
C                                                                       MOD 1490
C     CARD 2    IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,RAINRT, MOD 1500
C               GNDALT                                                  MOD 1510
C                          FORMAT(6I5,5F10.3)                           MOD 1520
C                                                                       MOD 1530
C               CARD 2A    CTHIK,CALT,CEXT,ISEED       (ICLD=18,19,20)  MOD 1540
C                          FORMAT(3F10.3,I10)                           MOD 1550
C                                                                       MOD 1560
C               CARD 2B    ZCVSA,ZTVSA,ZINVSA    (IVSA=1)               MOD 1570
C                          FORMAT(3F10.3)                               MOD 1580
C                                                                       MOD 1590
C               CARD 2C    ML,IRD1,IRD2,TITLE (MODEL=0 / 7,IM=1)        MOD 1600
C                          FORMAT(3I5,18A4)                             MOD 1610
C                                                                       MOD 1620
CC------------------------ BEGIN ML LOOP                                MOD 1630
CC-                                                                     MOD 1640
CC-             CARD 2C1   ZMDL,P,T,WMOL(1),WMOL(2),WMOL(3),JCHAR       MOD 1650
CC-                        FORMAT(F10.3,5E10.3,15A1)                    MOD 1660
CC-                                                                     MOD 1670
CC-             CARD 2C2   (WMOL(J),J=4,11)                             MOD 1680
CC-                        FORMAT(8E10.3)                               MOD 1690
CC-                                                                     MOD 1700
CC-             CARD 2C2   WMOL(12)                                     MOD 1710
CC-                        FORMAT(8E10.3)                               MOD 1720
CC-                                                                     MOD 1730
CC-             CARD 2C3   AHAZE,EQLWCZ,RRATZ,IHA1,ICLD1,               MOD 1740
CC-                        IVUL1,ISEA1,ICHR                             MOD 1750
CC-                        FORMAT(10X,3F10.3,5I5)                       MOD 1760
CC-                                                                     MOD 1770
CC------------------------ END ML LOOP                                  MOD 1780
C                                                                       MOD 1790
C               CARD 2D    IREG(1 TO 4) (IHAZE=7 OR ICLD = 11)          MOD 1800
C                          FORMAT(4I5)                                  MOD 1810
C                                                                       MOD 1820
C               CARD 2D1   AWCCON,TITLE                                 MOD 1830
C                          FORMAT(E10.3,18A4)                           MOD 1840
C                                                                       MOD 1850
C               CARD 2D2   (VX(I),EXTC(N,I),ABSC(N,I),ASYM(N,I),I=1,47) MOD 1860
C                          (IHAZE=7 OR ICLD=11)                         MOD 1870
C                          FORMAT(3(F6.2,2F7.5,F6.4))                   MOD 1880
C                                                                       MOD 1890
C     CARD 3    H1,H2,ANGLE,RANGE,BETA,RO,LEN                           MOD 1900
C                          FORMAT(6F10.3,I5)                            MOD 1910
C                                                                       MOD 1920
C               ALTERNATE  CARD 3 (IEMSCT=3)                            MOD 1930
C                          H1,H2,ANGLE,IDAY,RO,ISOURC,ANGLEM            MOD 1940
C                          FORMAT(3F10.3,I5,5X,F10.3,I5,F10.3)          MOD 1950
C                                                                       MOD 1960
C               CARD 3A1   IPARM,IPH,IDAY,ISOURC           (IEMSCT=2)   MOD 1970
C                          FORMAT(4I5)                                  MOD 1980
C                                                                       MOD 1990
C               CARD 3A2    PARM1,PARM2,PARM3,PARM4,TIME,PSIPO,ANGLEM,G MOD 2000
C                           FORMAT(8F10.3)               (IEMSCT=2)     MOD 2010
C                                                                       MOD 2020
C               CARD 3B1    NANGLS       (IPH=1)                        MOD 2030
C                           FORMAT(I5)                                  MOD 2040
C                                                                       MOD 2050
C               CARD 3B2(1 TO NANGLS)    (IPH=1)                        MOD 2060
C                      (ANGF(I),F(1,I),F(2,I),F(3,I),F(4,I),I=1,NANGLS) MOD 2070
C                           FORMAT(5E10.3)                              MOD 2080
C                                                                       MOD 2090
C     CARD 4    V1, V2, DV                                              MOD 2100
C                           FORMAT(3F10.3)                              MOD 2110
C                                                                       MOD 2120
C     CARD 5    IRPT                                                    MOD 2130
C                           FORMAT(I5)                                  MOD 2140
C                                                                       MOD 2150
C***********************************************************************MOD 2160
C   ** FOLLOWING IS A FULL DESCRIPTION OF EACH CARD                     MOD 2170
C                                                                       MOD 2180
C     CARD 1    MODEL,ITYPE,IEMSCT,IMULT,M1,M2,M3,                      MOD 2190
C               M4,M5,M6,MDEF,IM,NOPRT,TBOUND,SALB                      MOD 2200
C                         FORMAT(13I5,F8.3,F7.2)                        MOD 2210
C                                                                       MOD 2220
C             'MODEL' SELECTS ONE OF SIX GEOGRAPHICAL MODEL ATMOSPHERES MOD 2230
C              OR SPECIFIES THAT USER-DEFINED METEOROLOGICAL            MOD 2240
C              DATA ARE TO BE USED.                                     MOD 2250
C                                                                       MOD 2260
C                                                                       MOD 2270
C     MODEL=0 IF METEOROLOGICAL DATA ARE SPECIFIED(HORIZONTAL PATH ONLY)MOD 2280
C           1 TROPICAL ATMOSPHERE                                       MOD 2290
C           2 MIDLATITUDE SUMMER                                        MOD 2300
C           3 MIDLATITUDE WINTER                                        MOD 2310
C           4 SUBARCTIC   SUMMER                                        MOD 2320
C           5 SUBARCTIC   WINTER                                        MOD 2330
C           6 1976 U.S. STANDARD ATMOSPHERE                             MOD 2340
C           7 IF A NEW MODEL ATMOSPHERE( OR RADIOSONDE DATA) IS TO BE   MOD 2350
C             READ IN.                                                  MOD 2360
C                                                                       MOD 2370
C     [NOTE: MODEL=0  USED FOR HORIZONTAL PATH ONLY]                    MOD 2380
C                                                                       MOD 2390
C                                                                       MOD 2400
C           'ITYPE' INDICATES THE TYPE OF ATMOSPHERIC PATH              MOD 2410
C                                                                       MOD 2420
C     ITYPE=1 FOR A HORIZONTAL (CONSTANT-PRESSURE) PATH                 MOD 2430
C           2 VERTICAL OR SLANT PATH BETWEEN TWO ALTITUDES              MOD 2440
C           3 FOR A VERTICAL OR SLANT PATH TO SPACE                     MOD 2450
C                                                                       MOD 2460
C                                                                       MOD 2470
C           'IEMSCT' DETERMINES THE MODE OF EXECUTION OF THE PROGRAM    MOD 2480
C                                                                       MOD 2490
C     IEMSCT=0    PROGRAM EXECUTION IN TRANSMITTANCE MODE.              MOD 2500
C            1    PROGRAM EXECUTION IN RADIANCE MODE.                   MOD 2510
C            2    PROGRAM EXECUTION IN RADIANCE MODE WITH SOLAR/LUNAR   MOD 2520
C                  SCATTERED RADIANCE INCLUDED.                         MOD 2530
C            3    DIRECT SOLAR IRRADIANCE                               MOD 2540
C                                                                       MOD 2550
C           'IMULT' DETERMINES EXECUTION WITH MULTIPLE SCATTERING       MOD 2560
C                                                                       MOD 2570
C     IMULT = 0 PROGRAM EXECUTED WITHOUT MULTIPLE SCATTERING            MOD 2580
C             1 PROGRAM EXECUTED WITH MULTIPLE SCATTERING               MOD 2590
C              [NOTE: IEMSCT MUST EQUAL 1 OR 2 FOR MULTIPLE SCATTERING] MOD 2600
C                                                                       MOD 2610
C                                                                       MOD 2620
C           'M1,M2,M3' ARE USED TO MODIFY OR SUPPLEMENT THE ALTITUDE    MOD 2630
C            PROFILES OF TEMPERATURE AND PRESSURE,WATER VAPOR,AND OZONE MOD 2640
C                                                                       MOD 2650
C           'M4,M5,M6'  SEASONAL DEPENDENCE CH4,N2O,CO                  MOD 2660
C           'MDEF'       USE DEFAULT FOR OTHER GASES                    MOD 2670
C                                                                       MOD 2680
C     FOR NORMAL OPERATION OF PROGRAM   (MODEL 1 TO 6)                  MOD 2690
C     SET M1=M2=M3=0 , M4=M5=M6=MDEF = 0                                MOD 2700
C                                                                       MOD 2710
C     THESE PARAMETERS ARE RESET TO DEFAULT VALUES BY MODEL             MOD 2720
C     WHEN THEY ARE EQUAL TO ZERO                                       MOD 2730
C                                                                       MOD 2740
C      EXCEPT FOR MODEL 0 AND 7                                         MOD 2750
C      WHEN M1 = 0 M1 RESET TO 'MODEL'                                  MOD 2760
C      WHEN M2 = 0 M2 RESET TO 'MODEL'                                  MOD 2770
C      WHEN M3 = 0 M3 RESET TO 'MODEL'                                  MOD 2780
C      WHEN M4 = 0 M4 RESET TO 'MODEL'                                  MOD 2790
C      WHEN M5 = 0 M5 RESET TO 'MODEL'                                  MOD 2800
C      WHEN M6 = 0 M6 RESET TO 'MODEL'                                  MOD 2810
C      WHEN MDEF=0 MDEF RESET TO 1  FOR ALL REMAINING                   MOD 2820
C                                                                       MOD 2830
C     M1=1-6 DEFAULT TEMP. AND PRESSURE TO SPECIFIED MODEL ATM.         MOD 2840
C                                                                       MOD 2850
C     M2=1-6 DEFAULT H2O   TO SPECIFIED MODEL ATM.                      MOD 2860
C                                                                       MOD 2870
C     M3=1-6 DEFAULT OZONE TO SPECIFIED MODEL ATM.                      MOD 2880
C                                                                       MOD 2890
C     M4=1-6 DEFAULT CH4   TO SPECIFIED MODEL ATM.                      MOD 2900
C                                                                       MOD 2910
C     M5=1-6 DEFAULT N2O   TO SPECIFIED MODEL ATM.                      MOD 2920
C                                                                       MOD 2930
C     M6=1-6 DEFAULT CO    TO SPECIFIED MODEL ATM.                      MOD 2940
C                                                                       MOD 2950
C     MDEF=1     USE DEFAULT   PROFILE  FOR CO2,O2,NO,SO2,NO2,NH3,HNO3  MOD 2960
C                NOT NEEDED WITH MODEL 1 TO 6                           MOD 2970
C                                                                       MOD 2980
C                                                                       MOD 2990
C     IF 'MODEL' 0 OR 'MODEL' 7  THE PROGRAM EXPECTS TO READ            MOD 3000
C     "USER SUPPLIED" ATMOSPHERIC PROFILES. SET:'IM' = 1 FOR            MOD 3010
C      FIRST RUN. TO RERUN THE SAME "USER-ATMOSPHERE" FOR A SERIES      MOD 3020
C      OF CASES SET:'IM' = 0 TO REUSE THE PREVIOUSLY READ DATA.         MOD 3030
C                                                                       MOD 3040
C     IM=0    FOR  NORMAL OPERATION OF PROGRAM OR WHEN SUBSEQUENT       MOD 3050
C                  CALCULATIONS ARE TO BE RUN WITH MODEL =7             MOD 3060
C        1    WHEN RADIOSONDE DATA ARE TO BE READ INITIALLY.            MOD 3070
C                                                                       MOD 3080
C     NOPRT=0 FOR NORMAL OPERATION OF PROGRAM.                          MOD 3090
C                                                                       MOD 3100
C           1 TO MINIMIZE PRINTING OF TRANSMITTANCE /OR RADIANCE TABLE  MOD 3110
C                   AND ATMOSPHERIC PROFILES                            MOD 3120
C                                                                       MOD 3130
C                                                                       MOD 3140
C     TBOUND =BOUNDARY TEMPERATURE ( K),USED IN THE RADIATION MODE      MOD 3150
C             (IEMSCT = 1 OR 2) FOR SLANT PATHS THAT INTERSECT THE      MOD 3160
C             EARTH OR TERMINATE AT A GREY BOUNDARY (FOR EXAMPLE        MOD 3170
C             CLOUD,TARGET).  IF TBOUND IS LEFT BLANK AND THE PATH      MOD 3180
C             INTERSECTS THE EARTH, THE PROGRAM WILL USE THE            MOD 3190
C             TEMPERATURE OF THE FIRST ATMOSPHERIC LEVEL AS THE         MOD 3200
C             BOUNDARY TEMPERATURE.                                     MOD 3210
C                                                                       MOD 3220
C      SALB = SURFACE ALBEDO OF THE EARTH AT THE LOCATION               MOD 3230
C             AND AVERAGE FREQUENCY OF THE CALCULATION (0 TO 1.)        MOD 3240
C             IF SALB IS LEFT BLANK THE PROGRAM ASSUMES                 MOD 3250
C             THE SURFACE IS A BLACKBODY.                               MOD 3260
C***********************************************************************MOD 3270
C                                                                       MOD 3280
C     CARD 2   IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,RAINRT,  MOD 3290
C              GNDALT                                                   MOD 3300
C                          FORMAT(6I5,5F10.3)                           MOD 3310
C                                                                       MOD 3320
C     'IHAZE' SELECTS THE TYPE OF EXTINCTION AND A DEFAULT              MOD 3330
C     METEOROLOGICAL RANGE FOR THE BOUNDARY-LAYER AEROSOL MODEL         MOD 3340
C     (0 TO 2KM ALTITUDE)                                               MOD 3350
C     IF 'VIS' IS ALSO SPECIFIED ON CARD 2 IT WILL OVERRIDE THE         MOD 3360
C     DEFAULT 'IHAZE' VALUE  FOR METEOROLOGICAL RANGE                   MOD 3370
C                                                                       MOD 3380
C     IHAZE=0  NO AEROSOL ATTENUATION INCLUDED IN CALCULATION.          MOD 3390
C          =1  RURAL EXTINCTION, 23-KM VIS.                             MOD 3400
C          =2  RURAL EXTINCTION, 5-KM VIS.                              MOD 3410
C          =3  NAVY MARITIME EXTINCTION,SETS OWN VIS.                   MOD 3420
C          =4  MARITIME EXTINCTION, 23-KM VIS.    (LOWTRAN 5 MODEL)     MOD 3430
C          =5  URBAN EXTINCTION, 5-KM VIS.                              MOD 3440
C          =6  TROPOSPHERIC EXTINCTION, 50-KM VIS.                      MOD 3450
C          =7  USER DEFINED  AEROSOL EXTINCTION COEFFICIENTS            MOD 3460
C              TRIGGERS READING IREG FOR UP TO 4 REGIONS OF             MOD 3470
C              USER DEFINED EXTINCTION ABSORPTION AND ASYMMETRY         MOD 3480
C          =8  FOG1 (ADVECTIVE FOG) EXTINCTION, 0.2-KM VIS.             MOD 3490
C          =9  FOG2 (RADIATIVE FOG) EXTINCTION, 0.5-KM VIS.             MOD 3500
C          =10 DESERT EXTINCTION  SETS OWN VISIBILITY FROM WIND SPEED   MOD 3510
C                                                                       MOD 3520
C     'ISEASN' SELECTS THE SEASONAL DEPENDENCE OF THE PROFILES          MOD 3530
C     FOR BOTH THE TROPOSPHERIC (2 TO 10 KM) AND                        MOD 3540
C     STRATOSPHERIC(10 TO 30 KM) AEROSOLS.                              MOD 3550
C                                                                       MOD 3560
C     ISEASN=0 DEFAULTS TO SEASON OF 'MODEL'                            MOD 3570
C              (MODEL 0,1,2,4,6,7) SUMMER                               MOD 3580
C              (MODEL 3,5)         WINTER                               MOD 3590
C           =1 SPRING-SUMMER                                            MOD 3600
C           =2 FALL - WINTER                                            MOD 3610
C                                                                       MOD 3620
C     'IVULCN' SELECTS BOTH THE PROFILE AND EXTINCTION TYPE             MOD 3630
C     FOR THE STRATOSPHERIC AEROSOLS AND DETERMINES TRANSITION          MOD 3640
C     PROFILES ABOVE THE STRATOSPHERE TO 100 KM.                        MOD 3650
C                                                                       MOD 3660
C     IVULCN=0 DEFAULT TO STRATOSPHERIC BACKGROUND                      MOD 3670
C           =1 STRATOSPHERIC BACKGROUND                                 MOD 3680
C           =2 AGED VOLCANIC TYPE/MODERATE VOLCANIC PROFILE             MOD 3690
C           =3 FRESH VOLCANIC TYPE/HIGH VOLCANIC PROFILE                MOD 3700
C           =4 AGED VOLCANIC TYPE/HIGH VOLCANIC PROFILE                 MOD 3710
C           =5 FRESH VOLCANIC TYPE/MODERATE VOLCANIC PROFILE            MOD 3720
C           =6 BACKGROUND STRATOSPHERIC TYPE/MODERATE VOLCANIC PROFILE  MOD 3730
C           =7 BACKGROUND STRATOSPHERIC TYPE/HIGH VOLCANIC PROFILE      MOD 3740
C           =8 FRESH VOLCANIC TYPE/EXTREME VOLCANIC PROFILE             MOD 3750
C                                                                       MOD 3760
C     'ICSTL' IS THE AIR MASS CHARACTER(1 TO 10) ONLY USED WITH         MOD 3770
C     NAVY MARITIME MODEL(IHAZE=3)                                      MOD 3780
C                                                                       MOD 3790
C     ICSTL = 1 OPEN OCEAN                                              MOD 3800
C            .                                                          MOD 3810
C            .                                                          MOD 3820
C            .                                                          MOD 3830
C           10 STRONG CONTINENTAL INFLUENCE                             MOD 3840
C                                                                       MOD 3850
C                                                                       MOD 3860
C     'ICLD' SPECIFIES WHICH OF THE CLOUD MODELS AND THE RAIN RATES     MOD 3870
C     ARE USED                                                          MOD 3880
C                                                                       MOD 3890
C     ICLD  FOR CLOUD AND OR RAIN                                       MOD 3900
C     ICLD = 0   NO CLOUDS OR RAIN                                      MOD 3910
C          = 1  CUMULUS CLOUD BASE .66KM TOP 2.7KM                      MOD 3920
C          = 2  ALTOSTRATUS CLOUD BASE 2.4KM TOP 3.0KM                  MOD 3930
C          = 3  STRATUS CLOUD BASE .33KM TOP 1.0KM                      MOD 3940
C          = 4  STRATUS/STRATO CU BASE .66KM TOP 2.0KM                  MOD 3950
C          = 5  NIMBOSTRATUS CLOUD BASE .16KM TOP .66KM                 MOD 3960
C          = 6  2.0MM/HR DRIZZLE (MODELED WITH CLOUD  3)                MOD 3970
C               RAIN  2. MM HR AT 0KM TO .22 MM HR AT 1.5KM             MOD 3980
C          = 7  5.0MM/HR LIGHT RAIN (MODELED WITH CLOUD  5)             MOD 3990
C               RAIN  5. MM HR AT 0KM TO .2  MM HR AT 1.5KM             MOD 4000
C          = 8  12.5MM/HR MODERATE RAIN (MODELED WITH CLOUD  5)         MOD 4010
C               RAIN 12.5MM HR AT 0KM TO .2  MM HR AT 2.0KM             MOD 4020
C          = 9  25.0MM/HR HEAVY RAIN (MODELED WITH CLOUD  1)            MOD 4030
C               RAIN 25. MM HR AT 0KM TO .2  MM HR AT 3.0KM             MOD 4040
C          =10  75.0MM/HR EXTREME RAIN (MODELED WITH CLOUD  1)          MOD 4050
C               RAIN 75. MM HR AT 0KM TO .2  MM HR AT 3.5KM             MOD 4060
C          =11  READ IN USER DEFINED CLOUD EXTINCTION AND ABSORPTION    MOD 4070
C              USER DEFINED  AEROSOL EXTINCTION COEFFICIENTS            MOD 4080
C              TRIGGERS READING IREG FOR UP TO 4 REGIONS OF             MOD 4090
C              USER DEFINED EXTINCTION ABSORPTION AND ASYMMETRY         MOD 4100
C          =18  STANDARD   CIRRUS MODEL                                 MOD 4110
C          =19  SUB VISUAL CIRRUS MODEL                                 MOD 4120
C          =20  NOAA       CIRRUS MODEL  (LOWTRAN 6 MODEL)              MOD 4130
C                                                                       MOD 4140
C                                                                       MOD 4150
C     IVSA DETERMINES THE USE OF THE ARMY VERTICAL STRUCTURE            MOD 4160
C     ALGORITHM FOR AEROSOLS IN THE BOUNDARY LAYER.                     MOD 4170
C                                                                       MOD 4180
C     IVSA=0   NOT USED                                                 MOD 4190
C         =1   VERTICAL STRUCTURE ALGORITHM                             MOD 4200
C                                                                       MOD 4210
C     'VIS'   SPECIFIES THE METEOROLIGICAL RANGE                        MOD 4220
C     VIS =    METEOROLOGICAL RANGE (KM) (WHEN SPECIFIED,SUPERSEDES     MOD 4230
C              DEFAULT VALUE SET BY IHAZE)                              MOD 4240
C                                                                       MOD 4250
C     'WSS'     SPECIFIES THE CURRENT WIND SPEED                        MOD 4260
C     WSS =    CURRENT WIND SPEED (M/S).    WITH (IHAZE=3/IHAZE=10)     MOD 4270
C                                                                       MOD 4280
C     'WHH'    SPECIFIES THE 24 HOUR AVERAGE WIND SPEED                 MOD 4290
C     WHH =    24 HOUR AVERAGE WIND SPEED (M/S).  ONLY WITH (IHAZE=3)   MOD 4300
C                                                                       MOD 4310
C     'RAINRT' SPECIFIES THE RAIN RATE                                  MOD 4320
C     RAINRT = RAIN RATE (MM/HR).             DEFAULT VALUE IS ZERO.    MOD 4330
C     USED  TO TOP OF CLOUD WHEN CLOUD IS PRESENT                       MOD 4340
C     WHEN NO CLOUDS RAIN RATE USED TO 6KM                              MOD 4350
C                                                                       MOD 4360
C     'GNDALT' SPECIFIES THE ALTITUDE OF SURFACE RELATIVE TO SEA LEVEL  MOD 4370
C     GNDALT = ALTITUDE OF SURFACE RELATIVE TO SEA LEVEL (KM)           MOD 4380
C              USED TO MODIFY  AEROSOL PROFILES BELOW 6 KM ALTITUDE     MOD 4390
C                                                                       MOD 4400
C***********************************************************************MOD 4410
C                                                                       MOD 4420
C     OPTIONAL INPUT CARDS AFTER CARD 2                                 MOD 4430
C     SELECTED BY PARAMETERS ICLD,IVSA,MODEL,AND IHAZE ON CARDS 2       MOD 4440
C                                                                       MOD 4450
C                                                                       MOD 4460
C     CARD 2A   CTHIK,CALT,CEXT,ISEED     (ICLD=18,19,20)               MOD 4470
C                          FORMAT(3F10.3,I10)                           MOD 4480
C                   INPUT CARD FOR CIRRUS ALTITUDE PROFILE              MOD 4490
C                   SUBROUTINE WHEN ICLD = 18,19,20                     MOD 4500
C                                                                       MOD 4510
C     CHTIK    = CIRRUS THICKNESS (KM)                                  MOD 4520
C                0  USE THICKNESS STATISTICS                            MOD 4530
C                                                                       MOD 4540
C     CALT     = CIRRUS BASE ALTITUDE(KM)                               MOD 4550
C                0 USE DEFAULT DETERMINED BY 'MODEL'                    MOD 4560
C                                                                       MOD 4570
C     CEXT     = EXTINCTION COEFFIENT(KM-1) AT 0.55                     MOD 4580
C                0 USE 0.14 * CTHIK                                     MOD 4590
C                                                                       MOD 4600
C     ISEED    = RANDOM NUMBER INITIALIZATION FLAG.                     MOD 4610
C                0 USE DEFAULT MEAN VALUES FOR CIRRUS                   MOD 4620
C                .NE. 0 INITIAL VALUE OF SEED FOR                       MOD 4630
C                RANDOM NUMBER GENERATOR FUNCTION                       MOD 4640
C                CHANGE SEED VALUE EACH RUN FOR DIFFERENT               MOD 4650
C                RANDOM NUMBER SEQUENCES.  THIS PROVIDES FOR            MOD 4660
C                STATISTICAL DETERMINATION OF CIRRUS BASE               MOD 4670
C                ALTITUDE AND THICKNESS.                                MOD 4680
C                                                                       MOD 4690
C   NOTE: RANDOM NUMBERS GENERATION IS SYSTEM DEPENDENT                 MOD 4700
C                                                                       MOD 4710
C***********************************************************************MOD 4720
C                                                                       MOD 4730
C     CARD 2B             ZCVSA,ZTVSA,ZINVSA     (IVSA=1)               MOD 4740
C                          FORMAT(3F10.3)                               MOD 4750
C               INPUT CARD FOR ARMY VERTICAL STRUCTURE                  MOD 4760
C               ALGORITHM SUBROUTINE WHEN IVSA=1.                       MOD 4770
C                                                                       MOD 4780
C     ZCVSA = CLOUD CEILING HEIGHT (KM)                                 MOD 4790
C             LT 0 NO CLOUD CEILING                                     MOD 4800
C             GT 0 KNOWN CLOUD CEILING                                  MOD 4810
C                0 UNKNOWN CLOUD CEILING HEIGHT                         MOD 4820
C                  PROGRAM CALCULATES CLOUD HEIGHT                      MOD 4830
C                                                                       MOD 4840
C     ZTVSA = THICKNESS OF CLOUD OR FOG (KM),                           MOD 4850
C               0 DEFAULTS TO 200 METERS                                MOD 4860
C                                                                       MOD 4870
C     ZINVSA= HEIGHT OF THE INVERSION (KM)                              MOD 4880
C                 0 DEFAULTS TO 100 METERS                              MOD 4890
C             LT  0 NO INVERSION LAYER                                  MOD 4900
C                                                                       MOD 4910
C***********************************************************************MOD 4920
C                                                                       MOD 4930
C     CARD 2C  ML,IRD1,IRD2,TITLE   (MODEL=0 / 7,IM=1)                  MOD 4940
C                          FORMAT(3I5,18A4)                             MOD 4950
C              ADDITIONAL ATMOSPHERIC MODEL       (MODEL=7)             MOD 4960
C              NEW MODEL ATMOSPHERE CAN BE INSERTED PROVIDED THE        MOD 4970
C              PARAMETERS 'MODEL' AND 'IM' ARE SET EQUAL TO 7 AND 1     MOD 4980
C              RESPECTIVELY ON CARD 1.                                  MOD 4990
C                                                                       MOD 5000
C     ML=      NUMBER OF ATMOSPHERIC LEVELS TO BE INSERTED              MOD 5010
C                   (MAXIMUM OF 34)                                     MOD 5020
C                                                                       MOD 5030
C     CARD 2C1 IS READ AUTOMATICALLY FOR MODEL 0 AND 7                  MOD 5040
C                                                                       MOD 5050
C     IRD1 CONTROL READING WN2O,WCO ... AND WNH3,WHNO3      CARD        MOD 5060
C                                                                       MOD 5070
C     IRD1 = 0     NO READ  (MOLECULAR DENSITIES BY LAYER)              MOD 5080
C     IRD1 = 1     READ                                                 MOD 5090
C                                                                       MOD 5100
C     IRD2  CONTROL READING AHAZE,EQLWCZ,... CARD                       MOD 5110
C                                                                       MOD 5120
C     IRD2 = 0     NO READ  (AEROSOL CONTROL BY LAYER)                  MOD 5130
C     IRD2 = 1     READ                                                 MOD 5140
C                                                                       MOD 5150
C     JCHAR  ON CARD 2C1 IS USUALLY USED TO DEFINE MOLECULES 4 TO 12    MOD 5160
C     IHAZE  ON CARD 2   IS USUALLY USED TO DEFINE AEROSOL PROFILES     MOD 5170
C     IRD1 = 1 OR IRD2 = 1   SELDOM USED                                MOD 5180
C                                                                       MOD 5190
C     TITLE=   IDENTIFICATION OF NEW MODEL ATMOSPHERE                   MOD 5200
C                                                                       MOD 5210
C                                                                       MOD 5220
C     THE FOLLOWING CARDS ARE READ IN SUBROUTINE AERNSM                 MOD 5230
C                                                                       MOD 5240
CC------------------------ BEGIN ML LOOP                                MOD 5250
CC-                                                                     MOD 5260
CC-   CARD 2C1 ZMDL,P,T,WMOL(1),WMOL(2),WMOL(3),JCHAR                   MOD 5270
CC-   LAYER VARIABLES        WH,   WCO2,     WO,JCHAR (1 TO 13)         MOD 5280
CC-                        FORMAT(F10.3,5E10.3,15A1)                    MOD 5290
CC-                                                                     MOD 5300
CC-   ZMDL     ALTITUDE OF LAYER (KM)                                   MOD 5310
CC-   P        PRESSURE AT LAYER                                        MOD 5320
CC-   T        TEMPERATURE                                              MOD 5330
CC-   WMOL     READ, INTERPRETED AND MOVED INTO LAYER VARIABLES         MOD 5340
CC-   WH =     WATER VAPOR                                              MOD 5350
CC-   WCO2 =   CO2                                                      MOD 5360
CC-   WO =     OZONE                                                    MOD 5370
CC-                                                                     MOD 5380
CC-   JCHAR    FLAGS TO SPECIFY UNITS OR DEFAULTS FOR                   MOD 5390
CC-   P,T,WH,WCO2,WO,WN2O,WCO,.. AND WNH3,WHNO3                         MOD 5400
CC-   JCHAR BLANK DEFAULT TO M1,M2,M3,M4,M5,M6,MDEF WHEN AMOUNT ZERO    MOD 5410
CC-                                                                     MOD 5420
CC-      PARAMETERS - JCHAR = INPUT KEY                                 MOD 5430
CC-                                                                     MOD 5440
CC-   **  ACCEPTS VARIABLE UNITS ON PRESS AND TEMP                      MOD 5450
CC-                                                                     MOD 5460
CC-     JCHAR(1)                                                        MOD 5470
CC-                                                                     MOD 5480
CC-    " ",A           PRESSURE IN (MB)    OR BLANK                     MOD 5490
CC-        B              "     "  (ATM)                                MOD 5500
CC-        C              "     "  (TORR)                               MOD 5510
CC-       1-6          DEFAULT TO SPECIFIED MODEL ATMOSPHERE            MOD 5520
CC-                                                                     MOD 5530
CC-     JCHAR(2)                                                        MOD 5540
CC-    " ",A           AMBIENT TEMPERATURE IN DEG(K)  OR BLANK          MOD 5550
CC-        B              "         "       "  " (C)                    MOD 5560
CC-       1-6          DEFAULT TO SPECIFIED MODEL ATMOSPHERE            MOD 5570
CC-                                                                     MOD 5580
CC-   ****************************************************************  MOD 5590
CC-   FOR MOLECULAR SPECIES ONLY                                        MOD 5600
CC-                                                                     MOD 5610
CC-     JCHAR             JCHAR(3-13)                                   MOD 5620
CC-                                                                     MOD 5630
CC-   " ",A            VOLUME MIXING RATIO (PPMV)                       MOD 5640
CC-       B            NUMBER DENSITY (CM-3)                            MOD 5650
CC-       C            MASS MIXING RATIO (GM(K)/KG(AIR))                MOD 5660
CC-       D            MASS DENSITY (GM M-3)                            MOD 5670
CC-       E            PARTIAL PRESSURE (MB)                            MOD 5680
CC-       F            DEW POINT TEMP (TD IN T(K)) - H2O ONLY           MOD 5690
CC-       G             "    "     "  (TD IN T(C)) - H2O ONLY           MOD 5700
CC-       H            RELATIVE HUMIDITY (RH IN PERCENT) - H2O ONLY (3) MOD 5710
CC-       I            AVAILABLE FOR USER DEFINITION                    MOD 5720
CC-      1-6           DEFAULT TO SPECIFIED MODEL ATMOSPHERE            MOD 5730
CC-                                                                     MOD 5740
CC-   ****************************************************************  MOD 5750
CC-                                                                     MOD 5760
CC-   CARD 2C2   (WMOL(J),J=4,11)                                       MOD 5770
CC-   VARIABLES  WN2O,WCO,WCH4,WO2,WNO,WSO2,WNO2,WNH3                   MOD 5780
CC-                        FORMAT(8E10.3)                               MOD 5790
CC-                                                                     MOD 5800
CC-   CARD 2C2   WMOL(12)             (CONT)                            MOD 5810
CC-   VARIABLE   WHNO3                                                  MOD 5820
CC-                        FORMAT(8E10.3)                               MOD 5830
CC-                                                                     MOD 5840
CC-                                                                     MOD 5850
CC-   WMOL     READ, INTERPRETED AND MOVED INTO LAYER VARIABLES         MOD 5860
CC-   WN2O =   N2O                                                      MOD 5870
CC-   WCO  =   CO                                                       MOD 5880
CC-   WCH4 =   CH4                                                      MOD 5890
CC-   WO2  =   O2                                                       MOD 5900
CC-   WNO  =   NO                                                       MOD 5910
CC-   WSO2 =   SO2                                                      MOD 5920
CC-   WNO2 =   NO2                                                      MOD 5930
CC-   WNH3 =   NH3                                                      MOD 5940
CC-   WHNO3 =  HNO3                                                     MOD 5950
CC-                                                                     MOD 5960
CC-   ****************************************************************  MOD 5970
CC-                                                                     MOD 5980
CC- CARD 2C3     AHAZE,EQLWCZ,RRATZ,IHA1,ICLD1,IVUL1,ISEA1,ICHR         MOD 5990
CC-                        FORMAT(10X,3F10.3,5I5)                       MOD 6000
CC-                                                                     MOD 6010
CC-  'AHAZE' AEROSOL SCALING FACTOR (EQUAL TO THE VISIBLE [0.55UM]      MOD 6020
CC-          EXTINCTION COEFFICIENT AT ALTZ)                            MOD 6030
CC-                                                                     MOD 6040
CC-          [NOTE ** ONE OF AHAZE OR EQLWCZ IS ALLOWED ]               MOD 6050
CC-                                                                     MOD 6060
CC-  'EQLWCZ' EQUIVALENT LIQUID WATER CONTENT ( GM/M3) AT ALT Z         MOD 6070
CC-           FOR THE AEROSOL, CLOUD OR FOG MODELS                      MOD 6080
CC-                                                                     MOD 6090
CC-   RRATZ=RAIN RATE (MM/HR) AT ALT Z                                  MOD 6100
CC-                                                                     MOD 6110
CC-   'IHA1' AEROSOL EXTINCTION AND METEOROLOGICAL RANGE CONTROL FOR    MOD 6120
CC-          THE ALTITUDE, Z                                            MOD 6130
CC-                                                                     MOD 6140
CC-   'ICLD1' CLOUD EXTINCTION CONTROL FOR THE ALTITUDE, Z              MOD 6150
CC-                                                                     MOD 6160
CC-   WHEN USING 'ICLD1' IT IS NECESSARY TO SET 'ICLD' (NON ZERO)       MOD 6170
CC-                                                                     MOD 6180
CC-   'IVUL1' STRATOSPHERIC AEROSOL PROFILE AND EXTINCTION CONTROL FOR  MOD 6190
CC-   THE ALTITUDE Z                                                    MOD 6200
CC-                                                                     MOD 6210
CC-   ONLY ONE OF 'IHA1','ICLD1' OR 'IVUL1' IS ALLOWED                  MOD 6220
CC-   IF 'IHA1' NE 0  THEN OTHERS IGNORED                               MOD 6230
CC-   IF 'IHA1' EQ 0 AND 'ICLD1' NE 0 THEN USE 'ICLD1'                  MOD 6240
CC-                                                                     MOD 6250
CC-   IF 'AHAZE' AND 'EQLWCZ' ARE BOTH ZERO  DEFAULT PROFILE LOADED     MOD 6260
CC-      FROM 'IHAZ1','ICLD1','IVUL1'                                   MOD 6270
CC-                                                                     MOD 6280
CC-   'ISEA1'  AEROSOL SEASON CONTROL FOR THE ALTITUDE,Z                MOD 6290
CC-                                                                     MOD 6300
CC-   'ICHR '  CHANGE PROFILE REGION  AT ALTITUDE Z                     MOD 6310
CC-            USED WHEN IHA1 IS 7 IN TWO ADJACENT ALTITUDE REGIMES     MOD 6320
CC-                                                                     MOD 6330
CC------------- END ML LOOP                                             MOD 6340
C***********************************************************************MOD 6350
C                                                                       MOD 6360
C   IHAZE = 7 OR ICLD = 11 INPUT                                        MOD 6370
C                                                                       MOD 6380
C   CARD 2D  (IREG(II),II=1,4)                                          MOD 6390
C                        FORMAT(4I5)                                    MOD 6400
C                                                                       MOD 6410
C             'IREG' SPECIFIES WHICH OF THE FOUR AEROSOL REGIONS        MOD 6420
C              A USER DEFINED AEROSOL MODEL IS USED (IHAZE=7/ICLD=11)   MOD 6430
C                                                                       MOD 6440
C             [NOTE   REGIONS DEFAULT TO                                MOD 6450
C             0-2 ,3-10,11-30,35-100 KM                                 MOD 6460
C             AND CAN BE OVERRIDDEN WITH 'IHA1' SETTINGS IN MODEL 7]    MOD 6470
C                                                                       MOD 6480
C             IREG = 0  USE DEFAULT VALUES FOR THIS REGION              MOD 6490
C                                                                       MOD 6500
C             IREG = 1  READ EXTINCTION ABSORPTION ASYMMETRY            MOD 6510
C             FOR A REGION                                              MOD 6520
C                                                                       MOD 6530
C   CARD 2D1 AWCCON,TITLE                                               MOD 6540
C                        FORMAT(E10.3,18A4)                             MOD 6550
C                                                                       MOD 6560
C            'AWWCON' EQUIVALENT LIQUID WATER CONTENT(GM/M3)            MOD 6570
C             FOR A REGION                                              MOD 6580
C                                                                       MOD 6590
C             'TITLE' FOR A AEROSOL REGION                              MOD 6600
C                                                                       MOD 6610
C    CARD 2D2 (VX(I),EXTC(N,I),ABSC(N,I),ASYM(N,I),I=1,47)              MOD 6620
C                   FORMAT(4(F6.2,2F7.5,F6.4))                          MOD 6630
C                                                                       MOD 6640
C             WHERE  N = IREG(II)   FOR UP TO 4 ALTITUDE REGIONS        MOD 6650
C             USER DEFINED AEROSOL  OR CLOUD EXTINCTION AND ABSORPTION  MOD 6660
C              COEFFICIENTS WHEN IHAZE = 7 OR ICLD = 11                 MOD 6670
C                                                                       MOD 6680
C     VX(I)    = WAVELENGTH OF AEROSOL COEFFICIENT                      MOD 6690
C                   (NOT USED BY PROGRAM BUT CORRESPONDING TO           MOD 6700
C                   WAVELENGTHS DEFINED IN ARRAY VX2                    MOD 6710
C                   IN SUBROUTINE EXTDTA)                               MOD 6720
C                                                                       MOD 6730
C     EXTC(N,I) = AEROSOL EXTINCTION COEFFICIENT                        MOD 6740
C     ABSC(N,I) = AEROSOL ABSORPTION COEFFICIENT                        MOD 6750
C     ASYM(N,I) = AEROSOL ASYMMETRY PARAMETER                           MOD 6760
C     WHERE  N = IREG(II)   FOR UP TO 4 ALTITUDE REGIONS                MOD 6770
C                                                                       MOD 6780
C***********************************************************************MOD 6790
C                                                                       MOD 6800
C     CARD 3    H1,H2,ANGLE,RANGE,BETA,RO,LEN    FORMAT(6F10.3,I5)      MOD 6810
C            USED TO DEFINE THE GEOMETRICAL PATH PARAMETERS FOR A GIVEN MOD 6820
C            PROBLEM.                                                   MOD 6830
C                                                                       MOD 6840
C     OR IF IEMSCT=3 ; CARD 3 H1,H2,ANGLE,IDAY,RO,ISOURC,ANGLEM         MOD 6850
C                                                                       MOD 6860
C     H1  =  INITIAL ALTITUDE(KM)                                       MOD 6870
C     H2  =  FINAL ALTITUDE(KM)                                         MOD 6880
C                                                                       MOD 6890
C                   IN THE RADIANCE MODE OF THE PROGRAM EXECUTION       MOD 6900
C            H1, THE INITIAL ALTITUDE,ALWAYS DEFINES THE POSITION OF    MOD 6910
C            THE OBSERVER (OR SENSOR).                                  MOD 6920
C                                                                       MOD 6930
C     ANGLE =INITIAL ZENITH ANGLE (DEGREES) AS MEASURED FROM H1         MOD 6940
C     [NOTE: ANGLE = 0 LOOKS STRAIGHT UP.                               MOD 6950
C            ANGLE IS DEFINED  FROM 0 TO 180 DEGREES ]                  MOD 6960
C                                                                       MOD 6970
C     RANGE =PATH LENGTH (KM)                                           MOD 6980
C     BETA  =EARTH CENTER ANGLE SUBTENDED BY H1 AND H2 (DEGREES)        MOD 6990
C                                                                       MOD 7000
C     RO =   RADIUS OF THE EARTH (KM) AT THE PARTICULAR GEOGRAPHICAL    MOD 7010
C            LOCATION AT WHICH THE CALCULATION IS TO BE PERFORMED.      MOD 7020
C              IF RO BLANK PROGRAM USES RADIUS FOR APPROPRIATE MODEL    MOD 7030
C              ATMOSPHERE. (MODEL 0 OR 7 DEFAULT = 6371.23 KM)          MOD 7040
C                                                                       MOD 7050
C     LEN =0 FOR NORMAL OPERATION OF PROGRAM                            MOD 7060
C         =1 LONG PATH THROUGH THE TANGENT HEIGHT                       MOD 7070
C                                                                       MOD 7080
C            IT IS NOT NECESSARY TO SPECIFY EVERY QUANTITY GIVEN ABOVE  MOD 7090
C            ONLY THOSE THAT ADEQUATELY DESCRIBE THE PROBLEM ACCORDING  MOD 7100
C            TO THE PARAMETER ITYPE                                     MOD 7110
C                                                                       MOD 7120
C            ITYPE=1 READ H1,RANGE                                      MOD 7130
C                 =2 READ H1,H2,ANGLE   OR H1,H2,RANGE   OR H1,H2,BETA  MOD 7140
C                    OR H1,ANGLE,RANGE                                  MOD 7150
C                 =3 READ H1,ANGLE OR H1,H2                             MOD 7160
C                    [NOTE: H2 IS INTERPRETED AS HMIN FOR THIS CASE]    MOD 7170
C                                                                       MOD 7180
C--------------                                                         MOD 7190
C     CARD 3    OPTION  IEMSCT = 3                                      MOD 7200
C    'IDAY'     DAY OF THE YEAR, I.E. FROM 1 TO 365  (IEMSCT = 3)       MOD 7210
C                                                                       MOD 7220
C     ISOURC=0  EXTRATERRESTRIAL SOURCE IS THE SUN                      MOD 7230
C           =1  EXTRATERRESTRIAL SOURCE IS THE MOON                     MOD 7240
C                                                                       MOD 7250
C     ANGLEM=PHASE ANGLE OF THE MOON, I.E. THE ANGLE FORMED             MOD 7260
C            BY THE SUN, MOON AND EARTH (REQUIRED IF ISOURC=1)          MOD 7270
C                                                                       MOD 7280
C***********************************************************************MOD 7290
C                                                                       MOD 7300
C     CARD 3A1   IPARM,IPH,IDAY,ISOURC           (IEMSCT=2)             MOD 7310
C                          FORMAT(4I5)                                  MOD 7320
C              INPUT CARD FOR SOLAR/LUNAR SCATTERED RADIATION WHEN      MOD 7330
C              IEMSCT = 2                                               MOD 7340
C                                                                       MOD 7350
C              IPARM =0,1,2 AND CONTROLS THE METHOD OF SPECIFYING THE   MOD 7360
C              SOLAR/LUNAR GEOMETRY ON CARD 3A2.                        MOD 7370
C                     (SEE DEFINITION BELOW FOR CARD 3A2)               MOD 7380
C                                                                       MOD 7390
C              IPH DETERMINES THE TYPE OF PHASE FUNCTION USED IN THE    MOD 7400
C               CALCULATION                                             MOD 7410
C                                                                       MOD 7420
C     IPH=0     HENYEY-GREENSTEIN AEROSOL PHASE FUNCTION                MOD 7430
C        =1     USER SUPPLIED AEROSOL PHASE FUNCTION (SEE CARD 3B)      MOD 7440
C        =2     MIE GENERATED DATA BASE OF AEROSOL PHASE FUNCTIONS FOR  MOD 7450
C               THE LOWTRAN MODELS.                                     MOD 7460
C                                                                       MOD 7470
C     IDAY=     DAY OF THE YEAR, I.E. FROM 1 TO 365   (REQUIRED)        MOD 7480
C                                                                       MOD 7490
C     ISOURC=0  EXTRATERRESTRIAL SOURCE IS THE SUN                      MOD 7500
C           =1  EXTRATERRESTRIAL SOURCE IS THE MOON                     MOD 7510
C                                                                       MOD 7520
C***********************************************************************MOD 7530
C                                                                       MOD 7540
C     CARD 3A2  PARM1,PARM2,PARM3,PARM4,TIME,PSIPO,ANGLEM,G             MOD 7550
C                          FORMAT(8F10.3)                (IEMSCT=2)     MOD 7560
C              INPUT CARD FOR SOLAR/LUNAR SCATTERED RADIATION WHEN      MOD 7570
C              IEMSCT = 2                                               MOD 7580
C              DEFINITIONS OF PARM1,PARM2,PARM3,PARM4 DETERMINED BY     MOD 7590
C              VALUE OF IPARM ON CARD 3A1.                              MOD 7600
C                                                                       MOD 7610
C                       FOR IPARM=0                                     MOD 7620
C                                                                       MOD 7630
C     PARM1= OBSERVER LATITUDE (-90 TO +90)                             MOD 7640
C          NOTE- IF ABS(PARM1) IS GREATER THAN 89.5 THE OBSERVER IS     MOD 7650
C          ASSUMED TO BE AT EITHER THE NORTH OR THE SOUTH POLE.  IN     MOD 7660
C          THAT CASE THE PATH AZIMUTH IS UNDEFINED.  THE DIRECTION OF   MOD 7670
C          LINE OF SIGHT MUST BE SPECIFIED AS THE LONGITUDE ALONG WHICH MOD 7680
C          THE PATH LIES. THIS QUANTITY RATHER THAN THE USUAL AZIMUTH   MOD 7690
C          IS READ IN                                                   MOD 7700
C     PARM2= OBSERVER LONGITUDE (0 TO 360)                              MOD 7710
C     PARM3= SOURCE (SUN OR MOON) LATITUDE                              MOD 7720
C     PARM4= SOURCE (SUN OR MOON) LONGITUDE                             MOD 7730
C                                                                       MOD 7740
C                       FOR IPARM=1                                     MOD 7750
C        (IDAY AND TIME MUST BE SPECIFIED,CANNOT BE USED WITH ISOURC=1) MOD 7760
C                                                                       MOD 7770
C                                                                       MOD 7780
C     PARM1= OBSERVER LATITUDE (-90 TO +90)                             MOD 7790
C     PARM2= OBSERVER LONGITUDE (0 TO 360)                              MOD 7800
C             PARM3,PARM4 ARE NOT REQUIRED                              MOD 7810
C                                                                       MOD 7820
C     [NOTE: THAT THE CALCULATED APPARENT SOLAR ZENITH                  MOD 7830
C            ANGLE IS THE ZENITH ANGLE AT H1 OF THE REFRACTED           MOD 7840
C            PATH TO THE SUN AND IS LESS THAN THE ASTRONOMICAL          MOD 7850
C            SOLAR ZENITH ANGLE.  THE DIFFERENCE BETWEEN THE            MOD 7860
C            TWO ANGLES IS NEGLIGIBLE FOR ANGLES LESS THAN 80           MOD 7870
C            DEGREES.]                                                  MOD 7880
C                                                                       MOD 7890
C                        FOR IPARM=2                                    MOD 7900
C                                                                       MOD 7910
C     PARM1= AZIMUTHAL ANGLE BETWEEN THE OBSERVER'S LINE OF SIGHT       MOD 7920
C            AND THE OBSERVER-TO-SUN PATH, MEASURED FROM THE LINE       MOD 7930
C            OF SIGHT, POSITIVE EAST OF NORTH, BETWEEN -180 AND 180     MOD 7940
C     PARM2= THE SUN'S ZENITH ANGLE                                     MOD 7950
C                                                                       MOD 7960
C              PARM3,PARM4 ARE NOT REQUIRED                             MOD 7970
C                                                                       MOD 7980
C                                                                       MOD 7990
C              REMAINING CONTROL PARAMETERS                             MOD 8000
C                                                                       MOD 8010
C     TIME=  GREENWICH TIME IN DECIMAL HOURS, I.E. 8:45 AM IS 8.75,     MOD 8020
C            5:20 PM IS 17.33 ETC. (USED WITH IPARM = 1)                MOD 8030
C                                                                       MOD 8040
C     PSIPO= PATH AZIMUTH (DEGREES EAST OF NORTH, I.E. DUE NORTH IS 0.0 MOD 8050
C            DUE EAST IS 90.0 ETC.  (USED WITH IPARM = 0 OR 1)          MOD 8060
C                                                                       MOD 8070
C     ANGLEM=PHASE ANGLE OF THE MOON, I.E. THE ANGLE FORMED             MOD 8080
C            BY THE SUN, MOON AND EARTH (REQUIRED IF ISOURC=1)          MOD 8090
C                                                                       MOD 8100
C     G=     ASYMMETRY FACTOR FOR USE WITH HENYEY-GREENSTEIN            MOD 8110
C            PHASE FUNCTION (USED WITH IPH = 0)                         MOD 8120
C                                                                       MOD 8130
C***********************************************************************MOD 8140
C     CARD 3B1 NANGLS          (IPH=1)                                  MOD 8150
C                   FORMAT(I5)                                          MOD 8160
C                                                                       MOD 8170
C              INPUT CARD FOR USER DEFINED PHASE FUNCTIONS WHEN IPH=1.  MOD 8180
C                                                                       MOD 8190
C     NANGLS=  NUMBER OF ANGLES FOR THE USER DEFINED PHASE              MOD 8200
C              FUNCTIONS(MAXIMUM OF 50)                                 MOD 8210
C                                                                       MOD 8220
C***********************************************************************MOD 8230
C                                                                       MOD 8240
C     CARD 3B2(1 TO NANGLS)    (IPH=1)                                  MOD 8250
C             (ANGF(I),F(1,I),F(2,I),F(3,I),F(4,I),I=1,NANGLS)          MOD 8260
C                   FORMAT(5E10.3)                                      MOD 8270
C              INPUT CARD FOR USER DEFINED PHASE FUNCTION WHEN IPH=1.   MOD 8280
C              FOR AVERAGE FREQUENCY OF CALCULATION                     MOD 8290
C                                                                       MOD 8300
C     ANGF(I)= PHASE ANGLE IN DECIMAL DEGREES                           MOD 8310
C                   (0.0 TO 180.0)                                      MOD 8320
C                                                                       MOD 8330
C     F(1,I)=  USER DEFINED PHASE FUNCTION AT ANGF(I)                   MOD 8340
C              BOUNDARY LAYER DEFAULTS TO (0 TO 2KM))                   MOD 8350
C                                                                       MOD 8360
C     F(2,I)=  USER DEFINED PHASE FUNCTION AT ANGF(I)                   MOD 8370
C              TROPOSPHERE DEFAULTS TO (2 TO 10 KM)                     MOD 8380
C                                                                       MOD 8390
C     F(3,I)=  USER DEFINED PHASE FUNCTION AT ANGF(I)                   MOD 8400
C              STRATOSPHERE DEFAULTS TO (10 TO 30 KM)                   MOD 8410
C                                                                       MOD 8420
C     F(4,I)=  USER DEFINED PHASE FUNCTION AT ANGF(I)                   MOD 8430
C              MESOSPHERE DEFAULTS TO (30 TO 100 KM)                    MOD 8440
C                                                                       MOD 8450
C***********************************************************************MOD 8460
C                                                                       MOD 8470
C     CARD 4    V1, V2, DV                       FORMAT(3F10.3)         MOD 8480
C                                                                       MOD 8490
C              THE SPECTRAL RANGE OVER WHICH DATA ARE REQUIRED AND      MOD 8500
C              THE SPECTRAL INCREMENTS AT WHICH THE DATA ARE TO BE      MOD 8510
C              CALCULATED  IS DETERMINED BY CARD 4.                     MOD 8520
C                                                                       MOD 8530
C     V1 =     INITIAL FREQUENCY (WAVENUMBER CM-1 )                     MOD 8540
C     V2 =     FINAL FREQUENCY(WAVENUMBER CM-1 )                        MOD 8550
C     DV =     FREQUENCY INCREMENT (OR STEP SIZE) (CM-1)                MOD 8560
C              NOTE: DV MUST BE A MULTIPLE OF 5 CM-1                    MOD 8570
C              ANY STEP SIZE .GT. 5 CM-1 WILL UNDERSAMPLE THE RESULTS   MOD 8580
C                                                                       MOD 8590
C              SCANNING FUNCTION IS AVAILABLE TO PROPERLY HANDLE DATA   MOD 8600
C              WITH LOWER RESOLUTION THAN 20CM-1 LOWTRAN 7              MOD 8610
C                                                                       MOD 8620
C***********************************************************************MOD 8630
C                                                                       MOD 8640
C     CARD 5    IRPT                             FORMAT(I5)             MOD 8650
C     IRPT=0  TO END PROGRAM                                            MOD 8660
C         =1  READ ALL DATA CARDS (1,2,3,4,5)                           MOD 8670
C         =2  NOT USED  (WILL STOP PROGRAM)                             MOD 8680
C         =3  READ CARD 3   THE GEOMETRY CARD AND CARD 5                MOD 8690
C         =4  READ CARD 4 TO CHANGE FREQUENCY AND CARD 5                MOD 8700
C     GT 4 OR IRPT=2 WILL CAUSE PROGRAM TO STOP                         MOD 8710
C                                                                       MOD 8720
C     IRPT GE 1 USED FOR MULTIPLE RUNS OF LOWTRAN                       MOD 8730
C     WARNING IRPT 3 CANNOT BE USED WHEN RUNNING MULTIPLE SCATTERING    MOD 8740
C     CASES WITH SOLAR SCATTERING                                       MOD 8750
C                                                                       MOD 8760
C     REFERENCES                                                        MOD 8770
C                                                                       MOD 8780
C       (1980) ATMOSPHERIC TRANSMITTANCE/RADIANCE- COMPUTER CODE        MOD 8790
C       LOWTRAN 5 AFGL-TR-80-0067                                       MOD 8800
C       KNEIZYS, F. X.,SHETTLE, E. P. ,GALLERY, W. O.,CHETWYND, J. H.,  MOD 8810
C       ABREU, L. W., SELBY, J. E. A., FENN, R. W. ,MCCLATCHEY R. A.    MOD 8820
C                                                                       MOD 8830
C       (1983) ATMOSPHERIC TRANSMITTANCE/RADIANCE- COMPUTER CODE        MOD 8840
C       LOWTRAN 6  AFGL TR 83 0187                                      MOD 8850
C       KNEIZYS, F. X.,SHETTLE, E. P. ,GALLERY, W. O.,CHETWYND, J. H.,  MOD 8860
C       ABREU, L. W., SELBY, J. E. A., CLOUGH, S. A., FENN, R. W.       MOD 8870
C                                                                       MOD 8880
C       (1988) ATMOSPHERIC TRANSMITTANCE/RADIANCE- COMPUTER CODE        MOD 8890
C       LOWTRAN 7 AFGL-TR-88-XXXX                                       MOD 8900
C       KNEIZYS, F. X.,SHETTLE, E. P. ,ANDERSON G. P.,ABREU ,L. W.      MOD 8910
C       CHETWYND, J H,SELBY, J. E. A. ,CLOUGH, S. A.,GALLERY, W. O      MOD 8920
C                                                                       MOD 8930
C       (1988) LOWTRAN 7 COMPUTER CODE : USER'S MANUAL AFGL-TR-88-XXXX  MOD 8940
C       KNEIZYS, F. X.,SHETTLE, E. P. ,ANDERSON G. P.,ABREU ,L. W.      MOD 8950
C       CHETWYND, J H,SELBY, J. E. A. ,CLOUGH, S. A.,GALLERY, W. O      MOD 8960
C                                                                       MOD 8970
C       MOLECULAR TRANSMISSION BAND MODELS FOR LOWTRAN AFGL-TR-86-0272  MOD 8980
C       PIERLUISSI, J. H., MARAGOUDAKIS, C. E.                          MOD 8990
C                                                                       MOD 9000
C       MULTIPLE SCATTERING TREATMENT FOR USE IN                        MOD 9010
C       THE LOWTRAN AND FASCODE MODELS  AFGL-TR-86-0073                 MOD 9020
C       ISAACS, R. G., WANG, W. C., WORSHAM, R. D.,GOLDENBERG S.        MOD 9030
C                                                                       MOD 9040
C       AFGL ATMOSPHERIC CONSTITUENT PROFILES (0 TO 120KM)              MOD 9050
C                                              AFGL-TR-86-0110          MOD 9060
C       ANDERSON, G. P., CLOUGH, S. A., KNEIZYS, F. X.,                 MOD 9070
C       CHETWYND, J. H., SHETTLE, E. P.                                 MOD 9080
C                                                                       MOD 9090
C       PROGRAM FOR ATMOSPHERIC TRANSMITTANCE RADIANCE/CALCULATIONS     MOD 9100
C       FSCATM                                  AFGL-TR-83-0065         MOD 9110
C       GALLERY, W. O., KNEIZYS, F. X., AND CLOUGH, S. A.               MOD 9120
C                                                                       MOD 9130
C       AFGL HANDBOOK OF GEOPHYSICS AND THE SPACE ENVIRONMENT           MOD 9140
C       EDITOR, A. S. JURSA  CHAPTER 18 1985                            MOD 9150
C                                                                       MOD 9160
C       MODELS OF THE AEROSOLS OF THE LOWER ATMOSPHERE AND THE EFFECTS  MOD 9170
C       OF HUMIDITY VARIATIONS ON THEIR OPTICAL PROPERTIES              MOD 9180
C       SHETTLE, E.P. AND FENN, R. W.            AFGL-TR-79-0214        MOD 9190
C                                                                       MOD 9200
C       OPTICAL PROPAGATION IN THE ATMOSPHERE    AGARD-CP-183  1975     MOD 9210
C       SHETTLE, E. P., AND FENN, R. W.          NTIS (NO AD-A028-615)  MOD 9220
C                                                                       MOD 9230
C                                                                       MOD 9240
C       ATMOSPHERIC ATTENUATION OF MILLIMETER AND SUBMILLIMETER         MOD 9250
C       WAVES:  MODEL AND COMPUTER CODE          AFGL-TR-79-0253        MOD 9260
C       FALCONE,V. J. JR.,ABREU,L. W. AND SHETTLE, E. P.                MOD 9270
C                                                                       MOD 9280
C       LOWTRAN  PLUS ULTRAVIOLET O2 ABSORPTION                         MOD 9290
C                                                                       MOD 9300
C       REFERENCES- JOHNSTON, ET AL, J GEOPHYS RES, 89,11661-11665,1984.MOD 9310
C                                                                       MOD 9320
C       FREQUENCY RANGE: 50000-36000CM-1 FOR HERZBERG CALCULATION       MOD 9330
C                                                                       MOD 9340
C       THE SCHUMANN-RUNGE BANDS (PARTICULARLY THE 1,0 AND 0,0) ARE NOT MOD 9350
C       INCLUDED IN THE CALCULATIONS (50000 AND 49400 CM-1).            MOD 9360
C       THE HERZBERG BANDS ARE APPROXIMATED BY AN EXTRAPOLATION OF THE  MOD 9370
C       HERZBERG CONTINUUM (41322-36000 CM-1).                          MOD 9380
C                                                                       MOD 9390
C***********************************************************************MOD 9400
      CALL DRIVER                                                       MOD 9410
      STOP                                                              MOD 9420
C@    END                                                               MOD 9430
C@    THE FOLLOWING TIME AND DATE SUBROUTINES APPLY TO A CDC 6600       MOD 9440
C@    SUBROUTINE FDATE(HDATE)                                           MOD 9450
C@    CALL DATE(GDATE)                                                  MOD 9460
C@    HDATE=SHIFT(GDATE,6)                                              MOD 9470
C@    RETURN                                                            MOD 9480
C@    END                                                               MOD 9490
C@    SUBROUTINE FCLOCK(HTIME)                                          MOD 9500
C@    CALL CLOCK(GTIME)                                                 MOD 9510
C@    HTIME=SHIFT(GTIME,6)                                              MOD 9520
C@    RETURN                                                            MOD 9530
      END                                                               MOD 9540
      FUNCTION   AB(WAVL,A,CEN,B,C)                                     AB   100
CCC                                                                     AB   110
CCC    DESCRIBES THE IMAGINARY PART OF THE DIELECTRIC CONSTANT          AB   120
CCC                                                                     AB   130
      AB=-A*EXP(-ABS((ALOG10(10000.*WAVL/CEN)/B))**C)                   AB   140
      RETURN                                                            AB   150
      END                                                               AB   160
      BLOCK DATA ABCD                                                   BAB  100
C>    BLOCK DATA                                                        BAB  105
      COMMON /ABC/ FACTOR(3),ANH3(2),ACO2(10),ACO(3),                   BAB  110
     X             ACH4(4),ANO2(3),AN2O(11),AO2(6),AO3(5),              BAB  120
     X             ASO2(4),AH2O(14),ANO,                                BAB  130
     X             AANH3(2),BBNH3(2),CCNH3(2),                          BAB  140
     X             AACO2(10),BBCO2(10),CCCO2(10),                       BAB  150
     X             AACO(3),BBCO(3),CCCO(3),                             BAB  160
     X             AACH4(4),BBCH4(4),CCCH4(4),                          BAB  170
     X             AANO2(3),BBNO2(3),CCNO2(3),                          BAB  180
     X             AAN2O(11),BBN2O(11),CCN2O(11),                       BAB  190
     X             AAO2(6),BBO2(6),CCO2(6),                             BAB  200
     X             AAO3(5),BBO3(5),CCO3(5),                             BAB  210
     X             AASO2(4),BBSO2(4),CCSO2(4),                          BAB  220
     X             AAH2O(14),BBH2O(14),CCH2O(14),                       BAB  230
     X             AANO     ,BBNO     ,CCNO                             BAB  240
      DATA FACTOR/1.0,0.09,0.015/                                       BAB  250
      DATA ANH3/.4704,.6035/                                            BAB  260
      DATA ACO2/.6176,.6810,.6033,.6146,.6513,.6050,                    BAB  270
     1 .6160,.7070,.7070,.7070/                                         BAB  280
      DATA ACO/.6397,.6133,.6133/                                       BAB  290
      DATA ACH4/.5844,.5844,.5844,.5844/                                BAB  300
      DATA ANO/.6613/                                                   BAB  310
      DATA ANO2/.7249,.7249,.7249/                                      BAB  320
      DATA AN2O/.8997,.7201,.7201,.7201,.7201,.7201,                    BAB  330
     1 .6933,.6933,.6933,.6933,.6933/                                   BAB  340
      DATA AO2/.6011,.5641,.5641,.5641,.5641,.5641/                     BAB  350
      DATA AO3/.8559,.7593,.7819,.9175,.7703/                           BAB  360
      DATA ASO2/.8907,.8466,.8466,.8466/                                BAB  370
      DATA AH2O/.5274,.5299,.5416,.5479,.5495,.5464,.5454,              BAB  380
     1 .5474,.5579,.5621,.5847,.6076,.6508,.6570/                       BAB  390
      DATA AANH3/.285772,.134244/                                       BAB  400
      DATA BBNH3/.269839,.353937/                                       BAB  410
      DATA CCNH3/19.9507,27.8458/                                       BAB  420
      DATA AACO2/.120300,.069728,.134448,.123189,.090948,               BAB  430
     1 .132717,.121835,.054348,.054348,.054348/                         BAB  440
      DATA BBCO2/.348172,.303510,.354002,.349583,.327160,               BAB  450
     1 .353435,.348936,.280674,.280674,.280674/                         BAB  460
      DATA CCCO2/29.4277,37.0842,27.8241,29.0834,33.4608,               BAB  470
     1 28.0093,29.2436,40.1951,40.1951,40.1951/                         BAB  480
      DATA AACO/.100401,.124454,.124454/                                BAB  490
      DATA BBCO/.335296,.350165,.350165/                                BAB  500
      DATA CCCO/32.0496,28.9354,28.9354/                                BAB  510
      DATA AACH4/.154447,.154447,.154447,.154447/                       BAB  520
      DATA BBCH4/.357657,.357657,.357657,.357657/                       BAB  530
      DATA CCCH4/25.8920,25.8920,25.8920,25.8920/                       BAB  540
      DATA AANO/.083336/                                                BAB  550
      DATA BBNO/.319585/                                                BAB  560
      DATA CCNO/34.6834/                                                BAB  570
      DATA AANO2/.045281,.045281,.045281/                               BAB  580
      DATA BBNO2/.264248,.264248,.264248/                               BAB  590
      DATA CCNO2/42.2784,42.2784,42.2784/                               BAB  600
      DATA AAN2O/.001679,.047599,.047599,.047599,.047599,               BAB  610
     1 .047599,.062106,.062106,.062106,.062106,.062106/                 BAB  620
      DATA BBN2O/.095621,.268696,.268696,.268696,.268696,               BAB  630
     1 .268696,.292891,.292891,.292891,.292891,.292891/                 BAB  640
      DATA CCN2O/59.3660,41.7251,41.7251,41.7251,41.7251,               BAB  650
     1 41.7251,38.5667,38.5667,38.5667,38.5667,38.5667/                 BAB  660
      DATA AAO2/.136706,.177087,.177087,.177087,.177087,.177087/        BAB  670
      DATA BBO2/.354683,.355447,.355447,.355447,.355447,.355447/        BAB  680
      DATA CCO2/27.5869,24.1314,24.1314,24.1314,24.1314,24.1314/        BAB  690
      DATA AAO3/.006712,.030870,.023278,.000458,.027004/                BAB  700
      DATA BBO3/.138026,.231722,.209952,.078492,.221153/                BAB  710
      DATA CCO3/55.6442,46.1189,48.5155,60.7802,47.2982/                BAB  720
      DATA AASO2/.002468,.008192,.008192,.008192/                       BAB  730
      DATA BBSO2/.104307,.147065,.147065,.147065/                       BAB  740
      DATA CCSO2/58.6298,54.8078,54.8078,54.8078/                       BAB  750
      DATA AAH2O/.219312,.216415,.206349,.196196,.194540,.198500,       BAB  760
     1 .198500,.196196,.184148,.179360,.154120,.130095,.091341,.086549/ BAB  770
      DATA BBH2O/.334884,.336904,.343272,.348610,.349810,.347498,       BAB  780
     1 .347498,.348610,.353429,.354864,.357640,.352497,.327526,.322898/ BAB  790
      DATA CCH2O/21.8352,21.9588,22.4234,22.9517,23.0750,22.8262,       BAB  800
     1 22.8262,22.9517,23.6654,23.9774,25.9207,28.2957,33.3998,34.1575/ BAB  810
      END                                                               BAB  820
      SUBROUTINE ABCDTA(IV)                                             ABC  100
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            ABC  110
C     COMMON             WPATH(68, 63),TBBY(68)                         ABC* 112
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   ABC 112A
      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),VX2(47),AWCCON(5)         ABC* 114
C                                                                       ABC  120
      COMMON /ABC/ FACTOR(3),ANH3(2),ACO2(10),ACO(3),                   ABC  130
     X             ACH4(4),ANO2(3),AN2O(11),AO2(6),AO3(5),              ABC  140
     X             ASO2(4),AH2O(14),ANO,                                ABC  150
     X             AANH3(2),BBNH3(2),CCNH3(2),                          ABC  160
     X             AACO2(10),BBCO2(10),CCCO2(10),                       ABC  170
     X             AACO(3),BBCO(3),CCCO(3),                             ABC  180
     X             AACH4(4),BBCH4(4),CCCH4(4),                          ABC  190
     X             AANO2(3),BBNO2(3),CCNO2(3),                          ABC  200
     X             AAN2O(11),BBN2O(11),CCN2O(11),                       ABC  210
     X             AAO2(6),BBO2(6),CCO2(6),                             ABC  220
     X             AAO3(5),BBO3(5),CCO3(5),                             ABC  230
     X             AASO2(4),BBSO2(4),CCSO2(4),                          ABC  240
     X             AAH2O(14),BBH2O(14),CCH2O(14),                       ABC  250
     X             AANO     ,BBNO     ,CCNO                             ABC  260
C                                                                       ABC  270
      COMMON /AABBCC/ AA(11),BB(11),CC(11),IBND(11),A(11),CPS(11)       ABC  280
      DIMENSION TJO(10)                                                 ABC  290
      DATA TJO /.9,.8,.7,.6,.5,.4,.3,.2,.1,.02/                         ABC  300
C                                                                       ABC  310
C    MOL                                                                ABC  320
C     1    H2O (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                ABC  330
C     2    CO2 (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                ABC  340
C     3    O3  (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                ABC  350
C     4    N2O (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                ABC  360
C     5    CO  (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                ABC  370
C     6    CH4 (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                ABC  380
C     7    O2  (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                ABC  390
C     8    NO  (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                ABC  400
C     9    SO2 (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                ABC  410
C    10    NO2 (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                ABC  420
C    11    NH3 (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                ABC  430
C                                                                       ABC  440
C  ---H2O                                                               ABC  450
      IMOL = 1                                                          ABC  460
      IW = -1                                                           ABC  470
      IF(IV.GE.     0.AND.IV.LE.   345) IW = 17                         ABC  480
      IF(IV.GE.   350.AND.IV.LE.  1000) IW = 18                         ABC  490
      IF(IV.GE.  1005.AND.IV.LE.  1640) IW = 19                         ABC  500
      IF(IV.GE.  1645.AND.IV.LE.  2530) IW = 20                         ABC  510
      IF(IV.GE.  2535.AND.IV.LE.  3420) IW = 21                         ABC  520
      IF(IV.GE.  3425.AND.IV.LE.  4310) IW = 22                         ABC  530
      IF(IV.GE.  4315.AND.IV.LE.  6150) IW = 23                         ABC  540
      IF(IV.GE.  6155.AND.IV.LE.  8000) IW = 24                         ABC  550
      IF(IV.GE.  8005.AND.IV.LE.  9615) IW = 25                         ABC  560
      IF(IV.GE.  9620.AND.IV.LE. 11540) IW = 26                         ABC  570
      IF(IV.GE. 11545.AND.IV.LE. 13070) IW = 27                         ABC  580
      IF(IV.GE. 13075.AND.IV.LE. 14860) IW = 28                         ABC  590
      IF(IV.GE. 14865.AND.IV.LE. 16045) IW = 29                         ABC  600
      IF(IV.GE. 16340.AND.IV.LE. 17860) IW = 30                         ABC  610
      IBAND = IW - 16                                                   ABC  620
      IBND(IMOL) = IW                                                   ABC  630
      IF(IW .GT.  0) THEN                                               ABC  640
           A(IMOL)  =   AH2O(IBAND)                                     ABC  650
           AA(IMOL)  = AAH2O(IBAND)                                     ABC  660
           BB(IMOL)  = BBH2O(IBAND)                                     ABC  670
           CC(IMOL)  = CCH2O(IBAND)                                     ABC  680
      ENDIF                                                             ABC  690
C  ---O3                                                                ABC  700
      IMOL = 3                                                          ABC  710
      IW = -1                                                           ABC  720
      IF (IV .GE.     0 .AND. IV .LE.   200)  IW = 31                   ABC  730
      IF (IV .GE.   515 .AND. IV .LE.  1275)  IW = 32                   ABC  740
      IF (IV .GE.  1630 .AND. IV .LE.  2295)  IW = 33                   ABC  750
      IF (IV .GE.  2670 .AND. IV .LE.  2845)  IW = 34                   ABC  760
      IF (IV .GE.  2850 .AND. IV .LE.  3260)  IW = 35                   ABC  770
      IBAND      = IW - 30                                              ABC  780
      IBND(IMOL) = IW                                                   ABC  790
      IF(IW .GT.  0) THEN                                               ABC  800
           A(IMOL)  =  AO3(IBAND)                                       ABC  810
           AA(IMOL) = AAO3(IBAND)                                       ABC  820
           BB(IMOL) = BBO3(IBAND)                                       ABC  830
           CC(IMOL) = CCO3(IBAND)                                       ABC  840
      ENDIF                                                             ABC  850
C  ---CO2                                                               ABC  860
      IMOL = 2                                                          ABC  870
      IW = -1                                                           ABC  880
      IF (IV .GE.   425 .AND. IV .LE.   835)  IW = 36                   ABC  890
      IF (IV .GE.   840 .AND. IV .LE.  1440)  IW = 37                   ABC  900
      IF (IV .GE.  1805 .AND. IV .LE.  2855)  IW = 38                   ABC  910
      IF (IV .GE.  3070 .AND. IV .LE.  3755)  IW = 39                   ABC  920
      IF (IV .GE.  3760 .AND. IV .LE.  4065)  IW = 40                   ABC  930
      IF (IV .GE.  4530 .AND. IV .LE.  5380)  IW = 41                   ABC  940
      IF (IV .GE.  5905 .AND. IV .LE.  7025)  IW = 42                   ABC  950
      IF((IV .GE.  7395 .AND. IV .LE.  7785) .OR.                       ABC  960
     *   (IV .GE.  8030 .AND. IV .LE.  8335) .OR.                       ABC  970
     *   (IV .GE.  9340 .AND. IV .LE.  9670)) IW = 43                   ABC  980
      IBAND = IW - 35                                                   ABC  990
      IBND(IMOL) = IW                                                   ABC 1000
      IF(IW .GT.  0) THEN                                               ABC 1010
           A(IMOL)  =  ACO2(IBAND)                                      ABC 1020
           AA(IMOL) = AACO2(IBAND)                                      ABC 1030
           BB(IMOL) = BBCO2(IBAND)                                      ABC 1040
           CC(IMOL) = CCCO2(IBAND)                                      ABC 1050
      ENDIF                                                             ABC 1060
C  ---CO                                                                ABC 1070
      IMOL = 5                                                          ABC 1080
      IW = -1                                                           ABC 1090
      IF (IV .GE.     0 .AND. IV .LE.   175) IW = 44                    ABC 1100
      IF((IV .GE.  1940 .AND. IV .LE.  2285) .OR.                       ABC 1110
     *   (IV .GE.  4040 .AND. IV .LE.  4370)) IW = 45                   ABC 1120
      IBAND = IW - 43                                                   ABC 1130
      IBND(IMOL) = IW                                                   ABC 1140
      IF(IW .GT.  0) THEN                                               ABC 1150
           A(IMOL)  =  ACO(IBAND)                                       ABC 1160
           AA(IMOL) = AACO(IBAND)                                       ABC 1170
           BB(IMOL) = BBCO(IBAND)                                       ABC 1180
           CC(IMOL) = CCCO(IBAND)                                       ABC 1190
      ENDIF                                                             ABC 1200
C  ---CH4                                                               ABC 1210
      IMOL = 6                                                          ABC 1220
      IW = -1                                                           ABC 1230
      IF((IV .GE.  1065 .AND. IV .LE.  1775) .OR.                       ABC 1240
     *   (IV .GE.  2345 .AND. IV .LE.  3230) .OR.                       ABC 1250
     *   (IV .GE.  4110 .AND. IV .LE.  4690) .OR.                       ABC 1260
     *   (IV .GE.  5865 .AND. IV .LE.  6135))IW = 46                    ABC 1270
      IBAND = IW - 45                                                   ABC 1280
      IBND(IMOL) = IW                                                   ABC 1290
      IF(IW .GT.  0) THEN                                               ABC 1300
           A(IMOL)  =  ACH4(IBAND)                                      ABC 1310
           AA(IMOL) = AACH4(IBAND)                                      ABC 1320
           BB(IMOL) = BBCH4(IBAND)                                      ABC 1330
           CC(IMOL) = CCCH4(IBAND)                                      ABC 1340
      ENDIF                                                             ABC 1350
C  ---N2O                                                               ABC 1360
      IMOL = 4                                                          ABC 1370
      IW = -1                                                           ABC 1380
      IF (IV .GE.     0 .AND. IV .LE.   120)  IW = 47                   ABC 1390
      IF((IV .GE.   490 .AND. IV .LE.   775) .OR.                       ABC 1400
     *   (IV .GE.   865 .AND. IV .LE.   995) .OR.                       ABC 1410
     *   (IV .GE.  1065 .AND. IV .LE.  1385) .OR.                       ABC 1420
     *   (IV .GE.  1545 .AND. IV .LE.  2040) .OR.                       ABC 1430
     *   (IV .GE.  2090 .AND. IV .LE.  2655)) IW = 48                   ABC 1440
      IF((IV .GE.  2705 .AND. IV .LE.  2865) .OR.                       ABC 1450
     *   (IV .GE.  3245 .AND. IV .LE.  3925) .OR.                       ABC 1460
     *   (IV .GE.  4260 .AND. IV .LE.  4470) .OR.                       ABC 1470
     *   (IV .GE.  4540 .AND. IV .LE.  4785) .OR.                       ABC 1480
     *   (IV .GE.  4910 .AND. IV .LE.  5165)) IW = 49                   ABC 1490
      IBAND = IW - 46                                                   ABC 1500
      IBND(IMOL) = IW                                                   ABC 1510
      IF(IW .GT.  0) THEN                                               ABC 1520
           A(IMOL)  =  AN2O(IBAND)                                      ABC 1530
           AA(IMOL) = AAN2O(IBAND)                                      ABC 1540
           BB(IMOL) = BBN2O(IBAND)                                      ABC 1550
           CC(IMOL) = CCN2O(IBAND)                                      ABC 1560
      ENDIF                                                             ABC 1570
C  ---O2                                                                ABC 1580
      IMOL = 7                                                          ABC 1590
      IW = -1                                                           ABC 1600
      IF (IV .GE.     0 .AND. IV .LE.   265)  IW = 50                   ABC 1610
      IF((IV .GE.  7650 .AND. IV .LE.  8080) .OR.                       ABC 1620
     *   (IV .GE.  9235 .AND. IV .LE.  9490) .OR.                       ABC 1630
     *   (IV .GE. 12850 .AND. IV .LE. 13220) .OR.                       ABC 1640
     *   (IV .GE. 14300 .AND. IV .LE. 14600) .OR.                       ABC 1650
     *   (IV .GE. 15695 .AND. IV .LE. 15955)) IW = 51                   ABC 1660
       IF(IV .GE. 49600 .AND. IV. LE. 52710)  IW = 51                   ABC 1670
      IBAND = IW - 49                                                   ABC 1680
      IBND(IMOL) = IW                                                   ABC 1690
      IF(IW .GT.  0) THEN                                               ABC 1700
           A(IMOL)  =  AO2(IBAND)                                       ABC 1710
           IF(IV .GE. 49600 .AND. IV. LE. 52710)  A(IMOL)  = .4704      ABC 1720
           AA(IMOL) = AAO2(IBAND)                                       ABC 1730
           BB(IMOL) = BBO2(IBAND)                                       ABC 1740
           CC(IMOL) = CCO2(IBAND)                                       ABC 1750
      ENDIF                                                             ABC 1760
C  ---NH3                                                               ABC 1770
      IMOL = 11                                                         ABC 1780
      IW = -1                                                           ABC 1790
      IF (IV .GE.     0 .AND. IV .LE.   385)  IW = 52                   ABC 1800
      IF (IV .GE.   390 .AND. IV .LE.  2150)  IW = 53                   ABC 1810
      IBAND = IW - 51                                                   ABC 1820
      IBND(IMOL) = IW                                                   ABC 1830
      IF(IW .GT.  0) THEN                                               ABC 1840
           A(IMOL)  =  ANH3(IBAND)                                      ABC 1850
           AA(IMOL) = AANH3(IBAND)                                      ABC 1860
           BB(IMOL) = BBNH3(IBAND)                                      ABC 1870
           CC(IMOL) = CCNH3(IBAND)                                      ABC 1880
      ENDIF                                                             ABC 1890
C  ---NO                                                                ABC 1900
      IMOL = 8                                                          ABC 1910
      IW = -1                                                           ABC 1920
      IF (IV .GE.  1700 .AND. IV .LE.  2005) IW  = 54                   ABC 1930
      IBAND = IW - 53                                                   ABC 1940
      IBND(IMOL) = IW                                                   ABC 1950
      IF(IW .GT.  0) THEN                                               ABC 1960
           A(IMOL)  =  ANO                                              ABC 1970
           AA(IMOL) = AANO                                              ABC 1980
           BB(IMOL) = BBNO                                              ABC 1990
           CC(IMOL) = CCNO                                              ABC 2000
      ENDIF                                                             ABC 2010
C  ---NO2                                                               ABC 2020
      IW = -1                                                           ABC 2030
      IMOL = 10                                                         ABC 2040
      IF((IV .GE.   580 .AND. IV .LE.   925) .OR.                       ABC 2050
     *   (IV .GE.  1515 .AND. IV .LE.  1695) .OR.                       ABC 2060
     *   (IV .GE.  2800 .AND. IV .LE.  2970)) IW = 55                   ABC 2070
      IBAND = IW - 54                                                   ABC 2080
      IBND(IMOL) = IW                                                   ABC 2090
      IF(IW .GT.  0) THEN                                               ABC 2100
           A(IMOL)  =  ANO2(IBAND)                                      ABC 2110
           AA(IMOL) = AANO2(IBAND)                                      ABC 2120
           BB(IMOL) = BBNO2(IBAND)                                      ABC 2130
           CC(IMOL) = CCNO2(IBAND)                                      ABC 2140
      ENDIF                                                             ABC 2150
C  ---SO2                                                               ABC 2160
      IMOL = 9                                                          ABC 2170
      IW = -1                                                           ABC 2180
      IF (IV .GE.     0 .AND. IV .LE.   185)  IW = 56                   ABC 2190
      IF((IV .GE.   400 .AND. IV .LE.   650) .OR.                       ABC 2200
     *   (IV .GE.   950 .AND. IV .LE.  1460) .OR.                       ABC 2210
     *   (IV .GE.  2415 .AND. IV .LE.  2580)) IW = 57                   ABC 2220
      IBAND = IW - 55                                                   ABC 2230
      IBND(IMOL) = IW                                                   ABC 2240
      IF(IW .GT.  0) THEN                                               ABC 2250
           A(IMOL)  =  ASO2(IBAND)                                      ABC 2260
           AA(IMOL) = AASO2(IBAND)                                      ABC 2270
           BB(IMOL) = BBSO2(IBAND)                                      ABC 2280
           CC(IMOL) = CCSO2(IBAND)                                      ABC 2290
      ENDIF                                                             ABC 2300
      RETURN                                                            ABC 2310
      END                                                               ABC 2320
      FUNCTION   ABSLIM(TK,AWLWC)                                       ALM  100
CCC                                                                     ALM  110
CCC    FOR CLOUD OR AEROSOL ATTENUATION AS FREQ APPROACHES ZERO         ALM  120
CCC    MODIFIED DEBYE EQUATIONS FROM RAY (1972) APPL. OPTICS VOL 11     ALM  130
CCC                                                                     ALM  140
CCC    ANO= 8.0*10**(-2)  (CM-4)                                        ALM  150
CCC    ALM= 41.*RR**(-0.21)  (CM-1)  RR IN (MM/HR)                      ALM  160
CCC                                                                     ALM  170
      DATA PI/3.14159265/                                               ALM  180
CCC   ANO=0.08                                                          ALM  190
CCC   ALM=41./RR**0.21                                                  ALM  200
      TC=TK-273.15                                                      ALM  210
CCC                                                                     ALM  220
      EFIN=5.27137+.0216474*TC-.00131198*TC*TC                          ALM  230
      ES=78.54*(1.-4.579E-03*(TC-25.)+1.19E-05*                         ALM  240
     1 (TC-25.)**2-2.8E-08*(TC-25.)**3)                                 ALM  250
      SLAMBD=3.3836E-04*EXP(2513.98/TK)                                 ALM  260
CCC                                                                     ALM  270
CCC   VOL=PI*ANO*ALM**(-4)                                              ALM  280
      ESMIE2=(ES-EFIN)/(ES+2.0)**2                                      ALM  290
CCC                                                                     ALM  300
CCC    DIVIDE VOLUME EQUIVALENT LIQUID BY 10 FOR UNITS CONVERSION       ALM  310
CCC                                                                     ALM  320
      EQLWC=AWLWC/10.0                                                  ALM  330
CCC                                                                     ALM  340
      ABSLIM=0.6951*TK*36.0*PI*EQLWC*SLAMBD*ESMIE2                      ALM  350
CCC                                                                     ALM  360
      RETURN                                                            ALM  370
      END                                                               ALM  380
      SUBROUTINE AEREXT (V)                                             AEX  100
C                                                                       AEX  110
C     INTERPOLATES AEROSOL EXTINCTION, ABSORPTION, AND ASYMMETRY        AEX  120
C     COEFFICIENTS FOR THE WAVENUMBER, V.                               AEX  130
C                                                                       AEX  140
C     MODIFIED FOR ASYMMETRY  - JAN 1986 (A.E.R. INC.)                  AEX  150
C                                                                       AEX  160
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  AEX  170
     1  ,MODTRN                                                         AEX 170A
      LOGICAL MODTRN                                                    AEX 170B
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   AEX  180
     1    RAINRT                                                        AEX  190
      COMMON /CARD3/ H1,H2,ANGLE,RANGE,BETA,RE,LEN                      AEX  200
C     COMMON /CARD4/ V1,V2,DV                                           AEX -210
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               AEX  220
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            AEX  230
C     COMMON             WPATH(68, 63),TBBY(68)                         AEX -240
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   AEX 240A
      COMMON ABSC(5,47),EXTC(5,47),ASYC(5,47),VX2(47),AWCCON(5)         AEX  250
      COMMON/MODEL/ ZMDL(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),     AEX  260
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         AEX  270
      COMMON /AER/ EXTV(5),ABSV(5),ASYV(5)                              AEX  280
      COMMON /AERTM/TAER(5)                                             AEX  290
C                                                                       AEX  300
      DO 5 I=1,5                                                        AEX  310
      EXTV(I)=0.                                                        AEX  320
      ABSV(I)=0.                                                        AEX  330
      ASYV(I)=0.                                                        AEX  340
    5 CONTINUE                                                          AEX  350
      IF(V.LE.1.0E-5) GO TO 50                                          AEX  360
      IF(V.LE.33.333) GO TO 30                                          AEX  370
CCC                                                                     AEX  380
CCC   COMPUTE INFRARED ATTENUATION COEFFICIENT                          AEX  390
CCC                                                                     AEX  400
      IF(V.LE.50.0) THEN                                                AEX  410
           DO 2 MR=1,5                                                  AEX  420
           EXTC(MR,47)=GAMFOG(MR,33.333,TAER(MR),AWCCON(MR))            AEX  430
           ABSC(MR,47)=EXTC(MR,47)                                      AEX  440
           ASYC(MR,47)= 0.                                              AEX  450
2          CONTINUE                                                     AEX  460
      END IF                                                            AEX  470
CC    IF (IHAZE.EQ.0) RETURN                                            AEX  480
      V0=V                                                              AEX  490
      ALAM=1.0E+4/V0                                                    AEX  500
      DO 10 N=2,47                                                      AEX  510
      XD=ALAM-VX2(N)                                                    AEX  520
      IF (XD) 15,10,10                                                  AEX  530
   10 CONTINUE                                                          AEX  540
      N=47                                                              AEX  550
   15 VXD=VX2(N)-VX2(N-1)                                               AEX  560
      DO 20 I=1,5                                                       AEX  570
      EXTV(I)=(EXTC(I,N)-EXTC(I,N-1))*XD/VXD+EXTC(I,N)                  AEX  580
      ABSV(I)=(ABSC(I,N)-ABSC(I,N-1))*XD/VXD+ABSC(I,N)                  AEX  590
      ASYV(I)=(ASYC(I,N)-ASYC(I,N-1))*XD/VXD+ASYC(I,N)                  AEX  600
   20 CONTINUE                                                          AEX  610
      RETURN                                                            AEX  620
CCC                                                                     AEX  630
30    CONTINUE                                                          AEX  640
CCC    COMPUTE MICROWAVE ATTENUATION COEFFICIENTS                       AEX  650
CCC                                                                     AEX  660
      DO 40 I=1,5                                                       AEX  670
      EXTV(I)=GAMFOG( I,V,TAER(I),AWCCON(I))                            AEX* 680
      ABSV(I)=EXTV(I)                                                   AEX  690
      ASYV(I)=0.                                                        AEX  700
40    CONTINUE                                                          AEX  710
      RETURN                                                            AEX  720
CCC                                                                     AEX  730
C     V LE 1.0E-5                                                       AEX  740
50    CONTINUE                                                          AEX  750
CCC                                                                     AEX  760
CCC   EQL=EQLWC(IL)                                                     AEX  770
      DO 60 I=1,5                                                       AEX  780
      EXTV(I)=0.0                                                       AEX  790
      ABSV(I)=0.                                                        AEX  800
      ASYV(I)=0.                                                        AEX  810
C     WRITE (6,300) I,AWCCON(I)                                         AEX  820
300   FORMAT(5X,'I,AWCCON=',I5,5X,1PE12.5)                              AEX  830
60    CONTINUE                                                          AEX  840
100   FORMAT(5X,'IL,IK,EQL,EXTV=',2I5,1P5E12.5)                         AEX  850
      RETURN                                                            AEX  860
      END                                                               AEX  870
      SUBROUTINE AERNSM(JPRT,  GNDALT)                                  ANS  100
C********************************************************************** ANS  110
C     DEFINES ALTITUDE DEPENDENT VARIABLES Z,P,T,WH,WO AND HAZE         ANS  120
C     CLD RAIN  CLDTYPE                                                 ANS  130
C     IT ALSO DEFINES ALTITUDE DEPENDENT VARIABLES WAIR,WCO2,WCO,       ANS  140
C     WCH4,WN2O,WO2,WNH3,WNO,WNO2, AND WSO2                             ANS  150
C     LOADS HAZE INTO APPROPRATE LOCATION                               ANS  160
C********************************************************************** ANS  170
      COMMON RELHUM(34),WHNO3(34),ICH(4),VH(17),TX(63),W(63)            ANS  180
C     COMMON             WPATH(68, 63),TBBY(68)                         ANS -190
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   ANS 190A
      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),VX2(47),AWCCON(5)         ANS  200
      COMMON /IFIL/IRD,IPR,IPU,NPR,IPR1                                 ANS  210
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  ANS  220
     1  ,MODTRN                                                         ANS 220A
      LOGICAL MODTRN                                                    ANS 220B
      COMMON /CARD1A/ M4,M5,M6,MDEF,IRD1,IRD2                           ANS  230
      COMMON /CARD1B/ JUNIT(15),WMOL(12),WAIR1,JLOW                     ANS  240
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   ANS  250
     1    RAINRT                                                        ANS  260
      COMMON /CARD2A/ CTHIK,CALT,CEXT                                   ANS  270
      COMMON /CARD2D/ IREG(4),ALTB(4),IREGC(4)                          ANS  280
      COMMON /CARD3/ H1,H2,ANGLE,RANGE,BETA,RE,LEN                      ANS  290
C     COMMON /CARD4/ V1,V2,DV                                           ANS -300
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               ANS  310
      COMMON /MART/ RHH                                                 ANS  320
      COMMON /MDATA/  Z(50),P(50),T(50),WH(50),WCO2(50),WO(50),         ANS  330
     X WN2O(50),WCO(50),WCH4(50),WO2(50),                               ANS  340
     X CLD(50,7),RR(50,7)                                               ANS  350
      COMMON /MDATA1/ WNO(50),WSO2(50),WNO2(50),WNH3(50),WAIR(50)       ANS  360
      COMMON /TRAC/ ANO(50),ASO2(50),ANO2(50),ANH3(50),ANO3(50),OH(50), ANS  370
     X HF(50),HCL(50),HBR(50),HI(50),CLO(50),OCS(50),H2CO(50),          ANS  380
     X HOCL(50),AN2(50),HCN(50),CH3CL(50),H2O2(50),C2H2(50),            ANS  390
     X C2H6(50),PH3(50)                                                 ANS  400
      COMMON/MODEL/ ZMDL(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),     ANS  410
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         ANS  420
      COMMON /ZVSALY/ ZVSA(10),RHVSA(10),AHVSA(10),IHVSA(10)            ANS  430
      COMMON /MDLZ/HMDLZ(8)                                             ANS  440
      CHARACTER*4  HZ         ,SEASN     ,VULCN     ,BLANK,             ANS  450
     X            HMET        ,HMODEL     ,HTRRAD                       ANS  460
      COMMON /TITL/ HZ(5,16),SEASN(5,2),VULCN(5,8),BLANK,               ANS  470
     X HMET(5,2),HMODEL(5,8),HTRRAD(6,4)                                ANS  480
      COMMON /VSBD/ VSB(10)                                             ANS  490
      CHARACTER*4  AHOL1,AHOL2   ,AHOL3   ,          AHLVSA   ,AHUS     ANS  500
      DIMENSION AHOL1(5),AHOL2(5),AHOL3(5),          AHLVSA(5),AHUS(5)  ANS  510
      DIMENSION  ITY1(34),IH1(34),IS1(34),IVL1(34),ZGN(34)              ANS  520
      CHARACTER*4  AHAHOL   ,HHOL                                       ANS  530
      DIMENSION AHAHOL(5,13),HHOL(5)                                    ANS  540
      DIMENSION AMWT(35),CLDTOP(10),AHAST(34)                           ANS  550
      CHARACTER*1 JCHAR,BL                                              ANS  560
      DIMENSION  JCHAR(15)                                              ANS  570
      DATA AHLVSA/'VSA ','DEFI','NED ','    ','    '/                   ANS  580
      DATA  AHUS /'USER',' DEF','INED','    ','    '/                   ANS  590
      DATA AHAHOL/                                                      ANS  600
     1 'CUMU','LUS ','    ','    ','    ',                              ANS  610
     2 'ALTO','STRA','TUS ','    ','    ',                              ANS  620
     3 'STRA','TUS ','    ','    ','    ',                              ANS  630
     4 'STRA','TUS ','STRA','TO C','UM  ',                              ANS  640
     5 'NIMB','OSTR','ATUS','    ','    ',                              ANS  650
     6 'DRIZ','ZLE ','2.0 ','MM/H','R   ',                              ANS  660
     7 'LT R','AIN ','5.0 ','MM/H','R   ',                              ANS  670
     8 'MOD ','RAIN',' 12.','5 MM','/HR ',                              ANS  680
     9 'HEAV','Y RA','IN 2','5 MM','/HR ',                              ANS  690
     A 'EXTR','EME ','RAIN',' 75M','M/HR',                              ANS  700
     B 'USER',' ATM','OSPH','ERE ','    ',                              ANS  710
     C 'USER',' RAI','N NO',' CLO','UD  ',                              ANS  720
     D 'CIRR','US C','LOUD','    ','    ' /                             ANS  730
      DATA AVOGAD/6.022045E+23/,ALOSMT/2.68675E+19/,                    ANS  740
     1    GASCON/8.31441E+7/,PLANK/6.626176E-27/,BOLTZ/1.380662E-16/,   ANS  750
     2    CLIGHT/2.99792458E10/                                         ANS  760
      DATA AIRMWT/28.964/,AMWT/18.015,44.010,47.998,44.01,28.011,       ANS  770
     1    16.043,31.999,30.01,64.06,46.01,17.03,63.01,17.00,20.01,      ANS  780
     2    36.46,80.92,127.91,51.45,60.08,30.03,52.46,28.014,            ANS  790
     3    27.03, 50.49, 34.01, 26.03, 30.07, 34.00, 7*0./               ANS  800
      DATA CLDTOP / 3.,3.,1.,2.,.66,1.,.66,.66,3.,3./                   ANS  810
C                                                                       ANS  820
C     F(A) IS SATURATED WATER WAPOR DENSITY AT TEMP T,A=TZERO/T         ANS  830
C                                                                       ANS  840
      F(A)=EXP(18.9766-14.9595*A-2.43882*A*A)*A                         ANS  850
C                                                                       ANS  860
C                                                                       ANS  870
C     ZMDL COMMON /MODEL/ FINAL ALTITUDE FOR LOWTRAN                    ANS  880
C     Z   COMMON  /MDATA/ ALTITUDE OF THE PRESSURES,TEMP IN MDATA       ANS  890
C     ZK  ALTITUDE FOR CLOUD                                            ANS  900
C     ZSC ALTITUDE FOR AEROSOLS  GNDALT                                 ANS  910
C                                                                       ANS  920
C                                                                       ANS  930
      IREGC(1) = 0                                                      ANS  940
      IREGC(2) = 0                                                      ANS  950
      IREGC(3) = 0                                                      ANS  960
      IREGC(4) = 0                                                      ANS  970
      ICONV =1                                                          ANS  980
      IRD0 = 1                                                          ANS  990
      ICLDL = ICLD                                                      ANS 1000
      IF((MODEL .EQ. 0.) . OR. (MODEL .EQ. 7)) THEN                     ANS 1010
            IF(IM. NE. 1) RETURN                                        ANS 1020
      ENDIF                                                             ANS 1030
      IF((MODEL .GT. 0.) .AND. (MODEL .LT. 7)) IRD0 = 0                 ANS 1040
      IF((IRD0  .EQ. 1)  .AND. (IVSA.EQ.1)   ) THEN                     ANS 1050
           IRD0 = 0                                                     ANS 1060
           IRD1 = 0                                                     ANS 1070
           IRD2 = 0                                                     ANS 1080
           ICONV =0                                                     ANS 1090
           ML = ML + 10 - JLOW                                          ANS 1100
           IF(ML.GT.34)WRITE(IPR,910)                                   ANS 1110
           IF(ML.GT.34)ML=34                                            ANS 1120
           ZVSA(10)=ZVSA(9)+0.01                                        ANS 1130
           RHVSA(10)=0.                                                 ANS 1140
           AHVSA(10)=0.                                                 ANS 1150
           IHVSA(10)=0                                                  ANS 1160
           IF(MODEL.EQ.0)WRITE (IPR,900)                                ANS 1170
900   FORMAT('   ERROR MODEL EQ 0 AND ARMY MODEL CANNOT MIX')           ANS 1180
           IF(MODEL.EQ.0)STOP                                           ANS 1190
910   FORMAT('  ERROR ML GT 24 AND ARMY MODEL TOP LAYER TRUNCATED')     ANS 1200
      ENDIF                                                             ANS 1210
      ICL=0                                                             ANS 1220
      IDSR=0                                                            ANS 1230
      IF(ICLD .EQ. 18 .OR. ICLD. EQ. 19)  THEN                          ANS 1240
           CALL CIRR18                                                  ANS 1250
           CLDD =  0.1 * CTHIK                                          ANS 1260
           CLD0 = CALT - 0.5*CLDD                                       ANS 1270
           IF(CLD0 .LE. 0.) CLD0 = 0.                                   ANS 1280
           CLD1 = CLD0 + CLDD                                           ANS 1290
           CLD2 = CLD1 + CTHIK - CLDD                                   ANS 1300
C          CLD3 = CLD2 + CLDD                                           ANS 1310
C                                                                       ANS 1320
C          CLD1 1ST Z OF CIRRUS                                         ANS 1330
C          CLD2 LST Z OF CIRRUS                                         ANS 1340
C                                                                       ANS 1350
      ENDIF                                                             ANS 1360
      CALL FLAYZ(ML,MODEL,ICLD,ZMDL,GNDALT,IVSA)                        ANS 1370
      JPRT=1                                                            ANS 1380
      IF(MODEL.EQ.0  .OR. MODEL.EQ.7) JPRT=0                            ANS 1390
      IF(IVSA.EQ.1) JPRT=0                                              ANS 1400
      IF(ICLD.GE.1 .AND.ICLD.LT.20) JPRT=0                              ANS 1410
      IF(RAINRT.GT.0.) JPRT=0                                           ANS 1420
      IF(GNDALT.GT.0.) JPRT=0                                           ANS 1430
C                                                                       ANS 1440
      DO 5 I=1,ML                                                       ANS 1450
      HAZEC(I)=0.0                                                      ANS 1460
5     CONTINUE                                                          ANS 1470
      DO 6 II = 1,4                                                     ANS 1480
6     ALTB(II) = 0.                                                     ANS 1490
      T0=273.15                                                         ANS 1500
      IC1=1                                                             ANS 1510
      N=7                                                               ANS 1520
      IF(IVULCN.LE.0) IVULCN=1                                          ANS 1530
      IF(ISEASN.LE.0) ISEASN=1                                          ANS 1540
      IF(JPRT.EQ.0) THEN                                                ANS 1550
                  WRITE(IPR,925) MODEL,ICLD                             ANS 1560
      IF(MODEL .EQ.7)WRITE(IPR,94)                                      ANS 1570
94    FORMAT(/,10X,' MODEL 0 / 7 USER INPUT DATA ',//)                  ANS 1580
C                                                                       ANS 1590
      ENDIF                                                             ANS 1600
C                                                                       ANS 1610
C                                                                       ANS 1620
      DO 100 K=1,ML                                                     ANS 1630
C                                                                       ANS 1640
C    LOOP OVER LAYERS                                                   ANS 1650
C                                                                       ANS 1660
      RH = 0.                                                           ANS 1670
      WH(K)  =0.                                                        ANS 1680
      WO(K)  =0.                                                        ANS 1690
C                                                                       ANS 1700
      IHA1=0                                                            ANS 1710
      ICLD1=0                                                           ANS 1720
      ISEA1=0                                                           ANS 1730
      IVUL1=0                                                           ANS 1740
      VIS1=0.                                                           ANS 1750
      AHAZE=0.                                                          ANS 1760
      EQLWCZ=0.                                                         ANS 1770
      RRATZ=0.                                                          ANS 1780
      ICHR = 0                                                          ANS 1790
C     NEW                                                               ANS 1800
C                                                                       ANS 1810
      WAIR(K) = 0                                                       ANS 1820
      WCO2(K) = 0                                                       ANS 1830
      WCO(K)  = 0                                                       ANS 1840
      WCH4(K) = 0                                                       ANS 1850
      WN2O(K) = 0                                                       ANS 1860
      WO2(K)  = 0                                                       ANS 1870
      WNH3(K) = 0                                                       ANS 1880
      WNO (K) = 0                                                       ANS 1890
      WNO2(K) = 0                                                       ANS 1900
      WSO2(K) = 0                                                       ANS 1910
      WHNO3(K)= 0                                                       ANS 1920
      DO 10 KM = 1,15                                                   ANS 1930
      JCHAR(KM) = ' '                                                   ANS 1940
      IF(KM. GT. 12) GO TO 10                                           ANS 1950
      WMOL(KM) = 0.                                                     ANS 1960
10    CONTINUE                                                          ANS 1970
C                                                                       ANS 1980
C                                                                       ANS 1990
C        PARAMETERS - JCHAR = INPUT KEY (SEE BELOW)                     ANS 2000
C                                                                       ANS 2010
C                                                                       ANS 2020
C     ***  ROUTINE ALSO ACCEPTS VARIABLE UNITS ON PRESS AND TEMP        ANS 2030
C                                                                       ANS 2040
C          SEE INPUT KEY BELOW                                          ANS 2050
C                                                                       ANS 2060
C                                                                       ANS 2070
C                                                                       ANS 2080
C     FOR MOLECULAR SPECIES ONLY                                        ANS 2090
C                                                                       ANS 2100
C       JCHAR   JUNIT                                                   ANS 2110
C                                                                       ANS 2120
C     " ",A      10    VOLUME MIXING RATIO (PPMV)                       ANS 2130
C         B      11    NUMBER DENSITY (CM-3)                            ANS 2140
C         C      12    MASS MIXING RATIO (GM(K)/KG(AIR))                ANS 2150
C         D      13    MASS DENSITY (GM M-3)                            ANS 2160
C         E      14    PARTIAL PRESSURE (MB)                            ANS 2170
C         F      15    DEW POINT TEMP (TD IN T(K)) - H2O ONLY           ANS 2180
C         G      16     "    "     "  (TD IN T(C)) - H2O ONLY           ANS 2190
C         H      17    RELATIVE HUMIDITY (RH IN PERCENT) - H2O ONLY     ANS 2200
C         I      18    AVAILABLE FOR USER DEFINITION                    ANS 2210
C        1-6    1-6    DEFAULT TO SPECIFIED MODEL ATMOSPHERE            ANS 2220
C                                                                       ANS 2230
C     ****************************************************************  ANS 2240
C     ****************************************************************  ANS 2250
C                                                                       ANS 2260
C     ***** OTHER 'JCHAR' SPECIFICATIONS -                              ANS 2270
C                                                                       ANS 2280
C       JCHAR   JUNIT                                                   ANS 2290
C                                                                       ANS 2300
C      " ",A     10    PRESSURE IN (MB)                                 ANS 2310
C          B     11       "     "  (ATM)                                ANS 2320
C          C     12       "     "  (TORR)                               ANS 2330
C         1-6   1-6    DEFAULT TO SPECIFIED MODEL ATMOSPHERE            ANS 2340
C                                                                       ANS 2350
C      " ",A     10    AMBIENT TEMPERATURE IN DEG(K)                    ANS 2360
C          B     11       "         "       "  " (C)                    ANS 2370
C          C     12       "         "       "  " (F)                    ANS 2380
C         1-6   1-6    DEFAULT TO SPECIFIED MODEL ATMOSPHERE            ANS 2390
C                                                                       ANS 2400
C     ***** DEFINITION OF "DEFAULT" CHOICES FOR PROFILE SELECTION ***** ANS 2410
C                                                                       ANS 2420
C      FOR THE USER WHO WISHES TO ENTER ONLY SELECTED ORIGINAL          ANS 2430
C      VERTICAL PROFILES AND WANTS STANDARD ATMOSPHERE SPECIFICATIONS   ANS 2440
C      FOR THE OTHERS, THE FOLLOWING OPTION IS AVAILABLE                ANS 2450
C                                                                       ANS 2460
C     *** JCHAR(P,T OR K) MUST = 1-6 (AS ABOVE)                         ANS 2470
C                                                                       ANS 2480
C      FOR MOLECULES 8-35, ONLY US STD PROFILES ARE AVIALABLE           ANS 2490
C      THEREFORE, WHEN  'JCHAR(K) = 1-5', JCHAR(K) WILL BE RESET TO 6   ANS 2500
C                                                                       ANS 2510
C                                                                       ANS 2520
      IF(IRD0 .EQ. 1) THEN                                              ANS 2530
          READ(IRD,80)ZMDL(K),P(K),T(K),WMOL(1),WMOL(2),WMOL(3),        ANS 2540
     X     (JCHAR(KM),KM=1,14)                                          ANS 2550
80         FORMAT ( F10.3,5E10.3,15A1)                                  ANS 2560
          WRITE(IPR,81)ZMDL(K),P(K),T(K),WMOL(1),WMOL(2),WMOL(3),       ANS 2570
     X     (JCHAR(KM),KM=1,14)                                          ANS 2580
81         FORMAT ( F10.3,1P5E10.3,10X,15A1)                            ANS 2590
      ENDIF                                                             ANS 2600
      IF(IRD1 .EQ. 1) THEN                                              ANS 2610
           READ(IRD,83)(WMOL(KM),KM=4,12)                               ANS 2620
83         FORMAT((8E10.3))                                             ANS 2630
           WRITE(IPR,84)(WMOL(KM),KM=4,12)                              ANS 2640
84         FORMAT((1P8E10.3))                                           ANS 2650
      ENDIF                                                             ANS 2660
C                                                                       ANS 2670
C                                                                       ANS 2680
C     AHAZE =  AEROSOL VISIBLE EXTINCTION COFF (KM-1)                   ANS 2690
C     AT A WAVELENGTH OF 0.55 MICROMETERS                               ANS 2700
C                                                                       ANS 2710
C     EQLWCZ=LIQUID WATER CONTENT (PPMV) AT ALT Z                       ANS 2720
C            FOR AEROSOL, CLOUD OR FOG MODELS                           ANS 2730
C                                                                       ANS 2740
C     RRATZ=RAIN RATE (MM/HR) AT ALT Z                                  ANS 2750
C                                                                       ANS 2760
C     IHA1 AEROSOL MODEL USED FOR SPECTRAL DEPENDENCE OF EXTINCTION     ANS 2770
C                                                                       ANS 2780
C     IVUL1 STRATOSPHERIC AERSOL MODEL USED FOR SPECTRAL DEPENDENCE     ANS 2790
C     OF EXT AT Z                                                       ANS 2800
C                                                                       ANS 2810
C     ICLD1 CLOUD MODEL USED FOR SPECTRAL DEPENDENCE OF EXT AT Z        ANS 2820
C                                                                       ANS 2830
C     ONLY ONE OF IHA1,ICLD1  OR IVUL1 IS ALLOWED                       ANS 2840
C     IHA1 NE 0 OTHERS IGNORED                                          ANS 2850
C     IHA1 EQ 0 AND ICLD1 NE 0 USE ICLD1                                ANS 2860
C                                                                       ANS 2870
C     IF AHAZE AND EQLWCZ ARE BOUTH ZERO                                ANS 2880
C        DEFAULT PROFILE ARE LOADED FROM IHA1,ICLD1,IVUL1               ANS 2890
C     ISEA1 = AERSOL SEASON CONTROL FOR ALTITUDE Z                      ANS 2900
C                                                                       ANS 2910
C     ICHR  CHANGE AERSOL PROFILE REGION FOR IHA1 = 7                   ANS 2920
C                                                                       ANS 2930
      IF(IRD2 .EQ. 1) THEN                                              ANS 2940
           READ(IRD,82)    AHAZE,EQLWCZ,RRATZ,IHA1,ICLD1,IVUL1,ISEA1,   ANS 2950
     X ICHR                                                             ANS 2960
           WRITE(IPR,82)    AHAZE,EQLWCZ,RRATZ,IHA1,ICLD1,IVUL1,ISEA1,  ANS 2970
     X ICHR                                                             ANS 2980
82         FORMAT(10X,3F10.3,5I5)                                       ANS 2990
      ELSE                                                              ANS 3000
           RRATZ = RAINRT                                               ANS 3010
           IF(ZMDL(K) . GT. 6.) RRATZ = 0                               ANS 3020
      ENDIF                                                             ANS 3030
      ICLDS = ICLD1                                                     ANS 3040
      IF( ICHR.EQ. 1) THEN                                              ANS 3050
         IF(IHA1. EQ. 0) THEN                                           ANS 3060
             IF(ICLD1. NE. 11) ICHR = 0                                 ANS 3070
         ELSE                                                           ANS 3080
             IF(IHA1 . NE.  7) ICHR = 0                                 ANS 3090
         ENDIF                                                          ANS 3100
      ENDIF                                                             ANS 3110
      IF(MODEL .EQ. 0) THEN                                             ANS 3120
           HMDLZ(1) = ZMDL(K)                                           ANS 3130
           HMDLZ(2) =    P(K)                                           ANS 3140
           HMDLZ(3) =    T(K)                                           ANS 3150
           HMDLZ(4) = WMOL(1)                                           ANS 3160
           HMDLZ(5) = WMOL(2)                                           ANS 3170
           HMDLZ(6) = WMOL(3)                                           ANS 3180
           HMDLZ(7) = AHAZE                                             ANS 3190
      ENDIF                                                             ANS 3200
      DO 12 KM = 1,15                                                   ANS 3210
12    JUNIT(KM) = JOU(JCHAR(KM))                                        ANS 3220
      IF(IRD0 .EQ. 0) THEN                                              ANS 3230
          JUNIT(1) = M1                                                 ANS 3240
          JUNIT(2) = M1                                                 ANS 3250
          JUNIT(3) = M2                                                 ANS 3260
          JUNIT(4) =  6                                                 ANS 3270
          JUNIT(5) = M3                                                 ANS 3280
          JUNIT(6) = M5                                                 ANS 3290
          JUNIT(7) = M6                                                 ANS 3300
          JUNIT(8) = M4                                                 ANS 3310
          JUNIT(9) =  6                                                 ANS 3320
          JUNIT(10)=  6                                                 ANS 3330
          JUNIT(11)=  6                                                 ANS 3340
          JUNIT(12)=  6                                                 ANS 3350
          JUNIT(13)=  6                                                 ANS 3360
          JUNIT(14)=  6                                                 ANS 3370
          JUNIT(15)=  6                                                 ANS 3380
      ELSE                                                              ANS 3390
          BL = ' '                                                      ANS 3400
          IF((M1   .GT.0).AND.(JCHAR(1).EQ.BL))                         ANS 3410
     X    JUNIT(1) = M1                                                 ANS 3420
          IF((M1   .GT.0).AND.(JCHAR(2).EQ.BL))                         ANS 3430
     X    JUNIT(2) = M1                                                 ANS 3440
          IF((M2   .GT.0).AND.(JCHAR(3).EQ.BL))                         ANS 3450
     X    JUNIT(3) = M2                                                 ANS 3460
          IF((MDEF .GT.0).AND.(JCHAR(4).EQ.BL))                         ANS 3470
     X    JUNIT(4) = 6                                                  ANS 3480
          IF((M3   .GT.0).AND.(JCHAR(5).EQ.BL))                         ANS 3490
     X    JUNIT(5) = M3                                                 ANS 3500
          IF((M5   .GT.0).AND.(JCHAR(6).EQ.BL))                         ANS 3510
     X    JUNIT(6) = M5                                                 ANS 3520
          IF((M6   .GT.0).AND.(JCHAR(7).EQ.BL))                         ANS 3530
     X    JUNIT(7) = M6                                                 ANS 3540
          IF((M4   .GT.0).AND.(JCHAR(8).EQ.BL))                         ANS 3550
     X    JUNIT(8) = M4                                                 ANS 3560
          IF((MDEF .GT.0).AND.(JCHAR(9).EQ.BL))                         ANS 3570
     X    JUNIT(9) = 6                                                  ANS 3580
          IF((MDEF .GT.0).AND.(JCHAR(10).EQ.BL))                        ANS 3590
     X    JUNIT(10)= 6                                                  ANS 3600
          IF((MDEF .GT.0).AND.(JCHAR(11).EQ.BL))                        ANS 3610
     X    JUNIT(11)= 6                                                  ANS 3620
          IF((MDEF .GT.0).AND.(JCHAR(12).EQ.BL))                        ANS 3630
     X    JUNIT(12)= 6                                                  ANS 3640
          IF((MDEF .GT.0).AND.(JCHAR(13).EQ.BL))                        ANS 3650
     X    JUNIT(13)= 6                                                  ANS 3660
          IF((MDEF .GT.0).AND.(JCHAR(14).EQ.BL))                        ANS 3670
     X    JUNIT(14)= 6                                                  ANS 3680
      ENDIF                                                             ANS 3690
      IF(ICONV .EQ. 1) THEN                                             ANS 3700
           CALL CHECK(P(K),JUNIT(1),1)                                  ANS 3710
           CALL CHECK(T(K),JUNIT(2),2)                                  ANS 3720
           CALL DEFALT(ZMDL(K),P(K),T(K))                               ANS 3730
           CALL CONVRT (P(K),T(K) )                                     ANS 3740
            WH(K)    = WMOL(1)                                          ANS 3750
            WCO2(K)  = WMOL(2)                                          ANS 3760
            WO(K)    = WMOL(3)                                          ANS 3770
            WN2O(K)  = WMOL(4)                                          ANS 3780
            WCO(K)   = WMOL(5)                                          ANS 3790
            WCH4(K)  = WMOL(6)                                          ANS 3800
            WO2(K)   = WMOL(7)                                          ANS 3810
            WNO(K)   = WMOL(8)                                          ANS 3820
            WSO2(K)  = WMOL(9)                                          ANS 3830
            WNO2(K)  = WMOL(10)                                         ANS 3840
            WNH3(K)  = WMOL(11)                                         ANS 3850
            WHNO3(K) = WMOL(12)                                         ANS 3860
            WAIR(K)  = WAIR1                                            ANS 3870
      ELSE                                                              ANS 3880
           CALL VSANSM(K,AHAZE,IHA1)                                    ANS 3890
           ZMDL(K) = Z(K)                                               ANS 3900
      ENDIF                                                             ANS 3910
C                                                                       ANS 3920
C                                                                       ANS 3930
C     GNDALT NOT ZERO                                                   ANS 3940
C                                                                       ANS 3950
      ZSC=ZMDL(K)                                                       ANS 3960
      IF((GNDALT.GT.0.).AND.(ZMDL(K).LT.6.0)) THEN                      ANS 3970
           ASC=6./(6.-GNDALT)                                           ANS 3980
           CON=-ASC*GNDALT                                              ANS 3990
           ZSC=ASC*ZMDL(K)+CON                                          ANS 4000
           IF(ZSC.LT.0.)ZSC=0.                                          ANS 4010
      ENDIF                                                             ANS 4020
      ZGN(K)=ZSC                                                        ANS 4030
C                                                                       ANS 4040
C                                                                       ANS 4050
      IF(ICLD1.EQ.0) ICLD1=ICLD                                         ANS 4060
      ICLDL = ICLD1                                                     ANS 4070
      IF(ICLD1.GT.11) ICLD1=0                                           ANS 4080
      IF(IHA1.NE.0) IVUL1=0                                             ANS 4090
      IF(IHA1.NE.0) ICLD1=0                                             ANS 4100
      IF(ICLD1.NE.0) IVUL1=0                                            ANS 4110
      IF((AHAZE.NE.0.).OR.(EQLWCZ.NE.0.)) GO TO 8                       ANS 4120
C      ********        ERRATA SEPT 19
CC    IF(RRATZ.NE.0.) GO TO 8                                           ANS 4130
C      *****           END ERRATA
      IF((IVSA.EQ.1).AND.(ICLD1.EQ.0)) THEN                             ANS 4140
           IF(MODEL.NE.7)CALL LAYVSA(K,RH,AHAZE,IHA1,ZMDL)              ANS 4150
      ELSE                                                              ANS 4160
           CALL LAYCLD(K,EQLWCZ,RRATZ,ICLD1,GNDALT,RAINRT)              ANS 4170
C          ***********************  ERRATA SEPT 19
           IF(RAINRT .GT. 0. AND. ZMDL(K) .LT. 6.)RRATZ = RAINRT
C           *********************      END ERRATA
           IF(ICLD1 . LT.  1) GO TO 8                                   ANS 4180
           IF(ICLD1 . GT. 10) GO TO 8                                   ANS 4190
C     ***************  ERRATA JUNE 21 89 NEXT CARD                      ANS*4195
CC         IF(ZMDL(K). GT.CLDTOP(ICLD1) ) THEN                          ANS*4200
           IF(ZMDL(K). GT.CLDTOP(ICLD1)+ GNDALT ) THEN                  ANS*4202
C     ***************  END ERRATA                                       ANS*4205
              RRATZ = 0.                                                ANS 4210
           ENDIF                                                        ANS 4220
      ENDIF                                                             ANS 4230
8     CONTINUE                                                          ANS 4240
      ICLDC = ICLD                                                      ANS 4250
      IF(ICLDS .NE. 0) ICLDC = ICLDS                                    ANS 4260
C                                                                       ANS 4270
      IF(ICLDS. EQ. 18 .OR. ICLDS .EQ. 19) THEN                         ANS 4280
           IF(AHAZE . GT. 0) THEN                                       ANS 4290
                DENSTY(16,K) = AHAZE                                    ANS 4300
                AHAZE    = 0.                                           ANS 4310
                GO TO 46                                                ANS 4320
           ENDIF                                                        ANS 4330
           IF(EQLWCZ .GT. 0) THEN                                       ANS 4340
                IF(ICLDS .EQ. 18) CON = 3.446E-3                        ANS 4350
                IF(ICLDS .EQ. 19) CON = 5.811E-2                        ANS 4360
                DENSTY(16,K) = EQLWCZ/CON                               ANS 4370
                EQLWCZ = 0                                              ANS 4380
                GO TO 46                                                ANS 4390
           ENDIF                                                        ANS 4400
      ENDIF                                                             ANS 4410
      IF(ICLDC .EQ. 18 .OR. ICLDC.EQ. 19) THEN                          ANS 4420
           DENSTY(16,K) = 0.                                            ANS 4430
           IF(ZMDL(K)  .GE.  CLD1 .AND. ZMDL(K) .LE. CLD2)              ANS 4440
     X     DENSTY(16,K) = CEXT                                          ANS 4450
      ENDIF                                                             ANS 4460
46    CLDAMT(K)=EQLWCZ                                                  ANS 4470
      IF(ICLDS .EQ. 0. AND. CLDAMT(K) .EQ. 0.)ICLD1 = 0                 ANS 4480
      RRAMT(K)=RRATZ                                                    ANS 4490
      IF(MODEL  .EQ. 0 .OR. MODEL .EQ. 7) THEN                          ANS 4500
C     DONT CHANGE RH                                                    ANS 4510
      ELSE                                                              ANS 4520
            IF(EQLWCZ.GT.0.0) RH=100.0                                  ANS 4530
            IF(RRATZ .GT.0.0) RH=100.0                                  ANS 4540
      ENDIF                                                             ANS 4550
      AHAST(K)=AHAZE                                                    ANS 4560
C     IHA1  IS IHAZE FOR THIS LAYER                                     ANS 4570
C     ISEA1 IS ISEASN FOR THIS LAYER                                    ANS 4580
C     IVUL1 IS IVULCN FOR THE LAYER                                     ANS 4590
      IF(ISEA1.EQ.0) ISEA1=ISEASN                                       ANS 4600
      ITYAER=IHAZE                                                      ANS 4610
      IF(IHA1.GT.0) ITYAER=IHA1                                         ANS 4620
      IF(IVUL1.GT.0) IVULCN=IVUL1                                       ANS 4630
      IF(IVUL1.LE.0) IVUL1=IVULCN                                       ANS 4640
C                                                                       ANS 4650
      IF(K.EQ.1) GO TO 23                                               ANS 4660
      IF(ICHR .EQ. 1) GO TO 20                                          ANS 4670
      IF(ICLD1.NE.IREGC(IC1))GO TO 19                                   ANS 4680
      IF(IHA1 .EQ. 0 .AND. ICLD1. EQ. 0) THEN                           ANS 4690
           IF(ZSC.GT.2.)ITYAER=6                                        ANS 4700
           IF(ZSC.GT.10.)ITYAER=IVULCN+10                               ANS 4710
           IF(ZSC.GT.30.) ITYAER=19                                     ANS 4720
           IF(ITYAER.EQ.ICH(IC1))GO TO 23                               ANS 4730
      ENDIF                                                             ANS 4740
      IF(ICLD1 .EQ. 0 .AND. IHA1.EQ. 0) GO TO 20                        ANS 4750
      N = 7                                                             ANS 4760
      IF(IC1 .GT. 1) N= IC1 + 10                                        ANS 4770
      IF(IHA1 .EQ. 0) GO TO 23                                          ANS 4780
      IF(IHA1 .NE.ICH(IC1)) GO TO 20                                    ANS 4790
      GO TO 23                                                          ANS 4800
19    IF(ICLD1 .NE. 0) THEN                                             ANS 4810
           IF(ICLD1. EQ. IREGC(1)) THEN                                 ANS 4820
               N = 7                                                    ANS 4830
               ALTB(1) = ZMDL(K)                                        ANS 4840
               GO TO 24                                                 ANS 4850
           ENDIF                                                        ANS 4860
           IF(IC1 .EQ. 1) GO TO 20                                      ANS 4870
           IF(ICLD1. EQ. IREGC(2)) THEN                                 ANS 4880
               N = 12                                                   ANS 4890
               ALTB(2) = ZMDL(K)                                        ANS 4900
               GO TO 24                                                 ANS 4910
           ENDIF                                                        ANS 4920
           IF(IC1 .EQ. 2) GO TO 20                                      ANS 4930
           IF(ICLD1. EQ. IREGC(3)) THEN                                 ANS 4940
               N = 13                                                   ANS 4950
               ALTB(3) = ZMDL(K)                                        ANS 4960
               GO TO 24                                                 ANS 4970
           ENDIF                                                        ANS 4980
      ELSE                                                              ANS 4990
            IF(IHA1 .EQ. 0 .AND. ICLD1. EQ. 0) THEN                     ANS 5000
                 IF(ZSC.GT.2.)ITYAER=6                                  ANS 5010
                 IF(ZSC.GT.10.)ITYAER=IVULCN+10                         ANS 5020
                 IF(ZSC.GT.30.) ITYAER=19                               ANS 5030
            ENDIF                                                       ANS 5040
           IF(ITYAER.EQ.ICH(  1))THEN                                   ANS 5050
               N = 7                                                    ANS 5060
               ALTB(1) = ZMDL(K)                                        ANS 5070
               GO TO 24                                                 ANS 5080
           ENDIF                                                        ANS 5090
           IF(IC1 .EQ. 1) GO TO 20                                      ANS 5100
           IF(ITYAER.EQ.ICH(  2))THEN                                   ANS 5110
               N = 12                                                   ANS 5120
               ALTB(2) = ZMDL(K)                                        ANS 5130
               GO TO 24                                                 ANS 5140
           ENDIF                                                        ANS 5150
           IF(IC1 .EQ. 2) GO TO 20                                      ANS 5160
           IF(ITYAER.EQ.ICH(  3))THEN                                   ANS 5170
               N = 13                                                   ANS 5180
               ALTB(3) = ZMDL(K)                                        ANS 5190
               GO TO 24                                                 ANS 5200
           ENDIF                                                        ANS 5210
      ENDIF                                                             ANS 5220
20    IC1=IC1+1                                                         ANS 5230
C                                                                       ANS 5240
C                                                                       ANS 5250
C                                                                       ANS 5260
      N=IC1+10                                                          ANS 5270
      IF(RH.GT.0.) RHH=RH                                               ANS 5280
      IF(IC1.LE.4) GO TO 23                                             ANS 5290
      IC1=4                                                             ANS 5300
      N=14                                                              ANS 5310
      ITYAER=ICH(IC1)                                                   ANS 5320
23    ICH(IC1)=ITYAER                                                   ANS 5330
      IREGC(IC1) = ICLD1                                                ANS 5340
      ALTB(IC1) = ZMDL(K)                                               ANS 5350
C                                                                       ANS 5360
C     FOR LVSA OR CLD OR RAIN ONLY                                      ANS 5370
C                                                                       ANS 5380
24    IF (RH.GT.  0.0) THEN                                             ANS 5390
            TA=T0/T(K)                                                  ANS 5400
            WH(K)  =F(TA)*0.01*RH                                       ANS 5410
C                                                                       ANS 5420
      ENDIF                                                             ANS 5430
   40 CONTINUE                                                          ANS 5440
      DENSTY(7,K)=0.                                                    ANS 5450
      DENSTY(12,K)=0.                                                   ANS 5460
      DENSTY(13,K)=0.                                                   ANS 5470
      DENSTY(14,K)=0.                                                   ANS 5480
      DENSTY(15,K)=0.                                                   ANS 5490
      TS=273.15/T(K)                                                    ANS 5500
      WTEMP=WH(K)                                                       ANS 5510
      RELHUM(K)=0.                                                      ANS 5520
      IF(WTEMP.LE.0.) GO TO 45                                          ANS 5530
      RELHUM(K) = 100.0*WTEMP/F(TS)                                     ANS 5540
      IF(RELHUM(K).GT.100.)WRITE(IPR,930)RELHUM(K),ZMDL(K)              ANS 5550
      IF( RELHUM(K) .GT. 100.) RELHUM(K)=100.                           ANS 5560
      IF(RELHUM(K).LT.0.)WRITE(IPR,930)RELHUM(K),ZMDL(K)                ANS 5570
930   FORMAT(' ***ERROR RELHUM ' ,E15.4,'  AT ALT  ',F12.3)             ANS 5580
      IF( RELHUM(K) .LT.   0.) RELHUM(K)=0.                             ANS 5590
45    RHH=RELHUM(K)                                                     ANS 5600
      RH=RHH                                                            ANS 5610
      IF (VIS1.LE.0.0) VIS1=VIS                                         ANS 5620
      IF (AHAZE.EQ.0.0) GO TO 47                                        ANS 5630
      DENSTY(N,K)=AHAZE                                                 ANS 5640
      IF(ITYAER.EQ.3) GO TO 47                                          ANS 5650
      IF(ITYAER.EQ.10)GO TO 47                                          ANS 5660
C     AHAZE IS IN LOWTRAN NUMBER DENSTY UNITS                           ANS 5670
      GO TO 50                                                          ANS 5680
47    CONTINUE                                                          ANS 5690
C                                                                       ANS 5700
C     AHAZE NOT INPUT OR NAVY MARITIME MODEL IS CALLED                  ANS 5710
C                                                                       ANS 5720
C     CHECK IF GNDALT NOT ZERO                                          ANS 5730
C                                                                       ANS 5740
      IF((GNDALT.GT.0.).AND.(ZMDL(K).LT.6.0)) THEN                      ANS 5750
           J=IFIX(ZSC+1.0E-6)+1                                         ANS 5760
           FAC=ZSC-FLOAT(J-1)                                           ANS 5770
      ELSE                                                              ANS 5780
      J=IFIX(ZMDL(K)+1.0E-6)+1                                          ANS 5790
      IF (ZMDL(K).GE.25.0) J=(ZMDL(K)-25.0)/5.0+26.                     ANS 5800
      IF (ZMDL(K).GE.50.0) J=(ZMDL(K)-50.0)/20.0+31.                    ANS 5810
      IF (ZMDL(K).GE.70.0) J=(ZMDL(K)-70.0)/30.0+32.                    ANS 5820
      IF (J.GT.32) J=32                                                 ANS 5830
      FAC=ZMDL(K)-FLOAT(J-1)                                            ANS 5840
      IF (J.LT.26) GO TO 125                                            ANS 5850
      FAC=(ZMDL(K)-5.0*FLOAT(J-26)-25.)/5.                              ANS 5860
      IF (J.GE.31) FAC=(ZMDL(K)-50.0)/20.                               ANS 5870
      IF (J.GE.32) FAC=(ZMDL(K)-70.0)/30.                               ANS 5880
      ENDIF                                                             ANS 5890
125   L=J+1                                                             ANS 5900
      IF (FAC.GT.1.0) FAC=1.0                                           ANS 5910
      IF(ITYAER.EQ.3.AND.ICL.EQ.0)THEN                                  ANS 5920
           CALL MARINE(VIS1,MODEL,WSS,WHH,ICSTL,EXTC,ABSC,IC1)          ANS 5930
           IREG(IC1) = 1                                                ANS 5940
           VIS=VIS1                                                     ANS 5950
           ICL = ICL + 1                                                ANS 5960
      ENDIF                                                             ANS 5970
      IF(ITYAER.EQ.10.AND.IDSR.EQ.0)THEN                                ANS 5980
           CALL DESATT(WSS,VIS1)                                        ANS 5990
           IREG(IC1) = 1                                                ANS 6000
           VIS=VIS1                                                     ANS 6010
           IDSR = IDSR + 1                                              ANS 6020
      ENDIF                                                             ANS 6030
      IF(AHAZE.GT.0.0) GO TO 50                                         ANS 6040
      IF(IHA1.LE.0) IHA1=IHAZE                                          ANS 6050
      CALL CLDPRF(K,ICLD1,IHA1,IC1)                                     ANS 6060
      CALL AERPRF(J,  VIS1,HAZ1,IHA1,      ISEA1,IVUL1,NN)              ANS 6070
      CALL AERPRF(L,  VIS1,HAZ2,IHA1,      ISEA1,IVUL1,NN)              ANS 6080
      HAZE=0.                                                           ANS 6090
      IF ((HAZ1.LE.0.0).OR.(HAZ2.LE.0.0)) GO TO 48                      ANS 6100
      HAZE=HAZ1*(HAZ2/HAZ1)**FAC                                        ANS 6110
48    CONTINUE                                                          ANS 6120
      IF(CLDAMT(K).GT.0.0) HAZE=HAZEC(K)                                ANS 6130
      DENSTY(N,K)=HAZE                                                  ANS 6140
50    CONTINUE                                                          ANS 6150
      ITY1(K)=ITYAER                                                    ANS 6160
      IH1(K)=IHA1                                                       ANS 6170
      IF(AHAZE.NE.0)IH1(K)=-99                                          ANS 6180
      IS1(K)=ISEA1                                                      ANS 6190
      IVL1(K)=IVUL1                                                     ANS 6200
100   CONTINUE                                                          ANS 6210
C                                                                       ANS 6220
C     END OF LOOP                                                       ANS 6230
C                                                                       ANS 6240
      IHH=ICLD                                                          ANS 6250
      IF(IHH.LE.0) IHH=12                                               ANS 6260
      IF(IHH.GT.12)IHH=12                                               ANS 6270
      IF(ICLD.GE.18)IHH=13                                              ANS 6280
      DO 105 II=1,5                                                     ANS 6290
      HHOL(II)=AHAHOL(II,IHH)                                           ANS 6300
      IF(IVSA.NE.0) HHOL(II)=AHLVSA(II)                                 ANS 6310
105   CONTINUE                                                          ANS 6320
      IF(ICLD .NE. 0) THEN                                              ANS 6330
           IF(JPRT.EQ.0)WRITE (IPR,904) HHOL                            ANS 6340
904        FORMAT(//'0 CLOUD AND OR RAIN TYPE CHOSEN IS   ',5A4)        ANS 6350
      ENDIF                                                             ANS 6360
      IF(JPRT.EQ.0)WRITE(IPR,905)                                       ANS 6370
C                                                                       ANS 6380
C 905 FORMAT(//,T7,'Z',T17,'P',T26,'T',T32,'REL H', T41,'H2O',          ANS-6390
905   FORMAT(1H1,//,T7,'Z',T17,'P',T26,'T',T32,'REL H', T41,'H2O',      ANS6390A
     1 T49,'CLD AMT',T59,'RAIN RATE', T90,'AEROSOL'/,                   ANS 6400
     2 T6,'(KM)',T16,'(MB)',T25,'(K)',T33,'(%)',T39,'(GM M-3)',T49,     ANS 6410
     3 '(GM M-3)',T59,'(MM HR-1)',T69,                                  ANS 6420
     4 'TYPE', T90,'PROFILE')                                           ANS 6430
      IF(JPRT.EQ.1) RETURN                                              ANS 6440
      DO 60 KK=1,ML                                                     ANS 6450
      DO 52 IJ=1,5                                                      ANS 6460
      AHOL1(IJ)=BLANK                                                   ANS 6470
      AHOL2(IJ)=BLANK                                                   ANS 6480
52    AHOL3(IJ)=BLANK                                                   ANS 6490
      ITYAER=ITY1(KK)                                                   ANS 6500
      IF(ITYAER.LE.0) ITYAER=1                                          ANS 6510
      IF(ITYAER . EQ.  16) ITYAER = 11                                  ANS 6520
      IF(ITYAER . EQ.  17) ITYAER = 11                                  ANS 6530
      IF(ITYAER . EQ.  18) ITYAER = 13                                  ANS 6540
C     ***************  ERRATA JUNE 21 89 NEXT CARD                      ANS*6545
      IF(ITYAER . EQ.  19) ITYAER = 11                                  ANS*6547
C     ***************  END ERRATA                                       ANS*6548
      IHA1=IH1(KK)                                                      ANS 6550
      ISEA1=IS1(KK)                                                     ANS 6560
      IVUL1=IVL1(KK)                                                    ANS 6570
      DO 54 IJ=1,5                                                      ANS 6580
      AHOL1(IJ)=  HZ(IJ,ITYAER)                                         ANS 6590
      IF(IVSA.EQ.1) AHOL1(IJ)=HHOL(IJ)                                  ANS 6600
      IF(CLDAMT(KK).GT.0.0 .OR. RRAMT(KK).GT.0.0) AHOL1(IJ)=HHOL(IJ)    ANS 6610
      IF(IHAZE.EQ.0) AHOL1(IJ)=HHOL(IJ)                                 ANS 6620
      AHOL2(IJ)=AHUS(IJ)                                                ANS 6630
      IF(AHAST(KK).EQ.0) AHOL2(IJ)=AHOL1(IJ)                            ANS 6640
      IF(CLDAMT(KK).GT.0.0 .OR. RRAMT(KK).GT.0.0) AHOL2(IJ)=HHOL(IJ)    ANS 6650
54    IF (ZGN(KK).GT.2.0) AHOL3(IJ)=SEASN(IJ,ISEA1)                     ANS 6660
60    WRITE(IPR,915)ZMDL(KK),P(KK  ),T(KK  ),RELHUM(KK),WH(KK  ),       ANS 6670
     X CLDAMT(KK),RRAMT(KK),AHOL1,AHOL2,AHOL3                           ANS 6680
915   FORMAT(2F10.3,2F8.2,1P3E10.3,1X,5A4,5A4,5A4)                      ANS 6690
      RETURN                                                            ANS 6700
C                                                                       ANS 6710
925   FORMAT(//,' MODEL ATMOSPHERE NO. ',I5,' ICLD =',I5,//)            ANS 6720
      END                                                               ANS 6730
      SUBROUTINE AERPRF (I,  VIS,HAZE,IHAZE,     ISEASN,IVULCN,N)       AER  100
C***********************************************************************AER  110
C     WILL COMPUTE DENSITY    PROFILES FOR AEROSOLS                     AER  120
C***********************************************************************AER  130
      COMMON/PRFD  /ZHT(34),HZ2K(34,5),FAWI50(34),FAWI23(34),SPSU50(34),AER  140
     1SPSU23(34),BASTFW(34),VUMOFW(34),HIVUFW(34),EXVUFW(34),BASTSS(34),AER  150
     2VUMOSS(34),HIVUSS(34),EXVUSS(34),UPNATM(34),VUTONO(34),           AER  160
     3VUTOEX(34),EXUPAT(34)                                             AER  170
      DIMENSION VS(5)                                                   AER  180
      DATA VS/50.,23.,10.,5.,2./                                        AER  190
      HAZE=0.                                                           AER  200
      N=7                                                               AER  210
      IF (IHAZE.EQ.0) RETURN                                            AER  220
      IF (ZHT(I).GT.2.0) GO TO 15                                       AER  230
      DO 5 J=2,5                                                        AER  240
      IF (VIS.GE.VS(J)) GO TO 10                                        AER  250
    5 CONTINUE                                                          AER  260
      J=5                                                               AER  270
   10 CONST=1./(1./VS(J)-1./VS(J-1))                                    AER  280
      HAZE=CONST*( (HZ2K(I,J)-HZ2K(I,J-1))/VIS +                        AER  290
     1 HZ2K(I,J-1)/VS(J) - HZ2K(I,J )/VS(J-1) )                         AER  300
      IF(ZHT(I).GT.2.0) GO TO 15                                        AER  310
      RETURN                                                            AER  320
   15 IF (ZHT(I).GT.10.) GO TO 35                                       AER  330
      CONST=1./(1./23.-1./50.)                                          AER  340
      IF (ISEASN.GT.1) GO TO 25                                         AER  350
      IF (VIS.LE.23.) HAZI=SPSU23(I)                                    AER  360
      IF (VIS.LE.23.) GO TO 200                                         AER  370
      IF (ZHT(I).GT.4.0) GO TO 20                                       AER  380
      HAZI=CONST*((SPSU23(I)-SPSU50(I))/VIS+SPSU50(I)/23.-SPSU23(I)/50.)AER  390
      GO TO 200                                                         AER  400
   20 HAZI=SPSU50(I)                                                    AER  410
      GO TO 200                                                         AER  420
   25 IF (VIS.LE.23.) HAZI=FAWI23(I)                                    AER  430
      IF (VIS.LE.23.) GO TO 200                                         AER  440
      IF (ZHT(I).GT.4.0) GO TO 30                                       AER  450
      HAZI=CONST*((FAWI23(I)-FAWI50(I))/VIS+FAWI50(I)/23.-FAWI23(I)/50.)AER  460
      GO TO 200                                                         AER  470
   30 HAZI=FAWI50(I)                                                    AER  480
      GO TO 200                                                         AER  490
   35 IF (ZHT(I).GT.30.0) GO TO 75                                      AER  500
      HAZI=BASTSS(I)                                                    AER  510
      IF (ISEASN.GT.1) GO TO 55                                         AER  520
      IF (IVULCN.EQ.0) HAZI=BASTSS(I)                                   AER  530
      IF (IVULCN.EQ.0) GO TO 200                                        AER  540
      GO TO (40,45,50,50,45,45,50,52), IVULCN                           AER  550
   40 HAZI=BASTSS(I)                                                    AER  560
      GO TO 200                                                         AER  570
   45 HAZI=VUMOSS(I)                                                    AER  580
      GO TO 200                                                         AER  590
   50 HAZI=HIVUSS(I)                                                    AER  600
      GO TO 200                                                         AER  610
52    HAZI=EXVUSS(I)                                                    AER  620
      GO TO 200                                                         AER  630
   55 IF (IVULCN.EQ.0) HAZI=BASTFW(I)                                   AER  640
      IF (IVULCN.EQ.0) GO TO 200                                        AER  650
      GO TO (60,65,70,70,65,65,70,72), IVULCN                           AER  660
   60 HAZI=BASTFW(I)                                                    AER  670
      GO TO 200                                                         AER  680
   65 HAZI=VUMOFW(I)                                                    AER  690
      GO TO 200                                                         AER  700
   70 HAZI=HIVUFW(I)                                                    AER  710
      GO TO 200                                                         AER  720
72    HAZI=EXVUFW(I)                                                    AER  730
      GO TO 200                                                         AER  740
   75 N=14                                                              AER  750
      IF (IVULCN.GT.1) GO TO 80                                         AER  760
      HAZI=UPNATM(I)                                                    AER  770
      GO TO 200                                                         AER  780
   80 HAZI=VUTONO(I)                                                    AER  790
200   IF(HAZI.GT.0) HAZE=HAZI                                           AER  800
      RETURN                                                            AER  810
      END                                                               AER  820
      SUBROUTINE AERTMP                                                 AET  100
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            AET  110
C     COMMON             WPATH(68, 63),TBBY(68)                         AET -120
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   AET 120A
      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),VX2(47),AWCCON(5)         AET  130
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                AET  140
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               AET  150
      COMMON /AERTM/TAE7,TAE12,TAE13,TAE14,TAE16                        AET  160
      SUM7  = 0.                                                        AET  170
      SUM12 = 0.                                                        AET  180
      SUM13 = 0.                                                        AET  190
      SUM14 = 0.                                                        AET  200
      SUM16 = 0.                                                        AET  210
      TAE7  = 0.                                                        AET  220
      TAE12 = 0.                                                        AET  230
      TAE13 = 0.                                                        AET  240
      TAE14 = 0.                                                        AET  250
      TAE16 = 0.                                                        AET  260
      DO 10 KK = 1,IKMAX                                                AET  270
      IF(KK .EQ. 1) THEN                                                AET  280
           WDF7  = WPATH(KK,7)                                          AET  290
           WDF12 = WPATH(KK,12)                                         AET  300
           WDF13 = WPATH(KK,13)                                         AET  310
           WDF14 = WPATH(KK,14)                                         AET  320
           WDF16 = WPATH(KK,16)                                         AET  330
      ELSE                                                              AET  340
           WDF7  = WPATH(KK,7) -WPATH(KK-1,7)                           AET  350
           WDF12 = WPATH(KK,12)-WPATH(KK-1,12)                          AET  360
           WDF13 = WPATH(KK,13)-WPATH(KK-1,13)                          AET  370
           WDF14 = WPATH(KK,14)-WPATH(KK-1,14)                          AET  380
           WDF16 = WPATH(KK,16)-WPATH(KK-1,16)                          AET  390
      ENDIF                                                             AET  400
      SUM7 = SUM7  + WDF7                                               AET  410
      SUM12= SUM12 + WDF12                                              AET  420
      SUM13= SUM13 + WDF13                                              AET  430
      SUM14= SUM14 + WDF14                                              AET  440
      SUM16= SUM16 + WDF16                                              AET  450
      TAE7 = TAE7  + WDF7   * TBBY(KK)                                  AET  460
      TAE12= TAE12 + WDF12  * TBBY(KK)                                  AET  470
      TAE13= TAE13 + WDF13  * TBBY(KK)                                  AET  480
      TAE14= TAE14 + WDF14  * TBBY(KK)                                  AET  490
   10 TAE16= TAE16 + WDF16  * TBBY(KK)                                  AET  500
      IF(SUM7   .GT. 0.) THEN                                           AET  510
            TAE7 = TAE7 /SUM7                                           AET  520
      ELSE                                                              AET  530
            TAE7 = TBBY(1)                                              AET  540
      ENDIF                                                             AET  550
      IF(SUM12 .GT. 0.) THEN                                            AET  560
            TAE12= TAE12/SUM12                                          AET  570
      ELSE                                                              AET  580
            TAE12= TBBY(1)                                              AET  590
      ENDIF                                                             AET  600
      IF(SUM13 .GT. 0.) THEN                                            AET  610
            TAE13= TAE13/SUM13                                          AET  620
      ELSE                                                              AET  630
            TAE13= TBBY(1)                                              AET  640
      ENDIF                                                             AET  650
      IF(SUM14 .GT. 0.) THEN                                            AET  660
            TAE14= TAE14/SUM14                                          AET  670
      ELSE                                                              AET  680
            TAE14= TBBY(1)                                              AET  690
      ENDIF                                                             AET  700
      IF(SUM16 .GT. 0.) THEN                                            AET  710
            TAE16= TAE16/SUM16                                          AET  720
      ELSE                                                              AET  730
            TAE16= TBBY(1)                                              AET  740
      ENDIF                                                             AET  750
      RETURN                                                            AET  760
      END                                                               AET  770
      FUNCTION   AITK(ARG,VAL,X,NDIM)                                   AIT  100
C                                                                       AIT  110
C      IBM SCIENTIFIC SUBROUTINE                                        AIT  120
C     AITKEN INTERPOLATION ROUTINE                                      AIT  130
C                                                                       AIT  140
      DIMENSION ARG(NDIM),VAL(NDIM)                                     AIT  150
      IF(NDIM-1)9,7,1                                                   AIT  160
C                                                                       AIT  170
C     START OF AITKEN-LOOP                                              AIT  180
    1 DO 6 J=2,NDIM                                                     AIT  190
      IEND=J-1                                                          AIT  200
      DO 2 I=1,IEND                                                     AIT  210
      H=ARG(I)-ARG(J)                                                   AIT  220
      IF(H)2,13,2                                                       AIT  230
    2 VAL(J)=(VAL(I)*(X-ARG(J))-VAL(J)*(X-ARG(I)))/H                    AIT  240
    6 CONTINUE                                                          AIT  250
C     END OF AITKEN-LOOP                                                AIT  260
C                                                                       AIT  270
    7 J=NDIM                                                            AIT  280
    8 AITK=VAL(J)                                                       AIT  290
    9 RETURN                                                            AIT  300
C                                                                       AIT  310
C     THERE ARE TWO IDENTICAL ARGUMENT VALUES IN VECTOR ARG             AIT  320
   13 IER=3                                                             AIT  330
      J=IEND                                                            AIT  340
      GO TO 8                                                           AIT  350
      END                                                               AIT  360
      FUNCTION   ANDEX(H,SH,GAMMA)                                      FAN  100
C***********************************************************************FAN  110
C     COMPUTES THE INDEX OF REFRACTION AT HEIGHT H, SH IS THE           FAN  120
C     SCALE HEIGHT, GAMMA IS THE VALUE AT H=0 OF THE REFRACTIVITY =     FAN  130
C     INDEX-1                                                           FAN  140
C***********************************************************************FAN  150
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     FAN  160
      IF(SH.EQ.0.0) GO TO 10                                            FAN  170
      IF(H. LE. 0.) GO TO 10                                            FAN  180
      HSH = H/SH                                                        FAN  190
      IF(HSH .GT.BIGEXP) GO TO 20                                       FAN  200
      ANDEX = 1.0+GAMMA*EXP(-HSH )                                      FAN  210
      RETURN                                                            FAN  220
   10 ANDEX = 1.0+GAMMA                                                 FAN  230
      RETURN
   20 ANDEX = 1.
      RETURN                                                            FAN  240
      END                                                               FAN  250
      BLOCK DATA ATMCON                                                 BAT  100
C>    BLOCK DATA                                                        BAT  105
C***********************************************************************BAT  110
C     THIS SUBROUTINE INITIALIZES THE CONSTANTS  USED IN THE            BAT  120
C     PROGRAM. CONSTANTS RELATING TO THE ATMOSPHERIC PROFILES ARE STOREDBAT  130
C     IN BLOCK DATA MLATMB.                                             BAT  140
C***********************************************************************BAT  150
      COMMON /CONSTN/ PZERO,TZERO,AVOGAD,ALOSMT,GASCON,PLANK,BOLTZ,     BAT  160
     1    CLIGHT,ADCON,ALZERO,AVMWT,AIRMWT,AMWT(35)                     BAT  170
      DATA PZERO/1013.25/,TZERO/273.15/                                 BAT  180
      DATA AVOGAD/6.022045E+23/,ALOSMT/2.68675E+19/,                    BAT  190
     1    GASCON/8.31441E+7/,PLANK/6.626176E-27/,BOLTZ/1.380662E-16/,   BAT  200
     2    CLIGHT/2.99792458E10/                                         BAT  210
C*****ALZERO IS THE MEAN LORENTZ HALFWIDTH AT PZERO AND 296.0 K.        BAT  220
C*****AVMWT IS THE MEAN MOLECULAR WEIGHT USED TO AUTOMATICALLY          BAT  230
C*****GENERATE THE FASCODE BOUNDARIES IN AUTLAY                         BAT  240
      DATA ALZERO/0.1/,AVMWT/36.0/                                      BAT  250
      DATA AIRMWT/28.964/,AMWT/18.015,44.010,47.998,44.01,28.011,       BAT  260
     1    16.043,31.999,30.01,64.06,46.01,17.03,63.01,17.00,20.01,      BAT  270
     2    36.46,80.92,127.91,51.45,60.08,30.03,52.46,28.014,            BAT  280
     3    27.03, 50.49, 34.01, 26.03, 30.07, 34.00, 7*0./               BAT  290
      END                                                               BAT  300
      FUNCTION   BBFN(T,V)                                              BBF  100
C***********************************************************************BBF  110
C   PLANCK BLACK BODY FUNCTION IN UNITS OF WATTS/(CM2 STER MICROMETER)  BBF  120
C***********************************************************************BBF  130
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     BBF  140
      BBFN = 0.0                                                        BBF  150
      IF(V. LE. 0.) RETURN                                              BBF  160
      X = 1.43879*V/T                                                   BBF  170
C*****PROTECT AGAINST EXPONENTIAL OVERLOW                               BBF  180
      IF(X.GT.BIGEXP) RETURN                                            BBF  190
      BBFN = 1.190956E-16*V**5/(EXP(X)-1.0)                             BBF  200
      RETURN                                                            BBF  210
      END                                                               BBF  220
      FUNCTION   BETABS(U,G)                                            BET  100
C                                                                       BET  110
C   FUNCTION BETABS SUPPLIES THE BACK SCATTER FRACTION FOR A GIVEN      BET  120
C   ASYMMETRY FACTOR AND COSINE OF ANGLE                                BET  130
C                                             A.E.R. 1986               BET  140
C                                                                       BET  150
      DIMENSION A9(10,5),U8(9)                                          BET  160
      DATA U8/0.0,.1,.2,.3,.4,.5,.6,.8,1.0/                             BET  170
      DATA A9/.5, .5, .5, .5, .5, .5, .5, .5, .5, .5, .0, .13979292889, BET  180
     1   -.12019000482,   -.46017123188,  -.406828796532, -.3001541656, BET  190
     2   -.553474414782,  -.626794663911, -.84678101,   -.406823676662, BET  200
     3  .0, -1.5989873995, -.2724219928,  1.18747390274, .49409050834,  BET  210
     4   -.35928947292,    .37397957743,   .18057740986, .50718036245,  BET  220
     5    .01406832224, .0, 3.5184116963,  .6385960123, -2.081230849,   BET  230
     6  -1.0144699491,     .1589475781,   -.74761782865, -.37416958202, BET  240
     7   -.374040109,   .1055607702, .0, -2.5592172257,  -.7459840146,  BET  250
     8    .85392041407,    .4272082373,    .00049606046,  .42711266606, BET  260
     9    .32038683614,    .2136746594,   -.2128054157 /                BET  270
C                                                                       BET  280
C     BACKSCATTERING INTERPOLATION                                      BET  290
C                                                                       BET  300
      IQ=0                                                              BET  310
      IF(U .LT. .1) IQ=1                                                BET  320
      IF(U .LT. .2 .AND. U .GE. .1) IQ=2                                BET  330
      IF(U .LT. .3 .AND. U .GE. .2) IQ=3                                BET  340
      IF(U .LT. .4 .AND. U .GE. .3) IQ=4                                BET  350
      IF(U .LT. .5 .AND. U .GE. .4) IQ=5                                BET  360
      IF(U .LT. .6 .AND. U .GE. .5) IQ=6                                BET  370
      IF(U .LT. .8 .AND. U .GE. .6) IQ=7                                BET  380
      IF(U .LE.1.0 .AND. U .GE. .8) IQ=8                                BET  390
      IF (IQ .EQ. 0) THEN                                               BET  400
      WRITE(16,105) U                                                   BET  410
  105 FORMAT(//,' THE VALUE FOR MU OF ',F12.6,' IS > 1.0 ]]')           BET  420
      STOP ' ERROR ***'                                                 BET  430
      END IF                                                            BET  440
C                                                                       BET  450
      Y5=0.0                                                            BET  460
      Y6=0.0                                                            BET  470
      Y7=0.0                                                            BET  480
      IQP1=IQ+1                                                         BET  490
C                                                                       BET  500
      DO 30 J=1,5                                                       BET  510
      JM1=J-1                                                           BET  520
      Y9=A9(IQ,J)*G**JM1                                                BET  530
      Y8=A9(IQP1,J)*G**JM1                                              BET  540
      Y3=A9(10,J)*G**JM1                                                BET  550
      Y7=Y7+Y9                                                          BET  560
      Y6=Y6+Y8                                                          BET  570
      Y5=Y5+Y3                                                          BET  580
  30  CONTINUE                                                          BET  590
      BETABS=Y7+(Y6-Y7)*(U-U8(IQ))/(U8(IQP1)-U8(IQ))                    BET  600
C                                                                       BET  610
      RETURN                                                            BET  620
      END                                                               BET  630
      BLOCK DATA BFH2O                                                  BFH  100
C>    BLOCK DATA                                                        BFH  110
C               06/28/82                                                BFH  120
C               UNITS OF (CM**3/MOL)*1.E-20                             BFH  130
      COMMON /FH2O/ V1,V2,DV,NPT,F0000(2),                              BFH  140
     1      F0001(50),F0051(50),F0101(50),F0151(50),F0201(50),F0251(50),BFH  150
     2      F0301(50),F0351(50),F0401(50),F0451(50),F0501(50),F0551(50),BFH  160
     3      F0601(50),F0651(50),F0701(50),F0751(50),F0801(50),F0851(50),BFH  170
     4      F0901(50),F0951(50),F1001(50),F1051(50),F1101(50),F1151(50),BFH  180
     5      F1201(50),F1251(50),F1301(50),F1351(50),F1401(50),F1451(50),BFH  190
     6      F1501(50),F1551(50),F1601(50),F1651(50),F1701(50),F1751(50),BFH  200
     7      F1801(50),F1851(50),F1901(50),F1951(50),F2001(1)            BFH  210
C                                                                       BFH  220
C                                                                       BFH  230
       DATA V1,V2,DV,NPT /                                              BFH  240
     1      -20.0,     20000.0,       10.0,  2003/                      BFH  250
C                                                                       BFH  260
C                                                                       BFH  270
      DATA F0000/ 1.2859E-02, 1.1715E-02/                               BFH  280
      DATA F0001/                                                       BFH  290
     X 1.1038E-02, 1.1715E-02, 1.2859E-02, 1.5326E-02, 1.6999E-02,      BFH  300
     X 1.8321E-02, 1.9402E-02, 1.9570E-02, 1.9432E-02, 1.7572E-02,      BFH  310
     X 1.6760E-02, 1.5480E-02, 1.3984E-02, 1.2266E-02, 1.0467E-02,      BFH  320
     X 9.4526E-03, 8.0485E-03, 6.9484E-03, 6.1416E-03, 5.0941E-03,      BFH  330
     X 4.4836E-03, 3.8133E-03, 3.4608E-03, 3.1487E-03, 2.4555E-03,      BFH  340
     X 2.0977E-03, 1.7266E-03, 1.4920E-03, 1.2709E-03, 9.8081E-04,      BFH  350
     X 8.5063E-04, 6.8822E-04, 5.3809E-04, 4.4679E-04, 3.3774E-04,      BFH  360
     X 2.7979E-04, 2.1047E-04, 1.6511E-04, 1.2993E-04, 9.3033E-05,      BFH  370
     X 7.4360E-05, 5.6428E-05, 4.5442E-05, 3.4575E-05, 2.7903E-05,      BFH  380
     X 2.1374E-05, 1.6075E-05, 1.3022E-05, 1.0962E-05, 8.5959E-06/      BFH  390
      DATA F0051/                                                       BFH  400
     X 6.9125E-06, 5.3808E-06, 4.3586E-06, 3.6394E-06, 2.9552E-06,      BFH  410
     X 2.3547E-06, 1.8463E-06, 1.6036E-06, 1.3483E-06, 1.1968E-06,      BFH  420
     X 1.0333E-06, 8.4484E-07, 6.7195E-07, 5.0947E-07, 4.2343E-07,      BFH  430
     X 3.4453E-07, 2.7830E-07, 2.3063E-07, 1.9951E-07, 1.7087E-07,      BFH  440
     X 1.4393E-07, 1.2575E-07, 1.0750E-07, 8.2325E-08, 5.7524E-08,      BFH  450
     X 4.4482E-08, 3.8106E-08, 3.4315E-08, 2.9422E-08, 2.5069E-08,      BFH  460
     X 2.2402E-08, 1.9349E-08, 1.6152E-08, 1.2208E-08, 8.9660E-09,      BFH  470
     X 7.1322E-09, 6.1028E-09, 5.2938E-09, 4.5350E-09, 3.4977E-09,      BFH  480
     X 2.9511E-09, 2.4734E-09, 2.0508E-09, 1.8507E-09, 1.6373E-09,      BFH  490
     X 1.5171E-09, 1.3071E-09, 1.2462E-09, 1.2148E-09, 1.2590E-09/      BFH  500
      DATA F0101/                                                       BFH  510
     X 1.3153E-09, 1.3301E-09, 1.4483E-09, 1.6944E-09, 2.0559E-09,      BFH  520
     X 2.2954E-09, 2.6221E-09, 3.2606E-09, 4.2392E-09, 5.2171E-09,      BFH  530
     X 6.2553E-09, 8.2548E-09, 9.5842E-09, 1.1280E-08, 1.3628E-08,      BFH  540
     X 1.7635E-08, 2.1576E-08, 2.4835E-08, 3.0014E-08, 3.8485E-08,      BFH  550
     X 4.7440E-08, 5.5202E-08, 7.0897E-08, 9.6578E-08, 1.3976E-07,      BFH  560
     X 1.8391E-07, 2.3207E-07, 2.9960E-07, 4.0408E-07, 5.9260E-07,      BFH  570
     X 7.8487E-07, 1.0947E-06, 1.4676E-06, 1.9325E-06, 2.6587E-06,      BFH  580
     X 3.4534E-06, 4.4376E-06, 5.8061E-06, 7.0141E-06, 8.4937E-06,      BFH  590
     X 1.0186E-05, 1.2034E-05, 1.3837E-05, 1.6595E-05, 1.9259E-05,      BFH  600
     X 2.1620E-05, 2.3681E-05, 2.7064E-05, 3.2510E-05, 3.5460E-05/      BFH  610
      DATA F0151/                                                       BFH  620
     X 3.9109E-05, 4.2891E-05, 4.7757E-05, 5.0981E-05, 5.0527E-05,      BFH  630
     X 4.8618E-05, 4.4001E-05, 3.7982E-05, 3.2667E-05, 2.7794E-05,      BFH  640
     X 2.4910E-05, 2.4375E-05, 2.7316E-05, 3.2579E-05, 3.5499E-05,      BFH  650
     X 3.8010E-05, 4.1353E-05, 4.3323E-05, 4.3004E-05, 3.9790E-05,      BFH  660
     X 3.7718E-05, 3.6360E-05, 3.2386E-05, 2.7409E-05, 2.3626E-05,      BFH  670
     X 2.0631E-05, 1.8371E-05, 1.5445E-05, 1.2989E-05, 1.1098E-05,      BFH  680
     X 9.6552E-06, 8.0649E-06, 7.2365E-06, 5.9137E-06, 5.2759E-06,      BFH  690
     X 4.8860E-06, 4.1321E-06, 3.5918E-06, 2.7640E-06, 2.4892E-06,      BFH  700
     X 2.1018E-06, 1.7848E-06, 1.5855E-06, 1.3569E-06, 1.1986E-06,      BFH  710
     X 9.4693E-07, 7.4097E-07, 6.3443E-07, 4.8131E-07, 4.0942E-07/      BFH  720
      DATA F0201/                                                       BFH  730
     X 3.3316E-07, 2.8488E-07, 2.3461E-07, 1.7397E-07, 1.4684E-07,      BFH  740
     X 1.0953E-07, 8.5396E-08, 6.9261E-08, 5.4001E-08, 4.5430E-08,      BFH  750
     X 3.2791E-08, 2.5995E-08, 2.0225E-08, 1.5710E-08, 1.3027E-08,      BFH  760
     X 1.0229E-08, 8.5277E-09, 6.5249E-09, 5.0117E-09, 3.9906E-09,      BFH  770
     X 3.2332E-09, 2.7847E-09, 2.4570E-09, 2.3359E-09, 2.0599E-09,      BFH  780
     X 1.8436E-09, 1.6559E-09, 1.4910E-09, 1.2794E-09, 9.8229E-10,      BFH  790
     X 8.0054E-10, 6.0769E-10, 4.5646E-10, 3.3111E-10, 2.4428E-10,      BFH  800
     X 1.8007E-10, 1.3291E-10, 9.7974E-11, 7.8271E-11, 6.3833E-11,      BFH  810
     X 5.4425E-11, 4.6471E-11, 4.0209E-11, 3.5227E-11, 3.1212E-11,      BFH  820
     X 2.8840E-11, 2.7762E-11, 2.7935E-11, 3.2012E-11, 3.9525E-11/      BFH  830
      DATA F0251/                                                       BFH  840
     X 5.0303E-11, 6.8027E-11, 9.3954E-11, 1.2986E-10, 1.8478E-10,      BFH  850
     X 2.5331E-10, 3.4827E-10, 4.6968E-10, 6.2380E-10, 7.9106E-10,      BFH  860
     X 1.0026E-09, 1.2102E-09, 1.4146E-09, 1.6154E-09, 1.7510E-09,      BFH  870
     X 1.8575E-09, 1.8742E-09, 1.8700E-09, 1.8582E-09, 1.9657E-09,      BFH  880
     X 2.1204E-09, 2.0381E-09, 2.0122E-09, 2.0436E-09, 2.1213E-09,      BFH  890
     X 2.0742E-09, 1.9870E-09, 2.0465E-09, 2.1556E-09, 2.2222E-09,      BFH  900
     X 2.1977E-09, 2.1047E-09, 1.9334E-09, 1.7357E-09, 1.5754E-09,      BFH  910
     X 1.4398E-09, 1.4018E-09, 1.5459E-09, 1.7576E-09, 2.1645E-09,      BFH  920
     X 2.9480E-09, 4.4439E-09, 5.8341E-09, 8.0757E-09, 1.1658E-08,      BFH  930
     X 1.6793E-08, 2.2694E-08, 2.9468E-08, 3.9278E-08, 5.2145E-08/      BFH  940
      DATA F0301/                                                       BFH  950
     X 6.4378E-08, 7.7947E-08, 8.5321E-08, 9.7848E-08, 1.0999E-07,      BFH  960
     X 1.1489E-07, 1.2082E-07, 1.2822E-07, 1.4053E-07, 1.5238E-07,      BFH  970
     X 1.5454E-07, 1.5018E-07, 1.4048E-07, 1.2359E-07, 1.0858E-07,      BFH  980
     X 9.3486E-08, 8.1638E-08, 7.7690E-08, 8.4625E-08, 1.0114E-07,      BFH  990
     X 1.1430E-07, 1.2263E-07, 1.3084E-07, 1.3380E-07, 1.3573E-07,      BFH 1000
     X 1.3441E-07, 1.2962E-07, 1.2638E-07, 1.1934E-07, 1.1371E-07,      BFH 1010
     X 1.0871E-07, 9.8843E-08, 9.1877E-08, 9.1050E-08, 9.3213E-08,      BFH 1020
     X 9.2929E-08, 1.0155E-07, 1.1263E-07, 1.2370E-07, 1.3636E-07,      BFH 1030
     X 1.5400E-07, 1.7656E-07, 2.1329E-07, 2.3045E-07, 2.5811E-07,      BFH 1040
     X 2.9261E-07, 3.4259E-07, 4.0770E-07, 4.8771E-07, 5.8081E-07/      BFH 1050
      DATA F0351/                                                       BFH 1060
     X 7.2895E-07, 8.7482E-07, 1.0795E-06, 1.3384E-06, 1.7208E-06,      BFH 1070
     X 2.0677E-06, 2.5294E-06, 3.1123E-06, 3.7900E-06, 4.7752E-06,      BFH 1080
     X 5.6891E-06, 6.6261E-06, 7.6246E-06, 8.7730E-06, 9.6672E-06,      BFH 1090
     X 1.0980E-05, 1.1287E-05, 1.1670E-05, 1.1635E-05, 1.1768E-05,      BFH 1100
     X 1.2039E-05, 1.2253E-05, 1.3294E-05, 1.4005E-05, 1.3854E-05,      BFH 1110
     X 1.3420E-05, 1.3003E-05, 1.2645E-05, 1.1715E-05, 1.1258E-05,      BFH 1120
     X 1.1516E-05, 1.2494E-05, 1.3655E-05, 1.4931E-05, 1.4649E-05,      BFH 1130
     X 1.3857E-05, 1.3120E-05, 1.1791E-05, 1.0637E-05, 8.2760E-06,      BFH 1140
     X 6.5821E-06, 5.1959E-06, 4.0158E-06, 3.0131E-06, 2.0462E-06,      BFH 1150
     X 1.4853E-06, 1.0365E-06, 7.3938E-07, 4.9752E-07, 3.4148E-07/      BFH 1160
      DATA F0401/                                                       BFH 1170
     X 2.4992E-07, 1.8363E-07, 1.4591E-07, 1.1380E-07, 9.0588E-08,      BFH 1180
     X 7.3697E-08, 6.0252E-08, 5.1868E-08, 4.2660E-08, 3.6163E-08,      BFH 1190
     X 3.2512E-08, 2.9258E-08, 2.4238E-08, 2.1209E-08, 1.6362E-08,      BFH 1200
     X 1.3871E-08, 1.2355E-08, 9.6940E-09, 7.7735E-09, 6.2278E-09,      BFH 1210
     X 5.2282E-09, 4.3799E-09, 3.5545E-09, 2.7527E-09, 2.0950E-09,      BFH 1220
     X 1.6344E-09, 1.2689E-09, 1.0403E-09, 8.4880E-10, 6.3461E-10,      BFH 1230
     X 4.7657E-10, 3.5220E-10, 2.7879E-10, 2.3021E-10, 1.6167E-10,      BFH 1240
     X 1.1732E-10, 8.9206E-11, 7.0596E-11, 5.8310E-11, 4.4084E-11,      BFH 1250
     X 3.1534E-11, 2.5068E-11, 2.2088E-11, 2.2579E-11, 2.2637E-11,      BFH 1260
     X 2.5705E-11, 3.2415E-11, 4.6116E-11, 6.5346E-11, 9.4842E-11/      BFH 1270
      DATA F0451/                                                       BFH 1280
     X 1.2809E-10, 1.8211E-10, 2.4052E-10, 3.0270E-10, 3.5531E-10,      BFH 1290
     X 4.2402E-10, 4.6730E-10, 4.7942E-10, 4.6813E-10, 4.5997E-10,      BFH 1300
     X 4.5788E-10, 4.0311E-10, 3.7367E-10, 3.3149E-10, 2.9281E-10,      BFH 1310
     X 2.5231E-10, 2.1152E-10, 1.9799E-10, 1.8636E-10, 1.9085E-10,      BFH 1320
     X 2.0786E-10, 2.2464E-10, 2.3785E-10, 2.5684E-10, 2.7499E-10,      BFH 1330
     X 2.6962E-10, 2.6378E-10, 2.6297E-10, 2.6903E-10, 2.7035E-10,      BFH 1340
     X 2.5394E-10, 2.5655E-10, 2.7184E-10, 2.9013E-10, 3.0585E-10,      BFH 1350
     X 3.0791E-10, 3.1667E-10, 3.4343E-10, 3.7365E-10, 4.0269E-10,      BFH 1360
     X 4.7260E-10, 5.6584E-10, 6.9791E-10, 8.6569E-10, 1.0393E-09,      BFH 1370
     X 1.2067E-09, 1.5047E-09, 1.8583E-09, 2.2357E-09, 2.6498E-09/      BFH 1380
      DATA F0501/                                                       BFH 1390
     X 3.2483E-09, 3.9927E-09, 4.6618E-09, 5.5555E-09, 6.6609E-09,      BFH 1400
     X 8.2139E-09, 1.0285E-08, 1.3919E-08, 1.8786E-08, 2.5150E-08,      BFH 1410
     X 3.3130E-08, 4.5442E-08, 6.3370E-08, 9.0628E-08, 1.2118E-07,      BFH 1420
     X 1.5927E-07, 2.1358E-07, 2.7825E-07, 3.7671E-07, 4.4894E-07,      BFH 1430
     X 5.4442E-07, 6.2240E-07, 7.3004E-07, 8.3384E-07, 8.7933E-07,      BFH 1440
     X 8.8080E-07, 8.6939E-07, 8.6541E-07, 8.2055E-07, 7.7278E-07,      BFH 1450
     X 7.5989E-07, 8.6909E-07, 9.7945E-07, 1.0394E-06, 1.0646E-06,      BFH 1460
     X 1.1509E-06, 1.2017E-06, 1.1915E-06, 1.1259E-06, 1.1549E-06,      BFH 1470
     X 1.1938E-06, 1.2356E-06, 1.2404E-06, 1.1716E-06, 1.1149E-06,      BFH 1480
     X 1.0073E-06, 8.9845E-07, 7.6639E-07, 6.1517E-07, 5.0887E-07/      BFH 1490
      DATA F0551/                                                       BFH 1500
     X 4.1269E-07, 3.2474E-07, 2.5698E-07, 1.8893E-07, 1.4009E-07,      BFH 1510
     X 1.0340E-07, 7.7724E-08, 5.7302E-08, 4.2178E-08, 2.9603E-08,      BFH 1520
     X 2.1945E-08, 1.6301E-08, 1.2806E-08, 1.0048E-08, 7.8970E-09,      BFH 1530
     X 6.1133E-09, 4.9054E-09, 4.1985E-09, 3.6944E-09, 3.2586E-09,      BFH 1540
     X 2.7362E-09, 2.3647E-09, 2.1249E-09, 1.8172E-09, 1.6224E-09,      BFH 1550
     X 1.5158E-09, 1.2361E-09, 1.0682E-09, 9.2312E-10, 7.9220E-10,      BFH 1560
     X 6.8174E-10, 5.6147E-10, 4.8268E-10, 4.1534E-10, 3.3106E-10,      BFH 1570
     X 2.8275E-10, 2.4584E-10, 2.0742E-10, 1.7840E-10, 1.4664E-10,      BFH 1580
     X 1.2390E-10, 1.0497E-10, 8.5038E-11, 6.7008E-11, 5.6355E-11,      BFH 1590
     X 4.3323E-11, 3.6914E-11, 3.2262E-11, 3.0749E-11, 3.0318E-11/      BFH 1600
      DATA F0601/                                                       BFH 1610
     X 2.9447E-11, 2.9918E-11, 3.0668E-11, 3.1315E-11, 3.0329E-11,      BFH 1620
     X 2.8259E-11, 2.6065E-11, 2.3578E-11, 2.0469E-11, 1.6908E-11,      BFH 1630
     X 1.4912E-11, 1.1867E-11, 9.9730E-12, 8.1014E-12, 6.7528E-12,      BFH 1640
     X 6.3133E-12, 5.8599E-12, 6.0145E-12, 6.5105E-12, 7.0537E-12,      BFH 1650
     X 7.4973E-12, 7.8519E-12, 8.5039E-12, 9.1995E-12, 1.0694E-11,      BFH 1660
     X 1.1659E-11, 1.2685E-11, 1.3087E-11, 1.3222E-11, 1.2634E-11,      BFH 1670
     X 1.1077E-11, 9.6259E-12, 8.3202E-12, 7.4857E-12, 6.8069E-12,      BFH 1680
     X 6.7496E-12, 7.3116E-12, 8.0171E-12, 8.6394E-12, 9.2659E-12,      BFH 1690
     X 1.0048E-11, 1.0941E-11, 1.2226E-11, 1.3058E-11, 1.5193E-11,      BFH 1700
     X 1.8923E-11, 2.3334E-11, 2.8787E-11, 3.6693E-11, 4.8295E-11/      BFH 1710
      DATA F0651/                                                       BFH 1720
     X 6.4260E-11, 8.8269E-11, 1.1865E-10, 1.5961E-10, 2.0605E-10,      BFH 1730
     X 2.7349E-10, 3.7193E-10, 4.8216E-10, 6.1966E-10, 7.7150E-10,      BFH 1740
     X 1.0195E-09, 1.2859E-09, 1.6535E-09, 2.0316E-09, 2.3913E-09,      BFH 1750
     X 3.0114E-09, 3.7495E-09, 4.6504E-09, 5.9145E-09, 7.6840E-09,      BFH 1760
     X 1.0304E-08, 1.3010E-08, 1.6441E-08, 2.1475E-08, 2.5892E-08,      BFH 1770
     X 2.9788E-08, 3.3820E-08, 4.0007E-08, 4.4888E-08, 4.5765E-08,      BFH 1780
     X 4.6131E-08, 4.6239E-08, 4.4849E-08, 4.0729E-08, 3.6856E-08,      BFH 1790
     X 3.6164E-08, 3.7606E-08, 4.1457E-08, 4.3750E-08, 5.1150E-08,      BFH 1800
     X 5.6054E-08, 6.1586E-08, 6.4521E-08, 6.6494E-08, 6.9024E-08,      BFH 1810
     X 6.8893E-08, 7.0901E-08, 6.9760E-08, 7.1485E-08, 7.0740E-08/      BFH 1820
      DATA F0701/                                                       BFH 1830
     X 7.3764E-08, 7.6618E-08, 8.4182E-08, 9.3838E-08, 1.0761E-07,      BFH 1840
     X 1.2851E-07, 1.4748E-07, 1.8407E-07, 2.2109E-07, 2.6392E-07,      BFH 1850
     X 2.9887E-07, 3.4493E-07, 4.0336E-07, 4.3551E-07, 4.9231E-07,      BFH 1860
     X 5.0728E-07, 5.3781E-07, 5.3285E-07, 5.4496E-07, 5.5707E-07,      BFH 1870
     X 5.6944E-07, 6.1123E-07, 6.4317E-07, 6.4581E-07, 6.1999E-07,      BFH 1880
     X 6.0191E-07, 5.7762E-07, 5.7241E-07, 5.7013E-07, 6.0160E-07,      BFH 1890
     X 6.6905E-07, 7.4095E-07, 8.2121E-07, 8.0947E-07, 7.6145E-07,      BFH 1900
     X 7.2193E-07, 6.3722E-07, 5.4316E-07, 4.2186E-07, 3.2528E-07,      BFH 1910
     X 2.5207E-07, 1.8213E-07, 1.2658E-07, 8.6746E-08, 6.0216E-08,      BFH 1920
     X 4.1122E-08, 2.8899E-08, 2.1740E-08, 1.7990E-08, 1.5593E-08/      BFH 1930
      DATA F0751/                                                       BFH 1940
     X 1.3970E-08, 1.2238E-08, 1.0539E-08, 9.2386E-09, 7.8481E-09,      BFH 1950
     X 6.8704E-09, 5.7615E-09, 5.0434E-09, 4.6886E-09, 4.3770E-09,      BFH 1960
     X 3.9768E-09, 3.5202E-09, 3.1854E-09, 2.9009E-09, 2.5763E-09,      BFH 1970
     X 2.2135E-09, 1.9455E-09, 1.6248E-09, 1.3368E-09, 1.0842E-09,      BFH 1980
     X 8.4254E-10, 6.7414E-10, 5.4667E-10, 4.5005E-10, 3.4932E-10,      BFH 1990
     X 2.6745E-10, 2.2053E-10, 1.8162E-10, 1.4935E-10, 1.1618E-10,      BFH 2000
     X 9.1888E-11, 8.0672E-11, 6.8746E-11, 6.2668E-11, 5.5715E-11,      BFH 2010
     X 4.5074E-11, 3.7669E-11, 3.2082E-11, 2.8085E-11, 2.4838E-11,      BFH 2020
     X 1.9791E-11, 1.6964E-11, 1.3887E-11, 1.1179E-11, 9.7499E-12,      BFH 2030
     X 7.8255E-12, 6.3698E-12, 5.3265E-12, 4.6588E-12, 4.4498E-12/      BFH 2040
      DATA F0801/                                                       BFH 2050
     X 3.9984E-12, 3.7513E-12, 3.7176E-12, 3.9148E-12, 4.2702E-12,      BFH 2060
     X 5.0090E-12, 6.5801E-12, 8.7787E-12, 1.2718E-11, 1.8375E-11,      BFH 2070
     X 2.5304E-11, 3.5403E-11, 4.8842E-11, 6.4840E-11, 8.0911E-11,      BFH 2080
     X 1.0136E-10, 1.2311E-10, 1.4203E-10, 1.5869E-10, 1.8093E-10,      BFH 2090
     X 2.1370E-10, 2.5228E-10, 2.8816E-10, 3.4556E-10, 3.9860E-10,      BFH 2100
     X 4.4350E-10, 4.7760E-10, 5.2357E-10, 6.0827E-10, 6.3635E-10,      BFH 2110
     X 6.5886E-10, 6.8753E-10, 7.2349E-10, 7.2789E-10, 6.8232E-10,      BFH 2120
     X 6.6081E-10, 6.4232E-10, 6.3485E-10, 6.4311E-10, 7.2235E-10,      BFH 2130
     X 7.7263E-10, 8.1668E-10, 9.0324E-10, 9.7643E-10, 1.0535E-09,      BFH 2140
     X 1.0195E-09, 1.0194E-09, 1.0156E-09, 9.6792E-10, 9.2725E-10/      BFH 2150
      DATA F0851/                                                       BFH 2160
     X 8.7347E-10, 8.4484E-10, 8.2647E-10, 8.4363E-10, 9.1261E-10,      BFH 2170
     X 1.0051E-09, 1.1511E-09, 1.4037E-09, 1.8066E-09, 2.4483E-09,      BFH 2180
     X 3.2739E-09, 4.3194E-09, 5.6902E-09, 7.7924E-09, 9.7376E-09,      BFH 2190
     X 1.2055E-08, 1.4303E-08, 1.6956E-08, 1.9542E-08, 2.2233E-08,      BFH 2200
     X 2.5186E-08, 2.7777E-08, 2.8943E-08, 2.8873E-08, 2.9417E-08,      BFH 2210
     X 2.7954E-08, 2.7524E-08, 2.7040E-08, 3.1254E-08, 3.6843E-08,      BFH 2220
     X 3.7797E-08, 3.8713E-08, 4.0135E-08, 4.2824E-08, 4.3004E-08,      BFH 2230
     X 4.0279E-08, 4.2781E-08, 4.5220E-08, 4.8948E-08, 5.0172E-08,      BFH 2240
     X 4.8499E-08, 4.7182E-08, 4.2204E-08, 3.7701E-08, 3.0972E-08,      BFH 2250
     X 2.4654E-08, 1.9543E-08, 1.4609E-08, 1.1171E-08, 8.3367E-09/      BFH 2260
      DATA F0901/                                                       BFH 2270
     X 6.3791E-09, 5.0790E-09, 4.0655E-09, 3.3658E-09, 2.7882E-09,      BFH 2280
     X 2.4749E-09, 2.2287E-09, 2.0217E-09, 1.8191E-09, 1.5897E-09,      BFH 2290
     X 1.4191E-09, 1.2448E-09, 1.0884E-09, 9.3585E-10, 7.9429E-10,      BFH 2300
     X 7.3214E-10, 6.5008E-10, 5.7549E-10, 5.4300E-10, 4.7251E-10,      BFH 2310
     X 4.3451E-10, 3.8446E-10, 3.5589E-10, 3.4432E-10, 2.8209E-10,      BFH 2320
     X 2.4620E-10, 2.1278E-10, 1.8406E-10, 1.6314E-10, 1.3261E-10,      BFH 2330
     X 1.1696E-10, 9.6865E-11, 7.6814E-11, 6.6411E-11, 5.0903E-11,      BFH 2340
     X 4.0827E-11, 3.0476E-11, 2.3230E-11, 1.7707E-11, 1.3548E-11,      BFH 2350
     X 1.0719E-11, 9.3026E-12, 8.7967E-12, 8.3136E-12, 7.3918E-12,      BFH 2360
     X 6.5293E-12, 5.9243E-12, 5.3595E-12, 3.5266E-12, 2.2571E-12/      BFH 2370
      DATA F0951/                                                       BFH 2380
     X 1.6150E-12, 1.1413E-12, 8.4998E-13, 7.0803E-13, 5.1747E-13,      BFH 2390
     X 4.0694E-13, 3.6528E-13, 3.3670E-13, 3.1341E-13, 2.9390E-13,      BFH 2400
     X 2.8680E-13, 3.1283E-13, 3.7294E-13, 5.0194E-13, 6.7919E-13,      BFH 2410
     X 1.0455E-12, 1.5230E-12, 2.3932E-12, 3.4231E-12, 5.0515E-12,      BFH 2420
     X 7.3193E-12, 9.9406E-12, 1.2193E-11, 1.4742E-11, 1.9269E-11,      BFH 2430
     X 2.1816E-11, 2.2750E-11, 2.2902E-11, 2.3888E-11, 2.4902E-11,      BFH 2440
     X 2.2160E-11, 2.0381E-11, 1.9903E-11, 2.0086E-11, 1.9304E-11,      BFH 2450
     X 2.0023E-11, 2.2244E-11, 2.5450E-11, 3.1228E-11, 3.4560E-11,      BFH 2460
     X 3.6923E-11, 3.7486E-11, 3.8124E-11, 3.8317E-11, 3.4737E-11,      BFH 2470
     X 3.3037E-11, 3.1724E-11, 2.9840E-11, 2.8301E-11, 2.5857E-11/      BFH 2480
      DATA F1001/                                                       BFH 2490
     X 2.3708E-11, 1.9452E-11, 1.6232E-11, 1.5174E-11, 1.4206E-11,      BFH 2500
     X 1.4408E-11, 1.5483E-11, 1.8642E-11, 2.3664E-11, 3.0181E-11,      BFH 2510
     X 4.0160E-11, 5.2287E-11, 7.2754E-11, 1.0511E-10, 1.4531E-10,      BFH 2520
     X 2.0998E-10, 2.6883E-10, 3.3082E-10, 4.2638E-10, 5.3132E-10,      BFH 2530
     X 6.3617E-10, 7.1413E-10, 8.5953E-10, 9.9715E-10, 1.0796E-09,      BFH 2540
     X 1.0978E-09, 1.1052E-09, 1.1095E-09, 1.0641E-09, 9.7881E-10,      BFH 2550
     X 9.6590E-10, 1.0332E-09, 1.1974E-09, 1.3612E-09, 1.5829E-09,      BFH 2560
     X 1.8655E-09, 2.1465E-09, 2.4779E-09, 2.7370E-09, 2.9915E-09,      BFH 2570
     X 3.3037E-09, 3.6347E-09, 3.9587E-09, 4.4701E-09, 5.0122E-09,      BFH 2580
     X 5.8044E-09, 6.1916E-09, 6.9613E-09, 7.7863E-09, 8.2820E-09/      BFH 2590
      DATA F1051/                                                       BFH 2600
     X 9.4359E-09, 9.7387E-09, 1.0656E-08, 1.0746E-08, 1.1210E-08,      BFH 2610
     X 1.1905E-08, 1.2194E-08, 1.3145E-08, 1.3738E-08, 1.3634E-08,      BFH 2620
     X 1.3011E-08, 1.2511E-08, 1.1805E-08, 1.2159E-08, 1.2390E-08,      BFH 2630
     X 1.3625E-08, 1.5678E-08, 1.7886E-08, 1.9933E-08, 1.9865E-08,      BFH 2640
     X 1.9000E-08, 1.7812E-08, 1.5521E-08, 1.2593E-08, 9.5635E-09,      BFH 2650
     X 7.2987E-09, 5.2489E-09, 3.5673E-09, 2.4206E-09, 1.6977E-09,      BFH 2660
     X 1.2456E-09, 9.3744E-10, 7.8379E-10, 6.9960E-10, 6.6451E-10,      BFH 2670
     X 6.8521E-10, 7.4234E-10, 8.6658E-10, 9.4972E-10, 1.0791E-09,      BFH 2680
     X 1.2359E-09, 1.3363E-09, 1.5025E-09, 1.5368E-09, 1.6152E-09,      BFH 2690
     X 1.6184E-09, 1.6557E-09, 1.7035E-09, 1.6916E-09, 1.7237E-09/      BFH 2700
      DATA F1101/                                                       BFH 2710
     X 1.7175E-09, 1.6475E-09, 1.5335E-09, 1.4272E-09, 1.3282E-09,      BFH 2720
     X 1.3459E-09, 1.4028E-09, 1.5192E-09, 1.7068E-09, 1.9085E-09,      BFH 2730
     X 2.1318E-09, 2.1020E-09, 1.9942E-09, 1.8654E-09, 1.6391E-09,      BFH 2740
     X 1.3552E-09, 1.0186E-09, 7.8540E-10, 5.7022E-10, 3.9247E-10,      BFH 2750
     X 2.5441E-10, 1.6699E-10, 1.1132E-10, 6.8989E-11, 4.5255E-11,      BFH 2760
     X 3.1106E-11, 2.3161E-11, 1.7618E-11, 1.4380E-11, 1.1601E-11,      BFH 2770
     X 9.7148E-12, 8.4519E-12, 6.5392E-12, 5.4113E-12, 4.7624E-12,      BFH 2780
     X 4.0617E-12, 3.6173E-12, 2.8608E-12, 2.2724E-12, 1.7436E-12,      BFH 2790
     X 1.3424E-12, 1.0358E-12, 7.3064E-13, 5.4500E-13, 4.0551E-13,      BFH 2800
     X 2.8642E-13, 2.1831E-13, 1.6860E-13, 1.2086E-13, 1.0150E-13/      BFH 2810
      DATA F1151/                                                       BFH 2820
     X 9.3550E-14, 8.4105E-14, 7.3051E-14, 6.9796E-14, 7.9949E-14,      BFH 2830
     X 1.0742E-13, 1.5639E-13, 2.1308E-13, 3.1226E-13, 4.6853E-13,      BFH 2840
     X 6.6917E-13, 1.0088E-12, 1.4824E-12, 2.2763E-12, 3.3917E-12,      BFH 2850
     X 4.4585E-12, 6.3187E-12, 8.4189E-12, 1.1302E-11, 1.3431E-11,      BFH 2860
     X 1.5679E-11, 1.9044E-11, 2.2463E-11, 2.3605E-11, 2.3619E-11,      BFH 2870
     X 2.3505E-11, 2.3805E-11, 2.2549E-11, 1.9304E-11, 1.8382E-11,      BFH 2880
     X 1.7795E-11, 1.8439E-11, 1.9146E-11, 2.1966E-11, 2.6109E-11,      BFH 2890
     X 3.1883E-11, 3.7872E-11, 4.3966E-11, 4.8789E-11, 5.3264E-11,      BFH 2900
     X 5.9705E-11, 6.3744E-11, 7.0163E-11, 7.9114E-11, 8.8287E-11,      BFH 2910
     X 9.9726E-11, 1.1498E-10, 1.3700E-10, 1.6145E-10, 1.9913E-10/      BFH 2920
      DATA F1201/                                                       BFH 2930
     X 2.2778E-10, 2.6216E-10, 2.9770E-10, 3.3405E-10, 3.7821E-10,      BFH 2940
     X 3.9552E-10, 4.1322E-10, 4.0293E-10, 4.0259E-10, 3.8853E-10,      BFH 2950
     X 3.7842E-10, 3.8551E-10, 4.4618E-10, 5.0527E-10, 5.0695E-10,      BFH 2960
     X 5.1216E-10, 5.1930E-10, 5.5794E-10, 5.3320E-10, 5.2008E-10,      BFH 2970
     X 5.6888E-10, 6.1883E-10, 6.9006E-10, 6.9505E-10, 6.6768E-10,      BFH 2980
     X 6.3290E-10, 5.6753E-10, 5.0327E-10, 3.9830E-10, 3.1147E-10,      BFH 2990
     X 2.4416E-10, 1.8860E-10, 1.3908E-10, 9.9156E-11, 7.3779E-11,      BFH 3000
     X 5.6048E-11, 4.2457E-11, 3.4505E-11, 2.9881E-11, 2.7865E-11,      BFH 3010
     X 2.8471E-11, 3.1065E-11, 3.4204E-11, 3.9140E-11, 4.3606E-11,      BFH 3020
     X 4.9075E-11, 5.3069E-11, 5.5236E-11, 5.5309E-11, 5.3832E-11/      BFH 3030
      DATA F1251/                                                       BFH 3040
     X 5.3183E-11, 5.1783E-11, 5.2042E-11, 5.4422E-11, 5.5656E-11,      BFH 3050
     X 5.4409E-11, 5.2659E-11, 5.1696E-11, 5.1726E-11, 4.9003E-11,      BFH 3060
     X 4.9050E-11, 5.1700E-11, 5.6818E-11, 6.3129E-11, 6.6542E-11,      BFH 3070
     X 6.4367E-11, 5.9908E-11, 5.4470E-11, 4.7903E-11, 3.9669E-11,      BFH 3080
     X 2.9651E-11, 2.2286E-11, 1.6742E-11, 1.1827E-11, 7.7739E-12,      BFH 3090
     X 4.8805E-12, 3.1747E-12, 2.0057E-12, 1.2550E-12, 8.7434E-13,      BFH 3100
     X 6.2755E-13, 4.9752E-13, 4.0047E-13, 3.5602E-13, 3.0930E-13,      BFH 3110
     X 2.4903E-13, 1.9316E-13, 1.4995E-13, 1.2059E-13, 8.7242E-14,      BFH 3120
     X 6.4511E-14, 5.3300E-14, 4.3741E-14, 3.4916E-14, 2.6560E-14,      BFH 3130
     X 1.6923E-14, 1.1816E-14, 6.7071E-15, 3.6474E-15, 2.0686E-15/      BFH 3140
      DATA F1301/                                                       BFH 3150
     X 1.1925E-15, 6.8948E-16, 3.9661E-16, 2.2576E-16, 1.2669E-16,      BFH 3160
     X 6.9908E-17, 3.7896E-17, 2.0280E-17, 1.1016E-17, 6.7816E-18,      BFH 3170
     X 6.0958E-18, 8.9913E-18, 1.7201E-17, 3.4964E-17, 7.0722E-17,      BFH 3180
     X 1.4020E-16, 2.7167E-16, 5.1478E-16, 9.5500E-16, 1.7376E-15,      BFH 3190
     X 3.1074E-15, 5.4789E-15, 9.5640E-15, 1.6635E-14, 2.9145E-14,      BFH 3200
     X 5.2179E-14, 8.8554E-14, 1.4764E-13, 2.3331E-13, 3.5996E-13,      BFH 3210
     X 5.2132E-13, 6.3519E-13, 7.3174E-13, 8.3752E-13, 9.8916E-13,      BFH 3220
     X 1.1515E-12, 1.4034E-12, 1.6594E-12, 2.1021E-12, 2.7416E-12,      BFH 3230
     X 3.4135E-12, 4.5517E-12, 5.5832E-12, 7.2303E-12, 9.9484E-12,      BFH 3240
     X 1.2724E-11, 1.6478E-11, 2.0588E-11, 2.5543E-11, 3.3625E-11/      BFH 3250
      DATA F1351/                                                       BFH 3260
     X 4.1788E-11, 5.0081E-11, 6.0144E-11, 6.9599E-11, 8.4408E-11,      BFH 3270
     X 9.7143E-11, 1.0805E-10, 1.1713E-10, 1.2711E-10, 1.3727E-10,      BFH 3280
     X 1.4539E-10, 1.6049E-10, 1.7680E-10, 2.0557E-10, 2.4967E-10,      BFH 3290
     X 3.0096E-10, 3.5816E-10, 4.0851E-10, 4.6111E-10, 5.2197E-10,      BFH 3300
     X 5.5043E-10, 6.0324E-10, 6.4983E-10, 6.7498E-10, 7.0545E-10,      BFH 3310
     X 7.0680E-10, 7.5218E-10, 7.5723E-10, 7.7840E-10, 8.0081E-10,      BFH 3320
     X 8.0223E-10, 7.7271E-10, 7.1676E-10, 6.7819E-10, 6.4753E-10,      BFH 3330
     X 6.5844E-10, 7.0163E-10, 7.7503E-10, 8.8152E-10, 9.9022E-10,      BFH 3340
     X 1.0229E-09, 9.9296E-10, 8.9911E-10, 7.7813E-10, 6.3785E-10,      BFH 3350
     X 4.7491E-10, 3.5280E-10, 2.4349E-10, 1.6502E-10, 1.1622E-10/      BFH 3360
      DATA F1401/                                                       BFH 3370
     X 8.6715E-11, 6.7360E-11, 5.3910E-11, 4.5554E-11, 4.1300E-11,      BFH 3380
     X 3.9728E-11, 3.9000E-11, 3.9803E-11, 4.1514E-11, 4.3374E-11,      BFH 3390
     X 4.6831E-11, 4.8921E-11, 5.1995E-11, 5.7242E-11, 6.2759E-11,      BFH 3400
     X 7.0801E-11, 7.4555E-11, 7.9754E-11, 8.7616E-11, 9.1171E-11,      BFH 3410
     X 1.0349E-10, 1.1047E-10, 1.2024E-10, 1.2990E-10, 1.3725E-10,      BFH 3420
     X 1.5005E-10, 1.5268E-10, 1.5535E-10, 1.5623E-10, 1.5009E-10,      BFH 3430
     X 1.4034E-10, 1.3002E-10, 1.2225E-10, 1.1989E-10, 1.2411E-10,      BFH 3440
     X 1.3612E-10, 1.5225E-10, 1.7202E-10, 1.9471E-10, 1.9931E-10,      BFH 3450
     X 1.9079E-10, 1.7478E-10, 1.5259E-10, 1.2625E-10, 9.3332E-11,      BFH 3460
     X 6.8796E-11, 4.6466E-11, 2.9723E-11, 1.8508E-11, 1.2106E-11/      BFH 3470
      DATA F1451/                                                       BFH 3480
     X 8.0142E-12, 5.4066E-12, 3.9329E-12, 3.1665E-12, 2.7420E-12,      BFH 3490
     X 2.3996E-12, 2.3804E-12, 2.3242E-12, 2.4476E-12, 2.5331E-12,      BFH 3500
     X 2.3595E-12, 2.2575E-12, 2.1298E-12, 2.0088E-12, 1.8263E-12,      BFH 3510
     X 1.6114E-12, 1.4422E-12, 1.2946E-12, 1.0837E-12, 9.1282E-13,      BFH 3520
     X 7.2359E-13, 5.3307E-13, 3.8837E-13, 2.6678E-13, 1.6769E-13,      BFH 3530
     X 1.0826E-13, 7.2364E-14, 4.5201E-14, 3.0808E-14, 2.2377E-14,      BFH 3540
     X 1.7040E-14, 9.2181E-15, 5.2934E-15, 3.5774E-15, 3.1431E-15,      BFH 3550
     X 3.7647E-15, 5.6428E-15, 9.5139E-15, 1.7322E-14, 2.8829E-14,      BFH 3560
     X 4.7708E-14, 6.9789E-14, 9.7267E-14, 1.4662E-13, 1.9429E-13,      BFH 3570
     X 2.5998E-13, 3.6636E-13, 4.7960E-13, 6.5129E-13, 7.7638E-13/      BFH 3580
      DATA F1501/                                                       BFH 3590
     X 9.3774E-13, 1.1467E-12, 1.3547E-12, 1.5686E-12, 1.6893E-12,      BFH 3600
     X 1.9069E-12, 2.1352E-12, 2.3071E-12, 2.4759E-12, 2.8247E-12,      BFH 3610
     X 3.4365E-12, 4.3181E-12, 5.6107E-12, 7.0017E-12, 8.6408E-12,      BFH 3620
     X 1.0974E-11, 1.3742E-11, 1.6337E-11, 2.0157E-11, 2.3441E-11,      BFH 3630
     X 2.6733E-11, 3.0247E-11, 3.3737E-11, 3.8618E-11, 4.1343E-11,      BFH 3640
     X 4.3870E-11, 4.4685E-11, 4.4881E-11, 4.5526E-11, 4.3628E-11,      BFH 3650
     X 4.4268E-11, 4.6865E-11, 5.3426E-11, 5.4020E-11, 5.3218E-11,      BFH 3660
     X 5.4587E-11, 5.6360E-11, 5.7740E-11, 5.6426E-11, 6.0399E-11,      BFH 3670
     X 6.6981E-11, 7.4319E-11, 7.7977E-11, 7.5539E-11, 7.1610E-11,      BFH 3680
     X 6.4606E-11, 5.5498E-11, 4.3944E-11, 3.3769E-11, 2.5771E-11/      BFH 3690
      DATA F1551/                                                       BFH 3700
     X 1.9162E-11, 1.3698E-11, 1.0173E-11, 7.8925E-12, 6.1938E-12,      BFH 3710
     X 4.7962E-12, 4.0811E-12, 3.3912E-12, 2.8625E-12, 2.4504E-12,      BFH 3720
     X 2.2188E-12, 2.2139E-12, 2.2499E-12, 2.2766E-12, 2.3985E-12,      BFH 3730
     X 2.5459E-12, 2.9295E-12, 3.4196E-12, 3.6155E-12, 4.0733E-12,      BFH 3740
     X 4.4610E-12, 4.9372E-12, 5.4372E-12, 5.7304E-12, 6.1640E-12,      BFH 3750
     X 6.1278E-12, 6.2940E-12, 6.4947E-12, 6.8174E-12, 7.5190E-12,      BFH 3760
     X 8.2608E-12, 8.4971E-12, 8.3484E-12, 8.1888E-12, 7.8552E-12,      BFH 3770
     X 7.8468E-12, 7.5943E-12, 7.9096E-12, 8.6869E-12, 9.1303E-12,      BFH 3780
     X 9.2547E-12, 8.9322E-12, 8.2177E-12, 7.3408E-12, 5.7956E-12,      BFH 3790
     X 4.4470E-12, 3.5881E-12, 2.6748E-12, 1.7074E-12, 9.6700E-13/      BFH 3800
      DATA F1601/                                                       BFH 3810
     X 5.2645E-13, 2.9943E-13, 1.7316E-13, 1.0039E-13, 5.7859E-14,      BFH 3820
     X 3.2968E-14, 1.8499E-14, 1.0192E-14, 5.5015E-15, 2.9040E-15,      BFH 3830
     X 1.4968E-15, 7.5244E-16, 3.6852E-16, 1.7568E-16, 8.1464E-17,      BFH 3840
     X 3.6717E-17, 1.6076E-17, 6.8341E-18, 2.8195E-18, 1.1286E-18,      BFH 3850
     X  .0000E+00,  .0000E+00,  .0000E+00,  .0000E+00,  .0000E+00,      BFH 3860
     X  .0000E+00,  .0000E+00,  .0000E+00,  .0000E+00, 1.4070E-18,      BFH 3870
     X 3.0405E-18, 6.4059E-18, 1.3169E-17, 2.6443E-17, 5.1917E-17,      BFH 3880
     X 9.9785E-17, 1.8802E-16, 3.4788E-16, 6.3328E-16, 1.1370E-15,      BFH 3890
     X 2.0198E-15, 3.5665E-15, 6.3053E-15, 1.1309E-14, 2.1206E-14,      BFH 3900
     X 3.2858E-14, 5.5165E-14, 8.6231E-14, 1.2776E-13, 1.7780E-13/      BFH 3910
      DATA F1651/                                                       BFH 3920
     X 2.5266E-13, 3.6254E-13, 5.1398E-13, 6.8289E-13, 8.7481E-13,      BFH 3930
     X 1.1914E-12, 1.6086E-12, 2.0469E-12, 2.5761E-12, 3.4964E-12,      BFH 3940
     X 4.4980E-12, 5.5356E-12, 6.7963E-12, 8.5720E-12, 1.0700E-11,      BFH 3950
     X 1.2983E-11, 1.6270E-11, 1.9609E-11, 2.2668E-11, 2.5963E-11,      BFH 3960
     X 3.0918E-11, 3.4930E-11, 3.9330E-11, 4.4208E-11, 4.6431E-11,      BFH 3970
     X 5.1141E-11, 5.4108E-11, 5.8077E-11, 6.5050E-11, 7.2126E-11,      BFH 3980
     X 8.1064E-11, 8.1973E-11, 8.1694E-11, 8.3081E-11, 8.0240E-11,      BFH 3990
     X 7.9225E-11, 7.6256E-11, 7.8468E-11, 8.0041E-11, 8.1585E-11,      BFH 4000
     X 8.3485E-11, 8.3774E-11, 8.5870E-11, 8.6104E-11, 8.8516E-11,      BFH 4010
     X 9.0814E-11, 9.2522E-11, 8.8913E-11, 7.8381E-11, 6.8568E-11/      BFH 4020
      DATA F1701/                                                       BFH 4030
     X 5.6797E-11, 4.4163E-11, 3.2369E-11, 2.3259E-11, 1.6835E-11,      BFH 4040
     X 1.1733E-11, 8.5273E-12, 6.3805E-12, 4.8983E-12, 3.8831E-12,      BFH 4050
     X 3.2610E-12, 2.8577E-12, 2.5210E-12, 2.2913E-12, 2.0341E-12,      BFH 4060
     X 1.8167E-12, 1.6395E-12, 1.4890E-12, 1.3516E-12, 1.2542E-12,      BFH 4070
     X 1.2910E-12, 1.3471E-12, 1.4689E-12, 1.5889E-12, 1.6989E-12,      BFH 4080
     X 1.8843E-12, 2.0902E-12, 2.3874E-12, 2.7294E-12, 3.3353E-12,      BFH 4090
     X 4.0186E-12, 4.5868E-12, 5.2212E-12, 5.8856E-12, 6.5991E-12,      BFH 4100
     X 7.2505E-12, 7.6637E-12, 8.5113E-12, 9.4832E-12, 9.9678E-12,      BFH 4110
     X 1.0723E-11, 1.0749E-11, 1.1380E-11, 1.1774E-11, 1.1743E-11,      BFH 4120
     X 1.2493E-11, 1.2559E-11, 1.2332E-11, 1.1782E-11, 1.1086E-11/      BFH 4130
      DATA F1751/                                                       BFH 4140
     X 1.0945E-11, 1.1178E-11, 1.2083E-11, 1.3037E-11, 1.4730E-11,      BFH 4150
     X 1.6450E-11, 1.7403E-11, 1.7004E-11, 1.5117E-11, 1.3339E-11,      BFH 4160
     X 1.0844E-11, 8.0915E-12, 5.6615E-12, 3.7196E-12, 2.5194E-12,      BFH 4170
     X 1.6569E-12, 1.1201E-12, 8.2335E-13, 6.0270E-13, 4.8205E-13,      BFH 4180
     X 4.1313E-13, 3.6243E-13, 3.2575E-13, 2.7730E-13, 2.5292E-13,      BFH 4190
     X 2.3062E-13, 2.1126E-13, 2.1556E-13, 2.1213E-13, 2.2103E-13,      BFH 4200
     X 2.1927E-13, 2.0794E-13, 1.9533E-13, 1.6592E-13, 1.4521E-13,      BFH 4210
     X 1.1393E-13, 8.3772E-14, 6.2077E-14, 4.3337E-14, 2.7165E-14,      BFH 4220
     X 1.6821E-14, 9.5407E-15, 5.3093E-15, 3.0320E-15, 1.7429E-15,      BFH 4230
     X 9.9828E-16, 5.6622E-16, 3.1672E-16, 1.7419E-16, 9.3985E-17/      BFH 4240
      DATA F1801/                                                       BFH 4250
     X 4.9656E-17, 2.5652E-17, 1.2942E-17, 6.3695E-18, 3.0554E-18,      BFH 4260
     C 1.4273E-18, -0.       , -0.       , -0.       , -0.       ,      BFH 4270
     C -0.       , 0.        , 0.        , 0.        , 0.        ,      BFH 4280
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4290
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4300
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4310
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4320
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4330
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4340
     C 0.        , 0.        , 0.        , 0.        , 0.        /      BFH 4350
      DATA F1851/                                                       BFH 4360
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4370
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4380
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4390
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4400
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4410
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4420
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4430
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4440
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4450
     C 0.        , 0.        , 0.        , 0.        , 0.        /      BFH 4460
      DATA F1901/                                                       BFH 4470
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4480
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4490
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4500
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4510
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4520
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4530
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4540
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4550
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4560
     C 0.        , 0.        , 0.        , 0.        , 0.        /      BFH 4570
      DATA F1951/                                                       BFH 4580
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4590
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4600
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4610
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4620
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4630
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4640
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4650
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4660
     C 0.        , 0.        , 0.        , 0.        , 0.        ,      BFH 4670
     C 0.        , 0.        , 0.        , 0.        , 0.        /      BFH 4680
      DATA F2001/                                                       BFH 4690
     C 0.        /                                                      BFH 4700
C                                                                       BFH 4710
      END                                                               BFH 4720
      SUBROUTINE BMDATA(IV1,IFWHM,IDVX,IKMX,MXFREQ)                     BMD   10
C                                                                       BMD   20
C     BMDATA (CALLED BY TRANS) MAKES THE INITIAL BAND MODEL TAPE READ   BMD   30
C     AND CALCULATES WAVENUMBER-INDEPENDENT PARAMETERS FOR USE BY BMOD  BMD   40
C                                                                       BMD   50
      LOGICAL MODTRN                                                    BMD   60
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            BMD   70
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   BMD   80
      COMMON ABSC(5,47),EXTC(5,47),ASYC(5,47),VX2(47),AWCCON(5)         BMD   90
      COMMON/IFIL/IRD,IPR,IPU,NPR,IPR1                                  BMD  100
      COMMON/SOLS/AH1(68),ARH(68),                                      BMD  110
     1  WPATHS(102,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),      BMD  120
     2  JTURN,ANGSUN,CSZEN(68),TBBYS(102,12),PATMS(102,12)              BMD  130
      COMMON/CARD1/MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB    BMD  140
     1  ,MODTRN                                                         BMD  150
      COMMON/CNTRL/KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT                 BMD  160
      COMMON/BMDCOM/IBNDWD,IP,IPRM,IBLK,IBLOCK,IPARAM(232),NTEMP,       BMD  170
     1  TBAND(5),SDZ(5,250),ODZ(5,250),IBIN(250),IMOL(250),IALF(250),   BMD  180
     2  SD(5,24),OD(5,12),ALF0(12),WT(102),WTS(102,12),ITB,             BMD  190
     3  JJ(102),FF(102),JJS(102,12),FFS(102,12)                         BMD  200
      DIMENSION IFREQ(232)                                              BMD  210
      DATA TZERO/273.15/                                                BMD  220
C                                                                       BMD  230
C     OPEN THE UNFORMATTED BAND MODEL TAPE, FILE ITB = 9.  AN ERROR     BMD  240
C     OCCURS IF THE TAPE WAS OPENED DURING A PREVIOUS LOWTRAN RUN       BMD  250
C     (IMPLYING IRPT WAS NOT ZERO).  IN THAT CASE, REWIND THE TAPE.     BMD  260
C                                                                       BMD  270
      ITB = 9                                                           XXX
      OPEN(ITB,FILE='UFTAPE',STATUS='OLD',FORM='UNFORMATTED')           BMDXXX80
   10 REWIND(ITB)                                                       BMD  290
C                                                                       BMD  300
C     READ THE BAND MODEL TAPE HEADER.  IBNDWD IS THE WIDTH (CM-1) OF   BMD  310
C     EACH BAND, IBLOCK IS THE NUMBER OF STORAGE BLOCKS, IFREQ(IBLK) IS BMD  320
C     THE FREQUENCY OF THE LAST BAND MODEL "PARAMETER SET" IN BLOCK IBLKBMD  330
C     AND IPARAM(IBLK) IS THE NUMBER OF PARAMETER SETS IN THE BLOCK IBLKBMD  340
C                                                                       BMD  350
      READ(ITB)IBNDWD,IBLOCK,(IFREQ(IBLK),IPARAM(IBLK),IBLK=1,IBLOCK),  BMD  360
     1  NTEMP,(TBAND(IT),IT=1,NTEMP)                                    BMD  370
C                                                                       BMD  380
C     PASS THE BAND WIDTH TO TRANS THROUGH IDVX.  ALSO DETERMINE THE    BMD  390
C     MINIMUM FREQUENCY AT WHICH BAND MODEL DATA IS NEEDED.             BMD  400
      IDVX=IBNDWD                                                       BMD  410
      IV=5*((IV1-IFWHM/IBNDWD+1)/5)                                     BMD  420
C                                                                       BMD  430
C     PERFORM THE STANDARD LOWTRAN CALCULATION IF NO BAND MODEL DATA    BMD  440
C     EXISTS FOR THE CHOSEN FREQUENCY RANGE.                            BMD  450
C                                                                       BMD  460
      MXFREQ=IFREQ(IBLOCK)                                              BMD  470
      IF(IV.GT.MXFREQ)THEN                                              BMD  480
          WRITE(IPR,'(//43H (THE BAND MODEL TAPE DOES NOT HAVE DATA IN, BMD  490
     1      32H THE REQUESTED WAVENUMBER RANGE))')                      BMD  500
          RETURN                                                        BMD  510
      ENDIF                                                             BMD  520
C                                                                       BMD  530
C     ADVANCE THE TAPE TO DESIRED FREQUENCY BLOCK                       BMD  540
C                                                                       BMD  550
      IBLK=0                                                            BMD  560
   20 IBLK=IBLK+1                                                       BMD  570
      IF(IV.GT.IFREQ(IBLK))THEN                                         BMD  580
          IPRM=IPARAM(IBLK)                                             BMD  590
          READ(ITB)(IDUMMY,IDUMMY,(DUMMY,IT=1,NTEMP),                   BMD  600
     1      IDUMMY,(DUMMY,IT=1,NTEMP),IP=1,IPRM)                        BMD  610
          GOTO20                                                        BMD  620
      ENDIF                                                             BMD  630
C                                                                       BMD  640
C     READ THE FIRST BLOCK OF REQUIRED BAND MODEL DATA                  BMD  650
C                                                                       BMD  660
      IPRM=IPARAM(IBLK)                                                 BMD  670
      READ(ITB)(IBIN(IP),IMOL(IP),(SDZ(IT,IP),IT=1,NTEMP),IALF(IP),     BMD  680
     1  (ODZ(IT,IP),IT=1,NTEMP),IP=1,IPRM)                              BMD  690
C                                                                       BMD  700
C     DETERMINE FIRST REQUIRED PARAMETER SET                            BMD  710
C                                                                       BMD  720
      IP=0                                                              BMD  730
   30 IP=IP+1                                                           BMD  740
      IF(IV.GT.IBIN(IP))GOTO30                                          BMD  750
C                                                                       BMD  760
C     SET MSMAX TO 68 FOR MULTIPLE SCATTERING                           BMD  770
C                                                                       BMD  780
      MSMAX=IMULT*68                                                    BMD  790
C                                                                       BMD  800
C     SET TEMPERATURE INTERPOLATION INDICES FOR EACH LAYER              BMD  810
C                                                                       BMD  820
      IKHI=IKMX                                                         BMD  830
      DO 70 MSOFF=0,MSMAX,68                                            BMD  840
          DO 60 IK=1,IKHI                                               BMD  850
              IKOFF=IK+MSOFF                                            BMD  860
              TT=TBBY(IKOFF)                                            BMD  870
              IF(TT.LE.TBAND(1))THEN                                    BMD  880
                  JJ(IKOFF)=2                                           BMD  890
                  FF(IKOFF)=1.                                          BMD  900
              ELSEIF(TT.GE.TBAND(NTEMP))THEN                            BMD  910
                  JJ(IKOFF)=NTEMP                                       BMD  920
                  FF(IKOFF)=0.                                          BMD  930
              ELSE                                                      BMD  940
                  DO 40 J=2,NTEMP                                       BMD  950
                      IF(TT.LE.TBAND(J))GOTO50                          BMD  960
   40             CONTINUE                                              BMD  970
   50             JJ(IKOFF)=J                                           BMD  980
                  FF(IKOFF)=(TBAND(J)-TT)/(TBAND(J)-TBAND(J-1))         BMD  990
              ENDIF                                                     BMD 1000
C                                                                       BMD 1010
C     SET TEMPERATURE SCALING PARAMETERS                                BMD 1020
C                                                                       BMD 1030
   60     WT(IKOFF)=SQRT(TT/TZERO)                                      BMD 1040
   70 IKHI=IMSMX                                                        BMD 1050
C                                                                       BMD 1060
C     IF NO SINGLE SCATTER SOLAR, RETURN                                BMD 1070
C                                                                       BMD 1080
      IF(IEMSCT.NE.2)RETURN                                             BMD 1090
C                                                                       BMD 1100
C     SET TEMPERATURE INTERPOLATION INDICES FOR SOLAR LAYERS            BMD 1110
C                                                                       BMD 1120
      IKHI=IKMX+1                                                       BMD 1130
      DO 110 MSOFF=0,MSMAX,68                                           BMD 1140
          DO 100 IK=1,IKHI                                              BMD 1150
              IKOFF=IK+MSOFF                                            BMD 1160
              DO 100 K=1,NSPEC                                          BMD 1170
                  TT=TBBYS(IKOFF,K)                                     BMD 1180
                  IF(TT.LE.TBAND(1))THEN                                BMD 1190
                      JJS(IKOFF,K)=2                                    BMD 1200
                      FFS(IKOFF,K)=1.                                   BMD 1210
                  ELSEIF(TT.GE.TBAND(NTEMP))THEN                        BMD 1220
                      JJS(IKOFF,K)=NTEMP                                BMD 1230
                      FFS(IKOFF,K)=0.                                   BMD 1240
                  ELSE                                                  BMD 1250
                      DO 80 J=2,NTEMP                                   BMD 1260
                          IF(TT.LE.TBAND(J))GOTO90                      BMD 1270
   80                 CONTINUE                                          BMD 1280
   90                 JJS(IKOFF,K)=J                                    BMD 1290
                      FFS(IKOFF,K)=(TBAND(J)-TT)/(TBAND(J)-TBAND(J-1))  BMD 1300
                  ENDIF                                                 BMD 1310
  100     WTS(IKOFF,K)=SQRT(TT/TZERO)                                   BMD 1320
  110 IKHI=IMSMX+1                                                      BMD 1330
      RETURN                                                            BMD 1340
      END                                                               BMD 1350
      FUNCTION BMERFU(Y)                                                ERF   10
C                                                                       ERF   20
C ... APPROXIMATION FOR EXP(-Y*Y) + SQRT(PI) * Y * ERF(Y) - 1           ERF   30
      DATA P,A1,A2,A3,A4,A5,RTPI/.3275911,.451673692,-.504257335,       ERF   40
     1  2.519390259,-2.575644906,1.881292140,1.772453851/               ERF   50
      IF(Y.LT.2.33)THEN                                                 ERF   60
      T=1./(1.+P*Y)                                                     ERF   70
      BMERFU=(1.-Y*T*(A1+T*(A2+T*(A3+T*(A4+T*A5)))))*EXP(-Y*Y)+RTPI*Y-1.ERF   80
      ELSE                                                              ERF   90
      T=Y*Y                                                             ERF  100
      BMERFU=(1.75+T*.5)/(3.75+T*(5.+T))*EXP(-T)+RTPI*Y-1.              ERF  110
      ENDIF                                                             ERF  120
      RETURN                                                            ERF  130
      END                                                               ERF  140
      SUBROUTINE BMFLUX(TLE,COSBAR,TAER,TAUT,OMEGA0,UPF,DNF,IWAVN,IKMAX,BMF   10
     1  CSZEN,S0,STRN,FDNSRF,FDNTRF,DMF,DMFS,UMF,UMFS)                  BMF   20
C                                                                       BMF   30
C     MODTRAN VERSION OF FLXADD (NO K LOOP)                             BMF   40
C                                                                       BMF   50
      LOGICAL MODTRN                                                    BMF   60
      DOUBLE PRECISION AER1,AER2,AERA,AERU,AERV,AERC,AERCX,EX1,EX2,     BMF   70
     1  DENO,DNMO,DNM1                                                  BMF   80
      COMMON/CARD1/MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB    BMF   90
     1  ,MODTRN                                                         BMF  100
      COMMON/TRAN/BTOP(50),TMOLS(34),TAERS(34),TCONT(34),DCONT(68)      BMF  110
      COMMON/CNTRL/KMAX,M7,JKMAX,NL,ML,IKLO,ISSGEO,IMULT                BMF  120
      COMMON/CNSTNS/PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                       BMF  130
      COMMON/DIRST/SUN,UMB(34),DMB(34),UMBS(34),DMBS(34)                BMF  140
      DIMENSION COSBAR(34),DNF(10,34),EDN(50),EUP(50),EUPC(50),TDF(50), BMF  150
     1  TLE(34),OMEGA0(68),UPF(10,34),RUPC(50),TAER(50),REF(50),        BMF  160
     2  EUPS(34),EDNS(34),UPFS(34),DNFS(34),EUPCS(34),CSZEN(68),        BMF  170
     3  STRN(0:34),BETS(34),RUPCS(34),UMF(34),DMF(34),UMFS(34),DMFS(34),BMF  180
     4  REFS(34),TDFS(34),TAUT(34)                                      BMF  190
C***********************************************************************BMF  200
C                                                                       BMF  210
C   INPUT PARAMETERS:                                                   BMF  220
C   ----------------                                                    BMF  230
C   TLE(N)     - TEMPERATURE (KELVIN) OF UPPER EDGE OF LAYER N          BMF  240
C   COSBAR(N)  - ASYMMETRY FACTOR FOR LAYER N                           BMF  250
C   TAER(N)    - TOTAL AEROSOL OPTICAL THICKNESS OF LAYER N             BMF  260
C   TAERS(N)   - AEROSOL SCATTERING OPTICAL THICKNESS OF LAYER N        BMF  270
C   TCONT(N)   - MOLECULAR CONTINUUM OPTICAL THICKNESS FOR LAYER N      BMF  280
C   TMOLS(N)   - RAYLEIGH SCATTERING OPTICAL THICKNESS FOR LAYER N      BMF  290
C   CSZEN(N)   - COSINE OF SOLAR ZENITH ANGLE FOR LAYER N               BMF  300
C   IWAVN      - FREQUENCY (WAVENUMBER)                                 BMF  310
C   S0         - SOLAR INTENSITY AT TOP OF ATMOSPHERE                   BMF  320
C   STRN(N)    - SOLAR TRANSMISSION TO BOTTOM OF LAYER N                BMF  330
C                                                                       BMF  340
C   OUTPUT PARAMETERS:                                                  BMF  350
C   -----------------                                                   BMF  360
C   BTOP(N)    - BLACK BODY FLUX FOR UPPER EDGE TEMPERATURE OF LAYER N  BMF  370
C   OMEGA0(N)  - SCATTERING ALBEDO FOR LAYER N                          BMF  380
C   UPF(1,N)   - UPWARD THERMAL FLUX AT UPPER EDGE OF LAYER N           BMF  390
C   DNF(1,N)   - DOWNWARD THERMAL FLUX AT UPPER EDGE OF LAYER N         BMF  400
C   UMF(N)     - MEAN UPWARD THERMAL FLUX OF LAYER N                    BMF  410
C   UMFS(N)    - MEAN UPWARD SOLAR FLUX OF LAYER N                      BMF  420
C   DMF(N)     - MEAN DOWNWARD THERMAL FLUX OF LAYER N                  BMF  430
C   DMFS(N)    - MEAN DOWNWARD SOLAR FLUX OF LAYER N                    BMF  440
C   FDNSRF     - DOWNWARD SOLAR FLUX AT THE SURFACE                     BMF  450
C   FDNTRF     - DOWNWARD THERMAL FLUX AT THE SURFACE                   BMF  460
C                                                                       BMF  470
C   INTERNAL PARAMETERS:                                                BMF  480
C   -------------------                                                 BMF  490
C   UPFS(N)    - UPWARD SOLAR FLUX AT UPPER EDGE OF LAYER N             BMF  500
C   DNFS(N)    - DOWNWARD SOLAR FLUX AT UPPER EDGE OF LAYER N           BMF  510
C   BETS(N)    - BACKSCATTER FRACTION ALONG SOLAR PATH AT LAYER N       BMF  520
C   EUP(N)     - INTRINSIC UPWARD THERMAL FLUX OF LAYER N               BMF  530
C   EDN(N)     - INTRINSIC DOWNWARD THERMAL FLUX OF LAYER N             BMF  540
C   TDF(N)     - INTRINSIC THERMAL TRANSMISSION OF LAYER N              BMF  550
C   REF(N)     - INTRINSIC THERMAL REFLECTANCE OF LAYER N               BMF  560
C   TDFS(N)    - INTRINSIC SOLAR TRANSMISSION OF LAYER N                BMF  570
C   REFS(N)    - INTRINSIC SOLAR REFLECTANCE OF LAYER N                 BMF  580
C   X          - OPTICAL THICKNESS OF A GIVEN LAYER                     BMF  590
C                                                                       BMF  600
C***********************************************************************BMF  610
      DATA RUPC/50*0./,RUPCS/34*0./,EUPS/34*0./,EDNS/34*0./             BMF  620
      DATA REFS/34*0./,TDFS/34*0./,UPFS/34*0./,DNFS/34*0./              BMF  630
      V=FLOAT(IWAVN)                                                    BMF  640
      NG=ML                                                             BMF  650
      NG1=NG+1                                                          BMF  660
      NLAYRS=NG-1                                                       BMF  670
C                                                                       BMF  680
C     SURFACE THERMAL EMISSION                                          BMF  690
C                                                                       BMF  700
      TLE(NG1)=TLE(NG)                                                  BMF  710
      BTOP(NG1)=BBFN(TLE(NG1),V)*PI                                     BMF  720
      BTOP(NG)=BBFN(TLE(NG),V)*PI                                       BMF  730
      DO 98 N=1,NLAYRS                                                  BMF  740
C                                                                       BMF  750
C         BLACK BODY FLUX FOR LAYER EDGE TEMPERATURE                    BMF  760
C                                                                       BMF  770
          BTOP(N)=BBFN(TLE(N),V)*PI                                     BMF  780
C                                                                       BMF  790
C         CALCULATE BACKSCATTER PARAMETERS                              BMF  800
C                                                                       BMF  810
          IF(COSBAR(N).EQ.0.)THEN                                       BMF  820
              BETS(N)=.5                                                BMF  830
          ELSE                                                          BMF  840
              IF(IEMSCT.EQ.2 .OR. IEMSCT.EQ.3)                          BMF  850
     1          BETS(N)=BETABS(CSZEN(N),COSBAR(N))                      BMF  860
          ENDIF                                                         BMF  870
   98 CONTINUE                                                          BMF  880
C**** COMPOSITE DOWNWARDS REFLECTION                                    BMF  890
      RDNCN=0.                                                          BMF  900
      RDNCNS=0.                                                         BMF  910
C***********************************************************************BMF  920
C*    ADDING GROUND LAYER                                              *BMF  930
C***********************************************************************BMF  940
C     DEFINE INITIAL UPWARD COMPOSITE SURFACE REFLECTANCE               BMF  950
C                                                                       BMF  960
      RUPCN=SALB                                                        BMF  970
      RUPCNS=SALB                                                       BMF  980
C                                                                       BMF  990
C     SURFACE EMISSION                                                  BMF 1000
C                                                                       BMF 1010
      EUPCN=(1.-RUPCN)*BTOP(NG1)                                        BMF 1020
      EUP(NG)=EUPCN                                                     BMF 1030
      EUPC(NG)=EUPCN                                                    BMF 1040
      IF(IEMSCT.EQ.2)THEN                                               BMF 1050
          EUPCNS=RUPCNS*CSZEN(NLAYRS)*STRN(NLAYRS)*S0                   BMF 1060
      ELSE                                                              BMF 1070
          EUPCNS=0.                                                     BMF 1080
      ENDIF                                                             BMF 1090
      EUPS(NG)=EUPCNS                                                   BMF 1100
      EUPCS(NG)=EUPCNS                                                  BMF 1110
C***********************************************************************BMF 1120
C*    UPWARD ADDING LOOP(1-N)                                          *BMF 1130
C***********************************************************************BMF 1140
      DO 101 N=NLAYRS,1,-1                                              BMF 1150
          M=N-1                                                         BMF 1160
C                                                                       BMF 1170
C         NOTE: TOP LAYER IS LAYER 1                                    BMF 1180
C                                                                       BMF 1190
          X=TAUT(N)+TAER(N)+TCONT(N)+TMOLS(N)                           BMF 1200
          OMEGA0(N)=0.                                                  BMF 1210
          IF(X.GT.0.)OMEGA0(N)=(TAERS(N)+TMOLS(N))/X                    BMF 1220
C                                                                       BMF 1230
C         USE TWO STREAM APPROXIMATION FOR THERMAL                      BMF 1240
C                                                                       BMF 1250
          IF(OMEGA0(N).GT.0.99999)GOTO115                               BMF 1260
          AER1=1.-OMEGA0(N)                                             BMF 1270
          AER2=1.-OMEGA0(N)*COSBAR(N)                                   BMF 1280
          AERA=SQRT(AER1/AER2)                                          BMF 1290
          AERU=(1.-AERA)/2.                                             BMF 1300
          AERV=(1.+AERA)/2.                                             BMF 1310
          AERC=SQRT(3.*AER1*AER2)                                       BMF 1320
          IF(X. LT. 1.E-4/AERC) THEN
              AERCX=AERC*X                                              BMF 1330
              EX1 = 1. - AERCX + .5 * AERCX * AERCX
              DNMO=(BTOP(N)-BTOP(N+1))*(1.-AERCX+.5*AERA*AERCX)
          ELSEIF(X.LT.BIGEXP/AERC) THEN
               AERCX=AERC*X
               EX1 = EXP(-AERCX)
             DNMO=(BTOP(N)-BTOP(N+1))*(AERV-EX1*(AERA+EX1*AERU))/AERCX
          ELSE
                EX1 = 0.
                DNMO =((BTOP(N)-BTOP(N+1))*AERV/AERC)/X
          ENDIF
CC        IF(AERCX.LT.BIGEXP)THEN                                       BMF 1340
CC            EX1=EXP(-AERCX)                                           BMF 1350
CC        ELSE                                                          BMF 1360
CC            EX1=1./BIGNUM                                             BMF 1370
CC        ENDIF                                                         BMF 1380
          EX2=EX1*EX1                                                   BMF 1390
          DNM1=AERV+AERU*EX2
          DENO=AERV*AERV-AERU*AERU*EX2
CC        DENO=(AERV*AERV-AERU*AERU*EX2)                                BMF 1400
CC        IF(AERCX.LT.1.E-4)THEN                                        BMF 1410
CC            DNMO=(BTOP(N)-BTOP(N+1))*(1.-AERCX+.5*AERA*AERCX)         BMF 1420
CC        ELSE                                                          BMF 1430
CC            DNMO=(BTOP(N)-BTOP(N+1))*(AERV-AERU*EX2-AERA*EX1)/AERCX   BMF 1440
CC        ENDIF                                                         BMF 1450
CC        DNM1=AERV+AERU*EX2                                            BMF 1460
          EUP(N)=(BTOP(N)*DNM1-DNMO-BTOP(N+1)*EX1)/DENO*AERA            BMF 1470
          EDN(N)=(BTOP(N+1)*DNM1+DNMO-BTOP(N)*EX1)/DENO*AERA            BMF 1480
          IF(EUP(N).LT.0)EUP(N)=0.                                      BMF 1490
          IF(EDN(N).LT.0)EDN(N)=0.                                      BMF 1500
          REF(N)=AERU*AERV*(1.-EX2)/DENO                                BMF 1510
          TDF(N)=AERA/DENO*EX1                                          BMF 1520
          GOTO114                                                       BMF 1530
115       TDF(N)=1./(1.+SQRT(3.)*(1.-COSBAR(N))/2.*X)                   BMF 1540
          REF(N)=1.-TDF(N)                                              BMF 1550
          EUP(N)=0.                                                     BMF 1560
          EDN(N)=0.                                                     BMF 1570
114       CONTINUE                                                      BMF 1580
          IF(IEMSCT.EQ.2)THEN                                           BMF 1590
C                                                                       BMF 1600
C             CALCULATE PARAMETERS FOR SOLAR HYBRID MODIFIED            BMF 1610
C             DELTA EDDINGTON 2-STREAM APPROXIMATION                    BMF 1620
C                                                                       BMF 1630
              SMU=CSZEN(N)                                              BMF 1640
              B0=BETS(N)                                                BMF 1650
              OME0=OMEGA0(N)                                            BMF 1660
              IF(OME0.GE.0.999999)OME0=0.999999                         BMF 1670
              G=COSBAR(N)                                               BMF 1680
              Q=4.*(1.-G**2.*(1.-SMU))                                  BMF 1690
              GM1=(7.-3*G**2.-OME0*(4.+3*G)+OME0*G**2.*(4*B0+3*G))/Q    BMF 1700
              GM2=-(1.-G**2.-OME0*(4.-3*G)-OME0*G**2.*(4*B0+3*G-4.))/Q  BMF 1710
              IF(GM2.EQ.0.)GM2=1.E-10                                   BMF 1720
              SK=SQRT(GM1*GM1-GM2*GM2)                                  BMF 1730
              CS=OME0*(BETS(N)-SMU*(GM1*BETS(N)+GM2*(1.-BETS(N))))      BMF 1740
     1          /(1.-SK*SK*SMU*SMU)                                     BMF 1750
              YS=CS*(1.+SMU*GM1)-OME0*BETS(N)                           BMF 1760
              CS=SMU*CS                                                 BMF 1770
C                                                                       BMF 1780
C             CALCULATE UPWARD & DOWNWARD FLUX, EACH LAYER ALONE        BMF 1790
C                                                                       BMF 1800
              EKTL=SK*X                                                 BMF 1810
              IF(EKTL.LT.BIGEXP)THEN                                    BMF 1820
                  EKT=EXP(-EKTL)                                        BMF 1830
              ELSE                                                      BMF 1840
                  EKT=1./BIGNUM                                         BMF 1850
              ENDIF                                                     BMF 1860
              EKT2=EKT*EKT                                              BMF 1870
              IF(X.LT.SMU*BIGEXP)THEN                                   BMF 1880
                  ETMU=EXP(-X/SMU)                                      BMF 1890
              ELSE                                                      BMF 1900
                  ETMU=1./BIGNUM                                        BMF 1910
              ENDIF                                                     BMF 1920
              GMPSK=GM1+SK                                              BMF 1930
              GMMSK=GM1-SK                                              BMF 1940
              DENOM=(EKT2*GMMSK)-GMPSK                                  BMF 1950
              ASXP=-GMMSK*(YS*EKT-GMPSK*CS*ETMU)/DENOM                  BMF 1960
              ASNEW=-(-GMPSK*CS*ETMU*EKT+YS*EKT2)/DENOM                 BMF 1970
              BSNEW=(YS-CS*ETMU*EKT*GMMSK)/DENOM                        BMF 1980
              EUPS(N)=ASNEW+BSNEW+CS                                    BMF 1990
              EDNS(N)=(ASXP+BSNEW*GMPSK*EKT+YS*ETMU)/GM2                BMF 2000
              FC=1./(CSZEN(N))                                          BMF 2010
              REFS(N)=EUPS(N)*FC                                        BMF 2020
              XCSZEN=X/CSZEN(N)                                         BMF 2030
              IF(XCSZEN.LT.BIGEXP)THEN                                  BMF 2040
                  TDFS(N)=EDNS(N)*FC+EXP(-XCSZEN)                       BMF 2050
              ELSE                                                      BMF 2060
                  TDFS(N)=EDNS(N)*FC                                    BMF 2070
              ENDIF                                                     BMF 2080
              EUPS(N)=EUPS(N)*S0*STRN(M)                                BMF 2090
              EDNS(N)=EDNS(N)*S0*STRN(M)                                BMF 2100
          ENDIF                                                         BMF 2110
          DENO=1.-RUPCN*REF(N)                                          BMF 2120
          DENOS=1.-RUPCNS*REFS(N)                                       BMF 2130
C                                                                       BMF 2140
C         CALCULATE COMPOSITE FLUXES AND REFLECTANCES                   BMF 2150
C                                                                       BMF 2160
          EUPCN=EUP(N)+(EUPCN+EDN(N)*RUPCN)*TDF(N)/DENO                 BMF 2170
          EUPCNS=EUPS(N)+(EUPCNS+EDNS(N)*RUPCNS)*TDFS(N)/DENOS          BMF 2180
          RUPCNS=REFS(N)+TDFS(N)*RUPCNS*TDFS(N)/DENOS                   BMF 2190
          RUPCN=REF(N)+TDF(N)*RUPCN*TDF(N)/DENO                         BMF 2200
          EUPC(N)=EUPCN                                                 BMF 2210
          EUPCS(N)=EUPCNS                                               BMF 2220
          RUPC(N)=RUPCN                                                 BMF 2230
          RUPCS(N)=RUPCNS                                               BMF 2240
101   CONTINUE                                                          BMF 2250
C***********************************************************************BMF 2260
C*        NOW ADD DOWNWARD FROM TOP LAYER (N=1)                        *BMF 2270
C***********************************************************************BMF 2280
      EDNCN=0.                                                          BMF 2290
      EDNCNS=0.                                                         BMF 2300
      DNF(1,1)=EDNCN                                                    BMF 2310
      UPF(1,1)=EUPC(1)                                                  BMF 2320
      IF(IEMSCT.EQ.2)THEN                                               BMF 2330
          DNFS(1)=EDNCNS                                                BMF 2340
          UPFS(1)=EUPCS(1)                                              BMF 2350
      ENDIF                                                             BMF 2360
      RDNCN=0.                                                          BMF 2370
      RDNCNS=0.                                                         BMF 2380
      DO 130 N=2,NG                                                     BMF 2390
          M=N-1                                                         BMF 2400
          DENO=1.-RDNCN*REF(M)                                          BMF 2410
          DENOS=1.-RDNCNS*REFS(M)                                       BMF 2420
          EDNCN=EDN(M)+(EDNCN+EUP(M)*RDNCN)*TDF(M)/DENO                 BMF 2430
          RDNCN=REF(M)+TDF(M)*TDF(M)*RDNCN/DENO                         BMF 2440
          PEFUP=(EUPC(N)+EDNCN*RUPC(N))/DENO                            BMF 2450
          PEFDN=(EDNCN+EUPC(N)*RDNCN)/DENO                              BMF 2460
          IF(IEMSCT.EQ.2)THEN                                           BMF 2470
              EDNCNS=EDNS(M)+(EDNCNS+EUPS(M)*RDNCNS)*TDFS(M)/DENOS      BMF 2480
              RDNCNS=REFS(M)+TDFS(M)*TDFS(M)*RDNCNS/DENOS               BMF 2490
              PEFUPS=(EUPCS(N)+EDNCNS*RUPCS(N))/DENOS                   BMF 2500
              PEFDNS=(EDNCNS+EUPCS(N)*RDNCNS)/DENOS                     BMF 2510
              UPFS(N)=PEFUPS                                            BMF 2520
              DNFS(N)=PEFDNS                                            BMF 2530
          ENDIF                                                         BMF 2540
          UPF(1,N)=PEFUP                                                BMF 2550
          DNF(1,N)=PEFDN                                                BMF 2560
  130 CONTINUE                                                          BMF 2570
      DO 117 N=2,NG                                                     BMF 2580
          M=N-1                                                         BMF 2590
          UMF(M)=.5*(UPF(1,M)+UPF(1,N))                                 BMF 2600
          UMFS(M)=.5*(UPFS(M)+UPFS(N))                                  BMF 2610
          DMF(M)=.5*(DNF(1,M)+DNF(1,N))                                 BMF 2620
          DMFS(M)=.5*(DNFS(M)+DNFS(N))                                  BMF 2630
          UMB(N)=UPF(1,N)                                               BMF 2640
          UMBS(N)=UPFS(N)                                               BMF 2650
          DMB(M)=DNF(1,M)                                               BMF 2660
          DMBS(M)=DNFS(M)                                               BMF 2670
  117 CONTINUE                                                          BMF 2680
      FDNSRF=DNFS(NG)                                                   BMF 2690
      FDNTRF=DNF(1,NG)                                                  BMF 2700
      UMB(1)=UPF(1,1)                                                   BMF 2710
      UMBS(1)=UPFS(1)                                                   BMF 2720
      DMB(NG)=FDNTRF                                                    BMF 2730
      DMBS(NG)=FDNSRF                                                   BMF 2740
      SUN=S0                                                            BMF 2750
      RETURN                                                            BMF 2760
      END                                                               BMF 2770
      SUBROUTINE BMLOAD                                                 BML   10
C                                                                       BML   20
C  THIS SUBROUTINE (CALLED BY BMOD) LOADS BAND MODEL DATA FOR A SINGLE  BML   30
C  PARAMETER SET INTO THE MATRICES SD, OD AND ALF0 (FOUND IN /BMDCOM/). BML   40
C                                                                       BML   50
C  ORIGINALLY, THE BAND MODEL PARAMETERS ARE STORE IN COMPACT PARAMETER BML   60
C  SETS.  THERE ARE TWO TYPES OF PARAMETER SETS CORRESPONDING TO LINE   BML   70
C  CENTER AND LINE TAIL CONTRIBUTIONS.  IF IMOL(IP) IS 12 OR LESS, THE  BML   80
C  PARAMETER SET IP CONTAINS LINE CENTER MOLECULAR ABSORPTION INFO:     BML   90
C      IBIN(IP) = THE BIN NUMBER (MULTIPLIED BY IBNDWD GIVES THE        BML  100
C                                 FREQUENCY OF THE BIN CENTER)          BML  110
C      IMOL(IP) =  1 FOR H2O                                            BML  120
C               =  2 FOR CO2                                            BML  130
C               =  3 FOR O3                                             BML  140
C               =  4 FOR N2O                                            BML  150
C               =  5 FOR CO                                             BML  160
C               =  6 FOR CH4                                            BML  170
C               =  7 FOR O2                                             BML  180
C               =  8 FOR NO                                             BML  190
C               =  9 FOR SO2                                            BML  200
C               = 10 FOR NO2                                            BML  210
C               = 11 FOR NH3                                            BML  220
C               = 12 FOR HNO3                                           BML  230
C    SDZ(IT,IP) = AVERAGE MOLECULAR ABSORPTION COEFFICIENT PARAMETER    BML  240
C                 FOR THE IT'TH TEMPERATURE (CM-1/AMAGAT)               BML  250
C      IALF(IP) = LORENTZ LINE WIDTH PARAMETER AT STANDARD PRESSURE AND BML  260
C                 TEMPERATURE (1.E-04 CM-1/ATM)                         BML  270
C    ODZ(IT,IP) = LINE DENSITY PARAMETER FOR THE TEMPERATURE IT (CM-1)  BML  280
C                                                                       BML  290
C  IF IMOL(IP) IS 12 OR MORE, THE PARAMETER SET IP CONTAINS CONTINUUM   BML  300
C  ABSORPTION INFORMATION AND                                           BML  310
C              IBIN(IP) = THE BIN NUMBER                                BML  320
C     IMOL(IP),IALF(IP) = 13 FOR  H2O TAIL CONTRIBUTION                 BML  330
C                       = 14 FOR  CO2 TAIL CONTRIBUTION                 BML  340
C                       = 15 FOR   O3 TAIL CONTRIBUTION                 BML  350
C                       = 16 FOR  N2O TAIL CONTRIBUTION                 BML  360
C                       = 17 FOR   CO TAIL CONTRIBUTION                 BML  370
C                       = 18 FOR  CH4 TAIL CONTRIBUTION                 BML  380
C                       = 19 FOR   O2 TAIL CONTRIBUTION                 BML  390
C                       = 20 FOR   NO TAIL CONTRIBUTION                 BML  400
C                       = 21 FOR  SO2 TAIL CONTRIBUTION                 BML  410
C                       = 22 FOR  NO2 TAIL CONTRIBUTION                 BML  420
C                       = 23 FOR  NH3 TAIL CONTRIBUTION                 BML  430
C                       = 24 FOR HNO3 TAIL CONTRIBUTION                 BML  440
C            SDZ(IT,IP) = MOLECULAR LINE WING CONTINUUM ABSORPTION      BML  450
C                         COEFFICIENT FOR SPECIES IMOL(IP) AT THE       BML  460
C                         IT'TH TEMPERATURE (CM-1/AMAGAT)               BML  470
C            ODZ(IT,IP) = MOLECULAR LINE WING CONTINUUM ABSORPTION      BML  480
C                         COEFFICIENT FOR SPECIES IALF(IP) AT THE       BML  490
C                         IT'TH TEMPERATURE (CM-1/AMAGAT)               BML  500
C                                                                       BML  510
      COMMON/BMDCOM/IBNDWD,IP,IPRM,IBLK,IBLOCK,IPARAM(232),NTEMP,       BML  520
     1  TBAND(5),SDZ(5,250),ODZ(5,250),IBIN(250),IMOL(250),IALF(250),   BML  530
     2  SD(5,24),OD(5,12),ALF0(12),WT(102),WTS(102,12),ITB,             BML  540
     3  JJ(102),FF(102),JJS(102,12),FFS(102,12)                         BML  550
C                                                                       BML  560
C  FILL THE SD, OD AND ALF0 MATRICES.                                   BML  570
C                                                                       BML  580
      IM=IMOL(IP)                                                       BML  590
      IF(IM.LE.12)THEN                                                  BML  600
C                                                                       BML  610
C         LINE CENTER CONTRIBUTIONS                                     BML  620
C                                                                       BML  630
          IMTAIL=IM+12                                                  BML  640
          DO 10 IT=1,NTEMP                                              BML  650
              SD(IT,IM)=SDZ(IT,IP)                                      BML  660
              OD(IT,IM)=ODZ(IT,IP)                                      BML  670
   10     SD(IT,IMTAIL)=0.                                              BML  680
          ALF0(IM)=1.E-04*IALF(IP)                                      BML  690
      ELSE                                                              BML  700
C                                                                       BML  710
C         LINE TAIL CONTRIBUTIONS                                       BML  720
C                                                                       BML  730
          JM=IALF(IP)                                                   BML  740
          IF(JM.EQ.0)THEN                                               BML  750
C                                                                       BML  760
C             ONE TAIL                                                  BML  770
C                                                                       BML  780
              DO 20 IT=1,NTEMP                                          BML  790
   20         SD(IT,IM)=SDZ(IT,IP)                                      BML  800
          ELSE                                                          BML  810
C                                                                       BML  820
C             TWO TAILS                                                 BML  830
C                                                                       BML  840
              DO 30 IT=1,NTEMP                                          BML  850
                  SD(IT,JM)=ODZ(IT,IP)                                  BML  860
   30         SD(IT,IM)=SDZ(IT,IP)                                      BML  870
          ENDIF                                                         BML  880
      ENDIF                                                             BML  890
      RETURN                                                            BML  900
      END                                                               BML  910
      SUBROUTINE BMOD(IK,IKMX,IPATH,IV,MSOFF,MXFREQ)                    BMO   10
C                                                                       BMO   20
C     THIS ROUTINE RETURNS THE TRANSMITTANCE AT A SPECTRAL RESOLUTION   BMO   30
C     OF 1 CM-1 FOR THE "NSPEC" SPECIES                                 BMO   40
C           K = ( 1, 13)      H2O LINE (CENTERS, TAILS)                 BMO   50
C             = ( 2, 14)      CO2 LINE (CENTERS, TAILS)                 BMO   60
C             = ( 3, 15)       O3 LINE (CENTERS, TAILS)                 BMO   70
C             = ( 4, 16)      N2O LINE (CENTERS, TAILS)                 BMO   80
C             = ( 5, 17)       CO LINE (CENTERS, TAILS)                 BMO   90
C             = ( 6, 18)      CH4 LINE (CENTERS, TAILS)                 BMO  100
C             = ( 7, 19)       O2 LINE (CENTERS, TAILS)                 BMO  110
C             = ( 8, 20)       NO LINE (CENTERS, TAILS)                 BMO  120
C             = ( 9, 21)      SO2 LINE (CENTERS, TAILS)                 BMO  130
C             = (10, 22)      NO2 LINE (CENTERS, TAILS)                 BMO  140
C             = (11, 23)      NH3 LINE (CENTERS, TAILS)                 BMO  150
C             = (12, 24)     HNO3 LINE (CENTERS, TAILS)                 BMO  160
C                                                                       BMO  170
CC@   SAVE COLSUM,DOPSUM,ODSUM,SDSUM,DOP0,MOLTRN                        BMOXX180
      LOGICAL MODTRN,MOLTRN                                             BMO  190
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            BMO  200
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   BMO  210
      COMMON ABSC(5,47),EXTC(5,47),ASYC(5,47),VX2(47),AWCCON(5)         BMO  220
      COMMON/SOLS/AH1(68),ARH(68),                                      BMO  230
     1  WPATHS(102,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),      BMO  240
     2  JTURN,ANGSUN,CSZEN(68),TBBYS(102,12),PATMS(102,12)              BMO  250
      COMMON/CARD1/MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB,   BMO  260
     1  MODTRN                                                          BMO  270
      COMMON/BMDCOM/IBNDWD,IP,IPRM,IBLK,IBLOCK,IPARAM(232),NTEMP,       BMO  280
     1  TBAND(5),SDZ(5,250),ODZ(5,250),IBIN(250),IMOL(250),IALF(250),   BMO  290
     2  SD(5,24),OD(5,12),ALF0(12),WT(102),WTS(102,12),ITB,             BMO  300
     3  JJ(102),FF(102),JJS(102,12),FFS(102,12),                        BMO  310
     4          DOPFAC(12),DOP0(12),DOPSUM(12),COLSUM(12),ODSUM(12),    BMO  320
     5  SDSUM(24)                                                       BMO  330
C                                                                       BMO  340
C     DOPFAC (UNITLESS) EQUALS SQRT(2 LN2 R T / M)/C WHERE T IS THE     BMO  350
C     STANDARD TEMPERATURE (273.15K) AND M IS MOLECULAR WEIGHT.         BMO  360
C                                                                       BMO  370
      DATA DV/1./
      DATA COLSOL,DOPSOL,ODSOL,SDSOL,SDTSOL /5*0./
C                                                                       BMO  410
C     IF IV IS BEYOND BAND MODEL TAPE RANGE, SET TRANSMITTANCES TO 1    BMO  420
C                                                                       BMO  430
      IF(IV.GT.MXFREQ)THEN                                              BMO  440
          DO 10 K=1,NSPEC                                               BMO  450
   10     TX(KPOINT(K))=1.                                              BMO  460
          RETURN                                                        BMO  470
      ENDIF                                                             BMO  480
C                                                                       BMO  490
C     IK=0 IS THE INITIAL CALL FOR EACH WAVENUMBER AND IS MADE PRIOR    BMO  500
C     TO THE LOOP OVER LAYERS                                           BMO  510
C                                                                       BMO  520
      IF(IK.EQ.0)THEN                                                   BMO  530
          IF(MSOFF.EQ.0)THEN                                            BMO  540
C                                                                       BMO  550
C             IS THERE MOLECULAR DATA FOR FREQUENCY IV?                 BMO  560
C                                                                       BMO  570
              IF(IBIN(IP).NE.IV)THEN                                    BMO  580
                  MOLTRN=.FALSE.                                        BMO  590
                  RETURN                                                BMO  600
              ENDIF                                                     BMO  610
              MOLTRN=.TRUE.                                             BMO  620
C                                                                       BMO  630
C             FOR EACH SPECIES, SET THE 'NO DATA' INDICATOR             BMO  640
C                                                                       BMO  650
              DO 20 IM=1,24                                             BMO  660
   20         SD(1,IM)=0.                                               BMO  670
C                                                                       BMO  680
C             LOAD MOLECULAR DATA FOR PARAMETER SET IP                  BMO  690
C                                                                       BMO  700
   30         CALL BMLOAD                                               BMO  710
C                                                                       BMO  720
C             IS IP THE LAST PARAMETER SET IN BLOCK IBLK?               BMO  730
C                                                                       BMO  740
              IF(IP.LT.IPRM)THEN                                        BMO  750
                  IP=IP+1                                               BMO  760
                  IF(IBIN(IP).EQ.IV)GOTO30                              BMO  770
              ELSE                                                      BMO  780
C                                                                       BMO  790
C                     READ THE NEXT BLOCK OF THE BAND MODEL TAPE        BMO  800
C                                                                       BMO  810
                  IF(IBLK.LT.IBLOCK)THEN                                BMO  820
                      IBLK=IBLK+1                                       BMO  830
                      IPRM=IPARAM(IBLK)                                 BMO  840
                      READ(ITB)(IBIN(IP),IMOL(IP),                      BMO  850
     1                  (SDZ(IT,IP),IT=1,NTEMP),IALF(IP),               BMO  860
     2                  (ODZ(IT,IP),IT=1,NTEMP),IP=1,IPRM)              BMO  870
                      IP=1                                              BMO  880
                  ENDIF                                                 BMO  890
              ENDIF                                                     BMO  900
              DV=IBNDWD                                                 BMO  910
C                                                                       BMO  920
C             IF NO SOLAR PATH, ZERO SOLAR PATH VARIABLES               BMO  930
C                                                                       BMO  940
              IF(IEMSCT.NE.2)THEN                                       BMO  950
                  COLSOL=0.                                             BMO  960
                  DOPSOL=0.                                             BMO  970
                  ODSOL=0.                                              BMO  980
                  SDSOL=0.                                              BMO  990
                  SDTSOL=0.                                             BMO 1000
              ENDIF                                                     BMO 1010
C                                                                       BMO 1020
C             ZERO LAYER LOOP QUANTITIES; DEFINE STANDARD DOPPLER WIDTH BMO 1030
C                                                                       BMO 1040
              DO 40 K=1,NSPEC                                           BMO 1050
                  DOP0(K)=IV*DOPFAC(K)                                  BMO 1060
                  COLSUM(K)=0.                                          BMO 1070
                  DOPSUM(K)=0.                                          BMO 1080
                  ODSUM(K)=0.                                           BMO 1090
                  SDSUM(K)=0.                                           BMO 1100
   40         SDSUM(K+NSPEC)=0.                                         BMO 1110
          ELSE                                                          BMO 1120
              DO 50 K=1,NSPEC                                           BMO 1130
                  COLSUM(K)=0.                                          BMO 1140
                  DOPSUM(K)=0.                                          BMO 1150
                  ODSUM(K)=0.                                           BMO 1160
                  SDSUM(K)=0.                                           BMO 1170
   50         SDSUM(K+NSPEC)=0.                                         BMO 1180
          ENDIF                                                         BMO 1190
          RETURN                                                        BMO 1200
      ENDIF                                                             BMO 1210
      IF(.NOT.MOLTRN)THEN                                               BMO 1220
          DO 60 K=1,NSPEC                                               BMO 1230
   60     TX(KPOINT(K))=1.                                              BMO 1240
          RETURN                                                        BMO 1250
      ENDIF                                                             BMO 1260
C                                                                       BMO 1270
C     START CALCULATION OF MOLECULAR TRANSMITTANCE                      BMO 1280
C                                                                       BMO 1290
      IF(IEMSCT.EQ.0 .OR. IEMSCT.EQ.3)THEN                              BMO 1300
C         LOOP OVER ALL LAYERS FOR TRANSMITTANCE CALCULATIONS           BMO 1310
          LMAX=IKMX                                                     BMO 1320
      ELSEIF(IEMSCT.EQ.1)THEN                                           BMO 1330
C         LOOP OVER SINGLE LAYER FOR RADIANCE CALCULATION WITHOUT SOLAR BMO 1340
          LMAX=IK                                                       BMO 1350
      ELSE                                                              BMO 1360
          GOTO(70,80,90),IPATH                                          BMO 1370
C         SKIP LAYER LOOP COMPLETELY FOR FIRST SOLAR PATH WITH IPATH=1  BMO 1380
   70     LMAX=0                                                        BMO 1390
          LS=1                                                          BMO 1400
          GOTO100                                                       BMO 1410
C         LOOP OVER SINGLE LAYER ONLY FOR "L PATH" WITH IPATH=2         BMO 1420
   80     LMAX=IK                                                       BMO 1430
          IF(MSOFF.GT.0)LMAX=0                                          BMO 1440
          LS=IK+1                                                       BMO 1450
          GOTO100                                                       BMO 1460
C         THERE IS NO SOLAR CONTRIBUTION FOR IPATH=3                    BMO 1470
   90     COLSOL=0.                                                     BMO 1480
          DOPSOL=0.                                                     BMO 1490
          ODSOL=0.                                                      BMO 1500
          SDSOL=0.                                                      BMO 1510
          SDTSOL=0.                                                     BMO 1520
C         LOOP OVER SINGLE LAYER IF NOT PERFORMED WHEN IPATH EQUALED 2  BMO 1530
          LMAX=0                                                        BMO 1540
          IF(MSOFF.GT.0)LMAX=IK                                         BMO 1550
  100     CONTINUE                                                      BMO 1560
      ENDIF                                                             BMO 1570
C                                                                       BMO 1580
C     START SPECIES LOOP                                                BMO 1590
C                                                                       BMO 1600
      DO 130 K=1,NSPEC                                                  BMO 1610
          KP=KPOINT(K)                                                  BMO 1620
          KTAIL=K+NSPEC                                                 BMO 1630
C                                                                       BMO 1640
C         CHECK IF LINE CENTER CONTRIBUTES TO ABSORPTION                BMO 1650
C                                                                       BMO 1660
          IF(SD(1,K).GT.0.)THEN                                         BMO 1670
C                                                                       BMO 1680
C             LOOP OVER LAYERS                                          BMO 1690
C                                                                       BMO 1700
              DO 110 L = IK,LMAX                                        BMO 1710
C                                                                       BMO 1720
C                 INTERPOLATE BAND MODEL PARAMETERS OVER TEMPERATURE    BMO 1730
C                                                                       BMO 1740
                  MSOFFL=MSOFF+L                                        BMO 1750
                  J=JJ(MSOFFL)                                          BMO 1760
                  F=FF(MSOFFL)                                          BMO 1770
                  JM1=J-1                                               BMO 1780
                  STORE=SD(J,K)                                         BMO 1790
                  ABSM=STORE+F*(SD(JM1,K)-STORE)                        BMO 1800
                  STORE=OD(J,K)                                         BMO 1810
                  DINV=STORE+F*(OD(JM1,K)-STORE)                        BMO 1820
                  STORE=SD(J,KTAIL)                                     BMO 1830
                  TAIL=STORE+F*(SD(JM1,KTAIL)-STORE)                    BMO 1840
C                                                                       BMO 1850
C                 PERFORM CURTIS-GODSON SUMS                            BMO 1860
C                                                                       BMO 1870
                  PL=PATM(MSOFFL)                                       BMO 1880
                  WL=WT(MSOFFL)                                         BMO 1890
                  STORE=WPATH(MSOFFL,KP)                                BMO 1900
                  SDSUM(KTAIL)=SDSUM(KTAIL)+STORE*TAIL*PL               BMO 1910
                  STORE=ABSM*STORE                                      BMO 1920
                  SDSUM(K)=SDSUM(K)+STORE                               BMO 1930
                  STORE=DINV*STORE                                      BMO 1940
                  ODSUM(K)=ODSUM(K)+STORE                               BMO 1950
                  DOPSUM(K)=DOPSUM(K)+STORE*WL                          BMO 1960
                  STORE=STORE*PL/WL                                     BMO 1970
                  IF(K.EQ.2)THEN                                        BMO 1980
                      COLSUM(K)=COLSUM(K)+STORE/SQRT(WL)                BMO 1990
                  ELSE                                                  BMO 2000
                      COLSUM(K)=COLSUM(K)+STORE                         BMO 2010
                  ENDIF                                                 BMO 2020
  110         CONTINUE                                                  BMO 2030
C                                                                       BMO 2040
C             IF SOLAR PATH, CALCULATE ADDITIONAL LAYER                 BMO 2050
C                                                                       BMO 2060
              IF(IEMSCT.EQ.2 .AND. IPATH.NE.3)THEN                      BMO 2070
                  MSOFFL=MSOFF+LS                                       BMO 2080
                  J=JJS(MSOFFL,K)                                       BMO 2090
                  F=FFS(MSOFFL,K)                                       BMO 2100
                  JM1=J-1                                               BMO 2110
                  STORE=SD(J,K)                                         BMO 2120
                  ABSM=STORE+F*(SD(JM1,K)-STORE)                        BMO 2130
                  STORE=OD(J,K)                                         BMO 2140
                  DINV=STORE+F*(OD(JM1,K)-STORE)                        BMO 2150
                  STORE=SD(J,KTAIL)                                     BMO 2160
                  TAIL=STORE+F*(SD(JM1,KTAIL)-STORE)                    BMO 2170
                  PL=PATMS(MSOFFL,K)                                    BMO 2180
                  WL=WTS(MSOFFL,K)                                      BMO 2190
                  STORE=WPATHS(MSOFFL,KP)                               BMO 2200
                  SDTSOL=STORE*TAIL*PL                                  BMO 2210
                  SDSOL=ABSM*STORE                                      BMO 2220
                  ODSOL=DINV*SDSOL                                      BMO 2230
                  DOPSOL=ODSOL*WL                                       BMO 2240
                  COLSOL=ODSOL*PL/WL                                    BMO 2250
                  IF(K.EQ.2)COLSOL=COLSOL/SQRT(WL)                      BMO 2260
              ENDIF                                                     BMO 2270
C                                                                       BMO 2280
C             CHECK FOR WEAK LINE                                       BMO 2290
C                                                                       BMO 2300
              STORE=SDSUM(K)+SDSOL                                      BMO 2310
              IF(STORE.LT.0.001)THEN                                    BMO 2320
                  TRANSM=1.-STORE                                       BMO 2330
              ELSE                                                      BMO 2340
C                                                                       BMO 2350
C                 CALCULATE EQUIVALENT WIDTH TRANSMITTANCE              BMO 2360
C                                                                       BMO 2370
                  ACBAR=ALF0(K)*(COLSUM(K)+COLSOL)/STORE                BMO 2380
                  ADBAR=DOP0(K)*(DOPSUM(K)+DOPSOL)/STORE                BMO 2390
                  ODBAR=(ODSUM(K)+ODSOL)/STORE                          BMO 2400
                  CALL BMTRAN(STORE,ACBAR,ADBAR,ODBAR,DV,TRANSM)        BMO 2410
              ENDIF                                                     BMO 2420
C                                                                       BMO 2430
C         ADD LINE TAIL CONTRIBUTIONS                                   BMO 2440
C                                                                       BMO 2450
              TX(KP)=TRANSM*EXP(-SDSUM(KTAIL)-SDTSOL)                   BMO 2460
C                                                                       BMO 2470
C         CHECK IF LINE TAILS CONTRIBUTE TO ABSORPTION                  BMO 2480
C                                                                       BMO 2490
          ELSEIF(SD(1,KTAIL).GT.0.)THEN                                 BMO 2500
C                                                                       BMO 2510
C             LOOP OVER LAYERS                                          BMO 2520
C                                                                       BMO 2530
              DO 120 L = IK,LMAX                                        BMO 2540
C                                                                       BMO 2550
C                 INTERPOLATE BAND MODEL PARAMETERS OVER TEMPERATURE    BMO 2560
C                                                                       BMO 2570
                  MSOFFL=MSOFF+L                                        BMO 2580
                  J=JJ(MSOFFL)                                          BMO 2590
                  STORE=SD(J,KTAIL)                                     BMO 2600
                  TAIL=STORE+FF(MSOFFL)*(SD(J-1,KTAIL)-STORE)           BMO 2610
C                                                                       BMO 2620
C                 PERFORM CURTIS-GODSON SUMS                            BMO 2630
C                                                                       BMO 2640
                  STORE=WPATH(MSOFFL,KP)*TAIL*PATM(MSOFFL)              BMO 2650
                  SDSUM(KTAIL)=SDSUM(KTAIL)+STORE                       BMO 2660
  120         CONTINUE                                                  BMO 2670
C                                                                       BMO 2680
C             IF SOLAR PATH, CALCULATE ADDITIONAL LAYER.                BMO 2690
C                                                                       BMO 2700
              IF(IEMSCT.EQ.2 .AND. IPATH.NE.3)THEN                      BMO 2710
                  MSOFFL=MSOFF+LS                                       BMO 2720
                  J=JJS(MSOFFL,K)                                       BMO 2730
                  STORE=SD(J,KTAIL)                                     BMO 2740
                  TAIL=STORE+FFS(MSOFFL,K)*(SD(J-1,KTAIL)-STORE)        BMO 2750
                  SDTSOL=WPATHS(MSOFFL,KP)*TAIL*PATMS(MSOFFL,K)         BMO 2760
              ENDIF                                                     BMO 2770
C                                                                       BMO 2780
C             CALCULATE LINE TAIL TRANSMITTANCE                         BMO 2790
C                                                                       BMO 2800
              TX(KP)=EXP(-SDSUM(KTAIL)-SDTSOL)                          BMO 2810
              IF(TX(KP) .GT. 1.)TX(KP) = 1.                             BMO
          ELSE                                                          BMO 2820
              TX(KP)=1.                                                 BMO 2830
          ENDIF                                                         BMO 2840
  130 CONTINUE                                                          BMO 2850
      RETURN                                                            BMO 2860
      END                                                               BMO 2870
      BLOCK DATA  BMDCOM1                                               BMO
CC@   SAVE COLSUM,DOPSUM,ODSUM,SDSUM,DOP0,MOLTRN                        BMO
      COMMON/BMDCOM/IBNDWD,IP,IPRM,IBLK,IBLOCK,IPARAM(232),NTEMP,       BMO
     1  TBAND(5),SDZ(5,250),ODZ(5,250),IBIN(250),IMOL(250),IALF(250),   BMO
     2  SD(5,24),OD(5,12),ALF0(12),WT(102),WTS(102,12),ITB,             BMO
     3  JJ(102),FF(102),JJS(102,12),FFS(102,12),                        BMO
     4          DOPFAC(12),DOP0(12),DOPSUM(12),COLSUM(12),ODSUM(12),    BMO
     5  SDSUM(24)                                                       BMO
      DATA DOPFAC/1.3945E-6, 0.8922E-6, 0.8543E-6, 0.8921E-6, 1.1183E-6,BMO
     1 1.4777E-6, 1.0463E-6, 1.0805E-6, 0.7395E-6, 0.8726E-6, 1.4342E-6,BMO
     2 0.7456E-6/                                                       BMO
      END                                                               BMO
      SUBROUTINE BMTRAN(XSTAR,ACBAR,ADBAR,ODBAR,DV,TTRANS)              BMT   10
C                                                                       BMT   20
C ... EQUIVALENT WIDTH OF A VOIGT LINE IN A FINITE SPECTRAL INTERVAL.   BMT   30
C     IT USES THE NASA CURVE-OF-GROWTH FORMULATION                      BMT   40
C        XSTAR     AVERAGE VALUE OF  (S/D)U                             BMT   50
C        ACBAR        "      "   "   LORENTZ LINE WIDTH / LINE DENSITY  BMT   60
C        ADBAR        "      "   "   DOPPLER  "     "   "   "     "     BMT   70
C        ODBAR        "      "   "   (1/D)                              BMT   80
C         DV       WIDTH OF SPECTRAL INTERVAL                           BMT   90
C         WSL      EQUIVALENT WIDTH OF A SINGLE LINE                    BMT  100
C        TTRANS    TRANSMITTANCE OF THE INTERVAL                        BMT  110
C                                                                       BMT  120
C ... LIST DATA                                                         BMT  130
C        P5LN2 = .5 * LN(2)                                             BMT  140
C        C     = 2. / SQRT(PI)                                          BMT  150
      DATA P5LN2,C/0.346573590,1.128379167/                             BMT  160
C                                                                       BMT  170
C     CALCULATE SINGLE (AVERAGE) LINE STRENGTH                          BMT  180
      XS=XSTAR/ODBAR                                                    BMT  190
C                                                                       BMT  200
C ... CALCULATE (LORENTZ EQUIVALENT WIDTH / LINE STRENGTH) SQUARED      BMT  210
      WL=4./(4.+XSTAR/ACBAR)                                            BMT  220
C                                                                       BMT  230
C ... CALCULATE (DOPPLER EQUIVALENT WIDTH / LINE STRENGTH) SQUARED      BMT  240
      WD=XSTAR/ADBAR                                                    BMT  250
      WD=P5LN2*WD*WD                                                    BMT  260
      WD=LOG(1.+WD)/WD                                                  BMT  270
C                                                                       BMT  280
C ... INTERPOLATE TO FIND EQUIVALENT WIDTH                              BMT  290
      STORE=WL*WD*(2.-WL)*(2.-WD)                                       BMT  300
      IF(STORE.LT..01)THEN                                              BMT  310
C         WSL=XS*SQRT(1.-(1.-WL)*(1.-WD)*(1.+.5*STORE))                 BMT  320
          WSL=XS*SQRT((WL+WD-WL*WD)*(1.+.5*STORE)+.5*STORE)             BMT  320
      ELSE                                                              BMT  330
          STORE=(1.-WL)*(1.-WD)/SQRT(1.000001-STORE)                    BMT  340
          IF(STORE.LT..01)THEN                                          BMT  350
              WSL=XS*(1.-STORE)                                         BMT  360
          ELSE                                                          BMT  370
              WSL=XS*SQRT(1.-STORE)                                     BMT  380
          ENDIF                                                         BMT  390
      ENDIF                                                             BMT  400
      WSL0=WSL                                                          BMT  410
C                                                                       BMT  420
C ... SUBTRACT TAIL CONTRIBUTION IF SIGNIFICANT                         BMT  430
      IF(WL*XS*XS.GT..01)THEN                                           BMT  440
          U0=C*SQRT(XS*ACBAR/ODBAR)/DV                                  BMT  450
          WSL=WSL-DV*BMERFU(U0)                                         BMT  460
      ENDIF                                                             BMT  470
C                                                                       BMT  480
C ... CALCULATE TRANSMITTANCE                                           BMT  490
      IF(WSL.GE.DV)THEN                                                 BMT  500
          TTRANS=0.                                                     BMT  510
      ELSE                                                              BMT  520
          TTRANS=(1.-WSL/DV)**(DV*ODBAR)                                BMT  530
      ENDIF                                                             BMT  540
C                                                                       BMT  550
      RETURN                                                            BMT  560
      END                                                               BMT  570
      BLOCK DATA BO2C                                                   BO2  100
C>    BLOCK DATA                                                        BO2  105
C                                                                       BO2  110
C     BLOCK DATA   (IDENTICAL TO BLOCK DATA IN FASCOD2)                 BO2  120
C                                                                       BO2  130
      COMMON/O2C/ O2DRAY(74),O2C001(74),O2S0(74),O2A(74),O2B(74),       BO2  140
     X V1O2,V2O2,DVO2,NPTO2                                             BO2  150
      DATA V1O2,V2O2,DVO2,NPTO2 /1395.0,1760.0,5.0,74/                  BO2  160
      DATA O2S0/                                                        BO2  170
     A0.       ,                                                        BO2  180
     +  .110E-8, .220E-8, .440E-8, .881E-8, .176E-7, .353E-7, .705E-7,  BO2  190
     B .141E-06, .158E-06, .174E-06, .190E-06, .207E-06, .253E-06,      BO2  200
     B .307E-06, .357E-06, .401E-06, .445E-06, .508E-06, .570E-06,      BO2  210
     B .599E-06, .627E-06, .650E-06, .672E-06, .763E-06, .873E-06,      BO2  220
     B .101E-05, .109E-05, .121E-05, .133E-05, .139E-05, .145E-05,      BO2  230
     B .148E-05, .140E-05, .134E-05, .126E-05, .118E-05, .114E-05,      BO2  240
     B .109E-05, .105E-05, .105E-05, .105E-05, .104E-05, .103E-05,      BO2  250
     B .992E-06, .945E-06, .876E-06, .806E-06, .766E-06, .726E-06,      BO2  260
     B .640E-06, .555E-06, .469E-06, .416E-06, .364E-06, .311E-06,      BO2  270
     B .266E-06, .222E-06, .177E-06, .170E-06, .162E-06, .155E-06,      BO2  280
     B .143E-06, .130E-06, .118E-06, .905E-07, .629E-07,                BO2  290
     + .316E-7, .157E-7, .786E-8, .393E-8, .196E-8, .982E-9,            BO2  300
     + 0./                                                              BO2  310
      DATA O2A /                                                        BO2  320
     A 0.       ,                                                       BO2  330
     +   .147E-3, .147E-3, .147E-3,  .147E-3, .147E-3, .147E-3, .147E-3,BO2  340
     B  .147E-03,  .122E-02,  .204E-02,  .217E-02,  .226E-02,  .126E-02,BO2  350
     B  .362E-03, -.198E-02, -.545E-02, -.786E-02, -.624E-02, -.475E-02,BO2  360
     B -.506E-02, -.533E-02, -.586E-02, -.635E-02, -.644E-02, -.679E-02,BO2  370
     B -.741E-02, -.769E-02, -.780E-02, -.788E-02, -.844E-02, -.894E-02,BO2  380
     B -.899E-02, -.922E-02, -.892E-02, -.857E-02, -.839E-02, -.854E-02,BO2  390
     B -.871E-02, -.889E-02, -.856E-02, -.823E-02, -.796E-02, -.768E-02,BO2  400
     B -.715E-02, -.638E-02, -.570E-02, -.491E-02, -.468E-02, -.443E-02,BO2  410
     B -.333E-02, -.184E-02,  .313E-03, -.164E-04, -.417E-03, -.916E-03,BO2  420
     B -.206E-02, -.343E-02, -.515E-02, -.365E-02, -.172E-02,  .926E-03,BO2  430
     B  .168E-02,  .262E-02,  .380E-02,  .551E-02,  .889E-02,           BO2  440
     + .889E-2,  .889E-2, .889E-2, .889E-2, .889E-2, .889E-2,           BO2  450
     +  0./                                                             BO2  460
      DATA O2B  /                                                       BO2  470
     A 0.       ,                                                       BO2  480
     + .306E-4,-.306E-4,-.306E-4,-.306E-4,-.306E-4,-.306E-4,-.306E-4,   BO2  490
     B -.306E-04, -.218E-04, -.159E-04, -.346E-05,  .642E-05,  .360E-05,BO2  500
     B -.140E-05,  .157E-04,  .471E-04,  .656E-04,  .303E-04, -.192E-05,BO2  510
     B  .705E-05,  .149E-04,  .200E-04,  .245E-04,  .158E-04,  .841E-05,BO2  520
     B  .201E-05,  .555E-05,  .108E-04,  .150E-04,  .193E-04,  .230E-04,BO2  530
     B  .243E-04,  .226E-04,  .184E-04,  .157E-04,  .169E-04,  .197E-04,BO2  540
     B  .226E-04,  .258E-04,  .235E-04,  .212E-04,  .185E-04,  .156E-04,BO2  550
     B  .125E-04,  .872E-05,  .760E-05,  .577E-05,  .334E-07, -.652E-05,BO2  560
     B -.977E-05, -.157E-04, -.273E-04, -.180E-04, -.641E-05,  .817E-05,BO2  570
     B  .326E-04,  .626E-04,  .101E-03,  .755E-04,  .430E-04, -.113E-05,BO2  580
     B -.578E-05, -.120E-04, -.208E-04, -.235E-04, -.364E-04,           BO2  590
     + .364E-4, -.364E-4,-.364E-4,-.364E-4,-.364E-4,-.364E-4,           BO2  600
     + 0./                                                              BO2  610
C                                                                       BO2  620
      END                                                               BO2  630
      BLOCK DATA BO3HH0                                                 O30  100
C>    BLOCK DATA                                                        O30  110
C                                                                       O30  120
C                                                                       O30  130
C     O3HH0 CONTAINS O3 HARTLEY HUGGINS CROSS SECTIONS FOR 273K         O30  140
C               UNITS OF (CM**2/MOL)*1.E-20                             O30  150
C                                                                       O30  160
C     NOW INCLUDES MOLINA & MOLINA AT 273K WITH THE TEMPERATURE         O30  170
C     DEPENDENCE DETERMINED FROM THE 195K HARVARD MEASUREMENTS,         O30  180
C     EMPLOYING THE BASS ALGORITHM (CO(1+C1*T+C2*T2); THIS IS           O30  190
C     ONLY FOR THE WAVELENGTH RANGE FROM .34 TO .35 MICRONS;            O30  200
C     OTHERWISE, THE BASS DATA ALONE HAVE BEEN EMPLOYED BETWEEN         O30  210
C     .34 AND .245 MICRONS.                                             O30  220
C                                                                       O30  230
C     NEW T-DEPENDENT X-SECTIONS BETWEEN .345 AND .36 MICRONS           O30  240
C     HAVE NOW BEEN ADDED, BASED ON WORK BY CACCIANI, DISARRA           O30  250
C     AND FIOCCO, UNIVERSITY OF ROME, 1987.  QUADRATIC TEMP             O30  260
C     HAS BEEN DERIVED, AS ABOVE.                                       O30  270
C                                                                       O30  280
C     MOLINA & MOLINA HAVE AGAIN BEEN USED BETWEEN .245 AND .185        O30  290
C     MICRONS (NO TEMPERATURE DEPENDENCE)                               O30  300
C                                                                       O30  310
C     AGREEMENT AMONGST THE FOUR DATA SETS IS REASONABLE (<10%)         O30  320
C     AND OFTEN EXCELLENT (0-3%)                                        O30  330
C                                                                       O30  340
C                                                                       O30  350
      COMMON /O3HH0/  V1C,V2C,DVC,NC,                                   O30  360
     X           O30001(80),O30081(80),O30161(80),O30241(80),O30321(80),O30  370
     X           O30401( 7),                                            O30  380
     X           C00001(80),C00081(80),C00161(80),C00241(80),C00321(80),O30  390
     X           C00401(80),C00481(80),C00561(80),C00641(80),C00721(80),O30  400
     X           C00801(80),C00881(80),C00961(80),C01041(80),C01121(80),O30  410
     X           C01201(80),C01281(80),C01361(80),C01441(80),C01521(80),O30  420
     X           C01601(80),C01681(80),C01761(80),C01841(80),C01921(80),O30  430
     X           C02001(80),C02081(80),C02161(80),C02241(40)            O30  440
C                                                                       O30  450
C     DATA V1C  /27370./,V2C  /29400./,DVC  /5./,NC  /407/ INN & TANAKA O30  460
C         DATA FROM INN & TANAKA, HANDBOOK OF GEOPHYSICS, 1957, P 16-24 O30  470
C                LINEARLY INTERPOLATED BY SAC, JUNE 1985                O30  480
C                CONVERSION: (I&T)/(LOSCHMIDT 1 1987*1.2)               O30  490
C                                                                       O30  500
C     DATA V1C /29405./, V2C /40800./ ,DVC /5./, NC /2280/  BASS        O30  510
C         DATA FROM BASS, JUNE 1985                                     O30  520
C                                                                       O30  530
      DATA V1C /27370./, V2C /40800./ ,DVC /5./, NC /2687/              O30  540
C                                                                       O30  550
      DATA O30001/                                                      O30  560
C    X 2.08858E-03, 1.98947E-03, 1.89037E-03, 1.79126E-03, 1.69215E-03, O30  570
C     THIS LINE OF DATA HAS BEEN REPLACED BY MONTONICALLY DECREASING    O30  580
C     VALUES                                                            O30  590
     X 1.00000E-03, 1.15000E-03, 1.25000E-03, 1.40000E-03, 1.50000E-03, O30  600
     X 1.59304E-03, 1.62396E-03, 1.76216E-03, 1.90036E-03, 2.03856E-03, O30  610
     X 2.16538E-03, 2.02324E-03, 1.88110E-03, 1.73896E-03, 1.59682E-03, O30  620
     X 1.45468E-03, 1.31253E-03, 1.17039E-03, 1.02825E-03, 8.86108E-04, O30  630
     X 7.43963E-04, 6.01821E-04, 4.59679E-04, 5.14820E-04, 5.73044E-04, O30  640
     X 6.31269E-04, 6.89493E-04, 7.47718E-04, 8.05942E-04, 8.64167E-04, O30  650
     X 9.22392E-04, 9.80617E-04, 1.03884E-03, 1.09707E-03, 1.15528E-03, O30  660
     X 1.21351E-03, 1.27173E-03, 1.32996E-03, 1.38818E-03, 1.44641E-03, O30  670
     X 1.50463E-03, 1.56286E-03, 1.62108E-03, 1.67931E-03, 1.73753E-03, O30  680
     X 1.79575E-03, 1.85398E-03, 1.91220E-03, 1.97043E-03, 2.02865E-03, O30  690
     X 2.08688E-03, 2.14510E-03, 2.20333E-03, 2.26155E-03, 2.31978E-03, O30  700
     X 2.37800E-03, 2.43623E-03, 2.49444E-03, 2.55267E-03, 2.61089E-03, O30  710
     X 2.66912E-03, 2.72734E-03, 2.78557E-03, 2.84379E-03, 2.90202E-03, O30  720
     X 2.96024E-03, 3.01847E-03, 3.07669E-03, 3.13491E-03, 3.19313E-03, O30  730
     X 3.25136E-03, 3.30958E-03, 3.36781E-03, 3.31660E-03, 3.21583E-03, O30  740
     X 3.11505E-03, 3.22165E-03, 3.46058E-03, 3.69953E-03, 3.93846E-03/ O30  750
      DATA O30081/                                                      O30  760
     X 4.17739E-03, 4.41633E-03, 4.42256E-03, 4.13791E-03, 4.17894E-03, O30  770
     X 4.25583E-03, 4.33273E-03, 4.40963E-03, 4.49259E-03, 4.44532E-03, O30  780
     X 4.17540E-03, 3.84814E-03, 3.41823E-03, 3.11003E-03, 2.86548E-03, O30  790
     X 2.73912E-03, 2.70800E-03, 2.70882E-03, 2.70866E-03, 2.70816E-03, O30  800
     X 2.71228E-03, 2.78044E-03, 2.86135E-03, 3.00163E-03, 3.15222E-03, O30  810
     X 3.33394E-03, 3.48231E-03, 3.64966E-03, 3.83242E-03, 3.97733E-03, O30  820
     X 4.10299E-03, 4.26332E-03, 4.41165E-03, 4.54040E-03, 4.65544E-03, O30  830
     X 4.91897E-03, 5.23429E-03, 5.45390E-03, 5.74420E-03, 5.96314E-03, O30  840
     X 6.07198E-03, 6.07338E-03, 5.99162E-03, 5.95079E-03, 6.04655E-03, O30  850
     X 6.18239E-03, 6.56998E-03, 6.93885E-03, 7.38561E-03, 7.73029E-03, O30  860
     X 7.90493E-03, 7.72072E-03, 7.40226E-03, 6.53860E-03, 5.30328E-03, O30  870
     X 4.23000E-03, 3.45735E-03, 3.21167E-03, 3.16694E-03, 3.30966E-03, O30  880
     X 3.47431E-03, 3.68089E-03, 3.92006E-03, 4.05246E-03, 4.16408E-03, O30  890
     X 4.08710E-03, 3.98224E-03, 4.07316E-03, 4.19498E-03, 4.44990E-03, O30  900
     X 4.77881E-03, 5.08270E-03, 5.37384E-03, 5.70240E-03, 5.91906E-03, O30  910
     X 5.96745E-03, 5.92363E-03, 5.80363E-03, 5.60812E-03, 5.37450E-03/ O30  920
      DATA O30161/                                                      O30  930
     X 5.16202E-03, 4.98389E-03, 4.95294E-03, 5.04930E-03, 5.17576E-03, O30  940
     X 5.26042E-03, 5.22957E-03, 5.32404E-03, 5.39630E-03, 5.53353E-03, O30  950
     X 5.68057E-03, 5.78679E-03, 5.83795E-03, 5.93810E-03, 6.09330E-03, O30  960
     X 6.40001E-03, 6.69056E-03, 7.04863E-03, 7.41339E-03, 7.87421E-03, O30  970
     X 8.35570E-03, 8.97672E-03, 9.58486E-03, 1.01972E-02, 1.08463E-02, O30  980
     X 1.14105E-02, 1.18935E-02, 1.22404E-02, 1.25053E-02, 1.28759E-02, O30  990
     X 1.32169E-02, 1.37796E-02, 1.46488E-02, 1.57324E-02, 1.68897E-02, O30 1000
     X 1.78560E-02, 1.87101E-02, 1.92197E-02, 1.94106E-02, 1.90711E-02, O30 1010
     X 1.86585E-02, 1.82149E-02, 1.82219E-02, 1.85639E-02, 1.91924E-02, O30 1020
     X 2.01342E-02, 2.12312E-02, 2.26362E-02, 2.39610E-02, 2.55156E-02, O30 1030
     X 2.71338E-02, 2.87904E-02, 3.04268E-02, 3.17055E-02, 3.28248E-02, O30 1040
     X 3.36026E-02, 3.36867E-02, 3.26393E-02, 2.99356E-02, 2.56607E-02, O30 1050
     X 2.11545E-02, 1.79508E-02, 1.59757E-02, 1.49569E-02, 1.46214E-02, O30 1060
     X 1.46214E-02, 1.48217E-02, 1.51379E-02, 1.53816E-02, 1.58087E-02, O30 1070
     X 1.62186E-02, 1.66627E-02, 1.70961E-02, 1.76101E-02, 1.81759E-02, O30 1080
     X 1.86154E-02, 1.88889E-02, 1.89577E-02, 1.89316E-02, 1.88826E-02/ O30 1090
      DATA O30241/                                                      O30 1100
     X 1.90915E-02, 1.95550E-02, 2.02707E-02, 2.11620E-02, 2.21844E-02, O30 1110
     X 2.30920E-02, 2.37270E-02, 2.37422E-02, 2.33578E-02, 2.20358E-02, O30 1120
     X 1.96239E-02, 1.73329E-02, 1.57013E-02, 1.50566E-02, 1.49248E-02, O30 1130
     X 1.52044E-02, 1.57658E-02, 1.63436E-02, 1.68986E-02, 1.74180E-02, O30 1140
     X 1.78192E-02, 1.80677E-02, 1.79927E-02, 1.77900E-02, 1.75599E-02, O30 1150
     X 1.74982E-02, 1.76674E-02, 1.81633E-02, 1.87826E-02, 1.96898E-02, O30 1160
     X 2.06898E-02, 2.17167E-02, 2.28231E-02, 2.40702E-02, 2.55084E-02, O30 1170
     X 2.69701E-02, 2.86915E-02, 3.05796E-02, 3.22328E-02, 3.42637E-02, O30 1180
     X 3.61708E-02, 3.79118E-02, 3.94418E-02, 4.07333E-02, 4.17158E-02, O30 1190
     X 4.17081E-02, 4.01127E-02, 3.65411E-02, 3.25123E-02, 2.98737E-02, O30 1200
     X 2.83616E-02, 2.79907E-02, 2.80571E-02, 2.84778E-02, 2.91698E-02, O30 1210
     X 2.99500E-02, 3.07468E-02, 3.13903E-02, 3.19811E-02, 3.24616E-02, O30 1220
     X 3.26503E-02, 3.26829E-02, 3.27688E-02, 3.36446E-02, 3.55133E-02, O30 1230
     X 3.88447E-02, 4.28854E-02, 4.55381E-02, 4.77161E-02, 4.93567E-02, O30 1240
     X 4.95127E-02, 5.00492E-02, 5.06233E-02, 5.12739E-02, 5.20327E-02, O30 1250
     X 5.29001E-02, 5.38677E-02, 5.49272E-02, 5.60703E-02, 5.72886E-02/ O30 1260
      DATA O30321/                                                      O30 1270
     X 5.85739E-02, 5.99178E-02, 6.13170E-02, 6.28474E-02, 6.46499E-02, O30 1280
     X 6.68672E-02, 6.96421E-02, 7.31174E-02, 7.74361E-02, 8.27413E-02, O30 1290
     X 8.91756E-02, 9.67018E-02, 1.04844E-01, 1.13063E-01, 1.20818E-01, O30 1300
     X 1.27567E-01, 1.32771E-01, 1.35888E-01, 1.36377E-01, 1.33780E-01, O30 1310
     X 1.28385E-01, 1.20887E-01, 1.11978E-01, 1.02354E-01, 9.27108E-02, O30 1320
     X 8.37418E-02, 7.61423E-02, 7.06032E-02, 6.74255E-02, 6.62092E-02, O30 1330
     X 6.64813E-02, 6.77689E-02, 6.95995E-02, 7.15004E-02, 7.29991E-02, O30 1340
     X 7.36229E-02, 7.29641E-02, 7.11015E-02, 6.83345E-02, 6.49638E-02, O30 1350
     X 6.12897E-02, 5.76125E-02, 5.42326E-02, 5.14504E-02, 4.95645E-02, O30 1360
     X 4.87078E-02, 4.87234E-02, 4.94254E-02, 5.06280E-02, 5.21454E-02, O30 1370
     X 5.37919E-02, 5.53818E-02, 5.67293E-02, 5.76709E-02, 5.82319E-02, O30 1380
     X 5.85334E-02, 5.86968E-02, 5.88439E-02, 5.90963E-02, 5.95756E-02, O30 1390
     X 6.04035E-02, 6.17016E-02, 6.35548E-02, 6.59664E-02, 6.89282E-02, O30 1400
     X 7.24326E-02, 7.64718E-02, 8.10380E-02, 8.61236E-02, 9.17211E-02, O30 1410
     X 9.78192E-02, 1.04353E-01, 1.11218E-01, 1.18308E-01, 1.25519E-01, O30 1420
     X 1.32745E-01, 1.39881E-01, 1.46821E-01, 1.53461E-01, 1.59687E-01/ O30 1430
      DATA O30401/                                                      O30 1440
C    X 1.64187E-01, 1.69368E-01, 1.74549E-01, 1.79731E-01, 1.84912E-01, O30 1450
C      1.90094E-01, 1.95275E-01/                                        O30 1460
C   THE VALUE AT 29400. HAS BEEN CHANGED TO PROVIDE A SMOOTH TRANSITION O30 1470
C    X 1.90094E-01, 1.85275E-01/                                        O30 1480
     X 1.65365E-01, 1.70353E-01, 1.74507E-01, 1.77686E-01, 1.79748E-01, O30 1490
     X 1.80549E-01, 1.79948E-01/                                        O30 1500
C                                                                       O30 1510
C                                                                       O30 1520
C    FOLLOWING DATA ARE FROM BASS JUNE 1985                             O30 1530
C                                                                       O30 1540
      DATA C00001 /                                                     O30 1550
     X 1.81094E-01, 1.57760E-01, 1.37336E-01, 1.19475E-01, 1.17191E-01, O30 1560
     X 1.14331E-01, 1.15984E-01, 1.10412E-01, 1.12660E-01, 1.16014E-01, O30 1570
     X 1.15060E-01, 1.12041E-01, 1.11611E-01, 1.00378E-01, 9.54850E-02, O30 1580
     X 9.87528E-02, 9.46153E-02, 9.53093E-02, 9.72653E-02, 9.66468E-02, O30 1590
     X 9.39750E-02, 1.03552E-01, 1.01361E-01, 1.04315E-01, 1.12842E-01, O30 1600
     X 1.02800E-01, 1.09576E-01, 1.05577E-01, 1.17334E-01, 1.25763E-01, O30 1610
     X 1.27597E-01, 1.34267E-01, 1.44799E-01, 1.57366E-01, 1.67369E-01, O30 1620
     X 1.81778E-01, 1.89207E-01, 2.01376E-01, 2.10310E-01, 2.21721E-01, O30 1630
     X 2.43162E-01, 2.55542E-01, 2.75312E-01, 2.88576E-01, 3.02505E-01, O30 1640
     X 3.15141E-01, 3.28908E-01, 3.49000E-01, 3.56620E-01, 3.59852E-01, O30 1650
     X 3.57517E-01, 3.12924E-01, 2.63610E-01, 2.50854E-01, 2.25642E-01, O30 1660
     X 2.15954E-01, 2.12099E-01, 2.13039E-01, 2.12286E-01, 2.17214E-01, O30 1670
     X 2.28784E-01, 2.28276E-01, 2.34677E-01, 2.30730E-01, 2.16107E-01, O30 1680
     X 1.99471E-01, 1.85629E-01, 1.72730E-01, 1.56229E-01, 1.38156E-01, O30 1690
     X 1.37641E-01, 1.33169E-01, 1.32759E-01, 1.30102E-01, 1.35396E-01, O30 1700
     X 1.37976E-01, 1.41571E-01, 1.46448E-01, 1.44508E-01, 1.47612E-01/ O30 1710
      DATA C00081 /                                                     O30 1720
     X 1.47424E-01, 1.48173E-01, 1.52936E-01, 1.58908E-01, 1.58808E-01, O30 1730
     X 1.59860E-01, 1.73936E-01, 1.84109E-01, 1.95143E-01, 2.08267E-01, O30 1740
     X 2.19256E-01, 2.31653E-01, 2.46400E-01, 2.60437E-01, 2.70792E-01, O30 1750
     X 2.79749E-01, 2.91068E-01, 2.98080E-01, 3.10421E-01, 3.24540E-01, O30 1760
     X 3.39003E-01, 3.58322E-01, 3.81520E-01, 4.02798E-01, 4.35972E-01, O30 1770
     X 4.56220E-01, 4.79037E-01, 5.02597E-01, 5.24648E-01, 5.33964E-01, O30 1780
     X 5.39211E-01, 5.43613E-01, 5.28793E-01, 4.94103E-01, 4.34481E-01, O30 1790
     X 3.76792E-01, 3.37161E-01, 3.15750E-01, 3.11042E-01, 3.08745E-01, O30 1800
     X 3.09195E-01, 3.05859E-01, 3.01443E-01, 2.88111E-01, 2.81303E-01, O30 1810
     X 2.75329E-01, 2.60812E-01, 2.59337E-01, 2.45576E-01, 2.40470E-01, O30 1820
     X 2.39705E-01, 2.45389E-01, 2.49801E-01, 2.53235E-01, 2.54387E-01, O30 1830
     X 2.64311E-01, 2.74146E-01, 2.89737E-01, 2.96673E-01, 3.07337E-01, O30 1840
     X 3.24380E-01, 3.42266E-01, 3.59522E-01, 3.78005E-01, 3.97178E-01, O30 1850
     X 4.23351E-01, 4.45925E-01, 4.63029E-01, 4.94843E-01, 5.19418E-01, O30 1860
     X 5.49928E-01, 5.69115E-01, 6.02396E-01, 6.43471E-01, 6.76401E-01, O30 1870
     X 7.14024E-01, 7.42425E-01, 7.60916E-01, 7.83319E-01, 7.98299E-01/ O30 1880
      DATA C00161 /                                                     O30 1890
     X 7.76672E-01, 7.22769E-01, 6.45967E-01, 5.80850E-01, 5.76514E-01, O30 1900
     X 5.79380E-01, 5.90359E-01, 6.21721E-01, 6.37540E-01, 6.52572E-01, O30 1910
     X 6.63442E-01, 6.69026E-01, 6.69038E-01, 6.53319E-01, 6.21950E-01, O30 1920
     X 5.47619E-01, 4.58994E-01, 4.14888E-01, 3.97736E-01, 3.88775E-01, O30 1930
     X 3.87424E-01, 3.93567E-01, 4.03442E-01, 4.05217E-01, 4.12848E-01, O30 1940
     X 4.12246E-01, 4.16620E-01, 4.13195E-01, 4.08467E-01, 4.13104E-01, O30 1950
     X 4.24498E-01, 4.32002E-01, 4.46361E-01, 4.61131E-01, 4.77228E-01, O30 1960
     X 4.96519E-01, 5.16764E-01, 5.38966E-01, 5.54187E-01, 5.73748E-01, O30 1970
     X 6.07260E-01, 6.34358E-01, 6.60286E-01, 6.95533E-01, 7.37090E-01, O30 1980
     X 7.83894E-01, 8.19557E-01, 8.49244E-01, 8.91832E-01, 9.44885E-01, O30 1990
     X 9.86271E-01, 1.02262E+00, 1.07242E+00, 1.12162E+00, 1.18287E+00, O30 2000
     X 1.22402E+00, 1.24978E+00, 1.24392E+00, 1.19668E+00, 1.11562E+00, O30 2010
     X 1.03983E+00, 9.31884E-01, 8.35307E-01, 7.92620E-01, 7.81980E-01, O30 2020
     X 7.89623E-01, 8.05987E-01, 8.27344E-01, 8.57514E-01, 8.66302E-01, O30 2030
     X 8.72092E-01, 8.66840E-01, 8.40536E-01, 7.87360E-01, 7.35743E-01, O30 2040
     X 6.92039E-01, 6.64032E-01, 6.48360E-01, 6.46288E-01, 6.49505E-01/ O30 2050
      DATA C00241 /                                                     O30 2060
     X 6.69937E-01, 6.81006E-01, 7.00969E-01, 7.19834E-01, 7.26964E-01, O30 2070
     X 7.50591E-01, 7.73600E-01, 8.00673E-01, 8.20347E-01, 8.37855E-01, O30 2080
     X 8.66780E-01, 9.04297E-01, 9.46300E-01, 9.69134E-01, 9.97928E-01, O30 2090
     X 1.06388E+00, 1.11032E+00, 1.15221E+00, 1.21324E+00, 1.24462E+00, O30 2100
     X 1.31978E+00, 1.35617E+00, 1.38792E+00, 1.39196E+00, 1.35161E+00, O30 2110
     X 1.29381E+00, 1.30295E+00, 1.32965E+00, 1.37024E+00, 1.44064E+00, O30 2120
     X 1.50484E+00, 1.57200E+00, 1.62097E+00, 1.67874E+00, 1.72676E+00, O30 2130
     X 1.73383E+00, 1.66091E+00, 1.54936E+00, 1.35454E+00, 1.20070E+00, O30 2140
     X 1.14609E+00, 1.13642E+00, 1.13784E+00, 1.14609E+00, 1.14531E+00, O30 2150
     X 1.16024E+00, 1.16891E+00, 1.16111E+00, 1.14192E+00, 1.09903E+00, O30 2160
     X 1.05745E+00, 1.02341E+00, 1.00121E+00, 1.00036E+00, 1.00576E+00, O30 2170
     X 1.02405E+00, 1.04379E+00, 1.07623E+00, 1.11347E+00, 1.17305E+00, O30 2180
     X 1.20016E+00, 1.22697E+00, 1.27479E+00, 1.32572E+00, 1.38690E+00, O30 2190
     X 1.43768E+00, 1.48379E+00, 1.55317E+00, 1.64020E+00, 1.71268E+00, O30 2200
     X 1.77183E+00, 1.85824E+00, 1.95131E+00, 2.04609E+00, 2.13151E+00, O30 2210
     X 2.17777E+00, 2.22832E+00, 2.26886E+00, 2.19775E+00, 2.05087E+00/ O30 2220
      DATA C00321 /                                                     O30 2230
     X 1.96103E+00, 1.95554E+00, 1.98037E+00, 2.05440E+00, 2.11629E+00, O30 2240
     X 2.17893E+00, 2.24384E+00, 2.30464E+00, 2.32525E+00, 2.29945E+00, O30 2250
     X 2.21712E+00, 2.03430E+00, 1.82139E+00, 1.70354E+00, 1.64631E+00, O30 2260
     X 1.62164E+00, 1.61356E+00, 1.63900E+00, 1.66313E+00, 1.67409E+00, O30 2270
     X 1.69143E+00, 1.70181E+00, 1.69165E+00, 1.67699E+00, 1.67879E+00, O30 2280
     X 1.67312E+00, 1.68133E+00, 1.70002E+00, 1.72500E+00, 1.76308E+00, O30 2290
     X 1.80634E+00, 1.87548E+00, 1.94924E+00, 1.99812E+00, 2.05333E+00, O30 2300
     X 2.14035E+00, 2.21847E+00, 2.27412E+00, 2.29752E+00, 2.30750E+00, O30 2310
     X 2.36165E+00, 2.44394E+00, 2.52782E+00, 2.61343E+00, 2.71640E+00, O30 2320
     X 2.81613E+00, 2.93679E+00, 3.01577E+00, 3.15995E+00, 3.15931E+00, O30 2330
     X 2.96658E+00, 2.73295E+00, 2.67480E+00, 2.66652E+00, 2.69393E+00, O30 2340
     X 2.75102E+00, 2.86503E+00, 2.99163E+00, 2.99576E+00, 3.02603E+00, O30 2350
     X 2.98415E+00, 2.79309E+00, 2.65337E+00, 2.50962E+00, 2.43207E+00, O30 2360
     X 2.34812E+00, 2.34872E+00, 2.35186E+00, 2.39477E+00, 2.42629E+00, O30 2370
     X 2.48068E+00, 2.55087E+00, 2.55952E+00, 2.56497E+00, 2.64323E+00, O30 2380
     X 2.67961E+00, 2.66263E+00, 2.70243E+00, 2.74911E+00, 2.81786E+00/ O30 2390
      DATA C00401 /                                                     O30 2400
     X 2.88684E+00, 2.97790E+00, 3.04305E+00, 3.13053E+00, 3.23857E+00, O30 2410
     X 3.35582E+00, 3.40654E+00, 3.38117E+00, 3.36296E+00, 3.39480E+00, O30 2420
     X 3.49066E+00, 3.60832E+00, 3.71817E+00, 3.83924E+00, 3.96355E+00, O30 2430
     X 4.03656E+00, 4.00518E+00, 3.90389E+00, 3.74790E+00, 3.61385E+00, O30 2440
     X 3.57066E+00, 3.59438E+00, 3.66182E+00, 3.71176E+00, 3.75255E+00, O30 2450
     X 3.79101E+00, 3.85278E+00, 3.85027E+00, 3.81112E+00, 3.72553E+00, O30 2460
     X 3.61017E+00, 3.54384E+00, 3.52406E+00, 3.54097E+00, 3.59375E+00, O30 2470
     X 3.66312E+00, 3.72632E+00, 3.76825E+00, 3.86798E+00, 3.92916E+00, O30 2480
     X 3.95610E+00, 4.00120E+00, 4.05865E+00, 4.11981E+00, 4.14634E+00, O30 2490
     X 4.19109E+00, 4.20317E+00, 4.25754E+00, 4.35131E+00, 4.48573E+00, O30 2500
     X 4.58716E+00, 4.67462E+00, 4.78228E+00, 4.91196E+00, 5.01871E+00, O30 2510
     X 5.10663E+00, 5.17780E+00, 5.21393E+00, 5.18144E+00, 5.04379E+00, O30 2520
     X 4.86504E+00, 4.78569E+00, 4.72717E+00, 4.69132E+00, 4.65797E+00, O30 2530
     X 4.60305E+00, 4.59798E+00, 4.65300E+00, 4.69707E+00, 4.74790E+00, O30 2540
     X 4.82581E+00, 4.80953E+00, 4.80517E+00, 4.82685E+00, 4.82321E+00, O30 2550
     X 4.84806E+00, 4.88591E+00, 4.91759E+00, 4.98074E+00, 5.07071E+00/ O30 2560
      DATA C00481 /                                                     O30 2570
     X 5.18733E+00, 5.30567E+00, 5.38670E+00, 5.43942E+00, 5.51797E+00, O30 2580
     X 5.62652E+00, 5.71228E+00, 5.82347E+00, 5.91434E+00, 6.00171E+00, O30 2590
     X 6.06977E+00, 6.13040E+00, 6.21990E+00, 6.29980E+00, 6.37206E+00, O30 2600
     X 6.48233E+00, 6.53068E+00, 6.53275E+00, 6.56858E+00, 6.54577E+00, O30 2610
     X 6.50472E+00, 6.41504E+00, 6.33853E+00, 6.31184E+00, 6.21253E+00, O30 2620
     X 6.22034E+00, 6.26918E+00, 6.28982E+00, 6.29461E+00, 6.35418E+00, O30 2630
     X 6.40956E+00, 6.38020E+00, 6.39784E+00, 6.45383E+00, 6.50134E+00, O30 2640
     X 6.56808E+00, 6.58850E+00, 6.58882E+00, 6.65097E+00, 6.75259E+00, O30 2650
     X 6.83256E+00, 6.92593E+00, 6.98083E+00, 7.03632E+00, 7.11147E+00, O30 2660
     X 7.15622E+00, 7.21106E+00, 7.27319E+00, 7.33382E+00, 7.38601E+00, O30 2670
     X 7.48971E+00, 7.61459E+00, 7.70134E+00, 7.76194E+00, 7.85534E+00, O30 2680
     X 7.99519E+00, 8.12227E+00, 8.25461E+00, 8.34670E+00, 8.42733E+00, O30 2690
     X 8.51806E+00, 8.57638E+00, 8.56481E+00, 8.55461E+00, 8.55593E+00, O30 2700
     X 8.58756E+00, 8.50070E+00, 8.54400E+00, 8.57575E+00, 8.62083E+00, O30 2710
     X 8.60684E+00, 8.67824E+00, 8.72069E+00, 8.79127E+00, 8.85479E+00, O30 2720
     X 8.86770E+00, 8.90574E+00, 8.91531E+00, 8.94800E+00, 9.00167E+00/ O30 2730
      DATA C00561 /                                                     O30 2740
     X 9.14051E+00, 9.25421E+00, 9.39694E+00, 9.50896E+00, 9.53190E+00, O30 2750
     X 9.55977E+00, 9.53482E+00, 9.49662E+00, 9.53359E+00, 9.54007E+00, O30 2760
     X 9.49809E+00, 9.49373E+00, 9.53282E+00, 9.63757E+00, 9.67855E+00, O30 2770
     X 9.67633E+00, 9.67045E+00, 9.79481E+00, 9.93420E+00, 1.00234E+01, O30 2780
     X 1.01372E+01, 1.02577E+01, 1.05056E+01, 1.07873E+01, 1.09967E+01, O30 2790
     X 1.10873E+01, 1.11624E+01, 1.13006E+01, 1.14875E+01, 1.16106E+01, O30 2800
     X 1.16744E+01, 1.17582E+01, 1.17709E+01, 1.18537E+01, 1.19623E+01, O30 2810
     X 1.19763E+01, 1.19879E+01, 1.20384E+01, 1.20763E+01, 1.20826E+01, O30 2820
     X 1.20449E+01, 1.19747E+01, 1.20227E+01, 1.21805E+01, 1.23134E+01, O30 2830
     X 1.24042E+01, 1.25614E+01, 1.26828E+01, 1.26645E+01, 1.26963E+01, O30 2840
     X 1.28226E+01, 1.28720E+01, 1.28981E+01, 1.29462E+01, 1.29363E+01, O30 2850
     X 1.29199E+01, 1.29797E+01, 1.28860E+01, 1.29126E+01, 1.30205E+01, O30 2860
     X 1.31327E+01, 1.31722E+01, 1.31901E+01, 1.33189E+01, 1.34833E+01, O30 2870
     X 1.36228E+01, 1.37474E+01, 1.38548E+01, 1.39450E+01, 1.40926E+01, O30 2880
     X 1.43099E+01, 1.44836E+01, 1.46257E+01, 1.47755E+01, 1.49163E+01, O30 2890
     X 1.51038E+01, 1.53308E+01, 1.54194E+01, 1.54852E+01, 1.55968E+01/ O30 2900
      DATA C00641 /                                                     O30 2910
     X 1.57025E+01, 1.58667E+01, 1.60365E+01, 1.61427E+01, 1.62967E+01, O30 2920
     X 1.64735E+01, 1.66123E+01, 1.67268E+01, 1.67673E+01, 1.67825E+01, O30 2930
     X 1.68898E+01, 1.68178E+01, 1.68216E+01, 1.68574E+01, 1.68799E+01, O30 2940
     X 1.70317E+01, 1.70767E+01, 1.71508E+01, 1.72965E+01, 1.73421E+01, O30 2950
     X 1.73937E+01, 1.74420E+01, 1.74535E+01, 1.75110E+01, 1.75497E+01, O30 2960
     X 1.75149E+01, 1.75955E+01, 1.78260E+01, 1.78271E+01, 1.79750E+01, O30 2970
     X 1.80600E+01, 1.81597E+01, 1.83454E+01, 1.85243E+01, 1.87382E+01, O30 2980
     X 1.88904E+01, 1.90395E+01, 1.92759E+01, 1.95398E+01, 1.97712E+01, O30 2990
     X 1.98487E+01, 1.99522E+01, 2.02363E+01, 2.03271E+01, 2.07090E+01, O30 3000
     X 2.09195E+01, 2.10974E+01, 2.11702E+01, 2.12964E+01, 2.14339E+01, O30 3010
     X 2.15764E+01, 2.17351E+01, 2.18486E+01, 2.19700E+01, 2.21663E+01, O30 3020
     X 2.24244E+01, 2.24813E+01, 2.25248E+01, 2.26357E+01, 2.26457E+01, O30 3030
     X 2.27249E+01, 2.27172E+01, 2.27123E+01, 2.26859E+01, 2.27216E+01, O30 3040
     X 2.29306E+01, 2.30711E+01, 2.31374E+01, 2.31815E+01, 2.33423E+01, O30 3050
     X 2.33810E+01, 2.36430E+01, 2.36807E+01, 2.36676E+01, 2.38607E+01, O30 3060
     X 2.41559E+01, 2.43413E+01, 2.44401E+01, 2.45968E+01, 2.47927E+01/ O30 3070
      DATA C00721 /                                                     O30 3080
     X 2.50743E+01, 2.53667E+01, 2.55749E+01, 2.57357E+01, 2.58927E+01, O30 3090
     X 2.61523E+01, 2.64110E+01, 2.66650E+01, 2.68829E+01, 2.70635E+01, O30 3100
     X 2.72797E+01, 2.75064E+01, 2.77229E+01, 2.80341E+01, 2.82003E+01, O30 3110
     X 2.83346E+01, 2.83909E+01, 2.86212E+01, 2.88006E+01, 2.89577E+01, O30 3120
     X 2.90965E+01, 2.91834E+01, 2.93224E+01, 2.94094E+01, 2.94848E+01, O30 3130
     X 2.96584E+01, 2.96749E+01, 2.97760E+01, 2.99163E+01, 3.00238E+01, O30 3140
     X 3.01290E+01, 3.02307E+01, 3.03663E+01, 3.05897E+01, 3.07937E+01, O30 3150
     X 3.10403E+01, 3.11778E+01, 3.13271E+01, 3.15799E+01, 3.18435E+01, O30 3160
     X 3.21614E+01, 3.25097E+01, 3.27701E+01, 3.29600E+01, 3.32583E+01, O30 3170
     X 3.36348E+01, 3.40282E+01, 3.41751E+01, 3.44128E+01, 3.46199E+01, O30 3180
     X 3.49363E+01, 3.52087E+01, 3.54056E+01, 3.55596E+01, 3.56694E+01, O30 3190
     X 3.58104E+01, 3.60276E+01, 3.62818E+01, 3.63505E+01, 3.66069E+01, O30 3200
     X 3.67544E+01, 3.70664E+01, 3.72525E+01, 3.73491E+01, 3.76006E+01, O30 3210
     X 3.77102E+01, 3.78970E+01, 3.81254E+01, 3.82728E+01, 3.81720E+01, O30 3220
     X 3.82781E+01, 3.84982E+01, 3.87202E+01, 3.89958E+01, 3.94148E+01, O30 3230
     X 3.98434E+01, 3.98952E+01, 4.01573E+01, 4.06014E+01, 4.09651E+01/ O30 3240
      DATA C00801 /                                                     O30 3250
     X 4.12821E+01, 4.16849E+01, 4.19899E+01, 4.22719E+01, 4.27736E+01, O30 3260
     X 4.32254E+01, 4.33883E+01, 4.39831E+01, 4.39414E+01, 4.42613E+01, O30 3270
     X 4.46503E+01, 4.49027E+01, 4.50384E+01, 4.52929E+01, 4.57269E+01, O30 3280
     X 4.56433E+01, 4.57350E+01, 4.60128E+01, 4.60487E+01, 4.61183E+01, O30 3290
     X 4.64397E+01, 4.68211E+01, 4.70706E+01, 4.72821E+01, 4.74972E+01, O30 3300
     X 4.78253E+01, 4.81615E+01, 4.84480E+01, 4.85703E+01, 4.87397E+01, O30 3310
     X 4.90015E+01, 4.93673E+01, 4.97291E+01, 4.99836E+01, 5.02975E+01, O30 3320
     X 5.05572E+01, 5.08226E+01, 5.13433E+01, 5.17112E+01, 5.19703E+01, O30 3330
     X 5.23128E+01, 5.27305E+01, 5.30599E+01, 5.34555E+01, 5.39625E+01, O30 3340
     X 5.43627E+01, 5.45446E+01, 5.49263E+01, 5.53511E+01, 5.57270E+01, O30 3350
     X 5.60904E+01, 5.63875E+01, 5.68475E+01, 5.73172E+01, 5.81134E+01, O30 3360
     X 5.86399E+01, 5.90384E+01, 5.91417E+01, 5.90883E+01, 5.93610E+01, O30 3370
     X 5.95794E+01, 5.99600E+01, 5.98493E+01, 5.99441E+01, 6.02748E+01, O30 3380
     X 6.04778E+01, 6.05233E+01, 6.07194E+01, 6.11589E+01, 6.13324E+01, O30 3390
     X 6.17685E+01, 6.23166E+01, 6.31055E+01, 6.38211E+01, 6.42320E+01, O30 3400
     X 6.45195E+01, 6.51125E+01, 6.56765E+01, 6.59286E+01, 6.62716E+01/ O30 3410
      DATA C00881 /                                                     O30 3420
     X 6.65693E+01, 6.68906E+01, 6.72246E+01, 6.75177E+01, 6.78476E+01, O30 3430
     X 6.82599E+01, 6.84400E+01, 6.89072E+01, 6.95720E+01, 7.01410E+01, O30 3440
     X 7.05519E+01, 7.09367E+01, 7.13975E+01, 7.22128E+01, 7.28222E+01, O30 3450
     X 7.33808E+01, 7.38828E+01, 7.44496E+01, 7.49983E+01, 7.54178E+01, O30 3460
     X 7.60554E+01, 7.62484E+01, 7.67892E+01, 7.71262E+01, 7.76235E+01, O30 3470
     X 7.81413E+01, 7.85694E+01, 7.91248E+01, 7.94715E+01, 7.96200E+01, O30 3480
     X 8.00270E+01, 8.03783E+01, 8.07100E+01, 8.11929E+01, 8.17375E+01, O30 3490
     X 8.18410E+01, 8.23341E+01, 8.26754E+01, 8.30893E+01, 8.34232E+01, O30 3500
     X 8.35533E+01, 8.36017E+01, 8.38589E+01, 8.43366E+01, 8.47593E+01, O30 3510
     X 8.51614E+01, 8.55271E+01, 8.58979E+01, 8.64892E+01, 8.74367E+01, O30 3520
     X 8.82440E+01, 8.89105E+01, 8.90980E+01, 8.97266E+01, 9.04886E+01, O30 3530
     X 9.12709E+01, 9.21243E+01, 9.26673E+01, 9.31331E+01, 9.38190E+01, O30 3540
     X 9.44877E+01, 9.50636E+01, 9.57445E+01, 9.65211E+01, 9.68623E+01, O30 3550
     X 9.75356E+01, 9.81991E+01, 9.88881E+01, 9.94554E+01, 9.99292E+01, O30 3560
     X 1.00357E+02, 1.00670E+02, 1.01227E+02, 1.01529E+02, 1.01889E+02, O30 3570
     X 1.02033E+02, 1.02254E+02, 1.02731E+02, 1.02914E+02, 1.03120E+02/ O30 3580
      DATA C00961 /                                                     O30 3590
     X 1.03674E+02, 1.03768E+02, 1.04146E+02, 1.04850E+02, 1.05525E+02, O30 3600
     X 1.06263E+02, 1.06653E+02, 1.07084E+02, 1.07461E+02, 1.08052E+02, O30 3610
     X 1.08793E+02, 1.09395E+02, 1.09811E+02, 1.10079E+02, 1.10656E+02, O30 3620
     X 1.11575E+02, 1.12544E+02, 1.13453E+02, 1.14440E+02, 1.15292E+02, O30 3630
     X 1.15869E+02, 1.16925E+02, 1.17854E+02, 1.18723E+02, 1.19574E+02, O30 3640
     X 1.19940E+02, 1.21108E+02, 1.21807E+02, 1.22490E+02, 1.23278E+02, O30 3650
     X 1.24094E+02, 1.24816E+02, 1.25469E+02, 1.26217E+02, 1.26878E+02, O30 3660
     X 1.27536E+02, 1.28168E+02, 1.28682E+02, 1.29076E+02, 1.30171E+02, O30 3670
     X 1.30667E+02, 1.31242E+02, 1.31665E+02, 1.31961E+02, 1.32347E+02, O30 3680
     X 1.32805E+02, 1.33152E+02, 1.33869E+02, 1.34261E+02, 1.34498E+02, O30 3690
     X 1.35028E+02, 1.36049E+02, 1.36577E+02, 1.37491E+02, 1.38078E+02, O30 3700
     X 1.38389E+02, 1.38819E+02, 1.39653E+02, 1.39770E+02, 1.40812E+02, O30 3710
     X 1.40926E+02, 1.41267E+02, 1.41872E+02, 1.42233E+02, 1.43447E+02, O30 3720
     X 1.44641E+02, 1.45500E+02, 1.45996E+02, 1.47040E+02, 1.48767E+02, O30 3730
     X 1.48785E+02, 1.49525E+02, 1.50266E+02, 1.50814E+02, 1.51443E+02, O30 3740
     X 1.52272E+02, 1.52846E+02, 1.54000E+02, 1.54629E+02, 1.54907E+02/ O30 3750
      DATA C01041 /                                                     O30 3760
     X 1.55527E+02, 1.56642E+02, 1.57436E+02, 1.59036E+02, 1.59336E+02, O30 3770
     X 1.59661E+02, 1.60287E+02, 1.61202E+02, 1.62410E+02, 1.63040E+02, O30 3780
     X 1.62872E+02, 1.63248E+02, 1.63776E+02, 1.64313E+02, 1.65782E+02, O30 3790
     X 1.65692E+02, 1.66049E+02, 1.66701E+02, 1.67786E+02, 1.69150E+02, O30 3800
     X 1.69996E+02, 1.71634E+02, 1.71137E+02, 1.71372E+02, 1.72525E+02, O30 3810
     X 1.73816E+02, 1.75219E+02, 1.76091E+02, 1.78260E+02, 1.79299E+02, O30 3820
     X 1.79904E+02, 1.81718E+02, 1.83807E+02, 1.85488E+02, 1.85929E+02, O30 3830
     X 1.86787E+02, 1.88282E+02, 1.89546E+02, 1.91489E+02, 1.92646E+02, O30 3840
     X 1.93399E+02, 1.93838E+02, 1.94406E+02, 1.95829E+02, 1.96745E+02, O30 3850
     X 1.96978E+02, 1.97243E+02, 1.97636E+02, 1.98025E+02, 1.98227E+02, O30 3860
     X 1.99552E+02, 2.00304E+02, 2.01031E+02, 2.01788E+02, 2.02432E+02, O30 3870
     X 2.03817E+02, 2.04866E+02, 2.05561E+02, 2.06180E+02, 2.07024E+02, O30 3880
     X 2.08303E+02, 2.09426E+02, 2.10575E+02, 2.11637E+02, 2.12559E+02, O30 3890
     X 2.13361E+02, 2.14191E+02, 2.15264E+02, 2.16366E+02, 2.17316E+02, O30 3900
     X 2.17717E+02, 2.17154E+02, 2.19172E+02, 2.20346E+02, 2.20849E+02, O30 3910
     X 2.21539E+02, 2.22810E+02, 2.22740E+02, 2.22824E+02, 2.23285E+02/ O30 3920
      DATA C01121 /                                                     O30 3930
     X 2.23696E+02, 2.23864E+02, 2.23968E+02, 2.23544E+02, 2.24804E+02, O30 3940
     X 2.25953E+02, 2.26753E+02, 2.27732E+02, 2.29505E+02, 2.30108E+02, O30 3950
     X 2.31232E+02, 2.32552E+02, 2.33979E+02, 2.36677E+02, 2.38481E+02, O30 3960
     X 2.41797E+02, 2.44025E+02, 2.45113E+02, 2.47373E+02, 2.47258E+02, O30 3970
     X 2.48617E+02, 2.49790E+02, 2.50562E+02, 2.51198E+02, 2.51289E+02, O30 3980
     X 2.52509E+02, 2.54136E+02, 2.55335E+02, 2.55808E+02, 2.56567E+02, O30 3990
     X 2.57977E+02, 2.58987E+02, 2.59622E+02, 2.60170E+02, 2.61127E+02, O30 4000
     X 2.60655E+02, 2.62129E+02, 2.64020E+02, 2.65659E+02, 2.67086E+02, O30 4010
     X 2.67615E+02, 2.69800E+02, 2.71452E+02, 2.73314E+02, 2.76972E+02, O30 4020
     X 2.78005E+02, 2.79815E+02, 2.81709E+02, 2.84043E+02, 2.87070E+02, O30 4030
     X 2.88842E+02, 2.90555E+02, 2.92401E+02, 2.94314E+02, 2.96074E+02, O30 4040
     X 2.97103E+02, 2.98037E+02, 2.98113E+02, 2.97705E+02, 2.97350E+02, O30 4050
     X 2.97329E+02, 2.97016E+02, 2.96752E+02, 2.96599E+02, 2.96637E+02, O30 4060
     X 2.97057E+02, 2.97585E+02, 2.98179E+02, 2.98997E+02, 3.00012E+02, O30 4070
     X 3.00806E+02, 3.00908E+02, 3.02369E+02, 3.04063E+02, 3.05325E+02, O30 4080
     X 3.06737E+02, 3.08066E+02, 3.09694E+02, 3.11530E+02, 3.13132E+02/ O30 4090
      DATA C01201 /                                                     O30 4100
     X 3.13296E+02, 3.15513E+02, 3.16887E+02, 3.17682E+02, 3.18296E+02, O30 4110
     X 3.18654E+02, 3.18912E+02, 3.19236E+02, 3.19626E+02, 3.20020E+02, O30 4120
     X 3.20186E+02, 3.20709E+02, 3.21628E+02, 3.22625E+02, 3.23504E+02, O30 4130
     X 3.25479E+02, 3.26825E+02, 3.28146E+02, 3.29404E+02, 3.30512E+02, O30 4140
     X 3.32634E+02, 3.34422E+02, 3.35602E+02, 3.36833E+02, 3.39372E+02, O30 4150
     X 3.43446E+02, 3.46374E+02, 3.48719E+02, 3.50881E+02, 3.53160E+02, O30 4160
     X 3.54890E+02, 3.57162E+02, 3.59284E+02, 3.60876E+02, 3.62295E+02, O30 4170
     X 3.63987E+02, 3.64835E+02, 3.65257E+02, 3.65738E+02, 3.65904E+02, O30 4180
     X 3.65976E+02, 3.66460E+02, 3.67087E+02, 3.67377E+02, 3.69079E+02, O30 4190
     X 3.70694E+02, 3.70940E+02, 3.70557E+02, 3.72693E+02, 3.73852E+02, O30 4200
     X 3.75679E+02, 3.77863E+02, 3.79964E+02, 3.81368E+02, 3.82716E+02, O30 4210
     X 3.85556E+02, 3.89072E+02, 3.91796E+02, 3.92766E+02, 3.96551E+02, O30 4220
     X 3.97833E+02, 3.97285E+02, 4.01929E+02, 4.02158E+02, 4.04553E+02, O30 4230
     X 4.06451E+02, 4.06236E+02, 4.08135E+02, 4.07797E+02, 4.08415E+02, O30 4240
     X 4.10111E+02, 4.11781E+02, 4.12735E+02, 4.11547E+02, 4.11606E+02, O30 4250
     X 4.13548E+02, 4.12557E+02, 4.12923E+02, 4.12866E+02, 4.13009E+02/ O30 4260
      DATA C01281 /                                                     O30 4270
     X 4.14447E+02, 4.16032E+02, 4.17032E+02, 4.19064E+02, 4.22458E+02, O30 4280
     X 4.26021E+02, 4.25192E+02, 4.25684E+02, 4.27536E+02, 4.29972E+02, O30 4290
     X 4.31994E+02, 4.36037E+02, 4.39132E+02, 4.40363E+02, 4.40716E+02, O30 4300
     X 4.40342E+02, 4.42063E+02, 4.44408E+02, 4.45454E+02, 4.47835E+02, O30 4310
     X 4.48256E+02, 4.48831E+02, 4.50257E+02, 4.51427E+02, 4.52373E+02, O30 4320
     X 4.53899E+02, 4.55496E+02, 4.56311E+02, 4.57314E+02, 4.59922E+02, O30 4330
     X 4.61048E+02, 4.59840E+02, 4.62144E+02, 4.63152E+02, 4.64565E+02, O30 4340
     X 4.66715E+02, 4.69380E+02, 4.70751E+02, 4.72012E+02, 4.73482E+02, O30 4350
     X 4.75524E+02, 4.79307E+02, 4.82035E+02, 4.84423E+02, 4.86712E+02, O30 4360
     X 4.88754E+02, 4.90102E+02, 4.92047E+02, 4.94150E+02, 4.95375E+02, O30 4370
     X 4.95828E+02, 4.97555E+02, 4.98559E+02, 4.97618E+02, 4.99265E+02, O30 4380
     X 4.99979E+02, 5.00681E+02, 5.01386E+02, 5.00868E+02, 5.01935E+02, O30 4390
     X 5.03151E+02, 5.04329E+02, 5.05546E+02, 5.08259E+02, 5.09222E+02, O30 4400
     X 5.09818E+02, 5.11397E+02, 5.12391E+02, 5.13326E+02, 5.14329E+02, O30 4410
     X 5.15443E+02, 5.16533E+02, 5.21417E+02, 5.25071E+02, 5.26581E+02, O30 4420
     X 5.27762E+02, 5.29274E+02, 5.31704E+02, 5.34310E+02, 5.35727E+02/ O30 4430
      DATA C01361 /                                                     O30 4440
     X 5.36838E+02, 5.37082E+02, 5.36733E+02, 5.36170E+02, 5.36063E+02, O30 4450
     X 5.36451E+02, 5.37870E+02, 5.40475E+02, 5.42268E+02, 5.41972E+02, O30 4460
     X 5.42532E+02, 5.44764E+02, 5.46844E+02, 5.47525E+02, 5.49150E+02, O30 4470
     X 5.52049E+02, 5.55423E+02, 5.56259E+02, 5.57424E+02, 5.59189E+02, O30 4480
     X 5.61167E+02, 5.64512E+02, 5.66753E+02, 5.68183E+02, 5.69628E+02, O30 4490
     X 5.73474E+02, 5.76192E+02, 5.78058E+02, 5.79588E+02, 5.81619E+02, O30 4500
     X 5.83530E+02, 5.84852E+02, 5.85326E+02, 5.88130E+02, 5.90570E+02, O30 4510
     X 5.91785E+02, 5.91371E+02, 5.90931E+02, 5.90942E+02, 5.91168E+02, O30 4520
     X 5.91291E+02, 5.89791E+02, 5.91146E+02, 5.90804E+02, 5.87847E+02, O30 4530
     X 5.89067E+02, 5.91027E+02, 5.90951E+02, 5.89227E+02, 5.93389E+02, O30 4540
     X 5.92921E+02, 5.92739E+02, 5.94544E+02, 5.98941E+02, 6.02302E+02, O30 4550
     X 6.03908E+02, 6.04265E+02, 6.06737E+02, 6.08560E+02, 6.11272E+02, O30 4560
     X 6.14992E+02, 6.18595E+02, 6.20930E+02, 6.22107E+02, 6.22957E+02, O30 4570
     X 6.26710E+02, 6.28657E+02, 6.30132E+02, 6.31543E+02, 6.33043E+02, O30 4580
     X 6.36932E+02, 6.38248E+02, 6.37126E+02, 6.41648E+02, 6.48274E+02, O30 4590
     X 6.52638E+02, 6.53922E+02, 6.56647E+02, 6.59351E+02, 6.60525E+02/ O30 4600
      DATA C01441 /                                                     O30 4610
     X 6.60130E+02, 6.61375E+02, 6.62660E+02, 6.63976E+02, 6.65181E+02, O30 4620
     X 6.64820E+02, 6.64458E+02, 6.64927E+02, 6.66555E+02, 6.66759E+02, O30 4630
     X 6.68218E+02, 6.70323E+02, 6.72703E+02, 6.76085E+02, 6.79180E+02, O30 4640
     X 6.80850E+02, 6.80017E+02, 6.79928E+02, 6.80886E+02, 6.82038E+02, O30 4650
     X 6.82271E+02, 6.84057E+02, 6.85309E+02, 6.86816E+02, 6.90180E+02, O30 4660
     X 6.93205E+02, 6.95870E+02, 6.98794E+02, 7.03776E+02, 7.04010E+02, O30 4670
     X 7.05041E+02, 7.07254E+02, 7.07432E+02, 7.10736E+02, 7.13791E+02, O30 4680
     X 7.15542E+02, 7.16468E+02, 7.17412E+02, 7.17783E+02, 7.17340E+02, O30 4690
     X 7.18184E+02, 7.18716E+02, 7.18809E+02, 7.18282E+02, 7.20317E+02, O30 4700
     X 7.18568E+02, 7.16274E+02, 7.19119E+02, 7.20852E+02, 7.21727E+02, O30 4710
     X 7.22607E+02, 7.26369E+02, 7.26412E+02, 7.27101E+02, 7.29404E+02, O30 4720
     X 7.30786E+02, 7.30910E+02, 7.30656E+02, 7.30566E+02, 7.33408E+02, O30 4730
     X 7.37064E+02, 7.39178E+02, 7.36713E+02, 7.37365E+02, 7.40861E+02, O30 4740
     X 7.45281E+02, 7.46178E+02, 7.46991E+02, 7.48035E+02, 7.49777E+02, O30 4750
     X 7.54665E+02, 7.56585E+02, 7.57408E+02, 7.58131E+02, 7.58155E+02, O30 4760
     X 7.60838E+02, 7.64792E+02, 7.68161E+02, 7.69263E+02, 7.73166E+02/ O30 4770
      DATA C01521 /                                                     O30 4780
     X 7.79006E+02, 7.82037E+02, 7.83109E+02, 7.84674E+02, 7.87444E+02, O30 4790
     X 7.89510E+02, 7.90130E+02, 7.91364E+02, 7.95225E+02, 8.03599E+02, O30 4800
     X 8.06340E+02, 8.05105E+02, 8.05120E+02, 8.08515E+02, 8.10907E+02, O30 4810
     X 8.11388E+02, 8.13432E+02, 8.12579E+02, 8.10564E+02, 8.08719E+02, O30 4820
     X 8.07682E+02, 8.05009E+02, 8.01754E+02, 8.01013E+02, 7.99926E+02, O30 4830
     X 7.99067E+02, 7.98369E+02, 7.94090E+02, 7.92883E+02, 7.94244E+02, O30 4840
     X 7.98220E+02, 7.98201E+02, 7.98332E+02, 7.99289E+02, 8.02355E+02, O30 4850
     X 8.03621E+02, 8.05302E+02, 8.08368E+02, 8.09983E+02, 8.11529E+02, O30 4860
     X 8.13068E+02, 8.14717E+02, 8.16441E+02, 8.19241E+02, 8.22944E+02, O30 4870
     X 8.23768E+02, 8.25030E+02, 8.26103E+02, 8.26374E+02, 8.28331E+02, O30 4880
     X 8.32620E+02, 8.38618E+02, 8.43666E+02, 8.45212E+02, 8.46324E+02, O30 4890
     X 8.48536E+02, 8.50192E+02, 8.53083E+02, 8.56653E+02, 8.59614E+02, O30 4900
     X 8.62000E+02, 8.64593E+02, 8.67678E+02, 8.70908E+02, 8.73408E+02, O30 4910
     X 8.74779E+02, 8.74005E+02, 8.76718E+02, 8.80445E+02, 8.84365E+02, O30 4920
     X 8.83806E+02, 8.84292E+02, 8.85539E+02, 8.87474E+02, 8.84905E+02, O30 4930
     X 8.84039E+02, 8.85105E+02, 8.83733E+02, 8.82224E+02, 8.79865E+02/ O30 4940
      DATA C01601 /                                                     O30 4950
     X 8.75663E+02, 8.75575E+02, 8.73144E+02, 8.68602E+02, 8.70278E+02, O30 4960
     X 8.69659E+02, 8.68701E+02, 8.69250E+02, 8.71057E+02, 8.72860E+02, O30 4970
     X 8.74361E+02, 8.74458E+02, 8.77576E+02, 8.81613E+02, 8.84358E+02, O30 4980
     X 8.87440E+02, 8.91549E+02, 8.96568E+02, 8.99836E+02, 9.02880E+02, O30 4990
     X 9.05428E+02, 9.06891E+02, 9.07349E+02, 9.10151E+02, 9.15917E+02, O30 5000
     X 9.16197E+02, 9.18571E+02, 9.21219E+02, 9.20292E+02, 9.21949E+02, O30 5010
     X 9.24509E+02, 9.27454E+02, 9.29474E+02, 9.31348E+02, 9.32818E+02, O30 5020
     X 9.32658E+02, 9.36280E+02, 9.39512E+02, 9.39667E+02, 9.44078E+02, O30 5030
     X 9.47196E+02, 9.48291E+02, 9.46150E+02, 9.46918E+02, 9.49093E+02, O30 5040
     X 9.51372E+02, 9.53109E+02, 9.56308E+02, 9.61335E+02, 9.58214E+02, O30 5050
     X 9.56188E+02, 9.55660E+02, 9.58633E+02, 9.57541E+02, 9.54879E+02, O30 5060
     X 9.51663E+02, 9.52839E+02, 9.52055E+02, 9.49253E+02, 9.50187E+02, O30 5070
     X 9.50323E+02, 9.50937E+02, 9.54362E+02, 9.55855E+02, 9.56350E+02, O30 5080
     X 9.55908E+02, 9.57963E+02, 9.61866E+02, 9.66948E+02, 9.69786E+02, O30 5090
     X 9.74302E+02, 9.79061E+02, 9.82465E+02, 9.86019E+02, 9.89930E+02, O30 5100
     X 9.94294E+02, 9.97011E+02, 9.98207E+02, 9.98607E+02, 1.00175E+03/ O30 5110
      DATA C01681 /                                                     O30 5120
     X 1.00275E+03, 1.00284E+03, 1.00294E+03, 1.00485E+03, 1.00593E+03, O30 5130
     X 1.00524E+03, 1.00415E+03, 1.00335E+03, 1.00278E+03, 1.00185E+03, O30 5140
     X 9.99982E+02, 9.98177E+02, 9.97959E+02, 9.99161E+02, 9.98810E+02, O30 5150
     X 9.95415E+02, 9.94342E+02, 9.92998E+02, 9.91340E+02, 9.90900E+02, O30 5160
     X 9.90407E+02, 9.89232E+02, 9.85447E+02, 9.86312E+02, 9.87461E+02, O30 5170
     X 9.86090E+02, 9.86670E+02, 9.85534E+02, 9.81877E+02, 9.84946E+02, O30 5180
     X 9.86392E+02, 9.86709E+02, 9.88086E+02, 9.90269E+02, 9.92566E+02, O30 5190
     X 9.94029E+02, 9.95795E+02, 9.97788E+02, 1.00005E+03, 1.00287E+03, O30 5200
     X 1.00566E+03, 1.00833E+03, 1.00982E+03, 1.01348E+03, 1.01862E+03, O30 5210
     X 1.02322E+03, 1.02786E+03, 1.03179E+03, 1.03339E+03, 1.03833E+03, O30 5220
     X 1.04317E+03, 1.04598E+03, 1.04753E+03, 1.04981E+03, 1.05321E+03, O30 5230
     X 1.05492E+03, 1.05721E+03, 1.05978E+03, 1.06033E+03, 1.06107E+03, O30 5240
     X 1.06155E+03, 1.06035E+03, 1.05838E+03, 1.05649E+03, 1.05553E+03, O30 5250
     X 1.05498E+03, 1.05387E+03, 1.05171E+03, 1.04877E+03, 1.04725E+03, O30 5260
     X 1.04748E+03, 1.04733E+03, 1.04704E+03, 1.04643E+03, 1.04411E+03, O30 5270
     X 1.04435E+03, 1.04520E+03, 1.04233E+03, 1.04047E+03, 1.03992E+03/ O30 5280
      DATA C01761 /                                                     O30 5290
     X 1.04192E+03, 1.04171E+03, 1.04140E+03, 1.04197E+03, 1.04415E+03, O30 5300
     X 1.04548E+03, 1.04533E+03, 1.04616E+03, 1.04705E+03, 1.04800E+03, O30 5310
     X 1.05025E+03, 1.05219E+03, 1.05412E+03, 1.05808E+03, 1.06062E+03, O30 5320
     X 1.06292E+03, 1.06780E+03, 1.07219E+03, 1.07610E+03, 1.07913E+03, O30 5330
     X 1.08405E+03, 1.08798E+03, 1.08835E+03, 1.09140E+03, 1.09447E+03, O30 5340
     X 1.09676E+03, 1.10015E+03, 1.10272E+03, 1.10410E+03, 1.10749E+03, O30 5350
     X 1.10991E+03, 1.11121E+03, 1.10981E+03, 1.10981E+03, 1.11063E+03, O30 5360
     X 1.10714E+03, 1.10500E+03, 1.10357E+03, 1.10093E+03, 1.09898E+03, O30 5370
     X 1.09679E+03, 1.09188E+03, 1.09088E+03, 1.09040E+03, 1.08586E+03, O30 5380
     X 1.08178E+03, 1.07752E+03, 1.07243E+03, 1.07178E+03, 1.07084E+03, O30 5390
     X 1.06693E+03, 1.06527E+03, 1.06405E+03, 1.06285E+03, 1.06287E+03, O30 5400
     X 1.06276E+03, 1.06221E+03, 1.06464E+03, 1.06579E+03, 1.06498E+03, O30 5410
     X 1.06596E+03, 1.06812E+03, 1.07159E+03, 1.07361E+03, 1.07556E+03, O30 5420
     X 1.07751E+03, 1.08128E+03, 1.08523E+03, 1.08927E+03, 1.09193E+03, O30 5430
     X 1.09612E+03, 1.10133E+03, 1.10435E+03, 1.10781E+03, 1.11168E+03, O30 5440
     X 1.11641E+03, 1.12217E+03, 1.12839E+03, 1.13298E+03, 1.13575E+03/ O30 5450
      DATA C01841 /                                                     O30 5460
     X 1.13742E+03, 1.13929E+03, 1.14132E+03, 1.14340E+03, 1.14518E+03, O30 5470
     X 1.14742E+03, 1.14943E+03, 1.14935E+03, 1.14975E+03, 1.15086E+03, O30 5480
     X 1.15420E+03, 1.15267E+03, 1.15007E+03, 1.15155E+03, 1.14982E+03, O30 5490
     X 1.14663E+03, 1.14301E+03, 1.13986E+03, 1.13676E+03, 1.13307E+03, O30 5500
     X 1.12898E+03, 1.12516E+03, 1.12284E+03, 1.12068E+03, 1.11855E+03, O30 5510
     X 1.11632E+03, 1.11464E+03, 1.11318E+03, 1.11180E+03, 1.11163E+03, O30 5520
     X 1.11160E+03, 1.11035E+03, 1.11178E+03, 1.11395E+03, 1.11447E+03, O30 5530
     X 1.11439E+03, 1.11440E+03, 1.11582E+03, 1.11560E+03, 1.11478E+03, O30 5540
     X 1.11448E+03, 1.11454E+03, 1.11494E+03, 1.11607E+03, 1.11736E+03, O30 5550
     X 1.11854E+03, 1.11875E+03, 1.11989E+03, 1.12165E+03, 1.12427E+03, O30 5560
     X 1.12620E+03, 1.12758E+03, 1.12774E+03, 1.12870E+03, 1.13001E+03, O30 5570
     X 1.13006E+03, 1.13078E+03, 1.13172E+03, 1.12971E+03, 1.12857E+03, O30 5580
     X 1.12810E+03, 1.12740E+03, 1.12659E+03, 1.12564E+03, 1.12338E+03, O30 5590
     X 1.12117E+03, 1.11902E+03, 1.11878E+03, 1.11855E+03, 1.11828E+03, O30 5600
     X 1.11791E+03, 1.11784E+03, 1.11815E+03, 1.11957E+03, 1.12046E+03, O30 5610
     X 1.12042E+03, 1.11929E+03, 1.12074E+03, 1.12708E+03, 1.12600E+03/ O30 5620
      DATA C01921 /                                                     O30 5630
     X 1.12538E+03, 1.12871E+03, 1.13167E+03, 1.13388E+03, 1.13444E+03, O30 5640
     X 1.13595E+03, 1.13801E+03, 1.14096E+03, 1.14230E+03, 1.14304E+03, O30 5650
     X 1.14421E+03, 1.14580E+03, 1.14767E+03, 1.15000E+03, 1.15126E+03, O30 5660
     X 1.15181E+03, 1.15197E+03, 1.15364E+03, 1.15626E+03, 1.15538E+03, O30 5670
     X 1.15636E+03, 1.15908E+03, 1.16024E+03, 1.16188E+03, 1.16411E+03, O30 5680
     X 1.16310E+03, 1.16430E+03, 1.16927E+03, 1.17035E+03, 1.17052E+03, O30 5690
     X 1.17013E+03, 1.16968E+03, 1.16969E+03, 1.17106E+03, 1.17123E+03, O30 5700
     X 1.17006E+03, 1.16536E+03, 1.16087E+03, 1.15691E+03, 1.15608E+03, O30 5710
     X 1.15388E+03, 1.15077E+03, 1.14967E+03, 1.14793E+03, 1.14554E+03, O30 5720
     X 1.14212E+03, 1.13908E+03, 1.13654E+03, 1.13499E+03, 1.13308E+03, O30 5730
     X 1.13033E+03, 1.13051E+03, 1.13073E+03, 1.12898E+03, 1.12941E+03, O30 5740
     X 1.13051E+03, 1.13086E+03, 1.13189E+03, 1.13304E+03, 1.13192E+03, O30 5750
     X 1.13131E+03, 1.13110E+03, 1.13499E+03, 1.13914E+03, 1.14359E+03, O30 5760
     X 1.14383E+03, 1.14390E+03, 1.14435E+03, 1.14540E+03, 1.14646E+03, O30 5770
     X 1.14716E+03, 1.14880E+03, 1.15062E+03, 1.15170E+03, 1.15093E+03, O30 5780
     X 1.14926E+03, 1.15133E+03, 1.15167E+03, 1.15043E+03, 1.15134E+03/ O30 5790
      DATA C02001 /                                                     O30 5800
     X 1.15135E+03, 1.15000E+03, 1.15087E+03, 1.15118E+03, 1.14935E+03, O30 5810
     X 1.14780E+03, 1.14647E+03, 1.14560E+03, 1.14404E+03, 1.14238E+03, O30 5820
     X 1.14406E+03, 1.14245E+03, 1.13781E+03, 1.13664E+03, 1.13653E+03, O30 5830
     X 1.13778E+03, 1.13813E+03, 1.13794E+03, 1.13681E+03, 1.13515E+03, O30 5840
     X 1.13328E+03, 1.13132E+03, 1.13080E+03, 1.13130E+03, 1.13400E+03, O30 5850
     X 1.13526E+03, 1.13494E+03, 1.13193E+03, 1.12898E+03, 1.12654E+03, O30 5860
     X 1.12739E+03, 1.12849E+03, 1.12774E+03, 1.12733E+03, 1.12733E+03, O30 5870
     X 1.12943E+03, 1.13014E+03, 1.12967E+03, 1.12731E+03, 1.12671E+03, O30 5880
     X 1.12885E+03, 1.13050E+03, 1.13201E+03, 1.13345E+03, 1.13488E+03, O30 5890
     X 1.13605E+03, 1.13530E+03, 1.13737E+03, 1.14186E+03, 1.14250E+03, O30 5900
     X 1.14305E+03, 1.14383E+03, 1.14510E+03, 1.14659E+03, 1.14848E+03, O30 5910
     X 1.14949E+03, 1.14995E+03, 1.14934E+03, 1.15058E+03, 1.15368E+03, O30 5920
     X 1.15435E+03, 1.15422E+03, 1.15296E+03, 1.15228E+03, 1.15189E+03, O30 5930
     X 1.15198E+03, 1.15081E+03, 1.14881E+03, 1.14562E+03, 1.14276E+03, O30 5940
     X 1.14030E+03, 1.13637E+03, 1.13254E+03, 1.12942E+03, 1.12653E+03, O30 5950
     X 1.12362E+03, 1.11987E+03, 1.11712E+03, 1.11522E+03, 1.11403E+03/ O30 5960
      DATA C02081 /                                                     O30 5970
     X 1.11226E+03, 1.10947E+03, 1.10956E+03, 1.10976E+03, 1.10748E+03, O30 5980
     X 1.10673E+03, 1.10688E+03, 1.10675E+03, 1.10533E+03, 1.10230E+03, O30 5990
     X 1.10384E+03, 1.10496E+03, 1.10274E+03, 1.10197E+03, 1.10196E+03, O30 6000
     X 1.10278E+03, 1.10257E+03, 1.10147E+03, 1.10205E+03, 1.10308E+03, O30 6010
     X 1.10478E+03, 1.10358E+03, 1.10197E+03, 1.10305E+03, 1.10390E+03, O30 6020
     X 1.10456E+03, 1.10526E+03, 1.10588E+03, 1.10640E+03, 1.10747E+03, O30 6030
     X 1.10904E+03, 1.11214E+03, 1.11350E+03, 1.11359E+03, 1.11604E+03, O30 6040
     X 1.11706E+03, 1.11594E+03, 1.11600E+03, 1.11616E+03, 1.11561E+03, O30 6050
     X 1.11556E+03, 1.11547E+03, 1.11370E+03, 1.11289E+03, 1.11276E+03, O30 6060
     X 1.11338E+03, 1.11437E+03, 1.11595E+03, 1.11309E+03, 1.10958E+03, O30 6070
     X 1.10887E+03, 1.10573E+03, 1.10068E+03, 1.10194E+03, 1.10165E+03, O30 6080
     X 1.09813E+03, 1.09973E+03, 1.10233E+03, 1.10121E+03, 1.10097E+03, O30 6090
     X 1.10149E+03, 1.10162E+03, 1.10222E+03, 1.10389E+03, 1.10315E+03, O30 6100
     X 1.10158E+03, 1.10193E+03, 1.10186E+03, 1.10135E+03, 1.10336E+03, O30 6110
     X 1.10500E+03, 1.10459E+03, 1.10592E+03, 1.10784E+03, 1.10076E+03, O30 6120
     X 1.09615E+03, 1.09496E+03, 1.09422E+03, 1.09350E+03, 1.09244E+03/ O30 6130
      DATA C02161 /                                                     O30 6140
     X 1.08955E+03, 1.08535E+03, 1.08379E+03, 1.08184E+03, 1.07889E+03, O30 6150
     X 1.07563E+03, 1.07238E+03, 1.07042E+03, 1.06882E+03, 1.06761E+03, O30 6160
     X 1.06816E+03, 1.06772E+03, 1.06327E+03, 1.06313E+03, 1.06563E+03, O30 6170
     X 1.06254E+03, 1.06072E+03, 1.06095E+03, 1.06173E+03, 1.06269E+03, O30 6180
     X 1.06361E+03, 1.06438E+03, 1.06501E+03, 1.06465E+03, 1.06481E+03, O30 6190
     X 1.06685E+03, 1.06642E+03, 1.06447E+03, 1.06701E+03, 1.06791E+03, O30 6200
     X 1.06612E+03, 1.06471E+03, 1.06403E+03, 1.06774E+03, 1.06823E+03, O30 6210
     X 1.06524E+03, 1.06479E+03, 1.06453E+03, 1.06346E+03, 1.06175E+03, O30 6220
     X 1.05958E+03, 1.05941E+03, 1.05936E+03, 1.05938E+03, 1.05736E+03, O30 6230
     X 1.05449E+03, 1.05307E+03, 1.05180E+03, 1.05074E+03, 1.04810E+03, O30 6240
     X 1.04536E+03, 1.04477E+03, 1.04389E+03, 1.04272E+03, 1.04006E+03, O30 6250
     X 1.03739E+03, 1.03533E+03, 1.03476E+03, 1.03516E+03, 1.03275E+03, O30 6260
     X 1.03093E+03, 1.03062E+03, 1.02997E+03, 1.02919E+03, 1.02993E+03, O30 6270
     X 1.02983E+03, 1.02837E+03, 1.02611E+03, 1.02386E+03, 1.02426E+03, O30 6280
     X 1.02542E+03, 1.02750E+03, 1.02638E+03, 1.02496E+03, 1.02608E+03, O30 6290
     X 1.02568E+03, 1.02388E+03, 1.02522E+03, 1.02692E+03, 1.02834E+03/ O30 6300
      DATA C02241 /                                                     O30 6310
     X 1.02828E+03, 1.02716E+03, 1.02667E+03, 1.02607E+03, 1.02503E+03, O30 6320
     X 1.02723E+03, 1.03143E+03, 1.02881E+03, 1.02646E+03, 1.02500E+03, O30 6330
     X 1.02569E+03, 1.02743E+03, 1.02608E+03, 1.02548E+03, 1.02620E+03, O30 6340
     X 1.02733E+03, 1.02839E+03, 1.02575E+03, 1.02432E+03, 1.02471E+03, O30 6350
     X 1.02392E+03, 1.02267E+03, 1.02077E+03, 1.01964E+03, 1.01957E+03, O30 6360
     X 1.01848E+03, 1.01704E+03, 1.01524E+03, 1.01352E+03, 1.01191E+03, O30 6370
     X 1.01066E+03, 1.00952E+03, 1.00849E+03, 1.00660E+03, 1.00368E+03, O30 6380
     X 9.99713E+02, 9.95921E+02, 9.94845E+02, 9.93286E+02, 9.91204E+02/ O30 6390
C                                                                       O30 6400
      END                                                               O30 6410
      BLOCK DATA BO3HH1                                                 O31  100
C>    BLOCK DATA                                                        O31  110
C                                                                       O31  120
C     RATIO (C1/C0)                                                     O31  130
C     DATA FROM BASS 1985                                               O31  140
C                                                                       O31  150
C     NOW INCLUDES MOLINA & MOLINA AT 273K WITH THE TEMPERATURE         O31  160
C     DEPENDENCE DETERMINED FROM THE 195K HARVARD MEASUREMENTS,         O31  170
C     EMPLOYING THE BASS ALGORITHM (CO(1+C1*T+C2*T2); THIS IS           O31  180
C     ONLY FOR THE WAVELENGTH RANGE FROM .34 TO .35 MICRONS;            O31  190
C     OTHERWISE, THE BASS DATA ALONE HAVE BEEN EMPLOYED BETWEEN         O31  200
C     .34 AND .245 MICRONS.                                             O31  210
C                                                                       O31  220
C     NEW T-DEPENDENT X-SECTIONS BETWEEN .345 AND .36 MICRONS           O31  230
C     HAVE NOW BEEN ADDED, BASED ON WORK BY CACCIANI, DISARRA           O31  240
C     AND FIOCCO, UNIVERSITY OF ROME, 1987.  QUADRATIC TEMP             O31  250
C     HAS BEEN DERIVED, AS ABOVE.                                       O31  260
C                                                                       O31  270
C     AGREEMENT AMONGST THE FOUR DATA SETS IS REASONABLE (<10%)         O31  280
C     AND OFTEN EXCELLENT (0-3%)                                        O31  290
C                                                                       O31  300
C                                                                       O31  310
      COMMON /O3HH1/  V1C,V2C,DVC,NC,                                   O31  320
     X           O31001(88),C10086(80),C10166(80),C10246(65),C10311(16),O31  330
     X           C10327(80),C10407(1),                                  O31  340
     X           C10001(80),C10081(80),C10161(80),C10241(80),C10321(80),O31  350
     X           C10401(80),C10481(80),C10561(80),C10641(80),C10721(80),O31  360
     X           C10801(80),C10881(80),C10961(80),C11041(80),C11121(80),O31  370
     X           C11201(80),C11281(80),C11361(80),C11441(80),C11521(80),O31  380
     X           C11601(80),C11681(80),C11761(80),C11841(80),C11921(80),O31  390
     X           C12001(80),C12081(80),C12161(80),C12241(40)            O31  400
C                                                                       O31  410
C     DATA V1C /29405./, V2C /40800./ ,DVC /5./, NC /2280/   BASS       O31  420
      DATA V1C /27370./, V2C /40800./ ,DVC /5./, NC /2690/              O31  430
C                                                                       O31  440
      DATA O31001/88*1.3E-3/                                            O31  450
                                                                        O31  460
      DATA C10086/                                                      O31  470
     X 1.37330E-03, 1.62821E-03, 2.01703E-03, 2.54574E-03, 3.20275E-03, O31  480
     X 3.89777E-03, 4.62165E-03, 5.26292E-03, 5.86986E-03, 6.41494E-03, O31  490
     X 6.96761E-03, 7.48539E-03, 7.89600E-03, 7.87305E-03, 7.81981E-03, O31  500
     X 7.63864E-03, 7.67455E-03, 7.72586E-03, 7.69784E-03, 7.57367E-03, O31  510
     X 7.27336E-03, 7.14064E-03, 7.24207E-03, 7.09851E-03, 6.93654E-03, O31  520
     X 6.89385E-03, 7.05768E-03, 6.85578E-03, 6.58301E-03, 6.50848E-03, O31  530
     X 6.52083E-03, 6.46590E-03, 6.70692E-03, 6.92053E-03, 7.17734E-03, O31  540
     X 7.05364E-03, 6.63440E-03, 6.54702E-03, 6.27173E-03, 5.98150E-03, O31  550
     X 5.66579E-03, 5.51549E-03, 5.50291E-03, 5.93271E-03, 6.36950E-03, O31  560
     X 7.18562E-03, 7.51767E-03, 6.53815E-03, 7.22341E-03, 8.63056E-03, O31  570
     X 9.11740E-03, 8.80903E-03, 8.59902E-03, 7.74287E-03, 7.33509E-03, O31  580
     X 7.50180E-03, 7.81686E-03, 7.85635E-03, 8.08554E-03, 7.21968E-03, O31  590
     X 7.99028E-03, 9.90724E-03, 1.29121E-02, 1.54686E-02, 1.60876E-02, O31  600
     X 1.59530E-02, 1.57040E-02, 1.59499E-02, 1.63961E-02, 1.72670E-02, O31  610
     X 1.81634E-02, 1.95519E-02, 2.14181E-02, 2.28670E-02, 2.33506E-02, O31  620
     X 2.22736E-02, 2.14296E-02, 2.15271E-02, 2.30730E-02, 2.36220E-02/ O31  630
      DATA C10166/                                                      O31  640
     X 2.44466E-02, 2.44476E-02, 2.39223E-02, 2.41386E-02, 2.53687E-02, O31  650
     X 2.67491E-02, 2.80425E-02, 2.77558E-02, 2.82626E-02, 2.86776E-02, O31  660
     X 2.88781E-02, 2.89248E-02, 2.89983E-02, 2.85534E-02, 2.87102E-02, O31  670
     X 2.83695E-02, 2.76719E-02, 2.76091E-02, 2.90733E-02, 2.80388E-02, O31  680
     X 2.73706E-02, 2.65055E-02, 2.61268E-02, 2.45892E-02, 2.37213E-02, O31  690
     X 2.22542E-02, 2.10116E-02, 2.02852E-02, 1.97635E-02, 1.94079E-02, O31  700
     X 1.90997E-02, 1.85598E-02, 1.79221E-02, 1.77887E-02, 1.73709E-02, O31  710
     X 1.67263E-02, 1.60932E-02, 1.50775E-02, 1.39563E-02, 1.23691E-02, O31  720
     X 1.07402E-02, 9.35859E-03, 8.43786E-03, 7.92075E-03, 7.33239E-03, O31  730
     X 6.73638E-03, 6.28740E-03, 5.85640E-03, 5.85384E-03, 6.10577E-03, O31  740
     X 7.26050E-03, 9.66384E-03, 1.29629E-02, 1.69596E-02, 2.03465E-02, O31  750
     X 2.26429E-02, 2.39653E-02, 2.47970E-02, 2.51993E-02, 2.51383E-02, O31  760
     X 2.52014E-02, 2.47766E-02, 2.47171E-02, 2.47478E-02, 2.43986E-02, O31  770
     X 2.43498E-02, 2.40537E-02, 2.40574E-02, 2.40446E-02, 2.40847E-02, O31  780
     X 2.39400E-02, 2.42127E-02, 2.47123E-02, 2.52914E-02, 2.52103E-02, O31  790
     X 2.51421E-02, 2.43229E-02, 2.37902E-02, 2.30865E-02, 2.28174E-02/ O31  800
      DATA C10246/                                                      O31  810
     X 2.28830E-02, 2.33671E-02, 2.38274E-02, 2.46699E-02, 2.56739E-02, O31  820
     X 2.61408E-02, 2.62898E-02, 2.64228E-02, 2.55561E-02, 2.47095E-02, O31  830
     X 2.39071E-02, 2.34319E-02, 2.28738E-02, 2.23434E-02, 2.18888E-02, O31  840
     X 2.13639E-02, 2.11937E-02, 2.10110E-02, 2.07672E-02, 2.00697E-02, O31  850
     X 1.97605E-02, 1.91208E-02, 1.82056E-02, 1.73945E-02, 1.64542E-02, O31  860
     X 1.53969E-02, 1.41816E-02, 1.35665E-02, 1.27109E-02, 1.18254E-02, O31  870
     X 1.11489E-02, 1.03984E-02, 1.00760E-02, 9.86649E-03, 9.76766E-03, O31  880
     X 9.41662E-03, 9.19082E-03, 9.44272E-03, 1.04547E-02, 1.24713E-02, O31  890
     X 1.49310E-02, 1.70272E-02, 1.86057E-02, 1.93555E-02, 1.98350E-02, O31  900
     X 2.00041E-02, 2.01233E-02, 2.01917E-02, 1.98918E-02, 1.96649E-02, O31  910
     X 1.95162E-02, 2.01044E-02, 2.06711E-02, 2.08881E-02, 2.04812E-02, O31  920
     X 1.92249E-02, 1.80188E-02, 1.69496E-02, 1.60488E-02, 1.52865E-02, O31  930
     X 1.46940E-02, 1.41067E-02, 1.35675E-02, 1.31094E-02, 1.27542E-02/ O31  940
      DATA C10311/                                                      O31  950
     X                                                     1.3073E-02,  O31  960
     X 1.2795E-02,  1.2753E-02,  1.2868E-02,  1.2885E-02,  1.2554E-02,  O31  970
     X 1.2106E-02,  1.1616E-02,  1.1394E-02,  1.1092E-02,  1.0682E-02,  O31  980
     X 1.0519E-02,  9.7219E-03,  9.3434E-03,  8.5260E-03,  8.3333E-03/  O31  990
      DATA C10327/                                                      O31 1000
     X 7.8582E-03,  6.8295E-03,  6.7963E-03,  6.7516E-03,  6.2930E-03,  O31 1010
     X 6.1615E-03,  6.1250E-03,  5.9011E-03,  5.7823E-03,  5.4688E-03,  O31 1020
     X 5.0978E-03,  4.4526E-03,  3.8090E-03,  3.2310E-03,  3.0128E-03,  O31 1030
     X 3.9063E-03,  6.7911E-03,  9.3161E-03,  1.0256E-02,  1.0183E-02,  O31 1040
     X 9.8289E-03,  9.5683E-03,  9.0406E-03,  8.7148E-03,  8.5284E-03,  O31 1050
     X 8.6149E-03,  8.7238E-03,  9.3679E-03,  1.0683E-02,  1.2016E-02,  O31 1060
     X 1.3097E-02,  1.3610E-02,  1.3588E-02,  1.3805E-02,  1.3928E-02,  O31 1070
     X 1.3903E-02,  1.3446E-02,  1.3258E-02,  1.3194E-02,  1.2703E-02,  O31 1080
     X 1.2393E-02,  1.2487E-02,  1.2341E-02,  1.2388E-02,  1.2061E-02,  O31 1090
     X 1.2122E-02,  1.1850E-02,  1.2032E-02,  1.1806E-02,  1.1810E-02,  O31 1100
     X 1.1572E-02,  1.1397E-02,  1.0980E-02,  1.1012E-02,  1.0524E-02,  O31 1110
     X 1.0518E-02,  1.0227E-02,  9.6837E-03,  9.6425E-03,  8.9938E-03,  O31 1120
     X 9.1488E-03,  8.8595E-03,  8.5976E-03,  8.4447E-03,  8.0731E-03,  O31 1130
     X 8.0283E-03,  7.7827E-03,  7.7638E-03,  7.2438E-03,  6.8246E-03,  O31 1140
     X 6.3457E-03,  5.6632E-03,  5.2500E-03,  4.3593E-03,  3.9431E-03,  O31 1150
     X 3.1580E-03,  2.2298E-03,  1.7818E-03,  1.4513E-03,  1.3188E-03/  O31 1160
      DATA C10407/                                                      O31 1170
     X 2.1034E-03/                                                      O31 1180
      DATA C10001 /                                                     O31 1190
     X 6.45621E-03, 7.11308E-03, 1.06130E-02, 1.36338E-02, 1.27746E-02, O31 1200
     X 1.42152E-02, 1.41144E-02, 1.64830E-02, 1.67110E-02, 1.57368E-02, O31 1210
     X 1.54644E-02, 1.45248E-02, 1.43206E-02, 1.56946E-02, 1.54268E-02, O31 1220
     X 1.37500E-02, 1.50224E-02, 1.60919E-02, 1.49099E-02, 1.53960E-02, O31 1230
     X 1.61871E-02, 1.46539E-02, 1.38258E-02, 1.32571E-02, 1.21580E-02, O31 1240
     X 1.39596E-02, 1.16029E-02, 1.47042E-02, 1.07441E-02, 1.08999E-02, O31 1250
     X 1.05562E-02, 1.00589E-02, 9.60711E-03, 9.36950E-03, 7.65303E-03, O31 1260
     X 6.86216E-03, 7.05344E-03, 6.90728E-03, 6.78627E-03, 6.97435E-03, O31 1270
     X 5.75456E-03, 5.81685E-03, 5.00915E-03, 4.90259E-03, 4.42545E-03, O31 1280
     X 4.14633E-03, 3.61657E-03, 3.08178E-03, 2.91680E-03, 2.94554E-03, O31 1290
     X 3.35794E-03, 5.49025E-03, 7.09867E-03, 6.82592E-03, 8.84835E-03, O31 1300
     X 9.15718E-03, 9.17935E-03, 8.31848E-03, 7.79481E-03, 7.75125E-03, O31 1310
     X 6.95844E-03, 7.34506E-03, 7.53823E-03, 7.03272E-03, 7.57051E-03, O31 1320
     X 9.20239E-03, 1.10864E-02, 1.16188E-02, 1.30029E-02, 1.44364E-02, O31 1330
     X 1.29292E-02, 1.36031E-02, 1.35967E-02, 1.30412E-02, 1.29874E-02, O31 1340
     X 1.14829E-02, 1.18009E-02, 1.20829E-02, 1.17831E-02, 1.21489E-02/ O31 1350
      DATA C10081 /                                                     O31 1360
     X 1.27019E-02, 1.25557E-02, 1.23812E-02, 1.20158E-02, 1.26749E-02, O31 1370
     X 1.17139E-02, 1.14552E-02, 1.11268E-02, 9.79143E-03, 8.79741E-03, O31 1380
     X 8.85709E-03, 8.57653E-03, 8.93908E-03, 8.46205E-03, 8.56506E-03, O31 1390
     X 8.14319E-03, 8.14415E-03, 7.74205E-03, 7.80727E-03, 7.49886E-03, O31 1400
     X 7.71114E-03, 6.55963E-03, 6.87550E-03, 6.39162E-03, 5.55359E-03, O31 1410
     X 5.43275E-03, 4.90649E-03, 4.41165E-03, 4.21875E-03, 3.62592E-03, O31 1420
     X 3.40700E-03, 2.40267E-03, 2.61479E-03, 2.75677E-03, 4.10842E-03, O31 1430
     X 5.79601E-03, 7.10708E-03, 8.07826E-03, 8.16166E-03, 8.72620E-03, O31 1440
     X 8.85878E-03, 8.72755E-03, 8.25811E-03, 8.12100E-03, 7.78534E-03, O31 1450
     X 7.39762E-03, 8.43880E-03, 8.53789E-03, 9.90072E-03, 1.01668E-02, O31 1460
     X 1.00827E-02, 9.73556E-03, 9.57462E-03, 1.01289E-02, 1.10670E-02, O31 1470
     X 1.03508E-02, 1.00929E-02, 9.10236E-03, 9.39459E-03, 8.79601E-03, O31 1480
     X 8.67936E-03, 8.53862E-03, 7.95459E-03, 8.04037E-03, 7.95361E-03, O31 1490
     X 7.87432E-03, 6.99165E-03, 7.37107E-03, 6.09187E-03, 6.21030E-03, O31 1500
     X 5.33277E-03, 5.04633E-03, 4.45811E-03, 4.34153E-03, 3.98596E-03, O31 1510
     X 3.84225E-03, 3.41943E-03, 3.60535E-03, 2.81691E-03, 2.49771E-03/ O31 1520
      DATA C10161 /                                                     O31 1530
     X 2.35046E-03, 2.50947E-03, 3.75462E-03, 4.92349E-03, 5.09294E-03, O31 1540
     X 4.98312E-03, 5.19325E-03, 4.41827E-03, 4.25192E-03, 4.46745E-03, O31 1550
     X 4.08731E-03, 3.84776E-03, 3.67507E-03, 3.76845E-03, 3.69210E-03, O31 1560
     X 4.59864E-03, 6.42677E-03, 7.83255E-03, 7.89247E-03, 8.10883E-03, O31 1570
     X 8.00825E-03, 8.40322E-03, 7.97108E-03, 8.24714E-03, 8.39006E-03, O31 1580
     X 8.68787E-03, 8.61108E-03, 8.81552E-03, 9.36996E-03, 9.08243E-03, O31 1590
     X 9.69116E-03, 9.66185E-03, 9.22856E-03, 9.65086E-03, 9.35398E-03, O31 1600
     X 9.06358E-03, 8.76851E-03, 8.43072E-03, 7.85659E-03, 7.93936E-03, O31 1610
     X 7.49712E-03, 7.20199E-03, 6.94581E-03, 6.64086E-03, 6.12627E-03, O31 1620
     X 6.13967E-03, 5.67310E-03, 5.09928E-03, 4.59112E-03, 3.95257E-03, O31 1630
     X 3.67652E-03, 3.28781E-03, 2.77471E-03, 2.74494E-03, 2.15529E-03, O31 1640
     X 1.95283E-03, 1.75043E-03, 1.60419E-03, 1.82688E-03, 2.34667E-03, O31 1650
     X 2.92502E-03, 3.88322E-03, 4.39984E-03, 4.67814E-03, 4.80395E-03, O31 1660
     X 4.69130E-03, 4.54564E-03, 4.46773E-03, 4.59178E-03, 4.37498E-03, O31 1670
     X 4.12706E-03, 4.18299E-03, 4.57267E-03, 5.60127E-03, 6.51936E-03, O31 1680
     X 7.10498E-03, 7.49870E-03, 7.89554E-03, 7.97428E-03, 8.21044E-03/ O31 1690
      DATA C10241 /                                                     O31 1700
     X 8.06324E-03, 7.76648E-03, 7.62238E-03, 7.77675E-03, 7.46905E-03, O31 1710
     X 7.61115E-03, 7.42715E-03, 7.28461E-03, 7.51514E-03, 7.38782E-03, O31 1720
     X 6.97206E-03, 6.52738E-03, 6.10147E-03, 5.87553E-03, 5.49218E-03, O31 1730
     X 4.94873E-03, 4.47920E-03, 4.25005E-03, 3.98094E-03, 3.92084E-03, O31 1740
     X 3.41707E-03, 3.30501E-03, 3.09208E-03, 3.19686E-03, 3.55283E-03, O31 1750
     X 4.20775E-03, 4.11155E-03, 3.72193E-03, 3.52000E-03, 3.13572E-03, O31 1760
     X 2.87629E-03, 2.64251E-03, 2.33451E-03, 2.22426E-03, 2.05800E-03, O31 1770
     X 1.75214E-03, 2.32530E-03, 2.68651E-03, 3.66315E-03, 4.93904E-03, O31 1780
     X 5.32850E-03, 5.43978E-03, 5.32656E-03, 5.15649E-03, 5.42096E-03, O31 1790
     X 5.37193E-03, 5.23454E-03, 5.34557E-03, 5.50533E-03, 6.13216E-03, O31 1800
     X 6.65129E-03, 7.09357E-03, 7.46042E-03, 7.68605E-03, 7.91866E-03, O31 1810
     X 7.52953E-03, 7.48272E-03, 7.17800E-03, 6.80060E-03, 6.60427E-03, O31 1820
     X 6.43049E-03, 6.45975E-03, 6.20534E-03, 5.93094E-03, 5.67360E-03, O31 1830
     X 5.38584E-03, 5.19364E-03, 4.92599E-03, 4.60655E-03, 4.24669E-03, O31 1840
     X 3.94253E-03, 3.55894E-03, 3.24256E-03, 2.92974E-03, 2.62760E-03, O31 1850
     X 2.52238E-03, 2.24714E-03, 2.26350E-03, 2.44380E-03, 3.03798E-03/ O31 1860
      DATA C10321 /                                                     O31 1870
     X 3.50000E-03, 3.55416E-03, 3.43661E-03, 3.19814E-03, 3.02155E-03, O31 1880
     X 2.73890E-03, 2.50078E-03, 2.34595E-03, 2.18282E-03, 2.19285E-03, O31 1890
     X 2.49482E-03, 3.13434E-03, 4.18947E-03, 4.72069E-03, 5.29712E-03, O31 1900
     X 5.39004E-03, 5.44846E-03, 5.37952E-03, 5.09935E-03, 5.08741E-03, O31 1910
     X 5.05257E-03, 5.10339E-03, 5.17968E-03, 5.31841E-03, 5.58106E-03, O31 1920
     X 5.65031E-03, 5.65680E-03, 5.76184E-03, 5.71213E-03, 5.48515E-03, O31 1930
     X 5.32168E-03, 5.18505E-03, 4.99640E-03, 4.78746E-03, 4.57244E-03, O31 1940
     X 4.32728E-03, 4.14464E-03, 3.97659E-03, 4.01874E-03, 4.10588E-03, O31 1950
     X 3.99644E-03, 3.84584E-03, 3.64222E-03, 3.39590E-03, 3.00386E-03, O31 1960
     X 2.73790E-03, 2.45095E-03, 2.29068E-03, 1.64530E-03, 1.68602E-03, O31 1970
     X 2.32934E-03, 3.14851E-03, 3.65706E-03, 3.70878E-03, 3.75103E-03, O31 1980
     X 3.79183E-03, 3.32032E-03, 2.42604E-03, 2.48775E-03, 2.34603E-03, O31 1990
     X 2.36349E-03, 3.33744E-03, 3.44617E-03, 4.27280E-03, 4.61076E-03, O31 2000
     X 5.20165E-03, 5.14851E-03, 5.22909E-03, 5.08278E-03, 5.16125E-03, O31 2010
     X 5.01572E-03, 4.51685E-03, 4.67541E-03, 4.83421E-03, 4.57546E-03, O31 2020
     X 4.55111E-03, 5.03093E-03, 4.67838E-03, 4.44282E-03, 4.40774E-03/ O31 2030
      DATA C10401 /                                                     O31 2040
     X 4.48123E-03, 4.24410E-03, 4.03559E-03, 3.73969E-03, 3.45458E-03, O31 2050
     X 3.18217E-03, 3.16115E-03, 3.36877E-03, 3.62026E-03, 3.69898E-03, O31 2060
     X 3.49845E-03, 3.13839E-03, 2.77731E-03, 2.40106E-03, 2.03935E-03, O31 2070
     X 1.84377E-03, 2.07757E-03, 2.39550E-03, 2.86272E-03, 3.27900E-03, O31 2080
     X 3.42304E-03, 3.50211E-03, 3.29197E-03, 3.24784E-03, 3.20864E-03, O31 2090
     X 3.28063E-03, 3.01328E-03, 3.00379E-03, 3.19562E-03, 3.45113E-03, O31 2100
     X 3.75149E-03, 3.98520E-03, 4.19181E-03, 4.15773E-03, 4.02490E-03, O31 2110
     X 3.95936E-03, 3.79001E-03, 3.77647E-03, 3.48528E-03, 3.55768E-03, O31 2120
     X 3.62812E-03, 3.48650E-03, 3.35434E-03, 3.20088E-03, 3.25316E-03, O31 2130
     X 3.04467E-03, 3.12633E-03, 3.23602E-03, 3.07723E-03, 2.80070E-03, O31 2140
     X 2.72498E-03, 2.74752E-03, 2.58943E-03, 2.32482E-03, 2.20218E-03, O31 2150
     X 2.10846E-03, 2.05991E-03, 2.01844E-03, 2.16224E-03, 2.48456E-03, O31 2160
     X 2.88022E-03, 2.93939E-03, 3.01176E-03, 2.98886E-03, 2.96947E-03, O31 2170
     X 3.38082E-03, 3.61657E-03, 3.42654E-03, 3.41274E-03, 3.22475E-03, O31 2180
     X 2.97658E-03, 3.21944E-03, 3.32032E-03, 3.33273E-03, 3.58854E-03, O31 2190
     X 3.67023E-03, 3.64069E-03, 3.74557E-03, 3.77703E-03, 3.64042E-03/ O31 2200
      DATA C10481 /                                                     O31 2210
     X 3.39468E-03, 3.22657E-03, 3.16466E-03, 3.24224E-03, 3.24801E-03, O31 2220
     X 3.19487E-03, 3.40155E-03, 3.16940E-03, 2.92293E-03, 3.00998E-03, O31 2230
     X 2.82851E-03, 2.60381E-03, 2.59242E-03, 2.48530E-03, 2.76677E-03, O31 2240
     X 2.45506E-03, 2.21845E-03, 2.30407E-03, 2.28136E-03, 2.37278E-03, O31 2250
     X 2.25313E-03, 2.47836E-03, 2.77858E-03, 2.89803E-03, 2.86131E-03, O31 2260
     X 3.14118E-03, 3.14119E-03, 2.88881E-03, 3.19502E-03, 2.99538E-03, O31 2270
     X 2.91212E-03, 3.22739E-03, 3.05960E-03, 3.18901E-03, 3.05805E-03, O31 2280
     X 3.12205E-03, 2.95636E-03, 3.24111E-03, 3.29433E-03, 3.09206E-03, O31 2290
     X 3.06696E-03, 2.97735E-03, 2.90897E-03, 2.88979E-03, 2.75105E-03, O31 2300
     X 2.92156E-03, 3.03445E-03, 2.91664E-03, 2.85559E-03, 2.98405E-03, O31 2310
     X 2.95376E-03, 2.80234E-03, 2.78349E-03, 2.73421E-03, 2.70035E-03, O31 2320
     X 2.60074E-03, 2.34840E-03, 2.37626E-03, 2.32927E-03, 2.20842E-03, O31 2330
     X 2.31080E-03, 2.42771E-03, 2.43339E-03, 2.53280E-03, 2.37093E-03, O31 2340
     X 2.37377E-03, 2.73453E-03, 2.60836E-03, 2.55568E-03, 2.44062E-03, O31 2350
     X 2.71093E-03, 2.64421E-03, 2.66969E-03, 2.55560E-03, 2.71800E-03, O31 2360
     X 2.79534E-03, 2.59070E-03, 2.55373E-03, 2.45272E-03, 2.55571E-03/ O31 2370
      DATA C10561 /                                                     O31 2380
     X 2.54606E-03, 2.57349E-03, 2.46807E-03, 2.35634E-03, 2.44470E-03, O31 2390
     X 2.47050E-03, 2.57131E-03, 2.71649E-03, 2.58800E-03, 2.54524E-03, O31 2400
     X 2.69505E-03, 2.89122E-03, 2.77399E-03, 2.63306E-03, 2.82269E-03, O31 2410
     X 2.95684E-03, 3.07415E-03, 2.70594E-03, 2.65650E-03, 2.90613E-03, O31 2420
     X 2.96666E-03, 2.94767E-03, 2.81765E-03, 2.64829E-03, 2.43062E-03, O31 2430
     X 2.33816E-03, 2.38210E-03, 2.45701E-03, 2.38508E-03, 2.40746E-03, O31 2440
     X 2.49779E-03, 2.28209E-03, 2.26185E-03, 2.26604E-03, 2.19232E-03, O31 2450
     X 2.19160E-03, 2.32246E-03, 2.11108E-03, 2.26220E-03, 2.26849E-03, O31 2460
     X 2.34787E-03, 2.49323E-03, 2.46872E-03, 2.52974E-03, 2.35858E-03, O31 2470
     X 2.36865E-03, 2.33533E-03, 2.21338E-03, 2.24610E-03, 2.24776E-03, O31 2480
     X 2.24423E-03, 2.29276E-03, 2.18487E-03, 2.27621E-03, 2.31141E-03, O31 2490
     X 2.44095E-03, 2.45198E-03, 2.56919E-03, 2.56823E-03, 2.41982E-03, O31 2500
     X 2.39968E-03, 2.62447E-03, 2.55339E-03, 2.51556E-03, 2.47477E-03, O31 2510
     X 2.50276E-03, 2.48381E-03, 2.48484E-03, 2.48316E-03, 2.38541E-03, O31 2520
     X 2.41183E-03, 2.55888E-03, 2.42810E-03, 2.43356E-03, 2.25996E-03, O31 2530
     X 2.34736E-03, 2.10305E-03, 2.13870E-03, 2.17472E-03, 2.05354E-03/ O31 2540
      DATA C10641 /                                                     O31 2550
     X 2.11572E-03, 2.19557E-03, 2.09545E-03, 2.07831E-03, 1.94425E-03, O31 2560
     X 1.89333E-03, 1.98025E-03, 1.98328E-03, 2.01702E-03, 1.98333E-03, O31 2570
     X 2.01150E-03, 2.02484E-03, 2.10759E-03, 2.11892E-03, 2.10175E-03, O31 2580
     X 2.05314E-03, 2.13338E-03, 2.25764E-03, 2.19055E-03, 2.10818E-03, O31 2590
     X 2.05100E-03, 2.05685E-03, 2.10843E-03, 2.10228E-03, 2.10646E-03, O31 2600
     X 2.22640E-03, 2.31253E-03, 2.31230E-03, 2.21885E-03, 2.19568E-03, O31 2610
     X 2.23583E-03, 2.34754E-03, 2.28622E-03, 2.21876E-03, 2.26679E-03, O31 2620
     X 2.30828E-03, 2.24944E-03, 2.13851E-03, 2.02938E-03, 1.96770E-03, O31 2630
     X 2.05953E-03, 2.13814E-03, 2.03158E-03, 2.24655E-03, 1.95119E-03, O31 2640
     X 2.12979E-03, 2.08581E-03, 2.02434E-03, 1.98926E-03, 1.98792E-03, O31 2650
     X 1.97237E-03, 1.93397E-03, 1.92360E-03, 1.90805E-03, 1.89300E-03, O31 2660
     X 1.83548E-03, 1.87215E-03, 1.85589E-03, 1.85718E-03, 1.79361E-03, O31 2670
     X 1.77984E-03, 1.91506E-03, 2.04256E-03, 2.04095E-03, 1.94031E-03, O31 2680
     X 1.90447E-03, 2.02049E-03, 1.98360E-03, 2.04364E-03, 2.02519E-03, O31 2690
     X 2.20802E-03, 1.96964E-03, 1.94559E-03, 2.09922E-03, 2.11184E-03, O31 2700
     X 2.05706E-03, 2.02257E-03, 2.01781E-03, 2.01055E-03, 1.86538E-03/ O31 2710
      DATA C10721 /                                                     O31 2720
     X 1.86899E-03, 1.76798E-03, 1.85871E-03, 1.95363E-03, 1.96404E-03, O31 2730
     X 1.84169E-03, 1.82851E-03, 1.84582E-03, 1.81997E-03, 1.76461E-03, O31 2740
     X 1.68384E-03, 1.65530E-03, 1.73550E-03, 1.62463E-03, 1.68793E-03, O31 2750
     X 1.60472E-03, 1.67560E-03, 1.67431E-03, 1.61779E-03, 1.66446E-03, O31 2760
     X 1.66403E-03, 1.55724E-03, 1.62351E-03, 1.71545E-03, 1.69645E-03, O31 2770
     X 1.59540E-03, 1.62948E-03, 1.66784E-03, 1.66416E-03, 1.66131E-03, O31 2780
     X 1.71502E-03, 1.76555E-03, 1.75182E-03, 1.72327E-03, 1.72338E-03, O31 2790
     X 1.69993E-03, 1.78819E-03, 1.73517E-03, 1.74802E-03, 1.81751E-03, O31 2800
     X 1.70973E-03, 1.65075E-03, 1.70784E-03, 1.73655E-03, 1.71670E-03, O31 2810
     X 1.67367E-03, 1.69338E-03, 1.61772E-03, 1.54914E-03, 1.56009E-03, O31 2820
     X 1.59467E-03, 1.60761E-03, 1.57117E-03, 1.54045E-03, 1.53102E-03, O31 2830
     X 1.44516E-03, 1.49898E-03, 1.56048E-03, 1.60087E-03, 1.62636E-03, O31 2840
     X 1.62472E-03, 1.53931E-03, 1.55536E-03, 1.61649E-03, 1.66493E-03, O31 2850
     X 1.86915E-03, 1.59984E-03, 1.60483E-03, 1.66549E-03, 1.73449E-03, O31 2860
     X 1.73673E-03, 1.68393E-03, 1.67434E-03, 1.77880E-03, 1.76154E-03, O31 2870
     X 1.43028E-03, 1.69651E-03, 1.60934E-03, 1.69413E-03, 1.70514E-03/ O31 2880
      DATA C10801 /                                                     O31 2890
     X 1.62471E-03, 1.74854E-03, 1.76480E-03, 1.63495E-03, 1.59364E-03, O31 2900
     X 1.39603E-03, 1.47897E-03, 1.49509E-03, 1.70002E-03, 1.63048E-03, O31 2910
     X 1.44807E-03, 1.45071E-03, 1.53998E-03, 1.45276E-03, 1.29129E-03, O31 2920
     X 1.52900E-03, 1.64444E-03, 1.37450E-03, 1.42574E-03, 1.47355E-03, O31 2930
     X 1.51202E-03, 1.54376E-03, 1.51421E-03, 1.43989E-03, 1.45732E-03, O31 2940
     X 1.42912E-03, 1.59906E-03, 1.56748E-03, 1.52383E-03, 1.47665E-03, O31 2950
     X 1.51465E-03, 1.55582E-03, 1.54521E-03, 1.55189E-03, 1.56772E-03, O31 2960
     X 1.45401E-03, 1.55775E-03, 1.43120E-03, 1.39659E-03, 1.41451E-03, O31 2970
     X 1.45157E-03, 1.48303E-03, 1.42540E-03, 1.26387E-03, 1.37479E-03, O31 2980
     X 1.46381E-03, 1.38134E-03, 1.32733E-03, 1.38030E-03, 1.44619E-03, O31 2990
     X 1.41344E-03, 1.31982E-03, 1.24944E-03, 1.20096E-03, 1.21107E-03, O31 3000
     X 1.27999E-03, 1.22523E-03, 1.22193E-03, 1.35957E-03, 1.41427E-03, O31 3010
     X 1.35679E-03, 1.15438E-03, 1.41184E-03, 1.49093E-03, 1.32193E-03, O31 3020
     X 1.25009E-03, 1.37625E-03, 1.49022E-03, 1.44180E-03, 1.27628E-03, O31 3030
     X 1.29670E-03, 1.31636E-03, 1.28874E-03, 1.31177E-03, 1.35732E-03, O31 3040
     X 1.33854E-03, 1.30253E-03, 1.31374E-03, 1.27379E-03, 1.18339E-03/ O31 3050
      DATA C10881 /                                                     O31 3060
     X 1.22016E-03, 1.26551E-03, 1.26371E-03, 1.28180E-03, 1.36024E-03, O31 3070
     X 1.45759E-03, 1.29413E-03, 1.35858E-03, 1.26528E-03, 1.18623E-03, O31 3080
     X 1.21812E-03, 1.28799E-03, 1.37028E-03, 1.29268E-03, 1.27639E-03, O31 3090
     X 1.19487E-03, 1.23542E-03, 1.25010E-03, 1.17418E-03, 1.13914E-03, O31 3100
     X 1.21951E-03, 1.13780E-03, 1.16443E-03, 1.17883E-03, 1.11982E-03, O31 3110
     X 1.05708E-03, 1.04865E-03, 1.05884E-03, 1.06599E-03, 1.13828E-03, O31 3120
     X 1.10373E-03, 1.07739E-03, 1.04632E-03, 1.06118E-03, 1.15445E-03, O31 3130
     X 1.17300E-03, 1.00675E-03, 1.04235E-03, 1.08398E-03, 1.06587E-03, O31 3140
     X 1.05536E-03, 1.08614E-03, 1.09026E-03, 1.09141E-03, 1.13051E-03, O31 3150
     X 1.08667E-03, 1.04016E-03, 1.04897E-03, 1.08894E-03, 1.09682E-03, O31 3160
     X 1.09638E-03, 9.79254E-04, 1.00668E-03, 1.02569E-03, 1.00581E-03, O31 3170
     X 9.74433E-04, 9.66321E-04, 9.78440E-04, 9.01587E-04, 1.02149E-03, O31 3180
     X 9.87464E-04, 9.41872E-04, 9.05021E-04, 8.59547E-04, 9.03963E-04, O31 3190
     X 8.66415E-04, 8.84726E-04, 8.77087E-04, 8.70584E-04, 8.81338E-04, O31 3200
     X 8.97658E-04, 8.97586E-04, 9.19028E-04, 8.82438E-04, 9.00710E-04, O31 3210
     X 9.54329E-04, 9.54490E-04, 9.10940E-04, 9.95472E-04, 9.50134E-04/ O31 3220
      DATA C10961 /                                                     O31 3230
     X 9.17127E-04, 9.70916E-04, 9.87575E-04, 9.65026E-04, 9.71779E-04, O31 3240
     X 1.00967E-03, 1.00053E-03, 9.26063E-04, 9.34721E-04, 9.76354E-04, O31 3250
     X 9.78436E-04, 9.36012E-04, 9.64448E-04, 9.95903E-04, 9.89960E-04, O31 3260
     X 9.41143E-04, 9.04393E-04, 8.84719E-04, 8.41396E-04, 8.67234E-04, O31 3270
     X 8.55864E-04, 8.63314E-04, 8.72317E-04, 8.40899E-04, 7.79593E-04, O31 3280
     X 7.88481E-04, 8.21075E-04, 7.38342E-04, 7.56537E-04, 7.57278E-04, O31 3290
     X 7.35854E-04, 7.32765E-04, 6.67398E-04, 7.45338E-04, 7.33094E-04, O31 3300
     X 7.01840E-04, 6.85595E-04, 6.95740E-04, 7.24015E-04, 7.00907E-04, O31 3310
     X 7.28498E-04, 6.89410E-04, 6.91728E-04, 7.40601E-04, 7.62775E-04, O31 3320
     X 7.40912E-04, 7.35021E-04, 7.07799E-04, 7.54113E-04, 8.44845E-04, O31 3330
     X 8.53956E-04, 6.42186E-04, 7.40557E-04, 7.54340E-04, 7.55544E-04, O31 3340
     X 7.88986E-04, 7.97902E-04, 6.98460E-04, 7.74873E-04, 6.81178E-04, O31 3350
     X 7.15567E-04, 7.56723E-04, 7.98438E-04, 8.83150E-04, 8.45671E-04, O31 3360
     X 7.40924E-04, 7.35498E-04, 7.77829E-04, 6.93566E-04, 5.10188E-04, O31 3370
     X 7.52717E-04, 6.94185E-04, 6.71928E-04, 6.73286E-04, 6.89415E-04, O31 3380
     X 7.22917E-04, 7.89448E-04, 8.53812E-04, 7.45132E-04, 7.68732E-04/ O31 3390
      DATA C11041 /                                                     O31 3400
     X 8.10104E-04, 7.55615E-04, 7.09145E-04, 6.80676E-04, 7.54594E-04, O31 3410
     X 7.89416E-04, 7.88579E-04, 7.49805E-04, 6.13534E-04, 7.22491E-04, O31 3420
     X 7.95410E-04, 7.80604E-04, 7.74283E-04, 7.93224E-04, 6.86522E-04, O31 3430
     X 8.06038E-04, 8.30285E-04, 8.37763E-04, 8.03863E-04, 7.33526E-04, O31 3440
     X 7.42588E-04, 6.31046E-04, 8.16153E-04, 8.95391E-04, 8.61330E-04, O31 3450
     X 8.38726E-04, 8.16761E-04, 8.16118E-04, 6.37058E-04, 6.30868E-04, O31 3460
     X 7.26410E-04, 7.03464E-04, 5.93454E-04, 6.01985E-04, 6.51157E-04, O31 3470
     X 6.68569E-04, 6.56297E-04, 6.58732E-04, 5.99721E-04, 5.34301E-04, O31 3480
     X 5.33271E-04, 5.57992E-04, 5.70096E-04, 5.59932E-04, 5.32110E-04, O31 3490
     X 5.64713E-04, 6.25026E-04, 6.38973E-04, 6.05323E-04, 7.17460E-04, O31 3500
     X 6.19407E-04, 5.90228E-04, 5.43682E-04, 5.38446E-04, 6.56146E-04, O31 3510
     X 6.09081E-04, 6.04737E-04, 6.45526E-04, 6.46978E-04, 5.89738E-04, O31 3520
     X 5.63852E-04, 6.18018E-04, 5.71768E-04, 5.75433E-04, 6.05766E-04, O31 3530
     X 5.93065E-04, 5.31708E-04, 5.41187E-04, 5.76985E-04, 5.78176E-04, O31 3540
     X 5.75339E-04, 6.85426E-04, 5.51038E-04, 6.02049E-04, 6.20406E-04, O31 3550
     X 5.80169E-04, 5.36399E-04, 5.59608E-04, 5.46575E-04, 5.66979E-04/ O31 3560
      DATA C11121 /                                                     O31 3570
     X 5.94982E-04, 6.18469E-04, 6.56281E-04, 8.22124E-04, 7.81716E-04, O31 3580
     X 7.29616E-04, 7.14460E-04, 7.08969E-04, 6.53794E-04, 7.33138E-04, O31 3590
     X 8.29513E-04, 8.99395E-04, 9.05526E-04, 7.98257E-04, 7.86935E-04, O31 3600
     X 6.10797E-04, 4.63912E-04, 4.05675E-04, 3.66230E-04, 4.86472E-04, O31 3610
     X 5.31818E-04, 5.15865E-04, 4.87344E-04, 4.99857E-04, 5.35479E-04, O31 3620
     X 5.27561E-04, 4.99000E-04, 4.77056E-04, 4.74242E-04, 4.66595E-04, O31 3630
     X 4.66325E-04, 4.94704E-04, 5.12842E-04, 5.01795E-04, 4.80789E-04, O31 3640
     X 5.73709E-04, 5.65214E-04, 5.11321E-04, 4.55242E-04, 4.29330E-04, O31 3650
     X 5.09792E-04, 4.70489E-04, 4.82859E-04, 4.99195E-04, 4.07724E-04, O31 3660
     X 4.99951E-04, 4.55755E-04, 4.42528E-04, 4.19433E-04, 3.31325E-04, O31 3670
     X 3.70517E-04, 3.77708E-04, 2.97923E-04, 2.27470E-04, 2.47389E-04, O31 3680
     X 2.38324E-04, 2.56706E-04, 2.45046E-04, 2.62539E-04, 3.37054E-04, O31 3690
     X 3.33930E-04, 3.01390E-04, 3.08028E-04, 3.41464E-04, 3.70574E-04, O31 3700
     X 3.47893E-04, 3.28433E-04, 3.46976E-04, 3.60351E-04, 3.50559E-04, O31 3710
     X 3.56070E-04, 3.62782E-04, 3.37330E-04, 3.33763E-04, 3.57046E-04, O31 3720
     X 3.08784E-04, 2.93898E-04, 2.80842E-04, 2.54114E-04, 2.38198E-04/ O31 3730
      DATA C11201 /                                                     O31 3740
     X 3.48753E-04, 2.97334E-04, 2.82929E-04, 2.94150E-04, 3.07875E-04, O31 3750
     X 3.21129E-04, 3.38335E-04, 3.49826E-04, 3.47647E-04, 3.35438E-04, O31 3760
     X 3.58145E-04, 3.72391E-04, 3.59372E-04, 3.64755E-04, 4.16867E-04, O31 3770
     X 3.43614E-04, 3.34932E-04, 3.12782E-04, 3.28220E-04, 4.32595E-04, O31 3780
     X 3.49513E-04, 3.51861E-04, 3.81166E-04, 3.91194E-04, 3.38944E-04, O31 3790
     X 2.63445E-04, 2.49520E-04, 2.46184E-04, 2.33203E-04, 2.16315E-04, O31 3800
     X 1.89536E-04, 1.95730E-04, 1.99664E-04, 1.77139E-04, 1.27969E-04, O31 3810
     X 5.17216E-05, 7.60445E-05, 1.24418E-04, 1.30989E-04, 2.31539E-04, O31 3820
     X 2.21334E-04, 2.08757E-04, 2.18351E-04, 2.46202E-04, 2.29824E-04, O31 3830
     X 2.28909E-04, 2.88826E-04, 3.58039E-04, 2.60800E-04, 2.33025E-04, O31 3840
     X 2.52667E-04, 2.61394E-04, 2.31384E-04, 2.29388E-04, 2.54701E-04, O31 3850
     X 2.21158E-04, 1.61506E-04, 1.36752E-04, 1.69481E-04, 8.64539E-05, O31 3860
     X 1.64407E-04, 3.65674E-04, 3.18233E-04, 4.00755E-04, 3.33375E-04, O31 3870
     X 2.62930E-04, 2.87052E-04, 2.51395E-04, 2.85274E-04, 2.66915E-04, O31 3880
     X 2.10866E-04, 1.89517E-04, 1.67378E-04, 2.79951E-04, 2.97224E-04, O31 3890
     X 1.89222E-04, 3.33825E-04, 3.56386E-04, 3.89727E-04, 4.30407E-04/ O31 3900
      DATA C11281 /                                                     O31 3910
     X 4.45922E-04, 4.23446E-04, 4.41347E-04, 4.06723E-04, 3.00181E-04, O31 3920
     X 1.85243E-04, 3.13176E-04, 4.08991E-04, 4.24776E-04, 3.56412E-04, O31 3930
     X 3.84760E-04, 2.30602E-04, 1.77702E-04, 2.62329E-04, 2.49442E-04, O31 3940
     X 3.76212E-04, 3.69176E-04, 2.97681E-04, 2.71662E-04, 2.05694E-04, O31 3950
     X 2.11418E-04, 2.25439E-04, 2.27013E-04, 2.47845E-04, 3.14603E-04, O31 3960
     X 2.68802E-04, 2.04334E-04, 2.77399E-04, 2.68273E-04, 2.04991E-04, O31 3970
     X 2.24441E-04, 3.55074E-04, 2.90135E-04, 3.35680E-04, 3.59358E-04, O31 3980
     X 3.44716E-04, 3.24496E-04, 3.48146E-04, 3.49042E-04, 3.54848E-04, O31 3990
     X 3.86418E-04, 3.59198E-04, 3.47608E-04, 3.20522E-04, 2.78401E-04, O31 4000
     X 2.64579E-04, 2.23694E-04, 2.34370E-04, 2.52559E-04, 1.88475E-04, O31 4010
     X 2.01258E-04, 1.63979E-04, 1.45384E-04, 1.91215E-04, 1.76958E-04, O31 4020
     X 1.69167E-04, 1.71767E-04, 1.86595E-04, 2.14969E-04, 2.48345E-04, O31 4030
     X 2.46691E-04, 2.25234E-04, 2.26755E-04, 1.64112E-04, 1.87750E-04, O31 4040
     X 2.22984E-04, 2.00443E-04, 2.38863E-04, 2.77590E-04, 2.91953E-04, O31 4050
     X 2.80611E-04, 3.08215E-04, 1.79095E-04, 1.46920E-04, 2.29177E-04, O31 4060
     X 2.54685E-04, 2.68866E-04, 2.13346E-04, 1.20122E-04, 5.55240E-05/ O31 4070
      DATA C11361 /                                                     O31 4080
     X 5.99017E-05, 1.07768E-04, 1.67810E-04, 2.06886E-04, 2.36232E-04, O31 4090
     X 2.24598E-04, 2.30792E-04, 2.71274E-04, 1.29062E-04, 1.92624E-04, O31 4100
     X 2.38438E-04, 1.98994E-04, 1.81687E-04, 2.55733E-04, 2.84379E-04, O31 4110
     X 2.54459E-04, 2.30884E-04, 2.68873E-04, 3.07231E-04, 3.15063E-04, O31 4120
     X 2.46725E-04, 2.60370E-04, 2.66391E-04, 2.50708E-04, 2.04296E-04, O31 4130
     X 1.66011E-04, 1.19164E-04, 1.06700E-04, 1.77576E-04, 1.91741E-04, O31 4140
     X 1.66618E-04, 1.49824E-04, 1.80699E-04, 2.20905E-04, 1.38754E-04, O31 4150
     X 6.27971E-05, 7.52567E-05, 1.89995E-04, 1.72489E-04, 1.40424E-04, O31 4160
     X 1.52384E-04, 1.63942E-04, 1.19901E-04, 1.49234E-04, 2.68313E-04, O31 4170
     X 2.08815E-04, 1.17218E-04, 1.42235E-04, 2.71237E-04, 1.38192E-04, O31 4180
     X 2.15643E-04, 2.84476E-04, 2.78117E-04, 2.19234E-04, 1.59128E-04, O31 4190
     X 1.78819E-04, 2.67785E-04, 2.66786E-04, 2.58545E-04, 2.68476E-04, O31 4200
     X 2.88542E-04, 2.59726E-04, 3.00936E-04, 3.11237E-04, 2.61275E-04, O31 4210
     X 1.37136E-04, 2.76566E-04, 3.82888E-04, 3.97564E-04, 4.43655E-04, O31 4220
     X 3.15415E-04, 2.60869E-04, 3.19171E-04, 3.34205E-04, 2.02914E-04, O31 4230
     X 1.16223E-04, 1.14737E-04, 6.10978E-05,-8.03695E-06,-1.07062E-05/ O31 4240
      DATA C11441 /                                                     O31 4250
     X 6.50664E-05, 1.12586E-04, 1.56727E-04, 1.57927E-04, 1.05762E-04, O31 4260
     X 1.03646E-04, 1.72520E-04, 2.23668E-04, 2.12775E-04, 2.33525E-04, O31 4270
     X 2.75558E-04, 2.34256E-04, 5.10062E-05, 1.76007E-04, 1.70850E-04, O31 4280
     X 1.43266E-04, 1.89626E-04, 2.97283E-04, 3.02773E-04, 2.74401E-04, O31 4290
     X 3.00754E-04, 3.66813E-04, 3.54383E-04, 2.90580E-04, 2.32206E-04, O31 4300
     X 1.58405E-04, 1.54663E-04, 1.84598E-04, 1.26408E-04, 2.14481E-04, O31 4310
     X 2.00791E-04, 1.05796E-04, 2.39794E-04, 1.66105E-04, 7.88615E-05, O31 4320
     X 4.30615E-05, 7.37518E-05, 1.24926E-04, 1.38295E-04, 8.54356E-05, O31 4330
     X 6.12641E-05, 6.54466E-05, 6.17727E-05, 1.30688E-05, 6.00462E-05, O31 4340
     X 1.52612E-04, 2.11656E-04, 9.67692E-05, 8.67858E-05, 1.34888E-04, O31 4350
     X 1.90899E-04, 1.03234E-04, 1.03837E-04, 1.49767E-04, 2.19058E-04, O31 4360
     X 2.26549E-04, 2.11506E-04, 1.85238E-04, 1.53774E-04, 1.32313E-04, O31 4370
     X 6.10658E-05, 2.37782E-05, 1.24450E-04, 1.87610E-04, 1.44775E-04, O31 4380
     X 5.60937E-05, 6.64032E-05, 1.28073E-04, 1.77512E-04, 1.84684E-04, O31 4390
     X 5.73677E-05, 5.29679E-05, 9.95510E-05, 1.61423E-04, 3.19036E-04, O31 4400
     X 3.17383E-04, 2.36505E-04, 1.80844E-04, 1.63722E-04, 1.21478E-04/ O31 4410
      DATA C11521 /                                                     O31 4420
     X 6.85823E-05, 7.42058E-05, 1.14838E-04, 1.21131E-04, 8.01009E-05, O31 4430
     X 1.52058E-04, 2.18368E-04, 2.53416E-04, 2.27116E-04, 1.25336E-04, O31 4440
     X 6.26421E-05, 5.32471E-05, 1.34705E-04, 2.07005E-05,-5.18630E-05, O31 4450
     X-3.25696E-05,-8.06171E-05,-1.09430E-04,-1.05637E-04,-4.96066E-05, O31 4460
     X-7.76138E-05,-4.85930E-05, 3.65111E-06,-2.86933E-05,-4.61366E-05, O31 4470
     X-4.88820E-05,-3.08816E-05, 8.43778E-05, 1.40484E-04, 1.31125E-04, O31 4480
     X 3.55198E-05, 8.47412E-05, 1.23408E-04, 1.36799E-04, 1.21147E-04, O31 4490
     X 1.25585E-04, 1.32337E-04, 1.34092E-04, 1.26652E-04, 1.12131E-04, O31 4500
     X 1.00927E-04, 1.13828E-04, 1.06053E-04, 9.43643E-05, 8.33628E-05, O31 4510
     X 8.65842E-05, 7.59315E-05, 8.28623E-05, 1.39681E-04, 1.80492E-04, O31 4520
     X 1.65779E-04, 1.03843E-04, 3.10284E-05, 1.94408E-05, 4.57525E-05, O31 4530
     X 1.02436E-04, 1.39750E-04, 1.43342E-04, 1.11999E-04, 2.94197E-05, O31 4540
     X 2.76980E-05, 5.51685E-05, 9.39909E-05, 1.16108E-04, 7.72703E-05, O31 4550
     X 4.37409E-05, 1.13925E-04, 8.18872E-05, 2.87657E-05,-2.41413E-05, O31 4560
     X 1.24699E-05, 2.19589E-05,-5.88247E-06,-9.66151E-05,-2.06255E-05, O31 4570
     X-1.83148E-06,-5.63625E-05,-8.65590E-05,-8.26020E-05,-5.06239E-05/ O31 4580
      DATA C11601 /                                                     O31 4590
     X 1.28065E-05,-1.34669E-05, 1.59701E-05, 9.44755E-05, 1.63032E-05, O31 4600
     X 2.51304E-05, 7.38226E-05, 1.28405E-04, 1.17413E-04, 9.92387E-05, O31 4610
     X 9.51533E-05, 2.17008E-04, 2.25854E-04, 1.90448E-04, 1.77207E-04, O31 4620
     X 1.80844E-04, 1.53501E-04, 9.80430E-05, 1.27404E-04, 1.16465E-04, O31 4630
     X 9.98611E-05, 1.25556E-04, 1.73627E-04, 1.12347E-04,-7.73523E-05, O31 4640
     X 5.66599E-05, 5.36347E-05, 1.20227E-06, 6.96325E-05, 4.79010E-05, O31 4650
     X-1.09886E-05,-9.16457E-05,-7.09170E-05,-5.31410E-05,-2.68376E-05, O31 4660
     X 6.32641E-05, 8.06052E-06,-4.99262E-05,-2.56644E-05,-8.76854E-05, O31 4670
     X-8.21360E-05,-5.02403E-06, 4.66629E-05, 6.93127E-05, 5.53828E-05, O31 4680
     X-2.32399E-05,-2.07514E-05,-7.33240E-05,-2.10483E-04,-1.53757E-04, O31 4690
     X-7.13861E-05,-1.07356E-05,-1.26578E-04,-7.48854E-05, 3.25418E-06, O31 4700
     X 2.97068E-05, 3.35685E-05, 3.15022E-05, 2.68904E-05, 3.87401E-05, O31 4710
     X 5.12522E-05, 5.12172E-05, 1.05053E-05, 1.65321E-05, 3.47537E-05, O31 4720
     X 5.62503E-05, 4.18666E-05, 3.13970E-05, 3.11750E-05, 7.21547E-05, O31 4730
     X 2.55262E-05,-2.76061E-05, 5.43449E-06,-5.20575E-05,-1.08627E-04, O31 4740
     X-1.40475E-04,-1.59926E-04,-1.32237E-04,-8.15458E-05,-1.31738E-04/ O31 4750
      DATA C11681 /                                                     O31 4760
     X-1.64036E-04,-1.69351E-04,-1.24797E-04,-1.61950E-04,-2.01904E-04, O31 4770
     X-2.22995E-04,-1.87647E-04,-1.70817E-04,-1.64583E-04,-1.12811E-04, O31 4780
     X-8.38306E-05,-8.62707E-05,-1.54362E-04,-1.98090E-04,-2.12920E-04, O31 4790
     X-1.89358E-04,-2.02988E-04,-1.72791E-04,-1.02863E-04,-1.09877E-04, O31 4800
     X-1.04257E-04,-8.20734E-05,-2.18346E-05,-2.94593E-05,-4.18226E-05, O31 4810
     X-1.86891E-05,-6.14620E-05,-3.21912E-05, 1.00844E-04, 6.92419E-05, O31 4820
     X 3.16713E-05, 5.62042E-07, 5.18900E-05, 7.48835E-05, 8.03381E-05, O31 4830
     X 7.24685E-05, 9.55588E-05, 9.22801E-05, 2.87159E-05, 2.26234E-05, O31 4840
     X 2.62790E-05, 3.58332E-05, 6.23297E-05, 5.01998E-05, 1.81446E-05, O31 4850
     X 3.33564E-05, 3.97765E-06,-2.60624E-05, 7.01802E-06,-4.16797E-05, O31 4860
     X-8.70108E-05,-8.22182E-05,-6.64886E-05,-7.88704E-05,-1.28305E-04, O31 4870
     X-1.29990E-04,-1.12646E-04,-8.68394E-05,-1.29584E-04,-1.44352E-04, O31 4880
     X-1.42082E-04,-1.33790E-04,-1.27963E-04,-1.21233E-04,-1.09965E-04, O31 4890
     X-1.02233E-04,-1.03804E-04,-1.19503E-04,-7.74707E-05,-4.66805E-05, O31 4900
     X-3.52201E-05,-4.07406E-05,-4.66887E-05,-5.05962E-05,-3.30333E-05, O31 4910
     X-3.47981E-05,-3.60962E-05, 1.44242E-05, 4.10478E-05, 3.68984E-05/ O31 4920
      DATA C11761 /                                                     O31 4930
     X-2.81300E-05, 2.83171E-05, 7.48062E-05, 4.29333E-05, 8.50076E-06, O31 4940
     X 4.98135E-06, 4.44854E-05, 2.51860E-05, 3.12189E-05, 6.39424E-05, O31 4950
     X 7.20715E-05, 9.89688E-05, 1.33768E-04, 1.07781E-04, 9.76731E-05, O31 4960
     X 9.21479E-05, 6.72624E-05, 5.41295E-05, 4.89022E-05, 5.28039E-05, O31 4970
     X-4.48737E-06,-5.15409E-05,-3.57396E-05,-1.94752E-05,-2.09521E-05, O31 4980
     X-5.13096E-05,-2.62781E-05,-2.75451E-05,-6.98423E-05,-1.25462E-04, O31 4990
     X-1.68362E-04,-1.97456E-04,-1.90669E-04,-2.06890E-04,-2.36699E-04, O31 5000
     X-1.97732E-04,-1.76504E-04,-1.67505E-04,-1.60694E-04,-1.85851E-04, O31 5010
     X-2.01567E-04,-9.82507E-05,-1.33338E-04,-1.95199E-04,-1.40781E-04, O31 5020
     X-8.90988E-05,-3.63239E-05, 2.16510E-05,-1.56807E-05,-4.21285E-05, O31 5030
     X 5.50505E-06, 6.78937E-07, 3.12346E-06, 3.64202E-05, 3.50651E-05, O31 5040
     X 6.20423E-05, 1.38667E-04, 7.74738E-05, 6.77036E-05, 1.38367E-04, O31 5050
     X 1.17359E-04, 1.06637E-04, 1.12404E-04, 9.78586E-05, 1.03178E-04, O31 5060
     X 1.28717E-04, 1.56642E-04, 1.62544E-04, 1.50109E-04, 1.43214E-04, O31 5070
     X 1.33651E-04, 1.24352E-04, 1.41420E-04, 1.36340E-04, 1.18769E-04, O31 5080
     X 1.31656E-04, 8.81533E-05, 1.55214E-05,-3.68736E-07,-1.76213E-05/ O31 5090
      DATA C11841 /                                                     O31 5100
     X-2.85341E-05, 4.65155E-06, 5.41350E-06,-7.01247E-06, 6.57918E-06, O31 5110
     X-2.45784E-05,-6.89104E-05,-6.90953E-05,-6.23937E-05,-6.72978E-05, O31 5120
     X-1.39547E-04,-1.44228E-04,-1.42543E-04,-2.31080E-04,-2.12756E-04, O31 5130
     X-1.62089E-04,-1.66063E-04,-1.61872E-04,-1.59764E-04,-1.80217E-04, O31 5140
     X-1.38355E-04,-8.45661E-05,-7.58308E-05,-4.65144E-05,-2.76855E-05, O31 5150
     X-7.48714E-05,-8.28561E-05,-6.45277E-05,-7.08509E-06,-1.05566E-05, O31 5160
     X-1.96352E-05, 3.55561E-05, 2.24676E-05,-1.25648E-05,-1.87661E-05, O31 5170
     X 6.99061E-06, 2.33676E-05,-5.25111E-05,-3.86758E-05, 1.03585E-06, O31 5180
     X-1.65901E-05,-1.04855E-05, 5.03694E-06, 1.25937E-05,-8.31340E-06, O31 5190
     X-4.37906E-05,-7.91444E-05,-4.62167E-05, 5.14238E-06,-4.52863E-05, O31 5200
     X-5.86455E-05,-4.98093E-05,-3.03495E-05,-5.09377E-05,-8.88116E-05, O31 5210
     X-6.21360E-05,-7.38148E-05,-1.07502E-04,-7.55276E-05,-6.39257E-05, O31 5220
     X-6.86921E-05,-8.05504E-05,-9.24178E-05,-1.03991E-04,-1.00468E-04, O31 5230
     X-6.71447E-05,-3.84897E-06,-5.99067E-06,-2.21894E-05,-5.21766E-05, O31 5240
     X-3.93796E-05,-4.06712E-05,-6.21649E-05,-1.13073E-04,-1.20560E-04, O31 5250
     X-5.92397E-05, 5.24432E-05, 9.41628E-05,-3.47458E-07, 5.33267E-05/ O31 5260
      DATA C11921 /                                                     O31 5270
     X 8.92961E-05, 2.75694E-05,-7.48460E-06,-2.15504E-05, 1.05501E-06, O31 5280
     X 6.30910E-06, 5.94620E-07,-2.45194E-05,-1.59657E-05, 7.93610E-07, O31 5290
     X-1.05319E-05,-2.36584E-05,-3.95700E-05,-6.57225E-05,-5.23797E-05, O31 5300
     X-1.82588E-05,-1.43240E-05,-3.29989E-05,-6.48909E-05,-2.41326E-05, O31 5310
     X-1.89195E-05,-4.64607E-05,-1.00739E-05,-1.35033E-05,-6.49945E-05, O31 5320
     X-5.19986E-05,-6.68505E-05,-1.31530E-04,-1.45464E-04,-1.46815E-04, O31 5330
     X-1.39684E-04,-1.23205E-04,-1.26738E-04,-1.93822E-04,-2.37508E-04, O31 5340
     X-2.52917E-04,-1.91110E-04,-1.36217E-04,-9.41093E-05,-1.20601E-04, O31 5350
     X-1.17295E-04,-9.57420E-05,-1.57227E-04,-1.62795E-04,-1.12201E-04, O31 5360
     X-1.20419E-04,-1.10597E-04,-7.61223E-05,-6.27167E-05,-5.54733E-05, O31 5370
     X-5.50437E-05,-5.14148E-05,-3.59591E-05, 1.09906E-05, 5.94396E-06, O31 5380
     X-1.38597E-05,-8.80857E-06,-3.13101E-05,-6.31715E-05,-4.04264E-05, O31 5390
     X-1.66405E-05, 7.94396E-06,-3.41772E-06,-4.03175E-05,-1.06888E-04, O31 5400
     X-9.50526E-05,-7.46111E-05,-5.09617E-05,-6.70981E-05,-7.93529E-05, O31 5410
     X-5.58423E-05,-1.01523E-04,-1.62269E-04,-1.69958E-04,-1.37786E-04, O31 5420
     X-8.79862E-05,-1.46838E-04,-1.66938E-04,-1.51380E-04,-1.62184E-04/ O31 5430
      DATA C12001 /                                                     O31 5440
     X-1.61105E-04,-1.42088E-04,-1.57033E-04,-1.65294E-04,-1.45079E-04, O31 5450
     X-9.76982E-05,-6.09891E-05,-1.01719E-04,-1.03049E-04,-8.85546E-05, O31 5460
     X-1.47754E-04,-1.44542E-04,-8.34620E-05,-8.99440E-05,-7.11901E-05, O31 5470
     X-1.57480E-05,-8.81797E-05,-1.56314E-04,-1.65952E-04,-1.80986E-04, O31 5480
     X-2.04610E-04,-2.58669E-04,-2.16016E-04,-1.21582E-04,-1.44929E-04, O31 5490
     X-1.72886E-04,-2.05950E-04,-1.93829E-04,-1.67518E-04,-1.22969E-04, O31 5500
     X-1.13060E-04,-1.14854E-04,-1.26198E-04,-1.24288E-04,-1.19519E-04, O31 5510
     X-1.50456E-04,-1.53286E-04,-1.32231E-04,-7.42672E-05,-2.23129E-05, O31 5520
     X 1.79115E-05, 1.42073E-05,-1.21676E-05,-7.56567E-05,-1.03423E-04, O31 5530
     X-1.10373E-04,-8.77244E-05,-6.43485E-05,-4.05156E-05,-6.24405E-05, O31 5540
     X-5.70375E-05,-2.36695E-06,-3.75929E-05,-7.97119E-05,-6.70419E-05, O31 5550
     X-6.99475E-05,-8.19748E-05,-1.06895E-04,-1.31422E-04,-1.55438E-04, O31 5560
     X-1.61937E-04,-1.62626E-04,-1.54977E-04,-1.77814E-04,-2.00386E-04, O31 5570
     X-1.87407E-04,-2.07243E-04,-2.44672E-04,-2.19014E-04,-2.13695E-04, O31 5580
     X-2.32440E-04,-1.85194E-04,-1.51172E-04,-1.69834E-04,-1.73780E-04, O31 5590
     X-1.75232E-04,-2.00698E-04,-1.82826E-04,-1.27786E-04,-1.33633E-04/ O31 5600
      DATA C12081 /                                                     O31 5610
     X-1.21317E-04,-7.50390E-05,-1.06743E-04,-1.40805E-04,-1.06336E-04, O31 5620
     X-9.46654E-05,-9.78182E-05,-1.19906E-04,-1.14160E-04,-7.28186E-05, O31 5630
     X-1.07652E-04,-1.20978E-04,-3.79658E-05,-3.16113E-05,-6.02417E-05, O31 5640
     X-7.51148E-05,-5.56145E-05,-6.77421E-06,-1.74321E-05,-4.67952E-05, O31 5650
     X-1.05000E-04,-6.29932E-05,-4.74356E-06,-2.83397E-05,-4.65192E-05, O31 5660
     X-6.04574E-05,-4.33970E-05,-3.18311E-05,-3.02321E-05,-4.49667E-05, O31 5670
     X-6.85347E-05,-1.11375E-04,-1.16293E-04,-9.38757E-05,-1.38594E-04, O31 5680
     X-1.60483E-04,-1.48344E-04,-1.33436E-04,-1.27387E-04,-1.59508E-04, O31 5690
     X-1.74026E-04,-1.72170E-04,-1.49196E-04,-1.33233E-04,-1.22382E-04, O31 5700
     X-1.78156E-04,-2.21349E-04,-2.41846E-04,-2.06549E-04,-1.68283E-04, O31 5710
     X-1.89512E-04,-1.44523E-04,-4.67953E-05,-1.00334E-04,-1.23478E-04, O31 5720
     X-8.14024E-05,-9.18016E-05,-1.17536E-04,-1.36160E-04,-1.38780E-04, O31 5730
     X-1.27749E-04,-1.45598E-04,-1.55964E-04,-1.45120E-04,-1.25544E-04, O31 5740
     X-1.05692E-04,-1.17639E-04,-1.24142E-04,-1.24749E-04,-1.63878E-04, O31 5750
     X-1.97021E-04,-1.98617E-04,-2.69136E-04,-3.68357E-04,-2.33702E-04, O31 5760
     X-1.61830E-04,-1.78578E-04,-2.01839E-04,-2.28731E-04,-2.63606E-04/ O31 5770
      DATA C12161 /                                                     O31 5780
     X-2.44698E-04,-1.86451E-04,-2.20546E-04,-2.22752E-04,-1.55169E-04, O31 5790
     X-1.25100E-04,-1.09794E-04,-9.59016E-05,-1.03857E-04,-1.35573E-04, O31 5800
     X-1.73780E-04,-1.82457E-04,-9.39821E-05,-1.18245E-04,-2.11563E-04, O31 5810
     X-1.37392E-04,-9.28173E-05,-9.71073E-05,-9.72535E-05,-9.39557E-05, O31 5820
     X-7.50117E-05,-6.70754E-05,-7.01186E-05,-5.76151E-05,-5.18785E-05, O31 5830
     X-7.14209E-05,-7.01682E-05,-5.61614E-05,-8.92769E-05,-1.06238E-04, O31 5840
     X-9.70294E-05,-6.70229E-05,-4.69214E-05,-1.53105E-04,-2.02326E-04, O31 5850
     X-1.90395E-04,-2.04367E-04,-2.16787E-04,-2.08725E-04,-1.78119E-04, O31 5860
     X-1.31043E-04,-1.32204E-04,-1.51522E-04,-2.05143E-04,-1.77144E-04, O31 5870
     X-1.16130E-04,-1.44440E-04,-1.66010E-04,-1.78206E-04,-1.61163E-04, O31 5880
     X-1.46351E-04,-1.96722E-04,-2.27027E-04,-2.37243E-04,-2.25235E-04, O31 5890
     X-1.99552E-04,-1.40238E-04,-1.26311E-04,-1.42746E-04,-1.19028E-04, O31 5900
     X-1.18750E-04,-1.72076E-04,-1.72120E-04,-1.48285E-04,-1.85116E-04, O31 5910
     X-1.98602E-04,-1.74016E-04,-1.37913E-04,-1.01221E-04,-9.69581E-05, O31 5920
     X-1.08794E-04,-1.39433E-04,-1.38575E-04,-1.32088E-04,-1.37431E-04, O31 5930
     X-1.30033E-04,-1.10829E-04,-1.35604E-04,-1.66515E-04,-1.98167E-04/ O31 5940
      DATA C12241 /                                                     O31 5950
     X-1.97716E-04,-1.74019E-04,-1.64719E-04,-1.64779E-04,-1.85725E-04, O31 5960
     X-2.28526E-04,-2.84329E-04,-1.82449E-04,-1.30747E-04,-1.93620E-04, O31 5970
     X-2.28529E-04,-2.47361E-04,-1.90001E-04,-1.66278E-04,-2.02540E-04, O31 5980
     X-2.31811E-04,-2.53772E-04,-2.08629E-04,-1.85021E-04,-1.93989E-04, O31 5990
     X-2.16568E-04,-2.38288E-04,-1.94453E-04,-1.87154E-04,-2.30493E-04, O31 6000
     X-2.34696E-04,-2.30351E-04,-2.60562E-04,-2.86427E-04,-3.06699E-04, O31 6010
     X-2.79131E-04,-2.49392E-04,-3.03389E-04,-3.10346E-04,-2.61782E-04, O31 6020
     X-2.30905E-04,-2.11669E-04,-2.37680E-04,-2.38194E-04,-2.10955E-04/ O31 6030
      END                                                               O31 6040
      BLOCK DATA BO3HH2                                                 O32  100
C>    BLOCK DATA                                                        O32  110
C                                                                       O32  120
C     RATIO (C2/C0)                                                     O32  130
C     DATA FROM BASS 1985                                               O32  140
C                                                                       O32  150
C     NOW INCLUDES MOLINA & MOLINA AT 273K WITH THE TEMPERATURE         O32  160
C     DEPENDENCE DETERMINED FROM THE 195K HARVARD MEASUREMENTS,         O32  170
C     EMPLOYING THE BASS ALGORITHM (CO(1+C1*T+C2*T2); THIS IS           O32  180
C     ONLY FOR THE WAVELENGTH RANGE FROM .34 TO .35 MICRONS;            O32  190
C     OTHERWISE, THE BASS DATA ALONE HAVE BEEN EMPLOYED BETWEEN         O32  200
C     .34 AND .245 MICRONS.                                             O32  210
C                                                                       O32  220
C     NEW T-DEPENDENT X-SECTIONS BETWEEN .345 AND .36 MICRONS           O32  230
C     HAVE NOW BEEN ADDED, BASED ON WORK BY CACCIANI, DISARRA           O32  240
C     AND FIOCCO, UNIVERSITY OF ROME, 1987.  QUADRATIC TEMP             O32  250
C     HAS BEEN DERIVED, AS ABOVE.                                       O32  260
C                                                                       O32  270
C     AGREEMENT AMONGST THE FOUR DATA SETS IS REASONABLE (<10%)         O32  280
C     AND OFTEN EXCELLENT (0-3%)                                        O32  290
C                                                                       O32  300
C                                                                       O32  310
      COMMON /O3HH2/  V1C,V2C,DVC,NC,                                   O32  320
     X           O32001(88),C20086(80),C20166(80),C20246(65),C20311(16),O32  330
     X           C20327(80),C20407(1),                                  O32  340
     X           C20001(80),C20081(80),C20161(80),C20241(80),C20321(80),O32  350
     X           C20401(80),C20481(80),C20561(80),C20641(80),C20721(80),O32  360
     X           C20801(80),C20881(80),C20961(80),C21041(80),C21121(80),O32  370
     X           C21201(80),C21281(80),C21361(80),C21441(80),C21521(80),O32  380
     X           C21601(80),C21681(80),C21761(80),C21841(80),C21921(80),O32  390
     X           C22001(80),C22081(80),C22161(80),C22241(40)            O32  400
C                                                                       O32  410
C     DATA V1C /29405./, V2C /40800./ ,DVC /5./, NC /2280/   BASS       O32  420
      DATA V1C /27370./, V2C /40800./ ,DVC /5./, NC /2690/              O32  430
C                                                                       O32  440
      DATA O32001/88*1.0E-5/                                            O32  450
                                                                        O32  460
      DATA C20086/                                                      O32  470
     X 1.29359E-05, 1.55806E-05, 2.00719E-05, 2.64912E-05, 3.48207E-05, O32  480
     X 4.36986E-05, 5.31318E-05, 6.13173E-05, 6.89465E-05, 7.56793E-05, O32  490
     X 8.26345E-05, 8.90916E-05, 9.38759E-05, 9.22998E-05, 9.03184E-05, O32  500
     X 8.65369E-05, 8.58531E-05, 8.55635E-05, 8.40418E-05, 8.11983E-05, O32  510
     X 7.58246E-05, 7.29282E-05, 7.32629E-05, 7.04060E-05, 6.71451E-05, O32  520
     X 6.56515E-05, 6.68943E-05, 6.32785E-05, 5.88386E-05, 5.70860E-05, O32  530
     X 5.64435E-05, 5.49441E-05, 5.70845E-05, 5.89357E-05, 6.14433E-05, O32  540
     X 5.91790E-05, 5.31727E-05, 5.14007E-05, 4.74318E-05, 4.35356E-05, O32  550
     X 3.93903E-05, 3.70963E-05, 3.63867E-05, 4.05296E-05, 4.48891E-05, O32  560
     X 5.37190E-05, 5.70440E-05, 4.60408E-05, 5.25778E-05, 6.81728E-05, O32  570
     X 7.27275E-05, 6.81353E-05, 6.48386E-05, 5.46521E-05, 4.93098E-05, O32  580
     X 5.04438E-05, 5.30309E-05, 5.28788E-05, 5.47387E-05, 4.52523E-05, O32  590
     X 5.29451E-05, 7.42215E-05, 1.08971E-04, 1.40085E-04, 1.46553E-04, O32  600
     X 1.43526E-04, 1.39051E-04, 1.40983E-04, 1.45564E-04, 1.55589E-04, O32  610
     X 1.66142E-04, 1.82840E-04, 2.06486E-04, 2.24339E-04, 2.29268E-04, O32  620
     X 2.13109E-04, 2.00305E-04, 1.99955E-04, 2.18566E-04, 2.24182E-04/ O32  630
      DATA C20166/                                                      O32  640
     X 2.33505E-04, 2.31824E-04, 2.22666E-04, 2.23905E-04, 2.38131E-04, O32  650
     X 2.54322E-04, 2.69548E-04, 2.62953E-04, 2.67609E-04, 2.70567E-04, O32  660
     X 2.70689E-04, 2.68251E-04, 2.66029E-04, 2.60053E-04, 2.61689E-04, O32  670
     X 2.56582E-04, 2.43655E-04, 2.38792E-04, 2.45309E-04, 2.31061E-04, O32  680
     X 2.22837E-04, 2.16440E-04, 2.19032E-04, 1.85634E-04, 1.74638E-04, O32  690
     X 1.51767E-04, 1.38480E-04, 1.32506E-04, 1.28317E-04, 1.26855E-04, O32  700
     X 1.27123E-04, 1.24040E-04, 1.19202E-04, 1.28649E-04, 1.36271E-04, O32  710
     X 1.42080E-04, 1.47804E-04, 1.39534E-04, 1.27284E-04, 1.09554E-04, O32  720
     X 8.69470E-05, 6.72096E-05, 5.23407E-05, 5.12433E-05, 5.15794E-05, O32  730
     X 4.94683E-05, 4.95809E-05, 4.07499E-05, 3.14984E-05, 1.46457E-05, O32  740
     X 6.98660E-06, 1.85313E-05, 5.48879E-05, 1.09447E-04, 1.52536E-04, O32  750
     X 1.78778E-04, 1.91128E-04, 1.99161E-04, 2.02937E-04, 1.95527E-04, O32  760
     X 1.92214E-04, 1.83376E-04, 1.81710E-04, 1.82283E-04, 1.75182E-04, O32  770
     X 1.72406E-04, 1.68170E-04, 1.67400E-04, 1.69469E-04, 1.69092E-04, O32  780
     X 1.65985E-04, 1.66912E-04, 1.74226E-04, 1.85036E-04, 1.85517E-04, O32  790
     X 1.85805E-04, 1.73809E-04, 1.67628E-04, 1.57690E-04, 1.54952E-04/ O32  800
      DATA C20246/                                                      O32  810
     X 1.53707E-04, 1.57710E-04, 1.58175E-04, 1.67253E-04, 1.82079E-04, O32  820
     X 1.91285E-04, 1.96564E-04, 2.03822E-04, 1.93736E-04, 1.82924E-04, O32  830
     X 1.73610E-04, 1.69904E-04, 1.66725E-04, 1.63747E-04, 1.63129E-04, O32  840
     X 1.62435E-04, 1.67218E-04, 1.69507E-04, 1.70744E-04, 1.65839E-04, O32  850
     X 1.72077E-04, 1.67734E-04, 1.51487E-04, 1.43770E-04, 1.37435E-04, O32  860
     X 1.25172E-04, 1.12395E-04, 1.07991E-04, 1.00345E-04, 9.36611E-05, O32  870
     X 9.59763E-05, 9.26600E-05, 1.00120E-04, 1.04746E-04, 1.10222E-04, O32  880
     X 1.03308E-04, 8.97457E-05, 7.91634E-05, 7.50275E-05, 8.30832E-05, O32  890
     X 1.01191E-04, 1.21560E-04, 1.34840E-04, 1.38712E-04, 1.41746E-04, O32  900
     X 1.39578E-04, 1.37052E-04, 1.33850E-04, 1.26641E-04, 1.21342E-04, O32  910
     X 1.17669E-04, 1.25973E-04, 1.33623E-04, 1.33839E-04, 1.24427E-04, O32  920
     X 1.02462E-04, 8.76101E-05, 8.27912E-05, 8.29040E-05, 7.78590E-05, O32  930
     X 7.39042E-05, 6.45765E-05, 5.70151E-05, 5.11846E-05, 4.83163E-05/ O32  940
      DATA C20311/                                                      O32  950
     X                                                     5.4470E-05,  O32  960
     X 5.3312E-05,  5.3135E-05,  5.3619E-05,  5.3686E-05,  5.2308E-05,  O32  970
     X 5.0441E-05,  4.8402E-05,  4.7476E-05,  4.6215E-05,  4.4507E-05,  O32  980
     X 4.3830E-05,  4.0508E-05,  3.8931E-05,  3.5525E-05,  3.4722E-05/  O32  990
      DATA C20327/                                                      O32 1000
     X 3.2743E-05,  2.8456E-05,  2.8318E-05,  2.8132E-05,  2.6221E-05,  O32 1010
     X 2.5673E-05,  2.5521E-05,  2.4588E-05,  2.4093E-05,  2.2787E-05,  O32 1020
     X 2.1241E-05,  1.8553E-05,  1.5871E-05,  1.3462E-05,  1.2553E-05,  O32 1030
     X 1.6276E-05,  2.8296E-05,  3.8817E-05,  4.2733E-05,  4.2429E-05,  O32 1040
     X 4.0954E-05,  3.9868E-05,  3.7669E-05,  3.6312E-05,  3.5535E-05,  O32 1050
     X 3.5895E-05,  3.6349E-05,  3.9033E-05,  4.4512E-05,  5.0066E-05,  O32 1060
     X 5.4572E-05,  5.6710E-05,  5.6615E-05,  5.7520E-05,  5.8034E-05,  O32 1070
     X 5.7927E-05,  5.6027E-05,  5.5242E-05,  5.4974E-05,  5.2927E-05,  O32 1080
     X 5.1638E-05,  5.2027E-05,  5.1420E-05,  5.1618E-05,  5.0253E-05,  O32 1090
     X 5.0509E-05,  4.9376E-05,  5.0135E-05,  4.9191E-05,  4.9210E-05,  O32 1100
     X 4.8216E-05,  4.7487E-05,  4.5749E-05,  4.5884E-05,  4.3852E-05,  O32 1110
     X 4.3824E-05,  4.2612E-05,  4.0349E-05,  4.0177E-05,  3.7474E-05,  O32 1120
     X 3.8120E-05,  3.6915E-05,  3.5823E-05,  3.5186E-05,  3.3638E-05,  O32 1130
     X 3.3451E-05,  3.2428E-05,  3.2349E-05,  3.0183E-05,  2.8436E-05,  O32 1140
     X 2.6440E-05,  2.3597E-05,  2.1875E-05,  1.8164E-05,  1.6430E-05,  O32 1150
     X 1.3159E-05,  9.2907E-06,  7.4243E-06,  6.0469E-06,  5.4951E-06/  O32 1160
      DATA C20407/                                                      O32 1170
     X 8.7642E-06/                                                      O32 1180
      DATA C20001 /                                                     O32 1190
     X 2.16295E-05, 1.69111E-05, 5.39633E-05, 1.01866E-04, 8.28657E-05, O32 1200
     X 9.16593E-05, 8.88666E-05, 1.37764E-04, 1.44322E-04, 1.20659E-04, O32 1210
     X 1.10332E-04, 1.01317E-04, 9.09964E-05, 1.17148E-04, 1.18000E-04, O32 1220
     X 7.21801E-05, 1.10550E-04, 1.32672E-04, 1.02474E-04, 1.10434E-04, O32 1230
     X 1.38759E-04, 8.92135E-05, 9.18239E-05, 9.08256E-05, 7.02969E-05, O32 1240
     X 1.12827E-04, 8.25561E-05, 1.39555E-04, 6.72239E-05, 7.82804E-05, O32 1250
     X 8.56258E-05, 8.61068E-05, 7.16732E-05, 6.25720E-05, 5.23957E-05, O32 1260
     X 3.78801E-05, 4.37281E-05, 4.99821E-05, 5.96976E-05, 7.19070E-05, O32 1270
     X 3.89579E-05, 5.30171E-05, 3.92507E-05, 4.93901E-05, 4.53047E-05, O32 1280
     X 4.89955E-05, 4.61649E-05, 3.75742E-05, 3.14124E-05, 2.37893E-05, O32 1290
     X 3.34899E-06, 3.08080E-05, 5.35883E-05, 3.39838E-05, 7.02334E-05, O32 1300
     X 7.24784E-05, 7.46533E-05, 6.22257E-05, 6.38945E-05, 6.73423E-05, O32 1310
     X 4.51321E-05, 5.91854E-05, 5.51601E-05, 4.41923E-05, 3.59217E-05, O32 1320
     X 4.08520E-05, 6.15981E-05, 6.66549E-05, 8.26031E-05, 1.13556E-04, O32 1330
     X 8.72988E-05, 9.71052E-05, 9.31839E-05, 8.73745E-05, 8.61717E-05, O32 1340
     X 6.05645E-05, 6.51131E-05, 6.93393E-05, 7.01096E-05, 6.43565E-05/ O32 1350
      DATA C20081 /                                                     O32 1360
     X 7.36929E-05, 7.66881E-05, 7.60815E-05, 7.13570E-05, 8.40487E-05, O32 1370
     X 8.51489E-05, 7.54168E-05, 6.72694E-05, 4.75508E-05, 3.59379E-05, O32 1380
     X 4.24698E-05, 4.17850E-05, 4.56047E-05, 4.12779E-05, 4.55933E-05, O32 1390
     X 4.27941E-05, 4.42230E-05, 3.68525E-05, 3.83392E-05, 3.83722E-05, O32 1400
     X 4.64904E-05, 3.33878E-05, 3.53027E-05, 3.54694E-05, 2.36233E-05, O32 1410
     X 2.99641E-05, 2.56097E-05, 2.14134E-05, 2.74403E-05, 2.83896E-05, O32 1420
     X 3.17082E-05, 1.75526E-05, 2.80382E-05, 3.18009E-05, 4.08715E-05, O32 1430
     X 4.77807E-05, 5.00609E-05, 5.12459E-05, 4.44062E-05, 4.74942E-05, O32 1440
     X 4.99882E-05, 5.18837E-05, 5.03246E-05, 5.55168E-05, 5.35853E-05, O32 1450
     X 4.81834E-05, 6.66231E-05, 5.26670E-05, 6.84700E-05, 6.53412E-05, O32 1460
     X 5.71740E-05, 4.61076E-05, 3.90239E-05, 4.72924E-05, 6.32194E-05, O32 1470
     X 5.20868E-05, 4.81039E-05, 3.71748E-05, 4.37492E-05, 3.63959E-05, O32 1480
     X 3.79823E-05, 3.72225E-05, 3.02360E-05, 3.22961E-05, 3.43398E-05, O32 1490
     X 3.57176E-05, 2.65446E-05, 3.29388E-05, 1.65455E-05, 2.66173E-05, O32 1500
     X 1.74277E-05, 1.74324E-05, 1.27879E-05, 1.46247E-05, 1.92378E-05, O32 1510
     X 2.20049E-05, 1.44790E-05, 2.49244E-05, 2.29209E-05, 1.76192E-05/ O32 1520
      DATA C20161 /                                                     O32 1530
     X 1.84528E-05, 2.54350E-05, 3.33972E-05, 3.69190E-05, 2.92139E-05, O32 1540
     X 2.47666E-05, 2.86764E-05, 1.48163E-05, 1.80461E-05, 2.84545E-05, O32 1550
     X 2.41064E-05, 2.85721E-05, 3.31996E-05, 3.75973E-05, 3.73874E-05, O32 1560
     X 4.69293E-05, 5.12665E-05, 5.35607E-05, 4.64577E-05, 3.59887E-05, O32 1570
     X 3.39168E-05, 3.89746E-05, 3.12196E-05, 3.70907E-05, 3.95172E-05, O32 1580
     X 4.61642E-05, 4.26029E-05, 4.17856E-05, 4.51437E-05, 4.04189E-05, O32 1590
     X 4.19251E-05, 4.53977E-05, 3.69860E-05, 4.20904E-05, 3.69735E-05, O32 1600
     X 3.57898E-05, 3.47729E-05, 3.14280E-05, 2.71197E-05, 3.34380E-05, O32 1610
     X 2.69843E-05, 2.88036E-05, 2.51912E-05, 2.45699E-05, 2.23184E-05, O32 1620
     X 2.50563E-05, 2.24493E-05, 1.77101E-05, 1.64763E-05, 1.34978E-05, O32 1630
     X 1.57081E-05, 1.45966E-05, 1.02722E-05, 2.07177E-05, 1.47662E-05, O32 1640
     X 1.50721E-05, 1.24431E-05, 1.51572E-05, 1.92210E-05, 2.06047E-05, O32 1650
     X 2.02921E-05, 3.22062E-05, 2.37112E-05, 1.94803E-05, 2.40726E-05, O32 1660
     X 2.11531E-05, 1.89158E-05, 2.46957E-05, 2.63175E-05, 2.57747E-05, O32 1670
     X 2.22047E-05, 2.52755E-05, 2.80848E-05, 3.75157E-05, 4.09915E-05, O32 1680
     X 4.04853E-05, 3.21661E-05, 3.15652E-05, 3.21576E-05, 3.67060E-05/ O32 1690
      DATA C20241 /                                                     O32 1700
     X 3.13071E-05, 2.84939E-05, 2.71169E-05, 2.99559E-05, 2.94631E-05, O32 1710
     X 3.26716E-05, 2.99028E-05, 2.60045E-05, 3.15375E-05, 3.12895E-05, O32 1720
     X 2.77767E-05, 2.43976E-05, 2.10764E-05, 2.22725E-05, 2.04581E-05, O32 1730
     X 1.63509E-05, 1.60028E-05, 1.60294E-05, 1.62366E-05, 1.89293E-05, O32 1740
     X 1.79675E-05, 1.89259E-05, 1.68300E-05, 1.99460E-05, 2.42370E-05, O32 1750
     X 2.64738E-05, 1.93137E-05, 1.39460E-05, 1.32222E-05, 1.38752E-05, O32 1760
     X 1.62071E-05, 1.79652E-05, 1.63772E-05, 1.56251E-05, 1.81918E-05, O32 1770
     X 1.46111E-05, 2.92174E-05, 2.94263E-05, 2.46180E-05, 2.93333E-05, O32 1780
     X 3.13657E-05, 2.97686E-05, 2.78387E-05, 2.40924E-05, 2.93369E-05, O32 1790
     X 2.93747E-05, 2.77665E-05, 3.00814E-05, 3.01068E-05, 3.62275E-05, O32 1800
     X 3.56613E-05, 3.66913E-05, 3.56280E-05, 3.52856E-05, 3.63928E-05, O32 1810
     X 2.96738E-05, 2.90314E-05, 2.62972E-05, 2.15250E-05, 1.97910E-05, O32 1820
     X 2.02314E-05, 2.20209E-05, 2.05131E-05, 2.12017E-05, 1.96689E-05, O32 1830
     X 1.61907E-05, 1.57662E-05, 1.58239E-05, 1.54650E-05, 1.46376E-05, O32 1840
     X 1.32891E-05, 1.30511E-05, 1.17635E-05, 1.28585E-05, 1.12887E-05, O32 1850
     X 1.32627E-05, 1.31833E-05, 1.68679E-05, 1.98092E-05, 2.70744E-05/ O32 1860
      DATA C20321 /                                                     O32 1870
     X 2.22033E-05, 1.63430E-05, 1.61104E-05, 1.50865E-05, 1.54382E-05, O32 1880
     X 1.55654E-05, 1.67924E-05, 1.89185E-05, 1.96791E-05, 2.14894E-05, O32 1890
     X 2.76137E-05, 2.67339E-05, 2.79423E-05, 2.54664E-05, 3.10707E-05, O32 1900
     X 2.72745E-05, 2.60940E-05, 2.47736E-05, 2.21105E-05, 2.20357E-05, O32 1910
     X 2.26499E-05, 2.34137E-05, 2.29537E-05, 2.36157E-05, 2.48244E-05, O32 1920
     X 2.26667E-05, 2.07781E-05, 2.11702E-05, 1.91214E-05, 1.62172E-05, O32 1930
     X 1.61285E-05, 1.63952E-05, 1.68156E-05, 1.61236E-05, 1.56611E-05, O32 1940
     X 1.47697E-05, 1.50856E-05, 1.44169E-05, 1.63816E-05, 1.74283E-05, O32 1950
     X 1.49853E-05, 1.62444E-05, 1.70007E-05, 1.60371E-05, 1.22713E-05, O32 1960
     X 1.45518E-05, 1.35051E-05, 1.40787E-05,-1.54925E-05,-2.15204E-05, O32 1970
     X-4.04516E-06, 2.22439E-05, 3.21262E-05, 3.83792E-05, 4.44462E-05, O32 1980
     X 4.44192E-05, 2.77328E-05, 4.10549E-06, 4.48758E-06,-1.27771E-05, O32 1990
     X-2.17204E-05,-1.23979E-05,-1.04928E-05, 7.43085E-06, 1.55350E-05, O32 2000
     X 3.15204E-05, 3.17601E-05, 2.93677E-05, 3.42485E-05, 3.87087E-05, O32 2010
     X 3.61242E-05, 2.62406E-05, 3.31686E-05, 3.54314E-05, 2.50625E-05, O32 2020
     X 2.60444E-05, 4.10729E-05, 3.47247E-05, 3.31716E-05, 3.34778E-05/ O32 2030
      DATA C20401 /                                                     O32 2040
     X 4.03029E-05, 4.09241E-05, 3.96717E-05, 3.53410E-05, 2.81048E-05, O32 2050
     X 1.98891E-05, 1.92314E-05, 2.82525E-05, 3.76641E-05, 4.34135E-05, O32 2060
     X 4.24570E-05, 3.98429E-05, 3.29417E-05, 2.16679E-05, 8.88085E-06, O32 2070
     X-5.05319E-06,-8.14815E-06,-5.01930E-06, 7.13565E-06, 2.00949E-05, O32 2080
     X 2.65988E-05, 2.77656E-05, 2.09299E-05, 1.98968E-05, 2.04835E-05, O32 2090
     X 1.75254E-05, 6.48674E-06, 3.14323E-06, 1.93242E-06, 3.86745E-06, O32 2100
     X 1.39727E-05, 2.10731E-05, 2.66432E-05, 2.69551E-05, 2.57453E-05, O32 2110
     X 2.72834E-05, 2.58860E-05, 2.51266E-05, 1.76048E-05, 2.03072E-05, O32 2120
     X 2.61960E-05, 2.36230E-05, 1.81172E-05, 1.33972E-05, 1.60959E-05, O32 2130
     X 1.61081E-05, 2.34099E-05, 2.64979E-05, 2.36894E-05, 2.13665E-05, O32 2140
     X 2.16774E-05, 2.52566E-05, 1.99785E-05, 1.40414E-05, 1.39948E-05, O32 2150
     X 1.32637E-05, 7.24742E-06, 1.11395E-06,-1.27323E-06, 4.56637E-07, O32 2160
     X 6.93250E-06, 5.07198E-06, 7.90632E-06, 9.08149E-06, 1.03602E-05, O32 2170
     X 2.17425E-05, 2.71741E-05, 2.16875E-05, 1.95088E-05, 1.56568E-05, O32 2180
     X 8.41152E-06, 1.26749E-05, 1.17673E-05, 9.96037E-06, 1.21982E-05, O32 2190
     X 1.31854E-05, 1.50216E-05, 1.72214E-05, 2.02773E-05, 2.09625E-05/ O32 2200
      DATA C20481 /                                                     O32 2210
     X 1.66656E-05, 1.45666E-05, 1.66608E-05, 2.04989E-05, 2.21395E-05, O32 2220
     X 2.35993E-05, 2.69390E-05, 2.13921E-05, 1.72643E-05, 1.70995E-05, O32 2230
     X 1.78241E-05, 1.85308E-05, 1.80360E-05, 1.48619E-05, 1.90369E-05, O32 2240
     X 1.51089E-05, 1.22705E-05, 1.62608E-05, 1.41637E-05, 1.23786E-05, O32 2250
     X 7.02677E-06, 8.89811E-06, 1.07379E-05, 1.23677E-05, 1.48196E-05, O32 2260
     X 2.05770E-05, 1.70994E-05, 1.00072E-05, 1.76119E-05, 1.41779E-05, O32 2270
     X 1.34358E-05, 1.58674E-05, 1.65837E-05, 1.69569E-05, 1.40381E-05, O32 2280
     X 1.46118E-05, 1.30556E-05, 1.97204E-05, 1.97488E-05, 1.64524E-05, O32 2290
     X 1.73764E-05, 1.66355E-05, 1.64419E-05, 1.65486E-05, 1.21523E-05, O32 2300
     X 1.51513E-05, 1.60354E-05, 1.38528E-05, 1.45538E-05, 1.71702E-05, O32 2310
     X 1.56336E-05, 1.31279E-05, 1.47346E-05, 1.70719E-05, 1.75588E-05, O32 2320
     X 1.55187E-05, 1.29598E-05, 1.38463E-05, 1.35382E-05, 1.16062E-05, O32 2330
     X 1.37014E-05, 1.34487E-05, 1.15536E-05, 1.33597E-05, 9.24478E-06, O32 2340
     X 7.28477E-06, 1.40321E-05, 1.31518E-05, 1.03118E-05, 8.59764E-06, O32 2350
     X 1.57138E-05, 1.20792E-05, 1.49440E-05, 1.34375E-05, 1.54686E-05, O32 2360
     X 1.65346E-05, 1.33823E-05, 1.37238E-05, 1.36128E-05, 1.46206E-05/ O32 2370
      DATA C20561 /                                                     O32 2380
     X 1.40777E-05, 1.59980E-05, 1.30180E-05, 1.01390E-05, 1.12366E-05, O32 2390
     X 9.86099E-06, 1.10702E-05, 1.26783E-05, 9.51072E-06, 8.07299E-06, O32 2400
     X 1.22955E-05, 1.53506E-05, 1.29711E-05, 9.78759E-06, 1.28800E-05, O32 2410
     X 1.39702E-05, 1.64832E-05, 1.06473E-05, 1.15419E-05, 1.63795E-05, O32 2420
     X 1.69837E-05, 1.72726E-05, 1.77231E-05, 1.62337E-05, 1.20881E-05, O32 2430
     X 1.13210E-05, 1.20531E-05, 1.31374E-05, 1.22259E-05, 1.27802E-05, O32 2440
     X 1.38962E-05, 8.87355E-06, 9.42264E-06, 1.02075E-05, 7.91816E-06, O32 2450
     X 9.66835E-06, 1.24921E-05, 8.43227E-06, 1.10637E-05, 1.03958E-05, O32 2460
     X 9.40996E-06, 1.22922E-05, 1.21088E-05, 1.30116E-05, 1.18776E-05, O32 2470
     X 1.42245E-05, 1.34745E-05, 1.11165E-05, 1.29914E-05, 1.29801E-05, O32 2480
     X 1.10895E-05, 1.12331E-05, 9.03490E-06, 9.33726E-06, 9.63923E-06, O32 2490
     X 1.11299E-05, 9.53481E-06, 1.21708E-05, 1.11951E-05, 7.22558E-06, O32 2500
     X 6.66928E-06, 1.08926E-05, 1.07870E-05, 9.23485E-06, 8.50452E-06, O32 2510
     X 9.41914E-06, 8.74027E-06, 8.93322E-06, 9.79061E-06, 8.26490E-06, O32 2520
     X 8.37630E-06, 1.17064E-05, 1.10176E-05, 1.11587E-05, 9.45563E-06, O32 2530
     X 1.18352E-05, 7.79327E-06, 9.22766E-06, 1.01868E-05, 8.23925E-06/ O32 2540
      DATA C20641 /                                                     O32 2550
     X 9.23706E-06, 1.04428E-05, 8.80392E-06, 9.37098E-06, 7.43126E-06, O32 2560
     X 7.01424E-06, 9.29360E-06, 8.97171E-06, 9.31718E-06, 9.87118E-06, O32 2570
     X 8.11419E-06, 8.77416E-06, 9.96927E-06, 8.87533E-06, 9.33163E-06, O32 2580
     X 7.41505E-06, 9.39988E-06, 1.17932E-05, 1.03287E-05, 9.17415E-06, O32 2590
     X 8.43035E-06, 8.00040E-06, 8.33346E-06, 7.66787E-06, 7.18411E-06, O32 2600
     X 1.06236E-05, 1.05559E-05, 8.49187E-06, 9.22472E-06, 8.16512E-06, O32 2610
     X 8.35687E-06, 1.06325E-05, 9.80273E-06, 9.01599E-06, 9.20499E-06, O32 2620
     X 9.98417E-06, 9.23191E-06, 6.98769E-06, 5.17748E-06, 4.57130E-06, O32 2630
     X 8.18492E-06, 9.98095E-06, 7.52148E-06, 1.33038E-05, 8.17630E-06, O32 2640
     X 1.02454E-05, 9.62706E-06, 9.44304E-06, 8.86704E-06, 8.88116E-06, O32 2650
     X 8.79062E-06, 8.20042E-06, 8.55789E-06, 9.26249E-06, 1.00467E-05, O32 2660
     X 7.96012E-06, 9.08773E-06, 1.01481E-05, 8.84360E-06, 7.94928E-06, O32 2670
     X 6.68425E-06, 8.56576E-06, 1.05282E-05, 1.10647E-05, 9.91625E-06, O32 2680
     X 7.95356E-06, 8.66443E-06, 9.13551E-06, 1.04870E-05, 9.79244E-06, O32 2690
     X 1.26214E-05, 8.42148E-06, 8.13468E-06, 1.11338E-05, 1.06780E-05, O32 2700
     X 8.54578E-06, 7.82119E-06, 8.33258E-06, 8.23644E-06, 5.95583E-06/ O32 2710
      DATA C20721 /                                                     O32 2720
     X 5.85592E-06, 4.05898E-06, 6.39260E-06, 8.43280E-06, 8.76251E-06, O32 2730
     X 6.70423E-06, 6.81368E-06, 7.43506E-06, 7.14376E-06, 6.51065E-06, O32 2740
     X 5.65633E-06, 5.42394E-06, 7.10817E-06, 4.78831E-06, 6.29380E-06, O32 2750
     X 4.87344E-06, 6.81764E-06, 6.51611E-06, 5.70526E-06, 6.50590E-06, O32 2760
     X 6.61568E-06, 5.39248E-06, 6.32002E-06, 7.98976E-06, 7.73795E-06, O32 2770
     X 4.85788E-06, 5.83443E-06, 6.11694E-06, 5.40408E-06, 5.00946E-06, O32 2780
     X 5.62153E-06, 6.30263E-06, 6.05764E-06, 5.53274E-06, 5.80664E-06, O32 2790
     X 5.18684E-06, 6.85555E-06, 6.22889E-06, 6.06959E-06, 6.49228E-06, O32 2800
     X 5.64064E-06, 4.92690E-06, 5.77661E-06, 7.18450E-06, 7.38658E-06, O32 2810
     X 6.77379E-06, 5.74668E-06, 6.68355E-06, 6.13655E-06, 6.43266E-06, O32 2820
     X 7.08896E-06, 7.71187E-06, 7.37273E-06, 6.75882E-06, 6.39307E-06, O32 2830
     X 4.59520E-06, 5.10323E-06, 5.80178E-06, 6.88172E-06, 6.68825E-06, O32 2840
     X 7.50416E-06, 6.14975E-06, 6.51422E-06, 7.74942E-06, 8.11492E-06, O32 2850
     X 1.19607E-05, 7.92722E-06, 4.47848E-06, 6.02524E-06, 9.74067E-06, O32 2860
     X 1.02429E-05, 8.60819E-06, 8.57044E-06, 1.09196E-05, 1.02048E-05, O32 2870
     X 3.86222E-06, 9.26104E-06, 7.33341E-06, 9.08181E-06, 1.05569E-05/ O32 2880
      DATA C20801 /                                                     O32 2890
     X 1.06776E-05, 1.10247E-05, 1.04520E-05, 8.78328E-06, 7.60679E-06, O32 2900
     X 7.27896E-06, 9.72776E-06, 5.16039E-06, 1.03134E-05, 1.09088E-05, O32 2910
     X 8.12575E-06, 7.61685E-06, 8.16346E-06, 5.91269E-06, 3.61448E-06, O32 2920
     X 8.74336E-06, 1.03990E-05, 6.25691E-06, 7.04541E-06, 7.94348E-06, O32 2930
     X 8.39807E-06, 8.67342E-06, 8.32173E-06, 7.56015E-06, 8.31782E-06, O32 2940
     X 6.36556E-06, 6.99328E-06, 6.24490E-06, 6.73080E-06, 6.95852E-06, O32 2950
     X 7.55508E-06, 7.74168E-06, 7.90414E-06, 8.94934E-06, 7.99809E-06, O32 2960
     X 6.12528E-06, 9.04115E-06, 7.14535E-06, 5.88625E-06, 6.43941E-06, O32 2970
     X 7.11566E-06, 7.47425E-06, 8.23805E-06, 6.19919E-06, 7.31614E-06, O32 2980
     X 8.24852E-06, 6.82172E-06, 5.45362E-06, 6.66115E-06, 8.44300E-06, O32 2990
     X 8.07530E-06, 7.22735E-06, 5.85614E-06, 5.13900E-06, 6.03215E-06, O32 3000
     X 6.59491E-06, 4.81592E-06, 4.48587E-06, 7.11525E-06, 8.36201E-06, O32 3010
     X 7.11669E-06, 2.80033E-06, 6.50756E-06, 9.43974E-06, 5.22402E-06, O32 3020
     X 3.82334E-06, 7.29963E-06, 8.62313E-06, 7.42018E-06, 4.56506E-06, O32 3030
     X 5.29972E-06, 5.62787E-06, 4.63852E-06, 5.18329E-06, 7.01884E-06, O32 3040
     X 7.24888E-06, 5.18157E-06, 5.40219E-06, 5.92412E-06, 4.97977E-06/ O32 3050
      DATA C20881 /                                                     O32 3060
     X 5.29040E-06, 5.33812E-06, 4.76620E-06, 4.65759E-06, 5.10546E-06, O32 3070
     X 6.49525E-06, 4.43416E-06, 5.30223E-06, 3.27044E-06, 2.55324E-06, O32 3080
     X 4.85017E-06, 7.46556E-06, 8.04448E-06, 5.14009E-06, 6.09755E-06, O32 3090
     X 5.38381E-06, 6.41959E-06, 6.59233E-06, 4.83160E-06, 3.81289E-06, O32 3100
     X 5.37013E-06, 5.69212E-06, 5.54983E-06, 5.73495E-06, 4.00639E-06, O32 3110
     X 2.33817E-06, 2.55751E-06, 3.29627E-06, 3.59845E-06, 6.20623E-06, O32 3120
     X 4.47088E-06, 3.49267E-06, 3.09273E-06, 3.32506E-06, 4.83353E-06, O32 3130
     X 6.39001E-06, 3.78074E-06, 4.07848E-06, 4.01811E-06, 3.19767E-06, O32 3140
     X 3.34053E-06, 4.34246E-06, 3.68003E-06, 3.01090E-06, 3.98545E-06, O32 3150
     X 2.72338E-06, 1.90024E-06, 2.77553E-06, 3.73381E-06, 2.58685E-06, O32 3160
     X 1.70987E-06,-5.48480E-07, 1.64591E-06, 2.43481E-06, 2.52116E-06, O32 3170
     X 2.19316E-06, 1.32392E-06, 1.75370E-06, 2.65409E-07, 2.22278E-06, O32 3180
     X 2.53079E-06, 2.87260E-06, 1.87600E-06,-3.84453E-07, 1.80836E-06, O32 3190
     X 9.28123E-07, 1.94986E-06, 2.40483E-06, 2.79865E-06, 2.86361E-06, O32 3200
     X 2.63868E-06, 3.34704E-06, 3.32132E-06, 2.58463E-06, 2.45684E-06, O32 3210
     X 3.35043E-06, 3.19848E-06, 1.73037E-06, 2.98206E-06, 2.77491E-06/ O32 3220
      DATA C20961 /                                                     O32 3230
     X 6.51674E-07, 2.52219E-06, 2.97136E-06, 1.96700E-06, 2.29350E-06, O32 3240
     X 3.01956E-06, 3.20811E-06, 1.30467E-06, 1.68172E-06, 2.56264E-06, O32 3250
     X 2.46167E-06, 1.78221E-06, 2.31647E-06, 2.69480E-06, 2.63619E-06, O32 3260
     X 1.81319E-06, 1.83448E-06, 2.23432E-06, 8.14045E-07, 8.75863E-07, O32 3270
     X 1.61350E-06, 1.59796E-06, 2.08419E-06, 1.89665E-06, 6.93584E-07, O32 3280
     X 1.09880E-06, 3.79031E-07,-3.36470E-07, 1.04326E-06, 1.06497E-06, O32 3290
     X 2.15108E-07, 3.28774E-07,-5.17613E-07, 1.27762E-06, 8.22924E-07, O32 3300
     X 4.92835E-07, 2.24698E-08,-1.99111E-07, 1.30262E-06,-3.81299E-07, O32 3310
     X 9.55084E-07, 2.17641E-07,-6.03874E-08, 8.44121E-07, 1.72391E-06, O32 3320
     X 1.66921E-06, 2.19855E-06, 1.17655E-06, 1.79637E-06, 3.31670E-06, O32 3330
     X 3.40206E-06, 6.05670E-07, 2.08299E-06, 2.10121E-06, 1.68598E-06, O32 3340
     X 2.21155E-06, 2.43221E-06, 5.81282E-08, 1.62613E-06,-5.49850E-07, O32 3350
     X 2.14143E-07, 1.21751E-06, 2.30470E-06, 4.27911E-06, 2.96622E-06, O32 3360
     X 8.67534E-07, 9.12041E-07, 2.48797E-06, 9.43519E-07,-3.60949E-06, O32 3370
     X 2.01928E-06, 1.88873E-06, 8.06749E-07, 7.33519E-07, 1.17440E-06, O32 3380
     X 1.69744E-06, 3.64492E-06, 3.11556E-06, 8.89471E-07, 1.93064E-06/ O32 3390
      DATA C21041 /                                                     O32 3400
     X 3.02787E-06, 1.92575E-06, 1.73720E-06,-1.32700E-07, 1.41743E-06, O32 3410
     X 2.24632E-06, 2.47945E-06, 2.05151E-06,-9.56031E-07, 2.57317E-07, O32 3420
     X 3.00980E-06, 3.07981E-06, 2.78202E-06, 3.02555E-06, 5.48784E-09, O32 3430
     X 2.37693E-06, 2.90011E-06, 2.93608E-06, 2.14837E-06, 6.55832E-07, O32 3440
     X 3.41155E-07,-2.13884E-06, 2.52553E-06, 4.27109E-06, 3.33766E-06, O32 3450
     X 3.07708E-06, 2.66405E-06, 3.22850E-06,-5.78879E-07,-6.06194E-07, O32 3460
     X 1.72864E-06, 1.57072E-06,-3.39701E-07, 7.21540E-08, 1.67012E-06, O32 3470
     X 2.48568E-06, 2.70214E-06, 3.62383E-06, 2.20408E-06, 1.19395E-06, O32 3480
     X 1.53825E-06, 2.37511E-06, 2.66754E-06, 1.77020E-06, 5.40420E-07, O32 3490
     X 2.01156E-06, 3.27498E-06, 3.04720E-06, 1.96213E-06, 3.71633E-06, O32 3500
     X 2.07886E-06, 1.60069E-06, 5.33370E-07, 1.33966E-07, 2.16073E-06, O32 3510
     X 8.81457E-07, 1.12880E-06, 2.40509E-06, 2.94252E-06, 2.22899E-06, O32 3520
     X 1.80941E-06, 2.68577E-06, 2.44584E-06, 2.51720E-06, 2.64857E-06, O32 3530
     X 2.24182E-06, 1.62007E-06, 2.60421E-06, 3.09782E-06, 3.11099E-06, O32 3540
     X 3.81513E-06, 6.91606E-06, 3.28767E-06, 3.44175E-06, 4.16771E-06, O32 3550
     X 3.75452E-06, 2.21050E-06, 2.99939E-06, 2.86993E-06, 2.47080E-06/ O32 3560
      DATA C21121 /                                                     O32 3570
     X 2.33607E-06, 2.68568E-06, 3.39344E-06, 6.09518E-06, 5.10422E-06, O32 3580
     X 4.04027E-06, 4.01363E-06, 4.53142E-06, 2.94424E-06, 4.76694E-06, O32 3590
     X 6.44206E-06, 7.86435E-06, 8.55564E-06, 6.00857E-06, 5.48073E-06, O32 3600
     X 1.56287E-06,-1.16619E-06,-1.85215E-06,-3.04762E-06,-3.45420E-07, O32 3610
     X 2.48111E-07,-1.39302E-07,-6.27593E-07,-5.26792E-07, 4.81454E-08, O32 3620
     X-3.08631E-08,-1.02976E-06,-1.54919E-06,-9.34044E-07,-1.02507E-06, O32 3630
     X-1.39794E-06,-1.15709E-06,-1.04875E-06,-1.64379E-06,-2.97514E-06, O32 3640
     X-3.22236E-07,-1.18978E-06,-2.85325E-06,-3.93143E-06,-4.15349E-06, O32 3650
     X-2.33228E-06,-3.27125E-06,-2.44987E-06,-1.44460E-06,-3.59727E-06, O32 3660
     X-7.18516E-07,-1.53237E-06,-1.53526E-06,-1.56450E-06,-2.91088E-06, O32 3670
     X-8.52134E-07,-1.44575E-07,-1.50350E-06,-2.92806E-06,-2.47710E-06, O32 3680
     X-9.71202E-07,-9.82754E-07,-1.09924E-06,-6.08199E-07, 3.62885E-07, O32 3690
     X-6.67372E-07,-1.00033E-06,-1.12001E-06,-1.06624E-06,-9.23789E-07, O32 3700
     X-9.83788E-07,-2.11656E-06,-2.45001E-06,-2.75874E-06,-3.36003E-06, O32 3710
     X-3.38364E-06,-2.63747E-06,-3.11047E-06,-3.75258E-06,-3.83211E-06, O32 3720
     X-3.52833E-06,-3.48464E-06,-3.77021E-06,-4.26887E-06,-4.23917E-06/ O32 3730
      DATA C21201 /                                                     O32 3740
     X-1.42438E-06,-2.48477E-06,-2.84719E-06,-2.70247E-06,-2.50588E-06, O32 3750
     X-2.22900E-06,-1.78393E-06,-1.76826E-06,-2.16396E-06,-2.67543E-06, O32 3760
     X-2.23706E-06,-2.31793E-06,-2.87590E-06,-3.07803E-06,-2.50493E-06, O32 3770
     X-4.54223E-06,-5.15511E-06,-5.39690E-06,-4.89633E-06,-3.33710E-06, O32 3780
     X-4.56583E-06,-4.78877E-06,-3.93508E-06,-3.29027E-06,-4.95668E-06, O32 3790
     X-6.01801E-06,-5.76016E-06,-5.34657E-06,-5.29080E-06,-5.57133E-06, O32 3800
     X-5.73135E-06,-5.39374E-06,-5.09808E-06,-5.12874E-06,-5.20269E-06, O32 3810
     X-7.30702E-06,-7.04220E-06,-5.96514E-06,-5.74802E-06,-4.53961E-06, O32 3820
     X-4.42127E-06,-4.63922E-06,-4.80622E-06,-4.69659E-06,-5.96786E-06, O32 3830
     X-6.29800E-06,-4.75452E-06,-2.85907E-06,-5.33662E-06,-5.31681E-06, O32 3840
     X-5.04646E-06,-5.21729E-06,-5.93409E-06,-5.73462E-06,-5.44926E-06, O32 3850
     X-6.43325E-06,-7.74451E-06,-7.83147E-06,-5.51568E-06,-7.37048E-06, O32 3860
     X-4.25726E-06, 2.32917E-06,-5.61131E-07, 2.05234E-06, 3.74631E-07, O32 3870
     X-7.66493E-07, 1.42689E-06,-7.79683E-07, 9.06809E-07, 5.13642E-07, O32 3880
     X-1.52504E-06,-2.12058E-06,-2.50316E-06, 1.03637E-08, 5.60002E-07, O32 3890
     X-1.48075E-06, 1.94155E-06, 1.91846E-06, 2.78507E-06, 3.90146E-06/ O32 3900
      DATA C21281 /                                                     O32 3910
     X 3.61409E-06, 3.23677E-06, 4.00022E-06, 3.19157E-06, 4.03034E-07, O32 3920
     X-2.03929E-06, 1.23366E-06, 3.28589E-06, 3.94168E-06, 3.94672E-06, O32 3930
     X 3.84619E-06, 2.30400E-07,-2.07799E-06,-1.75115E-06,-5.71958E-07, O32 3940
     X 2.33425E-06, 2.01664E-06, 6.05673E-07, 9.57363E-07,-8.89924E-07, O32 3950
     X-4.71331E-07, 2.82826E-07, 5.10859E-07, 3.63512E-07, 9.86288E-07, O32 3960
     X-4.86309E-07,-2.23163E-06,-1.23370E-06,-2.43131E-07,-2.11498E-06, O32 3970
     X-1.56756E-06, 2.70905E-06, 1.87606E-08, 7.83721E-08, 1.58444E-06, O32 3980
     X 2.88574E-06, 1.40306E-06, 2.40883E-06, 2.84063E-06, 3.13820E-06, O32 3990
     X 3.71016E-06, 3.12975E-06, 3.21981E-06, 2.56191E-06, 1.04624E-06, O32 4000
     X 1.87464E-07, 7.25329E-07, 1.03650E-06, 7.23663E-07,-4.18739E-07, O32 4010
     X 9.95744E-07,-1.80878E-07,-1.04044E-06, 3.86965E-07,-9.36186E-07, O32 4020
     X-4.02271E-07,-2.00231E-07,-5.94965E-07, 4.94038E-07, 3.34585E-07, O32 4030
     X 4.82255E-07, 1.12599E-06, 2.11763E-06, 2.66807E-07, 2.29324E-07, O32 4040
     X 7.07005E-07, 3.41907E-07,-1.17115E-07, 9.03089E-07, 1.76844E-06, O32 4050
     X 1.87134E-06, 2.64057E-06, 4.00395E-07,-4.19679E-07, 6.30769E-07, O32 4060
     X 1.02725E-06, 1.05876E-06,-4.08660E-07,-2.32668E-06,-2.73468E-06/ O32 4070
      DATA C21361 /                                                     O32 4080
     X-2.40600E-06,-1.81203E-06,-7.96431E-07, 7.40789E-07, 2.73188E-07, O32 4090
     X 1.68367E-07,-1.27227E-07,-1.05041E-06,-3.51726E-06,-1.64956E-06, O32 4100
     X-5.63840E-07,-1.61242E-06,-1.33264E-06, 1.56604E-06, 2.35083E-06, O32 4110
     X 9.26708E-07, 5.41983E-07, 3.54277E-07, 8.53743E-07, 1.54196E-06, O32 4120
     X 1.19902E-06, 1.10552E-06, 1.63179E-06, 1.96366E-06, 7.82848E-07, O32 4130
     X-3.34741E-08,-7.90842E-07,-6.45131E-07, 1.36158E-06, 1.62453E-06, O32 4140
     X 6.68965E-07,-4.86203E-08, 6.83561E-07, 1.89652E-06,-2.80988E-07, O32 4150
     X-2.30536E-06,-1.90777E-06, 1.31617E-06, 1.27309E-06, 5.90825E-07, O32 4160
     X 5.65686E-07, 1.23631E-07,-1.70279E-06,-1.60768E-06, 9.69543E-07, O32 4170
     X 1.01108E-07,-2.02473E-06,-1.75146E-06, 6.33201E-07,-3.59110E-06, O32 4180
     X-9.71706E-07, 9.16822E-07, 1.40681E-07,-7.16745E-07,-2.11376E-06, O32 4190
     X-1.00951E-06, 2.12465E-06, 1.06982E-06, 1.44032E-06, 1.49692E-06, O32 4200
     X 1.07277E-06, 1.37006E-06, 1.66932E-06, 1.75820E-06, 1.41859E-06, O32 4210
     X-5.84947E-08, 2.17349E-06, 4.27053E-06, 5.27286E-06, 5.87085E-06, O32 4220
     X 2.42692E-06, 2.39305E-06, 6.19573E-06, 5.12518E-06, 1.27171E-06, O32 4230
     X-6.81963E-07, 4.16199E-08,-1.36608E-06,-2.53272E-06,-2.37700E-06/ O32 4240
      DATA C21441 /                                                     O32 4250
     X-7.96719E-07, 3.85367E-07,-1.08393E-07,-9.04587E-07,-1.54917E-06, O32 4260
     X-3.11945E-06,-5.58484E-07, 1.61347E-06, 1.11736E-06, 2.11889E-06, O32 4270
     X 2.43534E-06, 1.46709E-06,-1.05429E-06, 1.09978E-06, 7.22493E-07, O32 4280
     X 8.53307E-08, 1.22733E-06, 2.99380E-06, 3.62416E-06, 3.81404E-06, O32 4290
     X 4.46735E-06, 4.70753E-06, 4.54494E-06, 3.83002E-06, 2.28067E-06, O32 4300
     X 2.03102E-06, 2.43844E-06, 2.93132E-06, 2.17555E-06, 3.92919E-06, O32 4310
     X 3.53089E-06, 1.61388E-06, 5.09498E-06, 3.40067E-06, 1.58876E-06, O32 4320
     X 1.17367E-06, 1.13344E-06, 1.17798E-06, 1.10976E-06, 7.90635E-07, O32 4330
     X-4.15989E-07,-1.00581E-06,-9.60236E-07,-1.79111E-07,-5.70733E-07, O32 4340
     X 1.49766E-06, 3.44374E-06, 6.45914E-07, 1.00532E-06, 2.01068E-06, O32 4350
     X 2.59092E-06, 9.35770E-08, 6.00121E-07, 1.54409E-06, 2.03537E-06, O32 4360
     X 8.10358E-07, 1.34126E-06, 1.88873E-06, 1.43283E-06,-2.05029E-07, O32 4370
     X-1.09782E-06,-6.56149E-07, 2.01650E-06, 1.84770E-06, 4.39586E-08, O32 4380
     X-2.03588E-06,-1.46366E-06,-3.45189E-07, 4.02577E-07, 3.10362E-07, O32 4390
     X-2.16073E-06,-1.91861E-06,-2.90520E-07, 2.03692E-06, 3.47996E-06, O32 4400
     X 4.21761E-06, 3.89000E-06, 1.86138E-06, 1.56143E-06, 4.88964E-07/ O32 4410
      DATA C21521 /                                                     O32 4420
     X-9.28184E-07,-4.34315E-07, 8.74954E-07, 1.58417E-06, 1.36880E-06, O32 4430
     X 2.65016E-06, 4.62623E-06, 5.81990E-06, 4.72139E-06, 1.95905E-06, O32 4440
     X 1.54151E-06, 2.95768E-06, 4.71536E-06, 2.62359E-06, 9.11513E-07, O32 4450
     X 4.75677E-07,-1.53801E-06,-2.32382E-06,-2.25220E-06,-1.46641E-06, O32 4460
     X-2.23014E-06,-2.12604E-06,-1.66259E-06,-2.48856E-06,-2.38895E-06, O32 4470
     X-2.18158E-06,-1.95841E-06, 4.43899E-07, 1.08517E-06, 1.66370E-07, O32 4480
     X-2.42342E-06,-7.19331E-07, 3.19532E-07, 3.58690E-07,-2.01979E-07, O32 4490
     X 5.07242E-07, 1.10562E-06, 1.00419E-06, 1.22379E-06, 7.05180E-07, O32 4500
     X 1.42283E-07, 8.61092E-07, 8.95236E-07, 1.18043E-07,-1.23589E-06, O32 4510
     X-6.16316E-07,-1.18947E-06,-1.45838E-06,-1.47522E-09, 1.33867E-06, O32 4520
     X 9.18310E-07,-8.98949E-07,-2.27314E-06,-1.71510E-06,-7.16704E-07, O32 4530
     X 8.60666E-09, 5.68015E-07, 1.31219E-06, 1.75478E-06, 5.11790E-07, O32 4540
     X 3.35270E-07, 5.39243E-07, 9.08467E-07, 1.39382E-06, 1.08806E-06, O32 4550
     X 1.18589E-06, 3.58461E-06, 2.78668E-06, 1.25964E-06,-2.72255E-07, O32 4560
     X 1.72305E-06, 1.82937E-06, 7.46252E-07,-1.10555E-06, 2.24967E-07, O32 4570
     X 6.45674E-07,-1.87591E-07,-8.84068E-07,-1.75433E-06,-2.17670E-06/ O32 4580
      DATA C21601 /                                                     O32 4590
     X-1.37112E-06,-2.31722E-06,-2.23860E-06,-1.16796E-06,-2.23765E-06, O32 4600
     X-1.86406E-06,-1.03517E-06,-5.90824E-07,-6.57710E-07,-7.00941E-07, O32 4610
     X-4.46064E-07, 1.77205E-06, 2.45066E-06, 2.39371E-06, 2.30736E-06, O32 4620
     X 2.35355E-06, 1.85070E-06, 9.62711E-07, 2.59644E-06, 2.05304E-06, O32 4630
     X 9.70090E-07, 1.50942E-06, 3.79439E-06, 2.94597E-06,-1.91789E-06, O32 4640
     X 6.44324E-08,-3.92094E-07,-1.55398E-06, 4.46701E-08,-4.78760E-07, O32 4650
     X-1.70061E-06,-3.17252E-06,-2.93173E-06,-2.01455E-06,-7.76298E-07, O32 4660
     X-2.74577E-07,-1.39907E-06,-2.16470E-06,-1.26010E-06,-2.76845E-06, O32 4670
     X-2.38226E-06,-5.49068E-08, 9.65258E-07, 1.08650E-06, 5.64738E-07, O32 4680
     X-5.78379E-07,-5.68918E-07,-1.90177E-06,-5.08874E-06,-3.03648E-06, O32 4690
     X-1.30527E-06,-4.87669E-07,-2.83326E-06,-1.97823E-06,-5.94313E-07, O32 4700
     X-1.50961E-07,-1.15908E-06,-1.43260E-06,-9.29331E-07,-1.39459E-06, O32 4710
     X-1.27237E-06,-1.50189E-06,-3.79292E-06,-3.92038E-06,-3.58490E-06, O32 4720
     X-3.26439E-06,-2.42138E-06,-2.70516E-06,-3.58080E-06,-1.71822E-06, O32 4730
     X-2.41567E-06,-3.50193E-06,-2.62394E-06,-3.08424E-06,-3.89604E-06, O32 4740
     X-4.84127E-06,-4.41385E-06,-3.22673E-06,-1.80987E-06,-2.93027E-06/ O32 4750
      DATA C21681 /                                                     O32 4760
     X-3.17366E-06,-2.79721E-06,-1.78848E-06,-2.80254E-06,-3.55572E-06, O32 4770
     X-3.34632E-06,-2.83979E-06,-2.48022E-06,-2.15090E-06,-1.08311E-06, O32 4780
     X-6.15216E-07,-7.13008E-07,-1.70841E-06,-2.96098E-06,-3.57134E-06, O32 4790
     X-3.04405E-06,-3.35280E-06,-2.97780E-06,-1.97966E-06,-2.33197E-06, O32 4800
     X-2.76708E-06,-2.70409E-06,-4.51094E-07,-1.43068E-06,-2.83719E-06, O32 4810
     X-2.98921E-06,-4.14949E-06,-3.63780E-06,-8.10138E-07,-1.61597E-06, O32 4820
     X-2.25394E-06,-2.58110E-06,-1.57781E-06,-1.71520E-06,-2.30016E-06, O32 4830
     X-2.61268E-06,-1.96696E-06,-1.86744E-06,-3.15645E-06,-3.59354E-06, O32 4840
     X-3.61015E-06,-3.21793E-06,-2.57436E-06,-2.74347E-06,-3.33319E-06, O32 4850
     X-2.93400E-06,-3.25986E-06,-3.46384E-06,-2.22114E-06,-2.92650E-06, O32 4860
     X-3.73666E-06,-3.70485E-06,-2.75963E-06,-2.40652E-06,-2.93107E-06, O32 4870
     X-1.77517E-06,-1.57096E-06,-2.17533E-06,-2.80190E-06,-2.27942E-06, O32 4880
     X-1.37371E-06,-1.65974E-06,-1.26079E-06,-8.08050E-07,-8.41278E-07, O32 4890
     X-1.53860E-06,-1.66687E-06,-6.56592E-07,-3.05110E-08, 1.08623E-07, O32 4900
     X-2.87222E-07,-2.63555E-07,-7.89575E-07,-1.56059E-06,-6.42174E-07, O32 4910
     X-9.43333E-07,-1.38671E-06, 6.50443E-07, 1.35301E-06, 9.27981E-07/ O32 4920
      DATA C21761 /                                                     O32 4930
     X-1.21705E-06,-9.63848E-08, 8.73593E-07,-3.47278E-08,-1.79042E-06, O32 4940
     X-2.15544E-06,-4.48668E-07,-1.17414E-06,-1.35437E-06,-8.90688E-07, O32 4950
     X-4.54757E-07, 2.41484E-09, 3.88010E-07,-1.85349E-08, 1.58011E-07, O32 4960
     X 3.70566E-07,-7.30268E-07,-8.42354E-07,-4.13738E-07, 3.96796E-07, O32 4970
     X-5.55763E-07,-1.26877E-06,-2.89854E-07, 5.78676E-07, 9.51356E-07, O32 4980
     X 5.56912E-07, 1.05014E-06, 9.75896E-07, 5.91573E-08,-6.15073E-07, O32 4990
     X-1.48803E-06,-2.53397E-06,-1.77027E-06,-2.08546E-06,-3.10452E-06, O32 5000
     X-1.65227E-06,-1.15981E-06,-1.25849E-06,-9.65711E-07,-1.90319E-06, O32 5010
     X-2.71831E-06,-5.71559E-08,-1.20368E-06,-3.16820E-06,-2.22766E-06, O32 5020
     X-1.19828E-06,-2.82573E-07, 2.53850E-07,-9.10547E-07,-1.65529E-06, O32 5030
     X-6.00138E-07,-4.98898E-07,-3.45799E-07, 2.25160E-07, 1.14332E-07, O32 5040
     X 3.16082E-07, 1.12681E-06,-6.04876E-07,-7.24616E-07, 1.48177E-06, O32 5050
     X 1.05680E-06, 5.91076E-07, 2.07187E-07, 3.82385E-07, 5.91560E-07, O32 5060
     X 8.26519E-07, 1.22139E-06, 1.63501E-06, 2.06423E-06, 2.50038E-06, O32 5070
     X 2.38037E-06, 1.91688E-06, 2.46702E-06, 2.45066E-06, 2.16732E-06, O32 5080
     X 3.13517E-06, 2.68221E-06, 1.39877E-06, 8.58945E-07, 6.83181E-07/ O32 5090
      DATA C21841 /                                                     O32 5100
     X 8.46816E-07, 1.73491E-06, 1.98732E-06, 1.94059E-06, 2.19284E-06, O32 5110
     X 1.73215E-06, 1.06865E-06, 1.14117E-06, 1.43213E-06, 1.42275E-06, O32 5120
     X-4.15449E-07,-2.39911E-07, 3.46498E-08,-2.75022E-06,-2.43736E-06, O32 5130
     X-1.06489E-06,-7.81941E-07,-8.04801E-07,-1.04984E-06,-1.65734E-06, O32 5140
     X-1.03167E-06,-3.18255E-08, 5.70283E-07, 6.19050E-07, 2.92257E-07, O32 5150
     X-6.01436E-07,-7.04005E-07,-3.70875E-07, 4.12830E-07, 1.31319E-07, O32 5160
     X-1.61570E-07, 9.76170E-07, 7.99907E-07, 1.41860E-07,-1.98022E-07, O32 5170
     X 3.13766E-07, 7.43982E-07,-6.11287E-07,-5.21146E-07, 1.11156E-07, O32 5180
     X 3.91719E-07, 5.45566E-07, 6.39059E-07, 7.29515E-07, 4.59167E-07, O32 5190
     X 6.13179E-08,-3.48146E-08, 5.32046E-07, 1.19736E-06, 3.83982E-07, O32 5200
     X 1.73267E-07, 3.54304E-07, 9.34657E-07, 5.53819E-07,-2.86678E-07, O32 5210
     X 2.01853E-08,-1.56159E-07,-6.08130E-07,-2.14929E-07, 1.66317E-08, O32 5220
     X 9.32462E-08,-4.83623E-07,-9.16323E-07,-1.22772E-06,-1.61586E-06, O32 5230
     X-1.27409E-06,-1.98119E-07,-3.69182E-08,-1.41061E-07,-5.12562E-07, O32 5240
     X-4.55495E-07,-8.12132E-07,-1.71772E-06,-2.70741E-06,-2.98751E-06, O32 5250
     X-2.19520E-06, 3.01900E-07, 1.17806E-06,-1.23067E-06, 4.17086E-07/ O32 5260
      DATA C21921 /                                                     O32 5270
     X 1.68113E-06, 4.81677E-07,-1.55187E-07,-3.35287E-07, 2.94916E-07, O32 5280
     X 4.57124E-07, 3.38692E-07,-2.49203E-07,-3.62585E-07,-2.39653E-07, O32 5290
     X 3.72675E-08,-7.79964E-09,-2.83285E-07,-9.74713E-07,-6.91171E-07, O32 5300
     X 1.21925E-07, 3.39940E-07, 3.68441E-08,-5.82188E-07, 2.12605E-07, O32 5310
     X 4.65144E-07, 2.17190E-07, 7.50119E-07, 8.62008E-07, 4.63016E-07, O32 5320
     X 1.25620E-06, 1.04567E-06,-8.17037E-07,-1.20023E-06,-1.06224E-06, O32 5330
     X-3.77100E-07,-1.28057E-07,-2.76183E-07,-1.24304E-06,-2.56776E-06, O32 5340
     X-3.36699E-06,-1.49408E-06,-1.01189E-07, 7.41870E-07,-6.45425E-07, O32 5350
     X-7.47111E-07, 4.79055E-10,-1.32339E-06,-1.86135E-06,-1.61074E-06, O32 5360
     X-1.82039E-06,-1.68040E-06,-1.08025E-06,-8.61965E-07,-7.00131E-07, O32 5370
     X-5.63105E-07,-8.09843E-07,-8.09221E-07, 1.69474E-07,-1.33941E-07, O32 5380
     X-7.49558E-07,-5.19013E-07,-8.53534E-07,-1.33703E-06,-3.11161E-07, O32 5390
     X 8.99037E-07, 2.25330E-06, 1.44822E-06, 3.07437E-07,-1.22366E-06, O32 5400
     X-7.64217E-07, 2.13156E-08, 1.07909E-06, 6.10755E-07, 1.81483E-07, O32 5410
     X 8.12405E-07,-9.13283E-08,-1.35885E-06,-1.58366E-06,-7.88594E-07, O32 5420
     X 4.48283E-07,-1.23754E-06,-1.65105E-06,-8.93014E-07,-1.48622E-06/ O32 5430
      DATA C22001 /                                                     O32 5440
     X-1.67948E-06,-1.24310E-06,-1.54411E-06,-1.65677E-06,-1.04998E-06, O32 5450
     X-1.46985E-07, 4.61778E-07,-4.87832E-07,-4.89452E-07,-1.24840E-07, O32 5460
     X-1.70101E-06,-1.66976E-06,-1.48528E-07,-1.12621E-07,-2.30607E-08, O32 5470
     X 1.82301E-07,-8.58152E-07,-1.89794E-06,-2.46464E-06,-2.32745E-06, O32 5480
     X-2.02112E-06,-2.07656E-06,-1.43824E-06,-5.16583E-07,-1.80702E-06, O32 5490
     X-2.93490E-06,-3.89216E-06,-3.36211E-06,-2.41393E-06,-9.53406E-07, O32 5500
     X-1.16269E-06,-1.66431E-06,-1.77150E-06,-1.82496E-06,-1.93095E-06, O32 5510
     X-2.75759E-06,-2.83618E-06,-2.27908E-06,-6.33348E-07, 5.61257E-07, O32 5520
     X 1.00142E-06, 7.73337E-07, 3.17721E-07,-3.69804E-07,-8.82058E-07, O32 5530
     X-1.17364E-06,-4.53480E-07,-2.47824E-07,-4.79624E-07,-5.17032E-07, O32 5540
     X-3.46498E-07, 1.42669E-07,-1.59168E-07,-5.06580E-07,-3.18573E-07, O32 5550
     X-2.74092E-07,-2.68860E-07, 1.32811E-07,-2.35567E-09,-6.71971E-07, O32 5560
     X-9.75302E-07,-8.70978E-07,-3.59071E-08,-3.01726E-07,-8.27641E-07, O32 5570
     X-1.14899E-06,-1.50160E-06,-1.83660E-06,-1.26290E-06,-1.07659E-06, O32 5580
     X-1.34878E-06,-5.24626E-07,-7.85094E-08,-8.79473E-07,-1.19291E-06, O32 5590
     X-1.33298E-06,-1.59750E-06,-1.31836E-06,-5.73079E-07,-1.10349E-06/ O32 5600
      DATA C22081 /                                                     O32 5610
     X-1.11807E-06,-1.99530E-07,-8.10496E-07,-1.42679E-06,-5.34617E-07, O32 5620
     X-2.05001E-07,-2.51690E-07,-1.01740E-06,-1.02841E-06,-7.48750E-08, O32 5630
     X-1.01770E-06,-1.50413E-06, 1.80898E-07, 3.63788E-07,-1.97900E-07, O32 5640
     X-1.16721E-06,-1.05497E-06,-2.07218E-08,-1.90590E-07,-8.25501E-07, O32 5650
     X-2.21142E-06,-1.19905E-06, 2.16271E-07,-2.52574E-07,-4.35837E-07, O32 5660
     X-3.95272E-07, 5.97065E-08, 2.76639E-07, 9.22569E-08, 1.20142E-07, O32 5670
     X-2.95030E-09,-1.08216E-06,-1.32386E-06,-9.62248E-07,-1.99430E-06, O32 5680
     X-2.13890E-06,-9.56082E-07,-6.94022E-07,-7.75721E-07,-1.31048E-06, O32 5690
     X-1.50080E-06,-1.35873E-06,-7.48378E-07,-4.83436E-07,-4.69624E-07, O32 5700
     X-1.51156E-06,-2.48221E-06,-3.30134E-06,-2.79114E-06,-2.08976E-06, O32 5710
     X-2.24768E-06,-1.06947E-06, 1.17462E-06,-2.51423E-07,-7.85729E-07, O32 5720
     X 5.37467E-07,-9.39876E-08,-1.11303E-06,-7.46860E-07,-9.36220E-07, O32 5730
     X-1.59880E-06,-1.61420E-06,-1.54368E-06,-1.41036E-06,-7.20350E-07, O32 5740
     X 1.35544E-07, 3.14481E-07, 6.29265E-07, 1.09161E-06,-1.36044E-07, O32 5750
     X-1.22932E-06,-1.29847E-06,-3.26429E-06,-6.01062E-06,-2.09945E-06, O32 5760
     X 1.26878E-07,-2.88050E-08,-6.82802E-07,-1.39340E-06,-1.82986E-06/ O32 5770
      DATA C22161 /                                                     O32 5780
     X-1.67208E-06,-1.07994E-06,-1.89195E-06,-2.10782E-06,-1.04519E-06, O32 5790
     X-3.27672E-07, 1.95516E-07, 1.63838E-07,-2.29575E-07,-1.01609E-06, O32 5800
     X-2.19286E-06,-2.71850E-06,-9.77485E-07,-1.48830E-06,-3.37826E-06, O32 5810
     X-1.59130E-06,-5.74498E-07,-8.27962E-07,-9.92211E-07,-1.14422E-06, O32 5820
     X-1.41420E-06,-1.11629E-06,-2.51575E-07, 1.60805E-07, 1.82934E-07, O32 5830
     X-7.28868E-07,-2.57062E-07, 1.06520E-06, 4.16488E-07, 2.97049E-08, O32 5840
     X 6.62797E-08, 8.29435E-07, 1.29657E-06,-2.27961E-06,-3.40386E-06, O32 5850
     X-1.88594E-06,-2.29732E-06,-2.72594E-06,-2.09847E-06,-1.31771E-06, O32 5860
     X-4.23693E-07,-4.96348E-07,-9.40209E-07,-2.08707E-06,-1.21368E-06, O32 5870
     X 4.79409E-07,-1.12548E-08,-4.57316E-07,-8.40885E-07,-5.03210E-07, O32 5880
     X-1.61036E-07,-1.05835E-06,-1.66417E-06,-1.97827E-06,-1.63737E-06, O32 5890
     X-1.11711E-06,-3.16081E-07,-6.81746E-07,-1.82599E-06,-1.12895E-06, O32 5900
     X-9.19712E-07,-1.91707E-06,-2.14767E-06,-2.03629E-06,-2.86441E-06, O32 5910
     X-3.07735E-06,-2.28656E-06,-1.40256E-06,-5.50649E-07,-3.11627E-07, O32 5920
     X-7.90261E-07,-2.10728E-06,-1.89739E-06,-1.53762E-06,-2.39947E-06, O32 5930
     X-2.28765E-06,-1.27564E-06,-2.15154E-06,-3.17932E-06,-3.84234E-06/ O32 5940
      DATA C22241 /                                                     O32 5950
     X-3.65102E-06,-2.84055E-06,-2.48744E-06,-2.27683E-06,-2.33087E-06, O32 5960
     X-3.44460E-06,-5.19613E-06,-2.85882E-06,-1.39921E-06,-2.00579E-06, O32 5970
     X-2.80593E-06,-3.65940E-06,-2.39526E-06,-1.70389E-06,-2.03532E-06, O32 5980
     X-2.71522E-06,-3.42227E-06,-2.23606E-06,-1.77845E-06,-2.42071E-06, O32 5990
     X-2.61515E-06,-2.56413E-06,-1.49601E-06,-1.23245E-06,-2.08440E-06, O32 6000
     X-2.11121E-06,-1.93424E-06,-2.27439E-06,-2.58183E-06,-2.84705E-06, O32 6010
     X-2.32183E-06,-1.80966E-06,-3.04089E-06,-3.14334E-06,-1.91331E-06, O32 6020
     X-1.51037E-06,-1.43610E-06,-2.11316E-06,-2.45184E-06,-2.42262E-06/ O32 6030
      END                                                               O32 6040
      SUBROUTINE BS(I,A,B,N,S)                                          BS   100
C********************************************************************** BS   110
      DIMENSION B(9)                                                    BS   120
C                                                                       BS   130
C             THIS SUBROUTINE DOES THE BINARY SEARCH FOR THE INDEX I    BS   140
C             SUCH THAT A IS IN BETWEEN B(I) AND B(I+1)                 BS   150
C             AND CALCULATES THE INTERPOLATION PARAMETER S              BS   160
C             SUCH THAT A=S*B(I+1)+(1.-S)*B(I)                          BS   170
C                                                                       BS   180
      I=1                                                               BS   190
      J=N                                                               BS   200
   10 M=(I+J)/2                                                         BS   210
      IF(A.LE.B(M)) THEN                                                BS   220
      J=M                                                               BS   230
      ELSE                                                              BS   240
      I=M                                                               BS   250
      END IF                                                            BS   260
      IF(J.GT.I+1) GO TO 10                                             BS   270
      S=(A-B(I))/(B(I+1)-B(I))                                          BS   280
      RETURN                                                            BS   290
      END                                                               BS   300
      BLOCK DATA C4D                                                    BC4  100
C>    BLOCK DATA                                                        BC4  110
      COMMON /C4C8/ C401(114),C4115(19),C8(102)                         BC4  120
C        N2 CONTINUUM ABSORPTION COEFFICIENTS                           BC4  130
C     C4 LOCATION  1    V =  2080 CM-1                                  BC4  140
C     C4 LOCATION  133  V =  2740 CM-1                                  BC4  150
      DATA C401 /                                                       BC4  160
     1 2.93E-04, 3.86E-04, 5.09E-04, 6.56E-04, 8.85E-04, 1.06E-03,      BC4  170
     2 1.31E-03, 1.73E-03, 2.27E-03, 2.73E-03, 3.36E-03, 3.95E-03,      BC4  180
     3 5.46E-03, 7.19E-03, 9.00E-03, 1.13E-02, 1.36E-02, 1.66E-02,      BC4  190
     4 1.96E-02, 2.16E-02, 2.36E-02, 2.63E-02, 2.90E-02, 3.15E-02,      BC4  200
     5 3.40E-02, 3.66E-02, 3.92E-02, 4.26E-02, 4.60E-02, 4.95E-02,      BC4  210
     6 5.30E-02, 5.65E-02, 6.00E-02, 6.30E-02, 6.60E-02, 6.89E-02,      BC4  220
     7 7.18E-02, 7.39E-02, 7.60E-02, 7.84E-02, 8.08E-02, 8.39E-02,      BC4  230
     8 8.70E-02, 9.13E-02, 9.56E-02, 1.08E-01, 1.20E-01, 1.36E-01,      BC4  240
     9 1.52E-01, 1.60E-01, 1.69E-01, 1.60E-01, 1.51E-01, 1.37E-01,      BC4  250
     $ 1.23E-01, 1.19E-01, 1.16E-01, 1.14E-01, 1.12E-01, 1.12E-01,      BC4  260
     $ 1.11E-01, 1.11E-01, 1.12E-01, 1.14E-01, 1.13E-01, 1.12E-01,      BC4  270
     $ 1.09E-01, 1.07E-01, 1.02E-01, 9.90E-02, 9.50E-02, 9.00E-02,      BC4  280
     $ 8.65E-02, 8.20E-02, 7.65E-02, 7.05E-02, 6.50E-02, 6.10E-02,      BC4  290
     $ 5.50E-02, 4.95E-02, 4.50E-02, 4.00E-02, 3.75E-02, 3.50E-02,      BC4  300
     $ 3.10E-02, 2.65E-02, 2.50E-02, 2.20E-02, 1.95E-02, 1.75E-02,      BC4  310
     $ 1.60E-02, 1.40E-02, 1.20E-02, 1.05E-02, 9.50E-03, 9.00E-03,      BC4  320
     $ 8.00E-03, 7.00E-03, 6.50E-03, 6.00E-03, 5.50E-03, 4.75E-03,      BC4  330
     $ 4.00E-03, 3.75E-03, 3.50E-03, 3.00E-03, 2.50E-03, 2.25E-03,      BC4  340
     $ 2.00E-03, 1.85E-03, 1.70E-03, 1.60E-03, 1.50E-03, 1.50E-03/      BC4  350
      DATA C4115 /                                                      BC4  360
     1 1.54E-03, 1.50E-03, 1.47E-03, 1.34E-03, 1.25E-03, 1.06E-03,      BC4  370
     2 9.06E-04, 7.53E-04, 6.41E-04, 5.09E-04, 4.04E-04, 3.36E-04,      BC4  380
     3 2.86E-04, 2.32E-04, 1.94E-04, 1.57E-04, 1.31E-04, 1.02E-04,      BC4  390
     4 8.07E-05/                                                        BC4  400
C        4M  H2O CONTINUUM                                              BC4  410
C        OZONE U.V. + VISIBLE BAND MODEL ABSORPTION COEFF               BC4  420
C     C8 LOCATION  1    V =  13000  CM-1                                BC4  430
C     C8 LOCATION  56   V =  24200  CM-1                                BC4  440
C        DV = 200  CM-1                                                 BC4  450
C     C8 LOCATION  57   V =  27500  CM-1                                BC4  460
C     C8 LOCATION  102  V =  50000  CM-1                                BC4  470
C        DV = 500  CM-1                                                 BC4  480
      DATA C8 /                                                         BC4  490
     1 4.50E-03, 8.00E-03, 1.07E-02, 1.10E-02, 1.27E-02, 1.71E-02,      BC4  500
     2 2.00E-02, 2.45E-02, 3.07E-02, 3.84E-02, 4.78E-02, 5.67E-02,      BC4  510
     3 6.54E-02, 7.62E-02, 9.15E-02, 1.00E-01, 1.09E-01, 1.20E-01,      BC4  520
     4 1.28E-01, 1.12E-01, 1.11E-01, 1.16E-01, 1.19E-01, 1.13E-01,      BC4  530
     5 1.03E-01, 9.24E-02, 8.28E-02, 7.57E-02, 7.07E-02, 6.58E-02,      BC4  540
     6 5.56E-02, 4.77E-02, 4.06E-02, 3.87E-02, 3.82E-02, 2.94E-02,      BC4  550
     7 2.09E-02, 1.80E-02, 1.91E-02, 1.66E-02, 1.17E-02, 7.70E-03,      BC4  560
     8 6.10E-03, 8.50E-03, 6.10E-03, 3.70E-03, 3.20E-03, 3.10E-03,      BC4  570
     9 2.55E-03, 1.98E-03, 1.40E-03, 8.25E-04, 2.50E-04, 0.      ,      BC4  580
     $ 0.      , 0.      , 5.65E-04, 2.04E-03, 7.35E-03, 2.03E-02,      BC4  590
     $ 4.98E-02, 1.18E-01, 2.46E-01, 5.18E-01, 1.02E+00, 1.95E+00,      BC4  600
     $ 3.79E+00, 6.65E+00, 1.24E+01, 2.20E+01, 3.67E+01, 5.95E+01,      BC4  610
     $ 8.50E+01, 1.26E+02, 1.68E+02, 2.06E+02, 2.42E+02, 2.71E+02,      BC4  620
     $ 2.91E+02, 3.02E+02, 3.03E+02, 2.94E+02, 2.77E+02, 2.54E+02,      BC4  630
     $ 2.26E+02, 1.96E+02, 1.68E+02, 1.44E+02, 1.17E+02, 9.75E+01,      BC4  640
     $ 7.65E+01, 6.04E+01, 4.62E+01, 3.46E+01, 2.52E+01, 2.00E+01,      BC4  650
     $ 1.57E+01, 1.20E+01, 1.00E+01, 8.80E+00, 8.30E+00, 8.60E+00/      BC4  660
      END                                                               BC4  670
      SUBROUTINE C4DTA (C4L,V)                                          C4D  100
C **  N2 CONTINUUM                                                      C4D  110
      COMMON /C4C8/ C4(133),C8(102)                                     C4D  120
      C4L=0.                                                            C4D  130
      IF(V.LT.2080.) RETURN                                             C4D  140
      IF(V.GT.2740.) RETURN                                             C4D  150
      IV=V                                                              C4D  160
      L=(IV-2080)/5+1                                                   C4D  170
      C4L=C4(L)                                                         C4D  180
      RETURN                                                            C4D  190
      END                                                               C4D  200
      SUBROUTINE C6DTA(C6L,V)                                           C6D  100
C     CALCULATES MOLECULAR RAYLEIGH SCATTERING COEFFICIENT
C     USES APPROXIMATION OF SHETTLE ET AL., 1980 (APPL OPT, 2873-4)
C        WITH THE DEPOLARIZATION = 0.0279 (INSTED OF 0.035)
C     INPUT:  V = FREQUENCY IN WAVENUMBERS (CM-1)
C     OUTPUT: C6L = MOLECULAR SCATTERING COEFFICIENT (KM-1)
C                    FOR TEMPERATURE = 273 K & PRESSURE 1 ATM.
C
      C6L=V**4/(9.38076E+18  -1.08426E+09 * V**2)                       C6D* 140
      RETURN                                                            C6D  150
      END                                                               C6D  160
      SUBROUTINE C8DTA (C8L,V)                                          C8D  100
C **  OZONE U.V + VISIBLE                                               C8D  110
      COMMON /C4C8/ C4(133),C8(102)                                     C8D  120
      C8L=0.                                                            C8D  130
      IF(V.LT.13000.) RETURN                                            C8D  140
      IF(V.GT.50000.) RETURN                                            C8D  150
      IV=V                                                              C8D  160
      IF(IV.GT.24200.AND.IV.LT.27500) RETURN                            C8D  170
      XI=(V-13000.0)/200.0+1.                                           C8D  180
      IF(IV.GE.27500) XI=(V-27500.0)/500.+57.                           C8D  190
      N=XI+1.001                                                        C8D  200
      XD=XI-FLOAT(N)                                                    C8D  210
      C8L=C8(N)+XD*(C8(N)-C8(N-1))                                      C8D  220
      RETURN                                                            C8D  230
      END                                                               C8D  240
      SUBROUTINE CHECK(V,IV,KEY)                                        CHE  100
C                                                                       CHE  110
C      UNITS CONVERSION FOR P AND T                                     CHE  120
C                                                                       CHE  130
C     V = P OR T     AND  IV =JUNITP(I.E. MB,ATM,TORR)                  CHE  140
C                            =JUNITT(I.E. DEG K OR C)                   CHE  150
C                            =JUNITR(I.E. KM,M,OR CM)                   CHE  160
C                                                                       CHE  170
      DATA PMB/1013.25/,PTORR/760./,DEGK/273.15/                        CHE  180
      IF(IV.LE.10) RETURN                                               CHE  190
      GO TO(100,200,300) KEY                                            CHE  200
C                                                                       CHE  210
C      PRESSURE CONVERSIONS                                             CHE  220
C                                                                       CHE  230
  100 IF(IV.EQ.11)GO TO 110                                             CHE  240
      IF(IV.EQ.12)GO TO 120                                             CHE  250
      STOP'CHECK(P)'                                                    CHE  260
  110 V=V*PMB                                                           CHE  270
      RETURN                                                            CHE  280
  120 V=V*PMB/PTORR                                                     CHE  290
      RETURN                                                            CHE  300
C                                                                       CHE  310
C      TEMPERATURE COMVERSIONS                                          CHE  320
C                                                                       CHE  330
  200 IF(IV.GT.11)STOP'CHECK(T)'                                        CHE  340
      V=V+DEGK                                                          CHE  350
      RETURN                                                            CHE  360
C                                                                       CHE  370
C      RANGE CONVERSIONS                                                CHE  380
C                                                                       CHE  390
  300 IF(IV.EQ.11)GO TO 310                                             CHE  400
      IF(IV.EQ.12)GO TO 320                                             CHE  410
      STOP'CHECK(R)'                                                    CHE  420
  310 V=V/1.E3                                                          CHE  430
      RETURN                                                            CHE  440
  320 V=V/1.E5                                                          CHE  450
      RETURN                                                            CHE  460
      END                                                               CHE  470
      SUBROUTINE CIRR18                                                 C18  100
C*********************************************************************  C18  110
C*  ROUTINE TO SET CTHIK CALT CEXT  FOR  CIRRUS CLOUDS 18 19        **  C18  120
C*  INPUTS]                                                         **  C18  130
C*           CHTIK    -  CIRRUS THICKNESS (KM)                      **  C18  140
C*                       0 = USE THICKNESS STATISTICS               **  C18  150
C*                       .NE. 0 = USER DEFINES THICKNESS            **  C18  160
C*                                                                  **  C18  170
C*           CALT     -  CIRRUS BASE ALTITUDE (KM)                  **  C18  180
C*                       0 = USE CALCULATED VALUE                   **  C18  190
C*                       .NE. 0 = USER DEFINES BASE ALTITUDE        **  C18  200
C*                                                                  **  C18  210
C*           ICLD     -  CIRRUS PRESENCE FLAG                       **  C18  220
C*                       0 = NO CIRRUS                              **  C18  230
C*                       18  19 = USE CIRRUS PROFILE                **  C18  240
C*                                                                  **  C18  250
C*           MODEL    -  ATMOSPHERIC MODEL                          **  C18  260
C*                       1-5  AS IN MAIN PROGRAM                    **  C18  270
C*                       MODEL = 0,6,7 NOT USED SET TO 2            **  C18  280
C*                                                                  **  C18  290
C*  OUTPUTS]                                                        **  C18  300
C*         CTHIK        -  CIRRUS THICKNESS (KM)                    **  C18  310
C*         CALT         -  CIRRUS BASE ALTITUDE (KM)                **  C18  320
C          CEXT IS THE EXTINCTION COEFFIENT(KM-1) AT 0.55               C18  330
C               DEFAULT VALUE 0.14*CTHIK                                C18  340
C*                                                                  **  C18  350
C*********************************************************************  C18  360
C                                                                       C18  370
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  C18  380
     1  ,MODTRN                                                         C18 380A
      LOGICAL MODTRN                                                    C18 380B
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   C18  390
     1    RAINRT                                                        C18  400
      COMMON /CARD2A/ CTHIK,CALT,CEXT                                   C18  410
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            C18  420
C     COMMON             WPATH(68, 63),TBBY(68)                         C18 -430
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   C18 430A
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               C18  440
C     COMMON /CARD4/ V1,V2,DV                                           C18 -450
      COMMON /MODEL/ Z (34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),      C18  460
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         C18  470
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                C18  480
      DIMENSION CBASE(5,2),TSTAT(11),PTAB(5),CAMEAN(5)                  C18  490
      DIMENSION CBASE1(5),CBASE2(5)                                     C18  500
      EQUIVALENCE (CBASE1(1),CBASE(1,1)),(CBASE2(1),CBASE(1,2))         C18  510
C                                                                       C18  520
      DATA  CAMEAN           / 11.0, 10.0, 8.0, 7.0, 5.0 /              C18  530
      DATA  PTAB           / 0.8, 0.4, 0.5, 0.45, 0.4/                  C18  540
      DATA  CBASE1            / 7.5, 7.3, 4.5, 4.5, 2.5 /               C18  550
      DATA  CBASE2            /16.5,13.5,14.0, 9.5,10.0 /               C18  560
      DATA  TSTAT             / 0.0,.291,.509,.655,.764,.837,.892,      C18  570
     + 0.928, 0.960, 0.982, 1.00 /                                      C18  580
      MDL = MODEL                                                       C18  590
C                                                                       C18  600
C  CHECK IF USER WANTS TO USE A THICKNESS VALUE HE PROVIDES             C18  610
C  DEFAULTED MEAN CIRRUS THICKNESS IS 1.0KM  OR 0.2 KM.                 C18  620
C                                                                       C18  630
      IF ( CTHIK .GT. 0.0 ) GO TO 25                                    C18  640
      IF(ICLD.EQ.18) CTHIK=1.0                                          C18  650
      IF(ICLD.EQ.19) CTHIK=0.2                                          C18  660
25    IF(CEXT .EQ. 0.) CEXT = 0.14 * CTHIK                              C18  670
C                                                                       C18  680
C  BASE HEIGHT CALCULATIONS                                             C18  690
C                                                                       C18  700
      IF ( MODEL .LT. 1  .OR.  MODEL .GT. 5 ) MDL = 2                   C18  710
C                                                                       C18  720
      HMAX = CBASE(MDL,2) - CTHIK                                       C18  730
C     BRANGE = HMAX - CBASE(MDL,1)                                      C18  740
      IF ( CALT .GT. 0.0 ) GO TO 27                                     C18  750
      CALT = CAMEAN(MDL)                                                C18  760
C                                                                       C18  770
 27   IF(ICLD. EQ. 18) WRITE(IPR,1219)                                  C18  780
1219  FORMAT(15X,'CIRRUS ATTENUATION INCLUDED   (STANDARD CIRRUS)')     C18  790
      IF(ICLD. EQ. 19) WRITE(IPR,1220)                                  C18  800
1220  FORMAT(15X,'CIRRUS ATTENUATION INCLUDED   (THIN     CIRRUS)')     C18  810
      WRITE(IPR,1221) CTHIK                                             C18  820
1221  FORMAT(15X,'CIRRUS THICKNESS ',                                   C18  830
     X F10.3,'KM')                                                      C18  840
      WRITE(IPR,1224)CALT                                               C18  850
1224  FORMAT(15X,'CIRRUS BASE ALTITUDE ',                               C18  860
     X F10.3,' KM')                                                     C18  870
       WRITE(IPR,1226) CEXT                                             C18  880
1226    FORMAT(15X,'CIRRUS PROFILE EXTINCT ',F10.3)                     C18  890
C                                                                       C18  900
C       END OF CIRRUS MODEL SET UP                                      C18  910
      RETURN                                                            C18  920
      END                                                               C18  930
      SUBROUTINE CIRRUS(CTHIK,CALT,ISEED,CPROB,CEXT)                    CIR  100
C*********************************************************************  CIR  110
C*  ROUTINE TO GENERATE ALTITUDE PROFILES OF CIRRUS DENSITY         **  CIR  120
C*  PROGRAMMED BY   M.J. POST                                       **  CIR  130
C*                  R.A. RICHTER        NOAA/WPL                    **  CIR  140
C*                                      BOULDER, COLORADO           **  CIR  150
C*                                      01/27/1981                  **  CIR  160
C*                                                                  **  CIR  170
C*  INPUTS!                                                         **  CIR  180
C*           CHTIK    -  CIRRUS THICKNESS (KM)                      **  CIR  190
C*                       0 = USE THICKNESS STATISTICS               **  CIR  200
C*                       .NE. 0 = USER DEFINES THICKNESS            **  CIR  210
C*                                                                  **  CIR  220
C*           CALT     -  CIRRUS BASE ALTITUDE (KM)                  **  CIR  230
C*                       0 = USE CALCULATED VALUE                   **  CIR  240
C*                       .NE. 0 = USER DEFINES BASE ALTITUDE        **  CIR  250
C*                                                                  **  CIR  260
C*           ICIR     -  CIRRUS PRESENCE FLAG                       **  CIR  270
C*                       0 = NO CIRRUS                              **  CIR  280
C*                       .NE. 0 = USE CIRRUS PROFILE                **  CIR  290
C*                                                                  **  CIR  300
C*           MODEL    -  ATMOSPHERIC MODEL                          **  CIR  310
C*                       1-5  AS IN MAIN PROGRAM                    **  CIR  320
C*                       MODEL = 0,6,7 NOT USED SET TO 2            **  CIR  330
C*                                                                  **  CIR  340
C*           ISEED    -  RANDOM NUMBER INITIALIZATION FLAG.         **  CIR  350
C*                       0 = USE DEFAULT MEAN VALUES FOR CIRRUS     **  CIR  360
C*                       .NE. 0 = INITIAL VALUE OF SEED FOR RANF    **  CIR  370
C*                       FUNCTION. CHANGE SEED VALUE EACH RUN FOR   **  CIR  380
C*                       DIFFERENT RANDOM NUMBER SEQUENCES. THIS    **  CIR  390
C*                       PROVIDES FOR STATISTICAL DETERMINATION     **  CIR  400
C*                       OF CIRRUS BASE ALTITUDE AND THICKNESS.     **  CIR  410
C*                                                                  **  CIR  420
C*  OUTPUTS!                                                        **  CIR  430
C*         CTHIK        -  CIRRUS THICKNESS (KM)                    **  CIR  440
C*         CALT         -  CIRRUS BASE ALTITUDE (KM)                **  CIR  450
C*         DENSTY(16,I) -  ARRAY, ALTITUDE PROFILE OF CIRRUS DENSITY**  CIR  460
C*         CPROB        -  CIRRUS PROBABILITY                       **  CIR  470
C*                                                                  **  CIR  480
C*********************************************************************  CIR  490
C                                                                       CIR  500
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  CIR  510
     1  ,MODTRN                                                         CIR 510A
      LOGICAL MODTRN                                                    CIR 510B
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   CIR  520
     1    RAINRT                                                        CIR  530
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            CIR  540
C     COMMON             WPATH(68, 63),TBBY(68)                         CIR -550
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   CIR 550A
      COMMON ABSC(5,47),EXTC(5,47),ASYC(5,47),VX2(47),AWCCON(5)         CIR  560
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               CIR  570
C     COMMON /CARD4/ V1,V2,DV                                           CIR -580
      COMMON /MODEL/ Z(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),       CIR  590
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         CIR  600
      DIMENSION CBASE(5,2),TSTAT(11),PTAB(5),CAMEAN(5)                  CIR  610
      DIMENSION CBASE1(5),CBASE2(5)                                     CIR  620
      EQUIVALENCE (CBASE1(1),CBASE(1,1)),(CBASE2(1),CBASE(1,2))         CIR  630
C                                                                       CIR  640
      DATA  CAMEAN           / 11.0, 10.0, 8.0, 7.0, 5.0 /              CIR  650
      DATA  PTAB           / 0.8, 0.4, 0.5, 0.45, 0.4/                  CIR  660
      DATA  CBASE1            / 7.5, 7.3, 4.5, 4.5, 2.5 /               CIR  670
      DATA  CBASE2            /16.5,13.5,14.0, 9.5,10.0 /               CIR  680
      DATA  TSTAT             / 0.0,.291,.509,.655,.764,.837,.892,      CIR  690
     + 0.928, 0.960, 0.982, 1.00 /                                      CIR  700
C                                                                       CIR  710
C  SET CIRRUS PROBABILITY AND PROFILE TO ALL ZEROES                     CIR  720
C                                                                       CIR  730
      CPROB = 0.0                                                       CIR  740
      MDL = MODEL                                                       CIR  750
C                                                                       CIR  760
      DO 10 I=1,34                                                      CIR  770
10    DENSTY(16,I)=0.                                                   CIR  780
C                                                                       CIR  790
C  CHECK IF USER WANTS TO USE A THICKNESS VALUE HE PROVIDES, CALCULATE  CIR  800
C  A STATISTICAL THICKNESS, OR USE A MEAN THICKNESS (ISEED = 0).        CIR  810
C  DEFAULTED MEAN CIRRUS THICKNESS IS 1.0 KM.                           CIR  820
C                                                                       CIR  830
      IF ( CTHIK .GT. 0.0 ) GO TO 25                                    CIR  840
      IF ( ISEED .NE. 0 ) GO TO 15                                      CIR  850
      CTHIK = 1.0                                                       CIR  860
      GO TO 25                                                          CIR  870
C                                                                       CIR  880
C  CALCULATE CLOUD THICKNESS USING LOWTRAN CIRRUS THICKNESS STATISTICS  CIR  890
C  NOTE - THIS ROUTINE USES A UNIFORM RANDOM NUMBER GENERATOR           CIR  900
C  FUNCTION (RANF) WHICH RETURNS A NUMBER BETWEEN 0 AND 1.              CIR  910
C  THIS FEATURE IS MACHINE DEPENDENT!!                                  CIR  920
C                                                                       CIR  930
   15 CALL RANSET(ISEED)                                                CIR  940
      URN = RANFUN(IDUM)                                                CIR  950
      DO 20 I = 1, 10                                                   CIR  960
         IF (URN .GE. TSTAT(I) .AND. URN .LT. TSTAT(I+1)) CTHIK = I-1   CIR  970
   20 CONTINUE                                                          CIR  980
      CTHIK = CTHIK / 2.0  +  RANFUN(IDUM) / 2.0                        CIR  990
C                                                                       CIR 1000
C  DENCIR IS CIRRUS DENSITY IN KM-1                                     CIR 1010
C                                                                       CIR 1020
25    IF(CEXT .GT. 0.) THEN                                             CIR 1030
           DENCIR = CEXT / 2.                                           CIR 1040
      ELSE                                                              CIR 1050
           DENCIR = 0.07 * CTHIK                                        CIR 1060
      ENDIF                                                             CIR 1070
C                                                                       CIR 1080
C  BASE HEIGHT CALCULATIONS                                             CIR 1090
C                                                                       CIR 1100
      IF ( MODEL .LT. 1  .OR.  MODEL .GT. 5 ) MDL = 2                   CIR 1110
      CPROB = 100.0 * PTAB(MDL)                                         CIR 1120
C                                                                       CIR 1130
      HMAX = CBASE(MDL,2) - CTHIK                                       CIR 1140
      BRANGE = HMAX - CBASE(MDL,1)                                      CIR 1150
      IF ( CALT .GT. 0.0 ) GO TO 27                                     CIR 1160
      IF ( ISEED .NE. 0 ) GO TO 26                                      CIR 1170
      CALT = CAMEAN(MDL)                                                CIR 1180
      GO TO 27                                                          CIR 1190
   26 CALT = BRANGE * RANFUN(IDUM)+ CBASE(MDL,1)                        CIR 1200
C                                                                       CIR 1210
C  PUT CIRRUS DENSITY IN CORRECT ALTITUDE BINS. IF MODEL = 7,           CIR 1220
C  INTERPOLATE EH(16,I) FOR NON-STANDARD ALTITUDE BOUNDARIES.           CIR 1230
C                                                                       CIR 1240
   27 IF(MODEL .EQ. 7) GO TO 60                                         CIR 1250
      IV1=INT(CALT )                                                    CIR 1260
      IV2=INT(CALT+CTHIK )                                              CIR 1270
      DO 30 I = 2, 16                                                   CIR 1280
         IF(I .GE. IV1 .AND. I .LE. IV2) DENSTY(16,I+1) =  DENCIR       CIR 1290
   30 CONTINUE                                                          CIR 1300
C                                                                       CIR 1310
C  ADJUST FIRST AND LAST CIRRUS LEVEL IF CLOUD DOES NOT ENTIRELY        CIR 1320
C  FILL EACH LEVEL.                                                     CIR 1330
C                                                                       CIR 1340
      IHGT1 = INT( CALT )                                               CIR 1350
      IHGT2 = INT( CALT + CTHIK)                                        CIR 1360
      IF( IHGT1 . NE . IHGT2 ) GO TO 35                                 CIR 1370
      DENSTY(16,IHGT1+1) = DENSTY( 16,IHGT1+1)*CTHIK                    CIR 1380
      RETURN                                                            CIR 1390
   35 PCT1  = 1.0 - ( CALT - IHGT1 )                                    CIR 1400
      DENSTY(16,IHGT1+1) = DENSTY(16,IHGT1+1) * PCT1                    CIR 1410
      PCT2 =  ( CALT + CTHIK) - IHGT2                                   CIR 1420
      DENSTY(16,IHGT2+1) = DENSTY(16,IHGT2+1) * PCT2                    CIR 1430
      RETURN                                                            CIR 1440
C                                                                       CIR 1450
C  INTERPOLATE DENSTY(16,I) FOR USER SUPPLIED ALTITUDE BOUNDARIES       CIR 1460
C                                                                       CIR 1470
   60 TOP = CALT + CTHIK                                                CIR 1480
      BOTTOM = CALT                                                     CIR 1490
      IF (TOP .LT. Z(1)) RETURN                                         CIR 1500
      IF (BOTTOM .GT. Z(ML)) RETURN                                     CIR 1510
      IML = ML - 1                                                      CIR 1520
      DO 70 I=1,IML                                                     CIR 1530
         ZMIN = Z(I)                                                    CIR 1540
         ZMAX = Z(I+1)                                                  CIR 1550
         DENOM = ZMAX - ZMIN                                            CIR 1560
         IF(BOTTOM.LE.ZMIN .AND. TOP.GE.ZMAX) DENSTY(16,I) = DENCIR     CIR 1570
         IF(BOTTOM.GE.ZMIN .AND. TOP.LT.ZMAX)                           CIR 1580
     +        DENSTY(16,I) = DENCIR * CTHIK/DENOM                       CIR 1590
         IF(BOTTOM.GE.ZMIN .AND. TOP.GE.ZMAX .AND. BOTTOM.LT.ZMAX)      CIR 1600
     +        DENSTY(16,I) = DENCIR * (ZMAX - BOTTOM)/ DENOM            CIR 1610
         IF(BOTTOM.LT.ZMIN .AND. TOP.LE.ZMAX .AND.TOP.GT.ZMIN)          CIR 1620
     +        DENSTY(16,I) = DENCIR * (TOP - ZMIN) / DENOM              CIR 1630
   70 CONTINUE                                                          CIR 1640
      RETURN                                                            CIR 1650
      END                                                               CIR 1660
      SUBROUTINE CLDPRF (K,ICLD,IHA1,IC1)                               CLD  100
C***********************************************************************CLD  110
C     WILL COMPUTE DENSITY    PROFILES FOR CLOUDS                       CLD  120
C***********************************************************************CLD  130
      REAL MDLWC                                                        CLD  140
      COMMON RELHUM(34),WHNO3(34),ICH(4),VH(17),TX(63),W(63)            CLD  150
C     COMMON             WPATH(68, 63),TBBY(68)                         CLD -160
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   CLD 160A
      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),VX2(47),AWCCON(5)         CLD  170
      COMMON/MODEL/ ZMDL(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),     CLD  180
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         CLD  190
      DIMENSION RHZONE(4)                                               CLD  200
      DIMENSION ELWCR(4),ELWCU(4),ELWCM(4),ELWCT(4)                     CLD  210
      DATA RHZONE/0.,70.,80.,99./                                       CLD  220
      DATA ELWCR/3.517E-04,3.740E-04,4.439E-04,9.529E-04/               CLD  230
      DATA ELWCM/4.675E-04,6.543E-04,1.166E-03,3.154E-03/               CLD  240
      DATA ELWCU/3.102E-04,3.802E-04,4.463E-04,9.745E-04/               CLD  250
      DATA ELWCT/1.735E-04,1.820E-04,2.020E-04,2.408E-04/               CLD  260
      DATA AFLWC/1.295E-02/,RFLWC/1.804E-03/,CULWC/7.683E-03/           CLD  270
      DATA ASLWC/4.509E-03/,STLWC/5.272E-03/,SCLWC/4.177E-03/           CLD  280
      DATA SNLWC/7.518E-03/,BSLWC/1.567E-04/,FVLWC/5.922E-04/           CLD  290
      DATA AVLWC/1.675E-04/,MDLWC/4.775E-04/                            CLD  300
      DATA TNLWC/3.446E-3/ ,TKLWC/5.811E-2/                             CLD  310
      IF(CLDAMT(K).LE.0.) GO TO 15                                      CLD  320
      IH=ICLD                                                           CLD  330
      IF(IH .EQ. 0) GO TO 200                                           CLD  340
      IF(ICLD .EQ. 18) THEN                                             CLD  350
           HAZEC(K) = CLDAMT(K)/TNLWC                                   CLD  360
           RETURN                                                       CLD  370
      ENDIF                                                             CLD  380
      IF(ICLD .EQ. 19) THEN                                             CLD  390
           HAZEC(K) = CLDAMT(K)/TKLWC                                   CLD  400
           RETURN                                                       CLD  410
      ENDIF                                                             CLD  420
      IF(ICLD .EQ. 20) THEN                                             CLD  430
           RETURN                                                       CLD  440
      ENDIF                                                             CLD  450
      GO TO(114,115,116,117,118,116,118,118,114,114,114),IH             CLD  460
114   HAZEC(K)=CLDAMT(K)/CULWC                                          CLD  470
      RETURN                                                            CLD  480
115   HAZEC(K)=CLDAMT(K)/ASLWC                                          CLD  490
      RETURN                                                            CLD  500
116   HAZEC(K)=CLDAMT(K)/STLWC                                          CLD  510
      RETURN                                                            CLD  520
117   HAZEC(K)=CLDAMT(K)/SCLWC                                          CLD  530
      RETURN                                                            CLD  540
118   HAZEC(K)=CLDAMT(K)/SNLWC                                          CLD  550
 15   RETURN                                                            CLD  560
200   IF(IHA1 .GT. 0) GO TO 205                                         CLD  570
      PRINT*,' WARNING ICLD NOT SET '                                   CLD  580
      RETURN                                                            CLD  590
205   CONTINUE                                                          CLD  600
      WRH = RELHUM(K)                                                   CLD  610
C                                                                       CLD  620
      M = IC1                                                           CLD  630
      IF (ICH(M).EQ.6.AND.M.NE.1) WRH=70.                               CLD  640
C     THIS CODING  DOES NOT ALLOW TROP RH DEPENDENT  ABOVE EH(7,I)      CLD  650
C     DEFAULTS TO TROPOSPHERIC AT 70. PERCENT                           CLD  660
      DO 210 I=2,4                                                      CLD  670
      IF (WRH.LT.RHZONE(I)) GO TO 215                                   CLD  680
  210 CONTINUE                                                          CLD  690
      I=4                                                               CLD  700
  215 II=I-1                                                            CLD  710
      IF(WRH.GT.0.0.AND.WRH.LT.99.)X=ALOG(100.0-WRH)                    CLD  720
      X1=ALOG(100.0-RHZONE(II))                                         CLD  730
      X2=ALOG(100.0-RHZONE(I))                                          CLD  740
      IF (WRH.GE.99.0) X=X2                                             CLD  750
      IF (WRH.LE.0.0) X=X1                                              CLD  760
      ITA=ICH(M)                                                        CLD  770
      IF(ITA.EQ.3. AND. M.EQ.1) GO TO 218                               CLD  780
      IF(ITA.GT.6) GO TO 245                                            CLD  790
CC                                                                      CLD  800
CC    MICROWAVE                                                         CLD  810
      N = 41                                                            CLD  820
CC                                                                      CLD  830
218   IF(N.GE.41. AND. ITA.EQ.3) ITA = 4                                CLD  840
C     RH DEPENDENT AEROSOLS                                             CLD  850
      GO TO (220,220,222,225,230,235), ITA                              CLD  860
 220  E2=ALOG(ELWCR(I))                                                 CLD  870
      E1=ALOG(ELWCR(II))                                                CLD  880
      GO TO 240                                                         CLD  890
 222  IF(M.GT.1) GO TO 225                                              CLD  900
      E2=ALOG(ELWCM(I))                                                 CLD  910
      E1=ALOG(ELWCM(II))                                                CLD  920
      GO TO 240                                                         CLD  930
  225 E2=ALOG(ELWCM(I))                                                 CLD  940
      E1=ALOG(ELWCM(II))                                                CLD  950
      GO TO 240                                                         CLD  960
  230 E2=ALOG(ELWCU(I))                                                 CLD  970
      E1=ALOG(ELWCU(II))                                                CLD  980
      GO TO 240                                                         CLD  990
  235 E2=ALOG(ELWCT(I))                                                 CLD 1000
      E1=ALOG(ELWCT(II))                                                CLD 1010
  240 EC=E1+(E2-E1)*(X-X1)/(X2-X1)                                      CLD 1020
      CON=EXP(EC)                                                       CLD 1030
      HAZEC(K) = CLDAMT(K)/CON                                          CLD 1040
      RETURN                                                            CLD 1050
  245 IF (ITA.GT.19) GO TO 275                                          CLD 1060
      ITC=ICH(M)-7                                                      CLD 1070
      IF (ITC.LT.1) RETURN                                              CLD 1080
      GO TO (250,255,280,260,265,270,265,270,260,260,270,275), ITC      CLD 1090
250   CON=AFLWC                                                         CLD 1100
      GO TO 280                                                         CLD 1110
255   CON=RFLWC                                                         CLD 1120
      GO TO 280                                                         CLD 1130
260   CON=BSLWC                                                         CLD 1140
      GO TO 280                                                         CLD 1150
265   CON=AVLWC                                                         CLD 1160
      GO TO 280                                                         CLD 1170
270   CON=FVLWC                                                         CLD 1180
      GO TO 280                                                         CLD 1190
275   CON=MDLWC                                                         CLD 1200
280   CONTINUE                                                          CLD 1210
      HAZEC(K) = CLDAMT(K)/CON                                          CLD 1220
      RETURN                                                            CLD 1230
      END                                                               CLD 1240
      SUBROUTINE CONVRT (P,T)                                           COV  100
C*************************************************************          COV  110
C                                                                       COV  120
C        WRITTEN APR, 1985 TO ACCOMMODATE 'JCHAR' DEFINITIONS FOR       COV  130
C        UNIFORM DATA INPUT -                                           COV  140
C                                                                       COV  150
C      JCHAR    JUNIT                                                   COV  160
C                                                                       COV  170
C    " ",A       10    VOLUME MIXING RATIO (PPMV)                       COV  180
C        B       11    NUMBER DENSITY (CM-3)                            COV  190
C        C       12    MASS MIXING RATIO (GM(K)/KG(AIR))                COV  200
C        D       13    MASS DENSITY (GM M-3)                            COV  210
C        E       14    PARTIAL PRESSURE (MB)                            COV  220
C        F       15    DEW POINT TEMP (TD IN T(K)) - H2O ONLY           COV  230
C        G       16     "    "     "  (TD IN T(C)) - H2O ONLY           COV  240
C        H       17    RELATIVE HUMIDITY (RH IN PERCENT) - H2O ONLY     COV  250
C        I       18    AVAILABLE FOR USER DEFINITION                    COV  260
C        J       19    REQUEST DEFAULT TO SPECIFIED MODEL ATMOSPHERE    COV  270
C                                                                       COV  280
C***************************************************************        COV  290
C                                                                       COV  300
      COMMON /IFIL/IRD,IPR,IPU,NPR,IPR1                                 COV  310
      COMMON /CONSTN/ PZERO,TZERO,AVOGAD,ALOSMT,GASCON,PLANK,BOLTZ,     COV  320
     1    CLIGHT,ADCON,ALZERO,AVMWT,AIRMWT,AMWT(35)                     COV  330
      COMMON /CARD1B/ JUNITP,JUNITT,JUNIT1(13),WMOL1(12),WAIR1,JLOW     COV  340
      DATA C1/18.9766/,C2/-14.9595/,C3/-2.43882/                        COV  350
      DENSAT(ATEMP) = ATEMP*B*EXP(C1+C2*ATEMP+C3*ATEMP**2)*1.0E-6       COV  360
C*****                                                                  COV  370
      RHOAIR = ALOSMT*(P/PZERO)*(TZERO/T)                               COV  380
C     NOPRNT = 0                                                        COV  390
C     A = TZERO/T                                                       COV  400
      DO 200 K = 1,12                                                   COV  410
      B = AVOGAD/AMWT(K)                                                COV  420
      R = AIRMWT/AMWT(K)                                                COV  430
      JUNIT = JUNIT1(K)                                                 COV  440
      WMOL  = WMOL1(K)                                                  COV  450
      IF(K.NE.1) GO TO 100                                              COV  460
      CALL WATVAP(P,T)                                                  COV  470
      GO TO 200                                                         COV  480
100   CONTINUE                                                          COV  490
      IF(JUNIT.GT.10) GO TO 110                                         COV  500
C*****GIVEN VOL. MIXING RATIO                                           COV  510
CC    WMOL1(K)=WMOL*RHOAIR*1.E-6                                        COV  520
      GO TO 200                                                         COV  530
110   IF(JUNIT.NE.11) GO TO 120                                         COV  540
C*****GIVEN NUMBER DENSITY (CM-3)                                       COV  550
CC    WMOL1(K) = WMOL                                                   COV  560
      WMOL1(K)=WMOL/(RHOAIR*1.E-6)                                      COV  570
      GO TO 200                                                         COV  580
120   CONTINUE                                                          COV  590
      IF(JUNIT.NE.12) GO TO 130                                         COV  600
C*****GIVEN MASS MIXING RATIO (GM KG-1)                                 COV  610
CC    WMOL1(K)= R*WMOL*1.0E-3*RHOAIR                                    COV  620
      WMOL1(K)= R*WMOL*1.0E+3                                           COV  630
      GO TO 200                                                         COV  640
130   CONTINUE                                                          COV  650
      IF(JUNIT.NE.13) GO TO 140                                         COV  660
C*****GIVEN MASS DENSITY (GM M-3)                                       COV  670
CC    WMOL1(K) = B*WMOL*1.0E-6                                          COV  680
      WMOL1(K) = B*WMOL/RHOAIR                                          COV  690
      GO TO 200                                                         COV  700
140   CONTINUE                                                          COV  710
      IF(JUNIT.NE.14) GO TO 150                                         COV  720
C*****GIVEN  PARTIAL PRESSURE (MB)                                      COV  730
CC    WMOL1(K)= ALOSMT*(WMOL/PZERO)*(TZERO/T)                           COV  740
      WTEM    = ALOSMT*(WMOL/PZERO)*(TZERO/T)                           COV  750
      WMOL1(K)=WTEM/(RHOAIR*1.E-6)                                      COV  760
      GO TO 200                                                         COV  770
150   CONTINUE                                                          COV  780
      IF(JUNIT.GT.14) GO TO 299                                         COV  790
200   CONTINUE                                                          COV  800
      RETURN                                                            COV  810
299   CONTINUE                                                          COV  820
      WRITE(IPR,951)JUNIT                                               COV  830
  951 FORMAT(/,'   **** ERROR IN CONVERT ****, JUNIT = ',I5)            COV  840
      STOP                                                              COV  850
      END                                                               COV  860
      BLOCK DATA CPH2O                                                  BCH  100
C>    BLOCK DATA                                                        BCH  105
C                                                                       BCH  110
C     C' FOR WATER VAPOR (H2O)                                          BCH  120
      COMMON /H2O/                                                      BCH  130
     +        C11H2O( 70),                                              BCH  140
     +        C21H2O(126),C22H2O(  5),                                  BCH  150
     +        C31H2O(126),C32H2O(  2),                                  BCH  160
     +        C41H2O(126),C42H2O( 52),                                  BCH  170
     +        C51H2O(126),C52H2O( 52),                                  BCH  180
     +        C61H2O(126),C62H2O( 52),                                  BCH  190
     +        C71H2O(126),C72H2O(126),C73H2O(116),                      BCH  200
     +        C81H2O(126),C82H2O(126),C83H2O(118),                      BCH  210
     +        C91H2O(126),C92H2O(126),C93H2O( 71),                      BCH  220
     +        CA1H2O(126),CA2H2O(126),CA3H2O(126),CA4H2O(7),            BCH  230
     +        CB1H2O(126),CB2H2O(126),CB3H2O( 54),                      BCH  240
     +        CC1H2O(126),CC2H2O(126),CC3H2O(106),                      BCH  250
     +        CD1H2O(126),CD2H2O(111),                                  BCH  260
     +        CE1H2O(126),CE2H2O(126),CE3H2O( 53)                       BCH  270
C=H2O ====C' FOR   14 BAND MODELS                                       BCH  280
C=H2O ====    0-  345                                                   BCH  290
      DATA C11H2O/                                                      BCH  300
     X -.59366, -.16679,  .42846,  .87819, 1.26357, 1.59247, 1.86372,   BCH  310
     X 2.11483, 2.31810, 2.44040, 2.55998, 2.69879, 2.79810, 2.89747,   BCH  320
     X 2.98118, 3.04863, 3.09568, 3.15381, 3.22984, 3.23785, 3.20991,   BCH  330
     X 3.14246, 3.03461, 2.98864, 3.03520, 3.08981, 3.10027, 3.11302,   BCH  340
     X 3.10266, 3.05765, 3.06166, 3.01593, 2.95500, 2.95328, 2.95297,   BCH  350
     X 2.91497, 2.83753, 2.74642, 2.70474, 2.75606, 2.84097, 2.89052,   BCH  360
     X 2.89886, 2.86150, 2.78032, 2.67212, 2.52752, 2.39301, 2.38109,   BCH  370
     8 2.43965, 2.46195, 2.39329, 2.22943, 2.15815, 2.16157, 2.29683,   BCH  380
     9 2.40335, 2.35569, 2.29239, 2.12968, 2.03781, 1.94313, 1.86282,   BCH  390
     X 1.87312, 1.88177, 1.95321, 1.94145, 1.92602, 1.92812, 1.90587/   BCH  400
C=H2O ====  350- 1000                                                   BCH  410
      DATA C21H2O/                                                      BCH  420
     X 2.04943, 1.95396, 1.78078, 1.60325, 1.55071, 1.49473, 1.46485,   BCH  430
     X 1.50231, 1.39831, 1.30664, 1.14704,  .96109,  .93139, 1.00613,   BCH  440
     X 1.11827, 1.13529, 1.07767,  .96652,  .90777,  .91973,  .90622,   BCH  450
     X  .93883,  .90861,  .81968,  .79852,  .69385,  .56997,  .49693,   BCH  460
     X  .40867,  .37846,  .44490,  .53554,  .59020,  .59196,  .50771,   BCH  470
     X  .34361,  .20796,  .15417,  .13600,  .14235,  .12700,  .08853,   BCH  480
     X  .06715,  .11430,  .15016,  .15016,  .13964,  .04897, -.04476,   BCH  490
     8 -.16953, -.30196, -.39901, -.42462, -.39340, -.35671, -.30771,   BCH  500
     9 -.31570, -.35021, -.47016, -.62308, -.77946, -.85086, -.82482,   BCH  510
     X -.83468, -.83991, -.89726, -.90918, -.84484, -.71025, -.62777,   BCH  520
     1 -.66324, -.76848,-1.03341,-1.27044,-1.49576,-1.61769,-1.53549,   BCH  530
     X-1.47958,-1.33160,-1.29625,-1.40768,-1.52411,-1.72765,-1.82510,   BCH  540
     X-1.76468,-1.70983,-1.59977,-1.50730,-1.46683,-1.39464,-1.43093,   BCH  550
     X-1.58947,-1.78778,-2.06146,-2.33634,-2.40749,-2.49065,-2.44182,   BCH  560
     X-2.25150,-2.19801,-2.08624,-2.10309,-2.27174,-2.36492,-2.45781,   BCH  570
     X-2.44508,-2.36196,-2.38101,-2.48058,-2.61957,-2.74895,-2.74245,   BCH  580
     X-2.63961,-2.61588,-2.61569,-2.71770,-2.92220,-3.01021,-2.99432,   BCH  590
     X-2.89456,-2.79847,-2.73359,-2.69055,-2.65898,-2.60837,-2.63170/   BCH  600
      DATA C22H2O/                                                      BCH  610
     X-2.79096,-2.97394,-3.15934,-3.17057,-2.95258/                     BCH  620
C=H2O ==== 1005- 1640                                                   BCH  630
      DATA C31H2O/                                                      BCH  640
     C-2.78308,-2.69196,-2.60867,-2.62239,-2.62637,-2.62950,-2.71010,   BCH  650
     C-2.72574,-2.71317,-2.61321,-2.51967,-2.42437,-2.38734,-2.45056,   BCH  660
     C-2.47843,-2.58702,-2.56472,-2.44706,-2.30814,-2.12582,-2.02697,   BCH  670
     C-1.99880,-2.05659,-2.05701,-2.06643,-2.04721,-1.90723,-1.90946,   BCH  680
     C-1.92812,-1.86522,-1.88820,-1.77270,-1.60669,-1.51740,-1.40182,   BCH  690
     C-1.38758,-1.38799,-1.41620,-1.43182,-1.37124,-1.28249,-1.09992,   BCH  700
     C -.99724, -.97950, -.99952,-1.09066,-1.09980,-1.00750, -.87259,   BCH  710
     8 -.70131, -.48309, -.30502, -.20407, -.13886, -.19661, -.24505,   BCH  720
     9 -.28415, -.34466, -.34496, -.28657, -.09485,  .16770,  .38311,   BCH  730
     C  .48553,  .49475,  .49074,  .52493,  .57439,  .60303,  .66919,   BCH  740
     1  .75656,  .90385, 1.04976, 1.13836, 1.20132, 1.21963, 1.30344,   BCH  750
     C 1.41212, 1.46770, 1.47630, 1.45559, 1.43315, 1.49679, 1.62749,   BCH  760
     C 1.68517, 1.70120, 1.66090, 1.59891, 1.64107, 1.76792, 1.93419,   BCH  770
     C 2.09362, 2.13280, 2.07959, 2.01987, 1.96835, 2.03073, 2.17591,   BCH  780
     C 2.32257, 2.49261, 2.60881, 2.66112, 2.68139, 2.70360, 2.70568,   BCH  790
     C 2.67997, 2.66478, 2.63655, 2.59716, 2.57555, 2.58781, 2.58940,   BCH  800
     C 2.50826, 2.28771, 1.95070, 1.59144, 1.31269, 1.21786, 1.22507,   BCH  810
     8 1.31945, 1.53875, 1.78543, 2.02655, 2.22881, 2.32061, 2.34163/   BCH  820
      DATA C32H2O/                                                      BCH  830
     C 2.39432, 2.43073/                                                BCH  840
C=H2O ==== 1645- 2530                                                   BCH  850
      DATA C41H2O/                                                      BCH  860
     C 2.53438, 2.55861, 2.51156, 2.46499, 2.46254, 2.51561, 2.56373,   BCH  870
     C 2.62430, 2.67999, 2.68386, 2.68780, 2.68227, 2.59536, 2.42505,   BCH  880
     C 2.29307, 2.17816, 2.11945, 2.20521, 2.32197, 2.38083, 2.38052,   BCH  890
     C 2.25417, 2.11473, 2.06142, 2.02788, 2.01508, 1.97680, 1.91586,   BCH  900
     C 1.87253, 1.83706, 1.80766, 1.67367, 1.45528, 1.29956, 1.18809,   BCH  910
     C 1.20246, 1.33650, 1.45778, 1.48886, 1.40546, 1.22716, 1.01444,   BCH  920
     C  .91282,  .87247,  .83576,  .80170,  .71481,  .66927,  .65846,   BCH  930
     C  .66839,  .68503,  .66215,  .72413,  .78703,  .77831,  .71136,   BCH  940
     C  .51200,  .35931,  .30680,  .33365,  .36267,  .32095,  .25710,   BCH  950
     C  .12363, -.02266, -.18001, -.28048, -.27808, -.19047, -.08151,   BCH  960
     C -.09169, -.16662, -.24404, -.27238, -.27345, -.32244, -.42037,   BCH  970
     C -.54071, -.63500, -.69930, -.77174, -.83521, -.86639, -.82329,   BCH  980
     C -.78820, -.82340, -.83838, -.91387, -.96524, -.96364,-1.05757,   BCH  990
     C-1.12747,-1.19973,-1.27071,-1.30173,-1.34436,-1.35556,-1.35990,   BCH 1000
     C-1.30386,-1.26726,-1.28022,-1.32843,-1.43599,-1.55929,-1.69416,   BCH 1010
     C-1.79362,-1.86416,-1.90037,-1.91305,-1.94866,-1.95483,-1.92284,   BCH 1020
     C-1.87535,-1.83065,-1.86043,-1.93470,-2.01410,-2.07677,-2.07980,   BCH 1030
     C-2.01822,-1.96078,-1.95185,-1.96638,-2.05704,-2.17667,-2.24120/   BCH 1040
      DATA C42H2O/                                                      BCH 1050
     C-2.27833,-2.33268,-2.37375,-2.43075,-2.54346,-2.60789,-2.68442,   BCH 1060
     C-2.78402,-2.83736,-2.89622,-2.95598,-3.03170,-3.13338,-3.26736,   BCH 1070
     C-3.41725,-3.51456,-3.61586,-3.67210,-3.67841,-3.72135,-3.74941,   BCH 1080
     C-3.78822,-3.85868,-3.90419,-3.91592,-3.97897,-4.00562,-4.08675,   BCH 1090
     C-4.18795,-4.15833,-4.18094,-4.18872,-4.25849,-4.42026,-4.57444,   BCH 1100
     C-4.64021,-4.58636,-4.51788,-4.46274,-4.44165,-4.45450,-4.42101,   BCH 1110
     C-4.35067,-4.30493,-4.23157,-4.11952,-4.01918,-3.93341,-3.81424,   BCH 1120
     C-3.70572,-3.62484,-3.48143/                                       BCH 1130
C=H2O ==== 2535- 3420                                                   BCH 1140
      DATA C51H2O/                                                      BCH 1150
     C-3.35886,-3.26514,-3.15517,-3.02814,-2.95147,-2.83444,-2.68908,   BCH 1160
     C-2.62390,-2.50458,-2.39841,-2.35516,-2.24360,-2.18204,-2.16652,   BCH 1170
     C-2.08381,-2.02597,-1.99880,-1.90122,-1.84045,-1.82575,-1.74889,   BCH 1180
     C-1.70489,-1.66792,-1.60475,-1.59789,-1.59221,-1.60854,-1.66569,   BCH 1190
     C-1.68527,-1.72998,-1.79886,-1.81356,-1.82715,-1.79425,-1.61106,   BCH 1200
     C-1.40549,-1.24369,-1.15433,-1.23589,-1.44178,-1.64717,-1.78560,   BCH 1210
     C-1.84622,-1.77824,-1.69071,-1.66066,-1.58765,-1.54222,-1.51960,   BCH 1220
     8-1.45477,-1.39881,-1.38659,-1.37586,-1.36025,-1.39179,-1.36927,   BCH 1230
     C-1.35455,-1.38734,-1.40292,-1.45598,-1.51545,-1.56173,-1.62478,   BCH 1240
     C-1.69200,-1.75192,-1.81120,-1.83354,-1.87063,-1.89006,-1.88485,   BCH 1250
     C-1.90298,-1.85403,-1.82001,-1.82495,-1.82901,-1.90076,-1.93649,   BCH 1260
     C-1.83304,-1.70268,-1.52380,-1.41443,-1.41301,-1.39373,-1.34561,   BCH 1270
     C-1.20932,-1.03186, -.85296, -.71145, -.59825, -.51884, -.51690,   BCH 1280
     C -.51723, -.52224, -.50043, -.40989, -.32204, -.24881, -.18653,   BCH 1290
     C -.17548, -.22729, -.32885, -.46183, -.47994, -.36042, -.23072,   BCH 1300
     6 -.12160, -.06422, -.14924, -.21674, -.17913, -.15803, -.04515,   BCH 1310
     C  .14450,  .28118,  .39718,  .49818,  .51040,  .44761,  .29666,   BCH 1320
     8  .01147, -.32421, -.66518, -.96090,-1.13017,-1.18009,-1.08032/   BCH 1330
      DATA C52H2O/                                                      BCH 1340
     C -.80133, -.52001, -.33748, -.22519, -.20871, -.26962, -.22592,   BCH 1350
     C -.15919, -.07358,  .09367,  .20019,  .25965,  .27816,  .28577,   BCH 1360
     C  .22305,  .17722,  .14469,  .06694,  .07268,  .10103,  .14554,   BCH 1370
     C  .20352,  .25681,  .25790,  .21316,  .15965,  .08703,  .01638,   BCH 1380
     C -.03529, -.03274, -.08812, -.12524, -.13536, -.23808, -.28262,   BCH 1390
     C -.30082, -.29252, -.13320,  .05226,  .17657,  .21670,  .12268,   BCH 1400
     C  .00438, -.03051, -.00359,  .02967,  .04460, -.01109, -.06041,   BCH 1410
     C -.07485, -.02511,  .07116/                                       BCH 1420
C=H2O ==== 3425- 4310                                                   BCH 1430
      DATA C61H2O/                                                      BCH 1440
     C  .18506,  .27668,  .32130,  .35452,  .39867,  .36470,  .34978,   BCH 1450
     C  .36519,  .38993,  .47009,  .54349,  .60193,  .67101,  .73253,   BCH 1460
     C  .84100,  .92974, 1.00406, 1.06301, 1.07261, 1.09629, 1.10790,   BCH 1470
     C 1.10959, 1.11710, 1.15716, 1.24152, 1.34834, 1.45152, 1.53939,   BCH 1480
     C 1.59331, 1.60894, 1.63833, 1.67031, 1.74144, 1.82069, 1.90463,   BCH 1490
     C 1.98593, 2.02996, 2.10254, 2.16357, 2.16140, 2.11190, 2.06655,   BCH 1500
     C 2.02241, 2.02978, 2.06771, 2.04985, 2.02048, 1.99566, 2.01593,   BCH 1510
     8 2.11269, 2.22805, 2.27037, 2.23480, 2.16907, 2.09990, 2.08096,   BCH 1520
     C 2.10710, 2.15298, 2.19061, 2.25811, 2.34221, 2.43200, 2.59765,   BCH 1530
     C 2.72007, 2.77243, 2.71671, 2.56246, 2.33896, 2.14412, 1.97864,   BCH 1540
     C 1.79640, 1.73371, 1.71380, 1.74950, 1.91932, 2.10063, 2.26262,   BCH 1550
     C 2.36884, 2.42988, 2.47605, 2.51875, 2.53371, 2.51476, 2.47425,   BCH 1560
     C 2.40051, 2.39254, 2.39540, 2.35342, 2.33460, 2.26830, 2.17169,   BCH 1570
     C 2.09605, 2.04747, 2.01127, 1.89721, 1.74928, 1.55948, 1.38069,   BCH 1580
     C 1.34831, 1.35751, 1.35809, 1.34286, 1.25929, 1.16743, 1.09595,   BCH 1590
     6 1.00365,  .87965,  .76257,  .64206,  .56343,  .49943,  .40691,   BCH 1600
     C  .29104,  .18437,  .12690,  .09157,  .13377,  .18899,  .20257,   BCH 1610
     8  .19155,  .09384, -.01238, -.14283, -.26122, -.31851, -.45610/   BCH 1620
      DATA C62H2O/                                                      BCH 1630
     C -.58273, -.65867, -.73100, -.66169, -.52264, -.46798, -.50258,   BCH 1640
     C -.59104, -.72925, -.81067, -.80914, -.86943, -.92975, -.92524,   BCH 1650
     C -.88289, -.79203, -.69250, -.68167, -.75444, -.86193, -.97556,   BCH 1660
     C-1.10473,-1.20018,-1.24824,-1.27702,-1.22693,-1.18773,-1.13552,   BCH 1670
     C-1.14015,-1.21589,-1.26394,-1.39464,-1.46192,-1.52629,-1.64635,   BCH 1680
     C-1.71511,-1.78752,-1.79358,-1.77801,-1.75599,-1.77196,-1.83224,   BCH 1690
     C-1.89985,-1.98528,-2.09408,-2.24126,-2.37607,-2.43218,-2.43830,   BCH 1700
     C-2.38400,-2.33538,-2.43573/                                       BCH 1710
C=H2O ==== 4315- 6150                                                   BCH 1720
      DATA C71H2O/                                                      BCH 1730
     X-2.52275,-2.67290,-2.83451,-2.93019,-3.01749,-3.02463,-2.99666,   BCH 1740
     X-2.95414,-2.91300,-2.96493,-3.07471,-3.25693,-3.47657,-3.67222,   BCH 1750
     X-3.88925,-3.97727,-3.94079,-3.81920,-3.66194,-3.59739,-3.64351,   BCH 1760
     X-3.74016,-3.90037,-4.04679,-4.07663,-4.03256,-3.91836,-3.80990,   BCH 1770
     X-3.76032,-3.77951,-3.84240,-3.90305,-3.92223,-3.82628,-3.65450,   BCH 1780
     X-3.44339,-3.25756,-3.09919,-3.00901,-2.95747,-2.88271,-2.82108,   BCH 1790
     X-2.72633,-2.59367,-2.46775,-2.36235,-2.28438,-2.27343,-2.30886,   BCH 1800
     8-2.33620,-2.27813,-2.20677,-2.16170,-2.14594,-2.24245,-2.36299,   BCH 1810
     X-2.42996,-2.50866,-2.55678,-2.50968,-2.47465,-2.42796,-2.37981,   BCH 1820
     X-2.34092,-2.30518,-2.26753,-2.27390,-2.44156,-2.72384,-3.06108,   BCH 1830
     X-3.38056,-3.48970,-3.41674,-3.36528,-3.27790,-3.15495,-3.01945,   BCH 1840
     X-2.81869,-2.66003,-2.56096,-2.49017,-2.46335,-2.51454,-2.59743,   BCH 1850
     X-2.67025,-2.78841,-2.77863,-2.63881,-2.54169,-2.40240,-2.37146,   BCH 1860
     X-2.46253,-2.54291,-2.65346,-2.69467,-2.69130,-2.65025,-2.59152,   BCH 1870
     X-2.56343,-2.50785,-2.44665,-2.41418,-2.34553,-2.28223,-2.25278,   BCH 1880
     6-2.20694,-2.16892,-2.14295,-2.14341,-2.16443,-2.24853,-2.38594,   BCH 1890
     X-2.49449,-2.58047,-2.55462,-2.41673,-2.35641,-2.32619,-2.34603,   BCH 1900
     8-2.40102,-2.30576,-2.20532,-2.09307,-2.00782,-2.00039,-1.91252/   BCH 1910
      DATA C72H2O/                                                      BCH 1920
     X-1.80383,-1.65749,-1.55728,-1.59262,-1.70939,-1.83569,-1.84895,   BCH 1930
     X-1.71457,-1.53813,-1.41904,-1.37588,-1.39458,-1.39135,-1.35232,   BCH 1940
     X-1.30470,-1.24821,-1.20394,-1.19607,-1.15995,-1.13948,-1.11024,   BCH 1950
     X-1.03785, -.99804, -.95430, -.92707, -.93592, -.93528, -.86881,   BCH 1960
     X -.75121, -.55836, -.35056, -.22085, -.13412, -.12673, -.13867,   BCH 1970
     X -.11656, -.07357,  .01888,  .11050,  .20428,  .29291,  .35923,   BCH 1980
     X  .43608,  .47266,  .49792,  .54978,  .60489,  .67778,  .71787,   BCH 1990
     8  .73606,  .74796,  .75193,  .81728,  .87972,  .95990, 1.07451,   BCH 2000
     X 1.13098, 1.17565, 1.19031, 1.20334, 1.27687, 1.35910, 1.41924,   BCH 2010
     X 1.37988, 1.28213, 1.16286, 1.08658, 1.06554, 1.03702, 1.01290,   BCH 2020
     X  .95519,  .94231,  .94216,  .95764, 1.03405, 1.11309, 1.27076,   BCH 2030
     X 1.48131, 1.66125, 1.76502, 1.68299, 1.50126, 1.28195, 1.13724,   BCH 2040
     X 1.09863, 1.12031, 1.23502, 1.34328, 1.39556, 1.40851, 1.40939,   BCH 2050
     X 1.40259, 1.39505, 1.38427, 1.33724, 1.29860, 1.34354, 1.43194,   BCH 2060
     X 1.50874, 1.54493, 1.48740, 1.37260, 1.26973, 1.21297, 1.11026,   BCH 2070
     6  .97625,  .87238,  .76100,  .71825,  .73936,  .69604,  .64138,   BCH 2080
     X  .59585,  .51097,  .44903,  .40524,  .29892,  .21583,  .19145,   BCH 2090
     8  .15378,  .13759,  .09412, -.04455, -.18870, -.28538, -.37204/   BCH 2100
      DATA C73H2O/                                                      BCH 2110
     X -.46390, -.57884, -.70647, -.78911, -.79511, -.76645, -.76146,   BCH 2120
     X -.80163, -.83155, -.86672, -.92994, -.99971,-1.10990,-1.25701,   BCH 2130
     X-1.32841,-1.33350,-1.35269,-1.31799,-1.35095,-1.48830,-1.57874,   BCH 2140
     X-1.67539,-1.72874,-1.68087,-1.67518,-1.73066,-1.77654,-1.79238,   BCH 2150
     X-1.81386,-1.77187,-1.73774,-1.78673,-1.82129,-1.86174,-1.87867,   BCH 2160
     X-1.92986,-1.95895,-1.98042,-2.10738,-2.14350,-2.22883,-2.35165,   BCH 2170
     X-2.30593,-2.31343,-2.23607,-2.17791,-2.29047,-2.40740,-2.60466,   BCH 2180
     8-2.70413,-2.67647,-2.64479,-2.62274,-2.66727,-2.67591,-2.66531,   BCH 2190
     X-2.64576,-2.69566,-2.79611,-2.90809,-2.99381,-2.94495,-2.94833,   BCH 2200
     X-2.97002,-3.01283,-3.07907,-3.08348,-3.06412,-3.08084,-3.20105,   BCH 2210
     X-3.32453,-3.49652,-3.63219,-3.65897,-3.69476,-3.63741,-3.54369,   BCH 2220
     X-3.44992,-3.41310,-3.43168,-3.48306,-3.57513,-3.59385,-3.59684,   BCH 2230
     X-3.60814,-3.50612,-3.41284,-3.34107,-3.27248,-3.26950,-3.31027,   BCH 2240
     X-3.32205,-3.29589,-3.29768,-3.28777,-3.29950,-3.39843,-3.43784,   BCH 2250
     X-3.47042,-3.54250,-3.55457,-3.69278,-3.82390,-3.91709,-4.02428,   BCH 2260
     6-3.97802,-4.04945,-3.99837,-3.96096,-4.01515,-4.01286,-4.27890,   BCH 2270
     7-4.64526,-4.92520,-5.20714,-5.02961/                              BCH 2280
C=H2O ==== 6155- 8000                                                   BCH 2290
      DATA C81H2O/                                                      BCH 2300
     X-4.88315,-4.85584,-4.76921,-4.54440,-4.33075,-4.16671,-4.04406,   BCH 2310
     X-4.09564,-4.11792,-4.14522,-4.19109,-4.14906,-4.22221,-4.35301,   BCH 2320
     X-4.47867,-4.50537,-4.41913,-4.24856,-4.05892,-3.91396,-3.73977,   BCH 2330
     X-3.60042,-3.52610,-3.50040,-3.55218,-3.66025,-3.77097,-3.87835,   BCH 2340
     X-3.96454,-3.93046,-3.92926,-3.96805,-3.99038,-4.10179,-4.21981,   BCH 2350
     X-4.24013,-4.26190,-4.27753,-4.25594,-4.28500,-4.29071,-4.26155,   BCH 2360
     X-4.16114,-4.04160,-3.91756,-3.82524,-3.76258,-3.74207,-3.77017,   BCH 2370
     8-3.80666,-3.92858,-4.01356,-4.10145,-4.16708,-4.09123,-4.00345,   BCH 2380
     X-3.88032,-3.81171,-3.80771,-3.83212,-3.88507,-3.81399,-3.70048,   BCH 2390
     X-3.58376,-3.46350,-3.42785,-3.41629,-3.40329,-3.36172,-3.26599,   BCH 2400
     X-3.16908,-3.10954,-3.03394,-2.95828,-2.85536,-2.71469,-2.60076,   BCH 2410
     X-2.48946,-2.38513,-2.32220,-2.30051,-2.34186,-2.37590,-2.33267,   BCH 2420
     X-2.21087,-2.03216,-1.91013,-1.82328,-1.77996,-1.76714,-1.72488,   BCH 2430
     X-1.71325,-1.67669,-1.62963,-1.60411,-1.54027,-1.47681,-1.37155,   BCH 2440
     X-1.25978,-1.23494,-1.26986,-1.33751,-1.37220,-1.28322,-1.14853,   BCH 2450
     6-1.03021, -.89832, -.84340, -.83317, -.78856, -.76905, -.69209,   BCH 2460
     X -.53147, -.37401, -.25508, -.21755, -.22627, -.23936, -.22223,   BCH 2470
     8 -.17345, -.11880, -.10331, -.15444, -.20353, -.25350, -.26628/   BCH 2480
      DATA C82H2O/                                                      BCH 2490
     X -.13441,  .02358,  .13657,  .22032,  .19637,  .12621,  .07999,   BCH 2500
     X  .04393, -.01900, -.06543, -.08129, -.14847, -.17765, -.23113,   BCH 2510
     X -.29309, -.28723, -.27521, -.20013, -.11575, -.00428,  .10976,   BCH 2520
     X  .16530,  .18309,  .13200,  .10610,  .10394,  .13621,  .17117,   BCH 2530
     X  .17251,  .18671,  .16161,  .16640,  .18417,  .18573,  .24876,   BCH 2540
     X  .26103,  .28476,  .33612,  .30642,  .30150,  .27173,  .21976,   BCH 2550
     X  .23130,  .27376,  .30887,  .34334,  .34765,  .31180,  .30774,   BCH 2560
     8  .31256,  .35423,  .42454,  .44493,  .43846,  .44507,  .43684,   BCH 2570
     X  .49327,  .53868,  .51933,  .54592,  .54951,  .63201,  .74737,   BCH 2580
     X  .80266,  .88719,  .87874,  .84412,  .84352,  .81737,  .86380,   BCH 2590
     X  .94765,  .95553,  .93965,  .90241,  .91481, 1.00917, 1.11552,   BCH 2600
     X 1.15202, 1.06885,  .96737,  .85164,  .80701,  .82571,  .87391,   BCH 2610
     X  .98520, 1.07042, 1.18051, 1.29004, 1.37755, 1.48278, 1.47663,   BCH 2620
     X 1.40851, 1.27508, 1.11986,  .98454,  .88260,  .82338,  .79509,   BCH 2630
     X  .83355,  .91046, 1.04503, 1.21868, 1.36672, 1.46155, 1.47085,   BCH 2640
     6 1.46520, 1.42619, 1.37940, 1.41333, 1.43128, 1.45974, 1.54526,   BCH 2650
     X 1.53032, 1.48103, 1.39624, 1.26267, 1.17261, 1.09232, 1.05888,   BCH 2660
     8 1.01929,  .94626,  .87615,  .73334,  .61962,  .52576,  .40124/   BCH 2670
      DATA C83H2O/                                                      BCH 2680
     X  .32424,  .20042,  .05769, -.09325, -.27407, -.40779, -.52559,   BCH 2690
     X -.58490, -.57916, -.54457, -.50743, -.45937, -.41861, -.41520,   BCH 2700
     X -.39164, -.36510, -.30857, -.23157, -.18280, -.15878, -.21295,   BCH 2710
     X -.29332, -.39457, -.54826, -.71006, -.87700, -.96819, -.98703,   BCH 2720
     X -.93748, -.83916, -.78698, -.76209, -.80754, -.93347,-1.06076,   BCH 2730
     X-1.15801,-1.16256,-1.09618,-1.03195,-1.05522,-1.13586,-1.23387,   BCH 2740
     X-1.33214,-1.32682,-1.33648,-1.38038,-1.42553,-1.49769,-1.52950,   BCH 2750
     8-1.54445,-1.56745,-1.61707,-1.69148,-1.76787,-1.82556,-1.84347,   BCH 2760
     X-1.86221,-1.87097,-1.84614,-1.88659,-1.98535,-2.12108,-2.27740,   BCH 2770
     X-2.39335,-2.39886,-2.33846,-2.30442,-2.27409,-2.29854,-2.39124,   BCH 2780
     X-2.56427,-2.73609,-2.88840,-3.00443,-3.02685,-3.09379,-3.16003,   BCH 2790
     X-3.13090,-3.06189,-3.00807,-2.95169,-3.01568,-3.11918,-3.18931,   BCH 2800
     X-3.35446,-3.46712,-3.51002,-3.48618,-3.36603,-3.29278,-3.32935,   BCH 2810
     X-3.47177,-3.61763,-3.68930,-3.67420,-3.62078,-3.67644,-3.76717,   BCH 2820
     X-3.78944,-3.79818,-3.75336,-3.74321,-3.86778,-3.96899,-4.05004,   BCH 2830
     6-4.15451,-4.17979,-4.22704,-4.28851,-4.25560,-4.21920,-4.27564,   BCH 2840
     7-4.42921,-4.58506,-4.70967,-4.80136,-4.64650,-4.65341/            BCH 2850
C=H2O ==== 8005- 9615                                                   BCH 2860
      DATA C91H2O/                                                      BCH 2870
     X-4.51995,-4.42433,-4.42137,-4.44853,-4.44819,-4.49132,-4.49176,   BCH 2880
     X-4.52929,-4.58468,-4.60533,-4.62362,-4.60168,-4.59803,-4.45292,   BCH 2890
     X-4.26920,-4.09891,-3.92615,-3.86016,-3.69436,-3.53699,-3.38584,   BCH 2900
     X-3.23356,-3.19281,-3.14232,-3.11326,-3.04386,-2.90514,-2.80270,   BCH 2910
     X-2.68808,-2.62726,-2.61349,-2.57111,-2.54465,-2.47142,-2.42795,   BCH 2920
     X-2.40936,-2.37936,-2.41255,-2.40417,-2.41017,-2.39774,-2.33861,   BCH 2930
     X-2.23985,-2.08388,-2.00350,-1.93767,-1.91020,-1.92815,-1.89802,   BCH 2940
     8-1.85648,-1.84229,-1.86062,-1.89799,-1.95863,-2.01858,-2.05596,   BCH 2950
     X-2.06508,-2.02824,-1.93392,-1.83965,-1.74890,-1.71252,-1.72275,   BCH 2960
     X-1.71193,-1.68781,-1.66945,-1.64316,-1.63675,-1.69286,-1.70297,   BCH 2970
     X-1.72751,-1.75100,-1.73714,-1.79804,-1.84371,-1.86235,-1.88812,   BCH 2980
     X-1.83704,-1.77649,-1.70661,-1.60188,-1.50341,-1.43505,-1.46076,   BCH 2990
     X-1.51651,-1.57911,-1.61619,-1.55812,-1.49706,-1.45230,-1.42832,   BCH 3000
     X-1.44314,-1.52138,-1.60752,-1.62106,-1.64265,-1.64250,-1.64573,   BCH 3010
     X-1.74951,-1.80667,-1.76036,-1.68790,-1.57515,-1.53228,-1.57292,   BCH 3020
     6-1.61350,-1.65583,-1.63563,-1.58694,-1.56417,-1.53128,-1.54079,   BCH 3030
     X-1.55014,-1.53022,-1.53190,-1.50230,-1.50260,-1.49991,-1.45992,   BCH 3040
     8-1.41944,-1.31703,-1.21850,-1.14990,-1.08809,-1.04748,-1.01748/   BCH 3050
      DATA C92H2O/                                                      BCH 3060
     X -.95109, -.84680, -.74538, -.60472, -.50362, -.46372, -.42447,   BCH 3070
     X -.44838, -.44419, -.40683, -.38084, -.33053, -.32846, -.33572,   BCH 3080
     X -.31158, -.29906, -.20305, -.13083, -.09973, -.06963, -.12740,   BCH 3090
     X -.20199, -.29978, -.35896, -.38843, -.41730, -.45017, -.51507,   BCH 3100
     X -.56213, -.57297, -.50844, -.42276, -.29372, -.08843,  .09240,   BCH 3110
     X  .25840,  .28311,  .13891, -.06768, -.28207, -.39760, -.40444,   BCH 3120
     X -.31138, -.14305, -.02128,  .04782,  .08894,  .10200,  .09648,   BCH 3130
     8  .10814,  .09787,  .04275,  .07559,  .12150,  .14186,  .19034,   BCH 3140
     X  .13856,  .07934,  .05903, -.00117, -.04140, -.11747, -.21938,   BCH 3150
     X -.28241, -.37335, -.49225, -.58631, -.68229, -.75086, -.77623,   BCH 3160
     X -.84652, -.93691,-1.00829,-1.07836,-1.10936,-1.10990,-1.10672,   BCH 3170
     X-1.07623,-1.03447,-1.01613,-1.00369, -.99511,-1.06778,-1.12221,   BCH 3180
     X-1.14258,-1.19379,-1.17257,-1.15262,-1.17033,-1.16389,-1.14503,   BCH 3190
     X-1.13643,-1.12323,-1.19203,-1.33003,-1.47540,-1.65339,-1.68424,   BCH 3200
     X-1.66968,-1.67118,-1.61782,-1.65910,-1.73337,-1.81449,-1.93135,   BCH 3210
     6-2.03554,-2.03827,-1.99609,-2.00710,-2.03895,-2.19678,-2.30931,   BCH 3220
     X-2.30301,-2.23226,-2.07787,-2.03277,-2.03851,-2.10514,-2.23452,   BCH 3230
     8-2.33474,-2.44465,-2.43944,-2.37675,-2.35973,-2.37611,-2.48915/   BCH 3240
      DATA C93H2O/                                                      BCH 3250
     X-2.59681,-2.62562,-2.61907,-2.61274,-2.73225,-2.84636,-2.91882,   BCH 3260
     X-2.95084,-2.84617,-2.83687,-2.84531,-2.82928,-2.88406,-2.93621,   BCH 3270
     X-3.00526,-3.09956,-3.16051,-3.18338,-3.25056,-3.38003,-3.56102,   BCH 3280
     X-3.72396,-3.80811,-3.82369,-3.79760,-3.90921,-4.04910,-4.14132,   BCH 3290
     X-4.22416,-4.16634,-4.21193,-4.37375,-4.54004,-4.54848,-4.34009,   BCH 3300
     X-4.10097,-3.93945,-3.99014,-4.18155,-4.46321,-4.84035,-4.95672,   BCH 3310
     X-4.88529,-4.92967,-5.09480,-5.27981,-5.39165,-5.32774,-5.16805,   BCH 3320
     8-5.26308,-5.53619,-5.93153,-6.48485,-6.38350,-6.02883,-5.76237,   BCH 3330
     X-5.65535,-5.58220,-5.58090,-5.69939,-5.87562,-6.23761,-6.45380,   BCH 3340
     X-6.50710,-6.40861,-6.18069,-6.15034,-6.12957,-6.08168,-6.05912,   BCH 3350
     1-6.20029/                                                         BCH 3360
C=H2O ==== 9620-11540                                                   BCH 3370
      DATA CA1H2O/                                                      BCH 3380
     X-6.35916,-6.63834,-7.22799,-6.87579,-6.38557,-6.05701,-5.77145,   BCH 3390
     X-5.71889,-5.54063,-5.34887,-5.20440,-5.01687,-4.88229,-4.75732,   BCH 3400
     X-4.61829,-4.47540,-4.40382,-4.22901,-4.07893,-3.91067,-3.71540,   BCH 3410
     X-3.66982,-3.60413,-3.59635,-3.66139,-3.67630,-3.61574,-3.49060,   BCH 3420
     X-3.33033,-3.18950,-3.19004,-3.27293,-3.43811,-3.58539,-3.69658,   BCH 3430
     X-3.64411,-3.52966,-3.51758,-3.45900,-3.56858,-3.67516,-3.75396,   BCH 3440
     X-3.80574,-3.77074,-3.74231,-3.63809,-3.64323,-3.59911,-3.62673,   BCH 3450
     8-3.64385,-3.54801,-3.49160,-3.38461,-3.33358,-3.21719,-3.04173,   BCH 3460
     X-2.89493,-2.77334,-2.79171,-2.91085,-3.04844,-3.23627,-3.31742,   BCH 3470
     X-3.35484,-3.39756,-3.34285,-3.36017,-3.34117,-3.26031,-3.20256,   BCH 3480
     X-3.07615,-2.98533,-3.01199,-3.13943,-3.33780,-3.54162,-3.64413,   BCH 3490
     X-3.59251,-3.59490,-3.60162,-3.66139,-3.81236,-3.87304,-4.04749,   BCH 3500
     X-4.11623,-4.09447,-4.12708,-3.91916,-3.77960,-3.62012,-3.44890,   BCH 3510
     X-3.42739,-3.42156,-3.36932,-3.34675,-3.22941,-3.12258,-3.12447,   BCH 3520
     X-3.07216,-3.06608,-3.04637,-2.99581,-3.00597,-2.94524,-2.83430,   BCH 3530
     6-2.69244,-2.53460,-2.44553,-2.36211,-2.25128,-2.12504,-1.99329,   BCH 3540
     X-1.94694,-1.96858,-2.02552,-2.02890,-1.95458,-1.83064,-1.68469,   BCH 3550
     8-1.63148,-1.63055,-1.64868,-1.68433,-1.65098,-1.54445,-1.45543/   BCH 3560
      DATA CA2H2O/                                                      BCH 3570
     X-1.39405,-1.35500,-1.38974,-1.43708,-1.49729,-1.58141,-1.63709,   BCH 3580
     X-1.71988,-1.74834,-1.78729,-1.81439,-1.79445,-1.80727,-1.78446,   BCH 3590
     X-1.77116,-1.69515,-1.57106,-1.41358,-1.22505,-1.11749,-1.06719,   BCH 3600
     X-1.05722,-1.05923,-1.08022,-1.08249,-1.05940,-1.05527, -.97884,   BCH 3610
     X -.90009, -.86984, -.84202, -.84891, -.86571, -.87771, -.86436,   BCH 3620
     X -.89675, -.95811, -.95681, -.98685, -.91920, -.79481, -.73405,   BCH 3630
     X -.63486, -.61580, -.66083, -.69059, -.75323, -.74477, -.65052,   BCH 3640
     8 -.58475, -.56151, -.61494, -.70313, -.70147, -.64776, -.57626,   BCH 3650
     X -.52669, -.56405, -.57813, -.57452, -.57656, -.52371, -.48121,   BCH 3660
     X -.47066, -.44204, -.42321, -.43939, -.40019, -.34592, -.36666,   BCH 3670
     X -.36117, -.41494, -.53334, -.63311, -.73668, -.83196, -.91543,   BCH 3680
     X -.92801, -.91893, -.82619, -.64369, -.45814, -.28838, -.20295,   BCH 3690
     X -.12845, -.12789, -.14668, -.10804, -.12206, -.08664, -.05495,   BCH 3700
     X -.09929, -.16477, -.24481, -.32305, -.39276, -.44000, -.52873,   BCH 3710
     X -.60139, -.69141, -.79857, -.89923,-1.00968,-1.08832,-1.14958,   BCH 3720
     6-1.21303,-1.28067,-1.38492,-1.47822,-1.51729,-1.55518,-1.53633,   BCH 3730
     X-1.51062,-1.50327,-1.51801,-1.57645,-1.65941,-1.73134,-1.75165,   BCH 3740
     8-1.72655,-1.71606,-1.73263,-1.74728,-1.79286,-1.73848,-1.66180/   BCH 3750
      DATA CA3H2O/                                                      BCH 3760
     X-1.56283,-1.40366,-1.32738,-1.25309,-1.25065,-1.26987,-1.24009,   BCH 3770
     X-1.22822,-1.19404,-1.20867,-1.23645,-1.19332,-1.13591,-1.08205,   BCH 3780
     X-1.04976,-1.14128,-1.23489,-1.27858,-1.33065,-1.28360,-1.22682,   BCH 3790
     X-1.18706,-1.15823,-1.14067,-1.16633,-1.17506,-1.15970,-1.19126,   BCH 3800
     X-1.19843,-1.30385,-1.42862,-1.58004,-1.72327,-1.78743,-1.86895,   BCH 3810
     X-1.85190,-1.80529,-1.69422,-1.49103,-1.32529,-1.20009,-1.13762,   BCH 3820
     X-1.11678,-1.13199,-1.16550,-1.16402,-1.17932,-1.17405,-1.15184,   BCH 3830
     8-1.20924,-1.29157,-1.34831,-1.38571,-1.42632,-1.43812,-1.50800,   BCH 3840
     X-1.62119,-1.70590,-1.86161,-2.00714,-2.11745,-2.25960,-2.34777,   BCH 3850
     X-2.44254,-2.64264,-2.83979,-3.04320,-3.29364,-3.41153,-3.49359,   BCH 3860
     X-3.60572,-3.67873,-3.78090,-3.85398,-3.88200,-3.83753,-3.77740,   BCH 3870
     X-3.85401,-3.79646,-3.72746,-3.70451,-3.59083,-3.70223,-3.88363,   BCH 3880
     X-4.03077,-4.20725,-4.19594,-4.16725,-4.13410,-4.16791,-4.12138,   BCH 3890
     X-4.08875,-4.14355,-4.10163,-4.19018,-4.25695,-4.31184,-4.47906,   BCH 3900
     X-4.51148,-4.57929,-4.59458,-4.62081,-4.83031,-5.02522,-5.15710,   BCH 3910
     6-5.27403,-5.22837,-5.32058,-5.55260,-5.72630,-5.86735,-5.86402,   BCH 3920
     X-5.84419,-5.89720,-6.15533,-6.51283,-6.98011,-7.28495,-7.08784,   BCH 3930
     8-6.77605,-6.49215,-6.43947,-6.42083,-6.59354,-6.78419,-6.98883/   BCH 3940
      DATA CA4H2O/                                                      BCH 3950
     X-7.11018,-6.93420,-6.83581,-6.87136,-6.96133,-7.28561,-8.27079/   BCH 3960
C=H2O ====11545-13070                                                   BCH 3970
      DATA CB1H2O/                                                      BCH 3980
     X-8.59451,-9.45197,-8.33631,-8.21424,-6.89777,-6.27923,-5.89945,   BCH 3990
     X-5.66364,-5.69459,-5.87082,-5.81185,-5.70141,-5.45890,-5.24048,   BCH 4000
     X-5.30703,-5.32430,-5.18694,-5.03410,-4.82279,-4.72208,-4.55097,   BCH 4010
     X-4.36284,-4.20326,-4.04534,-4.05883,-4.01183,-3.93857,-3.83212,   BCH 4020
     X-3.66113,-3.56021,-3.45969,-3.38518,-3.33373,-3.32721,-3.34771,   BCH 4030
     X-3.35412,-3.34584,-3.22701,-3.14293,-3.09481,-3.05706,-3.13587,   BCH 4040
     X-3.18156,-3.26336,-3.34559,-3.38498,-3.39054,-3.33695,-3.34959,   BCH 4050
     8-3.36191,-3.53258,-3.66238,-3.68946,-3.69155,-3.52990,-3.48606,   BCH 4060
     X-3.41160,-3.34144,-3.31933,-3.26341,-3.22609,-3.18298,-3.12800,   BCH 4070
     X-3.02166,-2.93903,-2.84135,-2.69864,-2.63582,-2.60853,-2.59699,   BCH 4080
     X-2.64799,-2.71846,-2.70856,-2.67797,-2.67978,-2.58432,-2.57052,   BCH 4090
     X-2.57883,-2.48977,-2.47541,-2.43446,-2.39253,-2.42823,-2.44830,   BCH 4100
     X-2.49704,-2.54904,-2.54865,-2.51223,-2.39407,-2.28582,-2.22341,   BCH 4110
     X-2.18280,-2.17308,-2.15234,-2.10486,-2.08564,-2.08578,-2.09615,   BCH 4120
     X-2.11136,-2.10200,-2.06832,-2.04134,-2.00194,-1.95185,-1.92025,   BCH 4130
     6-1.85931,-1.85988,-1.91696,-2.01129,-2.15097,-2.20539,-2.21302,   BCH 4140
     X-2.22309,-2.24412,-2.30471,-2.33847,-2.25445,-2.08096,-1.85098,   BCH 4150
     8-1.61538,-1.45841,-1.42089,-1.54484,-1.74234,-1.96839,-2.18038/   BCH 4160
      DATA CB2H2O/                                                      BCH 4170
     X-2.28394,-2.31701,-2.24125,-2.05966,-1.88694,-1.78105,-1.69960,   BCH 4180
     X-1.64107,-1.62909,-1.58168,-1.56599,-1.59412,-1.56739,-1.56346,   BCH 4190
     X-1.54456,-1.55619,-1.61000,-1.67072,-1.75312,-1.82511,-1.87588,   BCH 4200
     X-1.89436,-1.94377,-1.96038,-2.02291,-2.14131,-2.19637,-2.27114,   BCH 4210
     X-2.33418,-2.36152,-2.44688,-2.53819,-2.61011,-2.69105,-2.73774,   BCH 4220
     X-2.76700,-2.82031,-2.85910,-2.88525,-2.95422,-2.99210,-3.06247,   BCH 4230
     X-3.12280,-3.12274,-3.13972,-3.09998,-3.11771,-3.10670,-3.00116,   BCH 4240
     8-2.91302,-2.75838,-2.66379,-2.65726,-2.62212,-2.59431,-2.55351,   BCH 4250
     X-2.49874,-2.47486,-2.52563,-2.54608,-2.54311,-2.54938,-2.49038,   BCH 4260
     X-2.49664,-2.52688,-2.58688,-2.67000,-2.71830,-2.77113,-2.80244,   BCH 4270
     X-2.84845,-2.87062,-2.83368,-2.69338,-2.52225,-2.40864,-2.34429,   BCH 4280
     X-2.40612,-2.55941,-2.73915,-2.94409,-3.12344,-3.27308,-3.32104,   BCH 4290
     X-3.27077,-3.13129,-2.92504,-2.78515,-2.71007,-2.66733,-2.62518,   BCH 4300
     X-2.62279,-2.59906,-2.56745,-2.59548,-2.53657,-2.50849,-2.47640,   BCH 4310
     X-2.46021,-2.53747,-2.62220,-2.76449,-2.88041,-2.96357,-3.02153,   BCH 4320
     6-3.06178,-3.14581,-3.25318,-3.44687,-3.69634,-3.90497,-4.09399,   BCH 4330
     X-4.22346,-4.29749,-4.51957,-4.79572,-5.03708,-5.27140,-5.34657,   BCH 4340
     8-5.44757,-5.52207,-5.57087,-5.64385,-5.80294,-5.90763,-5.94797/   BCH 4350
      DATA CB3H2O/                                                      BCH 4360
     X-5.85439,-5.62721,-5.45121,-5.40324,-5.38540,-5.39409,-5.59404,   BCH 4370
     X-5.69955,-5.76877,-5.86764,-5.78129,-5.88887,-6.12206,-6.37505,   BCH 4380
     X-6.85575,-7.13884,-6.98622,-6.96112,-6.84830,-6.72456,-6.67530,   BCH 4390
     X-6.65251,-6.66033,-6.88151,-7.11199,-7.33922,-7.61766,-7.66585,   BCH 4400
     X-7.87464,-8.59519,-9.04047,-9.30602,-9.51273,-8.93688,-9.43151,   BCH 4410
     X-8.84005,-10.0000,-9.65151,-8.98420,-10.0000,-9.43151,-9.68331,   BCH 4420
     X-10.0000,-9.43067,-9.90527,-10.0000,-9.98810,-9.65151,-9.74384,   BCH 4430
     8-9.20004,-10.0000,-9.20004,-10.0000,-10.0000/                     BCH 4440
C=H2O ====13075-14860                                                   BCH 4450
      DATA CC1H2O/                                                      BCH 4460
     X-9.85239,-8.09585,-7.66916,-7.89183,-8.46587,-8.79342,-8.93440,   BCH 4470
     X-8.68356,-8.83423,-8.01626,-7.91911,-8.27604,-9.44864,-9.69462,   BCH 4480
     X-10.0000,-9.69462,-8.31857,-7.91867,-7.86404,-8.32240,-8.68705,   BCH 4490
     X-9.61515,-9.25284,-8.68705,-8.28789,-7.63730,-8.25919,-10.0000,   BCH 4500
     X-9.51758,-10.0000,-10.0000,-9.51758,-8.05261,-7.76848,-8.24255,   BCH 4510
     X-9.34171,-9.19941,-8.56505,-7.78955,-7.23750,-6.64136,-6.41854,   BCH 4520
     X-6.14335,-5.86704,-5.70840,-5.48179,-5.23814,-5.00650,-4.80407,   BCH 4530
     8-4.69986,-4.70404,-4.80846,-4.99355,-5.19947,-5.33300,-5.30550,   BCH 4540
     X-5.17017,-5.05309,-4.95685,-4.79959,-4.65496,-4.54077,-4.44407,   BCH 4550
     X-4.43768,-4.47167,-4.40429,-4.30236,-4.22549,-4.15283,-4.06900,   BCH 4560
     X-3.99244,-3.87562,-3.76949,-3.78198,-3.77003,-3.67364,-3.52061,   BCH 4570
     X-3.34459,-3.20426,-3.15993,-3.13851,-3.09692,-3.07747,-3.02936,   BCH 4580
     X-3.02192,-2.96720,-2.90584,-2.79069,-2.65042,-2.62072,-2.53133,   BCH 4590
     X-2.50554,-2.48745,-2.41611,-2.43532,-2.40913,-2.38723,-2.33337,   BCH 4600
     X-2.21812,-2.15072,-2.08313,-2.06151,-2.10585,-2.13670,-2.18757,   BCH 4610
     6-2.23995,-2.26992,-2.34229,-2.38059,-2.38087,-2.33246,-2.21618,   BCH 4620
     X-2.14795,-2.12707,-2.09130,-2.05043,-1.95550,-1.77077,-1.66044,   BCH 4630
     8-1.58224,-1.51702,-1.54004,-1.54074,-1.53712,-1.54938,-1.52352/   BCH 4640
      DATA CC2H2O/                                                      BCH 4650
     X-1.49404,-1.51985,-1.57774,-1.64393,-1.65332,-1.56238,-1.45105,   BCH 4660
     X-1.39264,-1.40635,-1.46167,-1.50365,-1.47751,-1.47268,-1.45992,   BCH 4670
     X-1.46654,-1.50223,-1.47576,-1.47730,-1.46977,-1.45630,-1.44490,   BCH 4680
     X-1.43097,-1.43664,-1.49313,-1.63372,-1.81848,-1.97938,-2.06009,   BCH 4690
     X-2.10124,-2.02376,-1.95095,-1.86835,-1.70161,-1.54835,-1.37614,   BCH 4700
     X-1.25130,-1.17408,-1.17670,-1.19790,-1.21344,-1.27252,-1.28030,   BCH 4710
     X-1.31031,-1.34321,-1.34056,-1.35264,-1.38137,-1.44648,-1.56735,   BCH 4720
     8-1.72096,-1.88960,-2.06793,-2.19583,-2.29229,-2.34400,-2.34120,   BCH 4730
     X-2.36407,-2.39688,-2.45450,-2.53132,-2.58327,-2.60585,-2.60773,   BCH 4740
     X-2.60606,-2.64243,-2.71853,-2.78182,-2.84459,-2.83665,-2.78522,   BCH 4750
     X-2.71157,-2.61628,-2.53314,-2.45692,-2.41679,-2.41535,-2.45500,   BCH 4760
     X-2.51120,-2.57918,-2.62854,-2.63617,-2.61204,-2.53833,-2.43992,   BCH 4770
     X-2.37490,-2.34880,-2.34476,-2.36650,-2.36553,-2.34094,-2.33633,   BCH 4780
     X-2.30483,-2.26933,-2.25141,-2.22841,-2.27610,-2.33673,-2.37913,   BCH 4790
     X-2.44271,-2.48571,-2.57146,-2.64200,-2.61103,-2.47198,-2.27897,   BCH 4800
     6-2.15874,-2.06557,-2.05371,-2.06333,-2.04641,-2.04429,-2.01040,   BCH 4810
     X-2.00804,-1.99416,-2.05499,-2.09948,-2.09706,-2.10517,-2.01267,   BCH 4820
     8-1.99934,-2.03719,-2.12114,-2.29537,-2.44295,-2.55926,-2.66007/   BCH 4830
      DATA CC3H2O/                                                      BCH 4840
     X-2.73808,-2.75972,-2.78032,-2.67031,-2.44995,-2.27133,-2.11654,   BCH 4850
     X-2.02598,-2.01402,-2.04264,-2.04511,-2.02975,-2.00687,-1.94840,   BCH 4860
     X-1.93975,-1.97104,-2.01554,-2.09336,-2.15829,-2.26705,-2.40356,   BCH 4870
     X-2.55216,-2.78858,-3.00697,-3.22778,-3.44413,-3.55439,-3.66412,   BCH 4880
     X-3.73884,-3.92224,-4.18922,-4.41150,-4.55122,-4.48637,-4.29339,   BCH 4890
     X-4.19248,-4.28419,-4.41178,-4.60369,-4.81645,-4.83716,-4.93818,   BCH 4900
     X-4.87772,-4.65255,-4.40133,-4.14378,-4.05431,-4.02425,-4.04257,   BCH 4910
     8-4.11794,-4.12153,-4.16374,-4.17459,-4.10274,-4.04733,-4.00176,   BCH 4920
     X-4.01760,-4.13393,-4.29085,-4.38409,-4.39975,-4.33916,-4.31515,   BCH 4930
     X-4.35426,-4.44628,-4.51842,-4.52596,-4.53399,-4.54590,-4.63864,   BCH 4940
     X-4.75657,-4.86504,-4.95580,-5.03365,-5.14879,-5.33868,-5.62972,   BCH 4950
     X-5.92584,-6.30299,-6.62922,-6.70773,-6.97810,-7.35919,-7.64909,   BCH 4960
     X-8.62765,-8.55378,-7.76305,-7.47054,-7.07789,-7.11538,-7.34052,   BCH 4970
     X-7.75694,-9.17126,-10.0000,-9.86547,-8.71424,-8.66552,-8.31602,   BCH 4980
     X-8.41339,-7.92192,-8.66385,-8.99856,-9.65437,-9.36822,-9.46517,   BCH 4990
     6-9.43986/                                                         BCH 5000
C=H2O ====14865-16045                                                   BCH 5010
      DATA CD1H2O/                                                      BCH 5020
     X-8.65941,-10.0000,-10.0000,-8.82641,-8.56244,-7.93689,-7.68823,   BCH 5030
     X-7.55818,-7.05113,-6.76446,-6.49313,-6.24749,-6.12617,-6.05220,   BCH 5040
     X-6.13798,-6.07909,-5.86845,-5.69141,-5.50496,-5.48376,-5.56108,   BCH 5050
     X-5.42768,-5.29615,-5.10664,-4.88111,-4.78669,-4.62385,-4.52174,   BCH 5060
     X-4.49073,-4.45792,-4.54129,-4.54480,-4.51341,-4.47258,-4.27643,   BCH 5070
     X-4.18091,-4.09557,-4.04222,-4.11247,-4.14851,-4.16970,-4.11065,   BCH 5080
     X-4.04809,-4.00745,-3.99879,-4.07978,-4.12451,-4.19723,-4.17393,   BCH 5090
     8-4.09022,-4.02101,-3.87998,-3.79109,-3.66411,-3.50066,-3.40580,   BCH 5100
     X-3.32713,-3.30194,-3.35131,-3.35137,-3.29933,-3.20658,-3.06263,   BCH 5110
     X-2.97995,-2.98759,-2.99176,-3.00756,-2.97359,-2.85849,-2.81640,   BCH 5120
     X-2.77094,-2.75469,-2.77297,-2.71165,-2.69187,-2.64524,-2.60542,   BCH 5130
     X-2.60059,-2.57842,-2.59991,-2.58577,-2.60792,-2.66006,-2.70803,   BCH 5140
     X-2.79094,-2.81048,-2.79532,-2.79499,-2.84578,-2.90638,-2.96270,   BCH 5150
     X-2.90633,-2.71535,-2.54313,-2.37822,-2.31125,-2.35246,-2.49011,   BCH 5160
     X-2.68215,-2.83136,-2.96357,-2.95873,-2.90544,-2.84387,-2.70352,   BCH 5170
     6-2.58329,-2.49207,-2.41735,-2.35522,-2.30279,-2.25786,-2.22067,   BCH 5180
     X-2.20741,-2.19735,-2.20181,-2.22358,-2.27247,-2.33737,-2.39631,   BCH 5190
     8-2.45029,-2.49867,-2.56939,-2.64313,-2.77129,-2.92580,-3.05513/   BCH 5200
      DATA CD2H2O/                                                      BCH 5210
     X-3.23728,-3.31415,-3.33588,-3.39544,-3.43947,-3.57455,-3.69955,   BCH 5220
     X-3.77227,-3.76260,-3.70753,-3.70942,-3.73899,-3.82827,-3.93052,   BCH 5230
     X-4.10437,-4.24931,-4.35000,-4.42069,-4.25644,-4.21454,-4.17061,   BCH 5240
     X-4.11168,-4.16038,-4.16686,-4.19465,-4.23251,-4.27305,-4.21672,   BCH 5250
     X-4.13963,-4.07622,-3.97332,-3.96263,-3.95541,-3.97392,-4.03776,   BCH 5260
     X-4.07778,-4.01771,-3.87070,-3.70710,-3.59495,-3.62243,-3.69528,   BCH 5270
     X-3.76171,-3.76582,-3.65793,-3.61555,-3.59708,-3.63113,-3.63691,   BCH 5280
     8-3.57465,-3.55435,-3.47507,-3.49075,-3.53253,-3.57495,-3.68837,   BCH 5290
     X-3.68628,-3.68771,-3.64979,-3.60831,-3.56633,-3.48250,-3.37856,   BCH 5300
     X-3.22908,-3.14286,-3.11346,-3.13691,-3.26625,-3.44333,-3.64611,   BCH 5310
     X-3.86925,-4.08285,-4.22794,-4.25115,-4.14282,-3.85944,-3.59027,   BCH 5320
     X-3.43514,-3.31856,-3.24442,-3.22555,-3.18795,-3.20363,-3.30589,   BCH 5330
     X-3.41248,-3.60718,-3.70563,-3.65431,-3.57332,-3.47347,-3.47521,   BCH 5340
     X-3.53388,-3.72003,-3.97569,-4.31048,-4.87330,-5.39648,-6.27322,   BCH 5350
     X-8.18185,-8.07588,-8.20933,-8.60643,-8.83713,-9.01727,-9.15690,   BCH 5360
     6-9.41970,-9.51520,-9.63843,-9.87539,-9.94314,-10.0000/            BCH 5370
C=H2O ====16340-17860                                                   BCH 5380
      DATA CE1H2O/                                                      BCH 5390
     X-10.0000,-9.99542,-9.97748,-9.94374,-9.93287,-9.90450,-9.85082,   BCH 5400
     X-9.82140,-9.73549,-9.64536,-9.59412,-9.54635,-9.26735,-9.23243,   BCH 5410
     X-9.05763,-8.93240,-8.74549,-8.52992,-8.25637,-8.13836,-7.66071,   BCH 5420
     X-7.35897,-7.37375,-7.09925,-6.98326,-6.89298,-6.79545,-6.97172,   BCH 5430
     X-6.67558,-6.37369,-6.21189,-5.94606,-5.84975,-5.83536,-5.82878,   BCH 5440
     X-5.78456,-5.68334,-5.44809,-5.28421,-5.06970,-4.89514,-4.80192,   BCH 5450
     X-4.73588,-4.78558,-4.78127,-4.73462,-4.54889,-4.33093,-4.18543,   BCH 5460
     8-4.09190,-4.11204,-4.13402,-4.13401,-3.97210,-3.79621,-3.65860,   BCH 5470
     X-3.55511,-3.57549,-3.57633,-3.53833,-3.46143,-3.34082,-3.23729,   BCH 5480
     X-3.17300,-3.14437,-3.10547,-3.05061,-2.96941,-2.86694,-2.79500,   BCH 5490
     X-2.75350,-2.75307,-2.77146,-2.79530,-2.76451,-2.68758,-2.63931,   BCH 5500
     X-2.57797,-2.58894,-2.59717,-2.52817,-2.47282,-2.42360,-2.45382,   BCH 5510
     X-2.56145,-2.61304,-2.59963,-2.52689,-2.46472,-2.46461,-2.45407,   BCH 5520
     X-2.39432,-2.25523,-2.14408,-2.05525,-2.01888,-2.07413,-2.12889,   BCH 5530
     X-2.25990,-2.39692,-2.48925,-2.54855,-2.53415,-2.54460,-2.50455,   BCH 5540
     6-2.46921,-2.42259,-2.28066,-2.22625,-2.17393,-2.13289,-2.19687,   BCH 5550
     X-2.21326,-2.23949,-2.27620,-2.26819,-2.29009,-2.29281,-2.25201,   BCH 5560
     8-2.17355,-2.07947,-2.03121,-2.01967,-2.04954,-2.08143,-2.06833/   BCH 5570
      DATA CE2H2O/                                                      BCH 5580
     X-2.05240,-2.05599,-2.06967,-2.12334,-2.21510,-2.29897,-2.40035,   BCH 5590
     X-2.52428,-2.62702,-2.73003,-2.87671,-2.99894,-3.10548,-3.25316,   BCH 5600
     X-3.32982,-3.39709,-3.53992,-3.63406,-3.74020,-3.92706,-3.96893,   BCH 5610
     X-3.93910,-3.93559,-3.82934,-3.82006,-3.87551,-3.89939,-3.94509,   BCH 5620
     X-3.95617,-3.96332,-3.96114,-3.99122,-4.01273,-4.01717,-4.02888,   BCH 5630
     X-4.04697,-4.10112,-4.14864,-4.27169,-4.32135,-4.33175,-4.41165,   BCH 5640
     X-4.36331,-4.39914,-4.42505,-4.40381,-4.48901,-4.44885,-4.38473,   BCH 5650
     8-4.32458,-4.19760,-4.16511,-4.15683,-4.14102,-4.11365,-4.10673,   BCH 5660
     X-4.13026,-4.13652,-4.19636,-4.19684,-4.14832,-4.05676,-3.96205,   BCH 5670
     X-3.90165,-3.84404,-3.86524,-3.83773,-3.69609,-3.55481,-3.42043,   BCH 5680
     X-3.33841,-3.37637,-3.44611,-3.49193,-3.52932,-3.44601,-3.36757,   BCH 5690
     X-3.31227,-3.23777,-3.21254,-3.19842,-3.22310,-3.28352,-3.27914,   BCH 5700
     X-3.23481,-3.12437,-3.04729,-3.06777,-3.09818,-3.19530,-3.24569,   BCH 5710
     X-3.24974,-3.30729,-3.27728,-3.25317,-3.22055,-3.15996,-3.17334,   BCH 5720
     X-3.17694,-3.12288,-3.04593,-2.99049,-2.98361,-3.06492,-3.19818,   BCH 5730
     6-3.31628,-3.42190,-3.47775,-3.55095,-3.56669,-3.53409,-3.38883,   BCH 5740
     X-3.17115,-3.00955,-2.89158,-2.83770,-2.86055,-2.86096,-2.83436,   BCH 5750
     8-2.82886,-2.78602,-2.80289,-2.85454,-2.89629,-2.99573,-3.11206/   BCH 5760
      DATA CE3H2O/                                                      BCH 5770
     X-3.27394,-3.47183,-3.64849,-3.79741,-3.91130,-4.08705,-4.24317,   BCH 5780
     X-4.41275,-4.55729,-4.55082,-4.66958,-4.82149,-4.94204,-5.13772,   BCH 5790
     X-5.22105,-5.20710,-5.18691,-5.09729,-5.03217,-4.96344,-4.97810,   BCH 5800
     X-5.03506,-5.05380,-5.08007,-5.10835,-5.13285,-5.24491,-5.44530,   BCH 5810
     X-5.65236,-5.80563,-5.75192,-5.58691,-5.38023,-5.31721,-5.30923,   BCH 5820
     X-5.34087,-5.39044,-5.38089,-5.43438,-5.52124,-5.79590,-6.25048,   BCH 5830
     X-6.78272,-8.29899,-8.50913,-8.77871,-8.91512,-9.13453,-9.37455,   BCH 5840
     8-9.56578,-9.71290,-9.89385,-10.0000/                              BCH 5850
      END                                                               BCH 5860
      BLOCK DATA CPO3                                                   CPO  100
C>    BLOCK DATA                                                        CPO  105
C                                                                       CPO  110
C     C' FOR O3                                                         CPO  120
      COMMON /O3/  C11O3(  41),                                         CPO  130
     +             C21O3( 126),C22O3(  27),                             CPO  140
     +             C31O3( 126),C32O3(   8),                             CPO  150
     +             C41O3(  36),                                         CPO  160
     +             C51O3(  83)                                          CPO  170
C=O3  ====C' FOR    5 BAND MODELS                                       CPO  180
C=O3  ====    0-  200                                                   CPO  190
      DATA C11O3/                                                       CPO  200
     1 -2.0427, -1.8966, -1.6263, -1.3896, -1.2170, -1.0996, -1.0214,   CPO  210
     2 -0.9673, -0.9249, -0.8896, -0.8612, -0.8417, -0.8360, -0.8483,   CPO  220
     3 -0.8785, -0.9273, -0.9932, -1.0720, -1.1639, -1.2662, -1.3771,   CPO  230
     4 -1.4976, -1.6274, -1.7712, -1.9289, -2.1027, -2.2948, -2.4987,   CPO  240
     5 -2.7321, -2.9992, -3.3045, -3.6994, -4.1022, -4.6467, -5.1328,   CPO  250
     6 -5.6481, -6.1634, -6.6787, -7.1940, -7.7093, -8.0000/            CPO  260
C=O3  ====  515- 1275                                                   CPO  270
      DATA C21O3/                                                       CPO  280
     1 -7.9274, -7.6418, -7.3562, -7.0706, -6.7850, -6.4994, -6.2138,   CPO  290
     2 -5.9282, -5.6426, -5.3570, -5.0714, -4.7858, -4.5002, -4.2146,   CPO  300
     3 -3.9290, -3.6213, -3.3407, -3.0722, -2.8226, -2.5914, -2.3778,   CPO  310
     4 -2.1823, -2.0057, -1.8456, -1.6991, -1.5659, -1.4436, -1.3323,   CPO  320
     5 -1.2319, -1.1407, -1.0550, -0.9733, -0.9033, -0.8584, -0.8527,   CPO  330
     6 -0.8838, -0.9219, -0.9360, -0.9025, -0.8402, -0.7913, -0.7794,   CPO  340
     7 -0.8123, -0.8750, -0.9484, -1.0206, -1.0864, -1.1520, -1.2202,   CPO  350
     8 -1.2928, -1.3745, -1.4641, -1.5611, -1.6669, -1.7816, -1.9051,   CPO  360
     9 -2.0383, -2.1796, -2.3312, -2.4906, -2.6569, -2.8354, -3.0179,   CPO  370
     $ -3.2121, -3.4106, -3.6208, -3.8332, -4.0584, -4.2854, -4.4979,   CPO  380
     1 -4.7175, -4.9109, -5.1246, -5.3344, -5.5442, -5.7540, -5.9638,   CPO  390
     2 -6.1736, -6.3834, -6.5932, -6.8030, -7.0128, -6.9011, -6.2590,   CPO  400
     3 -5.8119, -5.1603, -4.3327, -3.6849, -3.1253, -2.6304, -2.1903,   CPO  410
     4 -1.8019, -1.4585, -1.1533, -0.8770, -0.6166, -0.3630, -0.1102,   CPO  420
     5  0.1336,  0.3525,  0.5326,  0.6678,  0.7510,  0.7752,  0.7826,   CPO  430
     6  0.7874,  0.8006,  0.8241,  0.7614,  0.5662,  0.1949, -0.2770,   CPO  440
     7 -0.6199, -0.8347, -0.9586, -1.0168, -1.0501, -1.0816, -1.0980,   CPO  450
     8 -1.0833, -1.0424, -0.9972, -0.9724, -0.9855, -1.0365, -1.1187/   CPO  460
      DATA C22O3/                                                       CPO  470
     1 -1.2150, -1.3142, -1.4103, -1.4998, -1.5933, -1.6938, -1.8061,   CPO  480
     2 -1.9332, -2.0737, -2.2279, -2.3966, -2.5787, -2.7755, -2.9855,   CPO  490
     3 -3.2090, -3.4465, -3.6967, -3.9633, -4.2461, -4.5502, -4.8912,   CPO  500
     4 -5.2845, -5.7654, -6.4194, -6.9288, -7.4382, -7.9476/            CPO  510
C=O3  ==== 1630- 2295                                                   CPO  520
      DATA C31O3/                                                       CPO  530
     1 -8.0000, -7.5432, -6.9273, -6.3115, -5.5431, -4.9563, -4.4640,   CPO  540
     2 -4.0371, -3.6533, -3.3069, -2.9877, -2.7042, -2.4507, -2.2355,   CPO  550
     3 -2.0651, -1.9477, -1.8705, -1.8422, -1.8235, -1.7782, -1.7367,   CPO  560
     4 -1.7012, -1.7208, -1.8353, -2.0331, -2.3077, -2.5996, -2.7517,   CPO  570
     5 -2.7263, -2.6671, -2.6415, -2.6449, -2.6613, -2.6589, -2.6083,   CPO  580
     6 -2.5250, -2.4529, -2.4157, -2.4298, -2.4906, -2.5823, -2.6873,   CPO  590
     7 -2.7808, -2.8612, -2.9303, -3.0022, -3.0873, -3.1844, -3.2929,   CPO  600
     8 -3.4158, -3.5361, -3.6710, -3.8062, -3.9520, -4.1140, -4.2635,   CPO  610
     9 -4.4395, -4.6138, -4.8372, -5.0837, -5.3302, -5.3665, -5.4358,   CPO  620
     $ -5.0651, -4.8416, -4.5293, -4.2547, -4.0039, -3.7818, -3.5850,   CPO  630
     1 -3.4091, -3.2509, -3.0934, -2.9485, -2.8055, -2.6705, -2.5482,   CPO  640
     2 -2.4362, -2.3380, -2.2486, -2.1645, -2.0834, -2.0035, -1.9081,   CPO  650
     3 -1.7681, -1.5768, -1.3615, -1.1463, -0.9482, -0.7800, -0.6336,   CPO  660
     4 -0.5092, -0.4105, -0.3495, -0.3274, -0.3133, -0.3023, -0.2859,   CPO  670
     5 -0.3055, -0.4374, -0.6972, -1.1064, -1.4904, -1.9687, -2.4498,   CPO  680
     7 -2.5971, -2.5220, -2.4301, -2.3467, -2.2901, -2.2746, -2.3021,   CPO  690
     7 -2.3635, -2.4420, -2.5088, -2.5485, -2.5617, -2.5656, -2.5771,   CPO  700
     8 -2.6134, -2.6822, -2.7885, -2.9379, -3.1200, -3.3260, -3.5464/   CPO  710
      DATA C32O3/                                                       CPO  720
     1 -3.7736, -4.0311, -4.3651, -4.7794, -5.5152, -6.1240, -7.2193,   CPO  730
     2 -8.0000/                                                         CPO  740
C=O3  ==== 2670- 2845                                                   CPO  750
      DATA C41O3/                                                       CPO  760
     1 -7.9721, -7.6118, -7.2515, -6.8913, -6.5310, -6.1707, -5.8105,   CPO  770
     2 -5.4502, -5.0899, -4.7297, -4.3694, -3.9462, -3.6022, -3.2886,   CPO  780
     3 -3.0234, -2.7863, -2.5797, -2.4073, -2.2760, -2.1894, -2.1359,   CPO  790
     4 -2.1160, -2.0808, -2.0151, -1.9666, -1.9409, -1.9868, -2.1450,   CPO  800
     5 -2.3965, -2.8042, -3.5500, -4.8275, -5.6378, -6.4482, -7.2585,   CPO  810
     6 -8.0000/                                                         CPO  820
C=O3  ==== 2850- 3260                                                   CPO  830
      DATA C51O3/                                                       CPO  840
     1 -8.0000, -7.6278, -7.2556, -6.8834, -6.5111, -6.1389, -5.7667,   CPO  850
     2 -5.3945, -5.0223, -4.6501, -4.2779, -3.9056, -3.5334, -3.3828,   CPO  860
     3 -3.2452, -3.1411, -3.0403, -2.9428, -2.8436, -2.7573, -2.6853,   CPO  870
     4 -2.6040, -2.5218, -2.4121, -2.3547, -2.1970, -2.0668, -1.9121,   CPO  880
     5 -1.7617, -1.6153, -1.4688, -1.4022, -1.3447, -1.2669, -1.1902,   CPO  890
     6 -1.1805, -1.1707, -1.1609, -1.1609, -1.1805, -1.1999, -1.4214,   CPO  900
     7 -1.6348, -1.7519, -1.9730, -2.2078, -2.4608, -2.5337, -2.5923,   CPO  910
     8 -2.6616, -2.6384, -2.6271, -2.6154, -2.5570, -2.4983, -2.4480,   CPO  920
     9 -2.3890, -2.3663, -2.3431, -2.3314, -2.3200, -2.3200, -2.3314,   CPO  930
     $ -2.3431, -2.3547, -2.3777, -2.4004, -2.5218, -2.6499, -2.7694,   CPO  940
     1 -2.9057, -3.0286, -3.1543, -3.3696, -3.6053, -4.1977, -4.7811,   CPO  950
     2 -5.2933, -5.7554, -6.4542, -7.0239, -7.5937, -8.0000/            CPO  960
      END                                                               CPO  970
      BLOCK DATA CPTRCG                                                 CPT  100
C>    BLOCK DATA                                                        CPT  105
C                                                                       CPT  110
C     C' FOR TRACE GASES (NH3, NO, NO2, SO2)                            CPT  120
      COMMON /TRACEG/  C11NH3( 78),                                     CPT  130
     +                 C21NH3(126),C22NH3(126),C23NH3(101),             CPT  140
     +                 C11NO ( 62),                                     CPT  150
     +                 C11NO2(126),C12NO2( 16),                         CPT  160
     +                 C11SO2( 38),                                     CPT  170
     +                 C21SO2(126),C22SO2( 62)                          CPT  180
C=NH3 ====C' FOR    2 BAND MODEL                                        CPT  190
C=NH3 ====    0-  385                                                   CPT  200
      DATA C11NH3/                                                      CPT  210
     1 -5.7142, -5.2854, -4.5163, -3.9795, -3.4393, -2.8735, -2.4947,   CPT  220
     2 -2.2290, -2.0624, -1.9616, -1.8707, -1.7712, -1.6473, -1.5376,   CPT  230
     3 -1.4315, -1.3328, -1.2391, -1.1768, -1.1302, -1.0755, -1.0272,   CPT  240
     4 -0.9884, -0.9501, -0.9287, -0.9101, -0.8982, -0.8888, -0.8709,   CPT  250
     5 -0.8620, -0.8645, -0.8676, -0.8910, -0.9084, -0.9328, -0.9546,   CPT  260
     6 -0.9743, -0.9983, -1.0202, -1.0569, -1.0824, -1.1086, -1.1475,   CPT  270
     7 -1.1790, -1.2059, -1.2668, -1.3237, -1.3801, -1.4271, -1.4920,   CPT  280
     8 -1.5403, -1.5848, -1.6498, -1.7382, -1.8294, -1.9203, -2.0694,   CPT  290
     9 -2.2134, -2.3622, -2.5516, -2.7633, -2.9344, -3.1172, -3.3543,   CPT  300
     $ -3.5671, -3.7504, -3.9884, -4.2633, -4.5505, -4.7837, -5.0350,   CPT  310
     1 -5.3733, -5.6478, -5.8856, -6.1041, -6.3375, -6.5709, -6.8043,   CPT  320
     2 -7.0377/                                                         CPT  330
C=NH3 ====  390- 2150                                                   CPT  340
      DATA C21NH3/                                                      CPT  350
     1 -7.2620, -7.0950, -6.9279, -6.7608, -6.5938, -6.4267, -6.2597,   CPT  360
     2 -6.0926, -5.8842, -5.7560, -5.5844, -5.4248, -5.2573, -5.0771,   CPT  370
     3 -4.9244, -4.7903, -4.6512, -4.5169, -4.3961, -4.2607, -4.1705,   CPT  380
     4 -4.1294, -4.0611, -3.9538, -3.8821, -3.7592, -3.6754, -3.6830,   CPT  390
     5 -3.6977, -3.6925, -3.6632, -3.5899, -3.5218, -3.5265, -3.6535,   CPT  400
     6 -3.8068, -3.9818, -4.0574, -3.9789, -3.8858, -3.8120, -3.8927,   CPT  410
     7 -3.8799, -3.8623, -3.3984, -2.8857, -2.5814, -2.4066, -2.3850,   CPT  420
     8 -2.5415, -2.8161, -3.2265, -3.7177, -3.9932, -4.0683, -4.0785,   CPT  430
     9 -3.9912, -3.7418, -3.4742, -3.2651, -3.0715, -2.9500, -2.8669,   CPT  440
     $ -2.7723, -2.6614, -2.5613, -2.4372, -2.3085, -2.1696, -2.0302,   CPT  450
     1 -1.9166, -1.8071, -1.7221, -1.6370, -1.5453, -1.4487, -1.3539,   CPT  460
     2 -1.2570, -1.1618, -1.1131, -1.0824, -1.0559, -1.0190, -0.9721,   CPT  470
     3 -0.9218, -0.8680, -0.8556, -0.8568, -0.8713, -0.8984, -0.9076,   CPT  480
     4 -0.9024, -0.8882, -0.8968, -0.9492, -1.0089, -1.0846, -1.1556,   CPT  490
     5 -1.1792, -1.1946, -1.1964, -1.2173, -1.2424, -1.1744, -0.9743,   CPT  500
     6 -0.6350, -0.2975, -0.0705,  0.0144, -0.0978, -0.3536, -0.5630,   CPT  510
     7 -0.5479, -0.3784, -0.1797, -0.1151, -0.3085, -0.6180, -0.9718,   CPT  520
     8 -1.2926, -1.2748, -1.1217, -1.0197, -0.9300, -0.8817, -0.8723/   CPT  530
      DATA C22NH3/                                                      CPT  540
     1 -0.8309, -0.7804, -0.7075, -0.6431, -0.6176, -0.6012, -0.6079,   CPT  550
     2 -0.6272, -0.6304, -0.6193, -0.6026, -0.5882, -0.6029, -0.6317,   CPT  560
     3 -0.6862, -0.7447, -0.7921, -0.8275, -0.8595, -0.8856, -0.9236,   CPT  570
     4 -0.9934, -1.0693, -1.1460, -1.2100, -1.2863, -1.3593, -1.4292,   CPT  580
     5 -1.5029, -1.6054, -1.7067, -1.8110, -1.9350, -2.0346, -2.1305,   CPT  590
     6 -2.2294, -2.3724, -2.4917, -2.6218, -2.8056, -2.9693, -3.1101,   CPT  600
     7 -3.2790, -3.5315, -3.7011, -3.8952, -4.1527, -4.4121, -4.5244,   CPT  610
     8 -4.8599, -5.1940, -5.5589, -5.8170, -6.1402, -6.4633, -6.7865,   CPT  620
     9 -7.1096, -7.4328, -7.7559, -8.0000, -7.8199, -7.5988, -7.3778,   CPT  630
     $ -7.1567, -6.9357, -6.7146, -6.4936, -6.2725, -6.0515, -5.8304,   CPT  640
     1 -5.5963, -5.3883, -5.2319, -5.0536, -4.9029, -4.7789, -4.5867,   CPT  650
     2 -4.3414, -4.1399, -3.9784, -3.7553, -3.5773, -3.4123, -3.2254,   CPT  660
     3 -3.0384, -2.9243, -2.7755, -2.5809, -2.4726, -2.3206, -2.1209,   CPT  670
     4 -2.0331, -1.9016, -1.7458, -1.6927, -1.5958, -1.4863, -1.4492,   CPT  680
     5 -1.3730, -1.2859, -1.2554, -1.2129, -1.1689, -1.1802, -1.1948,   CPT  690
     6 -1.1882, -1.2185, -1.2464, -1.2522, -1.2946, -1.3587, -1.3971,   CPT  700
     7 -1.4488, -1.5261, -1.5495, -1.5478, -1.4926, -1.3115, -1.0455,   CPT  710
     8 -0.7987, -0.5972, -0.4664, -0.4244, -0.4426, -0.4952, -0.5772/   CPT  720
      DATA C23NH3/                                                      CPT  730
     1 -0.6845, -0.8097, -0.9443, -1.0904, -1.2232, -1.2853, -1.2949,   CPT  740
     2 -1.2708, -1.1896, -1.1467, -1.1187, -1.0700, -1.0392, -1.0227,   CPT  750
     3 -1.0178, -1.0089, -1.0021, -0.9706, -0.9569, -0.9928, -1.0310,   CPT  760
     4 -1.0767, -1.1053, -1.1241, -1.1717, -1.2203, -1.2772, -1.3356,   CPT  770
     5 -1.3855, -1.4734, -1.5701, -1.6572, -1.7638, -1.8652, -1.9918,   CPT  780
     6 -2.1449, -2.2388, -2.3251, -2.3936, -2.4525, -2.5998, -2.7147,   CPT  790
     7 -2.7704, -2.7852, -2.7524, -2.7646, -2.8507, -3.0422, -3.2642,   CPT  800
     8 -3.5201, -3.6328, -3.7624, -3.9505, -4.1399, -4.3087, -4.3859,   CPT  810
     9 -4.4295, -4.4493, -4.3317, -4.1892, -4.0545, -3.9356, -3.9117,   CPT  820
     $ -4.0001, -4.0627, -4.0833, -4.0997, -4.0659, -4.0264, -4.0893,   CPT  830
     1 -4.1832, -4.2522, -4.3182, -4.3949, -4.4191, -4.4580, -4.5997,   CPT  840
     2 -4.7282, -4.8370, -5.0041, -5.1644, -5.2101, -5.4145, -5.5114,   CPT  850
     3 -5.6986, -5.8057, -5.9529, -6.1000, -6.2472, -6.3943, -6.5415,   CPT  860
     4 -6.6886, -6.8358, -6.9829, -7.1301, -7.2772, -7.4244, -7.5715,   CPT  870
     5 -7.7187, -7.8658, -8.0000/                                       CPT  880
C=NO  ====C' FOR    1 BAND MODEL                                        CPT  890
C=NO  ==== 1700- 2005                                                   CPT  900
      DATA C11NO/                                                       CPT  910
     1 -7.9265, -7.5649, -7.2033, -6.8418, -6.4802, -6.0647, -5.7193,   CPT  920
     2 -5.3955, -5.1475, -4.8233, -4.5194, -4.3184, -3.9664, -3.7045,   CPT  930
     3 -3.3398, -3.0368, -2.7282, -2.4448, -2.1791, -1.9315, -1.7046,   CPT  940
     4 -1.4984, -1.3133, -1.1486, -1.0036, -0.8776, -0.7699, -0.6811,   CPT  950
     5 -0.6124, -0.5663, -0.5488, -0.5673, -0.6076, -0.6791, -0.7553,   CPT  960
     6 -0.7811, -0.7711, -0.6840, -0.5704, -0.4791, -0.4138, -0.3950,   CPT  970
     7 -0.4189, -0.4794, -0.5751, -0.7062, -0.8751, -1.0852, -1.3406,   CPT  980
     8 -1.6473, -2.0068, -2.4335, -2.9068, -3.4595, -4.0370, -4.6795,   CPT  990
     9 -5.2704, -5.8613, -6.4522, -7.0431, -7.6340, -8.0000/            CPT 1000
C=NO2 ====C' FOR    1 BAND MODEL                                        CPT 1010
C=NO2 ====  580-  925, 1515- 1695, 2800- 2970                           CPT 1020
      DATA C11NO2/                                                      CPT 1030
     1 -6.0000, -5.8419, -5.5313, -5.1048, -4.9512, -4.5830, -4.2676,   CPT 1040
     2 -3.9783, -3.7150, -3.4782, -3.2541, -3.0597, -2.8625, -2.6989,   CPT 1050
     3 -2.5323, -2.3904, -2.2561, -2.1346, -2.0320, -1.9284, -1.8584,   CPT 1060
     4 -1.7778, -1.7222, -1.6776, -1.6024, -1.5658, -1.4917, -1.4117,   CPT 1070
     5 -1.3706, -1.3045, -1.2914, -1.3292, -1.3666, -1.4268, -1.4564,   CPT 1080
     6 -1.4076, -1.3284, -1.2804, -1.2497, -1.2519, -1.3123, -1.3704,   CPT 1090
     7 -1.4192, -1.4878, -1.5301, -1.5575, -1.5912, -1.6250, -1.6544,   CPT 1100
     8 -1.6849, -1.7340, -1.7748, -1.8171, -1.8679, -1.9256, -1.9809,   CPT 1110
     9 -2.0386, -2.1112, -2.1769, -2.2462, -2.3199, -2.4129, -2.5156,   CPT 1120
     $ -2.6575, -2.8825, -3.1831, -3.6209, -4.2271, -5.5290, -6.0000,   CPT 1130
     1 -6.0000, -5.5415, -4.8964, -4.2513, -3.6063, -2.9612, -2.1733,   CPT 1140
     2 -1.5514, -1.0260, -0.5817, -0.2030,  0.1231,  0.4098,  0.6653,   CPT 1150
     3  0.8885,  1.0716,  1.2025,  1.2697,  1.2926,  1.3006,  1.3128,   CPT 1160
     4  1.3449,  1.3656,  1.3245,  1.1868,  0.9310,  0.5907,  0.2056,   CPT 1170
     5 -0.2337, -0.7633, -1.4541, -2.4451, -3.1822, -3.9193, -4.6565,   CPT 1180
     6 -5.3936, -6.0000, -6.0000, -5.7606, -5.3422, -4.9238, -4.5055,   CPT 1190
     7 -4.0871, -3.6687, -3.2504, -2.8320, -2.3736, -1.9565, -1.5769,   CPT 1200
     8 -1.2400, -0.9384, -0.6781, -0.4630, -0.2944, -0.1783, -0.1213/   CPT 1210
      DATA C12NO2/                                                      CPT 1220
     1 -0.1033, -0.0934, -0.0723, -0.0267,  0.0016, -0.0394, -0.1700,   CPT 1230
     2 -0.4141, -0.7861, -1.2951, -2.0379, -3.0984, -3.8692, -4.6399,   CPT 1240
     3 -5.4107, -6.0000/                                                CPT 1250
C=SO2 ====C' FOR    2 BAND MODEL                                        CPT 1260
C=SO2 ====    0-  185                                                   CPT 1270
      DATA C11SO2/                                                      CPT 1280
     1 -0.9312, -0.8101, -0.5729, -0.3590, -0.2016, -0.0971, -0.0333,   CPT 1290
     2  0.0048,  0.0228,  0.0214, -0.0044, -0.0567, -0.1334, -0.2315,   CPT 1300
     3 -0.3451, -0.4741, -0.6198, -0.7854, -0.9764, -1.1922, -1.4326,   CPT 1310
     4 -1.6951, -1.9687, -2.2788, -2.6034, -2.9398, -3.3551, -3.7704,   CPT 1320
     5 -4.1857, -4.6010, -5.0163, -5.4316, -5.8469, -6.2622, -6.6775,   CPT 1330
     6 -7.0928, -7.5081, -7.9234/                                       CPT 1340
C=SO2 ====  400-  650,  950- 1460, 2415- 2580                           CPT 1350
      DATA C21SO2/                                                      CPT 1360
     1 -8.0000, -7.4209, -6.6994, -5.9778, -5.2563, -4.4248, -3.7369,   CPT 1370
     2 -3.0917, -2.5200, -2.0303, -1.6307, -1.3056, -1.0373, -0.8189,   CPT 1380
     3 -0.6395, -0.4880, -0.3574, -0.2369, -0.1237, -0.0261,  0.0250,   CPT 1390
     4  0.0186, -0.0194, -0.0659, -0.0638, -0.0065,  0.0468,  0.0682,   CPT 1400
     5  0.0355, -0.0431, -0.1334, -0.2175, -0.2954, -0.3738, -0.4588,   CPT 1410
     6 -0.5571, -0.6729, -0.8131, -0.9805, -1.1831, -1.4334, -1.7354,   CPT 1420
     7 -2.1065, -2.5705, -3.1238, -3.7691, -4.5793, -5.7012, -6.5603,   CPT 1430
     8 -7.4195, -8.0000, -7.9302, -7.6563, -7.3824, -7.1085, -6.8346,   CPT 1440
     9 -6.5607, -6.2868, -6.0129, -5.7390, -5.4651, -5.1912, -4.9173,   CPT 1450
     $ -4.6434, -4.3695, -4.0956, -3.8217, -3.5478, -3.2739, -3.0000,   CPT 1460
     1 -2.7261, -2.4522, -2.1783, -1.9317, -1.7073, -1.5004, -1.3136,   CPT 1470
     2 -1.1444, -0.9901, -0.8505, -0.7238, -0.6083, -0.5025, -0.4016,   CPT 1480
     3 -0.3047, -0.2112, -0.1263, -0.0656, -0.0414, -0.0509, -0.0731,   CPT 1490
     4 -0.0802, -0.0483,  0.0032,  0.0339,  0.0249, -0.0296, -0.1170,   CPT 1500
     5 -0.2141, -0.3069, -0.3968, -0.4881, -0.5881, -0.7019, -0.8299,   CPT 1510
     6 -0.9729, -1.1305, -1.3036, -1.4924, -1.7000, -1.9306, -2.1906,   CPT 1520
     7 -2.4959, -2.8613, -3.3176, -3.9236, -4.6847, -5.2561, -4.7082,   CPT 1530
     8 -4.1110, -3.6582, -3.1963, -2.7063, -1.9643, -1.3089, -0.6856/   CPT 1540
      DATA C22SO2/                                                      CPT 1550
     1 -0.0412,  0.3678,  0.6712,  0.9031,  1.0577,  1.1145,  1.1272,   CPT 1560
     2  1.1300,  1.1237,  1.1459,  1.1047,  0.9617,  0.7107,  0.3254,   CPT 1570
     3 -0.2322, -1.0612, -1.7715, -2.6089, -3.0225, -3.3542, -3.7339,   CPT 1580
     4 -4.1986, -4.7852, -5.6390, -6.2740, -6.9091, -7.5441, -8.0000,   CPT 1590
     5 -8.0000, -7.5698, -6.8815, -6.1933, -5.3530, -4.8602, -4.1286,   CPT 1600
     6 -2.9922, -2.3525, -1.8905, -1.5178, -1.2295, -1.0082, -0.8484,   CPT 1610
     7 -0.7634, -0.7340, -0.7203, -0.7167, -0.7097, -0.7297, -0.8391,   CPT 1620
     8 -1.0472, -1.3607, -1.7720, -2.2957, -3.0566, -4.1073, -4.5337,   CPT 1630
     9 -4.9481, -5.4542, -6.2445, -6.8148, -7.3850, -7.9553/            CPT 1640
      END                                                               CPT 1650
      BLOCK DATA CPUMIX                                                 CPU  100
C>    BLOCK DATA                                                        CPU  105
C                                                                       CPU  110
C     C' FOR UNIFORMLY MIXED GASES (CO2, CO, CH4, N2O, O2)              CPU  120
      COMMON /UFMIX1/                                                   CPU  130
     +        C11CO2( 83),                                              CPU  140
     +        C21CO2(121),                                              CPU  150
     +        C31CO2(126),C32CO2( 85),                                  CPU  160
     +        C41CO2(126),C42CO2( 12),                                  CPU  170
     +        C51CO2( 62),                                              CPU  180
     +        C61CO2(126),C62CO2( 45),                                  CPU  190
     +        C71CO2(126),C72CO2( 99),                                  CPU  200
     +        C81CO2(126),C82CO2( 82)                                   CPU  210
      COMMON /UFMIX2/                                                   CPU  220
     +        C11CO(  36),                                              CPU  230
     +        C21CO( 126),C22CO(  11),                                  CPU  240
     +        C11CH4(126),C12CH4(126),C13CH4(126),C14CH4(115),          CPU  250
     +        C11N2O( 25),                                              CPU  260
     +        C21N2O(126),C22N2O(126),C23N2O(112),                      CPU  270
     +        C31N2O(126),C32N2O(126),C33N2O( 63),                      CPU  280
     +        C11O2(  54),                                              CPU  290
     +        C21O2( 126),C22O2( 126),C23O2(  76)                       CPU  300
C=CO2 ====C' FOR    8 BAND MODELS                                       CPU  310
C=CO2 ====  425-  835                                                   CPU  320
      DATA C11CO2/                                                      CPU  330
     1 -9.8495, -9.6484, -9.4472, -9.2461, -9.0449, -8.9544, -8.6127,   CPU  340
     2 -8.4076, -8.2710, -8.0391, -7.9485, -7.9638, -7.7849, -7.6278,   CPU  350
     3 -7.1418, -6.7823, -6.3826, -6.0323, -5.7501, -5.5249, -5.3304,   CPU  360
     4 -5.0105, -4.7703, -4.5714, -4.3919, -4.2974, -4.1370, -3.8761,   CPU  370
     5 -3.5936, -3.2852, -3.0016, -2.7303, -2.4868, -2.2741, -2.0936,   CPU  380
     6 -1.9424, -1.8092, -1.6843, -1.5372, -1.3803, -1.2043, -0.9930,   CPU  390
     7 -0.7724, -0.5509, -0.3465, -0.1785, -0.0470,  0.0449,  0.1114,   CPU  400
     8  0.1367,  0.0910,  0.0066, -0.1269, -0.2994, -0.4934, -0.7101,   CPU  410
     9 -0.9087, -1.1004, -1.2694, -1.4064, -1.5622, -1.6810, -1.7841,   CPU  420
     $ -1.8973, -2.0274, -2.2079, -2.4264, -2.6763, -2.9312, -3.1896,   CPU  430
     1 -3.4262, -3.5979, -3.7051, -3.7372, -3.7983, -3.9154, -4.0520,   CPU  440
     2 -4.2567, -4.4661, -4.6670, -4.9226, -5.2203, -5.5597/            CPU  450
C=CO2 ====  840- 1440                                                   CPU  460
      DATA C21CO2/                                                      CPU  470
     1 -5.6403, -5.7039, -5.7674, -5.8310, -5.8948, -5.9503, -6.0217,   CPU  480
     2 -6.0392, -5.9855, -5.8620, -5.6834, -5.5083, -5.3473, -5.2028,   CPU  490
     3 -5.0799, -4.9628, -4.8379, -4.7032, -4.5584, -4.4213, -4.3198,   CPU  500
     4 -4.2786, -4.2843, -4.3099, -4.3210, -4.2769, -4.2229, -4.2179,   CPU  510
     5 -4.2950, -4.4789, -4.7550, -5.0902, -5.4329, -5.6689, -5.6608,   CPU  520
     6 -5.4582, -5.1969, -4.9419, -4.7106, -4.5084, -4.3409, -4.2211,   CPU  530
     7 -4.1563, -4.1259, -4.1108, -4.0803, -4.0211, -3.9824, -4.0053,   CPU  540
     8 -4.1221, -4.3504, -4.6741, -5.0826, -5.5857, -6.2301, -7.0829,   CPU  550
     9 -8.1344, -8.8601, -9.0457, -9.1231, -9.0728, -9.1413, -9.1221,   CPU  560
     $ -9.1882, -9.2752, -9.2237, -9.3604, -9.3058, -9.5455, -9.5567,   CPU  570
     1 -9.3754, -8.7756, -8.0904, -7.4827, -6.9585, -6.5095, -6.1194,   CPU  580
     2 -5.7824, -5.4910, -5.2532, -5.0840, -4.9920, -4.9577, -4.9638,   CPU  590
     3 -4.9741, -4.9555, -4.9466, -4.9774, -5.0719, -5.2558, -5.5213,   CPU  600
     4 -5.8633, -6.2877, -6.7878, -7.2602, -7.2940, -6.8524, -6.3372,   CPU  610
     5 -5.8854, -5.5065, -5.2011, -4.9776, -4.8471, -4.7885, -4.7783,   CPU  620
     6 -4.7815, -4.7538, -4.7228, -4.7259, -4.7860, -4.9231, -5.1270,   CPU  630
     7 -5.3831, -5.6849, -6.0351, -6.4437, -6.9160, -7.4815, -8.1437,   CPU  640
     8 -8.9449, -9.8564/                                                CPU  650
C=CO2 ==== 1805- 2855                                                   CPU  660
      DATA C31CO2/                                                      CPU  670
     1 -9.8903, -9.4365, -8.9826, -8.5288, -8.1184, -7.6555, -7.1673,   CPU  680
     2 -6.7226, -6.3423, -6.0410, -5.8154, -5.6519, -5.5186, -5.3859,   CPU  690
     3 -5.2279, -5.0238, -4.7865, -4.5343, -4.2846, -4.0560, -3.8717,   CPU  700
     4 -3.7624, -3.7231, -3.7335, -3.8312, -3.9854, -4.1930, -4.4895,   CPU  710
     5 -4.7394, -4.8892, -4.9499, -4.9392, -4.9787, -5.1129, -5.3330,   CPU  720
     6 -5.6093, -5.8862, -6.0581, -6.0274, -5.8356, -5.5989, -5.3738,   CPU  730
     7 -5.1661, -4.9472, -4.7020, -4.4354, -4.1439, -3.8561, -3.5944,   CPU  740
     8 -3.3694, -3.2100, -3.1041, -3.0411, -3.0471, -3.1077, -3.2305,   CPU  750
     9 -3.4274, -3.6115, -3.7542, -3.8666, -3.9338, -4.0079, -4.0962,   CPU  760
     $ -4.2142, -4.1433, -4.2870, -4.4796, -4.6618, -4.8204, -4.9499,   CPU  770
     1 -4.9862, -5.0171, -5.0282, -5.0580, -5.0398, -4.9465, -4.7816,   CPU  780
     2 -4.5538, -4.2975, -4.0286, -3.7528, -3.4715, -3.1899, -2.9041,   CPU  790
     3 -2.6127, -2.3212, -2.0435, -1.7894, -1.5531, -1.3382, -1.1515,   CPU  800
     4 -0.9990, -0.8833, -0.8006, -0.7227, -0.6288, -0.4977, -0.3249,   CPU  810
     5 -0.1349,  0.0576,  0.2487,  0.4386,  0.6260,  0.8081,  0.9681,   CPU  820
     6  1.0859,  1.1522,  1.1861,  1.2039,  1.2255,  1.2587,  1.2473,   CPU  830
     7  1.1457,  0.9139,  0.5250,  0.0173, -0.5796, -1.3944, -2.3841,   CPU  840
     8 -2.7244, -2.9264, -3.0689, -3.2120, -3.3353, -3.4510, -3.5566/   CPU  850
      DATA C32CO2/                                                      CPU  860
     1 -3.6518, -3.7460, -3.8500, -3.9680, -4.0981, -4.2259, -4.3369,   CPU  870
     2 -4.4329, -4.5305, -4.6264, -4.7438, -4.8842, -5.0248, -5.1448,   CPU  880
     3 -5.2371, -5.2781, -5.3299, -5.3766, -5.4233, -5.4699, -5.5166,   CPU  890
     4 -5.5633, -5.6646, -5.7593, -5.8461, -5.9229, -5.9818, -6.0065,   CPU  900
     5 -5.9747, -5.8741, -5.7230, -5.5620, -5.4389, -5.3788, -5.3679,   CPU  910
     6 -5.3827, -5.3837, -5.3460, -5.3186, -5.3394, -5.4320, -5.6095,   CPU  920
     7 -5.8446, -6.0992, -6.3399, -6.5499, -6.7434, -6.9359, -7.1219,   CPU  930
     8 -7.2818, -7.3984, -7.4881, -7.5452, -7.5994, -7.6445, -7.6734,   CPU  940
     9 -7.6422, -7.5057, -7.2650, -6.9975, -6.7749, -6.6398, -6.5875,   CPU  950
     $ -6.5912, -6.6192, -6.6155, -6.5866, -6.5851, -6.6382, -6.7736,   CPU  960
     1 -7.0009, -7.2896, -7.6327, -7.9767, -8.2633, -8.4744, -8.5455,   CPU  970
     2 -8.5813, -8.6025, -8.6459, -8.8948, -9.1436, -9.3925, -9.6413,   CPU  980
     3 -9.8902/                                                         CPU  990
C=CO2 ==== 3070- 3755                                                   CPU 1000
      DATA C41CO2/                                                      CPU 1010
     1 -9.8006, -9.5049, -9.1947, -8.7254, -8.4410, -8.1781, -8.0182,   CPU 1020
     2 -7.9381, -7.8793, -7.7636, -7.5549, -7.2962, -7.0244, -6.7556,   CPU 1030
     3 -6.4888, -6.2443, -6.0422, -5.9088, -5.8590, -5.8890, -5.9850,   CPU 1040
     4 -6.0949, -6.1164, -6.0207, -5.8592, -5.7110, -5.6328, -5.6369,   CPU 1050
     5 -5.7274, -5.9069, -6.1720, -6.5203, -6.9586, -7.4776, -8.0607,   CPU 1060
     6 -8.5514, -8.7011, -8.4232, -7.9274, -7.6159, -7.3836, -7.1969,   CPU 1070
     7 -7.0523, -6.7685, -6.4022, -6.0354, -5.7125, -5.4659, -5.3088,   CPU 1080
     8 -5.2546, -5.2991, -5.3819, -5.4615, -5.4117, -5.2107, -5.0103,   CPU 1090
     9 -4.8232, -4.7071, -4.6850, -4.7385, -4.8797, -5.1024, -5.4015,   CPU 1100
     $ -5.7758, -6.2225, -6.6681, -6.9127, -6.8919, -6.6972, -6.5012,   CPU 1110
     1 -6.3123, -6.1091, -5.8641, -5.5889, -5.3057, -5.0340, -4.7826,   CPU 1120
     2 -4.5476, -4.3277, -4.1224, -3.9333, -3.7675, -3.6324, -3.5163,   CPU 1130
     3 -3.4043, -3.2744, -3.1180, -2.9557, -2.8254, -2.7359, -2.6721,   CPU 1140
     4 -2.6084, -2.5105, -2.3772, -2.2317, -2.0866, -1.9521, -1.8292,   CPU 1150
     5 -1.7110, -1.5992, -1.4873, -1.3646, -1.2260, -1.0721, -0.9281,   CPU 1160
     6 -0.8379, -0.8123, -0.8261, -0.8483, -0.8305, -0.7792, -0.7626,   CPU 1170
     7 -0.8228, -0.9908, -1.2503, -1.5347, -1.7934, -1.9837, -2.0715,   CPU 1180
     8 -2.0375, -1.8975, -1.6906, -1.4497, -1.2048, -0.9831, -0.8125/   CPU 1190
      DATA C42CO2/                                                      CPU 1200
     1 -0.7157, -0.6707, -0.6532, -0.6297, -0.5706, -0.5263, -0.5489,   CPU 1210
     2 -0.6857, -0.9793, -1.3962, -1.8673, -2.3655/                     CPU 1220
C=CO2 ==== 3760- 4065                                                   CPU 1230
      DATA C51CO2/                                                      CPU 1240
     1 -3.5436, -4.0424, -4.4084, -4.6848, -4.8663, -4.9516, -4.9790,   CPU 1250
     2 -4.9923, -5.0207, -5.0596, -5.0958, -5.1018, -5.0636, -5.0354,   CPU 1260
     3 -5.0546, -5.1454, -5.3274, -5.5863, -5.8889, -6.1770, -6.3555,   CPU 1270
     4 -6.4096, -6.4371, -6.5112, -6.6680, -6.9183, -7.2418, -7.5827,   CPU 1280
     5 -7.8704, -8.0551, -8.1705, -8.2500, -8.3554, -8.3961, -8.4354,   CPU 1290
     6 -8.3920, -8.2785, -8.0499, -7.7437, -7.4130, -7.1153, -6.8861,   CPU 1300
     7 -6.7422, -6.6786, -6.6774, -6.7053, -6.7090, -6.6794, -6.6055,   CPU 1310
     8 -6.4827, -6.3454, -6.2401, -6.1992, -6.2676, -6.4833, -6.8490,   CPU 1320
     9 -7.4310, -8.4606, -9.7364, -9.8771, -9.8840, -9.9559/            CPU 1330
C=CO2 ==== 4530- 5380                                                   CPU 1340
      DATA C61CO2/                                                      CPU 1350
     1 -9.9489, -9.6003, -9.0910, -8.5793, -8.2059, -7.9099, -7.7157,   CPU 1360
     2 -7.6145, -7.5964, -7.5942, -7.5256, -7.3190, -6.9986, -6.6884,   CPU 1370
     3 -6.4102, -6.1769, -5.9882, -5.8421, -5.7499, -5.7201, -5.7189,   CPU 1380
     4 -5.7108, -5.6669, -5.5955, -5.5686, -5.6287, -5.8000, -6.0855,   CPU 1390
     5 -6.4398, -6.7793, -6.9427, -6.9205, -6.8363, -6.7059, -6.5272,   CPU 1400
     6 -6.2903, -6.0085, -5.7224, -5.4722, -5.2772, -5.1501, -5.0768,   CPU 1410
     7 -5.0219, -4.9579, -4.8555, -4.7213, -4.5868, -4.4594, -4.3387,   CPU 1420
     8 -4.2219, -4.1002, -3.9812, -3.8876, -3.8207, -3.7673, -3.7120,   CPU 1430
     9 -3.6223, -3.4912, -3.3444, -3.1983, -3.0732, -3.0262, -3.0078,   CPU 1440
     $ -3.0123, -3.0213, -2.9957, -2.9261, -2.8770, -2.8887, -2.9853,   CPU 1450
     1 -3.1609, -3.3643, -3.5468, -3.6759, -3.7488, -3.7704, -3.7535,   CPU 1460
     2 -3.7113, -3.6368, -3.5277, -3.3812, -3.2020, -3.0043, -2.8020,   CPU 1470
     3 -2.6122, -2.4524, -2.3405, -2.2838, -2.2521, -2.2319, -2.1960,   CPU 1480
     4 -2.1562, -2.1732, -2.2913, -2.5476, -2.9382, -3.3966, -3.8525,   CPU 1490
     5 -4.2541, -4.5682, -4.7376, -4.7524, -4.6733, -4.5170, -4.3123,   CPU 1500
     6 -4.0891, -3.8565, -3.6218, -3.3909, -3.1785, -3.0100, -2.9105,   CPU 1510
     7 -2.8588, -2.8286, -2.7912, -2.7207, -2.6729, -2.6858, -2.7745,   CPU 1520
     8 -2.9414, -3.1445, -3.3617, -3.5954, -3.8508, -4.1739, -4.5122/   CPU 1530
      DATA C62CO2/                                                      CPU 1540
     1 -4.8985, -5.3426, -5.8737, -6.4734, -7.0715, -7.5042, -7.6034,   CPU 1550
     2 -7.5143, -7.4358, -7.4089, -7.3969, -7.3813, -7.3018, -7.1858,   CPU 1560
     3 -7.0633, -6.9962, -6.9905, -7.0319, -7.1331, -7.2054, -7.1856,   CPU 1570
     4 -7.0561, -6.7966, -6.4771, -6.1996, -5.9593, -5.7560, -5.5370,   CPU 1580
     5 -5.2836, -5.0966, -4.9583, -4.9126, -5.0022, -5.1370, -5.3465,   CPU 1590
     6 -5.6279, -5.9364, -6.3695, -6.9602, -7.6823, -8.2701, -8.6427,   CPU 1600
     7 -9.0728, -9.5366, -9.9588/                                       CPU 1610
C=CO2 ==== 5905- 7025                                                   CPU 1620
      DATA C71CO2/                                                      CPU 1630
     1 -9.9871, -9.6762, -9.3358, -8.9954, -8.5140, -8.2066, -7.9742,   CPU 1640
     2 -7.8579, -7.8073, -7.7894, -7.7466, -7.7009, -7.6393, -7.5889,   CPU 1650
     3 -7.5697, -7.5200, -7.3908, -7.1796, -6.9610, -6.7869, -6.6972,   CPU 1660
     4 -6.6735, -6.6775, -6.6495, -6.5292, -6.3435, -6.1371, -5.9268,   CPU 1670
     5 -5.7254, -5.5433, -5.4023, -5.3292, -5.3090, -5.3171, -5.3193,   CPU 1680
     6 -5.2705, -5.2085, -5.1835, -5.2186, -5.3367, -5.5305, -5.7725,   CPU 1690
     7 -6.0228, -6.2150, -6.2857, -6.2634, -6.2250, -6.2234, -6.2616,   CPU 1700
     8 -6.2931, -6.2508, -6.0971, -5.8679, -5.6195, -5.3906, -5.1944,   CPU 1710
     9 -5.0216, -4.8566, -4.6919, -4.5255, -4.3785, -4.2879, -4.2583,   CPU 1720
     $ -4.2636, -4.2768, -4.2484, -4.1853, -4.1586, -4.2079, -4.3651,   CPU 1730
     1 -4.6407, -5.0141, -5.4719, -6.0015, -6.5173, -6.7829, -6.6805,   CPU 1740
     2 -6.4180, -6.0793, -5.7404, -5.4204, -5.1265, -4.8634, -4.6378,   CPU 1750
     3 -4.4559, -4.3360, -4.2752, -4.2461, -4.2257, -4.1768, -4.1068,   CPU 1760
     4 -4.0743, -4.1193, -4.2732, -4.5464, -4.9256, -5.4090, -6.0184,   CPU 1770
     5 -6.7985, -7.7078, -8.3457, -8.5160, -8.6106, -8.8175, -9.1922,   CPU 1780
     6 -9.6775, -9.7423, -9.1980, -8.4120, -7.7499, -7.1685, -6.6817,   CPU 1790
     7 -6.2701, -5.9301, -5.6567, -5.4521, -5.3289, -5.2776, -5.2630,   CPU 1800
     8 -5.2547, -5.2083, -5.1296, -5.0823, -5.0914, -5.1806, -5.3503/   CPU 1810
      DATA C72CO2/                                                      CPU 1820
     1 -5.5600, -5.7877, -5.9936, -6.1720, -6.3801, -6.6371, -6.9964,   CPU 1830
     2 -7.5010, -8.1628, -8.9951, -9.8931,-10.0000,-10.0000,-10.0000,   CPU 1840
     3-10.0000,-10.0000,-10.0000,-10.0000,-10.0000, -9.4967, -8.9198,   CPU 1850
     4 -8.5081, -8.1255, -7.8286, -7.5478, -7.1487, -6.7853, -6.5537,   CPU 1860
     5 -6.3931, -6.4107, -6.5087, -6.6607, -6.9026, -7.2104, -7.4445,   CPU 1870
     6 -7.6303, -7.6346, -7.4521, -7.2211, -7.0043, -6.7903, -6.5666,   CPU 1880
     7 -6.3499, -6.1534, -5.9988, -5.9033, -5.8760, -5.8693, -5.8277,   CPU 1890
     8 -5.7282, -5.6262, -5.5865, -5.6665, -5.9228, -6.3399, -7.0180,   CPU 1900
     9 -8.4230,-10.0000,-10.0000,-10.0000, -9.4090, -8.8272, -8.3057,   CPU 1910
     $ -7.8885, -7.5044, -7.1560, -6.8292, -6.5250, -6.2461, -5.9904,   CPU 1920
     1 -5.7533, -5.5295, -5.3135, -5.1058, -4.9152, -4.7463, -4.6054,   CPU 1930
     2 -4.4937, -4.3928, -4.2838, -4.1626, -4.0387, -3.9295, -3.8612,   CPU 1940
     3 -3.8501, -3.8647, -3.8625, -3.8099, -3.7351, -3.7179, -3.8549,   CPU 1950
     4 -4.2312, -4.7632, -5.4270, -6.4200, -8.1414, -9.0451, -9.5326,   CPU 1960
     5 -9.8301/                                                         CPU 1970
C=CO2 ==== 7395- 7785, 8030- 8335, 9340- 9670                           CPU 1980
      DATA C81CO2/                                                      CPU 1990
     1 -9.9472, -9.8274, -8.9797, -8.4298, -7.8906, -7.4477, -7.0750,   CPU 2000
     2 -6.7698, -6.5338, -6.3739, -6.2980, -6.2739, -6.2726, -6.2555,   CPU 2010
     3 -6.1989, -6.1529, -6.1654, -6.2584, -6.4610, -6.7805, -7.2235,   CPU 2020
     4 -7.8191, -8.5850, -9.6084,-10.0000,-10.0000, -9.9199, -9.1093,   CPU 2030
     5 -8.4490, -7.9158, -7.4364, -7.0400, -6.6958, -6.4131, -6.1855,   CPU 2040
     6 -6.0158, -5.9123, -5.8700, -5.8530, -5.8340, -5.7866, -5.7224,   CPU 2050
     7 -5.7048, -5.7653, -5.9281, -6.2234, -6.6646, -7.2957, -8.2799,   CPU 2060
     8 -9.9457,-10.0000,-10.0000,-10.0000,-10.0000,-10.0000,-10.0000,   CPU 2070
     9-10.0000, -9.2766, -8.6201, -8.0764, -7.6374, -7.2752, -6.9802,   CPU 2080
     $ -6.7578, -6.6163, -6.5546, -6.5392, -6.5397, -6.5132, -6.4531,   CPU 2090
     1 -6.4161, -6.4482, -6.5683, -6.8086, -7.1762, -7.6772, -8.3574,   CPU 2100
     2 -9.2188,-10.0000,-10.0000, -9.5350, -8.9686, -8.5329, -8.1920,   CPU 2110
     3 -7.9237, -7.6797, -7.5039, -7.3667, -7.2856, -7.1969, -7.0745,   CPU 2120
     4 -6.9330, -6.7926, -6.6818, -6.6144, -6.5643, -6.5183, -6.4910,   CPU 2130
     5 -6.4481, -6.3567, -6.2177, -6.0566, -5.9096, -5.7975, -5.7093,   CPU 2140
     6 -5.6165, -5.5127, -5.4124, -5.3426, -5.3061, -5.2648, -5.1864,   CPU 2150
     7 -5.0876, -5.0226, -5.0397, -5.1905, -5.4858, -5.9101, -6.4851,   CPU 2160
     8 -6.7862, -6.5368, -6.2765, -6.0398, -5.8260, -5.6397, -5.4799/   CPU 2170
      DATA C82CO2/                                                      CPU 2180
     1 -5.3438, -5.2274, -5.1411, -5.0917, -5.0473, -4.9820, -4.9114,   CPU 2190
     2 -4.8634, -4.8844, -5.0363, -5.3351, -5.7802, -6.5387, -8.3735,   CPU 2200
     3 -9.9977, -9.7506, -9.1887, -8.6824, -8.3488, -8.0533, -7.8664,   CPU 2210
     4 -7.7346, -7.6934, -7.6674, -7.6268, -7.5451, -7.4677, -7.4520,   CPU 2220
     5 -7.5471, -7.7913, -8.1917, -8.8835,-10.0000,-10.0000,-10.0000,   CPU 2230
     6-10.0000,-10.0000, -9.7234, -8.9969, -8.5776, -8.1737, -7.8640,   CPU 2240
     7 -7.5729, -7.3186, -7.0973, -6.9131, -6.7782, -6.7073, -6.6768,   CPU 2250
     8 -6.6303, -6.5406, -6.4509, -6.3950, -6.4345, -6.6270, -6.9507,   CPU 2260
     9 -7.5028, -8.6428,-10.0000,-10.0000,-10.0000,-10.0000, -9.5303,   CPU 2270
     $ -8.9369, -8.4952, -8.1465, -7.8567, -7.6177, -7.4249, -7.2876,   CPU 2280
     1 -7.2206, -7.1948, -7.1552, -7.0773, -6.9884, -6.9402, -6.9839,   CPU 2290
     2 -7.1773, -7.4999, -8.0643, -9.1480,-10.0000/                     CPU 2300
C=CO  ====C' FOR    2 BAND MODEL                                        CPU 2310
C=CO  ====    0-  175                                                   CPU 2320
      DATA C11CO/                                                       CPU 2330
     1 -4.6868, -4.4127, -3.9461, -3.5662, -3.2921, -3.1081, -2.9807,   CPU 2340
     2 -2.8977, -2.8580, -2.8461, -2.8587, -2.9029, -2.9646, -3.0480,   CPU 2350
     3 -3.1589, -3.2836, -3.4277, -3.5993, -3.7963, -4.0164, -4.2799,   CPU 2360
     4 -4.5750, -4.8722, -5.2741, -5.6819, -6.0799, -6.4828, -6.8857,   CPU 2370
     5 -7.2886, -7.6915, -8.0944, -8.4973, -8.9002, -9.3031, -9.7060,   CPU 2380
     6-10.0000/                                                         CPU 2390
C=CO  ==== 1940- 2285, 4040- 4370                                       CPU 2400
      DATA C21CO/                                                       CPU 2410
     1-10.0000, -9.5312, -8.8977, -8.2642, -7.5767, -6.9972, -6.5408,   CPU 2420
     2 -6.1219, -5.6734, -5.2658, -4.8686, -4.4918, -4.1423, -3.8133,   CPU 2430
     3 -3.4998, -3.2104, -2.9443, -2.7138, -2.5084, -2.3109, -2.1245,   CPU 2440
     4 -1.9387, -1.7608, -1.6054, -1.4733, -1.3594, -1.2540, -1.1480,   CPU 2450
     5 -1.0341, -0.9216, -0.8189, -0.7235, -0.6362, -0.5549, -0.4856,   CPU 2460
     6 -0.4401, -0.4268, -0.4657, -0.5571, -0.6573, -0.7404, -0.7523,   CPU 2470
     7 -0.6601, -0.5380, -0.4211, -0.3367, -0.3167, -0.3320, -0.3753,   CPU 2480
     8 -0.4489, -0.5438, -0.6653, -0.8052, -0.9690, -1.1506, -1.3522,   CPU 2490
     9 -1.5791, -1.8248, -2.1073, -2.4246, -2.7877, -3.2152, -3.7089,   CPU 2500
     $ -4.2832, -4.9518, -5.7251, -6.5319, -7.4879, -9.0885,-10.0000,   CPU 2510
     1-10.0000, -9.5611, -9.0875, -8.6139, -7.9747, -7.5250, -7.1931,   CPU 2520
     2 -6.8596, -6.5741, -6.2922, -6.0098, -5.7669, -5.5345, -5.3229,   CPU 2530
     3 -5.1461, -4.9882, -4.8493, -4.7239, -4.6064, -4.5009, -4.4071,   CPU 2540
     4 -4.3322, -4.2661, -4.1926, -4.0956, -3.9611, -3.7984, -3.6314,   CPU 2550
     5 -3.4757, -3.3408, -3.2237, -3.1219, -3.0325, -2.9494, -2.8765,   CPU 2560
     6 -2.8117, -2.7531, -2.7023, -2.6635, -2.6440, -2.6550, -2.7225,   CPU 2570
     7 -2.8161, -2.9015, -2.9241, -2.8228, -2.6726, -2.5320, -2.4291,   CPU 2580
     8 -2.3772, -2.3732, -2.3995, -2.4574, -2.5486, -2.6664, -2.8209/   CPU 2590
      DATA C22CO/                                                       CPU 2600
     1 -3.0129, -3.2516, -3.5482, -3.9165, -4.3714, -4.9326, -5.6394,   CPU 2610
     2 -6.5163, -7.6063, -9.3575,-10.0000/                              CPU 2620
C=CH4 ====C' FOR    1 BAND MODEL                                        CPU 2630
C=CH4 ==== 1065- 1775, 2345- 3230, 4110- 4690, 5865- 6135               CPU 2640
      DATA C11CH4/                                                      CPU 2650
     1-10.0000, -9.4577, -8.8866, -8.2246, -7.7940, -7.1734, -6.7965,   CPU 2660
     2 -6.5695, -6.1929, -5.9169, -5.7452, -5.4731, -5.3001, -5.1872,   CPU 2670
     3 -4.9672, -4.8474, -4.6939, -4.5210, -4.3377, -4.1346, -3.9322,   CPU 2680
     4 -3.7339, -3.5077, -3.2719, -3.0296, -2.8124, -2.6199, -2.4479,   CPU 2690
     5 -2.2502, -2.0541, -1.8800, -1.7092, -1.5791, -1.4379, -1.2992,   CPU 2700
     6 -1.1735, -1.0510, -0.9646, -0.8779, -0.8002, -0.7574, -0.7356,   CPU 2710
     7 -0.7478, -0.7512, -0.6906, -0.5594, -0.4417, -0.4019, -0.5027,   CPU 2720
     8 -0.7628, -0.9625, -1.0431, -1.0068, -0.8781, -0.7559, -0.6628,   CPU 2730
     9 -0.6128, -0.6118, -0.6575, -0.7620, -0.9217, -1.1264, -1.3660,   CPU 2740
     $ -1.6352, -1.9264, -2.2266, -2.5123, -2.7472, -2.8820, -2.9129,   CPU 2750
     1 -2.9145, -2.8854, -2.8508, -2.8512, -2.8202, -2.8023, -2.8004,   CPU 2760
     2 -2.7800, -2.8175, -2.8413, -2.8943, -2.9876, -3.0688, -3.2424,   CPU 2770
     3 -3.4064, -3.5759, -3.7630, -3.8925, -4.0774, -4.3243, -4.5964,   CPU 2780
     4 -3.8654, -3.0974, -2.5967, -2.2482, -2.1016, -2.1488, -2.3261,   CPU 2790
     5 -2.6448, -3.0446, -3.3958, -3.6510, -3.7049, -3.7240, -3.5992,   CPU 2800
     6 -3.4937, -3.3676, -3.2230, -3.1630, -3.0691, -3.0776, -3.0872,   CPU 2810
     7 -3.0974, -3.1223, -3.1285, -3.1212, -3.1333, -3.1674, -3.1668,   CPU 2820
     8 -3.2433, -3.2398, -3.3135, -3.3975, -3.4427, -3.6434, -3.7528/   CPU 2830
      DATA C12CH4/                                                      CPU 2840
     1 -3.9466, -4.1940, -4.3362, -4.5539, -4.7410, -4.9155, -5.1345,   CPU 2850
     2 -5.3908, -5.5592, -5.8270, -6.0289, -6.2365, -6.6730, -7.0538,   CPU 2860
     3 -7.6216, -8.5697, -9.8483,-10.0000, -9.3577, -8.5950, -7.8323,   CPU 2870
     4 -7.0696, -6.3069, -5.5442, -5.1501, -4.8853, -4.6900, -4.5262,   CPU 2880
     5 -4.3957, -4.2823, -4.2736, -4.2054, -4.1168, -3.9986, -3.8712,   CPU 2890
     6 -3.8692, -3.8777, -3.8965, -3.9092, -3.8788, -3.7661, -3.6900,   CPU 2900
     7 -3.6239, -3.5597, -3.5193, -3.4906, -3.4415, -3.3730, -3.3579,   CPU 2910
     8 -3.3427, -3.3208, -3.3048, -3.3136, -3.2904, -3.2545, -3.2241,   CPU 2920
     9 -3.1453, -3.0187, -2.9427, -2.8630, -2.8146, -2.8604, -2.8922,   CPU 2930
     $ -2.9650, -2.9959, -2.8920, -2.7989, -2.7028, -2.6506, -2.7285,   CPU 2940
     1 -2.8420, -2.9304, -2.9622, -2.8726, -2.7566, -2.6745, -2.6337,   CPU 2950
     2 -2.6533, -2.6800, -2.7098, -2.7479, -2.6859, -2.6216, -2.5701,   CPU 2960
     3 -2.4683, -2.4426, -2.4463, -2.4194, -2.4578, -2.4894, -2.4639,   CPU 2970
     4 -2.4825, -2.4998, -2.4381, -2.4123, -2.3654, -2.2698, -2.2387,   CPU 2980
     5 -2.2364, -2.2029, -2.1780, -2.1433, -2.0355, -1.9458, -1.8723,   CPU 2990
     6 -1.7936, -1.7639, -1.7782, -1.8022, -1.8115, -1.7818, -1.6986,   CPU 3000
     7 -1.6169, -1.5975, -1.6545, -1.7742, -1.8937, -1.9544, -1.8942,   CPU 3010
     8 -1.7761, -1.6392, -1.5236, -1.4551, -1.4221, -1.4245, -1.4174/   CPU 3020
      DATA C13CH4/                                                      CPU 3030
     1 -1.4177, -1.3776, -1.3349, -1.2909, -1.2470, -1.2162, -1.1850,   CPU 3040
     2 -1.1677, -1.1449, -1.1229, -1.1031, -1.0795, -1.0687, -1.0692,   CPU 3050
     3 -1.0904, -1.1166, -1.1511, -1.1951, -1.2321, -1.2831, -1.2716,   CPU 3060
     4 -1.1902, -0.9715, -0.6654, -0.4103, -0.3011, -0.5049, -0.8659,   CPU 3070
     5 -1.1777, -1.3847, -1.4359, -1.3908, -1.2992, -1.1923, -1.0951,   CPU 3080
     6 -1.0213, -0.9578, -0.9299, -0.9207, -0.9292, -0.9725, -1.0126,   CPU 3090
     7 -1.0750, -1.1149, -1.1636, -1.2059, -1.2638, -1.3327, -1.4079,   CPU 3100
     8 -1.4983, -1.5711, -1.6872, -1.7870, -1.9266, -2.0774, -2.2119,   CPU 3110
     9 -2.3875, -2.5155, -2.6822, -2.8372, -3.0032, -3.2413, -3.5058,   CPU 3120
     $ -3.9508, -4.5133, -5.3536, -8.0815, -8.9081, -9.8155,-10.0000,   CPU 3130
     1 -7.4757, -5.1602, -4.2454, -3.7640, -3.3256, -3.0103, -2.7726,   CPU 3140
     2 -2.5510, -2.3849, -2.2318, -2.1080, -2.0086, -1.9290, -1.8902,   CPU 3150
     3 -1.8750, -1.8700, -1.8476, -1.7390, -1.5724, -1.4284, -1.3425,   CPU 3160
     4 -1.3791, -1.5132, -1.6508, -1.7283, -1.6684, -1.5432, -1.4447,   CPU 3170
     5 -1.3773, -1.3490, -1.3642, -1.4016, -1.4713, -1.5836, -1.6984,   CPU 3180
     6 -1.8085, -1.8486, -1.7464, -1.6338, -1.5555, -1.5552, -1.6935,   CPU 3190
     7 -1.8165, -1.8417, -1.7697, -1.6346, -1.5589, -1.5466, -1.5604,   CPU 3200
     8 -1.6307, -1.6867, -1.7593, -1.8051, -1.8167, -1.8518, -1.8559/   CPU 3210
      DATA C14CH4/                                                      CPU 3220
     1 -1.8547, -1.8907, -1.8851, -1.8933, -1.9081, -1.9025, -1.9451,   CPU 3230
     2 -1.9924, -2.0321, -2.0816, -2.1026, -2.1137, -2.1351, -2.1629,   CPU 3240
     3 -2.1876, -2.2340, -2.2960, -2.3747, -2.4970, -2.6244, -2.7641,   CPU 3250
     4 -2.8912, -3.0328, -3.1944, -3.3877, -3.4566, -3.1662, -2.7253,   CPU 3260
     5 -2.3992, -2.2214, -2.2022, -2.3978, -2.7449, -3.2639, -3.9311,   CPU 3270
     6 -4.1470, -3.9351, -3.7471, -3.6245, -3.4791, -3.4710, -3.4210,   CPU 3280
     7 -3.4125, -3.4475, -3.4140, -3.4908, -3.5164, -3.5944, -3.7403,   CPU 3290
     8 -3.8192, -4.0177, -4.1833, -4.3518, -4.6486, -4.8778, -5.2542,   CPU 3300
     9 -5.7834, -6.3451, -7.7212,-10.0000, -9.9134, -7.9181, -6.0815,   CPU 3310
     $ -5.4397, -4.9875, -4.6154, -4.4846, -4.3541, -4.3037, -4.3073,   CPU 3320
     1 -4.2471, -4.2593, -4.1984, -4.1895, -4.1697, -4.1578, -4.1950,   CPU 3330
     2 -4.1878, -4.2299, -4.2209, -4.2646, -4.3123, -4.3911, -4.4588,   CPU 3340
     3 -4.1873, -3.8353, -3.5282, -3.3055, -3.3351, -3.5671, -3.8750,   CPU 3350
     4 -4.2645, -4.4786, -4.4293, -4.3183, -4.1996, -4.0879, -4.0169,   CPU 3360
     5 -3.9787, -3.9536, -3.9454, -3.9283, -3.9166, -3.9152, -3.9336,   CPU 3370
     6 -3.9561, -3.9932, -4.0934, -4.2317, -4.5084, -4.9460, -5.4958,   CPU 3380
     7 -6.5492, -8.5604, -9.6202/                                       CPU 3390
C=N2O ====C' FOR    3 BAND MODEL                                        CPU 3400
C=N2O ====    0-  120                                                   CPU 3410
      DATA C11N2O/                                                      CPU 3420
     1 -2.8003, -2.6628, -2.4313, -2.2579, -2.1700, -2.1702, -2.2490,   CPU 3430
     2 -2.4003, -2.6264, -2.9219, -3.2954, -3.7684, -4.2621, -4.7558,   CPU 3440
     3 -5.2495, -5.7432, -6.2369, -6.7306, -7.2243, -7.7180, -8.2117,   CPU 3450
     4 -8.7054, -9.1991, -9.6928,-10.0000/                              CPU 3460
C=N2O ====  490-  775,  865-  995, 1065- 1385, 1545- 2040, 2090- 2655   CPU 3470
      DATA C21N2O/                                                      CPU 3480
     1 -9.7185, -8.8926, -8.0667, -7.2307, -6.4149, -5.4872, -4.7083,   CPU 3490
     2 -4.0319, -3.4752, -3.0155, -2.6046, -2.2057, -1.8137, -1.4741,   CPU 3500
     3 -1.1914, -0.9603, -0.7923, -0.6629, -0.5849, -0.5402, -0.4975,   CPU 3510
     4 -0.5148, -0.5592, -0.6521, -0.8148, -1.0186, -1.2764, -1.5873,   CPU 3520
     5 -1.9638, -2.3881, -2.8083, -3.2392, -3.6934, -4.0682, -4.1366,   CPU 3530
     6 -3.9423, -3.7143, -3.4975, -3.2602, -3.0976, -2.9815, -2.9153,   CPU 3540
     7 -2.9596, -3.0281, -3.1264, -3.2650, -3.3906, -3.5717, -3.8312,   CPU 3550
     8 -4.1706, -4.6077, -5.1839, -5.9224, -6.9862, -7.6901, -8.3940,   CPU 3560
     9 -9.0979, -9.8018, -9.9154, -9.2271, -8.5388, -7.8504, -7.1621,   CPU 3570
     $ -6.2428, -5.6051, -5.0971, -4.7237, -4.4104, -4.2050, -4.0681,   CPU 3580
     1 -4.0278, -4.0307, -4.0492, -4.0333, -3.9710, -3.9249, -3.9360,   CPU 3590
     2 -4.0316, -4.2317, -4.5414, -4.9787, -5.5623, -6.3335, -7.9968,   CPU 3600
     3 -9.6601, -9.5486, -8.8517, -8.1548, -7.4579, -6.7610, -6.0641,   CPU 3610
     4 -5.3672, -4.6703, -3.6918, -3.0656, -2.5796, -2.1876, -1.8646,   CPU 3620
     5 -1.5919, -1.3587, -1.1684, -1.0286, -0.9470, -0.9271, -0.9442,   CPU 3630
     6 -0.9695, -0.9753, -0.9573, -0.9550, -1.0000, -1.1070, -1.2791,   CPU 3640
     7 -1.4976, -1.7281, -1.9277, -2.0227, -1.9577, -1.7625, -1.5020,   CPU 3650
     8 -1.2186, -0.9270, -0.6326, -0.3429, -0.0768,  0.1500,  0.3215/   CPU 3660
      DATA C22N2O/                                                      CPU 3670
     1  0.4104,  0.4385,  0.4288,  0.4185,  0.4570,  0.4972,  0.4987,   CPU 3680
     2  0.4216,  0.2360, -0.0319, -0.3714, -0.7539, -1.1534, -1.5855,   CPU 3690
     3 -2.0610, -2.6068, -3.2635, -4.1038, -5.2761, -6.1437, -7.0079,   CPU 3700
     4 -7.9440, -8.8801, -9.8162,-10.0000, -9.5951, -9.1305, -8.6659,   CPU 3710
     5 -8.2013, -7.7367, -7.2721, -6.8075, -6.1598, -5.8695, -5.3510,   CPU 3720
     6 -4.9491, -4.6310, -4.3846, -4.0784, -3.7763, -3.5901, -3.4607,   CPU 3730
     7 -3.4386, -3.5481, -3.7014, -3.9310, -4.2251, -4.4593, -4.8210,   CPU 3740
     8 -5.3494, -6.1286, -7.5981,-10.0000,-10.0000,-10.0000,-10.0000,   CPU 3750
     9 -6.3743, -5.5592, -5.0129, -4.6075, -4.3171, -4.0928, -3.7537,   CPU 3760
     $ -3.5406, -3.3869, -3.2913, -3.3633, -3.4932, -3.6924, -4.0074,   CPU 3770
     1 -4.2504, -4.5389, -4.9425, -5.4741, -6.2069, -7.5981,-10.0000,   CPU 3780
     2-10.0000,-10.0000, -6.9215, -6.0798, -5.1934, -4.6288, -4.1316,   CPU 3790
     3 -3.7322, -3.4089, -3.1573, -2.9573, -2.7298, -2.5615, -2.4382,   CPU 3800
     4 -2.3523, -2.3774, -2.4508, -2.5755, -2.7757, -2.9904, -3.2733,   CPU 3810
     5 -3.6524, -4.1599, -4.7952, -5.7004, -6.8762, -6.9822, -6.2484,   CPU 3820
     6 -5.7613, -5.2586, -4.8674, -4.6633, -4.5332, -4.5158, -4.6593,   CPU 3830
     7 -4.8427, -5.0917, -5.5781, -6.0645, -6.5509, -7.0373, -7.5237,   CPU 3840
     8 -8.0101, -8.4965, -8.9829, -9.4693, -9.9557, -9.7130, -8.6609/   CPU 3850
      DATA C23N2O/                                                      CPU 3860
     1 -7.6089, -6.5568, -5.0880, -4.4527, -3.9302, -3.4438, -2.9701,   CPU 3870
     2 -2.5423, -2.1616, -1.8076, -1.4763, -1.1580, -0.8445, -0.5455,   CPU 3880
     3 -0.2506,  0.0234,  0.2775,  0.5113,  0.7154,  0.8929,  1.0359,   CPU 3890
     4  1.1306,  1.1697,  1.1807,  1.1803,  1.1974,  1.2466,  1.2629,   CPU 3900
     5  1.2068,  1.0472,  0.7695,  0.4083, -0.0244, -0.5477, -1.2202,   CPU 3910
     6 -2.1067, -2.9508, -3.2107, -3.1587, -2.9600, -2.7641, -2.6324,   CPU 3920
     7 -2.5671, -2.5664, -2.6088, -2.6425, -2.6606, -2.6895, -2.7551,   CPU 3930
     8 -2.8837, -3.0884, -3.3746, -3.7078, -4.0975, -4.6272, -5.2484,   CPU 3940
     9-10.0000,-10.0000,-10.0000, -7.3571, -5.0287, -4.3047, -3.6431,   CPU 3950
     $ -3.1026, -2.6122, -2.1941, -1.8454, -1.5726, -1.3829, -1.2818,   CPU 3960
     1 -1.2505, -1.2579, -1.2731, -1.2502, -1.2092, -1.2044, -1.2577,   CPU 3970
     2 -1.3942, -1.6262, -1.9347, -2.2830, -2.5386, -2.4801, -2.1671,   CPU 3980
     3 -1.8061, -1.4726, -1.1797, -0.9377, -0.7542, -0.6392, -0.5899,   CPU 3990
     4 -0.5743, -0.5669, -0.5339, -0.4745, -0.4471, -0.4779, -0.5877,   CPU 4000
     5 -0.7964, -1.0942, -1.4812, -1.9593, -2.5140, -3.1350, -3.8102,   CPU 4010
     6 -4.5825, -5.5982, -6.4193, -7.2403, -8.0614, -8.8825, -9.7035/   CPU 4020
C=N2O ==== 2705- 2865, 3245- 3925, 4260- 4470, 4540- 4785, 4910- 5165   CPU 4030
      DATA C31N2O/                                                      CPU 4040
     1 -9.8910, -8.9876, -8.0843, -7.1809, -6.1501, -5.3742, -4.7352,   CPU 4050
     2 -4.2051, -3.7525, -3.3562, -2.9916, -2.6649, -2.3872, -2.1499,   CPU 4060
     3 -1.9747, -1.7982, -1.6518, -1.5582, -1.4838, -1.5004, -1.5821,   CPU 4070
     4 -1.6912, -1.8673, -2.0756, -2.3351, -2.7020, -3.1921, -3.8409,   CPU 4080
     5 -4.7085, -5.9588, -6.5829, -8.5585, -9.8584, -9.9723, -9.4215,   CPU 4090
     6 -8.8707, -8.3199, -7.7691, -7.2183, -6.5567, -6.4345, -5.6448,   CPU 4100
     7 -5.0529, -4.4643, -3.9624, -3.5231, -3.1395, -2.8067, -2.5232,   CPU 4110
     8 -2.2858, -2.0820, -1.9049, -1.7554, -1.6485, -1.5959, -1.5838,   CPU 4120
     9 -1.5961, -1.5997, -1.5734, -1.5615, -1.5974, -1.7059, -1.9034,   CPU 4130
     $ -2.1631, -2.4181, -2.5427, -2.4592, -2.2513, -2.0187, -1.7879,   CPU 4140
     1 -1.5612, -1.3399, -1.1265, -0.9226, -0.7379, -0.5790, -0.4573,   CPU 4150
     2 -0.3952, -0.3683, -0.3511, -0.3216, -0.2556, -0.2126, -0.2593,   CPU 4160
     3 -0.4361, -0.7702, -1.2089, -1.7060, -2.2937, -3.1133, -4.4419,   CPU 4170
     4 -6.0119, -6.9457,-10.0000,-10.0000,-10.0000,-10.0000, -7.0394,   CPU 4180
     5 -5.9637, -5.2317, -4.6419, -4.1663, -3.7874, -3.5000, -3.3086,   CPU 4190
     6 -3.2143, -3.1926, -3.2105, -3.2308, -3.1971, -3.1510, -3.1402,   CPU 4200
     7 -3.1969, -3.3477, -3.6005, -3.9534, -4.4117, -4.9729, -5.6009,   CPU 4210
     8 -6.2179, -5.9845, -5.5502, -4.9010, -4.3401, -3.8232, -3.3802/   CPU 4220
      DATA C32N2O/                                                      CPU 4230
     1 -2.9972, -2.6747, -2.4143, -2.2209, -2.1080, -2.0682, -2.0687,   CPU 4240
     2 -2.0775, -2.0485, -1.9847, -1.9531, -1.9870, -2.1110, -2.3366,   CPU 4250
     3 -2.6293, -2.8922, -2.9474, -2.7627, -2.4999, -2.2554, -2.0537,   CPU 4260
     4 -1.9062, -1.8268, -1.7941, -1.7766, -1.7468, -1.6767, -1.6130,   CPU 4270
     5 -1.6085, -1.6849, -1.8599, -2.1258, -2.4538, -2.8205, -3.2028,   CPU 4280
     6 -3.5988, -4.0691, -4.7117, -5.6320, -6.4806, -7.3731, -8.2602,   CPU 4290
     7 -9.1474,-10.0000,-10.0000, -9.5340, -9.0282, -8.5224, -8.0166,   CPU 4300
     8 -7.5109, -7.0051, -6.4117, -6.0148, -5.4878, -5.1742, -4.8859,   CPU 4310
     9 -4.4873, -4.2249, -4.0285, -3.8669, -3.8247, -3.7652, -3.6521,   CPU 4320
     $ -3.4906, -3.2613, -3.0307, -2.8156, -2.6172, -2.4264, -2.2442,   CPU 4330
     1 -2.0775, -1.9432, -1.8703, -1.8523, -1.8552, -1.8443, -1.7814,   CPU 4340
     2 -1.7104, -1.7043, -1.7952, -2.0205, -2.3968, -2.9374, -3.7689,   CPU 4350
     3 -5.3159, -7.4139, -9.5119, -9.7965, -9.1511, -8.5057, -7.8603,   CPU 4360
     4 -7.2149, -6.5695, -6.2415, -5.5829, -5.0296, -4.5660, -4.1722,   CPU 4370
     5 -3.8364, -3.5551, -3.3398, -3.1970, -3.1363, -3.1232, -3.1257,   CPU 4380
     6 -3.0999, -3.0288, -2.9746, -2.9875, -3.0925, -3.3137, -3.6496,   CPU 4390
     7 -4.0276, -4.1958, -3.9760, -3.6179, -3.2725, -2.9653, -2.6962,   CPU 4400
     8 -2.4677, -2.2828, -2.1547, -2.0949, -2.0763, -2.0606, -2.0142/   CPU 4410
      DATA C33N2O/                                                      CPU 4420
     1 -1.9239, -1.8618, -1.8813, -2.0099, -2.2825, -2.7071, -3.3277,   CPU 4430
     2 -4.3300, -6.2151, -8.3543,-10.0000, -9.7275, -9.1257, -8.5239,   CPU 4440
     3 -7.9221, -7.3203, -6.7185, -6.6089, -5.8877, -5.4527, -5.0879,   CPU 4450
     4 -4.6598, -4.3806, -4.1830, -4.0426, -4.0175, -4.0178, -3.9811,   CPU 4460
     5 -3.9244, -3.8056, -3.6968, -3.6435, -3.6326, -3.6339, -3.6157,   CPU 4470
     6 -3.5478, -3.4826, -3.4807, -3.5665, -3.7650, -4.0718, -4.3980,   CPU 4480
     7 -4.5075, -4.3358, -4.0765, -3.8674, -3.7221, -3.6588, -3.6429,   CPU 4490
     8 -3.6371, -3.6014, -3.5209, -3.4616, -3.4774, -3.5957, -3.8481,   CPU 4500
     9 -4.2598, -4.8784, -5.8266, -6.7468, -8.1352, -9.2208,-10.0000/   CPU 4510
C=O2  ====C' FOR    2 BAND MODEL                                        CPU 4520
C=O2  ====    0-  265                                                   CPU 4530
      DATA C11O2/                                                       CPU 4540
     1 -6.1363, -6.1794, -6.2538, -6.3705, -6.5110, -6.6162, -6.7505,   CPU 4550
     2 -6.7896, -6.8305, -6.8471, -6.8282, -6.8772, -6.8680, -6.9332,   CPU 4560
     3 -6.9511, -7.0048, -7.0662, -7.1043, -7.2055, -7.2443, -7.3520,   CPU 4570
     4 -7.4079, -7.4998, -7.5924, -7.6682, -7.7993, -7.8712, -8.0161,   CPU 4580
     5 -8.1102, -8.2485, -8.3758, -8.4942, -8.6532, -8.7554, -8.9453,   CPU 4590
     6 -9.0665, -9.2631, -9.4387, -9.6325, -9.8757,-10.0628,-10.3761,   CPU 4600
     7-10.5478,-10.9147,-11.2052,-11.5129,-11.8206,-12.1283,-12.4360,   CPU 4610
     8-12.7437,-13.0514,-13.3591,-13.6668,-13.9745/                     CPU 4620
C=O2  ==== 7650- 8080, 9235- 9490,12850-13220,14300-14600,15695-15955   CPU 4630
      DATA C21O2/                                                       CPU 4640
     1-13.9458,-13.7692,-13.5048,-13.1422,-13.0242,-12.6684,-12.3571,   CPU 4650
     2-12.2428,-11.8492,-11.6427,-11.5173,-11.2108,-11.1584,-11.0196,   CPU 4660
     3-10.8040,-10.8059,-10.5828,-10.4580,-10.4170,-10.1823,-10.1435,   CPU 4670
     4-10.0030, -9.8136, -9.7772, -9.5680, -9.4595, -9.3502, -9.1411,   CPU 4680
     5 -9.0476, -8.8628, -8.7051, -8.5838, -8.4282, -8.3271, -8.1958,   CPU 4690
     6 -8.0838, -7.9652, -7.8371, -7.7476, -7.6431, -7.5736, -7.5149,   CPU 4700
     7 -7.4194, -7.2688, -7.0722, -6.8815, -6.7627, -6.8055, -6.9114,   CPU 4710
     8 -6.9936, -7.0519, -7.0597, -7.0680, -7.1242, -7.2088, -7.3265,   CPU 4720
     9 -7.4673, -7.6326, -7.8110, -8.0096, -8.2104, -8.4036, -8.5853,   CPU 4730
     $ -8.7252, -8.8511, -8.9427, -9.0375, -9.1228, -9.2246, -9.3291,   CPU 4740
     1 -9.4436, -9.5716, -9.6951, -9.8408, -9.9759,-10.1489,-10.3027,   CPU 4750
     2-10.5178,-10.7265,-10.9787,-11.2939,-11.5552,-11.9595,-12.2436,   CPU 4760
     3-12.6942,-13.2011,-13.8191,-13.9216,-13.7293,-13.5370,-13.3447,   CPU 4770
     4-13.1523,-12.9600,-12.7677,-12.5754,-12.3830,-12.1907,-11.9948,   CPU 4780
     5-11.7759,-11.5926,-11.4214,-11.2493,-11.1094,-10.9477,-10.8332,   CPU 4790
     6-10.7323,-10.6380,-10.5725,-10.4409,-10.2013, -9.8839, -9.6546,   CPU 4800
     7 -9.5053, -9.4638, -9.5526, -9.6558, -9.7430, -9.7958, -9.7896,   CPU 4810
     8 -9.8320, -9.9447,-10.1221,-10.3707,-10.6623,-10.9761,-11.2271/   CPU 4820
      DATA C22O2/                                                       CPU 4830
     1-11.4091,-11.4921,-11.6015,-11.6945,-11.8333,-11.9985,-12.1788,   CPU 4840
     2-12.3822,-12.6605,-13.0796,-13.3528,-13.6463,-13.9398,-13.7034,   CPU 4850
     3-13.3150,-13.1177,-12.6462,-12.4868,-12.2205,-11.9650,-11.6941,   CPU 4860
     4-11.4377,-11.2136,-10.9567,-10.7980,-10.5546,-10.3952,-10.2403,   CPU 4870
     5-10.0491, -9.9226, -9.7871, -9.6557, -9.6106, -9.5142, -9.4763,   CPU 4880
     6 -9.4163, -9.2348, -9.1088, -8.7946, -8.5876, -8.3128, -8.0945,   CPU 4890
     7 -7.9127, -7.7229, -7.5860, -7.4215, -7.2726, -7.1179, -6.9516,   CPU 4900
     8 -6.8075, -6.6413, -6.5043, -6.3519, -6.2112, -6.0839, -5.9337,   CPU 4910
     9 -5.8321, -5.6969, -5.5923, -5.5076, -5.4002, -5.3413, -5.2826,   CPU 4920
     $ -5.2458, -5.2877, -5.3743, -5.4654, -5.5262, -5.4429, -5.2430,   CPU 4930
     1 -5.0284, -4.8464, -4.7534, -4.7825, -4.9462, -5.2290, -5.6440,   CPU 4940
     2 -6.1889, -6.8427, -7.7731, -9.1688, -9.6893,-10.1853,-10.7670,   CPU 4950
     3-11.4611,-12.3081,-13.1476,-13.8192,-13.5871,-13.2189,-12.9705,   CPU 4960
     4-12.4825,-12.1301,-11.9430,-11.6636,-11.3197,-11.1678,-10.8967,   CPU 4970
     5-10.6002,-10.4857,-10.1986, -9.9731, -9.8547, -9.5817, -9.4382,   CPU 4980
     6 -9.3042, -9.0755, -8.9944, -8.8060, -8.6543, -8.5441, -8.3556,   CPU 4990
     7 -8.2557, -8.0959, -7.9717, -7.8453, -7.7076, -7.5910, -7.4567,   CPU 5000
     8 -7.3439, -7.2248, -7.1236, -7.0209, -6.9345, -6.8404, -6.7560/   CPU 5010
      DATA C23O2/                                                       CPU 5020
     1 -6.6744, -6.5870, -6.5278, -6.4809, -6.5042, -6.5797, -6.6564,   CPU 5030
     2 -6.6939, -6.5912, -6.3776, -6.1438, -6.0062, -6.0469, -6.3081,   CPU 5040
     3 -6.8199, -7.4307, -8.1345, -9.1190,-10.4203,-11.4698,-12.5942,   CPU 5050
     4-13.5316,-13.8693,-13.9392,-13.6885,-13.4377,-13.1869,-12.9362,   CPU 5060
     5-12.6854,-12.3720,-12.2852,-11.9331,-11.7575,-11.6297,-11.3290,   CPU 5070
     6-11.1205,-11.0084,-10.7243,-10.5543,-10.4485,-10.1764,-10.0759,   CPU 5080
     7 -9.9304, -9.7196, -9.6630, -9.4774, -9.3638, -9.2675, -9.1121,   CPU 5090
     8 -9.0368, -8.9025, -8.8028, -8.7012, -8.5909, -8.5121, -8.4141,   CPU 5100
     9 -8.3444, -8.2687, -8.2003, -8.1571, -8.1141, -8.1261, -8.1848,   CPU 5110
     $ -8.2395, -8.2478, -8.0877, -7.7880, -7.5611, -7.4487, -7.4880,   CPU 5120
     1 -7.7644, -8.2142, -8.8765,-10.1091,-12.4483,-13.7228/            CPU 5130
      END                                                               CPU 5140
      SUBROUTINE CXDTA (CPRIME,V,IWL,IWH,CP,IND)                        CXD  100
C     THIS SUBROUTINE FINDS THE CPRIME FOR THE WAVENUMBER V.            CXD  110
C     INPUT:         V --- WAVENUMBER                                   CXD  120
C            (IWL,IWH) --- WAVENUMBER PAIR SPECIFIES THE ABSORPTION     CXD  130
C                          REGION. BOTH ARE ARRAYS AND TERMINATED       CXD  140
C                          WITH THE VALUE -999                          CXD  150
C                   CP --- ARRAY CONTAINS THE CPRIMES                   CXD  160
C     OUTPUT:   CPRIME --- THE CPRIME CORRESPONDING TO V                CXD  170
C     I/O:         IND --- INDICATOR INDICATES THE ABSORPTION REGION    CXD  180
C                          WHERE THE WAVENUMBER IS EXPECTED TO BE IN    CXD  190
C                          OR NEARBY (IT SERVES FOR THE PURPOSE         CXD  200
C                          TO SPEED UP THE SEARCHING PROCESS)           CXD  210
      DIMENSION IWL(*),IWH(*),CP(*)                                     CXD  220
      IV=V                                                              CXD  230
      CPRIME=-20.0                                                      CXD  240
      IF (IWL(IND+1) .EQ. -999 .AND. IV .GT. IWH(IND)) RETURN           CXD  250
      IF (IV .LT. IWL(1)) RETURN                                        CXD  260
      IC=0                                                              CXD  270
  100 IF (IV .GE. IWL(IND) .AND. IV .LE. IWH(IND)) GO TO 200            CXD  280
      IF (IV .GT. IWH(IND) .AND. IV .LT. IWL(IND+1)) RETURN             CXD  290
      IND=IND+1                                                         CXD  300
      IF (IWL(IND) .NE. -999) GO TO 100                                 CXD  310
      IND=IND-1                                                         CXD  320
      IF (IV .GT. IWH(IND)) RETURN                                      CXD  330
      IND=1                                                             CXD  340
      GO TO 100                                                         CXD  350
  200 IF (IND .EQ. 1) GO TO 400                                         CXD  360
      INDM1=IND-1                                                       CXD  370
      DO 300 I=1,INDM1                                                  CXD  380
        IC=IC+(IWH(I)-IWL(I))/5+1                                       CXD  390
  300 CONTINUE                                                          CXD  400
  400 IC=IC+(IV-IWL(IND))/5+1                                           CXD  410
      CPRIME=CP(IC)                                                     CXD  420
      RETURN                                                            CXD  430
      END                                                               CXD  440
      FUNCTION   DBLTX(W,CPRIME,QA)                                     DBL  100
      DBLTX=1.0                                                         DBL  110
      IF (W .LT. 1.0E-20) RETURN                                        DBL  120
      IF (CPRIME .LT. -20) RETURN                                       DBL  130
      WS=ALOG10(W)+CPRIME                                               DBL  140
      QAWS=QA*WS                                                        DBL  150
      IF (QAWS .LT. 2.0) GO TO 100                                      DBL  160
      DBLTX=0.0                                                         DBL  170
      RETURN                                                            DBL  180
  100 IF (QAWS .GT. -6.0) GO TO 200                                     DBL  190
      DBLTX=1.0                                                         DBL  200
      RETURN                                                            DBL  210
  200 DBLTX=EXP(-10**QAWS)                                              DBL  220
      RETURN                                                            DBL  230
      END                                                               DBL  240
      SUBROUTINE DEBYE(WAVL,TC,KEY,RE,AI)                               DBY  100
CCC                                                                     DBY  110
CCC    CALCULATES WAVENUMBER DEPENDENCE OF DIELECTRIC CONSTANT          DBY  120
CCC    OF WATER                                                         DBY  130
CCC                                                                     DBY  140
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     DBY  150
      T=TC+273.15                                                       DBY  160
      IF(KEY.NE.0) GO TO 1                                              DBY  170
      GO TO 2                                                           DBY  180
    1 EFIN=5.27137+.0216474*TC-.00131198*TC*TC                          DBY  190
      ALPHA=-16.8129/T+.0609265                                         DBY  200
      TAU=.00033836*EXP(2513.98/T)                                      DBY  210
      SIG=12.5664E+08                                                   DBY  220
      ES=78.54*(1.-.004579*(TC-25.)+.0000119*(TC-25.)**2-.000000028*    DBY  230
     1(TC-25.)**3)                                                      DBY  240
      GO TO 3                                                           DBY  250
    2 EFIN=3.168                                                        DBY  260
      ALPHA=.00023*TC*TC+.0052*TC+.288                                  DBY  270
      T125 = 12500./(T*1.9869)                                          DBY  280
      IF(T125. LE.BIGEXP) THEN                                          DBY  290
           SIG=1.26*EXP(-T125)                                          DBY  300
      ELSE                                                              DBY  310
           SIG = 0.                                                     DBY  320
      ENDIF                                                             DBY  330
      TAU=9.990288E-05*EXP(13200./(T*1.9869))                           DBY  340
      ES=3.168+.15*TC*TC+2.5*TC+200.                                    DBY  350
    3 C1=TAU/WAVL                                                       DBY  360
CCC                                                                     DBY  370
CCC    TEMPORARY FIX TO CLASSICAL DEBYE EQUATION                        DBY  380
CCC    TO HANDLE ZERO CM-1 PROBLEM                                      DBY  390
CCC                                                                     DBY  400
      ALPHA=0.0                                                         DBY  410
      SIG=0.0                                                           DBY  420
CCC                                                                     DBY  430
      C2=1.5708*ALPHA                                                   DBY  440
      DEM=1.+2.*C1**(1.-ALPHA)*SIN(C2)+C1**(2.*(1.-ALPHA))              DBY  450
      E1=EFIN+(ES-EFIN)*(1.+(C1**(1.-ALPHA)*SIN(C2)))/DEM               DBY  460
      IF(KEY.NE.0.AND.WAVL.GE.300.) E1=87.53-0.3956*TC                  DBY  470
      IF(KEY.NE.0 .AND. WAVL.GE.300.) E1=ES                             DBY  480
      E2=(ES-EFIN)*C1**(1.-ALPHA)*COS(C2)/DEM+SIG*WAVL/18.8496E+10      DBY  490
CCC                                                                     DBY  500
CCC    PERMANENT FIX TO CLSSICAL DEBYE EQUATION                         DBY  510
CCC    TO HANDLE ZERO CM-1 PROBLEM                                      DBY  520
CCC                                                                     DBY  530
      E1=EFIN+(ES-EFIN)/(1.0+C1**2)                                     DBY  540
CCC                                                                     DBY  550
      E2=((ES-EFIN)*C1)/(1.0+C1**2)                                     DBY  560
CCC                                                                     DBY  570
      RE=SQRT((E1+SQRT(E1*E1+E2*E2))/2.)                                DBY  580
      AI=-E2/(2.*RE)                                                    DBY  590
      RETURN                                                            DBY  600
      END                                                               DBY  610
      SUBROUTINE DEFALT  (Z,P,T)                                        DEF  100
C                                                                       DEF  110
C     ******************************************************************DEF  120
C                                                                       DEF  130
C     THIS SUBROUTINE LOADS ONE OF THE 6 BUILT IN ATMOSPHERIC PROFILES  DEF  140
C     FROM WHICH IT WILL INTERPOLATE "DEFAULT" VALUES FOR ALTITUDE "Z"  DEF  150
C                                                                       DEF  160
C                                                                       DEF  170
C      ***  THIS SUBROUTINE IS CALLED BY "RDUNIT" WHICH                 DEF  180
C      ***  READS USER SUPPLIED INPUT PROFILES OR SINGLE VALUES         DEF  190
C      ***  UNDER "MODEL = 0     " SPECIFICATIONS                       DEF  200
C                                                                       DEF  210
C      *** SEE DOCUMENTATION FOR CLARIFICATION ***                      DEF  220
C                                                                       DEF  230
C     SUBROUTINE "DEFALT"IS TRIGGERRED WHENEVER ANY ONE OF              DEF  240
C     THE INPUT PARAMETERS JCHARP, JCART, (JCHAR(K),K=1,NMOL) IS = 1-6  DEF  250
C                                                                       DEF  260
C     FOR SIMPLICITY, ALL INTERPOLATIONS ARE DONE AT ONE TIME BECAUSE   DEF  270
C     THE LAGRANGE WEIGHTS (4PT), BASED ON (ALT-Z), REMAIN UNCHANGED    DEF  280
C                                                                       DEF  290
C                   JCHAR(K) FOR K<8 ALLOW MODEL-DEPENDENT CHOICES      DEF  300
C                                                                       DEF  310
C                   JCHAR=JUNIT                                         DEF  320
C                                                                       DEF  330
C                        1       CHOOSES TROPICAL                       DEF  340
C                        2         "     MID-LATITUDE SUMMER            DEF  350
C                        3         "     MID-LATITUDE WINTER            DEF  360
C                        4         "     HIGH-LAT SUMMER                DEF  370
C                        5         "     HIGH-LAT WINTER                DEF  380
C                        6         "     US STANDARD                    DEF  390
C                                                                       DEF  400
C                                                                       DEF  410
C    JUNIT(K) FOR K>7 CHOOSES FROM THE SINGLE TRACE CONSTITUENT         DEF  420
C        PROFILES, ALL APPRORIATE FOR THE US STD ATMOSPHERE             DEF  430
C                                                                       DEF  440
C     ***  NOTE ***  T<0 WILL ALSO PRINT OUT A MESSAGE INDICATING       DEF  450
C     ***  A POSSIBLE MISAPPLICATION OF TEMPERATURE UNITS, (K) VS (C)   DEF  460
C                                                                       DEF  470
C     ******************************************************************DEF  480
      COMMON /IFIL/IRD,IPR,IPU,NPR,IPR1                                 DEF  490
      COMMON /CARD1B/ JUNITP,JUNITT,JUNIT(13),WMOL(12),WAIR,JLOW        DEF  500
      COMMON /MLATM / ALT(50),PMATM(50,6),TMATM(50,6),AMOL(50,8,6)      DEF  510
      COMMON /TRAC/ TRAC(50,21)                                         DEF  520
C                                                                       DEF  530
      DATA PZERO /1013.25/,TZERO/273.15/,XLOSCH/2.6868E19/              DEF  540
C                                                                       DEF  550
C     *** 4PT INTERPOLATION FUNCTION                                    DEF  560
C                                                                       DEF  570
      VAL(A1,A2,A3,A4,X1,X2,X3,X4)=A1*X1+A2*X2+A3*X3+A4*X4              DEF  580
C                                                                       DEF  590
C                                                                       DEF  600
      NMOL = 12                                                         DEF  610
      ILOWER=0                                                          DEF  620
      IUPPER=0                                                          DEF  630
      IM50=50                                                           DEF  640
      DO 15 IM=2,IM50                                                   DEF  650
      I2=IM                                                             DEF  660
      IF (ALT(IM).GE.Z) GO TO 20                                        DEF  670
   15 CONTINUE                                                          DEF  680
      I2=IM50                                                           DEF  690
   20 I1=I2-1                                                           DEF  700
      I0=I2-2                                                           DEF  710
      I3=I2+1                                                           DEF  720
      IF(I0.LT.1) GO TO 25                                              DEF  730
      IF(I3.GT.IM50) GO TO 26                                           DEF  740
C                                                                       DEF  750
      GO TO 28                                                          DEF  760
C                                                                       DEF  770
C     LOWER ENDPOINT CORRECTION                                         DEF  780
C                                                                       DEF  790
25    CONTINUE                                                          DEF  800
      ILOWER=1                                                          DEF  810
      I0=I1                                                             DEF  820
      I1=I2                                                             DEF  830
      I2=I3                                                             DEF  840
      I3=I3+1                                                           DEF  850
      GO TO 28                                                          DEF  860
C                                                                       DEF  870
C     UPPER ENDPOINT CORRECTION                                         DEF  880
C                                                                       DEF  890
26    CONTINUE                                                          DEF  900
      IUPPER=1                                                          DEF  910
      IF(Z.GT.ALT(IM50))GO TO 29                                        DEF  920
      I3=I2                                                             DEF  930
      I2=I1                                                             DEF  940
      I1=I0                                                             DEF  950
      I0=I1-1                                                           DEF  960
      GO TO 28                                                          DEF  970
C                                                                       DEF  980
C      UPPER ENDPOINT EXTRAPOLATION                                     DEF  990
C                                                                       DEF 1000
29    CONTINUE                                                          DEF 1010
      Z0=ALT(I0)                                                        DEF 1020
      Z1=ALT(I1)                                                        DEF 1030
      Z2=ALT(I2)                                                        DEF 1040
      Z3=Z2+2.*(Z-Z2)                                                   DEF 1050
      IUPPER=2                                                          DEF 1060
      WRITE(IPR,80)Z                                                    DEF 1070
80    FORMAT(/,'   *** Z IS GREATER THAN 120 KM ***, Z = ',F10.3)       DEF 1080
      STOP'DEFAULTZ'                                                    DEF 1090
C     I3=I2                                                             DEF 1100
C     GO TO 31                                                          DEF 1110
C                                                                       DEF 1120
C     LAGRANGE CONTINUATION                                             DEF 1130
C                                                                       DEF 1140
28    CONTINUE                                                          DEF 1150
C                                                                       DEF 1160
C      LAGRANGE COEF DETERMINATION                                      DEF 1170
C                                                                       DEF 1180
      Z1=ALT(I1)                                                        DEF 1190
      Z2=ALT(I2)                                                        DEF 1200
      Z0=ALT(I0)                                                        DEF 1210
      Z3=ALT(I3)                                                        DEF 1220
31    CONTINUE                                                          DEF 1230
      DEN1=(Z0-Z1)*(Z0-Z2)*(Z0-Z3)                                      DEF 1240
      DEN2=(Z1-Z2)*(Z1-Z3)*(Z1-Z0)                                      DEF 1250
      DEN3=(Z2-Z3)*(Z2-Z0)*(Z2-Z1)                                      DEF 1260
      DEN4=(Z3-Z0)*(Z3-Z1)*(Z3-Z2)                                      DEF 1270
      A1=((Z-Z1)*(Z-Z2)*(Z-Z3))/DEN1                                    DEF 1280
      A2=((Z-Z2)*(Z-Z3)*(Z-Z0))/DEN2                                    DEF 1290
      A3=((Z-Z3)*(Z-Z0)*(Z-Z1))/DEN3                                    DEF 1300
      A4=((Z-Z0)*(Z-Z1)*(Z-Z2))/DEN4                                    DEF 1310
C                                                                       DEF 1320
C                                                                       DEF 1330
C     TEST INPUT PARAMETERS (JUNIT'S) SEQUENTIALLY FOR TRIGGER          DEF 1340
C      I.E.  JUNIT(P,T,K) = 1-6                                         DEF 1350
C                                                                       DEF 1360
      IF (JUNITP.GT.6) GO TO 35                                         DEF 1370
      MATM=JUNITP                                                       DEF 1380
C     WRITE (IPR,60) Z,MATM                                             DEF 1390
      X1=ALOG(PMATM(I0,MATM))                                           DEF 1400
      X2=ALOG(PMATM(I1,MATM))                                           DEF 1410
      X3=ALOG(PMATM(I2,MATM))                                           DEF 1420
      X4=ALOG(PMATM(I3,MATM))                                           DEF 1430
      IF(IUPPER.EQ.2)X4=X3+2*(X3-X2)                                    DEF 1440
      P=VAL(A1,A2,A3,A4,X1,X2,X3,X4)                                    DEF 1450
      P=EXP(P)                                                          DEF 1460
   35 IF (JUNITT.GT.6) GO TO 40                                         DEF 1470
      MATM=JUNITT                                                       DEF 1480
C     WRITE (IPR,65) Z,MATM                                             DEF 1490
      X1=TMATM(I0,MATM)                                                 DEF 1500
      X2=TMATM(I1,MATM)                                                 DEF 1510
      X3=TMATM(I2,MATM)                                                 DEF 1520
      X4=TMATM(I3,MATM)                                                 DEF 1530
      T=VAL(A1,A2,A3,A4,X1,X2,X3,X4)                                    DEF 1540
  40  DO 55 K=1,NMOL                                                    DEF 1550
      IF (JUNIT(K).GT.6) GO TO 55                                       DEF 1560
C                                                                       DEF 1570
      IF (K.GT.7) GO TO 45                                              DEF 1580
      MATM=JUNIT(K)                                                     DEF 1590
C                                                                       DEF 1600
      X1=AMOL(I0,K,MATM)                                                DEF 1610
      X2=AMOL(I1,K,MATM)                                                DEF 1620
      X3=AMOL(I2,K,MATM)                                                DEF 1630
      X4=AMOL(I3,K,MATM)                                                DEF 1640
      GO TO 50                                                          DEF 1650
   45 ITR=K-7                                                           DEF 1660
      MATM=6                                                            DEF 1670
C                                                                       DEF 1680
      X1=TRAC(I0,ITR)                                                   DEF 1690
      X2=TRAC(I1,ITR)                                                   DEF 1700
      X3=TRAC(I2,ITR)                                                   DEF 1710
      X4=TRAC(I3,ITR)                                                   DEF 1720
   50 WMOL(K)=VAL(A1,A2,A3,A4,X1,X2,X3,X4)                              DEF 1730
      JUNIT(K)=10                                                       DEF 1740
      GO TO 55                                                          DEF 1750
C  53 JUNIT(K)=10                                                       DEF 1760
C     WRITE(IPR,54)K                                                    DEF 1770
C  54 FORMAT('  **** INCONSISTENCY IN THE USER SPECIFICATION',          DEF 1780
C    A ' , JUNIT = 9 AND WMOL(K) = 0 , K =',I2,/,                       DEF 1790
C    B '  ****   DENNUM(K) HAS BEEN SET TO 0, NOT DEFAULT VALUE')       DEF 1800
   55 CONTINUE                                                          DEF 1810
      WMOL(12)   =WMOL(12)   *1.0E+3                                    DEF 1820
C     THE UNIT FOR NEW PROFILE IS PPMV.                                 DEF 1830
      RETURN                                                            DEF 1840
C100  CONTINUE                                                          DEF 1850
  110 FORMAT(/,'  *** FATAL INPUT ERROR ***',/,                         DEF 1860
     A '  DEFAULT SPECIFICATIONS EXCEED MODEL = 6',/,                   DEF 1870
     B  0PF10.2,' KM',1PE10.3,' MB',0PF10.3,' K',/,                     DEF 1880
     C (5(I5,1PE10.3)))                                                 DEF 1890
C     STOP'DEFAULT'                                                     DEF 1900
C                                                                       DEF 1910
   60 FORMAT ('   DEFAULT PRESSURE AT Z=',F7.2,' KM FROM MODEL',I5)     DEF 1920
   65 FORMAT ('   DEFAULT TEMPERATURE AT Z=',F7.2,' KM FROM MODEL',I5)  DEF 1930
   70 FORMAT ('   DEFAULT,K =',I3,',',A10,',','AT Z=',F7.2,             DEF 1940
     A ' KM FROM MODEL',I5)                                             DEF 1950
      END                                                               DEF 1960
      FUNCTION   DEL(PSIO,DELO,BETA,IARBO)                              DEL  100
C                                                                       DEL  110
C     FUNCTION DEL RETURNS THE VALUE OF THE SUN'S ZENITH ANGLE          DEL  120
C     AT ANY POINT ALONG THE OPTICAL PATH BASED UPON STRAIGHT           DEL  130
C     LINE GEOMETRY (NO REFRACTION). THIS ANGLE IS USED TO SPECIFY      DEL  140
C     THE SCATTERING POINT TO SUN PATHS. THE BENDING DUE TO REFRACTION  DEL  150
C     ALONG THIS PATH IS DETERMINED BY THE GEO ROUTINES. IF THE BENDING DEL  160
C     IS GREATER THAN ONE DEGREE THE ZENITH ANGLE IS CORRECTED ACCORDINGDEL  170
C     AND THE PATH CALCULATION IS REPEATED.                             DEL  180
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              DEL  190
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     DEL  200
      DATA  EPSILN/1.0E-5/                                              DEL  210
C                                                                       DEL  220
      IF(IARBO.EQ.0) GO TO 10                                           DEL  230
C     SPECIAL CASES IF PSIO IS ARBITRARY                                DEL  240
      IF(IARBO.EQ.1) DEL=DELO                                           DEL  250
      IF(IARBO.EQ.2) DEL=BETA                                           DEL  260
      IF(IARBO.EQ.3) DEL=0.0                                            DEL  270
      RETURN                                                            DEL  280
10    CONTINUE                                                          DEL  290
      PSIOR=PSIO/DEG                                                    DEL  300
      DELOR=DELO/DEG                                                    DEL  310
      BETAR=BETA/DEG                                                    DEL  320
C     GENERAL CASE                                                      DEL  330
      X=COS(DELOR)*COS(BETAR)+SIN(DELOR)*SIN(BETAR)*COS(PSIOR)          DEL  340
      DEL=DEG*ACOS(X)                                                   DEL  350
      RETURN                                                            DEL  360
      END                                                               DEL  370
      SUBROUTINE DESATT(WSPD,VIS)                                       DES  100
C********************************************************************** DES  110
C*                                                                    * DES  120
C*    THIS SUBROUTINE CALCULATES THE ATTENUATION COEFFICIENTS AND     * DES  130
C*    ASYMMETRY PARAMETER FOR THE DESERT AEROSOL BASED ON THE WIND    * DES  140
C*    SPEED AND METEOROLOGICAL RANGE                                  * DES  150
C*                                                                    * DES  160
C*                                                                    * DES  170
C*                                                                    * DES  180
C*    PROGRAMMED BY:  D. R. LONGTIN         OPTIMETRICS, INC.         * DES  190
C*                                          BURLINGTON, MASSACHUSETTS * DES  200
C*                                          JULY 1987                 * DES  210
C*                                                                    * DES  220
C*                                                                    * DES  230
C*    INPUTS:    WSPD    -  WIND SPEED (IN M/S) AT 10 M               * DES  240
C*               VIS     -  METEOROLOGICAL RANGE (KM)                 * DES  250
C*                                                                    * DES  260
C*    OUTPUTS:   DESEXT  -  EXTINCTION COEFFICIENT AT 47 WAVELENGTHS  * DES  270
C*               DESSCA  -  SCATTERING COEFFICIENT AT 47 WAVELENGTHS  * DES  280
C*    *****      DESABS  -  ABSORPTION COEFFICIENT AT 47 WAVELENGTHS  * DES  290
C*               DESG    -  ASYMMETRY PARAMETER AT 47 WAVELENGTHS     * DES  300
C*                                                                    * DES  310
C********************************************************************** DES  320
C                                                                       DES  330
      COMMON RELHUM(34),WHNO3(34),ICH(4),VH(17),TX(63),W(63)            DES  340
C     COMMON             WPATH(68, 63),TBBY(68)                         DES -350
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   DES 350A
      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),VX2(47),AWCCON(5)         DES  360
      COMMON/ DESAER/EXT(47,4),ABS(47,4),G(47,4)                        DES  370
      DIMENSION DESEXT(47),DESSCA(47),DESABS(47),DESG(47),WIND(4)       DES  380
      REAL      DESEXT    ,DESSCA    ,DESABS    ,DESG    ,WIND          DES  390
      INTEGER WAVEL                                                     DES  400
      DATA WIND/0., 10., 20., 30./                                      DES  410
      DATA RAYSCT / 0.01159 /                                           DES  420
      IF(WSPD .LT. 0.) WSPD = 10.                                       DES  430
C                                                                       DES  440
      NWSPD = INT(WSPD/10) + 1                                          DES  450
      IF (NWSPD.GE.5) WRITE(6,999)                                      DES  460
      IF (NWSPD.GE.4) NWSPD = 3                                         DES  470
C                                                                       DES  480
C     INTERPOLATE THE RADIATIVE PROPERTIES AT WIND SPEED WSPD           DES  490
C                                                                       DES  500
      DO 100 WAVEL = 1,47                                               DES  510
C                                                                       DES  520
C     EXTINCTION COEFFICIENT                                            DES  530
C                                                                       DES  540
         SLOPE = LOG(EXT(WAVEL,NWSPD+1)/EXT(WAVEL,NWSPD))/              DES  550
     *           (WIND(NWSPD+1)-WIND(NWSPD))                            DES  560
         B = LOG(EXT(WAVEL,NWSPD+1)) - SLOPE*WIND(NWSPD+1)              DES  570
         DESEXT(WAVEL) = EXP(SLOPE*WSPD + B)                            DES  580
C                                                                       DES  590
C     ABSORPTION COEFFICIENT                                            DES  600
C                                                                       DES  610
         SLOPE = LOG(ABS(WAVEL,NWSPD+1)/ABS(WAVEL,NWSPD))/              DES  620
     *           (WIND(NWSPD+1)-WIND(NWSPD))                            DES  630
         B = LOG(ABS(WAVEL,NWSPD+1)) - SLOPE*WIND(NWSPD+1)              DES  640
         DESABS(WAVEL) = EXP(SLOPE*WSPD + B)                            DES  650
C                                                                       DES  660
C     SCATTERING COEFFICIENT                                            DES  670
C                                                                       DES  680
         DESSCA(WAVEL) = DESEXT(WAVEL) - DESABS(WAVEL)                  DES  690
C                                                                       DES  700
C     ASYMMETRY PARAMETER                                               DES  710
C                                                                       DES  720
         SLOPE = (G(WAVEL,NWSPD+1)-G(WAVEL,NWSPD))/(WIND(NWSPD+1)-      DES  730
     *           WIND(NWSPD))                                           DES  740
         B = G(WAVEL,NWSPD+1) - SLOPE*(WIND(NWSPD+1))                   DES  750
         DESG(WAVEL) = SLOPE*WSPD + B                                   DES  760
100   CONTINUE                                                          DES  770
C                                                                       DES  780
          EXT55 = DESEXT(4)                                             DES  790
C                                                                       DES  800
C         DETERMINE METEROLOGICAL RANGE FROM 0.55 EXTINCTION            DES  810
C          AND KOSCHMIEDER FORMULA                                      DES  820
C                                                                       DES  830
      IF (VIS. LE .0.) THEN                                             DES  840
               VIS = 3.912/(DESEXT(4) + RAYSCT )                        DES  850
      ENDIF                                                             DES  860
C                                                                       DES  870
C        RENORMALIZE ATTENUATION COEFFICIENTS TO 1.0 KM-1 AT            DES  880
C        0.55 MICRONS FOR CAPABILTY WITH LOWTRAN                        DES  890
C                                                                       DES  900
          DO 200 WAVEL=1,47                                             DES  910
            EXTC(1,WAVEL) = DESEXT(WAVEL)       /EXT55                  DES  920
CC          DESSCA(WAVEL) = DESSCA(WAVEL)       /EXT55                  DES  930
            ABSC(1,WAVEL) = DESABS(WAVEL)       /EXT55                  DES  940
            ASYM(1,WAVEL) = DESG(WAVEL)                                 DES  950
200      CONTINUE                                                       DES  960
       WRITE(6,900) VIS,WSPD                                            DES  970
900    FORMAT(//,'  VIS = ',F10.3,' WIND = ',F10.3)                     DES  980
       RETURN                                                           DES  990
C                                                                       DES 1000
999    FORMAT(' WARNING: WIND SPEED IS BEYOND 30 M/S; RADIATIVE',       DES 1010
     *'PROPERTIES',/,'OF THE DESERT AEROSOL HAVE BEEN EXTRAPOLATED')    DES 1020
      END                                                               DES 1030
      FUNCTION   DOP(WAVL,A,CEN1,B,C,CEN2,D,E,CEN3,F,G)                 DOP  100
CCC                                                                     DOP  110
CCC    DESCRIBES THE REAL PART OF THE DIELECTRIC CONSTANT               DOP  120
CCC                                                                     DOP  130
      V=1./WAVL                                                         DOP  140
      V2=V*V                                                            DOP  150
      H1=CEN1**2-V2                                                     DOP  160
      H2=CEN2**2-V2                                                     DOP  170
      H3=CEN3**2-V2                                                     DOP  180
      DOP=SQRT(A+B*H1/(H1*H1+C*V2)+D*H2/(H2*H2+E*V2)+F*H3/(H3*H3+G*V2)) DOP  190
      RETURN                                                            DOP  200
      END                                                               DOP  210
      SUBROUTINE DRIVER                                                 DRV   10
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            DRV   20
C     COMMON             WPATH(68, 63),TBBY(68)                         DRV   30
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   DRV   40
      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),VX2(47),AWCCON(5)         DRV   50
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                DRV   60
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRT,TBOUND,SALB   DRV   70
     1  ,MODTRN                                                         DRV   80
      LOGICAL MODTRN                                                    DRV   90
      COMMON /CARD1A/ M4,M5,M6,MDEF,IRD1,IRD2                           DRV  100
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   DRV  110
     1    RAINRT                                                        DRV  120
      COMMON /CARD2A/ CTHIK,CALT,CEXT                                   DRV  130
      COMMON /CARD2D/ IREG(4),ALTB(4),IREGC(4)                          DRV  140
      COMMON /CARD3/ H1,H2,ANGLE,RANGE,BETA,RE,LEN                      DRV  150
C     COMMON /CARD4/ V1,V2,DV                                           DRV  160
      COMMON/CARD4/IV1,IV2,IDV,IFWHM                                    DRV  170
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     DRV  180
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               DRV  190
      COMMON /MODEL/ ZM(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),      DRV  200
     1  CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                        DRV  210
      COMMON /SOLS/ AH1(68),ARH(68),                                    DRV  220
C    X WPATHS(68,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),JTURN,  DRV  230
C    X ANGSUN,CSZEN(68)                                                 DRV  240
     1  WPATHS(102,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),      DRV  250
     2  JTURN,ANGSUN,CSZEN(68),TBBYS(102,12),PATMS(102,12)              DRV  260
      COMMON /MART/ RHH                                                 DRV  270
      COMMON /USRDTA/ NANGLS,ANGF(50),F(4,50)                           DRV  280
      COMMON /MDLZ/ HMDLZ(8)                                            DRV  290
      COMMON /ZVSALY/ ZVSA(10),RHVSA(10),AHVSA(10),IHVSA(10)            DRV  300
      CHARACTER*4 HHAZE,HSEASN,HVULCN,BLANK,HMET,HMODEL,HTRRAD          DRV  310
      COMMON /TITL/ HHAZE(5,16),HSEASN(5,2),HVULCN(5,8),BLANK,          DRV  320
     1  HMET(5,2),HMODEL(5,8),HTRRAD(6,4)                               DRV  330
      COMMON /VSBD/ VSB(10)                                             DRV  340
C     COMMON /MNLT/TBBSS(68),TBBMS(34),WPMS(34,63),IMSMX,WPMSS(34,63)   DRV  350
      COMMON /PATH/PL(68),QTHETA(68),ITEST,HI,HF,AHT(68)                DRV  360
      COMMON /AERTM/TAE7,TAE12,TAE13,TAE14,TAE16                        DRV  370
C*****HDATE AND HTIME CARRY THE DATA AND TIME AND MUST BE DOUBLE        DRV  380
C*****PRECISION ON A 32 BIT WORD COMPUTER                               DRV  390
C@    DOUBLE PRECISION HDATE,HTIME                                      DRV  400
      DIMENSION PLST(68),CSENSV(68),QTHETS(68)                          DRV  410
      DATA IRPT / 0 /                                                   DRV  420
C*****IRD, IPR, AND IPU ARE UNIT NUMBERS FOR INPUT, OUTPUT, AND         DRV  430
C*****IPR1 = OUTPUT OF MOLECULAR TRANSMITTANCE                          DRV  440
      DATA        MAXGEO   /    68/                                     DRV  450
      IRD = 5                                                           DRV  460
      IPR = 6                                                           DRV  470
      IPU = 7                                                           DRV  480
      IPR1= 8                                                           DRV  490
      OPEN (IRD,FILE='TAPE5',STATUS='OLD')                              DRV  500
      OPEN (IPR,FILE='TAPE6',STATUS='UNKNOWN')                          DRV  510
      OPEN (IPU,FILE='TAPE7',STATUS='UNKNOWN')                          DRV  520
      OPEN (IPR1,FILE='TAPE8',STATUS='UNKNOWN')                         DRV  530
C                                                                       DRV  540
C     ALTITUDE PARAMETERS                                               DRV  550
C                                                                       DRV  560
C     ZMDL  COMMON/MODEL/  THE ALTITUDES USED IN LOWTRAN                DRV  570
C     ZCVSA,ZTVSA,ZIVSA  CARD 3.3 LOWTRAN FOR VSA INPUT                 DRV  580
C     ZVSA  NINE ALTITUDES GEN BY VSA ROUTINE                           DRV  590
C                                                                       DRV  600
      PI=2.0*ASIN(1.0)                                                  DRV  610
      CA=PI/180.                                                        DRV  620
      DEG= 1.0/CA                                                       DRV  630
      RANGE=0.0                                                         DRV  640
C*****GCAIR IS THE GAS CONSTANT FOR AIR IN UNITS OF MB/(GM CM-3 K)      DRV  650
      GCAIR = 2.87053E+3                                                DRV  660
C*****BIGNUM AND BIGEXP ARE THE LARGEST NUMBER AND THE LARGEST ARGUMENT DRV  670
C*****EXP ALLOWED AND ARE MACHINE DEPENDENT. THE NUMBERS USED HERE ARE FDRV  680
C*****A TYPICAL 32 BIT-WORD COMPUTER.                                   DRV  690
      BIGNUM = 1.0E35                                                   DRV  700
      BIGEXP = 87.0                                                     DRV  710
C     THE VALUES FOR BIGNUM AND BIGEXP FOLLOW THE                       DRV  720
C     DESCRIPTION UNDER EXP FUNCTION IN "IBM SYSTEM 360/                DRV  730
C     AND SYSTEM 370 FORTRAN IV LANGUAGE"                               DRV  740
C     BIGNUM = 4.3E68                                                   DRV  750
C     BIGEXP = 174.6                                                    DRV  760
      KMAX=63                                                           DRV  770
C*****NL IS THE NUMBER OF BOUNDARIES IN THE STANDARD MODELS 1 TO 6      DRV  780
C*****BOUNDARY 34 (AT 99999 KM) IS NO LONGER USED                       DRV  790
      NL = 33                                                           DRV  800
C*****CALL TIME AND DATE:                                               DRV  810
C*****THE USER MAY WISH TO INCLUDE SUBROUTINES FDATE AND FCLOCK WHICH   DRV  820
C*****RETURN THE DATE AND TIME IN MM/DD/YY AND HH.MM.SS FORMATS         DRV  830
C*****RESPECTIVELY. THE REQUIRED ROUTINES FOR A CDC 6600 ARE INCLUDED ATDRV  840
C*****THE MAIN PROGRAM IN COMMENT CARDS.                                DRV  850
C@    CALL FDATE(HDATE)                                                 DRV  860
C@    CALL FCLOCK(HTIME)                                                DRV  870
C                                                                       DRV  880
C*****START CALCULATION                                                 DRV  890
C                                                                       DRV  900
C                                                                       DRV  910
100   DO 10 II = 1,4                                                    DRV  920
10    IREG(II) = 0                                                      DRV  930
      WRITE(IPR,1000)                                                   DRV  940
1000  FORMAT('1',20X,'*****  MODTRAN  *****')                           DRV  950
C@    WRITE(IPR,1010) HDATE,HTIME                                       DRV  960
1010  FORMAT('1',20X,'*****  MODTRAN  *****',10X,2(1X,A8,1X))           DRV  970
      DO 80 I=1,4                                                       DRV  980
          DO 80 J=1,40                                                  DRV  990
              ABSC(I,J)=0.                                              DRV 1000
              EXTC(I,J)=0.                                              DRV 1010
 80   ASYM(I,J)=0.                                                      DRV 1020
      JPRT = 0                                                          DRV 1030
      IKLO=1                                                            DRV 1040
C                                                                       DRV 1050
C*****CARD 1                                                            DRV 1060
C                                                                       DRV 1070
C     READ(IRD,1110)MODEL,ITYPE,IEMSCT,IMULT,M1,M2,M3,                  DRV 1080
C    1  M4,M5,M6,MDEF,IM,NOPRT,TBOUND,SALB                              DRV 1090
      READ(IRD,'(L1,I4,12I5,F8.3,F7.2)')MODTRN,MODEL,ITYPE,IEMSCT,      DRV 1100
     1  IMULT,M1,M2,M3,M4,M5,M6,MDEF,IM,NOPRT,TBOUND,SALB               DRV 1110
 1110 FORMAT(13I5,F8.3,F7.2)                                            DRV 1120
C     WRITE(IPR,1111)MODEL,ITYPE,IEMSCT,IMULT,M1,M2,M3,                 DRV 1130
C    1  M4,M5,M6,MDEF,IM,NOPRT,TBOUND,SALB                              DRV 1140
      WRITE(IPR,'(15H0 CARD 1  *****,L1,I4,12I5,F8.3,F7.2)')MODTRN,MODELDRV 1150
     1  ,ITYPE,IEMSCT,IMULT,M1,M2,M3,M4,M5,M6,MDEF,IM,NOPRT,TBOUND,SALB DRV 1160
 1111 FORMAT('0 CARD 1  *****',13I5,F8.3,F7.2)                          DRV 1170
C     IF(IMULT .EQ. 1 .AND. NOPRT.EQ. 1) NOPRT = 0                      DRV 1180
C                                                                       DRV 1190
C     SET THE NUMBER OF SPECIES TREATED WITH THE 1 CM-1 BAND MODEL.     DRV 1200
C     ALSO, FOR EACH SPECIES, SET THE POINTER WHICH MAPS THE HITRAN     DRV 1210
C     NUMERICAL LABEL TO THE LOWTRAN NUMERICAL LABEL.                   DRV 1220
C                                                                       DRV 1230
      NSPEC=12                                                          DRV 1240
      KPOINT( 1)=17                                                     DRV 1250
      KPOINT( 2)=36                                                     DRV 1260
      KPOINT( 3)=31                                                     DRV 1270
      KPOINT( 4)=47                                                     DRV 1280
      KPOINT( 5)=44                                                     DRV 1290
      KPOINT( 6)=46                                                     DRV 1300
      KPOINT( 7)=50                                                     DRV 1310
      KPOINT( 8)=54                                                     DRV 1320
      KPOINT( 9)=56                                                     DRV 1330
      KPOINT(10)=55                                                     DRV 1340
      KPOINT(11)=52                                                     DRV 1350
      KPOINT(12)=11                                                     DRV 1360
C                                                                       DRV 1370
      IRD1 = 0                                                          DRV 1380
      IRD2 = 0                                                          DRV 1390
      IF (MODEL.EQ.0) LEN = 0                                           DRV 1400
      IF((MODEL.EQ.0) .OR. (MODEL.EQ.7)) GO TO 110                      DRV 1410
      IF(M1.EQ.0) M1=MODEL                                              DRV 1420
      IF(M2.EQ.0) M2=MODEL                                              DRV 1430
      IF(M3.EQ.0) M3=MODEL                                              DRV 1440
      IF(M4.EQ.0) M4=MODEL                                              DRV 1450
      IF(M5.EQ.0) M5=MODEL                                              DRV 1460
      IF(M6.EQ.0) M6=MODEL                                              DRV 1470
      IF(MDEF.EQ.0) MDEF=1                                              DRV 1480
110   CONTINUE                                                          DRV 1490
      M=MODEL                                                           DRV 1500
      NPR = NOPRT                                                       DRV 1510
C*****CARD 2 AEROSOL MODEL                                              DRV 1520
      READ(IRD,1200)IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,    DRV 1530
     1  RAINRT,GNDALT                                                   DRV 1540
1200  FORMAT(6I5,5F10.3)                                                DRV 1550
      WRITE(IPR,1201)IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   DRV 1560
     1  RAINRT,GNDALT                                                   DRV 1570
      IF(GNDALT.GT.0.) WRITE(IPR,1199)GNDALT                            DRV 1580
1199  FORMAT(1H0,'  GNDALT =',F10.2)                                    DRV 1590
      IF(GNDALT.GE.6.0) THEN                                            DRV 1600
          WRITE(IPR,1202)GNDALT                                         DRV 1610
          GNDALT=0.                                                     DRV 1620
      ENDIF                                                             DRV 1630
1201  FORMAT('0 CARD 2  *****',6I5,5F10.3)                              DRV 1640
1202  FORMAT('0 GNDALT GT 6.0 RESET TO ZERO, GNDALT WAS',F10.3)         DRV 1650
C                                                                       DRV 1660
      IF(VIS.LE.0.0.AND.IHAZE.GT.0) VIS=VSB(IHAZE)                      DRV 1670
      RHH= 0.                                                           DRV 1680
      IF(MODEL.EQ.0.OR.MODEL.EQ.7) GO TO 205                            DRV 1690
      IF((MODEL.EQ.3.OR.MODEL.EQ.5).AND.ISEASN.EQ.0) ISEASN=2           DRV 1700
C                                                                       DRV 1710
      IF(IVSA.EQ.1 .AND. IHAZE.EQ.3)                                    DRV 1720
     1  CALL MARINE(VIS,MODEL,WSS,WHH,ICSTL,EXTC,ABSC,1)                DRV 1730
      ICH(1)=IHAZE                                                      DRV 1740
      ICH(2)=6                                                          DRV 1750
      ICH(3)=9+IVULCN                                                   DRV 1760
205   IF(RAINRT.EQ.0) GO TO 210                                         DRV 1770
      WRITE(IPR,1205) RAINRT                                            DRV 1780
1205  FORMAT('0 RAIN MODEL CALLED, RAIN RATE = ',F9.2,' MM/HR')         DRV 1790
 210  ICH(4)=18                                                         DRV 1800
      IF(ICH(1).LE.0)ICH(1)=1                                           DRV 1810
      IF(ICH(3).LE.9)ICH(3)=10                                          DRV 1820
      IF(ICLD.GE.1 .AND. ICLD.LE.11) THEN                               DRV 1830
          ICH(4)=ICH(3)                                                 DRV 1840
          ICH(3)=ICH(2)                                                 DRV 1850
          ICH(2)=ICLD                                                   DRV 1860
      END IF                                                            DRV 1870
      IFLGA=0                                                           DRV 1880
      IFLGT=0                                                           DRV 1890
      CTHIK=-99.                                                        DRV 1900
      CALT=-99.                                                         DRV 1910
      CEXT=-99.                                                         DRV 1920
      ISEED=-99                                                         DRV 1930
      IF(ICLD .LT. 18) GO TO 230                                        DRV 1940
C*****CARD 2A CIRRUS CLOUDS                                             DRV 1950
      READ(IRD,1210)CTHIK,CALT,CEXT,ISEED                               DRV 1960
1210  FORMAT(3F10.3,I10)                                                DRV 1970
      WRITE(IPR,1211)CTHIK,CALT,CEXT,ISEED                              DRV 1980
1211  FORMAT('0 CARD 2A *****',3F10.3,I10)                              DRV 1990
230   CONTINUE                                                          DRV 2000
C*****CARD 2B VERTICAL STRUCTURE ALGORITHM                              DRV 2010
      ZCVSA=-99.                                                        DRV 2020
      ZTVSA=-99.                                                        DRV 2030
      ZINVSA=-99.                                                       DRV 2040
C                                                                       DRV 2050
      IF( IVSA. EQ. 0 ) GO TO 240                                       DRV 2060
      READ (IRD,1230) ZCVSA,ZTVSA,ZINVSA                                DRV 2070
1230  FORMAT(3F10.3)                                                    DRV 2080
      WRITE(IPR,1231)ZCVSA,ZTVSA,ZINVSA                                 DRV 2090
1231  FORMAT('0 CARD 2B *****',3F10.3)                                  DRV 2100
C                                                                       DRV 2110
      CALL VSA(IHAZE,VIS,ZCVSA,ZTVSA,ZINVSA,ZVSA,RHVSA,AHVSA,IHVSA)     DRV 2120
C                                                                       DRV 2130
C     END OF VSA MODEL SET-UP                                           DRV 2140
C                                                                       DRV 2150
240   IF (MODEL.NE.0 .AND. MODEL.NE.7 ) ML=NL                           DRV 2160
      MDELS=MODEL                                                       DRV 2170
      DO 250 I=1,5                                                      DRV 2180
          IF(MDELS.NE.0)HMODEL(I,7)=HMODEL(I,MDELS)                     DRV 2190
250   IF(MDELS.EQ.0)HMODEL(I,7)=HMODEL(I,8)                             DRV 2200
C                                                                       DRV 2210
      IF(IM .EQ. 1) THEN                                                DRV 2220
          IF((MODEL.EQ.7.AND.IM.EQ.1) .OR.(MODEL.EQ.0)) THEN            DRV 2230
C                                                                       DRV 2240
C*****CARD 2C  USER SUPPLIED ATMOSPHERIC PROFILE                        DRV 2250
C                                                                       DRV 2260
              READ (IRD,1250) ML,IRD1,IRD2,(HMODEL(I,7),I=1,5)          DRV 2270
1250          FORMAT(3I5,18A4)                                          DRV 2280
              WRITE(IPR,1251)ML,IRD1,IRD2,(HMODEL(I,7),I=1,5)           DRV 2290
              IF(IVSA.EQ.1)CALL RDNSM                                   DRV 2300
1251          FORMAT('0 CARD 2C *****',3I5,18A4)                        DRV 2310
          ENDIF                                                         DRV 2320
      ENDIF                                                             DRV 2330
      M=7                                                               DRV 2340
      CALL AERNSM(JPRT,  GNDALT)                                        DRV 2350
      IF(ICLD .LT. 20) GO TO 260                                        DRV 2360
C                                                                       DRV 2370
C     SET UP CIRRUS MODEL                                               DRV 2380
C                                                                       DRV 2390
      IF(CTHIK.NE.0) IFLGT=1                                            DRV 2400
      IF(CALT.NE.0)  IFLGA=1                                            DRV 2410
      IF(ISEED.EQ.0) IFLGT=2                                            DRV 2420
      IF(ISEED.EQ.0) IFLGA=2                                            DRV 2430
      CALL CIRRUS(CTHIK,CALT,ISEED,CPROB,CEXT)                          DRV 2440
      WRITE(IPR,1220)                                                   DRV 2450
1220  FORMAT(15X,'CIRRUS ATTENUATION INCLUDED (N O A A CIRRUS) ')       DRV 2460
      IF(IFLGT.EQ.0) WRITE(IPR,1221) CTHIK                              DRV 2470
1221  FORMAT(15X,'CIRRUS ATTENUTION STATISTICALLY DETERMENED TO BE',    DRV 2480
     1  F10.3,'KM')                                                     DRV 2490
      IF(IFLGT.EQ.1) WRITE(IPR,1222) CTHIK                              DRV 2500
1222  FORMAT(15X,'CIRRUS THICKNESS USER DETERMINED TO BE',F10.3,'KM')   DRV 2510
      IF(IFLGT.EQ.2) WRITE(IPR,1223) CTHIK                              DRV 2520
1223  FORMAT(15X,'CIRRUS THICKNESS DEFAULTED TO MEAN VALUE OF    ',     DRV 2530
     1  F10.3,'KM')                                                     DRV 2540
      IF(IFLGA.EQ.0) WRITE(IPR,1224)CALT                                DRV 2550
1224  FORMAT(15X,'CIRRUS BASE ALTITUDE STATISCALLY DETERMINED TO BE',   DRV 2560
     1  F10.3,' KM')                                                    DRV 2570
      IF(IFLGA.EQ.1) WRITE(IPR,1225) CALT                               DRV 2580
1225  FORMAT(15X,'CIRRUS BASE ALTITUDE USER DETERMINED TO BE',          DRV 2590
     1  F10.3,' KM')                                                    DRV 2600
      IF(IFLGA.EQ.2) WRITE(IPR,1226) CALT                               DRV 2610
1226  FORMAT(15X,'CIRRUS BASE ALTITUDE DEFAULTED TO MEAN VALUE OF',     DRV 2620
     1  F10.3,'KM')                                                     DRV 2630
      WRITE(IPR,1227)CPROB                                              DRV 2640
1227  FORMAT(15X,'PROBABILTY OF CLOUD OCCURRING IS',F7.1,' PERCENT')    DRV 2650
C                                                                       DRV 2660
C       END OF CIRRUS MODEL SET UP                                      DRV 2670
C                                                                       DRV 2680
260   CONTINUE                                                          DRV 2690
C                                                                       DRV 2700
C                                                                       DRV 2710
C*****CARD 2E                                                           DRV 2720
C                                                                       DRV 2730
      IF((IHAZE.EQ.7).OR.(ICLD.EQ.11)) THEN                             DRV 2740
C                                                                       DRV 2750
C*****    CARD 2E USER SUPPLIED AEROSOL EXTINCTION, ABSORPTION, AND     DRV 2760
C         ASYMMETRY                                                     DRV 2770
          CALL RDEXA                                                    DRV 2780
C                                                                       DRV 2790
      ENDIF                                                             DRV 2800
300   CONTINUE                                                          DRV 2810
C                                                                       DRV 2820
      IPARM =-99                                                        DRV 2830
      IPH   =-99                                                        DRV 2840
      IDAY  =-99                                                        DRV 2850
      ISOURC=-99                                                        DRV 2860
C                                                                       DRV 2870
      PARM1 =-99.                                                       DRV 2880
      PARM2 =-99.                                                       DRV 2890
      PARM3 =-99.                                                       DRV 2900
      PARM4 =-99.                                                       DRV 2910
      TIME  =-99.                                                       DRV 2920
      PSIPO =-99.                                                       DRV 2930
      ANGLEM=-99.                                                       DRV 2940
      G     =-99.                                                       DRV 2950
C                                                                       DRV 2960
C*****CARD 3 GEOMETERY PARAMETERS                                       DRV 2970
C                                                                       DRV 2980
      IF(IEMSCT.EQ.3) GO TO 315                                         DRV 2990
      READ(IRD,1312)H1,H2,ANGLE,RANGE,BETA,RO,LEN                       DRV 3000
1312  FORMAT(6F10.3,I5)                                                 DRV 3010
      WRITE(IPR,1313)H1,H2,ANGLE,RANGE,BETA,RO,LEN                      DRV 3020
1313  FORMAT('0 CARD 3  *****',6F10.3,I5)                               DRV 3030
      GO TO 320                                                         DRV 3040
C*****CARD 3 FOR DIRECTLY TRANSMITTED SOLAR RADIANCE (IEMSCT = 3)       DRV 3050
  315 CONTINUE                                                          DRV 3060
      READ(IRD,1316) H1,H2,ANGLE,IDAY,RO,ISOURC,ANGLEM                  DRV 3070
 1316 FORMAT(3F10.3,I5,5X,F10.3,I5,F10.3)                               DRV 3080
      WRITE(IPR,1317) H1,H2,ANGLE,IDAY,RO,ISOURC,ANGLEM                 DRV 3090
 1317 FORMAT('0 CARD 3   *****',3F10.3,I5,5X,F10.3,I5,F10.3)            DRV 3100
      ITYPE = 3                                                         DRV 3110
      RANGE = 0.0                                                       DRV 3120
      BETA = 0.0                                                        DRV 3130
      LEN = 0                                                           DRV 3140
C*****RO IS THE RADIUS OF THE EARTH                                     DRV 3150
320   RE=6371.23                                                        DRV 3160
C      *********  ERRATA JULY 25
           IF(H1. LT. ZM(1)  ) THEN
           WRITE(IPR,905) H1,ZM(1)
905        FORMAT('  H1 LESS THAN FIRST ALT RESET  ',/
     X     ' H1 WAS ',F10.2,' 1ST ALT = ',F10.2)
            H1 = ZM(1)
      ENDIF
C        *********  END  ERRATA
      H1S    = H1                                                       DRV 3170
      H2S    = H2                                                       DRV 3180
      ANGLES = ANGLE                                                    DRV 3190
      RANGS  = RANGE                                                    DRV 3200
      BETAS  = BETA                                                     DRV 3210
      ITYPES =ITYPE                                                     DRV 3220
      LENS   = LEN                                                      DRV 3230
      IRPTS = IRPT
      IF (MODEL.EQ.0) RO = RE                                           DRV 3240
      IF (MODEL.EQ.1) RE=6378.39                                        DRV 3250
      IF (MODEL.EQ.4) RE=6356.91                                        DRV 3260
      IF (MODEL.EQ.5) RE=6356.91                                        DRV 3270
      IF (RO.GT.0.0) RE=RO                                              DRV 3280
C                                                                       DRV 3290
      IF (IEMSCT.NE.2) GO TO 330                                        DRV 3300
C                                                                       DRV 3310
C*****CARD 3A1                                                          DRV 3320
C                                                                       DRV 3330
      READ(IRD,1320) IPARM,IPH,IDAY,ISOURC                              DRV 3340
1320  FORMAT(4I5)                                                       DRV 3350
      WRITE(IPR,1321) IPARM,IPH,IDAY,ISOURC                             DRV 3360
1321  FORMAT('0 CARD 3A1*****',4I5)                                     DRV 3370
C                                                                       DRV 3380
C*****CARD 3A2                                                          DRV 3390
C                                                                       DRV 3400
      READ(IRD,1322)PARM1,PARM2,PARM3,PARM4,TIME,PSIPO,ANGLEM,G         DRV 3410
1322  FORMAT(8F10.3)                                                    DRV 3420
      WRITE(IPR,1323)PARM1,PARM2,PARM3,PARM4,TIME,PSIPO,ANGLEM,G        DRV 3430
1323  FORMAT('0 CARD 3A2*****',8F10.3)                                  DRV 3440
C                                                                       DRV 3450
      IF(IPH. EQ . 0) THEN                                              DRV 3460
            IF(G. GE.  1.0) G =  .9999                                  DRV 3470
            IF(G. LE. -1.0) G = -.9999                                  DRV 3480
      ENDIF                                                             DRV 3490
      IF (IPH.NE.1) GO TO 330                                           DRV 3500
C                                                                       DRV 3510
C*****CARD 3B1 USER DEFINED PHASE FUNCTION                              DRV 3520
C                                                                       DRV 3530
C*****READ USER DEFINED PHASE FUNCTION                                  DRV 3540
C                                                                       DRV 3550
      READ(IRD,1326)NANGLS                                              DRV 3560
1326  FORMAT(I5)                                                        DRV 3570
      WRITE(IPR,1327)NANGLS                                             DRV 3580
1327  FORMAT(' CARD 3B1*****',I5)                                       DRV 3590
C                                                                       DRV 3600
C*****CARD 3B2                                                          DRV 3610
C                                                                       DRV 3620
      READ(IRD,1328)(ANGF(I),F(1,I),F(2,I),F(3,I),F(4,I),I=1,NANGLS)    DRV 3630
1328  FORMAT(5E10.3)                                                    DRV 3640
      WRITE(IPR,1329)(ANGF(I),F(1,I),F(2,I),F(3,I),F(4,I),I=1,NANGLS)   DRV 3650
1329  FORMAT('0 CARD 3B2*****',5E10.3)                                  DRV 3660
C                                                                       DRV 3670
  330 CONTINUE                                                          DRV 3680
C                                                                       DRV 3690
      IF (IRPT.EQ.3) GO TO 500                                          DRV 3700
C                                                                       DRV 3710
C*****CARD 4 WAVENUMBER                                                 DRV 3720
C                                                                       DRV 3730
 400  CONTINUE                                                          DRV 3740
C     READ(IRD,1400)V1,V2,DV                                            DRV 3750
C1400 FORMAT(3F10.3)                                                    DRV 3760
C     WRITE (IPR,1401) V1,V2,DV                                         DRV 3770
C1401 FORMAT('0 CARD 4  *****',3F10.3)                                  DRV 3780
      READ(IRD,'(4I10)')IV1,IV2,IDV,IFWHM                               DRV 3790
  401 WRITE(IPR,'(15H0 CARD 4  *****,4I10)')IV1,IV2,IDV,IFWHM           DRV 3800
      IF(IDV . LE. 0)THEN
         PRINT*,' ERROR IN IDV ',IDV
         IDV = 1
      ENDIF
      IF(IFWHM . LE. 0)THEN
         PRINT*,' ERROR IN IFWHM ',IFWHM
         IFWHM = 2
      ENDIF
      IF(IHAZE.EQ.3) THEN                                               DRV 3810
C         IF(V1.LT.250.0 .OR. V2.LT.250.0) THEN                         DRV 3820
          IF(IV1.LT.250)THEN                                            DRV 3830
              IHAZE=4                                                   DRV 3840
              WRITE (IPR,1203)                                          DRV 3850
          ENDIF                                                         DRV 3860
1203      FORMAT('0**WARNING** NAVY MODEL IS NOT USEABLE BELOW 250CM-1'/DRV 3870
     1      10X,' PROGRAM WILL SWITCH TO IHAZE=4 LOWTRAN 5 MARITIME'//) DRV 3880
      END IF                                                            DRV 3890
      IF (IRPT.EQ.4)  GO TO 550                                         DRV 3900
      IF (IRPT.EQ.-4) GO TO 560
500   CONTINUE                                                          DRV 3910
      IF (IRPT.EQ.3) GO TO 555                                          DRV 3920
      WRITE(IPR,1410) (HTRRAD(I1,IEMSCT+1),I1=1,6)                      DRV 3930
1410  FORMAT('0 PROGRAM WILL COMPUTE ',6A4)                             DRV 3940
      IF(ISOURC .EQ. 1) WRITE(IPR,1204)                                 DRV 3950
1204  FORMAT('   LUNAR SOURCE ONLY  ')                                  DRV 3960
      IF (IMULT .EQ. 1) THEN                                            DRV 3970
          IF(IEMSCT.EQ.0 .OR. IEMSCT.EQ.3 ) THEN                        DRV 3980
              WRITE(IPR,1411)                                           DRV 3990
1411          FORMAT('0 MULTIPLE SCATTERING HAS BEEN TURNED OFF ')      DRV 4000
              IMULT=0                                                   DRV 4010
          ELSE                                                          DRV 4020
              WRITE(IPR,1412)                                           DRV 4030
          END IF                                                        DRV 4040
      END IF                                                            DRV 4050
1412  FORMAT('0 CALCULATIONS WILL BE DONE USING MULTIPLE SCATTERING ')  DRV 4060
      MDEL=MODEL                                                        DRV 4070
      IF(MDEL.EQ.0)MDEL=8                                               DRV 4080
      MM1=MDEL                                                          DRV 4090
      MM2=MDEL                                                          DRV 4100
      MM3=MDEL                                                          DRV 4110
      IF(M1.NE.0)MM1=M1                                                 DRV 4120
      IF(M2.NE.0)MM2=M2                                                 DRV 4130
      IF(M3.NE.0)MM3=M3                                                 DRV 4140
      IF(MODEL.EQ.0) GO TO 510                                          DRV 4150
      WRITE(IPR,1500) MM1,(HMODEL(I1,MM1),I1=1,5),MM2,(HMODEL(I2,MM2),  DRV 4160
     1  I2=1,5),MM3,(HMODEL(I3,MM3),I3=1,5)                             DRV 4170
1500  FORMAT('0 ATMOSPHERIC MODEL',/,                                   DRV 4180
     1  10X,'TEMPERATURE = ',I4,5X,5A4,/,                               DRV 4190
     1  10X,'WATER VAPOR = ',I4,5X,5A4,/,                               DRV 4200
     1  10X,'OZONE       = ',I4,5X,5A4)                                 DRV 4210
      WRITE(IPR,1501) M4,M5,M6,MDEF                                     DRV 4220
1501  FORMAT(20X,'  M4 = ',I5,' M5 = ',I5,' M6 = ',I5,' MDEF = ' ,I5)   DRV 4230
C                                                                       DRV 4240
510   IF(JPRT.EQ.0) GO TO 520                                           DRV 4250
      IF(ISEASN.EQ.0)ISEASN=1                                           DRV 4260
      IF(IVULCN.LE.0) IVULCN=1                                          DRV 4270
      IHVUL=IVULCN+10                                                   DRV 4280
      IF( IVULCN .EQ. 6) IHVUL = 11                                     DRV 4290
      IF( IVULCN .EQ. 7) IHVUL = 11                                     DRV 4300
      IF( IVULCN .EQ. 8) IHVUL = 13                                     DRV 4310
      IHMET=1                                                           DRV 4320
      IF(IVULCN.GT.1)IHMET=2                                            DRV 4330
      IF(IHAZE.EQ.0) GO TO 520                                          DRV 4340
      WRITE(IPR,1510)(HHAZE(I,IHAZE),I=1,5),VIS,(HHAZE(I2,6),I2=1,5),   DRV 4350
     1  (HHAZE(II,6),II=1,5),(HSEASN(IA,ISEASN),IA=1,5),                DRV 4360
     2  (HHAZE(I3,IHVUL),I3=1,5),                                       DRV 4370
     3  (HVULCN(IB,IVULCN),IB=1,5),(HSEASN(IC,ISEASN),IC=1,5),          DRV 4380
     4  (HHAZE(I4,16),I4=1,5),(HMET(I5,IHMET),I5=1,5)                   DRV 4390
1510  FORMAT('0 AEROSOL MODEL',/,10X,'REGIME',                          DRV 4400
     A  T35,'AEROSOL TYPE',T60,'PROFILE',T85,'SEASON',/,/,              DRV 4410
     B  10X,'BOUNDARY LAYER (0-2 KM)',T35,5A4,T60,F5.1,                 DRV 4420
     C  ' KM VIS AT SEA LEVEL',/,10X,'TROPOSPHERE  (2-10KM)',T35,       DRV 4430
     D  5A4,T60,5A4,T85,5A4,/,10X,'STRATOSPHERE (10-30KM)',             DRV 4440
     E  T35,5A4,T60,5A4,T85,5A4,/,10X,'UPPER ATMOS (30-100KM)',         DRV 4450
     F  T35,5A4,T60,5A4)                                                DRV 4460
520   CONTINUE                                                          DRV 4470
      IF(ITYPE.EQ.1) WRITE(IPR,1515) H1,RANGE                           DRV 4480
1515  FORMAT('0 HORIZONTAL PATH',/,10X,'ALTITUDE = ',F10.3,' KM',/,     DRV 4490
     1  10X,'RANGE    = ',F10.3,' KM')                                  DRV 4500
      IF(ITYPE.EQ.2) WRITE(IPR,1516) H1,H2,ANGLE,RANGE,BETA,LEN         DRV 4510
1516  FORMAT('0 SLANT PATH, H1 TO H2',/,                                DRV 4520
     1  10X,'H1    = ',F10.3,' KM',/,10X,'H2    = ',F10.3,' KM',/,      DRV 4530
     2  10X,'ANGLE = ',F10.3,' DEG',/,10X,'RANGE = ',F10.3,' KM',/,     DRV 4540
     3  10X,'BETA  = ',F10.3,' DEG',/,10X,'LEN   = ',I6)                DRV 4550
      IF(ITYPE.EQ.3) WRITE(IPR,1517) H1,H2,ANGLE                        DRV 4560
1517  FORMAT('0 SLANT PATH TO SPACE',/,                                 DRV 4570
     1  10X, 'H1    = ',F10.3,' KM',/,10X,'HMIN  = ',F10.3,' KM',/,     DRV 4580
     2  10X,'ANGLE = ',F10.3,' DEG')                                    DRV 4590
      IF (IEMSCT.NE.2) GO TO 550                                        DRV 4600
C                                                                       DRV 4610
C*****INTREPRET SOLAR SCATTERING PARAMETERS                             DRV 4620
C                                                                       DRV 4630
C                                                                       DRV 4640
      IF (IPARM.EQ.1) CALL SUBSOL (PARM3,PARM4,TIME,IDAY)               DRV 4650
C                                                                       DRV 4660
      WRITE (IPR,1530)                                                  DRV 4670
1530  FORMAT('0 SINGLE SCATTERING CONTROL PARAMETERS SUMMARY '/)        DRV 4680
      IF(IPARM.NE.2) WRITE (IPR,1532) PARM1,PARM2,PARM3,PARM4,TIME,PSIPODRV 4690
     1,IDAY                                                             DRV 4700
1532  FORMAT(10X,'OBSERVER LATITUDE =',T35,F10.2,' DEG NORTH OF EQUATOR'DRV 4710
     1  ,/,10X,'OBSERVER LONGITUDE=',T35,F10.2,' DEG WEST OF GREENWICH',DRV 4720
     2  /,10X,'SUBSOLAR LATITUDE =',T35,F10.2,' NORTH OF EQUATOR',/,    DRV 4730
     3  10X,'SUBSOLAR LONGITUDE =',T35,F10.2,' WEST OF GREENWICH',/,    DRV 4740
     4  10X,'TIME (<0 IS UNDEF)=',T35,F10.3,' GREENWICH TIME',/,        DRV 4750
     5  10X,'PATH AZIMUTH =',T35,F10.3,' DEG EAST OF NORTH',/,          DRV 4760
     6  10X,'DAY OF YEAR =',T35,I10)                                    DRV 4770
      IF (IPARM.EQ.2) WRITE (IPR,1534)PARM1,PARM2,TIME,PSIPO,IDAY       DRV 4780
1534  FORMAT(10X,'RELATIVE AZIMUTH =',T35,F10.3,' DEG EAST OF NORTH',/, DRV 4790
     1  10X,'SOLAR ZENITH =',T35,F10.3,' DEG ',/,                       DRV 4800
     2  10X,'TIME (<0 UNDEF) =',T35,F10.3,' GREENWICH TIME',/,          DRV 4810
     3  10X,'PATH AZIMUTH =',T35,F10.3,' DEG EAST OF NORTH',/,          DRV 4820
     4  10X,'DAY OF THE YEAR =',T35,I6)                                 DRV 4830
      IF (ISOURC.EQ.0) WRITE (IPR,1535)                                 DRV 4840
1535  FORMAT('0 EXTRATERRESTIAL SOURCE IS THE SUN')                     DRV 4850
      IF (ISOURC.EQ.1) WRITE (IPR,1536) ANGLEM                          DRV 4860
1536  FORMAT('0 EXTRATERRESTIAL SOURCE IS THE MOON, MOON PHASE ANGLE =',DRV 4870
     1  F10.2,' DEG')                                                   DRV 4880
      IF (IPH.EQ.0) WRITE (IPR,1538) G                                  DRV 4890
1538  FORMAT('O H-G PHASE FUNCTION ,G=',F10.3)                          DRV 4900
      IF (IPH.EQ.1) WRITE (IPR,1540)                                    DRV 4910
1540  FORMAT('0 USER SUPPLIED PHASE FUNCTION')                          DRV 4920
      IF (IPH.EQ.2) WRITE (IPR,1542)                                    DRV 4930
1542  FORMAT('0 PHASE FUNCTION FROM MIE DATA BASE')                     DRV 4940
550   CONTINUE                                                          DRV 4950
C     V1 =FLOAT(INT(V1/5.0+0.1))*5.0                                    DRV 4960
C     V2 =FLOAT(INT(V2/5.0+0.1))*5.0                                    DRV 4970
C     TO AVOID THE DIFFICULTY FOR V1=0                                  DRV 4980
      ALAM1= 99999.98                                                   DRV 4990
C     IF(V1.GT.0.)ALAM1=10000./V1                                       DRV 5000
C     ALAM2=10000./V2                                                   DRV 5010
C     IF(DV.LT.5.)DV=5.                                                 DRV 5020
C     DV=FLOAT(INT(DV/5+0.1))*5.0                                       DRV 5030
C     WRITE (IPR,1555) V1,ALAM1,V2,ALAM2,DV                             DRV 5040
C1555 FORMAT('0 FREQUENCY RANGE '/,10X,' V1 = ',F12.1,' CM-1  (',       DRV 5050
C    1  F10.2,' MICROMETERS)',/,10X,' V2 = ',F12.1,' CM-1  (',F10.2,    DRV 5060
C    2  ' MICROMETERS)',/10X,' DV = ',F12.1,' CM-1')                    DRV 5070
      IF(.NOT.MODTRN)THEN                                               DRV 5080
          IV1=5*(IV1/5)                                                 DRV 5090
          IV2=5*((IV2+4)/5)                                             DRV 5100
          IDV=5+5*((IDV-5)/5)                                           DRV 5110
      ENDIF                                                             DRV 5120
      IF(IV2.LT.IV1+IDV)THEN                                            DRV 5130
          WRITE(IPR,'(/41H IV2 WAS LESS THAN IV1 + IDV AND HAS BEEN,    DRV 5140
     1      6H RESET,/)')                                               DRV 5150
          IV2=IV1+IDV                                                   DRV 5160
      ENDIF                                                             DRV 5170
      IF(MODTRN)THEN                                                    DRV 5180
          IV1SAV=IV1                                                    DRV 5190
          IV2SAV=IV2                                                    DRV 5200
          IDVSAV=IDV                                                    DRV 5210
      ENDIF                                                             DRV 5220
      IF(IV1.NE.0)ALAM1=10000./IV1                                      DRV 5230
      ALAM2=10000./IV2                                                  DRV 5240
      IF(IFWHM.LT.1)IFWHM=1                                             DRV 5250
      IF(IFWHM.GT.50)IFWHM=50                                           DRV 5260
      WRITE(IPR,'(17H0 FREQUENCY RANGE,/10X,8H   IV1 =,I10,8H CM-1  (,  DRV 5270
     1  F10.2,13H MICROMETERS),/10X,8H   IV2 =,I10,8H CM-1  (,F10.2,    DRV 5280
     2  13H MICROMETERS),/10X,8H   IDV =,I10,5H CM-1,/10X,8H IFWHM =,   DRV 5290
     3  I10,5H CM-1)')IV1,ALAM1,IV2,ALAM2,IDV,IFWHM                     DRV 5300
C                                                                       DRV 5310
C*****LOAD ATMOSPHERIC PROFILE INTO /MODEL/                             DRV 5320
C                                                                       DRV 5330
      CALL STDMDL                                                       DRV 5340
C                                                                       DRV 5350
C    DEFINE COUNTER ITEST TO PREVENT ZENITH ANGLE QTHETA AND LAYER      DRV 5360
C    PATH LENGTH PL FROM BEING CHANGED DURING SOLAR CALCULATIONS        DRV 5370
555   DO 15 I=1,102                                                     DRV 5380
          DO 15 J=1,KMAX                                                DRV 5390
              WPATH(I,J)=0.0                                            DRV 5400
   15 WPATHS(I,J)=0.0                                                   DRV 5410
C                                                                       DRV 5420
      ITEST=0                                                           DRV 5430
C                                                                       DRV 5440
      IF (IMULT .EQ. 1) THEN                                            DRV 5450
          H1=ZM(1)                                                      DRV 5460
          H2=ZM(ML)                                                     DRV 5470
          ITYPE = 2                                                     DRV 5480
          ANGLE = 0.                                                    DRV 5490
          BETA = 0.                                                     DRV 5500
          RANGE =0.                                                     DRV 5510
          ISSGS = ISSGEO                                                DRV 5520
          ISSGEO = 0                                                    DRV 5530
C         CALL GEO (IERROR,BENDNG,MAXGEO)                               DRV 5540
          MSOFF=68                                                      DRV 5550
          CALL GEO (IERROR,BENDNG,MAXGEO,MSOFF)                         DRV 5560
          W15SV = W(15)                                                 DRV 5570
C                                                                       DRV 5580
C         W15SV  IS THE REL HUM FROM 0 TO SPACE                         DRV 5590
C         THIS REL HUM MAY BE DIFFERENT THAN THE PATH  REL HUM          DRV 5600
C         WHEN REL HUM ARE DIFFERENT THE ANSWER CAN CHANGE              DRV 5610
C                                                                       DRV 5620
          ISSGEO = ISSGS                                                DRV 5630
          IMSMX=IKMAX                                                   DRV 5640
          DO 35 N=1,IMSMX                                               DRV 5650
C             PLST(N)=PL(N)                                             DRV 5660
C             DO 35 K=1,KMAX                                            DRV 5670
C35       WPMS(N,K)=WPATH(N,K)                                          DRV 5680
   35     PLST(N)=PL(N)                                                 DRV 5690
C                                                                       DRV 5700
          IF(IEMSCT.EQ.2)  THEN                                         DRV 5710
              CALL SSGEO(IERROR,IPH,IPARM,PARM1,PARM2,                  DRV 5720
C    1          PARM3,PARM4,PSIPO,G,MAXGEO)                             DRV 5730
     1          PARM3,PARM4,PSIPO,G,MAXGEO,MSOFF)                       DRV 5740
              DO 30 N=1,IKMAX                                           DRV 5750
                  CSENSV(N) = ABS(CSZEN(N))                             DRV 5760
                  IF(CSENSV(N) .LT. 0.0174) CSENSV(N) = 0.0174          DRV 5770
   30         CONTINUE                                                  DRV 5780
C             DO 45 N=1,ML                                              DRV 5790
C                 DO 45 K=1,KMAX                                        DRV 5800
C                     WPMSS(N,K)=WPATHS(N,K)                            DRV 5810
C  45         CONTINUE                                                  DRV 5820
          ENDIF                                                         DRV 5830
      ENDIF                                                             DRV 5840
      H1     = H1S                                                      DRV 5850
      H2     = H2S                                                      DRV 5860
      ANGLE  = ANGLES                                                   DRV 5870
      RANGE  = RANGS                                                    DRV 5880
      BETA   = BETAS                                                    DRV 5890
      ITYPE  = ITYPES                                                   DRV 5900
      LEN    = LENS                                                     DRV 5910
C*****TRACE PATH THROUGH THE ATMOSPHERE AND CALCULATE ABSORBER AMOUNTS  DRV 5920
C                                                                       DRV 5930
      ISSGEO=0                                                          DRV 5940
C     RANGE=RN0                                                         DRV 5950
C     CALL GEO (IERROR,BENDNG,MAXGEO)                                   DRV 5960
      MSOFF=0                                                           DRV 5970
      CALL GEO(IERROR,BENDNG,MAXGEO,MSOFF)                              DRV 5980
      CALL AERTMP                                                       DRV 5990
      IF(IMULT. NE. 1) W15SV = W(15)                                    DRV 6000
C                                                                       DRV 6010
C   SAVE TEMPERATURE AND PATH INFO FOR LATER USE                        DRV 6020
C                                                                       DRV 6030
      IF(IMULT .EQ. 1)  THEN                                            DRV 6040
          DO 25 N=1,IKMAX                                               DRV 6050
   25     QTHETS(N) = QTHETA(N)                                         DRV 6060
      ENDIF                                                             DRV 6070
C                                                                       DRV 6080
      IF(IERROR.GT.0) GO TO 630                                         DRV 6090
      IF(IEMSCT.EQ.3 .AND. IERROR.EQ. -5) GO TO 557                     DRV 6100
      GO TO 558                                                         DRV 6110
  557 CONTINUE                                                          DRV 6120
      WRITE(IPR,1557)                                                   DRV 6130
 1557 FORMAT('0 DIRECT PATH TO SUN INTERSECTS THE EARTH: SKIP TO ',     DRV 6140
     1    'NEXT CASE')                                                  DRV 6150
      GO TO 630                                                         DRV 6160
  558 CONTINUE                                                          DRV 6170
C                                                                       DRV 6180
      IF(IEMSCT.EQ.2)CALL SSGEO(IERROR,IPH,IPARM,PARM1,PARM2,PARM3,     DRV 6190
C    1  PARM4,PSIPO,G,MAXGEO)                                           DRV 6200
     1  PARM4,PSIPO,G,MAXGEO,MSOFF)                                     DRV 6210
      W(15) = W15SV                                                     DRV 6220
C                                                                       DRV 6230
C     W15SV IS THE REL HUM  (FOR MULT SCAT THIS MAY BE DIFFERENT        DRV 6240
C     FROM PATH REL HUM)                                                DRV 6250
C                                                                       DRV 6260
C     THE SECOND CALL TO SSGEO IS TO GET THE CORRECT ANGLES FOR         DRV 6270
C     PHASE FUNCTIONS                                                   DRV 6280
C                                                                       DRV 6290
C     SAVE SOLAR PATH INFORMATION                                       DRV 6300
C                                                                       DRV 6310
      IF(IERROR.GT.0) GO TO 630                                         DRV 6320
C                                                                       DRV 6330
      IF(IMULT.EQ.1) THEN                                               DRV 6340
          DO 60 IK = 1,IMSMX                                            DRV 6350
              QTHETA(IK) = QTHETS(IK)                                   DRV 6360
              PL(IK)=PLST(IK)                                           DRV 6370
              IF(IEMSCT.EQ.2) CSZEN(IK)=CSENSV(IK)                      DRV 6380
60        CONTINUE                                                      DRV 6390
      ENDIF                                                             DRV 6400
C                                                                       DRV 6410
C*****LOAD AEROSOL EXTINCTION, ABSORPTION, AND ASYMMETRY COEFFICIENTS   DRV 6420
C                                                                       DRV 6430
      CALL EXABIN                                                       DRV 6440
C                                                                       DRV 6450
C*****WRITE HEADER DATA TO TAPE 7                                       DRV 6460
C                                                                       DRV 6470
C560  WRITE(IPU,1110)MODEL,ITYPE,IEMSCT,IMULT,M1,M2,M3,                 DRV 6480
C    1  M4,M5,M6,MDEF,IM,NOPRT,TBOUND,SALB                              DRV 6490
  560 WRITE(IPU,'(L1,I4,12I5,F8.3,F7.2)')MODTRN,MODEL                   DRV 6500
     1  ,ITYPE,IEMSCT,IMULT,M1,M2,M3,M4,M5,M6,MDEF,IM,NOPRT,TBOUND,SALB DRV 6510
C     WRITE(IPR1,1110)MODEL,ITYPE,IEMSCT,IMULT,M1,M2,M3,                DRV 6520
C    1  M4,M5,M6,MDEF,IM,NOPRT,TBOUND,SALB                              DRV 6530
      WRITE(IPR1,'(L1,I4,12I5,F8.3,F7.2)')MODTRN,MODEL                  DRV 6540
     1  ,ITYPE,IEMSCT,IMULT,M1,M2,M3,M4,M5,M6,MDEF,IM,NOPRT,TBOUND,SALB DRV 6550
      WRITE(IPU,1200)IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   DRV 6560
     1  RAINRT,GNDALT                                                   DRV 6570
      WRITE(IPR1,1200)IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,  DRV 6580
     1  RAINRT,GNDALT                                                   DRV 6590
      WRITE(IPU,1210) CTHIK,CALT,CEXT,ISEED                             DRV 6600
      WRITE(IPR1,1210) CTHIK,CALT,CEXT,ISEED                            DRV 6610
      WRITE(IPU,1230)ZCVSA,ZTVSA,ZINVSA                                 DRV 6620
      WRITE(IPR1,1230)ZCVSA,ZTVSA,ZINVSA                                DRV 6630
      WRITE(IPU,1255) ML,(HMODEL(I,7),I=1,5)                            DRV 6640
      WRITE(IPR1,1255) ML,(HMODEL(I,7),I=1,5)                           DRV 6650
1255  FORMAT( I5,18A4)                                                  DRV 6660
      IF(MODEL.NE.0)WRITE (IPU,1312) H1,H2,ANGLE,RANGE,BETA,RO,LEN      DRV 6670
      IF(MODEL.NE.0)WRITE (IPR1,1312) H1,H2,ANGLE,RANGE,BETA,RO,LEN     DRV 6680
      HMDLZ(8) = RANGE                                                  DRV 6690
      IF(MODEL.EQ.0) WRITE(IPU,1560)(HMDLZ(K),K=1,8)                    DRV 6700
      IF(MODEL.EQ.0) WRITE(IPR1,1560)(HMDLZ(K),K=1,8)                   DRV 6710
1560  FORMAT(3F10.3,5E10.3)                                             DRV 6720
      WRITE(IPU,1320)  IPARM,IPH,IDAY,ISOURC                            DRV 6730
      WRITE(IPR1,1320) IPARM,IPH,IDAY,ISOURC                            DRV 6740
      WRITE(IPU,1322) PARM1,PARM2,PARM3,PARM4,TIME,PSIPO,ANGLEM,G       DRV 6750
      WRITE(IPR1,1322)PARM1,PARM2,PARM3,PARM4,TIME,PSIPO,ANGLEM,G       DRV 6760
C     WRITE(IPU,1400) V1,V2,DV                                          DRV 6770
C     WRITE(IPR1,1400)V1,V2,DV                                          DRV 6780
      WRITE(IPU,'(4I10)')IV1,IV2,IDV,IFWHM                              DRV 6790
      WRITE(IPR1,'(4I10)')IV1,IV2,IDV,IFWHM                             DRV 6800
C                                                                       DRV 6810
      IRAIN=0                                                           DRV 6820
      IF(RAINRT.GT.0) IRAIN=1                                           DRV 6830
CCC                                                                     DRV 6840
CCC   CALCULATE EQUIVALENT LIQUID WATER CONSTANTS                       DRV 6850
CCC                                                                     DRV 6860
      CALL EQULWC                                                       DRV 6870
      IF(IRPT .EQ. -4) GO TO 565
      READ(IRD,1600) IRPT                                               DRV 7090
      IRPTS = IRPT
1600  FORMAT(I5)                                                        DRV 7100
565   WRITE(IPU,1600) IRPT                                              DRV 7110
      WRITE(IPR1,1600)IRPT                                              DRV 7120
C                                                                       DRV 6880
      CALL TRANS(IPH,ISOURC,IDAY,ANGLEM,IRPT)                           DRV 6890
C                                                                       DRV 6900
C     TRANS RETURNS IRPT = -4 IF THE SPECTRAL RANGE EXTENDS BEYOND THE  DRV 6910
C     BAND MODEL TAPE.  IN THIS CASE, A LOWTRAN 7 CALCULATION IS        DRV 6920
C     PERFORMED FOR THE SHORT WAVELENGTHS AND THEN THE ORIGINAL INPUT   DRV 6930
C     IS RESTORED.                                                      DRV 6940
C                                                                       DRV 6950
      IF(IRPT.EQ.-4)THEN                                                DRV 6960
          IF(MODTRN)THEN                                                DRV 6970
              MODTRN=.FALSE.                                            DRV 6980
              WRITE(IPR,'(36H1 SPECTRAL RANGE EXTENDS BEYOND BAND,      DRV 6990
     1          48H MODEL TAPE.  FINISH CALCULATION USING LOWTRAN 7)')  DRV 7000
              IDV = 5
              IV1 = 17905
              WRITE(IPU,1620)
              WRITE(IPR1,1620)
              GO TO 401                                                 DRV 7010
          ELSE                                                          DRV 7020
              MODTRN=.TRUE.                                             DRV 7030
              IV1=IV1SAV                                                DRV 7040
              IV2=IV2SAV                                                DRV 7050
              IDV=IDVSAV                                                DRV 7060
          ENDIF                                                         DRV 7070
      ENDIF                                                             DRV 7080
      IRPT = IRPTS
C                                                                       DRV 7130
C*****WRITE END OF FILE ON TAPE 7                                       DRV 7140
630   IF(IERROR .GT. 0) THEN                                            DRV 7150
          READ(IRD,1600,END=900) IRPT                                   DRV 7160
          WRITE(IPU,1600) IRPT                                          DRV 7170
          WRITE(IPR1,1600)IRPT                                          DRV 7180
      ENDIF                                                             DRV 7190
      WRITE(IPU,1620)                                                   DRV 7200
      WRITE(IPR1,1620)                                                  DRV 7210
1620  FORMAT(' -9999.')                                                 DRV 7220
C                                                                       DRV 7230
      WRITE(IPR,1630)IRPT                                               DRV 7240
1630  FORMAT('0 CARD 5 *****',I5)                                       DRV 7250
      IF (IRPT.EQ.0) GO TO 900                                          DRV 7260
      IF (IRPT.EQ.4) GO TO 400                                          DRV 7270
      IF (IRPT.GT.1 .AND. IEMSCT.GE.2) THEN                             DRV 7280
          PRINT*,'/!! ERROR IN INPUT IEMSCT GE 2 IRPT GT 1!'            DRV 7290
          STOP                                                          DRV 7300
      ENDIF                                                             DRV 7310
      IF (IRPT.GT.4) GO TO 900                                          DRV 7320
      GO TO (100,900,300,400), IRPT                                     DRV 7330
  900 STOP                                                              DRV 7340
      END                                                               DRV 7350
      BLOCK DATA DSTDTA                                                 DST  100
C>    BLOCK DATA                                                        DST  105
C********************************************************************** DST  110
C*                                                                    * DST  120
C*    DESERT AEROSOL EXTINCTION COEFFICIENTS, ABSORPTION COEFFICIENTS * DST  130
C*    AND ASYMMETRY PARAMETERS FOR FOUR WIND SPEEDS: 0 M/S, 10 M/S,   * DST  140
C*    20 M/S AND 30 M/S                                               * DST  150
C*                                                                    * DST  160
C*    PROGRAMMED BY:  D. R. LONGTIN         OPTIMETRICS, INC.         * DST  170
C*                                          BURLINGTON, MASSACHUSETTS * DST  180
C*                                          FEB  1988                 * DST  190
C*                                                                    * DST  200
C********************************************************************** DST  210
C                                                                       DST  220
      COMMON /DESAER/DESEX1(47),DESEX2(47),DESEX3(47),DESEX4(47),       DST  230
     *DESAB1(47),DESAB2(47),DESAB3(47),DESAB4(47),DESG1(47),DESG2(47),  DST  240
     *DESG3(47),DESG4(47)                                               DST  250
C                                                                       DST  260
C     EXTINCTION COEFFICIENTS                                           DST  270
C                                                                       DST  280
      DATA DESEX1 /                                                     DST  290
     1 8.7330E-2, 7.1336E-2, 6.5754E-2, 4.0080E-2, 2.8958E-2, 1.4537E-2,DST  300
     1 7.1554E-3, 4.3472E-3, 3.5465E-3, 2.9225E-3, 2.5676E-3, 4.3573E-3,DST  310
     1 5.7479E-3, 2.9073E-3, 2.0109E-3, 1.8890E-3, 1.8525E-3, 1.8915E-3,DST  320
     1 1.9503E-3, 2.3256E-3, 4.9536E-3, 2.0526E-3, 2.6738E-3, 9.2804E-3,DST  330
     1 1.5352E-2, 6.9396E-3, 2.2455E-3, 1.9840E-3, 1.9452E-3, 1.9019E-3,DST  340
     1 1.8551E-3, 1.9661E-3, 1.9865E-3, 2.4089E-3, 1.7485E-3, 1.4764E-3,DST  350
     1 2.2604E-3, 2.1536E-3, 2.3008E-3, 2.9272E-3, 2.6943E-3, 2.4319E-3,DST  360
     1 1.9199E-3, 1.4887E-3, 8.0630E-4, 4.6950E-4, 2.0792E-4/           DST  370
      DATA DESEX2 /                                                     DST  380
     2 1.0419E-1, 8.8261E-2, 8.2699E-2, 5.7144E-2, 4.6078E-2, 3.1831E-2,DST  390
     2 2.4638E-2, 2.1952E-2, 2.1254E-2, 2.0743E-2, 2.0397E-2, 2.2340E-2,DST  400
     2 2.3848E-2, 2.1104E-2, 2.0422E-2, 2.0462E-2, 2.0591E-2, 2.0843E-2,DST  410
     2 2.1030E-2, 2.1630E-2, 2.2880E-2, 1.9075E-2, 2.0928E-2, 2.9835E-2,DST  420
     2 3.8025E-2, 2.7349E-2, 2.1502E-2, 2.1475E-2, 2.1563E-2, 2.1726E-2,DST  430
     2 2.2265E-2, 2.2580E-2, 2.2708E-2, 2.1705E-2, 2.1230E-2, 2.0523E-2,DST  440
     2 2.6686E-2, 2.5461E-2, 2.3785E-2, 2.6033E-2, 2.6484E-2, 2.6464E-2,DST  450
     2 2.5318E-2, 2.3341E-2, 1.7824E-2, 1.3092E-2, 7.2020E-3/           DST  460
      DATA DESEX3 /                                                     DST  470
     3 2.7337E-1, 2.5795E-1, 2.5252E-1, 2.2773E-1, 2.1710E-1, 2.0402E-1,DST  480
     3 1.9809E-1, 1.9664E-1, 1.9635E-1, 1.9655E-1, 1.9661E-1, 1.9907E-1,DST  490
     3 2.0164E-1, 1.9957E-1, 2.0013E-1, 2.0142E-1, 2.0270E-1, 2.0400E-1,DST  500
     3 2.0501E-1, 2.0665E-1, 2.0573E-1, 1.9165E-1, 2.0121E-1, 2.2402E-1,DST  510
     3 2.4718E-1, 2.2503E-1, 2.0749E-1, 2.0910E-1, 2.0999E-1, 2.1165E-1,DST  520
     3 2.1784E-1, 2.1727E-1, 2.1803E-1, 2.0995E-1, 2.1214E-1, 2.1308E-1,DST  530
     3 2.5226E-1, 2.4234E-1, 2.2638E-1, 2.3991E-1, 2.4680E-1, 2.5176E-1,DST  540
     3 2.5655E-1, 2.5505E-1, 2.3610E-1, 2.1047E-1, 1.5938E-1/           DST  550
      DATA DESEX4 /                                                     DST  560
     4 1.9841E0, 1.9721E0, 1.9676E0, 1.9488E0, 1.9424E0, 1.9377E0,      DST  570
     4 1.9374E0, 1.9484E0, 1.9509E0, 1.9549E0, 1.9570E0, 1.9642E0,      DST  580
     4 1.9737E0, 1.9764E0, 1.9860E0, 1.9944E0, 2.0020E0, 2.0113E0,      DST  590
     4 2.0148E0, 2.0245E0, 2.0283E0, 1.9397E0, 1.9973E0, 2.1039E0,      DST  600
     4 2.2246E0, 2.1587E0, 2.0409E0, 2.0520E0, 2.0613E0, 2.0651E0,      DST  610
     4 2.1194E0, 2.1065E0, 2.1104E0, 2.0651E0, 2.0926E0, 2.1155E0,      DST  620
     4 2.3696E0, 2.2931E0, 2.1828E0, 2.2708E0, 2.3304E0, 2.3762E0,      DST  630
     4 2.4533E0, 2.4915E0, 2.5118E0, 2.4463E0, 2.2122E0/                DST  640
C                                                                       DST  650
C     ABSORPTION COEFFICIENTS                                           DST  660
C                                                                       DST  670
      DATA DESAB1 /                                                     DST  680
     1 6.4942E-4, 6.1415E-4, 5.8584E-4, 4.4211E-4, 1.3415E-4, 7.8142E-5,DST  690
     1 5.7566E-5, 8.3848E-5, 7.6988E-5, 4.4486E-5, 8.9604E-5, 2.4887E-3,DST  700
     1 3.3444E-3, 6.8781E-4, 1.6387E-4, 3.5236E-4, 3.5340E-4, 4.0930E-4,DST  710
     1 5.0526E-4, 8.2146E-4, 3.7647E-3, 1.0162E-3, 1.3525E-3, 7.7761E-3,DST  720
     1 1.3108E-2, 5.1252E-3, 1.0973E-3, 6.8573E-4, 5.7622E-4, 5.1268E-4,DST  730
     1 7.6834E-4, 5.3793E-4, 5.0611E-4, 1.2828E-3, 6.7827E-4, 4.3826E-4,DST  740
     1 5.1221E-4, 8.8642E-4, 9.5535E-4, 1.0000E-3, 7.5646E-4, 6.1552E-4,DST  750
     1 4.6087E-4, 3.5642E-4, 2.3556E-4, 1.7596E-4, 1.1699E-4/           DST  760
      DATA DESAB2 /                                                     DST  770
     2 4.3569E-3, 4.3413E-3, 4.3277E-3, 4.0649E-3, 3.9091E-4, 8.4594E-5,DST  780
     2 5.8501E-5, 8.4412E-5, 7.7547E-5, 4.6817E-5, 9.2721E-5, 2.5389E-3,DST  790
     2 3.3588E-3, 7.9414E-4, 8.5079E-4, 4.6002E-3, 4.4872E-3, 4.6200E-3,DST  800
     2 5.2973E-3, 4.8910E-3, 8.9899E-3, 5.4745E-3, 3.6375E-3, 1.1862E-2,DST  810
     2 1.5179E-2, 7.0015E-3, 8.4693E-3, 6.9516E-3, 6.3008E-3, 6.3684E-3,DST  820
     2 8.4992E-3, 6.9625E-3, 6.5192E-3, 7.8955E-3, 7.7192E-3, 5.8540E-3,DST  830
     2 5.3263E-3, 9.3004E-3, 7.4848E-3, 3.0952E-3, 1.8219E-3, 1.3078E-3,DST  840
     2 1.0653E-3, 5.5231E-4, 3.2311E-4, 2.2422E-4, 1.3839E-4/           DST  850
      DATA DESAB3 /                                                     DST  860
     3 4.1552E-2, 4.1671E-2, 4.1781E-2, 4.1125E-2, 5.0552E-3, 2.1085E-4,DST  870
     3 7.5703E-5, 9.5531E-5, 8.8354E-5, 9.0588E-5, 1.5058E-4, 3.4972E-3,DST  880
     3 3.6310E-3, 2.6709E-3, 1.2558E-2, 5.9184E-2, 5.8289E-2, 5.9206E-2,DST  890
     3 6.5487E-2, 5.8707E-2, 7.4669E-2, 5.2152E-2, 2.5783E-2, 4.7971E-2,DST  900
     3 3.2378E-2, 2.4739E-2, 8.1225E-2, 7.5085E-2, 7.1232E-2, 7.3042E-2,DST  910
     3 8.0638E-2, 7.8255E-2, 7.4882E-2, 7.8853E-2, 8.1412E-2, 6.5722E-2,DST  920
     3 4.8565E-2, 8.4983E-2, 7.1273E-2, 3.0870E-2, 1.7031E-2, 1.1455E-2,DST  930
     3 1.0554E-2, 4.0418E-3, 2.1509E-3, 1.4115E-3, 7.9698E-4/           DST  940
      DATA DESAB4 /                                                     DST  950
     4 4.1777E-1, 4.1880E-1, 4.2000E-1, 4.1846E-1, 8.6452E-2, 2.6538E-3,DST  960
     4 4.0804E-4, 3.1418E-4, 2.9996E-4, 9.3018E-4, 1.2814E-3, 2.1436E-2,DST  970
     4 8.7553E-3, 3.7670E-2, 2.0849E-1, 7.0914E-1, 7.0420E-1, 7.1379E-1,DST  980
     4 7.6309E-1, 7.1128E-1, 8.2992E-1, 5.3585E-1, 2.4456E-1, 3.8103E-1,DST  990
     4 1.7784E-1, 1.9305E-1, 7.9910E-1, 7.8987E-1, 7.7502E-1, 7.9400E-1,DST 1000
     4 7.6332E-1, 8.3629E-1, 8.1581E-1, 8.3122E-1, 8.4901E-1, 7.0150E-1,DST 1010
     4 4.4205E-1, 7.7354E-1, 7.1088E-1, 3.9328E-1, 2.3337E-1, 1.6258E-1,DST 1020
     4 1.5289E-1, 5.8849E-2, 3.5576E-2, 2.4463E-2, 1.4525E-2/           DST 1030
C                                                                       DST 1040
C     ASYMMETRY PARAMETER                                               DST 1050
C                                                                       DST 1060
      DATA DESG1 /                                                      DST 1070
     1 0.6603, 0.6581, 0.6547, 0.6383, 0.6276, 0.5997, 0.5829, 0.5873,  DST 1080
     1 0.5967, 0.6130, 0.6323, 0.6850, 0.6068, 0.6312, 0.6816, 0.7298,  DST 1090
     1 0.7574, 0.7874, 0.8124, 0.8424, 0.8301, 0.8107, 0.6143, 0.6167,  DST 1100
     1 0.4892, 0.4917, 0.6662, 0.6334, 0.6298, 0.6498, 0.7470, 0.6711,  DST 1110
     1 0.6751, 0.7538, 0.8054, 0.7797, 0.5522, 0.6575, 0.4702, 0.3719,  DST 1120
     1 0.3626, 0.3690, 0.3790, 0.3805, 0.3766, 0.3639, 0.3281/          DST 1130
      DATA DESG2 /                                                      DST 1140
     2 0.6836, 0.6879, 0.6877, 0.6919, 0.6901, 0.7045, 0.7279, 0.7466,  DST 1150
     2 0.7522, 0.7568, 0.7629, 0.7700, 0.7567, 0.7617, 0.7781, 0.8289,  DST 1160
     2 0.8360, 0.8465, 0.8624, 0.8707, 0.9524, 0.8292, 0.6202, 0.6425,  DST 1170
     2 0.5777, 0.5623, 0.7610, 0.7310, 0.7247, 0.7419, 0.7782, 0.7481,  DST 1180
     2 0.7446, 0.8090, 0.8415, 0.8110, 0.6120, 0.7106, 0.5739, 0.4421,  DST 1190
     2 0.4089, 0.3979, 0.3917, 0.3853, 0.3842, 0.3829, 0.3797/          DST 1200
      DATA DESG3 /                                                      DST 1210
     3 0.7718, 0.7865, 0.7907, 0.8077, 0.7801, 0.7827, 0.7871, 0.7880,  DST 1220
     3 0.7887, 0.7888, 0.7894, 0.7909, 0.7882, 0.7934, 0.8103, 0.8729,  DST 1230
     3 0.8766, 0.8844, 0.8979, 0.8997, 0.9698, 0.8318, 0.6197, 0.6420,  DST 1240
     3 0.5797, 0.5698, 0.8014, 0.7938, 0.7901, 0.8069, 0.7894, 0.8139,  DST 1250
     3 0.8086, 0.8546, 0.8691, 0.8288, 0.6394, 0.7400, 0.6495, 0.5235,  DST 1260
     3 0.4793, 0.4583, 0.4376, 0.4169, 0.4006, 0.3941, 0.3875/          DST 1270
      DATA DESG4 /                                                      DST 1280
     4 0.8290, 0.8407, 0.8443, 0.8500, 0.8087, 0.7994, 0.7988, 0.7987,  DST 1290
     4 0.7988, 0.7989, 0.7998, 0.8023, 0.8011, 0.8076, 0.8331, 0.9045,  DST 1300
     4 0.9083, 0.9149, 0.9266, 0.9263, 0.9783, 0.8321, 0.6168, 0.6379,  DST 1310
     4 0.5706, 0.5673, 0.8196, 0.8324, 0.8347, 0.8549, 0.7940, 0.8621,  DST 1320
     4 0.8588, 0.8918, 0.8922, 0.8407, 0.6488, 0.7557, 0.7021, 0.6024,  DST 1330
     4 0.5533, 0.5280, 0.5016, 0.4711, 0.4396, 0.4230, 0.4058/          DST 1340
      END                                                               DST 1350
      SUBROUTINE EQULWC                                                 EQU  100
CCC                                                                     EQU  110
CCC   EQUIVALENT LIQUID  WATER CONSTANTS FOR BEXT (0.55UM)=1.0KM-1      EQU  120
CCC   AWCCON(1-4) IS SET TO ONE OF THE CONSTANTS FOR EACH AEROSOL       EQU  130
CCC   IN SUBROUTINE EXABIN AND MULTIPLIED BY THE BEXT (DENSTY(N,I))     EQU  140
CCC   WHERE N=7,12,13 OR 14 AND I IS THE NUMBER OF LAYERS               EQU  150
CCC                                                                     EQU  160
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            EQU  170
C     COMMON             WPATH(68, 63),TBBY(68)                         EQU -180
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   EQU 180A
      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),VX2(47),AWCCON(5)         EQU  190
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISS,IMULT                  EQU  200
      COMMON/MODEL/   ZM(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),     EQU  210
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         EQU  220
      DO 140 I=1,ML                                                     EQU  230
      IF(DENSTY(7,I).NE.0.0) EQLWC(I)=DENSTY(7,I)*AWCCON(1)             EQU  240
      IF(DENSTY(12,I).NE.0.0) EQLWC(I)=DENSTY(12,I)*AWCCON(2)           EQU  250
      IF(DENSTY(13,I).NE.0.0) EQLWC(I)=DENSTY(13,I)*AWCCON(3)           EQU  260
      IF(DENSTY(14,I).NE.0.0) EQLWC(I)=DENSTY(14,I)*AWCCON(4)           EQU  270
140   CONTINUE                                                          EQU  280
      RETURN                                                            EQU  290
      END                                                               EQU  300
      SUBROUTINE EXABIN                                                 EXA  100
C                                                                       EXA  110
C      LOADS EXTINCTION, ABSORPTION AND ASYMMETRY COEFFICIENTS          EXA  120
C      FOR THE FOUR AEROSOL ALTITUDE REGIONS                            EXA  130
C                                                                       EXA  140
C      MODIFIED FOR ASYMMETRY - JAN 1986 (A.E.R. INC.)                  EXA  150
C                                                                       EXA  160
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  EXA  170
     1  ,MODTRN                                                         EXA 170A
      LOGICAL MODTRN                                                    EXA 170B
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   EXA  180
     1    RAINRT                                                        EXA  190
      COMMON /CARD2D/ IREG(4),ALTB(4),IREGC(4)                          EXA  200
      COMMON /CARD3/ H1,H2,ANGLE,RANGE,BETA,RE,LEN                      EXA  210
C     COMMON /CARD4/ V1,V2,DV                                           EXA -220
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     EXA  230
C                                                                       EXA  240
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            EXA  250
C     COMMON             WPATH(68, 63),TBBY(68)                         EXA -260
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   EXA 260A
      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),VX0(47),AWCCON(5)         EXA  270
      COMMON /EXTD  /  VX2(47),RUREXT(47,4),RURABS(47,4),RURSYM(47,4),  EXA  280
     1 URBEXT(47,4),URBABS(47,4),URBSYM(47,4),OCNEXT(47,4),             EXA  290
     2 OCNABS(47,4),OCNSYM(47,4),TROEXT(47,4),TROABS(47,4),             EXA  300
     3 TROSYM(47,4),FG1EXT(47),FG1ABS(47),FG1SYM(47),                   EXA  310
     4 FG2EXT(47),FG2ABS(47),FG2SYM(47),BSTEXT(47),BSTABS(47),          EXA  320
     5 BSTSYM(47),AVOEXT(47),AVOABS(47),AVOSYM(47),FVOEXT(47),          EXA  330
     6 FVOABS(47),FVOSYM(47),DMEEXT(47),DMEABS(47),DMESYM(47),          EXA  340
     7 CCUEXT(47),CCUABS(47),CCUSYM(47),CALEXT(47),CALABS(47),          EXA  350
     8 CALSYM(47),CSTEXT(47),CSTABS(47),CSTSYM(47),CSCEXT(47),          EXA  360
     9 CSCABS(47),CSCSYM(47),CNIEXT(47),CNIABS(47),CNISYM(47)           EXA  370
      COMMON/CIRR/ CI32XT(47),CI32AB(47),CI32G(47),                     EXA  380
     B             CIR2XT(47),CIR2AB(47),CIR2G(47)                      EXA  390
      DIMENSION RHZONE(4)                                               EXA  400
      DIMENSION ELWCR(4),ELWCU(4),ELWCM(4),ELWCT(4)                     EXA  410
      REAL MDLWC                                                        EXA  420
      DATA RHZONE/0.,70.,80.,99./                                       EXA  430
      DATA ELWCR/3.517E-04,3.740E-04,4.439E-04,9.529E-04/               EXA  440
      DATA ELWCM/4.675E-04,6.543E-04,1.166E-03,3.154E-03/               EXA  450
      DATA ELWCU/3.102E-04,3.802E-04,4.463E-04,9.745E-04/               EXA  460
      DATA ELWCT/1.735E-04,1.820E-04,2.020E-04,2.408E-04/               EXA  470
      DATA AFLWC/1.295E-02/,RFLWC/1.804E-03/,CULWC/7.683E-03/           EXA  480
      DATA ASLWC/4.509E-03/,STLWC/5.272E-03/,SCLWC/4.177E-03/           EXA  490
      DATA SNLWC/7.518E-03/,BSLWC/1.567E-04/,FVLWC/5.922E-04/           EXA  500
      DATA AVLWC/1.675E-04/,MDLWC/4.775E-04/                            EXA  510
      DATA TNLWC/3.446E-3/ ,TKLWC/5.811E-2/                             EXA  520
      DO 2 I = 1,4                                                      EXA  530
2     AWCCON(I) = 0                                                     EXA  540
      DO 5 I=1,47                                                       EXA  550
    5 VX0(I)=VX2(I)                                                     EXA  560
CC    I1=1                                                              EXA  570
      NB=1                                                              EXA  580
      NE=46                                                             EXA  590
C                                                                       EXA  600
C     47 VALUE CALCULATED IN AEREXT                                     EXA  610
C                                                                       EXA  620
CC    IF (IHAZE.EQ.7) I1=2                                              EXA  630
CC    IF(IHAZE.EQ.3)  I1 = 2                                            EXA  640
      DO 185 M=1 ,4                                                     EXA  650
      IF(IREG(M) .NE. 0)        GO TO 185                               EXA  660
      ITA=ICH(M)                                                        EXA  670
      ITC=ICH(M)-7                                                      EXA  680
      ITAS = ITA                                                        EXA  690
      IF(IREGC(M) .NE. 0) GO TO 100                                     EXA  700
12    CONTINUE                                                          EXA  710
      WRH=W(15)                                                         EXA  720
      IF (ICH(M).EQ.6.AND.M.NE.1) WRH=70.                               EXA  730
C     THIS CODING  DOES NOT ALLOW TROP RH DEPENDENT  ABOVE EH(7,I)      EXA  740
C     DEFAULTS TO TROPOSPHERIC AT 70. PERCENT                           EXA  750
      DO 10 I=2,4                                                       EXA  760
      IF (WRH.LT.RHZONE(I)) GO TO 15                                    EXA  770
   10 CONTINUE                                                          EXA  780
      I=4                                                               EXA  790
   15 II=I-1                                                            EXA  800
      IF(WRH.GT.0.0.AND.WRH.LT.99.)X=ALOG(100.0-WRH)                    EXA  810
      X1=ALOG(100.0-RHZONE(II))                                         EXA  820
      X2=ALOG(100.0-RHZONE(I))                                          EXA  830
      IF (WRH.GE.99.0) X=X2                                             EXA  840
      IF (WRH.LE.0.0) X=X1                                              EXA  850
17    DO 80 N=NB,NE                                                     EXA  860
      ITA = ITAS                                                        EXA  870
      IF(ITA.EQ.3. AND. M.EQ.1) GO TO 18                                EXA  880
      ABSC(M,N)=0.                                                      EXA  890
      EXTC(M,N)=0.                                                      EXA  900
      ASYM(M,N)=0.                                                      EXA  910
      IF(ITA.GT.6) GO TO 45                                             EXA  920
      IF(ITA.LE.0) GO TO 80                                             EXA  930
18    IF(N.GE.41. AND. ITA.EQ.3) ITA = 4                                EXA  940
C     RH DEPENDENT AEROSOLS                                             EXA  950
      GO TO (20,20,22,25,30,35), ITA                                    EXA  960
   20 Y2=ALOG(RUREXT(N,I))                                              EXA  970
      Y1=ALOG(RUREXT(N,II))                                             EXA  980
      Z2=ALOG(RURABS(N,I))                                              EXA  990
      Z1=ALOG(RURABS(N,II))                                             EXA 1000
      A2=ALOG(RURSYM(N,I))                                              EXA 1010
      A1=ALOG(RURSYM(N,II))                                             EXA 1020
      E2=ALOG(ELWCR(I))                                                 EXA 1030
      E1=ALOG(ELWCR(II))                                                EXA 1040
      GO TO 40                                                          EXA 1050
  22  IF(M.GT.1) GO TO 25                                               EXA 1060
      A2=ALOG(OCNSYM(N,I))                                              EXA 1070
      A1=ALOG(OCNSYM(N,II))                                             EXA 1080
      A=A1+(A2-A1)*(X-X1)/(X2-X1)                                       EXA 1090
      ASYM(M,N)=EXP(A)                                                  EXA 1100
      E2=ALOG(ELWCM(I))                                                 EXA 1110
      E1=ALOG(ELWCM(II))                                                EXA 1120
C                                                                       EXA 1130
C     NAVY MARITIME AEROSOL CHANGES TO MARINE IN MICROWAVE              EXA 1140
C     NO NEED TO DEFINE EQUIVALENT WATER                                EXA 1150
C                                                                       EXA 1160
      GO TO 80                                                          EXA 1170
   25 Y2=ALOG(OCNEXT(N,I))                                              EXA 1180
      Y1=ALOG(OCNEXT(N,II))                                             EXA 1190
      Z2=ALOG(OCNABS(N,I))                                              EXA 1200
      Z1=ALOG(OCNABS(N,II))                                             EXA 1210
      A2=ALOG(OCNSYM(N,I))                                              EXA 1220
      A1=ALOG(OCNSYM(N,II))                                             EXA 1230
      E2=ALOG(ELWCM(I))                                                 EXA 1240
      E1=ALOG(ELWCM(II))                                                EXA 1250
      GO TO 40                                                          EXA 1260
   30 Y2=ALOG(URBEXT(N,I))                                              EXA 1270
      Y1=ALOG(URBEXT(N,II))                                             EXA 1280
      Z2=ALOG(URBABS(N,I))                                              EXA 1290
      Z1=ALOG(URBABS(N,II))                                             EXA 1300
      A2=ALOG(URBSYM(N,I))                                              EXA 1310
      A1=ALOG(URBSYM(N,II))                                             EXA 1320
      E2=ALOG(ELWCU(I))                                                 EXA 1330
      E1=ALOG(ELWCU(II))                                                EXA 1340
      GO TO 40                                                          EXA 1350
   35 Y2=ALOG(TROEXT(N,I))                                              EXA 1360
      Y1=ALOG(TROEXT(N,II))                                             EXA 1370
      Z2=ALOG(TROABS(N,I))                                              EXA 1380
      Z1=ALOG(TROABS(N,II))                                             EXA 1390
      A2=ALOG(TROSYM(N,I))                                              EXA 1400
      A1=ALOG(TROSYM(N,II))                                             EXA 1410
      E2=ALOG(ELWCT(I))                                                 EXA 1420
      E1=ALOG(ELWCT(II))                                                EXA 1430
   40 Y=Y1+(Y2-Y1)*(X-X1)/(X2-X1)                                       EXA 1440
      ZK=Z1+(Z2-Z1)*(X-X1)/(X2-X1)                                      EXA 1450
      A=A1+(A2-A1)*(X-X1)/(X2-X1)                                       EXA 1460
      ABSC(M,N)=EXP(ZK)                                                 EXA 1470
      EXTC(M,N)=EXP(Y)                                                  EXA 1480
      ASYM(M,N)=EXP(A)                                                  EXA 1490
      IF(N.EQ.1) EC=E1+(E2-E1)*(X-X1)/(X2-X1)                           EXA 1500
      IF(N.EQ.1) AWCCON(M)=EXP(EC)                                      EXA 1510
      GO TO 80                                                          EXA 1520
   45 IF (ITA.GT.19) GO TO 75                                           EXA 1530
      IF (ITC.LT.1) GO TO 80                                            EXA 1540
      GO TO (50,55,80,60,65,70,65,70,60,60,70,75), ITC                  EXA 1550
   50 ABSC(M,N)=FG1ABS(N)                                               EXA 1560
      EXTC(M,N)=FG1EXT(N)                                               EXA 1570
      ASYM(M,N)=FG1SYM(N)                                               EXA 1580
      IF(N.EQ.1) AWCCON(M)=AFLWC                                        EXA 1590
      GO TO 80                                                          EXA 1600
   55 ABSC(M,N)=FG2ABS(N)                                               EXA 1610
      EXTC(M,N)=FG2EXT(N)                                               EXA 1620
      ASYM(M,N)=FG2SYM(N)                                               EXA 1630
      IF(N.EQ.1) AWCCON(M)=RFLWC                                        EXA 1640
      GO TO 80                                                          EXA 1650
   60 ABSC(M,N)=BSTABS(N)                                               EXA 1660
      EXTC(M,N)=BSTEXT(N)                                               EXA 1670
      ASYM(M,N)=BSTSYM(N)                                               EXA 1680
      IF(N.EQ.1) AWCCON(M)=BSLWC                                        EXA 1690
      GO TO 80                                                          EXA 1700
   65 ABSC(M,N)=AVOABS(N)                                               EXA 1710
      EXTC(M,N)=AVOEXT(N)                                               EXA 1720
      ASYM(M,N)=AVOSYM(N)                                               EXA 1730
      IF(N.EQ.1) AWCCON(M)=AVLWC                                        EXA 1740
      GO TO 80                                                          EXA 1750
   70 ABSC(M,N)=FVOABS(N)                                               EXA 1760
      EXTC(M,N)=FVOEXT(N)                                               EXA 1770
      ASYM(M,N)=FVOSYM(N)                                               EXA 1780
      IF(N.EQ.1) AWCCON(M)=FVLWC                                        EXA 1790
      GO TO 80                                                          EXA 1800
   75 ABSC(M,N)=DMEABS(N)                                               EXA 1810
      EXTC(M,N)=DMEEXT(N)                                               EXA 1820
      ASYM(M,N)=DMESYM(N)                                               EXA 1830
      IF(N.EQ.1) AWCCON(M)=MDLWC                                        EXA 1840
   80 CONTINUE                                                          EXA 1850
      GO TO 185                                                         EXA 1860
100   CONTINUE                                                          EXA 1870
CCC                                                                     EXA 1880
CCC       SECTION TO LOAD EXTINCTION AND ABSORPTION COEFFICIENTS        EXA 1890
CCC       FOR CLOUD AND OR RAIN MODELS                                  EXA 1900
CCC                                                                     EXA 1910
      DO 150 N=NB,NE                                                    EXA 1920
      ABSC(M,N)=0.0                                                     EXA 1930
      EXTC(M,N)=0.0                                                     EXA 1940
      ASYM(M,N)=0.0                                                     EXA 1950
      IC=ICLD                                                           EXA 1960
      GO TO (125,130,135,140,145,135,145,145,125,125,125), IC           EXA 1970
125   ABSC(M,N)=CCUABS(N)                                               EXA 1980
      EXTC(M,N)=CCUEXT(N)                                               EXA 1990
      ASYM(M,N)=CCUSYM(N)                                               EXA 2000
      IF(N.EQ.1) AWCCON(M)=CULWC                                        EXA 2010
      GO TO 150                                                         EXA 2020
130   ABSC(M,N)=CALABS(N)                                               EXA 2030
      EXTC(M,N)=CALEXT(N)                                               EXA 2040
      ASYM(M,N)=CALSYM(N)                                               EXA 2050
      IF(N.EQ.1) AWCCON(M)=ASLWC                                        EXA 2060
      GO TO 150                                                         EXA 2070
135   ABSC(M,N)=CSTABS(N)                                               EXA 2080
      EXTC(M,N)=CSTEXT(N)                                               EXA 2090
      ASYM(M,N)=CSTSYM(N)                                               EXA 2100
      IF(N.EQ.1) AWCCON(M)=STLWC                                        EXA 2110
      GO TO 150                                                         EXA 2120
140   ABSC(M,N)=CSCABS(N)                                               EXA 2130
      EXTC(M,N)=CSCEXT(N)                                               EXA 2140
      ASYM(M,N)=CSCSYM(N)                                               EXA 2150
      IF(N.EQ.1) AWCCON(M)=SCLWC                                        EXA 2160
      GO TO 150                                                         EXA 2170
145   ABSC(M,N)=CNIABS(N)                                               EXA 2180
      EXTC(M,N)=CNIEXT(N)                                               EXA 2190
      ASYM(M,N)=CNISYM(N)                                               EXA 2200
      IF(N.EQ.1) AWCCON(M)=SNLWC                                        EXA 2210
150   CONTINUE                                                          EXA 2220
185   CONTINUE                                                          EXA 2230
      DO 200 N=1,47                                                     EXA 2240
      ABSC(5,N)=0.                                                      EXA 2250
      EXTC(5,N)=0.                                                      EXA 2260
      ASYM(5,N)=0.                                                      EXA 2270
      AWCCON(5)=0.                                                      EXA 2280
      IF(ICLD .EQ. 18) THEN                                             EXA 2290
           EXTC(5,N)= CI32XT(N)                                         EXA 2300
           ABSC(5,N)= CI32AB(N)                                         EXA 2310
           ASYM(5,N)= CI32G(N)                                          EXA 2320
           AWCCON(5)=3.446E-3                                           EXA 2330
      ENDIF                                                             EXA 2340
      IF(ICLD .EQ. 19) THEN                                             EXA 2350
           EXTC(5,N)= CIR2XT(N)                                         EXA 2360
           ABSC(5,N)= CIR2AB(N)                                         EXA 2370
           ASYM(5,N)= CIR2G(N)                                          EXA 2380
           AWCCON(5)=5.811E-2                                           EXA 2390
      ENDIF                                                             EXA 2400
200   CONTINUE                                                          EXA 2410
      RETURN                                                            EXA 2420
C                                                                       EXA 2430
      END                                                               EXA 2440
      SUBROUTINE EXPINT(X,X1,X2,A)                                      EXP  100
C     EXPONENTIAL INTERPOLATION                                         EXP  110
      IF(X1.EQ.0.0 .OR. X2.EQ.0.0)  GO TO 100                           EXP  120
      X = X1*(X2/X1)**A                                                 EXP  130
      RETURN                                                            EXP  140
  100 X = X1+(X2-X1)*A                                                  EXP  150
      RETURN                                                            EXP  160
      END                                                               EXP  170
      BLOCK DATA EXTDTA                                                 EXD  100
C>    BLOCK DATA                                                        EXD  110
CCC                                                                     EXD  120
CCC   ALTITUDE REGIONS FOR AEROSOL EXTINCTION COEFFICIENTS              EXD  130
CCC                                                                     EXD  140
CCC                                                                     EXD  150
CCC         0-2KM                                                       EXD  160
CCC           RUREXT=RURAL EXTINCTION   RURABS=RURAL ABSORPTION         EXD  170
CCC           RURSYM=RURAL ASYMMETRY FACTORS                            EXD  180
CCC           URBEXT=URBAN EXTINCTION   URBABS=URBAN ABSORPTION         EXD  190
CCC           URBSYM=URBAN ASYMMETRY FACTORS                            EXD  200
CCC           OCNEXT=MARITIME EXTINCTION  OCNABS=MARITIME ABSORPTION    EXD  210
CCC           OCNSYM=MARITIME ASYMMETRY FACTORS                         EXD  220
CCC           TROEXT=TROPSPHER EXTINCTION  TROABS=TROPOSPHER ABSORPTION EXD  230
CCC           TROSYM=TROPSPHERIC ASYMMETRY FACTORS                      EXD  240
CCC           FG1EXT=FOG1 .2KM VIS EXTINCTION  FG1ABS=FOG1 ABSORPTION   EXD  250
CCC           FG1SYM=FOG1 ASYMMETRY FACTORS                             EXD  260
CCC           FG2EXT=FOG2 .5KM VIS EXTINCTION  FG2ABS=FOG2 ABSORPTION   EXD  270
CCC           FG2SYM=FOG2 ASYMMETRY FACTORS                             EXD  280
CCC         >2-10KM                                                     EXD  290
CCC           TROEXT=TROPOSPHER EXTINCTION  TROABS=TROPOSPHER ABSORPTIONEXD  300
CCC           TROSYM=TROPOSPHERIC ASYMMETRY FACTORS                     EXD  310
CCC         >10-30KM                                                    EXD  320
CCC           BSTEXT=BACKGROUND STRATOSPHERIC EXTINCTION                EXD  330
CCC           BSTABS=BACKGROUND STRATOSPHERIC ABSORPTION                EXD  340
CCC           BSTSYM=BACKGROUND STRATOSPHERIC ASYMMETRY FACTORS         EXD  350
CCC           AVOEXT=AGED VOLCANIC EXTINCTION                           EXD  360
CCC           AVOABS=AGED VOLCANIC ABSORPTION                           EXD  370
CCC           AVOSYM=AGED VOLCANIC ASYMMETRY FACTORS                    EXD  380
CCC           FVOEXT=FRESH VOLCANIC EXTINCTION                          EXD  390
CCC           FVOABS=FRESH VOLCANIC ABSORPTION                          EXD  400
CCC           FVOSYM=FRESH VOLCANIC ASYMMETRY FACTORS                   EXD  410
CCC         >30-100KM                                                   EXD  420
CCC           DMEEXT=METEORIC DUST EXTINCTION                           EXD  430
CCC           DMEABS=METEORIC DUST ABSORPTION                           EXD  440
CCC           DMESYM=METEORIC DUST ASYMMETRY FACTORS                    EXD  450
C                                                                       EXD  460
C     AEROSOL EXTINCTION AND ABSORPTION DATA                            EXD  470
C                                                                       EXD  480
C     MODIFIED TO INCLUDE ASYMMETRY DATA - JAN 1986 (A.E.R. INC.)       EXD  490
C                                                                       EXD  500
C     COMMON /EXTD  /VX2(47),RUREXT(47,4),RURABS(47,4),URBEXT(47,4),    EXD  510
C    1URBABS(47,4),OCNEXT(47,4),OCNABS(47,4),TROEXT(47,4),TROABS(47,4), EXD  520
C    2FG1EXT(47),FG1ABS(47),FG2EXT(47),FG2ABS(47),                      EXD  530
C    3   BSTEXT(47),BSTABS(47),AVOEXT(47),AVOABS(47),FVOEXT(47)         EXD  540
C    4),FVOABS(47),DMEEXT(47),DMEABS(47),                               EXD  550
C                                                                       EXD  560
C                                                                       EXD  570
      COMMON /EXTD  / VX2(47),RURE1(47),RURE2(47),RURE3(47),RURE4(47),  EXD  580
     X RURA1(47),RURA2(47),RURA3(47),RURA4(47),                         EXD  590
     X RURG1(47),RURG2(47),RURG3(47),RURG4(47),                         EXD  600
     X URBE1(47),URBE2(47),URBE3(47),URBE4(47),                         EXD  610
     X URBA1(47),URBA2(47),URBA3(47),URBA4(47),                         EXD  620
     X URBG1(47),URBG2(47),URBG3(47),URBG4(47),                         EXD  630
     X OCNE1(47),OCNE2(47),OCNE3(47),OCNE4(47),                         EXD  640
     X OCNA1(47),OCNA2(47),OCNA3(47),OCNA4(47),                         EXD  650
     X OCNG1(47),OCNG2(47),OCNG3(47),OCNG4(47),                         EXD  660
     X TROE1(47),TROE2(47),TROE3(47),TROE4(47),                         EXD  670
     X TROA1(47),TROA2(47),TROA3(47),TROA4(47),                         EXD  680
     X TROG1(47),TROG2(47),TROG3(47),TROG4(47),                         EXD  690
     2 FG1EXT(47),FG1ABS(47),FG1SYM(47),FG2EXT(47),FG2ABS(47),          EXD  700
     3 FG2SYM(47),BSTEXT(47),BSTABS(47),BSTSYM(47),AVOEXT(47),          EXD  710
     4 AVOABS(47),AVOSYM(47),FVOEXT(47),FVOABS(47),FVOSYM(47),          EXD  720
     5 DMEEXT(47),DMEABS(47),DMESYM(47),CCUEXT(47),CCUABS(47),          EXD  730
     6 CCUSYM(47),CALEXT(47),CALABS(47),CALSYM(47),CSTEXT(47),          EXD  740
     7 CSTABS(47),CSTSYM(47),CSCEXT(47),CSCABS(47),CSCSYM(47),          EXD  750
     8 CNIEXT(47),CNIABS(47),CNISYM(47)                                 EXD  760
C                                                                       EXD  770
C         CI64--    STANDARD  CIRRUS  CLOUD  MODEL                      EXD  780
C              ICE 64 MICRON MODE RADIUS CIRRUS CLOUD MODEL             EXD  790
C                                                                       EXD  800
C         CIR4--    OPTICALLY  THIN  CIRRUS  MODEL                      EXD  810
C              ICE  4 MICRON MODE RADIUS CIRRUS CLOUD MODEL             EXD  820
C                                                                       EXD  830
       COMMON/CIRR/ CI64XT(47),CI64AB(47),CI64G(47),                    EXD  840
     B              CIR4XT(47),CIR4AB(47),CIR4G(47)                     EXD  850
      DATA VX2 /                                                        EXD  860
     *   .2000,   .3000,   .3371,   .5500,   .6943,  1.0600,  1.5360,   EXD  870
     *  2.0000,  2.2500,  2.5000,  2.7000,  3.0000,  3.3923,  3.7500,   EXD  880
     *  4.5000,  5.0000,  5.5000,  6.0000,  6.2000,  6.5000,  7.2000,   EXD  890
     *  7.9000,  8.2000,  8.7000,  9.0000,  9.2000, 10.0000, 10.5910,   EXD  900
     * 11.0000, 11.5000, 12.5000, 14.8000, 15.0000, 16.4000, 17.2000,   EXD  910
     * 18.5000, 21.3000, 25.0000, 30.0000, 40.0000, 50.0000, 60.0000,   EXD  920
     * 80.0000, 100.000, 150.000, 200.000, 300.000/                     EXD  930
      DATA RURE1 /                                                      EXD  940
     1 2.09291, 1.74582, 1.60500, 1.00000,  .75203,  .41943,  .24070,   EXD  950
     2  .14709,  .13304,  .12234,  .13247,  .11196,  .10437,  .09956,   EXD  960
     3  .09190,  .08449,  .07861,  .07025,  .07089,  .07196,  .07791,   EXD  970
     4  .04481,  .04399,  .12184,  .12658,  .12829,  .09152,  .08076,   EXD  980
     5  .07456,  .06880,  .06032,  .04949,  .05854,  .06000,  .06962,   EXD  990
     6  .05722,  .06051,  .05177,  .04589,  .04304,                     EXD 1000
     7  .03582,  .03155,  .02018,  .01469,  .00798,  .00551, 0./        EXD 1010
      DATA RURE2 /                                                      EXD 1020
     1 2.09544, 1.74165, 1.59981, 1.00000,  .75316,  .42171,  .24323,   EXD 1030
     2  .15108,  .13608,  .12430,  .13222,  .13823,  .11076,  .10323,   EXD 1040
     3  .09475,  .08728,  .08076,  .07639,  .07797,  .07576,  .07943,   EXD 1050
     4  .04899,  .04525,  .12165,  .12741,  .12778,  .09032,  .07962,   EXD 1060
     5  .07380,  .06880,  .06329,  .05791,  .06646,  .06639,  .07443,   EXD 1070
     6  .06304,  .06443,  .05538,  .04867,  .04519,                     EXD 1080
     7  .03821,  .03374,  .02173,  .01587,  .00862,  .00594, 0./        EXD 1090
      DATA RURE3 /                                                      EXD 1100
     1 2.07082, 1.71456, 1.57962, 1.00000,  .76095,  .43228,  .25348,   EXD 1110
     2  .16456,  .14677,  .13234,  .13405,  .20316,  .12873,  .11506,   EXD 1120
     3  .10481,  .09709,  .08918,  .09380,  .09709,  .08791,  .08601,   EXD 1130
     4  .06247,  .05601,  .11905,  .12595,  .12348,  .08741,  .07703,   EXD 1140
     5  .07266,  .07044,  .07443,  .08146,  .08810,  .08563,  .08962,   EXD 1150
     6  .08051,  .07677,  .06658,  .05747,  .05184,                     EXD 1160
     7  .04572,  .04074,  .02689,  .01981,  .01084,  .00714, 0./        EXD 1170
      DATA RURE4 /                                                      EXD 1180
     1 1.66076, 1.47886, 1.40139, 1.00000,  .80652,  .50595,  .32259,   EXD 1190
     2  .23468,  .20772,  .18532,  .17348,  .35114,  .20006,  .17386,   EXD 1200
     3  .16139,  .15424,  .14557,  .16215,  .16766,  .14994,  .14032,   EXD 1210
     4  .12968,  .12601,  .13551,  .13582,  .13228,  .11070,  .09994,   EXD 1220
     5  .09873,  .10418,  .13241,  .15924,  .16139,  .15949,  .15778,   EXD 1230
     6  .15184,  .13848,  .12563,  .11076,  .09601,                     EXD 1240
     7  .09312,  .08720,  .06644,  .05264,  .03181,  .02196, 0.0/       EXD 1250
      DATA RURA1 /                                                      EXD 1260
     1  .67196,  .11937,  .08506,  .05930,  .05152,  .05816,  .05006,   EXD 1270
     2  .01968,  .02070,  .02101,  .05652,  .02785,  .01316,  .00867,   EXD 1280
     3  .01462,  .01310,  .01627,  .02013,  .02165,  .02367,  .03538,   EXD 1290
     4  .02823,  .03962,  .06778,  .07285,  .08120,  .04032,  .03177,   EXD 1300
     5  .02557,  .02342,  .02177,  .02627,  .03943,  .03114,  .03696,   EXD 1310
     6  .02956,  .03500,  .03241,  .03297,  .03380,                     EXD 1320
     7  .03170,  .02794,  .01769,  .01305,  .00730,  .00518, 0.0/       EXD 1330
      DATA RURA2 /                                                      EXD 1340
     1  .62968,  .10816,  .07671,  .05380,  .04684,  .05335,  .04614,   EXD 1350
     2  .01829,  .01899,  .01962,  .05525,  .06816,  .01652,  .00867,   EXD 1360
     3  .01544,  .01373,  .01627,  .02892,  .02829,  .02532,  .03487,   EXD 1370
     4  .02835,  .03854,  .06684,  .07272,  .08038,  .03987,  .03247,   EXD 1380
     5  .02816,  .02816,  .03101,  .03741,  .04829,  .04032,  .04399,   EXD 1390
     6  .03734,  .03956,  .03601,  .03525,  .03563,                     EXD 1400
     7 .03357,  .02965,  .01887,  .01395,  .00782,  .00555, 0.0/        EXD 1410
      DATA RURA3 /                                                      EXD 1420
     1  .51899,  .08278,  .05816,  .04082,  .03570,  .04158,  .03620,   EXD 1430
     2  .01513,  .01481,  .01633,  .05278,  .13690,  .02494,  .00886,   EXD 1440
     3  .01804,  .01582,  .01677,  .04816,  .04367,  .03013,  .03443,   EXD 1450
     4  .02930,  .03677,  .06209,  .06911,  .07475,  .03892,  .03494,   EXD 1460
     5  .03513,  .03968,  .05152,  .06241,  .06937,  .06203,  .06215,   EXD 1470
     6  .05614,  .05209,  .04608,  .04196,  .04095,                     EXD 1480
     7  .03916,  .03486,  .02262,  .01686,  .00951,  .00674, 0.0/       EXD 1490
      DATA RURA4 /                                                      EXD 1500
     1  .21943,  .02848,  .01943,  .01342,  .01171,  .01437,  .01323,   EXD 1510
     2  .01152,  .00696,  .01329,  .06108,  .24690,  .05323,  .01430,   EXD 1520
     3  .03361,  .02949,  .02652,  .09437,  .08506,  .05348,  .04627,   EXD 1530
     4  .04380,  .04557,  .05380,  .05715,  .05899,  .04861,  .05253,   EXD 1540
     5  .06171,  .07437,  .10152,  .12019,  .12190,  .11734,  .11411,   EXD 1550
     6  .10766,  .09487,  .08430,  .07348,  .06861,                     EXD 1560
     7  .06936,  .06458,  .04735,  .03761,  .02313,  .01668, 0.0/       EXD 1570
      DATA RURG1 /                                                      EXD 1580
     1  .7581,   .6785,   .6712,   .6479,   .6342,   .6176,   .6334,    EXD 1590
     2  .7063,   .7271,   .7463,   .7788,   .7707,   .7424,   .7312,    EXD 1600
     3  .7442,   .7516,   .7662,   .7940,   .7886,   .7797,   .7664,    EXD 1610
     4  .8525,   .8700,   .5846,   .5570,   .5992,   .6159,   .6271,    EXD 1620
     5  .6257,   .6374,   .6546,   .6861,   .6859,   .6120,   .5570,    EXD 1630
     6  .5813,   .5341,   .5284,   .5137,   .4348,   .4223,   .3775,    EXD 1640
     7  .3435,   .3182,   .2791,   .2494,   .0000/                      EXD 1650
      DATA RURG2 /                                                      EXD 1660
     1  .7632,   .6928,   .6865,   .6638,   .6498,   .6314,   .6440,    EXD 1670
     2  .7098,   .7303,   .7522,   .7903,   .7804,   .7380,   .7319,    EXD 1680
     3  .7508,   .7584,   .7738,   .8071,   .7929,   .7843,   .7747,    EXD 1690
     4  .8507,   .8750,   .6112,   .5851,   .6272,   .6466,   .6616,    EXD 1700
     5  .6653,   .6798,   .6965,   .7026,   .6960,   .6360,   .5848,    EXD 1710
     6  .6033,   .5547,   .5445,   .5274,   .4518,   .4318,   .3863,    EXD 1720
     7  .3516,   .3257,   .2853,   .2548,   .0000/                      EXD 1730
      DATA RURG3 /                                                      EXD 1740
     1  .7725,   .7240,   .7197,   .6997,   .6858,   .6650,   .6702,    EXD 1750
     2  .7181,   .7378,   .7653,   .8168,   .7661,   .7286,   .7336,    EXD 1760
     3  .7654,   .7735,   .7910,   .8303,   .8025,   .7957,   .7946,    EXD 1770
     4  .8468,   .8734,   .6831,   .6619,   .6994,   .7250,   .7449,    EXD 1780
     5  .7547,   .7665,   .7644,   .7265,   .7170,   .6769,   .6409,    EXD 1790
     6  .6442,   .6031,   .5854,   .5646,   .4977,   .4602,   .4127,    EXD 1800
     7  .3751,   .3476,   .3048,   .2721,   .0000/                      EXD 1810
      DATA RURG4 /                                                      EXD 1820
     1  .7778,   .7793,   .7786,   .7717,   .7628,   .7444,   .7365,    EXD 1830
     2  .7491,   .7609,   .7921,   .8688,   .7537,   .7294,   .7413,    EXD 1840
     3  .7928,   .8016,   .8225,   .8761,   .8359,   .8285,   .8385,    EXD 1850
     4  .8559,   .8654,   .8414,   .8415,   .8527,   .8740,   .8903,    EXD 1860
     5  .8952,   .8923,   .8611,   .8033,   .7989,   .7758,   .7632,    EXD 1870
     6  .7508,   .7314,   .7091,   .6867,   .6419,   .5790,   .5259,    EXD 1880
     7  .4749,   .4415,   .3886,   .3489,   .0000/                      EXD 1890
      DATA URBE1 /                                                      EXD 1900
     1 1.88816, 1.63316, 1.51867, 1.00000,  .77785,  .47095,  .30006,   EXD 1910
     2  .21392,  .19405,  .17886,  .18127,  .16133,  .14785,  .14000,   EXD 1920
     3  .12715,  .11880,  .11234,  .10601,  .10500,  .10361,  .10342,   EXD 1930
     4  .08766,  .08652,  .11937,  .12139,  .12297,  .09797,  .09057,   EXD 1940
     5  .08595,  .08196,  .07563,  .06696,  .07209,  .06842,  .07177,   EXD 1950
     6  .06354,  .06177,  .05373,  .04728,  .04051,                     EXD 1960
     7  .03154,  .02771,  .01759,  .01278,  .00693,  .00480, 0.0/       EXD 1970
      DATA URBE2 /                                                      EXD 1980
     1 1.95582, 1.64994, 1.53070, 1.00000,  .77614,  .46639,  .29487,   EXD 1990
     2  .21051,  .18943,  .17285,  .17209,  .21418,  .15354,  .14051,   EXD 2000
     3  .12728,  .11861,  .11089,  .11329,  .11323,  .10563,  .10247,   EXD 2010
     4  .08696,  .08361,  .12013,  .12418,  .12304,  .09614,  .08842,   EXD 2020
     5  .08487,  .08285,  .08361,  .08430,  .08880,  .08449,  .08601,   EXD 2030
     6  .07835,  .07323,  .06367,  .05500,  .04747,                     EXD 2040
     7  .03901,  .03454,  .02240,  .01638,  .00891,  .00612, 0.0/       EXD 2050
      DATA URBE3 /                                                      EXD 2060
     1 1.96430, 1.64032, 1.52392, 1.00000,  .77709,  .46253,  .28690,   EXD 2070
     2  .20310,  .17981,  .16101,  .15614,  .26475,  .15456,  .13563,   EXD 2080
     3  .12215,  .11361,  .10500,  .11715,  .11753,  .10392,  .09766,   EXD 2090
     4  .08443,  .08057,  .10943,  .11342,  .11063,  .08703,  .08025,   EXD 2100
     5  .07886,  .08032,  .09101,  .10070,  .10386,  .09943,  .09886,   EXD 2110
     6  .09152,  .08247,  .07152,  .06089,  .05253,                     EXD 2120
     7  .04582,  .04091,  .02717,  .02008,  .01103,  .00754, 0.0/       EXD 2130
      DATA URBE4 /                                                      EXD 2140
     1 1.41266, 1.33816, 1.29114, 1.00000,  .83646,  .55025,  .35342,   EXD 2150
     2  .25285,  .21576,  .18310,  .16215,  .37854,  .20494,  .16665,   EXD 2160
     3  .14778,  .13892,  .12943,  .15525,  .15709,  .13513,  .12481,   EXD 2170
     4  .11759,  .11494,  .11487,  .11329,  .11108,  .09911,  .09209,   EXD 2180
     5  .09342,  .10120,  .13177,  .15696,  .15766,  .15513,  .15203,   EXD 2190
     6  .14532,  .13038,  .11785,  .10411,  .09101,                     EXD 2200
     7  .08907,  .08399,  .06579,  .05337,  .03372,  .02379, 0.0/       EXD 2210
      DATA URBA1 /                                                      EXD 2220
     1  .78437,  .58975,  .54285,  .36184,  .29222,  .20886,  .15658,   EXD 2230
     2  .12329,  .11462,  .10747,  .11797,  .10025,  .08759,  .08184,   EXD 2240
     3  .07506,  .07006,  .06741,  .06601,  .06544,  .06449,  .06665,   EXD 2250
     4  .06278,  .06949,  .07316,  .07462,  .08101,  .05753,  .05272,   EXD 2260
     5  .04899,  .04734,  .04494,  .04443,  .05133,  .04348,  .04443,   EXD 2270
     6  .03994,  .03981,  .03633,  .03468,  .03146,                     EXD 2280
     7  .02809,  .02471,  .01556,  .01145,  .00639,  .00454, 0.0/       EXD 2290
      DATA URBA2 /                                                      EXD 2300
     1  .69032,  .49367,  .45165,  .29741,  .24070,  .17399,  .13146,   EXD 2310
     2  .10354,  .09589,  .09025,  .10411,  .15101,  .07880,  .06949,   EXD 2320
     3  .06570,  .06095,  .05829,  .07171,  .06797,  .05975,  .06013,   EXD 2330
     4  .05589,  .06051,  .07139,  .07494,  .07956,  .05525,  .05184,   EXD 2340
     5  .05089,  .05291,  .05886,  .06380,  .06880,  .06127,  .06019,   EXD 2350
     6  .05525,  .05070,  .04500,  .04076,  .03741,                     EXD 2360
     7  .03400,  .03010,  .01926,  .01427,  .00800,  .00567, 0.0/       EXD 2370
      DATA URBA3 /                                                      EXD 2380
     1  .54848,  .37101,  .33734,  .21949,  .17785,  .12968,  .09854,   EXD 2390
     2  .07804,  .07165,  .06791,  .08563,  .19639,  .06722,  .05316,   EXD 2400
     3  .05316,  .04886,  .04620,  .07570,  .06899,  .05291,  .05101,   EXD 2410
     4  .04734,  .05025,  .06171,  .06570,  .06854,  .04892,  .04797,   EXD 2420
     5  .05057,  .05665,  .07127,  .08095,  .08411,  .07728,  .07475,   EXD 2430
     6  .06886,  .06019,  .05222,  .04538,  .04171,                     EXD 2440
     7  .03911,  .03486,  .02271,  .01697,  .00961,  .00681, 0.0/       EXD 2450
      DATA URBA4 /                                                      EXD 2460
     1  .15975,  .10000,  .09013,  .05785,  .04671,  .03424,  .02633,   EXD 2470
     2  .02525,  .01975,  .02354,  .06241,  .26690,  .05810,  .02285,   EXD 2480
     3  .03810,  .03386,  .03044,  .09627,  .08557,  .05405,  .04576,   EXD 2490
     4  .04392,  .04424,  .04671,  .04791,  .04861,  .04684,  .05177,   EXD 2500
     5  .06158,  .07475,  .10342,  .12146,  .12177,  .11734,  .11335,   EXD 2510
     6  .10608,  .09171,  .08063,  .06968,  .06475,                     EXD 2520
     7  .06559,  .06131,  .04591,  .03714,  .02365,  .01734, 0.0/       EXD 2530
      DATA URBG1 /                                                      EXD 2540
     1  .7785,   .7182,   .7067,   .6617,   .6413,   .6166,   .6287,    EXD 2550
     2  .6883,   .7070,   .7243,   .7370,   .7446,   .7391,   .7371,    EXD 2560
     3  .7414,   .7435,   .7466,   .7543,   .7498,   .7424,   .7270,    EXD 2570
     4  .7674,   .7850,   .5880,   .5616,   .5901,   .6159,   .6238,    EXD 2580
     5  .6240,   .6281,   .6306,   .6298,   .6252,   .5785,   .5378,    EXD 2590
     6  .5512,   .5072,   .4930,   .4709,   .4009,   .4110,   .3672,    EXD 2600
     7  .3344,   .3093,   .2717,   .2426,   .0000/                      EXD 2610
      DATA URBG2 /                                                      EXD 2620
     1  .7906,   .7476,   .7385,   .6998,   .6803,   .6536,   .6590,    EXD 2630
     2  .7066,   .7258,   .7484,   .7769,   .7405,   .7351,   .7459,    EXD 2640
     3  .7625,   .7673,   .7759,   .7910,   .7732,   .7703,   .7644,    EXD 2650
     4  .7966,   .8142,   .6635,   .6428,   .6700,   .6935,   .7050,    EXD 2660
     5  .7092,   .7145,   .7094,   .6762,   .6684,   .6316,   .5997,    EXD 2670
     6  .6013,   .5625,   .5433,   .5198,   .4552,   .4387,   .3928,    EXD 2680
     7  .3575,   .3310,   .2899,   .2588,   .0000/                      EXD 2690
      DATA URBG3 /                                                      EXD 2700
     1  .7949,   .7713,   .7650,   .7342,   .7162,   .6873,   .6820,    EXD 2710
     2  .7131,   .7312,   .7583,   .8030,   .7171,   .7185,   .7400,    EXD 2720
     3  .7698,   .7778,   .7923,   .8142,   .7864,   .7867,   .7891,    EXD 2730
     4  .8147,   .8298,   .7276,   .7136,   .7361,   .7590,   .7729,    EXD 2740
     5  .7783,   .7808,   .7624,   .7094,   .7022,   .6714,   .6480,    EXD 2750
     6  .6417,   .6104,   .5887,   .5651,   .5058,   .4692,   .4212,    EXD 2760
     7  .3825,   .3549,   .3112,   .2778,   .0000/                      EXD 2770
      DATA URBG4 /                                                      EXD 2780
     1  .7814,   .7993,   .7995,   .7948,   .7870,   .7682,   .7751,    EXD 2790
     2  .7501,   .7565,   .7809,   .8516,   .7137,   .7039,   .7241,    EXD 2800
     3  .7728,   .7846,   .8093,   .8576,   .8125,   .8140,   .8304,    EXD 2810
     4  .8472,   .8549,   .8525,   .8569,   .8640,   .8853,   .9017,    EXD 2820
     5  .9061,   .9021,   .8685,   .8126,   .8091,   .7897,   .7802,    EXD 2830
     6  .7691,   .7550,   .7353,   .7146,   .6754,   .6134,   .5601,    EXD 2840
     7  .5056,   .4701,   .4134,   .3714,   .0000/                      EXD 2850
      DATA OCNE1 /                                                      EXD 2860
     1 1.47576, 1.32614, 1.26171, 1.00000,  .88133,  .70297,  .56487,   EXD 2870
     2  .46006,  .42044,  .38310,  .35076,  .42266,  .32278,  .28810,   EXD 2880
     3  .24905,  .21184,  .16734,  .14791,  .21532,  .15076,  .12057,   EXD 2890
     4  .10038,  .10703,  .15070,  .15665,  .14639,  .10228,  .08367,   EXD 2900
     5  .07373,  .06829,  .05044,  .04373,  .04962,  .06158,  .07703,   EXD 2910
     6  .07234,  .06297,  .05481,  .05329,  .08741,                     EXD 2920
     7  .04608,  .03959,  .02382,  .01712,  .00936,  .00665, 0.0/       EXD 2930
      DATA OCNE2 /                                                      EXD 2940
     1 1.36924, 1.25443, 1.20835, 1.00000,  .91367,  .77089,  .64987,   EXD 2950
     2  .54886,  .50247,  .45038,  .38209,  .50589,  .43766,  .38076,   EXD 2960
     3  .31658,  .27475,  .22215,  .21019,  .27570,  .21057,  .16949,   EXD 2970
     4  .14209,  .14215,  .16956,  .17082,  .16025,  .11665,  .09759,   EXD 2980
     5  .09215,  .09373,  .10532,  .12570,  .13000,  .13633,  .14291,   EXD 2990
     6  .13506,  .11475,  .09658,  .08291,  .10348,                     EXD 3000
     7  .06693,  .05786,  .03522,  .02519,  .01358,  .00954, 0.0/       EXD 3010
      DATA OCNE3 /                                                      EXD 3020
     1 1.22259, 1.14627, 1.11842, 1.00000,  .94766,  .87538,  .80418,   EXD 3030
     2  .72930,  .68582,  .62165,  .49962,  .67949,  .66468,  .59253,   EXD 3040
     3  .49551,  .44671,  .37886,  .35924,  .43367,  .37019,  .30842,   EXD 3050
     4  .26437,  .25228,  .24905,  .23975,  .22766,  .17804,  .15316,   EXD 3060
     5  .15373,  .16791,  .22361,  .28348,  .28677,  .29082,  .29038,   EXD 3070
     6  .27810,  .23867,  .20209,  .16430,  .14943,                     EXD 3080
     7  .12693,  .11177,  .07095,  .05084,  .02690,  .01838, 0.0/       EXD 3090
      DATA OCNE4 /                                                      EXD 3100
     1 1.09133, 1.06601, 1.05620, 1.00000,  .97506,  .94791,  .94203,   EXD 3110
     2  .93671,  .92867,  .90411,  .80253,  .89222,  .94462,  .92146,   EXD 3120
     3  .85797,  .82595,  .76747,  .68646,  .78209,  .75266,  .68658,   EXD 3130
     4  .62722,  .60228,  .56335,  .53728,  .51861,  .43449,  .37196,   EXD 3140
     5  .35899,  .37316,  .46854,  .58234,  .58690,  .60348,  .60563,   EXD 3150
     6  .60000,  .55392,  .50367,  .43576,  .35949,                     EXD 3160
     7  .34729,  .32254,  .23600,  .17953,  .10071,  .06714, 0.0/       EXD 3170
      DATA OCNA1 /                                                      EXD 3180
     1  .30987,  .04354,  .02880,  .01797,  .01468,  .01766,  .01582,   EXD 3190
     2  .00816,  .01146,  .01677,  .03310,  .03380,  .00715,  .00443,   EXD 3200
     3  .00500,  .00601,  .00753,  .01595,  .02943,  .00994,  .01367,   EXD 3210
     4  .01671,  .02538,  .03481,  .03405,  .03601,  .01608,  .01310,   EXD 3220
     5  .01152,  .01082,  .01070,  .01563,  .02063,  .03171,  .03810,   EXD 3230
     6  .03741,  .03804,  .03759,  .04209,  .07892,                     EXD 3240
     7  .04347,  .03754,  .02269,  .01649,  .00917,  .00657, 0.0/       EXD 3250
      DATA OCNA2 /                                                      EXD 3260
     1  .23367,  .03127,  .02070,  .01297,  .01063,  .01285,  .01190,   EXD 3270
     2  .00937,  .00911,  .01576,  .05576,  .23487,  .03949,  .00905,   EXD 3280
     3  .02057,  .01816,  .01665,  .08025,  .08044,  .03677,  .03139,   EXD 3290
     4  .03190,  .03766,  .04532,  .04544,  .04715,  .03405,  .03614,   EXD 3300
     5  .04329,  .05424,  .07823,  .09728,  .10057,  .10247,  .10222,   EXD 3310
     6  .09551,  .08241,  .07158,  .06506,  .09203,                     EXD 3320
     7  .06133,  .05332,  .03258,  .02366,  .01308,  .00932, 0.0/       EXD 3330
      DATA OCNA3 /                                                      EXD 3340
     1  .13025,  .01557,  .01013,  .00646,  .00532,  .00665,  .00722,   EXD 3350
     2  .01335,  .00728,  .01810,  .09835,  .37329,  .09703,  .01968,   EXD 3360
     3  .05114,  .04342,  .03709,  .17456,  .16468,  .08785,  .06880,   EXD 3370
     4  .06589,  .06791,  .07247,  .07329,  .07449,  .07025,  .07962,   EXD 3380
     5  .09899,  .12481,  .17867,  .22019,  .22228,  .22051,  .21595,   EXD 3390
     6  .20335,  .17278,  .14677,  .12171,  .12430,                     EXD 3400
     7  .10890,  .09644,  .06106,  .04465,  .02457,  .01732, 0.0/       EXD 3410
      DATA OCNA4 /                                                      EXD 3420
     1  .03506,  .00323,  .00215,  .00139,  .00114,  .00171,  .00532,   EXD 3430
     2  .03082,  .01101,  .03741,  .20101,  .47608,  .21165,  .05234,   EXD 3440
     3  .12886,  .11215,  .09684,  .32810,  .31778,  .20513,  .16658,   EXD 3450
     4  .15956,  .15842,  .15905,  .15968,  .16051,  .16506,  .18323,   EXD 3460
     5  .21709,  .25652,  .33222,  .39639,  .39854,  .40297,  .40025,   EXD 3470
     6  .39025,  .35468,  .32006,  .27715,  .25348,                     EXD 3480
     7  .25632,  .23876,  .17092,  .13198,  .07692,  .05407, 0.0/       EXD 3490
      DATA OCNG1 /                                                      EXD 3500
     1  .7516,   .6960,   .6920,   .6756,   .6767,   .6844,   .6936,    EXD 3510
     2  .7055,   .7110,   .7177,   .7367,   .6287,   .6779,   .6784,    EXD 3520
     3  .6599,   .6659,   .6859,   .6887,   .6095,   .6558,   .6665,    EXD 3530
     4  .6697,   .6594,   .5851,   .5644,   .5760,   .5903,   .5991,    EXD 3540
     5  .6024,   .5979,   .6087,   .5837,   .5763,   .5348,   .4955,    EXD 3550
     6  .4821,   .4635,   .4373,   .3944,   .2344,   .2754,   .2447,    EXD 3560
     7  .2266,   .2088,   .1766,   .1481,   .0000/                      EXD 3570
      DATA OCNG2 /                                                      EXD 3580
     1  .7708,   .7288,   .7243,   .7214,   .7211,   .7330,   .7445,    EXD 3590
     2  .7579,   .7649,   .7790,   .8182,   .7673,   .7171,   .7205,    EXD 3600
     3  .7235,   .7251,   .7397,   .7537,   .6934,   .7137,   .7193,    EXD 3610
     4  .7206,   .7151,   .6732,   .6620,   .6696,   .6821,   .6895,    EXD 3620
     5  .6898,   .6819,   .6556,   .5925,   .5869,   .5511,   .5284,    EXD 3630
     6  .5124,   .4912,   .4646,   .4302,   .3124,   .3101,   .2752,    EXD 3640
     7  .2529,   .2335,   .2021,   .1738,   .0000/                      EXD 3650
      DATA OCNG3 /                                                      EXD 3660
     1  .7954,   .7782,   .7752,   .7717,   .7721,   .7777,   .7872,    EXD 3670
     2  .8013,   .8089,   .8301,   .8844,   .8332,   .7557,   .7597,    EXD 3680
     3  .7823,   .7822,   .7944,   .8157,   .7712,   .7738,   .7784,    EXD 3690
     4  .7807,   .7800,   .7682,   .7659,   .7692,   .7780,   .7828,    EXD 3700
     5  .7776,   .7621,   .7115,   .6342,   .6294,   .5999,   .5854,    EXD 3710
     6  .5700,   .5512,   .5265,   .4996,   .4236,   .3765,   .3357,    EXD 3720
     7  .3066,   .2830,   .2466,   .2184,   .0000/                      EXD 3730
      DATA OCNG4 /                                                      EXD 3740
     1  .8208,   .8270,   .8260,   .8196,   .8176,   .8096,   .8096,    EXD 3750
     2  .8202,   .8255,   .8520,   .9228,   .8950,   .7965,   .7847,    EXD 3760
     3  .8242,   .8244,   .8376,   .8857,   .8463,   .8332,   .8379,    EXD 3770
     4  .8441,   .8467,   .8502,   .8534,   .8562,   .8688,   .8789,    EXD 3780
     5  .8785,   .8683,   .8252,   .7562,   .7519,   .7261,   .7141,    EXD 3790
     6  .6980,   .6789,   .6540,   .6294,   .5783,   .5100,   .4595,    EXD 3800
     7  .4164,   .3868,   .3404,   .3042,   .0000/                      EXD 3810
      DATA TROE1 /                                                      EXD 3820
     1 2.21222, 1.82753, 1.67032, 1.00000,  .72424,  .35272,  .15234,   EXD 3830
     2  .05165,  .03861,  .02994,  .04671,  .02462,  .01538,  .01146,   EXD 3840
     3  .01032,  .00816,  .00861,  .00994,  .01057,  .01139,  .01747,   EXD 3850
     4  .01494,  .02418,  .03165,  .03386,  .04247,  .01601,  .01215,   EXD 3860
     5  .00937,  .00861,  .00823,  .01139,  .01924,  .01234,  .01348,   EXD 3870
     6  .01114,  .01297,  .01266,  .01418,  .01487,                     EXD 3880
     7  .01543,  .01321,  .00793,  .00582,  .00330,  .00239, 0.0/       EXD 3890
      DATA TROE2 /                                                      EXD 3900
     1 2.21519, 1.82266, 1.66557, 1.00000,  .72525,  .35481,  .15449,   EXD 3910
     2  .05475,  .04044,  .03082,  .04620,  .05272,  .01867,  .01266,   EXD 3920
     3  .01127,  .00886,  .00886,  .01449,  .01399,  .01228,  .01728,   EXD 3930
     4  .01475,  .02285,  .03215,  .03494,  .04285,  .01652,  .01304,   EXD 3940
     5  .01101,  .01120,  .01297,  .01753,  .02468,  .01741,  .01766,   EXD 3950
     6  .01513,  .01557,  .01456,  .01532,  .01582,                     EXD 3960
     7  .01619,  .01386,  .00832,  .00610,  .00346,  .00251, 0.0/       EXD 3970
      DATA TROE3 /                                                      EXD 3980
     1 2.19082, 1.79462, 1.64456, 1.00000,  .73297,  .36443,  .16278,   EXD 3990
     2  .06468,  .04658,  .03399,  .04538,  .11892,  .02835,  .01646,   EXD 4000
     3  .01386,  .01076,  .00968,  .02551,  .02222,  .01468,  .01690,   EXD 4010
     4  .01437,  .01994,  .03127,  .03513,  .04076,  .01722,  .01513,   EXD 4020
     5  .01519,  .01791,  .02538,  .03272,  .03816,  .03038,  .02886,   EXD 4030
     6  .02551,  .02228,  .01937,  .01804,  .01791,                     EXD 4040
     7  .01798,  .01539,  .00924,  .00678,  .00384,  .00278, 0.0/       EXD 4050
      DATA TROE4 /                                                      EXD 4060
     1 1.75696, 1.54829, 1.45962, 1.00000,  .77816,  .43139,  .21778,   EXD 4070
     2  .11329,  .08101,  .05506,  .04943,  .25291,  .06816,  .03703,   EXD 4080
     3  .02601,  .01968,  .01468,  .04962,  .04247,  .02234,  .01797,   EXD 4090
     4  .01532,  .01633,  .02259,  .02487,  .02595,  .01728,  .01892,   EXD 4100
     5  .02399,  .03247,  .05285,  .06462,  .06608,  .05930,  .05525,   EXD 4110
     6  .04861,  .03753,  .02968,  .02348,  .02165,                     EXD 4120
     7  .02152,  .01841,  .01104,  .00809,  .00458,  .00332, 0.0/       EXD 4130
      DATA TROA1 /                                                      EXD 4140
     1  .69671,  .09905,  .06563,  .04101,  .03354,  .03627,  .02810,   EXD 4150
     2  .00873,  .00918,  .00930,  .03215,  .01285,  .00513,  .00316,   EXD 4160
     3  .00557,  .00494,  .00646,  .00867,  .00937,  .01025,  .01646,   EXD 4170
     4  .01481,  .02418,  .02886,  .03070,  .04032,  .01494,  .01139,   EXD 4180
     5  .00873,  .00816,  .00797,  .01133,  .01911,  .01215,  .01329,   EXD 4190
     6  .01101,  .01291,  .01266,  .01418,  .01487,                     EXD 4200
     7  .01543,  .01321,  .00793,  .00582,  .00330,  .00239, 0.0/       EXD 4210
      DATA TROA2 /                                                      EXD 4220
     1  .65000,  .08791,  .05816,  .03652,  .02994,  .03278,  .02557,   EXD 4230
     2  .00810,  .00842,  .00867,  .03139,  .03949,  .00646,  .00316,   EXD 4240
     3  .00595,  .00519,  .00646,  .01304,  .01247,  .01095,  .01620,   EXD 4250
     4  .01449,  .02278,  .02930,  .03184,  .04063,  .01544,  .01234,   EXD 4260
     5  .01044,  .01076,  .01272,  .01741,  .02462,  .01722,  .01747,   EXD 4270
     6  .01506,  .01551,  .01456,  .01532,  .01582,                     EXD 4280
     7  .01619,  .01386,  .00832,  .00610,  .00346,  .00251, 0.0/       EXD 4290
      DATA TROA3 /                                                      EXD 4300
     1  .52804,  .06367,  .04158,  .02633,  .02184,  .02443,  .01937,   EXD 4310
     2  .00658,  .00646,  .00709,  .02949,  .10013,  .00968,  .00310,   EXD 4320
     3  .00677,  .00582,  .00646,  .02361,  .01994,  .01266,  .01544,   EXD 4330
     4  .01386,  .01968,  .02848,  .03203,  .03854,  .01620,  .01449,   EXD 4340
     5  .01462,  .01747,  .02513,  .03253,  .03797,  .03019,  .02861,   EXD 4350
     6  .02538,  .02215,  .01930,  .01797,  .01791,                     EXD 4360
     7  .01797,  .01539,  .00924,  .00677,  .00384,  .00278, 0.0/       EXD 4370
      DATA TROA4 /                                                      EXD 4380
     1  .19829,  .01842,  .01215,  .00791,  .00665,  .00778,  .00652,   EXD 4390
     2  .00361,  .00253,  .00399,  .02570,  .20690,  .01715,  .00316,   EXD 4400
     3  .00873,  .00728,  .00658,  .04481,  .03525,  .01646,  .01405,   EXD 4410
     4  .01310,  .01468,  .01956,  .02184,  .02367,  .01608,  .01816,   EXD 4420
     5  .02342,  .03203,  .05234,  .06399,  .06538,  .05867,  .05456,   EXD 4430
     6  .04810,  .03715,  .02949,  .02335,  .02158,                     EXD 4440
     7  .02149,  .01840,  .01104,  .00809,  .00458,  .00332, 0.0/       EXD 4450
      DATA TROG1 /                                                      EXD 4460
     1  .7518,   .6710,   .6638,   .6345,   .6152,   .5736,   .5280,    EXD 4470
     2  .4949,   .4700,   .4467,   .4204,   .4028,   .3777,   .3563,    EXD 4480
     3  .3150,   .2919,   .2695,   .2465,   .2402,   .2313,   .2101,    EXD 4490
     4  .1760,   .1532,   .2091,   .2079,   .1843,   .1811,   .1687,    EXD 4500
     5  .1626,   .1526,   .1356,   .1030,   .0962,   .1024,   .1086,    EXD 4510
     6  .0928,   .0836,   .0643,   .0451,   .0290,   .0156,   .0118,    EXD 4520
     7  .0076,   .0050,   .0024,   .0015,   .0000/                      EXD 4530
      DATA TROG2 /                                                      EXD 4540
     1  .7571,   .6858,   .6790,   .6510,   .6315,   .5887,   .5418,    EXD 4550
     2  .5075,   .4829,   .4598,   .4338,   .4043,   .3890,   .3680,    EXD 4560
     3  .3259,   .3026,   .2800,   .2541,   .2494,   .2414,   .2196,    EXD 4570
     4  .1873,   .1657,   .2123,   .2110,   .1890,   .1836,   .1709,    EXD 4580
     5  .1640,   .1534,   .1354,   .1044,   .0984,   .1026,   .1073,    EXD 4590
     6  .0935,   .0842,   .0661,   .0477,   .0309,   .0171,   .0129,    EXD 4600
     7  .0084,   .0056,   .0027,   .0017,   .0000/                      EXD 4610
      DATA TROG3 /                                                      EXD 4620
     1  .7667,   .7176,   .7128,   .6879,   .6690,   .6255,   .5769,    EXD 4630
     2  .5403,   .5167,   .4947,   .4703,   .4143,   .4190,   .3993,    EXD 4640
     3  .3563,   .3325,   .3095,   .2767,   .2751,   .2693,   .2464,    EXD 4650
     4  .2175,   .1992,   .2247,   .2215,   .2042,   .1952,   .1814,    EXD 4660
     5  .1726,   .1604,   .1398,   .1111,   .1065,   .1068,   .1086,    EXD 4670
     6  .0984,   .0888,   .0724,   .0549,   .0358,   .0216,   .0166,    EXD 4680
     7  .0109,   .0073,   .0036,   .0023,   .0000/                      EXD 4690
      DATA TROG4 /                                                      EXD 4700
     1  .7696,   .7719,   .7710,   .7606,   .7478,   .7142,   .6727,    EXD 4710
     2  .6381,   .6201,   .6050,   .5912,   .4849,   .5137,   .5019,    EXD 4720
     3  .4625,   .4389,   .4169,   .3696,   .3707,   .3708,   .3473,    EXD 4730
     4  .3232,   .3112,   .3022,   .2938,   .2850,   .2675,   .2494,    EXD 4740
     5  .2347,   .2165,   .1857,   .1536,   .1509,   .1441,   .1416,    EXD 4750
     6  .1354,   .1245,   .1088,   .0905,   .0614,   .0440,   .0354,    EXD 4760
     7  .0257,   .0179,   .0089,   .0059,   .0000/                      EXD 4770
      DATA FG1EXT /                                                     EXD 4780
     1  .98519,  .99158,  .99089, 1.00000, 1.00576, 1.01747, 1.03177,   EXD 4790
     2 1.04146, 1.04696, 1.05323, 1.05886, 1.04899, 1.06823, 1.07804,   EXD 4800
     3 1.09272, 1.10367, 1.11684, 1.10430, 1.11367, 1.12899, 1.14987,   EXD 4810
     4 1.17209, 1.18278, 1.20133, 1.21266, 1.21949, 1.22677, 1.15589,   EXD 4820
     5 1.05684,  .98291, 1.01120, 1.10911, 1.11462, 1.14671, 1.16247,   EXD 4830
     6 1.18540, 1.21580, 1.24610, 1.26840, 1.20500, 1.20850, 1.23340,   EXD 4840
     7 1.19560, 1.06530,  .68949,  .42888, 0.00000/                     EXD 4850
      DATA FG1ABS /                                                     EXD 4860
     1  .00013, 0.00000, 0.00000, 0.00000, 0.00000,  .00095,  .01513,   EXD 4870
     2  .10861,  .03892,  .13272,  .47133,  .49696,  .45785,  .17918,   EXD 4880
     3  .37373,  .34601,  .31867,  .55190,  .55025,  .49987,  .46342,   EXD 4890
     4  .45943,  .45918,  .46089,  .46241,  .46386,  .47196,  .48905,   EXD 4900
     5  .51468,  .53101,  .55266,  .58665,  .58899,  .60367,  .61158,   EXD 4910
     6  .62335,  .64120,  .65627,  .66278,  .66393,  .69344,  .71087,   EXD 4920
     7  .67625,  .61180,  .42130,  .29086, 0.00000/                     EXD 4930
      DATA FG1SYM /                                                     EXD 4940
     1  .8578,   .8726,   .8722,   .8717,   .8703,   .8652,   .8618,    EXD 4950
     2  .8798,   .8689,   .8918,   .9641,   .9502,   .9297,   .8544,    EXD 4960
     3  .9007,   .8885,   .8812,   .9604,   .9470,   .9193,   .9039,    EXD 4970
     4  .9039,   .9057,   .9110,   .9158,   .9194,   .9381,   .9537,    EXD 4980
     5  .9595,   .9587,   .9418,   .9101,   .9081,   .8957,   .8898,    EXD 4990
     6  .8812,   .8685,   .8491,   .8246,   .7815,   .7148,   .6480,    EXD 5000
     7  .5481,   .4725,   .3457,   .2575,   .0000/                      EXD 5010
      DATA FG2EXT /                                                     EXD 5020
     1  .94791,  .96215,  .97063, 1.00000, 1.00937, 1.05177, 1.12519,   EXD 5030
     2 1.29570, 1.39203, 1.41120, 1.04715, 1.10816, 1.43285, 1.45272,   EXD 5040
     3 1.18709, 1.04367,  .82354,  .71747,  .92405,  .79342,  .60266,   EXD 5050
     4  .47677,  .43171,  .36734,  .33259,  .31184,  .24139,  .21601,   EXD 5060
     5  .24006,  .28816,  .42671,  .56861,  .57266,  .58089,  .57165,   EXD 5070
     6  .54247,  .43983,  .34475,  .24907,  .19291,  .18500,  .15586,   EXD 5080
     7  .09047,  .06445,  .03533,  .02529, 0.00000/                     EXD 5090
      DATA FG2ABS /                                                     EXD 5100
     1 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,  .00013,  .00247,   EXD 5110
     2  .01987,  .00620,  .02323,  .17209,  .57930,  .19810,  .03475,   EXD 5120
     3  .09639,  .08000,  .06582,  .34589,  .32703,  .17025,  .12633,   EXD 5130
     4  .11816,  .11627,  .11519,  .11538,  .11601,  .12329,  .14468,   EXD 5140
     5  .18633,  .24057,  .35411,  .44886,  .45095,  .45215,  .44278,   EXD 5150
     6  .41778,  .34433,  .27826,  .21066,  .17864,  .17626,  .15028,   EXD 5160
     7  .08844,  .06358,  .03515,  .02523, 0.00000/                     EXD 5170
      DATA FG2SYM /                                                     EXD 5180
     1  .8388,   .8459,   .8419,   .8286,   .8224,   .7883,   .7763,    EXD 5190
     2  .8133,   .8393,   .8767,   .9258,   .8982,   .7887,   .8082,    EXD 5200
     3  .8319,   .8243,   .8210,   .8282,   .8037,   .7904,   .7728,    EXD 5210
     4  .7528,   .7436,   .7274,   .7171,   .7100,   .6790,   .6520,    EXD 5220
     5  .6305,   .6020,   .5475,   .4577,   .4511,   .4084,   .3872,    EXD 5230
     6  .3566,   .2976,   .2340,   .1711,   .0956,   .0623,   .0454,    EXD 5240
     7  .0286,   .0190,   .0090,   .0052,   .0000/                      EXD 5250
      DATA BSTEXT /                                                     EXD 5260
     E 2.0752E0,  1.8656E0,  1.7246E0,  1.0000E0,  7.0156E-1, 3.0170E-1,EXD 5270
     E 1.1440E-1, 5.1225E-2, 3.4285E-2, 2.3475E-2, 1.6878E-2, 6.6506E-2,EXD 5280
     E 1.0943E-1, 8.9653E-2, 6.7609E-2, 5.2855E-2, 6.7496E-2, 5.7975E-2,EXD 5290
     E 4.2471E-2, 2.4176E-2, 4.6102E-2, 1.2339E-1, 1.7699E-1, 1.2389E-1,EXD 5300
     E 9.0220E-2, 8.5793E-2, 3.2838E-2, 2.6528E-2, 5.0703E-2, 1.9471E-2,EXD 5310
     E 1.1710E-2, 1.6106E-2, 1.7716E-2, 3.9533E-2, 3.7954E-2, 5.4871E-3,EXD 5320
     E 8.8409E-3, 1.2289E-3, 1.0647E-3, 3.3151E-3, 4.5164E-3, 4.1496E-3,EXD 5330
     E 3.2801E-3, 2.4481E-3, 1.0714E-3, 5.0381E-4, 1.2101E-4/           EXD 5340
      DATA BSTABS /                                                     EXD 5350
     A 2.4347E-7, 1.4949E-7, 1.3020E-7, 6.8716E-8, 1.0053E-7, 4.2384E-6,EXD 5360
     A 2.3075E-4, 1.4889E-3, 1.8377E-3, 3.3645E-3, 4.6858E-3, 5.9424E-2,EXD 5370
     A 1.0129E-1, 8.2396E-2, 6.3621E-2, 5.0327E-2, 6.5798E-2, 5.6149E-2,EXD 5380
     A 4.0939E-2, 2.3226E-2, 4.5800E-2, 1.2276E-1, 1.7568E-1, 1.2216E-1,EXD 5390
     A 8.9058E-2, 8.4861E-2, 3.1979E-2, 2.6097E-2, 5.0244E-2, 1.9042E-2,EXD 5400
     A 1.1497E-2, 1.6024E-2, 1.7639E-2, 3.9452E-2, 3.7847E-2, 5.4251E-3,EXD 5410
     A 8.8160E-3, 1.2118E-3, 1.0579E-3, 3.3122E-3, 4.5150E-3, 4.1489E-3,EXD 5420
     A 3.2799E-3, 2.4481E-3, 1.0713E-3, 5.0381E-4, 1.2101E-4/           EXD 5430
      DATA BSTSYM /                                                     EXD 5440
     G 0.6749, 0.6943, 0.6991, 0.6846, 0.6572, 0.5861, 0.4965, 0.4164,  EXD 5450
     G 0.3772, 0.3385, 0.3069, 0.2599, 0.2234, 0.2028, 0.1554, 0.1291,  EXD 5460
     G 0.1057, 0.0962, 0.0909, 0.0802, 0.0595, 0.0458, 0.0413, 0.0479,  EXD 5470
     G 0.0483, 0.0451, 0.0504, 0.0379, 0.0346, 0.0365, 0.0273, 0.0180,  EXD 5480
     G 0.0174, 0.0144, 0.0151, 0.0141, 0.0094, 0.0075, 0.0049, 0.0031,  EXD 5490
     G 0.0020, 0.0014, 0.0008, 0.0005, 0.0002, 0.0001, 0.0001/          EXD 5500
      DATA AVOEXT /                                                     EXD 5510
     1 1.14880, 1.19171, 1.18013, 1.00000,  .84873,  .53019,  .27968,   EXD 5520
     2  .14551,  .11070,  .08633,  .07184,  .06076,  .04506,  .03399,   EXD 5530
     3  .02095,  .01538,  .01266,  .01019,  .00994,  .01044,  .01361,   EXD 5540
     4  .01791,  .02278,  .02918,  .03108,  .03234,  .03456,  .03184,   EXD 5550
     5  .02772,  .02475,  .01715,  .01563,  .01665,  .01646,  .01734,   EXD 5560
     6  .01772,  .01076,  .01051,  .01133,  .01329,                     EXD 5570
     7  .01492,  .01277,  .00766,  .00562,  .00318,  .00231, 0.0/       EXD 5580
      DATA AVOABS /                                                     EXD 5590
     1  .44816,  .11259,  .08500,  .05272,  .04082,  .02449,  .01487,   EXD 5600
     2  .01019,  .00867,  .00842,  .00842,  .00949,  .00741,  .00487,   EXD 5610
     3  .00316,  .00335,  .00399,  .00449,  .00525,  .00665,  .01114,   EXD 5620
     4  .01652,  .02177,  .02437,  .02506,  .02658,  .03006,  .02861,   EXD 5630
     5  .02513,  .02285,  .01620,  .01532,  .01633,  .01620,  .01709,   EXD 5640
     6  .01741,  .01057,  .01038,  .01127,  .01329,                     EXD 5650
     7  .01492,  .01277,  .00766,  .00562,  .00318,  .00231, 0.0/       EXD 5660
      DATA AVOSYM /                                                     EXD 5670
     1  .8272,   .7148,   .7076,   .6978,   .6886,   .6559,   .6062,    EXD 5680
     2  .5561,   .5255,   .4958,   .4729,   .4401,   .4015,   .3699,    EXD 5690
     3  .3125,   .2773,   .2472,   .2173,   .2054,   .1908,   .1623,    EXD 5700
     4  .1348,   .1233,   .1615,   .1757,   .1712,   .1521,   .1326,    EXD 5710
     5  .1230,   .1081,   .0801,   .0528,   .0514,   .0461,   .0446,    EXD 5720
     6  .0449,   .0415,   .0330,   .0198,   .0097,   .0044,   .0032,    EXD 5730
     7  .0020,   .0013,   .0006,   .0004,   .0000/                      EXD 5740
      DATA FVOEXT /                                                     EXD 5750
     1  .88715,  .92532,  .94013, 1.00000, 1.03013, 1.05975, 1.01171,   EXD 5760
     2  .88677,  .82538,  .76361,  .71563,  .67424,  .60589,  .55057,   EXD 5770
     3  .45222,  .37646,  .32316,  .25519,  .22728,  .20525,  .17810,   EXD 5780
     4  .14481,  .14152,  .37639,  .44551,  .44405,  .42222,  .36462,   EXD 5790
     5  .32551,  .27519,  .16728,  .10627,  .10861,  .10886,  .11665,   EXD 5800
     6  .13127,  .10108,  .08557,  .06411,  .05741,                     EXD 5810
     7  .05531,  .04707,  .02792,  .02028,  .01136,  .00820, 0.0/       EXD 5820
      DATA FVOABS /                                                     EXD 5830
     1  .41582,  .22892,  .19108,  .14468,  .12475,  .09158,  .06601,   EXD 5840
     2  .04943,  .04367,  .04342,  .04399,  .05076,  .04133,  .02829,   EXD 5850
     3  .01924,  .01981,  .02297,  .02475,  .02778,  .03411,  .05335,   EXD 5860
     4  .07133,  .08816,  .15342,  .18506,  .19354,  .20791,  .18449,   EXD 5870
     5  .16101,  .13759,  .08456,  .06886,  .07278,  .07367,  .07956,   EXD 5880
     6  .08785,  .06032,  .05747,  .05133,  .05323,                     EXD 5890
     7  .05453,  .04657,  .02773,  .02020,  .01135,  .00820, 0.0/       EXD 5900
      DATA FVOSYM /                                                     EXD 5910
     1  .9295,   .8115,   .7897,   .7473,   .7314,   .7132,   .7113,    EXD 5920
     2  .7238,   .7199,   .7165,   .7134,   .6989,   .6840,   .6687,    EXD 5930
     3  .6409,   .6325,   .6199,   .6148,   .6142,   .6072,   .5853,    EXD 5940
     4  .5632,   .5486,   .4753,   .4398,   .4329,   .4091,   .4105,    EXD 5950
     5  .4120,   .4136,   .4140,   .3637,   .3577,   .3344,   .3220,    EXD 5960
     6  .3052,   .2957,   .2564,   .2055,   .1229,   .0632,   .0483,    EXD 5970
     7  .0321,   .0216,   .0103,   .0059,   .0000/                      EXD 5980
      DATA DMEEXT /                                                     EXD 5990
     1 1.05019, 1.05880, 1.05259, 1.00000,  .94949,  .81456,  .66051,   EXD 6000
     2  .54380,  .49133,  .44677,  .41671,  .38063,  .34778,  .32804,   EXD 6010
     3  .29722,  .27506,  .25082,  .22620,  .21652,  .20253,  .17266,   EXD 6020
     4  .14905,  .14234,  .14082,  .15057,  .16399,  .23608,  .24481,   EXD 6030
     5  .27791,  .25076,  .15272,  .09601,  .09456,  .14576,  .12373,   EXD 6040
     6  .18348,  .12190,  .12924,  .08538,  .04108,                     EXD 6050
     7  .04714,  .04069,  .02480,  .01789,  .00980,  .00693, 0.0/       EXD 6060
      DATA DMEABS /                                                     EXD 6070
     1  .00063,  .00152,  .00184,  .00506,  .00791,  .01829,  .03728,   EXD 6080
     2  .06158,  .07538,  .08943,  .10051,  .11614,  .13310,  .14348,   EXD 6090
     3  .14633,  .13728,  .12462,  .11184,  .10709,  .10076,  .09006,   EXD 6100
     4  .08734,  .09000,  .10304,  .11905,  .13437,  .19551,  .20095,   EXD 6110
     5  .22494,  .18418,  .09285,  .06665,  .06823,  .12329,  .10551,   EXD 6120
     6  .16184,  .09835,  .10582,  .06759,  .03247,                     EXD 6130
     7  .04405,  .03816,  .02327,  .01696,  .00946,  .00677, 0.0/       EXD 6140
      DATA DMESYM /                                                     EXD 6150
     1  .7173,   .7039,   .7020,   .6908,   .6872,   .6848,   .6891,    EXD 6160
     2  .6989,   .7046,   .7099,   .7133,   .7159,   .7134,   .7058,    EXD 6170
     3  .6827,   .6687,   .6583,   .6513,   .6494,   .6475,   .6467,    EXD 6180
     4  .6496,   .6506,   .6461,   .6334,   .6177,   .5327,   .5065,    EXD 6190
     5  .4632,   .4518,   .5121,   .5450,   .5467,   .4712,   .4853,    EXD 6200
     6  .3984,   .4070,   .3319,   .3427,   .3766,   .3288,   .2969,    EXD 6210
     7  .2808,   .2661,   .2409,   .2098,   .0000/                      EXD 6220
      DATA CCUEXT /                                                     EXD 6230
     1  .98081,  .98746,  .98915, 1.00000, 1.00650, 1.02230, 1.04180,   EXD 6240
     2 1.05830, 1.06780, 1.07870, 1.09780, 1.06440, 1.09750, 1.11300,   EXD 6250
     3 1.14320, 1.16660, 1.20540, 1.15420, 1.17610, 1.21910, 1.26990,   EXD 6260
     4 1.30300, 1.31090, 1.31060, 1.29940, 1.28640, 1.16620,  .98693,   EXD 6270
     5  .88130,  .83429,  .92012, 1.07340, 1.08150, 1.12680, 1.14770,   EXD 6280
     6 1.17600, 1.19210, 1.19120, 1.14510,  .97814,  .96308,  .94390,   EXD 6290
     7  .75994,  .56647,  .26801,  .15748, 0.00000/                     EXD 6300
      DATA CCUABS /                                                     EXD 6310
     1  .00007,  .00001,  .00000,  .00000,  .00001,  .00059,  .00956,   EXD 6320
     2  .07224,  .02502,  .08913,  .41512,  .51824,  .41304,  .12614,   EXD 6330
     3  .29826,  .26739,  .23672,  .55428,  .55642,  .44494,  .38433,   EXD 6340
     4  .37277,  .37000,  .36872,  .36896,  .36984,  .37868,  .40498,   EXD 6350
     5  .44993,  .48941,  .54799,  .60964,  .61302,  .63227,  .64074,   EXD 6360
     6  .65112,  .65367,  .64760,  .61924,  .59000,  .61601,  .61058,   EXD 6370
     7  .49236,  .38532,  .20641,  .13474, 0.00000/                     EXD 6380
      DATA CCUSYM /                                                     EXD 6390
     1  .8557,   .8676,   .8680,   .8658,   .8630,   .8557,   .8496,    EXD 6400
     2  .8566,   .8464,   .8627,   .9417,   .9458,   .8891,   .8136,    EXD 6410
     3  .8503,   .8400,   .8453,   .9428,   .9168,   .8759,   .8733,    EXD 6420
     4  .8841,   .8894,   .8986,   .9044,   .9082,   .9239,   .9342,    EXD 6430
     5  .9367,   .9331,   .9119,   .8719,   .8692,   .8515,   .8424,    EXD 6440
     6  .8287,   .8059,   .7742,   .7354,   .6554,   .5557,   .4720,    EXD 6450
     7  .3713,   .2990,   .1846,   .1156,   .0000/                      EXD 6460
      DATA CALEXT /                                                     EXD 6470
     1  .97331,  .98106,  .98472, 1.00000, 1.00850, 1.03090, 1.05770,   EXD 6480
     2 1.08070, 1.09390, 1.11530, 1.20260, 1.08250, 1.13480, 1.16770,   EXD 6490
     3 1.26750, 1.33520, 1.41110, 1.18200, 1.28390, 1.38040, 1.38430,   EXD 6500
     4 1.31200, 1.26540, 1.17160, 1.10410, 1.05640,  .83383,  .66530,   EXD 6510
     5  .61995,  .62907,  .77190,  .96660,  .97609, 1.02520, 1.04380,   EXD 6520
     6 1.06270, 1.02550,  .95714,  .82508,  .63464,  .60962,  .54998,   EXD 6530
     7  .34165,  .22587,  .10647,  .07067, 0.00000/                     EXD 6540
      DATA CALABS /                                                     EXD 6550
     1  .00004,  .00000,  .00000,  .00000,  .00000,  .00036,  .00607,   EXD 6560
     2  .04771,  .01579,  .05734,  .33199,  .54434,  .35157,  .08528,   EXD 6570
     3  .21785,  .18813,  .15982,  .52068,  .52125,  .35294,  .28359,   EXD 6580
     4  .26999,  .26668,  .26477,  .26484,  .26565,  .27546,  .30540,   EXD 6590
     5  .36011,  .41780,  .51479,  .60420,  .60818,  .62781,  .63339,   EXD 6600
     6  .63544,  .60762,  .56843,  .50067,  .44739,  .45910,  .42486,   EXD 6610
     7  .27527,  .19352,  .09932,  .06832, 0.00000/                     EXD 6620
      DATA CALSYM /                                                     EXD 6630
     1  .8523,   .8632,   .8623,   .8573,   .8532,   .8422,   .8297,    EXD 6640
     2  .8252,   .8145,   .8317,   .9312,   .9383,   .8291,   .7640,    EXD 6650
     3  .8202,   .8276,   .8547,   .9224,   .8859,   .8621,   .8706,    EXD 6660
     4  .8780,   .8804,   .8833,   .8849,   .8858,   .8889,   .8899,    EXD 6670
     5  .8872,   .8790,   .8513,   .7984,   .7944,   .7683,   .7545,    EXD 6680
     6  .7333,   .6939,   .6405,   .5727,   .4313,   .3156,   .2437,    EXD 6690
     7  .1693,   .1185,   .0574,   .0332,   .0000/                      EXD 6700
      DATA CSTEXT /                                                     EXD 6710
     1  .97430,  .98324,  .98570, 1.00000, 1.00890, 1.03100, 1.05590,   EXD 6720
     2 1.08130, 1.09760, 1.12170, 1.16390, 1.07880, 1.13660, 1.16990,   EXD 6730
     3 1.22930, 1.26720, 1.31080, 1.15290, 1.23270, 1.29770, 1.31180,   EXD 6740
     4 1.27830, 1.25190, 1.19190, 1.14390, 1.10790,  .91743,  .74497,   EXD 6750
     5  .68246,  .67604,  .80234,  .98329,  .99219, 1.03880, 1.05710,   EXD 6760
     6 1.07730, 1.05460, 1.00640,  .90146,  .71967,  .69823,  .65179,   EXD 6770
     7  .44906,  .30781,  .14114,  .08913, 0.00000/                     EXD 6780
      DATA CSTABS /                                                     EXD 6790
     1  .00005,  .00001,  .00000,  .00000,  .00000,  .00042,  .00681,   EXD 6800
     2  .05317,  .01779,  .06484,  .35033,  .53843,  .36321,  .09457,   EXD 6810
     3  .23629,  .20663,  .17789,  .52440,  .52484,  .37331,  .30681,   EXD 6820
     4  .29375,  .29057,  .28880,  .28887,  .28969,  .29913,  .32789,   EXD 6830
     5  .37961,  .43212,  .51866,  .60025,  .60398,  .62285,  .62874,   EXD 6840
     6  .63229,  .61185,  .58151,  .52536,  .47993,  .49571,  .47074,   EXD 6850
     7  .33104,  .24066,  .12346,  .08312, 0.00000/                     EXD 6860
      DATA CSTSYM /                                                     EXD 6870
     1  .8519,   .8633,   .8629,   .8590,   .8546,   .8432,   .8328,    EXD 6880
     2  .8330,   .8251,   .8439,   .9332,   .9388,   .8422,   .7823,    EXD 6890
     3  .8288,   .8291,   .8482,   .9255,   .8906,   .8613,   .8675,    EXD 6900
     4  .8772,   .8810,   .8869,   .8905,   .8927,   .9016,   .9069,    EXD 6910
     5  .9060,   .8989,   .8714,   .8204,   .8168,   .7932,   .7811,    EXD 6920
     6  .7628,   .7319,   .6905,   .6401,   .5324,   .4233,   .3459,    EXD 6930
     7  .2636,   .2027,   .1120,   .0663,   .0000/                      EXD 6940
      DATA CSCEXT /                                                     EXD 6950
     1  .96965,  .97960,  .98266, 1.00000, 1.01040, 1.03530, 1.06590,   EXD 6960
     2 1.09980, 1.12280, 1.16020, 1.20330, 1.08630, 1.16840, 1.21860,   EXD 6970
     3 1.28860, 1.32310, 1.33780, 1.11630, 1.24450, 1.30260, 1.26260,   EXD 6980
     4 1.17670, 1.12990, 1.04180,  .98070,  .93828,  .74401,  .59962,   EXD 6990
     5  .56489,  .57976,  .72193,  .90905,  .91772,  .96075,  .97500,   EXD 7000
     6  .98623,  .93761,  .86388,  .73722,  .56926,  .54699,  .49341,   EXD 7010
     7  .31131,  .20846,  .09872,  .06531, 0.00000/                     EXD 7020
      DATA CSCABS /                                                     EXD 7030
     1  .00004,  .00000,  .00000,  .00000,  .00000,  .00035,  .00553,   EXD 7040
     2  .04382,  .01430,  .05271,  .30881,  .54982,  .32983,  .07796,   EXD 7050
     3  .20033,  .17269,  .14662,  .49557,  .49304,  .32632,  .26104,   EXD 7060
     4  .24829,  .24525,  .24349,  .24358,  .24437,  .25378,  .28239,   EXD 7070
     5  .33510,  .39227,  .49203,  .58265,  .58638,  .60338,  .60677,   EXD 7080
     6  .60472,  .56954,  .52556,  .45708,  .40717,  .41646,  .38375,   EXD 7090
     7  .25009,  .17726,  .09148,  .06291, 0.00000/                     EXD 7100
      DATA CSCSYM /                                                     EXD 7110
     1  .8495,   .8597,   .8594,   .8535,   .8479,   .8349,   .8214,    EXD 7120
     2  .8192,   .8151,   .8395,   .9321,   .9329,   .8156,   .7722,    EXD 7130
     3  .8270,   .8319,   .8533,   .9138,   .8772,   .8562,   .8628,    EXD 7140
     4  .8691,   .8713,   .8742,   .8759,   .8768,   .8805,   .8818,    EXD 7150
     5  .8783,   .8685,   .8362,   .7776,   .7734,   .7458,   .7317,    EXD 7160
     6  .7106,   .6738,   .6250,   .5655,   .4409,   .3338,   .2655,    EXD 7170
     7  .1947,   .1427,   .0727,   .0422,   .0000/                      EXD 7180
      DATA CNIEXT /                                                     EXD 7190
     1  .97967,  .98623,  .98795, 1.00000, 1.00710, 1.02340, 1.04300,   EXD 7200
     2 1.06100, 1.07130, 1.08440, 1.10650, 1.06540, 1.10200, 1.12040,   EXD 7210
     3 1.15490, 1.17990, 1.21730, 1.15000, 1.18140, 1.22610, 1.26770,   EXD 7220
     4 1.28840, 1.29070, 1.28200, 1.26650, 1.25130, 1.12860,  .95670,   EXD 7230
     5  .85784,  .81564,  .90486, 1.05950, 1.06760, 1.11240, 1.13250,   EXD 7240
     6 1.15910, 1.16960, 1.16290, 1.11130,  .94771,  .93251,  .91151,   EXD 7250
     7  .73279,  .55018,  .26554,  .15656, 0.00000/                     EXD 7260
      DATA CNIABS /                                                     EXD 7270
     1  .00007,  .00001,  .00000,  .00000,  .00001,  .00058,  .00948,   EXD 7280
     2  .07084,  .02436,  .08711,  .40714,  .52024,  .40688,  .12335,   EXD 7290
     3  .29163,  .26107,  .23098,  .54886,  .55047,  .43579,  .37552,   EXD 7300
     4  .36411,  .36140,  .36017,  .36043,  .36132,  .37019,  .39640,   EXD 7310
     5  .44146,  .48184,  .54304,  .60651,  .60988,  .62882,  .63682,   EXD 7320
     6  .64613,  .64572,  .63682,  .60584,  .57559,  .60014,  .59283,   EXD 7330
     7  .47587,  .37364,  .20267,  .13269, 0.00000/                     EXD 7340
      DATA CNISYM /                                                     EXD 7350
     1  .8550,   .8670,   .8677,   .8645,   .8616,   .8538,   .8474,    EXD 7360
     2  .8534,   .8439,   .8609,   .9411,   .9449,   .8822,   .8101,    EXD 7370
     3  .8486,   .8403,   .8475,   .9405,   .9134,   .8749,   .8732,    EXD 7380
     4  .8833,   .8882,   .8968,   .9025,   .9061,   .9217,   .9322,    EXD 7390
     5  .9346,   .9308,   .9086,   .8669,   .8641,   .8457,   .8364,    EXD 7400
     6  .8222,   .7992,   .7677,   .7298,   .6525,   .5558,   .4752,    EXD 7410
     7  .3796,   .3105,   .1995,   .1287,   .0000/                      EXD 7420
C          EXTINCTION  COEFFICIENTS                                     EXD 7430
      DATA CI64XT/                                                      EXD 7440
     1   9.947E-01,  9.968E-01,  9.972E-01,  1.000E+00,  1.002E+00,     EXD 7450
     2   1.005E+00,  1.010E+00,  1.013E+00,  1.016E+00,  1.018E+00,     EXD 7460
     3   1.019E+00,  1.016E+00,  1.023E+00,  1.026E+00,  1.030E+00,     EXD 7470
     4   1.033E+00,  1.036E+00,  1.037E+00,  1.038E+00,  1.040E+00,     EXD 7480
     5   1.043E+00,  1.047E+00,  1.049E+00,  1.051E+00,  1.052E+00,     EXD 7490
     6   1.053E+00,  1.055E+00,  1.032E+00,  1.034E+00,  1.047E+00,     EXD 7500
     7   1.060E+00,  1.074E+00,  1.075E+00,  1.081E+00,  1.085E+00,     EXD 7510
     8   1.090E+00,  1.102E+00,  1.117E+00,  1.131E+00,  1.094E+00,     EXD 7520
     9   1.168E+00,  1.187E+00,  1.244E+00,  1.297E+00,  1.475E+00,     EXD 7530
     X   1.695E+00,  1.556E+00 /                                        EXD 7540
C         ABSORPTION  COEFFICIENTS                                      EXD 7550
      DATA CI64AB/                                                      EXD 7560
     1   7.893E-05,  1.914E-05,  1.450E-05,  5.904E-06,  3.905E-05,     EXD 7570
     2   1.917E-03,  2.604E-01,  3.732E-01,  8.623E-02,  2.253E-01,     EXD 7580
     3   4.152E-01,  4.460E-01,  4.660E-01,  4.589E-01,  4.848E-01,     EXD 7590
     4   4.786E-01,  4.915E-01,  4.944E-01,  4.936E-01,  4.947E-01,     EXD 7600
     5   4.978E-01,  5.012E-01,  5.028E-01,  5.070E-01,  5.095E-01,     EXD 7610
     6   5.111E-01,  5.205E-01,  5.126E-01,  4.969E-01,  4.868E-01,     EXD 7620
     7   4.836E-01,  4.982E-01,  4.999E-01,  5.097E-01,  5.126E-01,     EXD 7630
     8   5.188E-01,  5.108E-01,  4.915E-01,  5.559E-01,  5.515E-01,     EXD 7640
     9   5.600E-01,  5.948E-01,  6.225E-01,  6.348E-01,  5.693E-01,     EXD 7650
     X   3.306E-01,  8.661E-02 /                                        EXD 7660
C         ASYMMETRY  PARAMETER  -  G                                    EXD 7670
      DATA CI64G/                                                       EXD 7680
     1   .8626,  .8824,  .8851,  .8893,  .8904,  .8913,  .9332,  .9549, EXD 7690
     2   .9141,  .9407,  .9763,  .9428,  .9509,  .9580,  .9699,  .9679, EXD 7700
     3   .9735,  .9737,  .9717,  .9712,  .9712,  .9715,  .9721,  .9744, EXD 7710
     4   .9756,  .9764,  .9822,  .9849,  .9721,  .9530,  .9341,  .9352, EXD 7720
     5   .9366,  .9426,  .9425,  .9448,  .9365,  .9256,  .9485,  .9417, EXD 7730
     6   .8868,  .8983,  .8589,  .8115,  .6810,  .5923,  .5703 /        EXD 7740
C          EXTINCTION COEFFICIENTS                                      EXD 7750
      DATA CIR4XT/                                                      EXD 7760
     1   9.685E-01,  9.803E-01,  9.826E-01,  1.000E+00,  1.011E+00,     EXD 7770
     2   1.038E+00,  1.066E+00,  1.090E+00,  1.118E+00,  1.201E+00,     EXD 7780
     3   1.374E+00,  1.019E+00,  1.143E+00,  1.198E+00,  1.331E+00,     EXD 7790
     4   1.434E+00,  1.424E+00,  1.283E+00,  1.298E+00,  1.326E+00,     EXD 7800
     5   1.287E+00,  1.230E+00,  1.191E+00,  1.048E+00,  9.634E-01,     EXD 7810
     6   9.093E-01,  6.067E-01,  5.216E-01,  6.953E-01,  8.902E-01,     EXD 7820
     7   1.083E+00,  1.228E+00,  1.214E+00,  1.076E+00,  1.032E+00,     EXD 7830
     8   8.881E-01,  6.275E-01,  3.462E-01,  2.118E-01,  3.955E-01,     EXD 7840
     9   5.089E-01,  3.012E-01,  1.235E-01,  5.377E-02,  2.068E-02,     EXD 7850
     X   6.996E-03,  1.560E-03 /                                        EXD 7860
C          ABSORPTION  COEFFICIENTS                                     EXD 7870
      DATA CIR4AB/                                                      EXD 7880
     1   5.316E-06,  1.461E-06,  9.045E-07,  4.431E-07,  2.746E-06,     EXD 7890
     2   1.413E-04,  2.920E-02,  5.578E-02,  6.844E-03,  2.151E-02,     EXD 7900
     3   6.322E-02,  5.051E-01,  4.578E-01,  1.360E-01,  3.269E-01,     EXD 7910
     4   1.572E-01,  2.246E-01,  4.176E-01,  4.282E-01,  3.802E-01,     EXD 7920
     5   3.517E-01,  3.037E-01,  2.543E-01,  2.410E-01,  2.432E-01,     EXD 7930
     6   2.438E-01,  2.346E-01,  3.747E-01,  4.839E-01,  5.722E-01,     EXD 7940
     7   6.368E-01,  5.303E-01,  5.085E-01,  3.920E-01,  3.437E-01,     EXD 7950
     8   2.481E-01,  1.175E-01,  7.172E-02,  1.108E-01,  3.459E-01,     EXD 7960
     9   4.044E-01,  2.545E-01,  9.594E-02,  4.410E-02,  1.887E-02,     EXD 7970
     X   6.433E-03,  1.456E-03 /                                        EXD 7980
C        ASYMMETRY  PARAMETER  -  G                                     EXD 7990
      DATA CIR4G/                                                       EXD 8000
     1   .8517,  .8654,  .8661,  .8615,  .8574,  .8447,  .8321,  .8248, EXD 8010
     2   .8227,  .8612,  .9363,  .9231,  .8419,  .7550,  .8481,  .8358, EXD 8020
     3   .8718,  .8953,  .8884,  .8786,  .8731,  .8660,  .8625,  .8652, EXD 8030
     4   .8659,  .8658,  .8676,  .8630,  .8434,  .8194,  .7882,  .7366, EXD 8040
     5   .7339,  .7161,  .7015,  .6821,  .6383,  .5823,  .4845,  .2977, EXD 8050
     6   .2295,  .1716,  .1228,  .0748,  .0329,  .0186,  .0081 /        EXD 8060
      END                                                               EXD 8070
      SUBROUTINE FDBETA(H1,H2,BETAS,ANGLE,PHI,LEN,HMIN,IERROR)          ***  100
C********************************************************************** FDB  110
C     GIVEN H1,H2,AND BETA (THE EARTH CENTERED ANGLE) THIS SUBROUTINE   FDB  120
C     CALCULATES THE INITIAL ZENITH ANGLE AT H1 THROUGH AN ITERATIVE    FDB  130
C     PROCEDURE                                                         FDB  140
C********************************************************************** FDB  150
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                FDB  160
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              FDB  170
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     FDB  180
      DOUBLE PRECISION RA,RB,SG,ANGLE1,ANGLE2,BETA,DBETA                ***  181
C     DATA TOLRNC/1.0E-4/,ITERMX/10/,BETD /0.02/                        FDB  190
      DATA TOLRNC/5.0E-3/,ITERMX/10/,BETD /0.04/                        ***  200
      DATA ZER /0./                                                     FDB  210
      BETA = BETAS                                                      ***  211
      IFLAG = 0                                                         FDB  220
      IF(H1.GT.H2) GO TO 100                                            FDB  230
      IORDER = 1                                                        FDB  240
      HA = H1                                                           FDB  250
      HB = H2                                                           FDB  260
      GO TO 120                                                         FDB  270
  100 CONTINUE                                                          FDB  280
      IORDER = -1                                                       FDB  290
      HA = H2                                                           FDB  300
      HB = H1                                                           FDB  310
  120 CONTINUE                                                          FDB  320
C*****SET PARAMETER TO SUPRESS CALCULATION OF AMOUNTS                   FDB  330
      IAMTB = 2                                                         FDB  340
C*****GUESS AT ANGLE, INTEGRATE TO FIND BETA, TEST FOR                  FDB  350
C*****CONVERGENCE, AND ITERATE                                          FDB  360
C*****FIRST GUESS AT ANGLE: USE THE GEOMETRIC SOLUTION(NO REFRACTION)   FDB  370
      WRITE(IPR,24)                                                     FDB  380
   24 FORMAT(///,' CASE 2D: GIVEN H1, H2,  BETA:',//,                   FDB  390
     1    ' ITERATE AROUND ANGLE UNTIL BETA CONVERGES',//,              FDB  400
     2    ' ITER    ANGLE',T21,'BETA',T30,'DBETA',T40,'RANGE',          FDB  410
     3    T51,'HMIN',T61,'PHI',T70,'BENDING',/,                         FDB  420
     4    T10,'(DEG)',T21,'(DEG)',T30,'(DEG)',T41,'(KM)',               FDB  430
     5    T51,'(KM)',T60,'(DEG)',T71,'(DEG)',/)                         FDB  440
      ITER = 0                                                          FDB  450
      RA = RE+HA                                                        FDB  460
      RB = RE+HB                                                        FDB  470
      SG = SQRT(RA**2+RB**2-2.0*RA*RB*COS(BETA/DEG))                    FDB  480
      ANGLE1 = 180.0-ACOS((RA**2+SG**2-RB**2)/(2.0*RA*SG))*DEG          FDB  490
      HMIN = HA                                                         FDB  500
      IF(ANGLE1.GT.90.0)  HMIN = RA*SIN(ANGLE1/DEG)-RE                  FDB  510
      HMING = HMIN                                                      FDB  520
      ANGLS1 = ANGLE1                                                   FDB* 521
      CALL FNDHMN(HA,ANGLS1,HB,LEN,ITER,HMIN,PHI,IERROR)                FDB* 530
      LEN = 0                                                           FDB  540
      IF(HMIN.LT.HA) LEN = 1                                            FDB  550
      CALL RFPATH(HA,HB,ANGLS1,PHI,LEN,HMIN,IAMTB,BETA1,RANGE,BENDNG)   FDB* 560
      WRITE(IPR,26)  ITER,ANGLE1,BETA ,ZER  ,SG    ,HMING,ZER,ZER       FDB  570
C                                                                       FDB  580
C     OBTAIN DERIVATIVE                                                 FDB  590
C                                                                       FDB  600
      SG = SQRT(RA**2+RB**2-2.0*RA*RB*COS((BETA+BETD)/DEG))             FDB  610
      ANGLEP = 180.0-ACOS((RA**2+SG**2-RB**2)/(2.0*RA*SG))*DEG          FDB  620
      DANG = ANGLE1 - ANGLEP                                            FDB  630
      IF(HMIN.GE.0.0) GO TO 310                                         FDB  640
      IFLAG = 1                                                         FDB  650
      HMIN = 0.0                                                        FDB  660
      CALL FNDHMN(HMIN,90.0,HA,LEN,ITER,HMIN,ANGLS1,IERROR)             FDB* 670
  310 CONTINUE                                                          FDB  680
      ITER = 1                                                          FDB  690
      LEN = 0                                                           FDB  700
      IF(ANGLE1.GT.90.0) LEN = 1                                        FDB  710
      CALL FNDHMN(HA,ANGLS1,HB,LEN,ITER,HMIN,PHI,IERROR)                FDB* 720
      LEN = 0                                                           FDB  730
      IF(HMIN.LT.HA) LEN = 1                                            FDB  740
      CALL RFPATH(HA,HB,ANGLS1,PHI,LEN,HMIN,IAMTB,BETA1,RANGE,BENDNG)   FDB* 750
      DBETA = BETA-BETA1                                                FDB  760
      WRITE(IPR,26)  ITER,ANGLE1,BETA1,DBETA,RANGE,HMIN,PHI,BENDNG      FDB  770
   26 FORMAT(I5,3F10.4,2F10.3,2F10.4)                                   FDB  780
      IF(IFLAG.EQ.1 .AND. BETA1.LT.BETA) GO TO 9005                     FDB  790
  320 CONTINUE                                                          FDB  800
      ANGLEP = ANGLE1 -DANG                                             FDB  810
      LEN = 0                                                           FDB  820
      IF(ANGLEP.GT.90.0) LEN = 1                                        FDB  830
      CALL FNDHMN(HA,ANGLEP,HB,LEN,ITER,HMIN,PHI,IERROR)                FDB  840
      LEN = 0                                                           FDB  850
      IF(HMIN.LT.HA) LEN = 1                                            FDB  860
      CALL RFPATH(HA,HB,ANGLEP,PHI,LEN,HMIN,IAMTB,BETAP,RANGE,BENDNG)   FDB  870
      IF(ABS(BETA1-BETAP).LT.TOLRNC) GO TO 330                          FDB  880
      ITER = ITER+1                                                     FDB  890
      DC = BETAP - BETA1                                                FDB  900
C     DERIV = -DC/BETD                                                  FDB  910
       ANGLE2 = ANGLE1+(ANGLE1-ANGLEP)*(BETA-BETA1)/(BETA1-BETAP)       FDB  920
      LEN = 0                                                           FDB  930
      IF(ANGLE2.GT.90.0) LEN = 1                                        FDB  940
      ANGLS2 = ANGLE2                                                   FDB* 941
      CALL FNDHMN(HA,ANGLS2,HB,LEN,ITER,HMIN,PHI,IERROR)                FDB* 950
      LEN = 0                                                           FDB  960
      IF(HMIN.LT.HA) LEN = 1                                            FDB  970
      CALL RFPATH(HA,HB,ANGLS2,PHI,LEN,HMIN,IAMTB,BETA2,RANGE,BENDNG)   FDB* 980
      DBETA = BETA-BETA2                                                FDB  990
      WRITE(IPR,26)  ITER,ANGLE2,BETA2,DBETA,RANGE,HMIN,PHI,BENDNG      FDB 1000
      IF(BETA2.LT.BETA.AND.HMIN.LT.0.0) GO TO 9005                      FDB 1010
      ANGLE1 = ANGLE2                                                   FDB 1020
      ANGLS1 = ANGLE1                                                   FDB*1021
C                                                                       FDB 1030
      BETA1 = BETA2                                                     FDB 1040
C     BETA2 = BETA3                                                     FDB 1050
      IF(ABS(BETA-BETA2).LT.TOLRNC) GO TO 340                           FDB 1060
      IF(ITER.GT.ITERMX) GO TO 9006                                     FDB 1070
      GO TO 320                                                         FDB 1080
  330 ANGLE2 = ANGLEP                                                   FDB 1090
      ANGLS2 = ANGLE2                                                   FDB*1091
      BETA = BETAP                                                      FDB 1100
  340 CONTINUE                                                          FDB 1110
      IF(HMIN.LT.0.0) GO TO 9005                                        FDB 1120
C*****CONVERGED TO A SOLUTION                                           FDB 1130
      ANGLE = ANGLE2                                                    FDB 1140
      BETA = BETA2                                                      FDB 1150
C*****ASSIGN ANGLE AND PHI TO PROPER H1 AND H2                          FDB 1160
      IF(IORDER.EQ.1) GO TO 350                                         FDB 1170
      TEMP = PHI                                                        FDB 1180
      PHI = ANGLE                                                       FDB 1190
      ANGLE = TEMP                                                      FDB 1200
  350 CONTINUE                                                          FDB 1210
      BETAS = BETA                                                      *** 1211
      RETURN                                                            FDB 1220
C*****                                                                  FDB 1230
C*****ERROR MESSAGES                                                    FDB 1240
C*****                                                                  FDB 1250
 9005 CONTINUE                                                          FDB 1260
      WRITE(IPR,45)                                                     FDB 1270
   45 FORMAT('0FDBETA, CASE 2D(H1,H2,BETA): REFRACTED TANGENT ',        FDB 1280
     1    'HEIGHT IS LESS THAN ZERO-PATH INTERSECTS THE EARTH',         FDB 1290
     2    //,10X,'BETA IS TOO LARGE FOR THIS H1 AND H2')                FDB 1300
      GO TO 9900                                                        FDB 1310
 9006 CONTINUE                                                          FDB 1320
      WRITE(IPR,46) H1,H2,BETA,ITER,ANGLE1,BETA1,ANGLE2,BETA2           FDB 1330
C    1    ANGLE3,BETA3                                                  FDB 1340
   46 FORMAT('0FDBETA, CASE 2D (H1,H2,BETA): SOLUTION DID NOT ',        FDB 1350
     1    ' CONVERGE',//,10X,'H1 = ',F12.6,'    H2 = ',F12.6,           FDB 1360
     2    '    BETA = ',F12.6,'    ITERATIONS = ',I4,//,                FDB 1370
     3    10X,'LAST THREE ITERATIONS ',//,                              FDB 1380
     4    (10X,'ANGLE = ',F15.9,'    BETA = ',F15.9))                   FDB 1390
 9900 IERROR = 1                                                        FDB 1400
      RETURN                                                            FDB 1410
      END                                                               FDB 1420
      SUBROUTINE FILL(HA,HB,JNEXT)                                      FLL  100
C********************************************************************   FLL  110
C     THIS SUBROUTINE DEFINES THE ATMOSPHERIC BOUNDARIES OF THE PATH    FLL  120
C     FROM HA TO HB AND INTERPOLATES (EXTRAPOLATES) THE DENSITIES TO    FLL  130
C     THESE BOUNDARIES ASSUMING THE DENSITIES VARY EXPONENTIALLY        FLL  140
C     WITH HEIGHT                                                       FLL  150
C********************************************************************   FLL  160
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                FLL  170
      COMMON /MODEL/ Z(34),P(34),T(34),RFNDX(34),DENSTY(63,34),         FLL  180
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         FLL  190
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              FLL  200
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     FLL  210
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               FLL  220
      COMMON /RFRPTH/ ZP(35),PP(35),TP(35),RFNDXP(35),SP(35),           FLL  230
     1    PPSUM(35),TPSUM(35),RHOPSM(35),DENP(63,35),AMTP(63,35)        FLL  240
      IF(HA.LT.HB) GO TO 90                                             FLL  250
      WRITE(IPR,22) HA,HB,JNEXT                                         FLL  260
   22 FORMAT('0SUBROUTINE FILL- ERROR, HA .GE. HB',//,                  FLL  270
     1    10X,'HA, HB, JNEXT = ',2E25.15,I6)                            FLL  280
      STOP                                                              FLL  290
   90 CONTINUE                                                          FLL  300
C*****FIND Z(IA): THE SMALLEST Z(I).GT.HA                               FLL  310
      DO 100 I=1,IMAX                                                   FLL  320
      IF(HA.GE.Z(I)) GO TO 100                                          FLL  330
      IA = I                                                            FLL  340
      GO TO 110                                                         FLL  350
  100 CONTINUE                                                          FLL  360
      IA = IMAX+1                                                       FLL  370
      IB = IA                                                           FLL  380
      GO TO 130                                                         FLL  390
C*****FIND Z(IB): THE SMALLEST Z(I).GE.HB                               FLL  400
  110 CONTINUE                                                          FLL  410
      DO 120 I=IA,IMAX                                                  FLL  420
      IF(HB-Z(I).GT. .0001) GO TO 120                                   FLL  430
      IB = I                                                            FLL  440
      GO TO 130                                                         FLL  450
  120 CONTINUE                                                          FLL  460
      IB = IMAX+1                                                       FLL  470
  130 CONTINUE                                                          FLL  480
C*****INTERPOLATE DENSITIES TO HA, HB                                   FLL  490
      ZP(JNEXT) = HA                                                    FLL  500
      I2 = IA                                                           FLL  510
      IF(I2.EQ.1) I2 = 2                                                FLL  520
      IF(I2.GT.IMAX) I2 = IMAX                                          FLL  530
      I1 = I2-1                                                         FLL  540
      A = (HA-Z(I1))/(Z(I2)-Z(I1))                                      FLL  550
      CALL EXPINT(PP(JNEXT),P(I1),P(I2),A)                              FLL  560
      TP(JNEXT) = T(I1)+(T(I2)-T(I1))*A                                 FLL  570
      CALL EXPINT(RFNDXP(JNEXT),RFNDX(I1),RFNDX(I2),A)                  FLL  580
      DO 140 K=1,KMAX                                                   FLL  590
      CALL EXPINT(DENP(K,JNEXT),DENSTY(K,I1),DENSTY(K,I2),A)            FLL  600
  140 CONTINUE                                                          FLL  610
      IF(IA.EQ.IB) GO TO 160                                            FLL  620
C*****FILL IN DENSITIES BETWEEN HA AND HB                               FLL  630
      I1 = IA                                                           FLL  640
      I2 = IB-1                                                         FLL  650
      DO 150 I=I1,I2                                                    FLL  660
      JNEXT = JNEXT+1                                                   FLL  670
      ZP(JNEXT) = Z(I)                                                  FLL  680
      PP(JNEXT) = P(I)                                                  FLL  690
      TP(JNEXT) = T(I)                                                  FLL  700
      RFNDXP(JNEXT) = RFNDX(I)                                          FLL  710
      DO 150 K=1,KMAX                                                   FLL  720
      DENP(K,JNEXT) = DENSTY(K,I)                                       FLL  730
  150 CONTINUE                                                          FLL  740
  160 CONTINUE                                                          FLL  750
C*****INTERPOLATE THE DENSITIES TO HB                                   FLL  760
      JNEXT = JNEXT+1                                                   FLL  770
      ZP(JNEXT) = HB                                                    FLL  780
      I2 = IB                                                           FLL  790
      IF(I2.EQ.1) I2 = 2                                                FLL  800
      IF(I2.GT.IMAX) I2 = IMAX                                          FLL  810
      I1 = I2-1                                                         FLL  820
      A = (HB-Z(I1))/(Z(I2)-Z(I1))                                      FLL  830
      CALL EXPINT(PP(JNEXT),P(I1),P(I2),A)                              FLL  840
      TP(JNEXT) = T(I1)+(T(I2)-T(I1))*A                                 FLL  850
      CALL EXPINT(RFNDXP(JNEXT),RFNDX(I1),RFNDX(I2),A)                  FLL  860
      DO 170 K=1,KMAX                                                   FLL  870
      CALL EXPINT(DENP(K,JNEXT),DENSTY(K,I1),DENSTY(K,I2),A)            FLL  880
  170 CONTINUE                                                          FLL  890
      RETURN                                                            FLL  900
      END                                                               FLL  910
      SUBROUTINE FINDSH(H,SH,GAMMA)                                     FIN  100
C*****GIVEN AN ALTITUDE H, THIS SUBROUTINE FINDS THE LAYER BOUNDARIES   FIN  110
C*****ZM(I1) AND ZM(I2) WHICH CONTAIN H,  THEN CALCULATES THE SCALE     FIN  120
C*****HEIGHT (SH) AND THE VALUE AT THE GROUND (GAMMA+1) FOR THE         FIN  130
C*****INDEX OF REFRACTION                                               FIN  140
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              FIN  150
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     FIN  160
      COMMON /MODEL/ Z(34),P(34),T(34),RFNDX(34),DENSTY(63,34),         FIN  170
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         FIN  180
      DO 100 IM=2,IMOD                                                  FIN  190
      I2 = IM                                                           FIN  200
      IF(Z(IM).GE.H)  GO TO 110                                         FIN  210
  100 CONTINUE                                                          FIN  220
      I2 = IMOD                                                         FIN  230
  110 CONTINUE                                                          FIN  240
      I1 = I2-1                                                         FIN  250
      CALL SCALHT(Z(I1),Z(I2),RFNDX(I1),RFNDX(I2),SH,GAMMA)             FIN  260
      RETURN                                                            FIN  270
      END                                                               FIN  280
      SUBROUTINE FLAYZ(ML,MODEL,ICLD,ZMDL,GNDALT,IVSA)                  FLA  100
C                                                                       FLA  110
C     SUBROUTINE TO CREATE FINAL LOWTRAN BOUNDARIES                     FLA  120
C                                                                       FLA  130
C     ZMDL COMMON /MODEL/ FINAL ALTITUDE FOR LOWTRAN                    FLA  140
C     ZCLD CLOUD ALTITUDE                                               FLA  150
C     ZK1 USED WITH VSA                                                 FLA  160
C     ZNEW ALTITUDES ABOVE THE CLOUD                                    FLA  170
C     ZNEWV ALTITUDES ABOVE THE 1ST 9 VSA ALTITUDES                     FLA  180
C     ZTST  =ZCLD(J)                                                    FLA  190
C     ZVSA  VSA ALTITUDES                                               FLA  200
C                                                                       FLA  210
      COMMON /CARD2A/ CTHIK,CALT,CEXT                                   FLA  220
      COMMON /ZVSALY/ ZVSA(10),RHVSA(10),AHVSA(10),IHVSA(10)            FLA  230
      DIMENSION ZNEWV(24),ZMDL( *)                                      FLA  240
      DIMENSION ZNEW(17),ZCLD(16),ZAER(34),ZST(34)                      FLA  250
      DATA ZCLD/ 0.0,0.16,0.33,0.66,1.0,1.5,2.0,2.4,2.7,                FLA  260
     1 3.0,3.5,4.0,4.5,5.0,5.5,6.0/                                     FLA  270
      DATA ZNEWV/1.,2.,3.,4.,5.,6.,7.,8.,9.,10.,11.,12.,                FLA  280
     C 14.,16.,18.,20.,22.,25.,30.,35.,40.,50.,70.,100./                FLA  290
      DATA ZNEW/ 7.,8.,9.,10.,12.,14.,16.,18.,20.,22.,25.,30.,          FLA  300
     1 35.,40.,50.,70.,100./                                            FLA  310
      DATA ZAER / 0., 1., 2., 3., 4., 5., 6., 7., 8., 9.,               FLA  320
     1           10.,11.,12.,13.,14.,15.,16.,17.,18.,19.,               FLA  330
     1           20.,21.,22.,23.,24.,25.,30.,35.,40.,45.,               FLA  340
     1           50.,70.,100.,   1000./                                 FLA  350
      DATA DELZ /0.02/                                                  FLA  360
      IF(MODEL .EQ.7) GO TO 600                                         FLA  370
C                                                                       FLA  380
      IF(MODEL.EQ.0) GO TO 600                                          FLA  390
      IF(IVSA.EQ.1) THEN                                                FLA  400
           DO 2 I=1,9                                                   FLA  410
2          ZMDL(I)=ZVSA(I)                                              FLA  420
C                                                                       FLA  430
           HMXVSA=ZVSA(9)                                               FLA  440
           ZK1=HMXVSA+0.01                                              FLA  450
           IF(HMXVSA.LT.2.)ML=33                                        FLA  460
           IF(HMXVSA.LT.1.)ML=34                                        FLA  470
           IF(HMXVSA.EQ.2.)ML=32                                        FLA  480
           MDEL=34-ML                                                   FLA  490
           DO 4 K=1,ML                                                  FLA  500
           IK=K-10+MDEL                                                 FLA  510
           IF(IK.GE.1)ZMDL(K)=ZNEWV(IK)                                 FLA  520
           IF(K.EQ.10)ZMDL(K)=ZK1                                       FLA  530
4          CONTINUE                                                     FLA  540
C                                                                       FLA  550
           RETURN                                                       FLA  560
      ENDIF                                                             FLA  570
C                                                                       FLA  580
      IF(ICLD.GE.1.AND.ICLD.LE.11) GO TO 18                             FLA  590
      DO 10 I=1,ML                                                      FLA  600
      IF(ZAER(I) .GT.100.) GO TO 12                                     FLA  610
      IL = I                                                            FLA  620
10    ZMDL(I)=ZAER(I)                                                   FLA  630
12    ML = IL                                                           FLA  640
C     IF(IEMSCT.NE.0) ZMDL(ML)=100.                                     FLA  650
C                                                                       FLA  660
      IF(GNDALT.LE.0.) GO TO  90                                        FLA  670
      DALT=(6.-GNDALT)/6.                                               FLA  680
      IF(DALT.LE.0.) GO TO  90                                          FLA  690
C                                                                       FLA  700
      DO 15 I=1,6                                                       FLA  710
15    ZMDL(I)=FLOAT(I-1)*DALT+GNDALT                                    FLA  720
90    IF(ICLD .EQ. 18 .OR .ICLD. EQ. 19) THEN                           FLA  730
           CLDD =  0.1 * CTHIK                                          FLA  740
           CLD0 = CALT - 0.5*CLDD                                       FLA  750
           IF(CLD0 .LE. 0.) CLD0 = 0.                                   FLA  760
           CLD1 = CLD0 + CLDD                                           FLA  770
           CLD2 = CLD1 + CTHIK - CLDD                                   FLA  780
           CLD3 = CLD2 + CLDD                                           FLA  790
           DO 100 I = 1,ML                                              FLA  800
           IJ = I                                                       FLA  810
           IF(ZMDL(I) . LT. CLD0) GO TO 100                             FLA  820
           GO TO 120                                                    FLA  830
100        CONTINUE                                                     FLA  840
           GO TO 600                                                    FLA  850
120        ML1 = ML - IJ                                                FLA  860
           DO 130 I = 1 ,ML1                                            FLA  870
130        ZST(I)   = ZMDL(IJ+I-1)                                      FLA  880
           ZMDL(IJ) = CLD0                                              FLA  890
           ZMDL(IJ+1) = CLD1                                            FLA  900
           ZMDL(IJ+2) = CLD2                                            FLA  910
           ZMDL(IJ+3) = CLD3                                            FLA  920
           II  =  3                                                     FLA  930
           DO 140 I = 1,ML1                                             FLA  940
           IF(ZST(I) . LT. CLD3) GO TO 140                              FLA  950
           II  = II + 1                                                 FLA  960
           IF((IJ + II) . EQ. ML) GO TO 145                             FLA  970
           ZMDL(IJ + II) = ZST(I)                                       FLA  980
           IJII = IJ + II
140        CONTINUE                                                     FLA  990
           ML = IJII +1
145        ZMDL(ML) = 100.                                              FLA  995
      ENDIF                                                             FLA 1000
      GO TO 600                                                         FLA 1010
C                                                                       FLA 1020
C     STAND CLOUD                                                       FLA 1030
C                                                                       FLA 1040
18    DO 20 I=1,16                                                      FLA 1050
20    ZMDL(I)=ZCLD(I)+GNDALT                                            FLA 1060
      I=16                                                              FLA 1070
C                                                                       FLA 1080
      DO 30 K=17,ML                                                     FLA 1090
      J=K-16                                                            FLA 1100
      IF(ZNEW(J).LE.ZMDL(16)) GO TO 30                                  FLA 1110
      I=I+1                                                             FLA 1120
      ZMDL(I)=ZNEW(J)                                                   FLA 1130
30    CONTINUE                                                          FLA 1140
      ML = I                                                            FLA 1150
      GO TO 600                                                         FLA 1160
C                                                                       FLA 1170
C     MODEL 7                                                           FLA 1180
600   RETURN                                                            FLA 1190
      END                                                               FLA 1200
      SUBROUTINE FLXADD (TLE,COSBAR,TAER,OMEGA0,UPF,DNF,IWAVN,          FLX  100
     1 IKMAX,     CSZEN,S0,STRN,            FDNSRF,FDNTRF,              FLX  110
     2     DMF,DMFS,UMF,UMFS)                                           FLX  120
C                                                                       FLX  130
C         (1) CALCULATES UPWARD, F+ (UPF), AND DOWNWARD, F- (DNF),      FLX  140
C             FLUX PROFILES USING ADDING METHOD                         FLX  150
C         (2) MS SOURCE FUNCTION EVALUATED FROM LEVEL FLUXES VIA        FLX  160
C             STREAM APPROXIMATION (SEE EQN     , ISAACS ET AL, 1986)   FLX  170
C         (3) BACKSCATTER FOR SOURCE FUNCTION FOR GIVEN G FACTOR        FLX  180
C             AND ZENTIH ANGLE OBTAINED USING FUNCTION BETABS           FLX  190
C                                                                       FLX  200
C                                          A.E.R. 1986                  FLX  210
C                                                                       FLX  220
      DOUBLE PRECISION AER1,AER2,AERA,AERU,AERV,AERC,AERCX,EX1,EX2,     FLX* 222
     1                 DENO,DNMO,DNM1                                   FLX* 224
      COMMON /IFIL/IRD,IPR,IPU,NPR,IPR1                                 FLX  230
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            FLX  240
C     COMMON             WPATH(68, 63),TBBY(68)                         FLX*-242
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   FLX 242A
      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),VX2(47),AWCCON(5)         FLX* 244
C                                                                       FLX  250
C     COMMON /TRAN/ABB(19),                                             FLX -260
C    1                     BTOP(50),BMID(34),TMD(34),TMOLS(34),         FLX -270
C    1 TAERS(34),TCONT(34),DCONT(68)                                    FLX -280
      COMMON /TRAN/BTOP(50),TMOLS(34),TAERS(34),TCONT(34),DCONT(68)     FLX 280A
      COMMON /AABBCC/ AA(11),BB(11),CC(11),IBND(11),A(11),CPS(11)       FLX  290
      COMMON/CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB   FLX  300
     1  ,MODTRN                                                         FLX 300A
      COMMON/MODEL/ZM(34),PM(34),TM(34),DUM(34),DENSTY(63,34),          FLX  310
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         FLX  320
      COMMON /CNTRL/ KMAX,M7,JKMAX,NL,ML,JKLO,ISSGEO,IMULT              FLX  330
      COMMON /PATH/ PL(68),QTHETA(68),ITEST,H1S,H2S,AHT(68)             FLX  340
      COMMON /CNSTNS/PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                      FLX  350
      COMMON /DIRST/  SUN,UMB(34),DMB(34),UMBS(34),DMBS(34)             FLX  360
      DIMENSION COSBAR(34),DNF(10,34),                                  FLX  370
     1 EDN(50),EUP(50),EUPC(50),TAUM(3,50),                             FLX  380
     2                        TDF(50),TLE(34),OMEGA0(34),               FLX  390
     3 UPF(10,34),                  RUPC(50),TAER(50),REF(50),          FLX  400
     4 EUPS(34),EDNS(34),UPFS(15,34),DNFS(15,34),EUPCS(34),             FLX  410
     5 CSZEN(68),STRN(0:34),BETS(34),           TWGP(3,34),RUPCS(34),   FLX  420
     6 UMF(34),DMF(34),UMFS(34),DMFS(34),REFS(34),TDFS(34)              FLX  430
      DIMENSION OMEGAK(34),TAUT(34)                                     FLX  440
      DIMENSION FAC(3),GKWJ(3,11),DPWJ(3,11)                            FLX  450
      DIMENSION CP1S(11),DPJ(3,34)                                      FLX  460
C***********************************************************************FLX  470
C                                                                       FLX  480
C   INPUT PARAMETERS:                                                   FLX  490
C   ----------------                                                    FLX  500
C   TLE(N)     - TEMPERATURE (KELVIN) OF UPPER EDGE OF LAYER N          FLX  510
C   COSBAR(N)  - ASYMMETRY FACTOR FOR LAYER N                           FLX  520
C   TAER(N)    - TOTAL AEROSOL OPTICAL THICKNESS OF LAYER N             FLX  530
C   TAERS(N)   - AEROSOL SCATTERING OPTICAL THICKNESS OF LAYER N        FLX  540
C   TCONT(N)   - MOLECULAR CONTINUUM OPTICAL THICKNESS FOR LAYER N      FLX  550
C   TMOLS(N)   - RAYLEIGH SCATTERING OPTICAL THICKNESS FOR LAYER N      FLX  560
C   CSZEN(N)   - COSINE OF SOLAR ZENITH ANGLE FOR LAYER N               FLX  570
C   IWAVN      - FREQUENCY (WAVENUMBER)                                 FLX  580
C   S0         - SOLAR INTENSITY AT TOP OF ATMOSPHERE                   FLX  590
C   H1         - ALTITUDE OF OBSERVER (KM)                              FLX  600
C   H2         - ALTITUDE OF TARGET (KM)                                FLX  610
C   STRN(N)    - SOLAR TRANSMISSION TO BOTTOM OF LAYER N                FLX  620
C                                                                       FLX  630
C   OUTPUT PARAMETERS:                                                  FLX  640
C   -----------------                                                   FLX  650
C   OMEGAK  (N)- SINGLE SCATTERING ALBEDO OF LAYER N FOR VALUE OF K     FLX  660
C   TAUM(K,N)  - MOLECULAR OPTICAL THICKNESS OF LAYER N FOR VALUE OF K  FLX  670
C   BTOP(N)    - BLACK BODY FLUX FOR UPPER EDGE TEMPERATURE OF LAYER N  FLX  680
C   BMID(N)    - BLACK BODY FLUX FOR AVERAGE TEMPERATURE OF LAYER N     FLX  690
C                                                                       FLX  700
C   INTERNAL PARAMETERS:                                                FLX  710
C   -------------------                                                 FLX  720
C   TWGP(K,N)  - SUM OF OPTICAL DEPTH * PROBABILITY BY MOLECULE         FLX  730
C                                                                       FLX  740
C   UPF(K,N)   - UPWARD THERMAL FLUX AT UPPER EDGE OF LAYER N FOR       FLX  750
C                VALUE OF K                                             FLX  760
C   UPFS(K,N)  - UPWARD SOLAR FLUX AT UPPER EDGE OF LAYER N FOR         FLX  770
C                VALUE OF K                                             FLX  780
C   DNF(K,N)   - DOWNWARD THERMAL FLUX AT UPPER EDGE OF LAYER N FOR     FLX  790
C                VALUE OF K                                             FLX  800
C   DNFS(K,N)  - DOWNWARD SOLAR FLUX AT UPPER EDGE OF LAYER N FOR       FLX  810
C                VALUE OF K                                             FLX  820
C   UMF(N)     - MEAN UPWARD THERMAL FLUX OF LAYER N FOR VALUE OF K     FLX  830
C   UMFS(N)    - MEAN UPWARD SOLAR FLUX OF LAYER N FOR VALUE OF K       FLX  840
C   DMF(N)     - MEAN DOWNWARD THERMAL FLUX OF LAYER N FOR VALUE OF K   FLX  850
C   DMFS(N)    - MEAN DOWNWARD SOLAR FLUX OF LAYER N FOR VALUE OF K     FLX  860
C   SU(K,N)    - UPWARD THERMAL RADIANCE SOURCE FUNCTION FOR N,K        FLX  870
C   SUS(K,N)   - UPWARD SOLAR RADIANCE SOURCE FUNCTION FOR N,K          FLX  880
C   SD(K,N)    - DOWNWARD THERMAL RADIANCE SOURCE FUNCTION FOR N,K      FLX  890
C   SDS(K,N)   - DOWNWARD SOLAR RADIANCE SOURCE FUNCTION FOR N,K        FLX  900
C   BETS(N)    - BACKSCATTER FRACTION ALONG SOLAR PATH AT LAYER N       FLX  910
C                                                                       FLX  920
C***********************************************************************FLX  930
C                                                                       FLX  940
C   NEW VARABLES          11 MOLECULES  BY JOSEPH H PIERLUISSI          FLX  950
C   DPWJ  PROBABILITY FOR EACH MOLECULE  FIT DOUBLE EXPONENTIAL         FLX  960
C   GKWJ  BAND DEPENDENT  SCALING OF DENSITIES TO GET K AMOUNT          FLX  970
C   CPS IS THE STORED VALUES OF PIERLUISSI BAND MODEL COEFFIECNTS       FLX  980
C   CP1S = 10**CPS                                                      FLX  990
C   IBND MAPS BANDS TO MOLECULES                                        FLX 1000
C   DPJ REPLACES DPO  IS THE  EFFECTIVE PROBILITY BY LAYER              FLX 1010
C   TAUM IS DEFINED AS THE SUM OF THE OPTICAL DEPTHS BY MOLECULE        FLX 1020
C                                                                       FLX 1030
      DATA RUPC/50*0.0/,RUPCS/34*0.0/                                   FLX 1040
      DATA EUPS/34*0.0/,EDNS/34*0.0/                                    FLX 1050
      DATA REFS/34*0.0/,TDFS/34*0.0/                                    FLX 1060
      DATA UPFS/510*0.0/,DNFS/510*0.0/                                  FLX 1070
      DATA FAC /1.0,0.09,0.015/                                         FLX 1080
320   FORMAT(5E14.6)                                                    FLX 1090
300   FORMAT(10F7.2)                                                    FLX 1100
310   FORMAT(10F7.4)                                                    FLX 1110
      DPC = 1./3.                                                       FLX 1120
      WAVN=FLOAT(IWAVN)                                                 FLX 1130
      V = WAVN                                                          FLX 1140
CC    PRINT 1900                                                        FLX 1150
1900  FORMAT('      V    FLXDN     FLXDNS    FLXUP     FLXUPS')         FLX 1160
      NLAYRS = ML - 1                                                   FLX 1170
      NG=NLAYRS+1                                                       FLX 1180
      NG1=NG+1                                                          FLX 1190
      DO  1 M = 1,11                                                    FLX 1200
1     CP1S(M)= 10.**CPS(M)                                              FLX 1210
C                                                                       FLX 1220
      DO  4  MOL = 1,11                                                 FLX 1230
      DO  5    K = 1,3                                                  FLX 1240
      IW = IBND(MOL)                                                    FLX 1250
      GKWJ(K,MOL) = 0.                                                  FLX 1260
      DPWJ(K,MOL) = 0.                                                  FLX 1270
      IF(IW. LE. 0) GO TO 5                                             FLX 1280
      GKWJ(K,MOL) = FAC(K) * CC(MOL)                                    FLX 1290
      IF(K .EQ. 1) DPWJ(K,MOL) = AA(MOL)                                FLX 1300
      IF(K .EQ. 2) DPWJ(K,MOL) = BB(MOL)                                FLX 1310
      IF(K .EQ. 3) DPWJ(K,MOL) = 1. - AA(MOL) - BB(MOL)                 FLX 1320
      IF(K. GT. 1) GO TO 5                                              FLX 1330
  5   CONTINUE                                                          FLX 1340
 4    CONTINUE                                                          FLX 1350
      TLE(NG1)=TLE(NG)                                                  FLX 1360
      DO 98 N=1,NG                                                      FLX 1370
C                                                                       FLX 1380
C   BLACK BODY FLUX FOR LAYER EDGE TEMPERATURE                          FLX 1390
C                                                                       FLX 1400
      BTOP(N)=BBFN(TLE(N),V)*PI                                         FLX 1410
C                                                                       FLX 1420
C   BLACK BODY RADIANCE FOR LAYER MIDDLE TEMPERATURE                    FLX 1430
C                                                                       FLX 1440
C     BMID(N)=BBFN(TMD(N),V)                                            FLX 1450
      IF(N .LT. NG) THEN                                                FLX 1460
C                                                                       FLX 1470
C    CALCULATE COSINE OF VIEWING PATH ZENITH ANGLE                      FLX 1480
C                                                                       FLX 1490
C                                                                       FLX 1500
C    CALCULATE BACKSCATTER PARAMETERS                                   FLX 1510
C                                                                       FLX 1520
      IF(COSBAR(N) .EQ. 0.0) THEN                                       FLX 1530
      BETS(N)=.5                                                        FLX 1540
      ELSE                                                              FLX 1550
      IF((IEMSCT .EQ. 2) .OR. (IEMSCT .EQ. 3)) THEN                     FLX 1560
      BETS(N)=BETABS(CSZEN(N),COSBAR(N))                                FLX 1570
      ENDIF                                                             FLX 1580
      ENDIF                                                             FLX 1590
      ENDIF                                                             FLX 1600
   98 CONTINUE                                                          FLX 1610
C                                                                       FLX 1620
C   ABSORPTION COEFFICIENTS FOR WATER VAPOR, UNIFORMLY MIXED GASES      FLX 1630
C   AND OZONE                                                           FLX 1640
C                                                                       FLX 1650
C                                                                       FLX 1660
C   EVALUATE THE WEIGHTED K DISTRIBUTION QUANTITIES FOR                 FLX 1670
C   WATER VAPOR AND THE UNIFORMLY MIXED GASES                           FLX 1680
C                                                                       FLX 1690
      DO 70 K=1, 3                                                      FLX 1700
      DO 70 N=1,NLAYRS                                                  FLX 1710
C                                                                       FLX 1720
      TAUM(K,N)  = 0.                                                   FLX 1730
      TWGP(K,N)  = 0.                                                   FLX 1740
      DO 60 MOL = 1,11                                                  FLX 1750
      IB = IBND(MOL)                                                    FLX 1760
      IF(IB .LT.0) GO TO 60                                             FLX 1770
      W(IB) = DENSTY(IB,IKMAX-N)*PL(IKMAX-N)*GKWJ(K,MOL)                FLX 1780
      TAUM(K,N)= TAUM(K,N) + W(IB) * CP1S(MOL)                          FLX 1790
      TWGP(K,N)= TWGP(K,N) + W(IB) * CP1S(MOL) * DPWJ(K,MOL)            FLX 1800
60    CONTINUE                                                          FLX 1810
      DPJ(K,N) = DPC                                                    FLX 1820
      IF(TAUM(K,N) .NE .0) THEN                                         FLX 1830
         DPJ(K,N) = TWGP(K,N) / TAUM(K,N)                               FLX 1840
      ENDIF                                                             FLX 1850
C                                                                       FLX 1860
C     EFFECTIVE PROBILITY BY LAYER DPJ IS BASED ON MOLECULAR            FLX 1870
C     PROBILITY WEIGHTED BY OPTICAL DEPTH                               FLX 1880
C                                                                       FLX 1890
  70  CONTINUE                                                          FLX 1900
      DO 80 N=1,NLAYRS                                                  FLX 1910
      SMDPJ = DPJ(1,N) + DPJ(2,N) + DPJ(3,N)                            FLX 1920
      DO 80 K=1, 3                                                      FLX 1930
      DPJ(K,N) = DPJ(K,N)/SMDPJ                                         FLX 1940
  80  CONTINUE                                                          FLX 1950
C                                                                       FLX 1960
C     EFFECTIVE PROBILITY BY LAYER DPJ NORMALIZED                       FLX 1970
C     FOR CURRENT VALUES OF GKWJ  NORMALIZATION NOT REQUIRED            FLX 1980
C     PROTECTION FOR ARBITARY CHOICE OF GKWJ                            FLX 1990
C                                                                       FLX 2000
C***********************************************************************FLX 2010
C*    PROBABILITY INTEGRATION LOOP                                     *FLX 2020
C***********************************************************************FLX 2030
      DO 100 K=1,3                                                      FLX 2040
C**** COMPOSITE DOWNWARDS REFLECTION                                    FLX 2050
      RDNCN=0.                                                          FLX 2060
      RDNCNS=0.0                                                        FLX 2070
C***********************************************************************FLX 2080
C*    ADDING GROUND LAYER                                              *FLX 2090
C***********************************************************************FLX 2100
C                                                                       FLX 2110
C   DEFINE INITIAL UPWARD COMPOSITE SURFACE REFLECTANCE                 FLX 2120
C                                                                       FLX 2130
      RUPCN=SALB                                                        FLX 2140
      RUPCNS=SALB                                                       FLX 2150
C                                                                       FLX 2160
C   SURFACE THERMAL EMISSION                                            FLX 2170
C                                                                       FLX 2180
      BTOP(NG1)=BBFN(TLE(NG1),V)*PI                                     FLX 2190
C                                                                       FLX 2200
C   SURFACE EMISSION                                                    FLX 2210
C                                                                       FLX 2220
      EUPCN=(1.0-RUPCN)*BTOP(NG1)                                       FLX 2230
      EUP(NG)=EUPCN                                                     FLX 2240
      EUPC(NG)=EUPCN                                                    FLX 2250
      IF(IEMSCT .EQ. 2) THEN                                            FLX 2260
      MF = ML - 1                                                       FLX 2270
      EUPCNS=RUPCNS*CSZEN(MF)*STRN(MF)*S0                               FLX 2280
      ELSE                                                              FLX 2290
      EUPCNS=0.0                                                        FLX 2300
      ENDIF                                                             FLX 2310
      EUPS(NG)=EUPCNS                                                   FLX 2320
      EUPCS(NG)=EUPCNS                                                  FLX 2330
C                                                                       FLX 2340
C***********************************************************************FLX 2350
C*      UPWARD ADDING LOOP(1-N)                                        *FLX 2360
C***********************************************************************FLX 2370
      DO 101 N=NLAYRS,1,-1                                              FLX 2380
      M=N-1                                                             FLX 2390
C                                                                       FLX 2400
C    CALCULATE MOLECULAR OPTICAL THICKNESS OF EACH LAYER FOR EACH K     FLX 2410
C    NOTE: TOP LAYER IS LAYER 1                                         FLX 2420
C                                                                       FLX 2430
C                                                                       FLX 2440
C      EUP AND EDN ARE UPWARD AND DOWNWARD THERMAL FLUX                 FLX 2450
C      FOR AN ISOLATED LAYER                                            FLX 2460
C      TDF AND REF ARE THE THERMAL TRANSMISSION AND REFLECTANCE         FLX 2470
C      FOR AN ISOLATED LAYER                                            FLX 2480
      IF(K.EQ.1) THEN                                                   FLX 2490
        TAUT(N) = TAUM(K,N) * DPJ(K,N)                                  FLX 2500
      ELSE                                                              FLX 2510
        TAUT(N) = TAUM(K,N) * DPJ(K,N) + TAUT(N)                        FLX 2520
        DENOM =  (TAUT(N)+TAER(N)+TCONT(N)+TMOLS(N))                    FLX 2530
        IF(DENOM .LE. 0.) DENOM = 1.                                    FLX 2540
        IF(K.EQ.3) OMEGA0(N) = (TAERS(N) + TMOLS(N)) /                  FLX 2550
     X  DENOM                                                           FLX 2560
      ENDIF                                                             FLX 2570
C                                                                       FLX 2580
C    XP IS THE PATH OPTICAL THICKNESS FOR A GIVEN LAYER OF PATH         FLX 2590
C    LENGTH PL                                                          FLX 2600
C                                                                       FLX 2610
      XP=TAUM(K,N)+TAER(N)+TCONT(N)+TMOLS(N)                            FLX 2620
C                                                                       FLX 2630
C    X IS THE NORMAL PATH OPTICAL THICKNESS FOR A GIVEN LAYER           FLX 2640
C                                                                       FLX 2650
      X=XP*(ZM(IKMAX-N+1)-ZM(IKMAX-N))/PL(IKMAX-N)                      FLX 2660
      IF(XP .GT. 0.)THEN
           OMEGAK(N)=(TAERS(N)+TMOLS(N))/XP                             FLX 2670
      ELSE
           OMEGAK(N) = 1.
      ENDIF
C                                                                       FLX 2680
C   USE TWO STREAM APPROXIMATION FOR THERMAL                            FLX 2690
C                                                                       FLX 2700
160   CONTINUE                                                          FLX 2710
      IF(OMEGAK(N).GT.0.99999) GO TO 115                                FLX 2720
      AER1=1.0-OMEGAK(N)                                                FLX 2730
      AER2=1.0-OMEGAK(N)*COSBAR(N)                                      FLX 2740
      AERA=SQRT(AER1/AER2)                                              FLX 2750
      AERU=(1.0-AERA)/2.0                                               FLX 2760
      AERV=(1.0+AERA)/2.0                                               FLX 2770
      AERC=SQRT(3.0*AER1*AER2)                                          FLX 2780
      AERCX = AERC*X                                                    FLX 2790
      IF(AERCX.LT.BIGEXP) THEN                                          FLX 2800
           EX1=EXP(-AERCX)                                              FLX 2810
      ELSE                                                              FLX 2820
           EX1 = 1./BIGNUM                                              FLX 2830
      ENDIF                                                             FLX 2840
      EX2=EX1*EX1                                                       FLX 2850
      DENO=(AERV*AERV-AERU*AERU*EX2)                                    FLX 2860
      DNMO=(BTOP(N)-BTOP(N+1))/X/AERC*(AERV-AERU*EX2-AERA*EX1)          FLX 2870
      DNM1=AERV+AERU*EX2                                                FLX 2880
      EUP(N)=(BTOP(N)*DNM1-DNMO-BTOP(N+1)*EX1)/DENO*AERA                FLX 2890
      EDN(N)=(BTOP(N+1)*DNM1+DNMO-BTOP(N)*EX1)/DENO*AERA                FLX 2900
      IF(EUP(N) .LT. 0)EUP(N) = 0.                                      FLX*2902
      IF(EDN(N) .LT. 0)EDN(N) = 0.                                      FLX*2904
      REF(N)=AERU*AERV*(1.0-EX2)/DENO                                   FLX 2910
      TDF(N)=(AERV-AERU)/DENO*EX1                                       FLX 2920
      GOTO 114                                                          FLX 2930
115    TDF(N)=1./(1.+SQRT(3.)*(1.-COSBAR(N))/2.*X)                      FLX 2940
      REF(N)=1.-TDF(N)                                                  FLX 2950
      EUP(N)=0.0                                                        FLX 2960
      EDN(N)=0.0                                                        FLX 2970
114    CONTINUE                                                         FLX 2980
      IF(IEMSCT .EQ. 2)THEN                                             FLX 2990
C                                                                       FLX 3000
C     CALCULATE PARAMETERS FOR SOLAR HYBRID MODIFIED                    FLX 3010
C     DELTA EDDINGTON 2-STREAM APPROXIMATION                            FLX 3020
C                                                                       FLX 3030
      SMU=CSZEN(N)                                                      FLX 3040
      B0=BETS(N)                                                        FLX 3050
      OME0=OMEGAK(N)                                                    FLX 3060
      IF(OME0 .GE. .999999) OME0 = .999999                              FLX 3070
C                                                                       FLX 3080
C      OME0 TEST MAY BE MACHINE DEPENDENT                               FLX 3090
C                                                                       FLX 3100
C                                                                       FLX 3110
C      RECODED AS BS  FC AND AS*EXP(SK*X)  FOR IMPROVED                 FLX 3120
C      ACCURACY IN SOLAR FLUX CALCULATIONS FOR LARGE X                  FLX 3130
C      ( NON MACHINE DEPENDANT )                                        FLX 3140
C                                                                       FLX 3150
      G=COSBAR(N)                                                       FLX 3160
      Q=4.0*(1.0-G**2.*(1.0-SMU))                                       FLX 3170
      GM1=(7.0-3.0*G**2.-OME0*(4.0+3.0*G)+OME0*G**2.*(4.0*B0+3.0*G))/Q  FLX 3180
      GM2=-(1.0-G**2.-OME0*(4.0-3.0*G)-OME0*G**2.*(4.0*B0+3.0*G-4.0))/Q FLX 3190
      IF(GM2  .EQ. 0.0) THEN                                            FLX 3200
          GM2=1.0E-10                                                   FLX 3210
      ENDIF                                                             FLX 3220
      SK=SQRT(GM1*GM1-GM2*GM2)                                          FLX 3230
      CS=           OME0*(BETS(N)/SMU-GM1*BETS(N)-GM2*                  FLX 3240
     2 (1.-BETS(N)))*(SMU*SMU/(1.-SK*SK*SMU*SMU))                       FLX 3250
      YS=CS*(GM1+1./SMU)-           OME0*BETS(N)                        FLX 3260
CC    E1=YS/(GM1-SK)                                                    FLX 3270
CC    E2=-CS                                                            FLX 3280
CC    E3=(GM1+SK)/(SK-GM1)                                              FLX 3290
CC    E4=1.                                                             FLX 3300
CCC   BS=(E1*EXP(SK*X)+E2*EXP(-X/SMU))/(E3*EXP(SK*X)+E4*EXP(-SK*X))     FLX 3310
CCC   AS=(BS*(GM1+SK)+YS)/(SK-GM1)                                      FLX 3320
C                                                                       FLX 3330
C    CALCULATE UPWARD & DOWNWARD FLUX, EACH LAYER ALONE                 FLX 3340
C                                                                       FLX 3350
CCC   EUPS(N)=AS+BS+CS                                                  FLX 3360
CCC   EDNS(N)=(AS*(GM1-SK)*EXP(SK*X)+BS*(GM1+SK)*EXP(-SK*X)+            FLX 3370
CCC  2 YS*EXP(-X/SMU))/GM2                                              FLX 3380
C                                                                       FLX 3390
C     NEW SECTION                                                       FLX 3400
C                                                                       FLX 3410
      EKTL = SK * X                                                     FLX 3420
      IF(EKTL .LT.BIGEXP) THEN                                          FLX 3430
           EKT = EXP(-EKTL)                                             FLX 3440
      ELSE                                                              FLX 3450
           EKT = 1./BIGNUM                                              FLX 3460
      ENDIF                                                             FLX 3470
      EKT2 = EKT * EKT                                                  FLX 3480
      ETMUL = X / SMU                                                   FLX 3490
      IF(ETMUL .LT. BIGEXP) THEN                                        FLX 3500
           ETMU = EXP(-ETMUL)                                           FLX 3510
      ELSE                                                              FLX 3520
           ETMU = 1./BIGNUM                                             FLX 3530
      ENDIF                                                             FLX 3540
CC    ASXP =-1.* ((GM1+SK)*E2*ETMU+YS*E4*EKT)/(E3+E4*EKT2)              FLX 3550
      GMPSK = GM1+SK                                                    FLX 3560
      GMMSK = GM1-SK                                                    FLX 3570
      DENOM = (EKT2*GMMSK)-GMPSK                                        FLX 3580
      ASXP =-GMMSK*(YS*EKT-GMPSK*CS*ETMU)/DENOM                         FLX 3590
CC    ASNEW=-1.* ((GM1+SK)*E2*ETMU*EKT+YS*E4*EKT2)/(E3+E4*EKT2)         FLX 3600
      ASNEW=-1.* (-GMPSK*CS*ETMU*EKT+YS*EKT2)/DENOM                     FLX 3610
CC    BSNEW = (E1 + E2 * ETMU * EKT)/(E3 + E4*EKT2)                     FLX 3620
      BSNEW = (YS -(CS * ETMU * EKT*GMMSK))/DENOM                       FLX 3630
      EUPS(N)=ASNEW+BSNEW+CS                                            FLX 3640
CC    EDNS(N)=(ASXP+BSNEW*(GM1+SK)*EXP(-SK*X)+                          FLX 3650
CC   2 YS*EXP(-X/SMU))/GM2                                              FLX 3660
      EDNS(N)=(ASXP+BSNEW*(GMPSK)*EKT+YS*ETMU)/GM2                      FLX 3670
      FC=1./(CSZEN(N))                                                  FLX 3680
C                                                                       FLX 3690
C   REFS & TDFS ARE REFLECT & TRANSMITT FOR INDIVIDUAL LAYERS,SOLAR     FLX 3700
C                                                                       FLX 3710
           REFS(N)=EUPS(N)*FC                                           FLX 3720
           XCSZEN = X/CSZEN(N)                                          FLX 3730
           IF(XCSZEN.LT.BIGEXP) THEN                                    FLX 3740
                TDFS(N)=EDNS(N)*FC+EXP(-XCSZEN)                         FLX 3750
      ELSE                                                              FLX 3760
                TDFS(N)=EDNS(N)*FC                                      FLX 3770
      ENDIF                                                             FLX 3780
           EUPS(N) = EUPS(N) * S0 * STRN(M)                             FLX 3790
           EDNS(N) = EDNS(N) * S0 * STRN(M)                             FLX 3800
      ENDIF                                                             FLX 3810
      DENO=1.0-RUPCN*REF(N)                                             FLX 3820
      DENOS=1.0-RUPCNS*REFS(N)                                          FLX 3830
C                                                                       FLX 3840
C    CALCULATE COMPOSITE FLUXES AND REFLECTANCES                        FLX 3850
C                                                                       FLX 3860
125   EUPCN=EUP(N)+(EUPCN+EDN(N)*RUPCN)*TDF(N)/DENO                     FLX 3870
      EUPCNS=EUPS(N)+(EUPCNS+EDNS(N)*RUPCNS)*TDFS(N)/DENOS              FLX 3880
      RUPCNS=REFS(N)+TDFS(N)*RUPCNS*TDFS(N)/DENOS                       FLX 3890
140   RUPCN=REF(N)+TDF(N)*RUPCN*TDF(N)/DENO                             FLX 3900
      EUPC(N)=EUPCN                                                     FLX 3910
      EUPCS(N)=EUPCNS                                                   FLX 3920
      RUPC(N)=RUPCN                                                     FLX 3930
      RUPCS(N)=RUPCNS                                                   FLX 3940
101   CONTINUE                                                          FLX 3950
C***********************************************************************FLX 3960
C*    NOW ADD DOWNWARD FROM TOP LAYER (N=1)                            *FLX 3970
C***********************************************************************FLX 3980
      EDNCN=0.0                                                         FLX 3990
      EDNCNS=0.0                                                        FLX 4000
      DNF(K,1)=EDNCN                                                    FLX 4010
      UPF(K,1)=EUPC(1)                                                  FLX 4020
      IF(IEMSCT .EQ. 2) THEN                                            FLX 4030
      DNFS(K,1)=EDNCNS                                                  FLX 4040
      UPFS(K,1)=EUPCS(1)                                                FLX 4050
      ENDIF                                                             FLX 4060
      RDNCN=0.                                                          FLX 4070
      RDNCNS=0.                                                         FLX 4080
      DO 130 N=2,NG                                                     FLX 4090
      M=N-1                                                             FLX 4100
      DENO=1.0-RDNCN*REF(M)                                             FLX 4110
      DENOS=1.0-RDNCNS*REFS(M)                                          FLX 4120
121   CONTINUE                                                          FLX 4130
      EDNCN=EDN(M)+(EDNCN+EUP(M)*RDNCN)*TDF(M)/DENO                     FLX 4140
      RDNCN=REF(M)+TDF(M)*TDF(M)*RDNCN/DENO                             FLX 4150
132   CONTINUE                                                          FLX 4160
      PEFUP =(EUPC(N)+EDNCN*RUPC(N))/DENO                               FLX 4170
      PEFDN =(EDNCN+EUPC(N)*RDNCN)/DENO                                 FLX 4180
      IF(IEMSCT .EQ. 2) THEN                                            FLX 4190
      EDNCNS=EDNS(M)+(EDNCNS+EUPS(M)*RDNCNS)*TDFS(M)/DENOS              FLX 4200
      RDNCNS=REFS(M)+TDFS(M)*TDFS(M)*RDNCNS/DENOS                       FLX 4210
      PEFUPS=(EUPCS(N)+EDNCNS*RUPCS(N))/DENOS                           FLX 4220
      PEFDNS=(EDNCNS+EUPCS(N)*RDNCNS)/DENOS                             FLX 4230
      UPFS(K,N)=PEFUPS                                                  FLX 4240
      DNFS(K,N)=PEFDNS                                                  FLX 4250
      ENDIF                                                             FLX 4260
 120  UPF(K,N)=PEFUP                                                    FLX 4270
      DNF(K,N)=PEFDN                                                    FLX 4280
 130  CONTINUE                                                          FLX 4290
      DPJ(K,NG) = DPJ(K,NG-1)                                           FLX 4300
      DO 117 N=2,NG                                                     FLX 4310
      M=N-1                                                             FLX 4320
      IF(K.EQ.1) THEN                                                   FLX 4330
           UMF(M)=.5*(UPF(K,M)+UPF(K,N))*DPJ(K,M)                       FLX 4340
           UMFS(M)=.5*(UPFS(K,M)+UPFS(K,N))*DPJ(K,M)                    FLX 4350
           DMF(M)=.5*(DNF(K,M)+DNF(K,N))*DPJ(K,M)                       FLX 4360
           DMFS(M)=.5*(DNFS(K,M)+DNFS(K,N))*DPJ(K,M)                    FLX 4370
           UMB(N)=    UPF(K,N)*DPJ(K,N)                                 FLX 4380
           UMBS(N)=   UPFS(K,N)*DPJ(K,N)                                FLX 4390
           DMB(M)=    DNF(K,M)*DPJ(K,M)                                 FLX 4400
           DMBS(M)=   DNFS(K,M)*DPJ(K,M)                                FLX 4410
      ELSE                                                              FLX 4420
           UMF(M)=UMF(M)+.5*(UPF(K,M)+UPF(K,N))*DPJ(K,M)                FLX 4430
           UMFS(M)=UMFS(M)+.5*(UPFS(K,M)+UPFS(K,N))*DPJ(K,M)            FLX 4440
           DMF(M)=DMF(M)+.5*(DNF(K,M)+DNF(K,N))*DPJ(K,M)                FLX 4450
           DMFS(M)=DMFS(M)+.5*(DNFS(K,M)+DNFS(K,N))*DPJ(K,M)            FLX 4460
           UMB(N)= UMB(N)   +  UPF(K,N)*DPJ(K,N)                        FLX 4470
           UMBS(N)=UMBS(N)  +  UPFS(K,N)*DPJ(K,N)                       FLX 4480
           DMB(M)= DMB(M)   +  DNF(K,M)*DPJ(K,M)                        FLX 4490
           DMBS(M)=DMBS(M)  +  DNFS(K,M)*DPJ(K,M)                       FLX 4500
      ENDIF                                                             FLX 4510
C                                                                       FLX 4520
C   TRNSD & TRNSU ARE CUMULATIVE DOWNWARD & UPWARD TRANSMISSION         FLX 4530
C                                                                       FLX 4540
 117    CONTINUE                                                        FLX 4550
C                                                                       FLX 4560
C   FDNSRF IS THE DOWNWARD SOLAR FLUX AT THE SURFACE                    FLX 4570
C   FDNTRF IS THE DOWNWARD THERMAL FLUX AT THE SURFACE                  FLX 4580
C                                                                       FLX 4590
      IF(K.EQ.1) THEN                                                   FLX 4600
           FDNSRF   =DNFS(K,NG)*DPJ(K,NLAYRS)                           FLX 4610
           FDNTRF   =DNF(K,NG) *DPJ(K,NLAYRS)                           FLX 4620
           FUPSRF   =UPFS(K, 1)*DPJ(K, 1)                               FLX 4630
           FUPTRF   =UPF(K, 1) *DPJ(K, 1)                               FLX 4640
      ELSE                                                              FLX 4650
           FDNSRF   =FDNSRF + DNFS(K,NG)*DPJ(K,NLAYRS)                  FLX 4660
           FDNTRF   =FDNTRF + DNF(K,NG) *DPJ(K,NLAYRS)                  FLX 4670
           FUPSRF   =FUPSRF + UPFS(K, 1)*DPJ(K, 1)                      FLX 4680
           FUPTRF   =FUPTRF + UPF(K, 1) *DPJ(K, 1)                      FLX 4690
      ENDIF                                                             FLX 4700
CC    IF(K.EQ.3)PRINT 1910,V,FDNSRF,FDNTRF,FUPSRF,FUPTRF                FLX 4710
1910  FORMAT(F10.0,1P4E10.3)                                            FLX 4720
CCC   IF(K.EQ.3)WRITE(6,1920)FDNSRF,FDNTRF,FUPSRF,FUPTRF                FLX 4730
1920  FORMAT(30X,' FLXDNS=',1PE10.3,' FLXDN =',E10.3,' FLXUPS =',E10.3, FLX 4740
     X ' FLXUP ',E10.3)                                                 FLX 4750
100   CONTINUE                                                          FLX 4760
      UMB(1) = FUPTRF                                                   FLX 4770
      UMBS(1)= FUPSRF                                                   FLX 4780
      DMB(NG)= FDNTRF                                                   FLX 4790
      DMBS(NG)=FDNSRF                                                   FLX 4800
      SUN = S0                                                          FLX 4810
      RETURN                                                            FLX 4820
      END                                                               FLX 4830
      SUBROUTINE FNDHMN(H1,ANGLE,H2,LEN,ITER,HMIN,PHI,IERROR)           FNH  100
C***********************************************************************FNH  110
C     THIS SUBROUTINE CALCULATES THE MINIMUM ALTITUDE HMIN ALONG        FNH  120
C     THE REFRACTED PATH AND THE FINAL ZENITH ANGLE PHI.                FNH  130
C     THE PARAMETER LEN INDICATES WHETHER THE PATH GOES THROUGH         FNH  140
C     A TANGENT HEIGHT (LEN=1) OR NOT (LEN=0).  IF ANGLE > 90 AND       FNH  150
C     H1 > H2, THEN LEN CAN EITHER BE 1 OR 0, AND THE CHOICE IS         FNH  160
C     LEFT TO THE USER.                                                 FNH  170
C     THE (INDEX OF REFRACTION - 1.0) IS MODELED AS AN EXPONENTIAL      FNH  180
C     BETWEEN THE LAYER BOUNDARIES, WITH A SCALE HEIGHT SH AND AN       FNH  190
C     AMOUNT AT THE GROUND GAMMA.                                       FNH  200
C     CPATH IS THE REFRACTIVE CONSTANT FOR THIS PATH AND                FNH  210
C     EQUALS  INDEX(H1)*(RE+H1)*SIN(ANGLE).                             FNH  220
C***********************************************************************FNH  230
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                FNH  240
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              FNH  250
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     FNH  260
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               FNH  270
      DATA DH/1.0/,ETA/5.0E-8/                                          FNH  280
C*****ETA MAY BE TOO SMALL FOR SOME COMPUTERS. TRY 1.0E-7 FOR 32 BIT    FNH  290
C*****WORD MACHINES                                                     FNH  300
C     CRFRCT IS REFRACTIVE CONSTANT FOR THE PATH                        FNH  310
C                                                                       FNH  320
      CRFRCT(H) = (RE+H)*ANDEX(H,SH,GAMMA)                              FNH  330
      N = 0                                                             FNH  340
      CALL FINDSH(H1,SH,GAMMA)                                          FNH  350
      CPATH = CRFRCT(H1)*SIN(ANGLE/DEG)                                 FNH  360
      CALL FINDSH(H2,SH,GAMMA)                                          FNH  370
      CH2 = CRFRCT(H2)                                                  FNH  380
      IF(ABS(CPATH/CH2).GT.1.0) GO TO 200                               FNH  390
      IF(ANGLE.GT.90.0)  GO TO 100                                      FNH  400
      LEN = 0                                                           FNH  410
      HMIN = H1                                                         FNH  420
      GO TO 160                                                         FNH  430
  100 CONTINUE                                                          FNH  440
      IF(H1.LE.H2)  LEN = 1                                             FNH  450
      IF(LEN.EQ.1)  GO TO 110                                           FNH  460
      LEN = 0                                                           FNH  470
      HMIN = H2                                                         FNH  480
      GO TO 160                                                         FNH  490
  110 CONTINUE                                                          FNH  500
C*****LONG PATH THROUGH A TANGENT HEIGHT.                               FNH  510
C*****SOLVE ITERATIVELY FOR THE TANGENT HEIGHT HT.                      FNH  520
C*****HT IS THE HEIGHT FOR WHICH  INDEX(HT)*(RE+HT) = CPATH.            FNH  530
      CALL FINDSH(0.0,SH,GAMMA)                                         FNH  540
      CMIN = CRFRCT(0.0)                                                FNH  550
C*****FOR BETA CASES (ITER>0), ALLOW FOR HT < 0.0                       FNH  560
      IF(ITER.EQ.0 .AND. CPATH.LT.CMIN)  GO TO 150                      FNH  570
      HT1 = (RE+H1)*SIN(ANGLE/DEG)-RE                                   FNH  580
      CALL FINDSH(HT1,SH,GAMMA)                                         FNH  590
      CT1 = CRFRCT(HT1)                                                 FNH  600
      HT2 = HT1-DH                                                      FNH  610
      CALL FINDSH(HT2,SH,GAMMA)                                         FNH  620
      CT2 = CRFRCT(HT2)                                                 FNH  630
C*****ITERATE TO FIND HT                                                FNH  640
      N = 2                                                             FNH  650
  120 CONTINUE                                                          FNH  660
      IF(CT2 .EQ. CT1) GO TO 125                                        FNH  670
      N = N+1                                                           FNH  680
      HT3 = HT2+(HT2-HT1)*(CPATH-CT2)/(CT2-CT1)                         FNH  690
      CALL FINDSH(HT3,SH,GAMMA)                                         FNH  700
      CT3 = CRFRCT(HT3)                                                 FNH  710
      DC = CPATH-CT3                                                    FNH  720
      IF(ABS((CPATH-CT3)/CPATH).LT.ETA)  GO TO 130                      FNH  730
      IF(N.GT.15) GO TO 210                                             FNH  740
      HT1 = HT2                                                         FNH  750
      CT1 = CT2                                                         FNH  760
      HT2 = HT3                                                         FNH  770
      CT2 = CT3                                                         FNH  780
      GO TO 120                                                         FNH  790
  125 HT3 = HT2                                                         FNH  800
  130 CONTINUE                                                          FNH  810
      HT = HT3                                                          FNH  820
      HMIN = HT                                                         FNH  830
      GO TO 160                                                         FNH  840
  150 CONTINUE                                                          FNH  850
      IF(ISSGEO.EQ.0) GO TO 155                                         FNH  860
      IERROR=-5.                                                        FNH  870
      RETURN                                                            FNH  880
155   CONTINUE                                                          FNH  890
C*****TANGENT PATH INTERSECTS EARTH                                     FNH  900
      H2 = 0.0                                                          FNH  910
      HMIN = 0.0                                                        FNH  920
      LEN = 0                                                           FNH  930
      CH2 = CMIN                                                        FNH  940
      IF(ISSGEO.NE.1)WRITE(IPR,22) H1,ANGLE                             FNH  950
   22 FORMAT(///,' TANGENT PATH WITH H1 = ',F10.3,' AND ANGLE = ',      FNH  960
     1    F10.3,' INTERSECTS THE EARTH',//,10X,'H2 HAS BEEN RESET ',    FNH  970
     2    'TO 0.0 AND LEN TO 0')                                        FNH  980
  160 CONTINUE                                                          FNH  990
C*****CALCULATE THE ZENITH ANGLE PHI AT H2                              FNH 1000
      PHI = ASIN(CPATH/CH2)*DEG                                         FNH 1010
      IF(ANGLE.LE.90.0 .OR. LEN.EQ.1)  PHI = 180.0-PHI                  FNH 1020
      RETURN                                                            FNH 1030
C*****H2 LT TANGENT HEIGHT FOR THIS H1 AND ANGLE                        FNH 1040
  200 CONTINUE                                                          FNH 1050
      WRITE(IPR,20)                                                     FNH 1060
   20 FORMAT('0H2 IS LESS THAN THE TANGENT HEIGHT FOR THIS PATH ',      FNH 1070
     1    'AND CANNOT BE REACHED')                                      FNH 1080
      IERROR = 2                                                        FNH 1090
      RETURN                                                            FNH 1100
  210 CONTINUE                                                          FNH 1110
      DC = CPATH-CT3                                                    FNH 1120
      WRITE(IPR,24)  N,CPATH,CT3,DC,HT3                                 FNH 1130
   24 FORMAT(///,'0FROM SUBROUTINE FNDHMN :',//,                        FNH 1140
     1    10X,'THE PROCEEDURE TO FIND THE TANGENT HEIGHT DID NOT ',     FNH 1150
     2    'CONVERG AFTER ',I3,'  ITERATIONS',//,                        FNH 1160
     3    10X,'CPATH   = ',F12.5,' KM',//,10X,'CT3     = ',F12.5,' KM', FNH 1170
     4    //,10X,'DC      = ',E12.3,' KM',//,                           FNH 1180
     5    10X,'HT3     = ',F12.5,' KM')                                 FNH 1190
      STOP 20                                                           FNH 1200
      END                                                               FNH 1210
      SUBROUTINE FRN296(V1C,FH2O)                                       FRN  100
C     LOADS FOREIGN CONTINUUM  296K                                     FRN  110
      COMMON /FH2O/ V1,V2,DV,NPT,F296(2003)                             FRN  120
      CALL SINT(V1,V1C,DV,NPT,F296,FH2O)                                FRN  130
      RETURN                                                            FRN  140
      END                                                               FRN  150
      FUNCTION   GAMFOG(MR,FREQ,T,RHO)                                  GAM  100
C                                                                       GAM  110
C        COMPUTES ATTENUATION OF EQUIVALENT LIQUID WATER CONTENT        GAM  120
C       IN CLOUDS OR FOG IN DB/KM                                       GAM  130
C       CONVERTED TO NEPERS BY NEW CONSTANT 1.885                       GAM  140
C                                                                       GAM  150
C        FREQ = WAVENUMBER (INVERSE CM)                                 GAM  160
C        T    = TEMPERATURE (DEGREES KELVIN)                            GAM  170
C        RHO  = EQUIVALENT LIQUID CONTENT  (G/CUBIC METER)              GAM  180
C      CINDEX=COMPLEX DIELECTRIC CONSTANT M  FROM INDEX                 GAM  190
C      WAVL = WAVELENGTH IN CM                                          GAM  200
C                                                                       GAM  210
      COMPLEX CINDEX                                                    GAM  220
      IF(RHO.GT.0.) GO TO 2                                             GAM  230
      GAMFOG=0.                                                         GAM  240
      RETURN                                                            GAM  250
    2 CONTINUE                                                          GAM  260
      KEY=1                                                             GAM  270
      IF(MR. GE. 5) KEY = 0                                             GAM  280
      WAVL=1.0/FREQ                                                     GAM  290
      TC=T-273.2                                                        GAM  300
CCC                                                                     GAM  310
CCC    CHANGE TEMP SO THAT MINIMUM IS -20.0 CENT.                       GAM  320
CCC                                                                     GAM  330
      IF(TC.LT.-20.0) TC=-20.0                                          GAM  340
      CALL INDX (WAVL,TC,KEY,REIL,AIMAK)                                GAM  350
      CINDEX=CMPLX(REIL,AIMAK)                                          GAM  360
CCC                                                                     GAM  370
CCC   ATTENUATION = 6.0*PI*FREQ*RHO*IMAG(-K)                            GAM  380
CCC    6.0*PI/10. = 1.885 (THE FACTOR OF 10 IS FOR UNITS CONVERSION)    GAM  390
CCC                                                                     GAM  400
C     GAMFOG=8.1888*FREQ*RHO*AIMAG( -  (CINDEX**2-1)/(CINDEX**2+2))     GAM  410
      GAMFOG=1.885 *FREQ*RHO*AIMAG( -  (CINDEX**2-1)/(CINDEX**2+2))     GAM  420
      RETURN                                                            GAM  430
      END                                                               GAM  440
C     SUBROUTINE GEO(IERROR,BENDNG,MAXGEO)                              GEO -100
      SUBROUTINE GEO(IERROR,BENDNG,MAXGEO,MSOFF)                        GEO 100A
C*********************************************************************  GEO  110
C     THIS SUBROUTINE SERVES AS AN INTERFACE BETWEEN THE MAIN           GEO  120
C     LOWTRAN7 PROGRAM 'LWTRN7' AND THE NEW SET OF SUBROUTINES,         GEO  130
C     INCLUDING 'GEOINP', 'REDUCE', 'FDBETA', 'EXPINT', 'FNDHMN',       GEO  140
C     'FINDSH', 'SCALHT', 'ANDEX', 'RADREF', 'RFPATH', 'FILL',          GEO  150
C     AND 'LAYER',  WHICH CALCULATE THE ABSORBER                        GEO  160
C     AMOUNTS FOR A REFRACTED PATH THROUGH THE ATMOSPHERE.              GEO  170
C     THE INPUT PARAMETERS ITYPE, H1, H2, ANGLE, RANGE, BETA, AND LEN   GEO  180
C     ALL FUNCTION IN THE SAME WAY IN THE NEW ROUTINES AS IN THE OLD.   GEO  190
C*********************************************************************  GEO  200
C     *** IN COLM 73-76 MARK IMPROVED 32 BIT CONVERGENCE OF BETA        GEO  201
C     SUGESTED BY TONY WARRIC             MCDONNELL DOUGLAS             GEO  202
C     AND  MAJ ROBERT G. HUGES            AFWAL/WEA                     GEO  203
C***********************************************************************GEO  204
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            GEO  210
C     COMMON             WPATH(68, 63),TBBY(68)                         GEO -220
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   GEO 220A
      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),VX2(47),AWCCON(5)         GEO  230
      COMMON /IFIL/IRD,IPR,IPU,NPR,IPR1                                 GEO  240
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  GEO  250
     1  ,MODTRN                                                         GEO 250A
      LOGICAL MODTRN                                                    GEO 250B
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   GEO  260
     1    RAINRT                                                        GEO  270
      COMMON /CARD3/ H1,H2,ANGLE,RANGE,BETA,REE,LEN                     GEO  280
C     COMMON /CARD4/ V1,V2,DV                                           GEO -290
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     GEO  300
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               GEO  310
      COMMON/MODEL/   ZM(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),     GEO  320
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         GEO  330
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              GEO  340
      COMMON /RFRPTH/ ZP(35),PP(35),TP(35),RFNDXP(35),SP(35),           GEO  350
     1    PPSUM(35),TPSUM(35),RHOPSM(35),DENP(63,35),AMTP(63,35)        GEO  360
      COMMON /SOLS/ AH1(68),ARH(68),                                    GEO  370
C    X   WPATHS(68,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),JTURN,GEO -380
C    X ANGSUN,CSZEN(68)                                                 GEO -390
     1  WPATHS(102,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),      GEO 380A
     2  JTURN,ANGSUN,CSZEN(68),TBBYS(102,12),PATMS(102,12)              GEO 380B
      COMMON /PATH/ PL(68),QTHETA(68),ITEST,HI,HF,AHT(68)               GEO  400
      COMMON /RAIN/ RNPATH( 68),RRAMTK( 68)                             GEO  410
      DIMENSION KMOL(17)                                                GEO  420
      DATA PZERO/1013.25/                                               GEO 420A
C*****KMOL(K) IS A POINTER USED TO REORDER THE AMOUNTS WHEN PRINTING    GEO  430
      DATA KMOL/1,2,3,11,8,5,9,10,4,6,7,12,13,14,16,15,17/              GEO  440
C*****INITIALIZE CONSTANTS AND CLEAR CUMULATIVE VARIABLES               GEO  450
C*****DELTAS IS THE NOMINAL PATH LENGTH INCRENMENT USED IN THE RAY TRACEGEO  460
      DELTAS = 5.0                                                      GEO  470
      JMAXST=1                                                          GEO  480
      IERROR = 0                                                        GEO  490
      RE = REE                                                          GEO  500
      IMOD = ML                                                         GEO  510
      IMAX = ML                                                         GEO  520
C*****ZERO OUT CUMULATIVE VARIABLES                                     GEO  530
      DO 100 I=1,35                                                     GEO  540
      LJ(I)=0                                                           GEO  550
      SP(I)=0.0                                                         GEO  560
      PPSUM(I) = 0.0                                                    GEO  570
      TPSUM(I) = 0.0                                                    GEO  580
      RHOPSM(I) = 0.0                                                   GEO  590
      DO 100 K=1,KMAX                                                   GEO  600
      AMTP(K,I) = 0.0                                                   GEO  610
  100 CONTINUE                                                          GEO  620
      ZMAX=ZM(IMAX)                                                     GEO  630
      IF(ISSGEO.EQ.1) GO TO 200                                         GEO  640
      IF(ITYPE.GE.2)  GO TO 200                                         GEO  650
C*****HORIZONTAL PATH, MODEL EQ 1 TO 7:  INTERPOLATE PROFILE TO H1      GEO  660
      ZP(1)=H1                                                          GEO  670
      IF(ML   .EQ.1)  THEN                                              GEO  680
          PP(1)=PM(1)                                                   GEO  690
          TP(1)=TM(1)                                                   GEO  700
          LJ(1)=1                                                       GEO  710
          SP(1)=RANGE                                                   GEO  720
          PL(1)=RANGE                                                   GEO  730
      ELSE                                                              GEO  740
      IF(MODEL.EQ.0)  GO TO 145                                         GEO  750
          DO 120 I=2,ML                                                 GEO  760
          I2 = I                                                        GEO  770
          IF(H1.LT.ZM(I))  GO TO 130                                    GEO  780
  120     CONTINUE                                                      GEO  790
  130     CONTINUE                                                      GEO  800
          I1 = I2-1                                                     GEO  810
          FAC = (H1-ZM(I1))/(ZM(I2)-ZM(I1))                             GEO  820
          CALL EXPINT(PP(1),PM(I1),PM(I2),FAC)                          GEO  830
          TP(1) = TM(I1)+(TM(I2)-TM(I1))*FAC                            GEO  840
          II1=I1                                                        GEO  850
          IF(FAC.GT.0.5) II1=I2                                         GEO  860
          LJ(1)=II1                                                     GEO  870
          SP(II1)=RANGE                                                 GEO  880
          DO 140 K=1,KMAX                                               GEO  890
          CALL EXPINT(DENP(K,1),DENSTY(K,I1),DENSTY(K,I2),FAC)          GEO  900
  140     CONTINUE                                                      GEO  910
      END IF                                                            GEO  920
C*****CALCULATE ABSORBER AMOUNTS FOR A HORIZONTAL PATH                  GEO  930
 145  WRITE(IPR,36)  H1,RANGE,MODEL                                     GEO  940
   36 FORMAT('0HORIZONTAL PATH AT ALTITUDE = ',F10.3,                   GEO  950
     1   ' KM WITH RANGE = ',F10.3,' KM, MODEL = ',I3)                  GEO  960
      IKMAX = 1                                                         GEO  970
      IMMAX = 1                                                         GEO  980
C     IF(MODEL.EQ.0) TP(1)=TM(1)                                        GEO -990
C     TBBY(1) = TP(1)                                                   GEO-1000
      JMAX=1                                                            GEO 990A
      IF(MODEL.EQ.0)THEN                                                GEO 990B
          TP(1)=TM(1)                                                   GEO 990C
          PP(1)=PM(1)                                                   GEO 990D
      ENDIF                                                             GEO 990E
      MSOFF1=MSOFF+1                                                    GEO 990F
      PATM(MSOFF1)=PP(1)/PZERO                                          GEO 990G
      TBBY(MSOFF1) = TP(1)                                              GEO 990H
      DO 160 K=1,KMAX                                                   GEO 1010
      IF(ML.EQ.1)  DENP(K,1) = DENSTY(K,1)                              GEO 1020
      W(K) = DENP(K,1)*RANGE                                            GEO 1030
C     WPATH(1,K) = W(K)                                                 GEO-1040
      WPATH(MSOFF1,K) = W(K)                                            GEO1040A
  160 CONTINUE                                                          GEO 1050
      WTEM = (296.0-TP(1))/(296.0-260.0)                                GEO 1060
      IF(WTEM.LT.0.)WTEM=0.                                             GEO 1070
      IF(WTEM.GT.1)WTEM=1.                                              GEO 1080
      W(9)=W(5)*WTEM                                                    GEO 1090
      W(59) = W(8) * .269 *(TP(1)-273.15)                               GEO 1100
      W(60) = W(8) * .269 *(TP(1)-273.15)**2                            GEO 1110
C     WPATH(1,9) = W(9)                                                 GEO-1120
C     WPATH(1,59) = W(59)                                               GEO-1130
C     WPATH(1,60) = W(60)                                               GEO-1140
      WPATH(MSOFF1,9)=W(9)                                              GEO1120A
      WPATH(MSOFF1,59)=W(59)                                            GEO1120B
      WPATH(MSOFF1,60)=W(60)                                            GEO1120C
      GO TO 320                                                         GEO 1150
  200 CONTINUE                                                          GEO 1160
C*****SLANT PATH SELECTED                                               GEO 1170
C*****INTERPRET SLANT PATH PARAMETERS                                   GEO 1180
      CALL GEOINP(H1,H2,ANGLE,RANGE,BETA,ITYPE,LEN,HMIN,PHI,IERROR)     GEO 1190
      IF(IERROR.EQ.0) GO TO 210                                         GEO 1200
      IF(ISSGEO.NE.1)WRITE(IPR,38)                                      GEO 1210
   38 FORMAT('0GEO:  IERROR NE 0: END THIS CALCULATION AND SKIP TO'     GEO 1220
     1    ,' THE NEXT CASE')                                            GEO 1230
      RETURN                                                            GEO 1240
  210 CONTINUE                                                          GEO 1250
C*****CALCULATE THE PATH THROUGH THE ATMOSPHERE                         GEO 1260
      IAMT = 1                                                          GEO 1270
      CALL RFPATH(H1,H2,ANGLE,PHI,LEN,HMIN,IAMT,BETA,RANGE,BENDNG)      GEO 1280
C*****UNFOLD LAYER AMOUNTS IN AMTP INTO THE CUMULATIVE                  GEO 1290
C*****AMOUNTS IN WPATH FROM H1 TO H2                                    GEO 1300
      DO 220 I=1,IPATH                                                  GEO 1310
      IF(H1.EQ.ZP(I)) IH1 = I                                           GEO 1320
      IF(H2.EQ.ZP(I)) IH2 = I                                           GEO 1330
  220 CONTINUE                                                          GEO 1340
      JMAX = (IPATH-1)+LEN*(MIN0(IH1,IH2)-1)                            GEO 1350
      IKMAX = JMAX                                                      GEO 1360
C*****DETERMINE LJ(J), WHICH IS THE NUMBER OF THE LAYER IN AMTP(K,L),   GEO 1370
C*****STARTING FROM HMIN, WHICH CORRESPONDS TO THE LAYER J IN           GEO 1380
C*****WPATH(J,K), STARTING FROM H1                                      GEO-1390
C*****WPATH(J+MSOFF,K), STARTING FROM H1                                GEO1390A
C*****INITIAL DIRECTION OF PATH IS DOWN                                 GEO 1400
      L = IH1                                                           GEO 1410
      LDEL = -1                                                         GEO 1420
      IF(LEN.EQ.1 .OR. H1.GT.H2)  GO TO 230                             GEO 1430
C*****INITIAL DIRECTION OF PATH IS UP                                   GEO 1440
      L = 0                                                             GEO 1450
      LDEL = 1                                                          GEO 1460
  230 CONTINUE                                                          GEO 1470
      JTURN = 0                                                         GEO 1480
      JMAXP1=JMAX+1                                                     GEO 1490
      DO 250 J=1,JMAXP1                                                 GEO 1500
C*****TEST FOR REVERSING DIRECTION OF PATH FROM DOWN TO UP              GEO 1510
      IF(L.NE.1 .OR. LDEL.NE.-1)  GO TO 240                             GEO 1520
      JTURN = J                                                         GEO 1530
      L = 0                                                             GEO 1540
      LDEL = +1                                                         GEO 1550
  240 CONTINUE                                                          GEO 1560
      L = L+LDEL                                                        GEO 1570
      LJ(J) = L                                                         GEO 1580
  250 CONTINUE                                                          GEO 1590
C*****LOAD TBBY AND WPATH                                               GEO 1600
C*****TBBY IS DENSITY WEIGHTED MEAN TEMPERATURE                         GEO 1610
      AMTTOT=0.                                                         GEO 1620
      MSOFF1=MSOFF+1                                                    GEO1620A
      DO 255 K=1,KMAX                                                   GEO 1630
C 255 WPATH(1,K) = 0.0                                                  GEO-1640
  255 WPATH(MSOFF1,K)=0.                                                GEO1640A
      IMAX = 0                                                          GEO 1650
      DO 265 J=1,JMAX                                                   GEO 1660
      L = LJ(J)                                                         GEO 1670
      IF(L.GE.ML)L = ML                                                 GEO 1680
      IF(L.GE.IMAX) IMAX = L                                            GEO 1690
C     TBBY(J) = TPSUM (L)/RHOPSM(L)                                     GEO-1700
      MSOFFJ=MSOFF+J                                                    GEO1700A
      TBBY(MSOFFJ)=TPSUM(L)/RHOPSM(L)                                   GEO1700B
      PATM(MSOFFJ)=PPSUM(L)/(PZERO*RHOPSM(L))                           GEO1700C
      AMTTOT=AMTTOT+RHOPSM(L)                                           GEO 1710
      J1 = J-1                                                          GEO 1720
      IF(J1.EQ.0)  J1 = 1                                               GEO 1730
      DO 260 K=1,KMAX                                                   GEO 1740
      IF(K.EQ.9) GO TO 260                                              GEO 1750
C     WPATH(J,K) = WPATH(J1,K)+AMTP(K,L)                                GEO-1760
      WPATH(MSOFFJ,K)=WPATH(MSOFF+J1,K)+AMTP(K,L)                       GEO1760A
  260 CONTINUE                                                          GEO 1770
C     WPATH(J,59) = AMTP(8,L) * .269 *(TBBY(J)-273.15)                  GEO-1780
C     WPATH(J,60) = AMTP(8,L) * .269 *(TBBY(J)-273.15) **2              GEO-1790
C     WTEM = (296.0-TBBY(J))/(296.0-260.0)                              GEO-1800
      WPATH(MSOFFJ,59)=AMTP(8,L)*.269*(TBBY(MSOFFJ)-273.15)             GEO1780A
      WPATH(MSOFFJ,60)=AMTP(8,L)*.269*(TBBY(MSOFFJ)-273.15)**2          GEO1780B
      WTEM=(296.-TBBY(MSOFFJ))/(296.-260.)                              GEO1780C
      IF(WTEM.LT.0.0) WTEM = 0.                                         GEO 1810
      IF(WTEM.GT.1.0) WTEM = 1.0                                        GEO 1820
C     WPATH(J,9) = WPATH(J1,9)+WTEM*AMTP(5,L)                           GEO-1830
      WPATH(MSOFFJ,9)=WPATH(MSOFF+J1,9)+WTEM*AMTP(5,L)                  GEO1830A
265   CONTINUE                                                          GEO 1840
      MSOFFJ=MSOFF+JMAX                                                 GEO1840A
      DO 270 K=1,KMAX                                                   GEO 1850
C     W(K) = WPATH(JMAX,K)                                              GEO-1860
      W(K)=WPATH(MSOFFJ,K)                                              GEO1860A
  270 CONTINUE                                                          GEO 1870
      JMAXST=JMAX                                                       GEO 1880
CC    JMAX = IMAX                                                       GEO 1890
      IMMAX = IMAX                                                      GEO 1900
      IKMAX=JMAX                                                        GEO 1910
C*****INCLUDE BOUNDARY EMISSION IF:                                     GEO 1920
C*****    1. NON ZERO TBOUND IS READ IN ON CARD 1                       GEO 1930
C*****    2. SLANT PATH INTERSECTS THE EARTH (TBOUND                    GEO 1940
C*****       SET TO TEMPERATURE OF LOWEST BOUNDARY)                     GEO 1950
      IF(TBOUND.EQ.0.0.AND.H2.EQ.ZM(1)) TBOUND=TM(1)                    GEO 1960
C*****PRINT CUMULATIVE ABSORBER AMOUNTS                                 GEO 1970
CC    IF(NPR.EQ.1) GO TO 315                                            GEO 1980
CC    WRITE(IPR,42)                                                     GEO 1990
C  42 FORMAT(////,' CUMULATIVE ABSORBER AMOUNTS FOR THE PATH FROM'      GEO-2000
      IF(NPR.EQ.2) GO TO 315                                            GEO 1980
      IF(NPR.NE.1)WRITE(IPR,42)                                         GEO 1990
   42 FORMAT(////,'1CUMULATIVE ABSORBER AMOUNTS FOR THE PATH FROM'      GEO2000A
     1    ,' H1 TO Z',//,T3,'J',T9,'Z',T18,'TBAR',T27,                  GEO 2010
     2    'HNO3', T39,'O3 UV',T50,'CNTMSLF1 ',                          GEO 2020
     +    T061,'CNTMSLF2',T73,'CNTMFRN',                                GEO 2030
     +    T86,'O2',                                                     GEO 2040
     3              /,T8,'(KM)',T19,'(K)',T25,                          GEO 2050
     4        '(ATM CM)',T37,'(ATM CM)',                                GEO 2060
     5    T49,'(MOL CM-2)',T61,'(MOL CM-2)',T73,'(MOL CM-2)',           GEO 2070
     +    T83,'(MOL CM-2)'/)                                            GEO 2080
C*****GOING DOWN, LP = 0,    GOING UP, LP = 1                           GEO 2090
      LP = 1                                                            GEO 2100
      IF(LEN.EQ.1 .OR. H1.GT.H2)  LP = 0                                GEO 2110
      AHT(1) = H1                                                       GEO 2120
      DO 300 J=1,JMAX                                                   GEO 2130
      L = LJ(J)                                                         GEO 2140
      IF(J.EQ.JTURN)  LP = 1                                            GEO 2150
      LZ = L+LP                                                         GEO 2160
      AHT(J+1) = ZP(LZ)                                                 GEO 2170
C     IF(NPR.NE.1)WRITE(IPR,44)J,ZP(LZ),TBBY(J),(WPATH(J,KMOL(K)),K=    GEO-2180
C    X 4,8),WPATH(J,58)                                                 GEO-2190
      MSOFFJ=MSOFF+J                                                    GEO2180A
      IF(NPR.NE.1)WRITE(IPR,'(I3,F9.3,F9.2,1P8E12.3)')J,ZP(LZ),         GEO2180B
     1  TBBY(MSOFFJ),(WPATH(MSOFFJ,KMOL(K)),K=4,8),WPATH(MSOFFJ,58)     GEO2180C
   44 FORMAT(I3,F9.3, F9.2,1P8E12.3)                                    GEO 2200
  300 CONTINUE                                                          GEO 2210
      IF(NPR.NE.1)WRITE(IPR,46)                                         GEO 2220
C  46 FORMAT(///,T3,'J',T09,'Z',T17,'N2 CONT',T28,'MOL SCAT',T43,       GEO-2230
   46 FORMAT(///,'1 J',T09,'Z',T17,'N2 CONT',T28,'MOL SCAT',T43,        GEO2230A
     1    'AER 1',T55,'AER 2',T67,'AER 3',T79,'AER 4',T091,'CIRRUS',/   GEO 2240
     2    ,T8,'(KM)',/)                                                 GEO 2250
      LP = 1                                                            GEO 2260
      IF(LEN.EQ.1  .OR. H1.GT.H2) LP = 0                                GEO 2270
      DO 310 J=1,JMAX                                                   GEO 2280
      L = LJ(J)                                                         GEO 2290
      IF(J.EQ.JTURN) LP = 1                                             GEO 2300
      LZ = L+LP                                                         GEO 2310
C     IF(NPR.NE.1)WRITE(IPR,48) J,ZP(LZ),(WPATH(J,KMOL(K)),K=9,15)      GEO-2320
      MSOFFJ=MSOFF+J                                                    GEO2320A
      IF(NPR.NE.1)WRITE(IPR,'(I3,F9.3,1P7E12.3)')J,ZP(LZ),              GEO2320B
     1  (WPATH(MSOFFJ,KMOL(K)),K=9,15)                                  GEO2320C
   48 FORMAT(I3,F9.3,1P7E12.3)                                          GEO 2330
  310 CONTINUE                                                          GEO 2340
C*****PRINT PATH SUMMARY                                                GEO 2350
315   IF(ISSGEO.EQ.1) GO TO 320                                         GEO 2360
C     IF(NPR.NE.1)WRITE(IPR,47)                                         GEO-2370
C  47 FORMAT(///'   J    Z       H2O       O3        CO2       CO    ', GEO-2380
      IF(NPR.LT.1)THEN                                                  GEO2370*
          IF(MODTRN)THEN                                                GEO2370B
              WRITE(IPR,'(///39H1  J    Z       H2O       O3        CO2,GEO2370C
     1          50H       CO        CH4       N2O       O2        NH3,  GEO2370D
     2          30H       NO        NO2       SO2,/                     GEO2370E
     3          50H      (KM)    (                                   ,  GEO2370F
     4          50H                   ATM CM                         ,  GEO2370G
     5          21H                    ),/)')                           GEO2370H
          ELSE                                                          GEO2370I
              WRITE(IPR,47)                                             GEO2370J
          ENDIF                                                         GEO2370K
      ENDIF                                                             GEO2370L
   47 FORMAT(///'1  J    Z       H2O       O3        CO2       CO    ', GEO2370M
     +'    CH4       N2O       O2        NH3       NO        NO2   ',   GEO 2390
     +'    SO2'/'      (KM)   (G/CM**2)  (                           ', GEO 2400
     +'                 ATM CM                                     ',   GEO 2410
     +'        )'/)                                                     GEO 2420
      LP = 1                                                            GEO 2430
      IF(LEN.EQ.1  .OR. H1.GT.H2) LP = 0                                GEO 2440
      DO 312 J=1,JMAX                                                   GEO 2450
      L = LJ(J)                                                         GEO 2460
      IF(J.EQ.JTURN) LP = 1                                             GEO 2470
      LZ = L+LP                                                         GEO 2480
C     IF(NPR.NE.1)WRITE(IPR,49) J,ZP(LZ),WPATH(J,17),WPATH(J,31),       GEO-2490
C    + WPATH(J,36),WPATH(J,44),WPATH(J,46),WPATH(J,47),WPATH(J,50),     GEO-2500
C    + WPATH(J,52),WPATH(J,54),WPATH(J,55),WPATH(J,56)                  GEO-2510
          MSOFFJ=MSOFF+J                                                GEO2490A
          IF(NPR.LT.1)WRITE(IPR,49)J,ZP(LZ),WPATH(MSOFFJ,17),           GEO2490*
     1      WPATH(MSOFFJ,31),WPATH(MSOFFJ,36),WPATH(MSOFFJ,44),         GEO2490C
     2      WPATH(MSOFFJ,46),WPATH(MSOFFJ,47),WPATH(MSOFFJ,50),         GEO2490D
     3      WPATH(MSOFFJ,52),WPATH(MSOFFJ,54),WPATH(MSOFFJ,55),         GEO2490E
     4      WPATH(MSOFFJ,56)                                            GEO2490F
  312 CONTINUE                                                          GEO 2520
   49 FORMAT(I4,F8.2,1P11E10.2)                                         GEO 2530
      WRITE(IPR,40)H1,H2,ANGLE,RANGE,BETA,PHI,HMIN,BENDNG,LEN           GEO 2540
   40 FORMAT(//,'0SUMMARY OF THE GEOMETRY CALCULATION',//,              GEO 2550
     1 10X,'H1      = ',F10.3,' KM',/,10X,'H2      = ',F10.3,' KM',/,   GEO 2560
     110X,'ANGLE   = ',F10.3,' DEG',/,10X,'RANGE   = ',F10.3,' KM',/,   GEO 2570
     310X,'BETA    = ',F10.3,' DEG',/,10X,'PHI     = ',F10.3,' DEG',/,  GEO 2580
     4 10X,'HMIN    = ',F10.3,' KM',/,10X,'BENDING = ',F10.3,' DEG',/,  GEO 2590
     5 10X,'LEN     = ',I10)                                            GEO 2600
  320 CONTINUE                                                          GEO 2610
C*****CALCULATE THE AEROSOL WEIGHTED MEAN RH                            GEO 2620
      IF(W(7).GT.0.0 .AND. ICH(1).LE.7)  W15   = W(15)/W(7)             GEO 2630
      IF(W(12).GT.0.0 .AND. ICH(1).GT.7)  W15   = W(15)/W(12)           GEO 2640
C                                                                       GEO 2650
C     INVERSE OF LOG REL HUM                                            GEO 2660
C                                                                       GEO 2670
      IF(W(7).GT.0.0 .AND. ICH(1).LE.7)  THEN                           GEO 2680
           W(15) = 100. - EXP(W15)                                      GEO 2690
      ENDIF                                                             GEO 2700
      IF(W(12).GT.0.0 .AND. ICH(1).GT.7)  THEN                          GEO 2710
           W(15) = 100. - EXP(W15)                                      GEO 2720
      ENDIF                                                             GEO 2730
      IF (W(7).LE.0.0 .AND. ICH(1).LE.7 )W(15) = 0.                     GEO 2740
      IF(W(12).LE.0.0 .AND. ICH(1).GT.7)  W(15) = 0.                    GEO 2750
C  CONVERT WPATH TO INCREMENTAL PATH AMOUNTS FOR MODTRAN RUNS           GEO2750A
      IF(MODTRN)THEN                                                    GEO2750B
          JMAXM1=JMAX-1                                                 GEO2750C
          MSOFFP=MSOFF+JMAX                                             GEO2750D
          DO 340 J=JMAXM1,1,-1                                          GEO2750E
              MSOFFJ=MSOFF+J                                            GEO2750F
              DO 330 K=1,NSPEC                                          GEO2750G
                  KP=KPOINT(K)                                          GEO2750H
  330         WPATH(MSOFFP,KP)=WPATH(MSOFFP,KP)-WPATH(MSOFFJ,KP)        GEO2750I
  340     MSOFFP=MSOFFJ                                                 GEO2750J
      ENDIF                                                             GEO2750K
C                                                                       GEO 2760
C*****PRINT TOTAL PATH AMOUNTS                                          GEO 2770
      IF(ISSGEO.EQ.1) RETURN                                            GEO 2780
      WRITE(IPR,50)  (W(KMOL(K)),K=4,16)                                GEO 2790
C  50 FORMAT(////,' EQUIVALENT SEA LEVEL TOTAL ABSORBER AMOUNTS',//,    GEO-2800
   50 FORMAT(////,'1EQUIVALENT SEA LEVEL TOTAL ABSORBER AMOUNTS',//,    GEO2800A
     1    T18,'HNO3',T28,'O3 UV',                                       GEO 2810
     2    T40,'CNTMSLF1',T52,'CNTMSLF2',T63,'CNTMFRN',/,                GEO 2820
     3                   T16,'(ATM CM)',T27,'(ATM CM)',T40,             GEO 2830
     4    '(MOL CM-2)',T52,'(MOL CM-2)',T64,'(MOL CM-2)',               GEO 2840
     +    T76,'(MOL CM-2)',                                             GEO 2850
     +    //,10X,1P5E12.3,///,                                          GEO 2860
     5    T15,'N2 CONT',T26,'MOL SCAT',T41,'AER 1', T53,'AER 2',        GEO 2870
     6    T65,'AER 3',T77, 'AER 4',T87,'CIRRUS',T99,'MEAN RH'/,         GEO 2880
     7    T99,'(PRCNT)',//,10X,1P7E12.3,0PF12.2)                        GEO 2890
C                                                                       GEO 2900
      IF(MODTRN)THEN                                                    GEO2900A
          WRITE(IPR,'(//T18,3HH2O,T29,2HO3,T41,3HCO2,T53,2HCO,T65,3HCH4,GEO2900B
     1      T77,3HN2O,T90,2HO2,/T16,1H(,T57,6HATM CM,T91,1H),//10X,     GEO2900C
     2      1P7E12.3,//T18,3HNH3,T29,2HNO,T41,3HNO2,T53,3HSO2,/T18,1H(, GEO2900D
     3      T34,6HATM CM,T55,1H),//10X,1P4E12.3)')W(17),W(31),W(36),    GEO2900E
     4      W(44),W(46),W(47),W(50),W(52),W(54),W(55),W(56)             GEO2900F
      ELSE                                                              GEO2900G
      WRITE(IPR,60) W(17),W(31),W(36),W(44),W(46),W(47),W(50),          GEO 2910
     +              W(52),W(54),W(55),W(56)                             GEO 2920
      ENDIF                                                             GEO2920A
   60 FORMAT(                                                           GEO 2930
     1 //T18,'H2O',T29,'O3',T41,'CO2',T53,'CO',T65,'CH4',T77,'N2O',     GEO 2940
     +   T90,'O2',                                                      GEO 2950
     2  /T15,'(G/CM**2)',T29,'(',T57,'ATM CM',T91,')',//10X,1P7E12.3,   GEO 2960
     3 //T18,'NH3',T29,'NO',T41,'NO2',T53,'SO2',/T18,'(',T34,'ATM CM',  GEO 2970
     +   T55,')',                                                       GEO 2980
     4 //10X,1P4E12.3)                                                  GEO 2990
      IF(JMAXST .GT. MAXGEO) THEN                                       GEO 3000
      WRITE(IPR,900)MAXGEO,JMAXST                                       GEO 3010
 900  FORMAT(//'  CURRENT GEOMETRY DIMENSION ',I5 ,/                    GEO 3020
     X,' JMAXST = ',I5,' RESET AVTRAT TDIFF1 TDIFF2 TO 2. 10. 20.')     GEO 3030
      STOP 'GEO :JMAXST .GT. MAXGEO'                                    GEO 3040
      ENDIF                                                             GEO 3050
      DO 350 IK=1,JMAXST                                                GEO 3060
      IL=LJ(IK)                                                         GEO 3070
      RNPATH(IK)=SP(IL)                                                 GEO 3080
      RRAMTK(IK)=RRAMT(IL)                                              GEO 3090
350   CONTINUE                                                          GEO 3100
C                                                                       GEO 3110
500   FORMAT(/10X,'ICH(1),W(15),W(7),W(12)=',I5,1P3E12.3/)              GEO 3120
      RETURN                                                            GEO 3130
      END                                                               GEO 3140
      SUBROUTINE GEOINP(H1,H2,ANGLE,RANGE,BETA,ITYPE,LEN,HMIN,PHI,      GEI  100
     1    IERROR)                                                       GEI  110
C***********************************************************************GEI  120
C     GEOINP INTERPRETS THE ALLOWABLE COMBINATIONS OF INPUT PATH        GEI  130
C     PARAMETERS INTO THE STANDARD SET H1,H2,ANGLE,PHI,HMIN, AND LEN.   GEI  140
C     THE ALLOWABLE COMBINATIONS OF INPUT PARAMETERS ARE- FOR ITYPE = 2,GEI  150
C     (SLANT PATH H1 TO H2) A. H1, H2, AND ANGLE, B. H1, ANGLE, AND     GEI  160
C     RANGE, C. H1, H2, AND RANGE, D. H1, H2, AND BETA -                GEI  170
C     FOR ITYPE = 3 (SLANT PATH H1 TO SPACE H2 = 100 KM),               GEI  180
C     A. H1 AND ANGLE, B. H1 AND HMIN (INPUT AS H2).                    GEI  190
C     THE SUBROUTINE ALSO DETECTS BAD INPUT (IMPOSSIBLE GEOMETRY) AND   GEI  200
C     ITYPE = 2 CASES WHICH INTERSECT THE EARTH, AND RETURNS THESE      GEI  210
C     CASES WITH ERROR FLAGS.                                           GEI  220
C     THE SUBROUTINE FNDHMN IS CALLED TO CALCULATE HMIN, THE MINIMUM    GEI  230
C     HEIGHT ALONG THE PATH, AND PHI, THE ZENITH ANGLE AT H2, USING THE GEI  240
C     ATMOSPHERIC PROFILE STORED IN /MODEL/                             GEI  250
C***********************************************************************GEI  260
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                GEI  270
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              GEI  280
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     GEI  290
      ITER = 0                                                          GEI  300
      IF(ITYPE.NE.3) GO TO 120                                          GEI  310
C*****SLANT PATH TO SPACE                                               GEI  320
C*****NOTE: IF BOTH HMIN AND ANGLE ARE ZERO, THEN ANGLE IS              GEI  330
C*****ASSUMED SPECIFIED                                                 GEI  340
      IF(H2.NE.0.0)  GO TO 110                                          GEI  350
C*****CASE 3A: H1,SPACE,ANGLE                                           GEI  360
C     IF(NPR.NE.1)WRITE(IPR,10)                                         GEI  370
      IF(NPR.LT.1)WRITE(IPR,10)                                         GEI  370
   10 FORMAT(//,' CASE 3A: GIVEN H1,H2=SPACE,ANGLE')                    GEI  380
      H2 =  ZMAX                                                        GEI  390
      CALL FNDHMN(H1,ANGLE,H2,LEN,ITER,HMIN,PHI,IERROR)                 GEI  400
      IF(IERROR.EQ.-5) RETURN                                           GEI  410
      GO TO 200                                                         GEI  420
  110 CONTINUE                                                          GEI  430
C*****CASE 3B: H1,HMIN,SPACE                                            GEI  440
C     IF(NPR.NE.1)WRITE(IPR,12)                                         GEI  450
      IF(NPR.LT.1)WRITE(IPR,12)                                         GEI  450
   12 FORMAT(//,' CASE 3B: GIVEN H1, HMIN, H2=SPACE')                   GEI  460
      HMIN = H2                                                         GEI  470
      H2 = ZMAX                                                         GEI  480
      IF(H1.LT.HMIN) GO TO 9001                                         GEI  490
      CALL FNDHMN(HMIN,90.0,H1,LEN,ITER,HMIN,ANGLE,IERROR)              GEI  500
      CALL FNDHMN(HMIN,90.0,H2,LEN,ITER,HMIN,PHI,IERROR)                GEI  510
      IF(HMIN.LT.H1) LEN = 1                                            GEI  520
      GO TO 200                                                         GEI  530
  120 CONTINUE                                                          GEI  540
      IF(ITYPE.NE.2) GO TO 9002                                         GEI  550
      IF(RANGE.NE.0.0.OR.BETA.NE.0.0) GO TO 130                         GEI  560
C*****CASE 2A: H1, H2, ANGLE                                            GEI  570
C     IF(NPR.NE.1)WRITE(IPR,16)                                         GEI  580
      IF(NPR.LT.1)WRITE(IPR,16)                                         GEI  580
   16 FORMAT(//, ' CASE 2A: GIVEN H1, H2, ANGLE')                       GEI  590
      IF(H1.GE.H2.AND.ANGLE.LE.90.0) GO TO 9004                         GEI  600
      IF(H1.EQ.0.0 .AND. ANGLE.GT.90.0) GO TO 9007                      GEI  610
C     IF(H2.LT.H1.AND.ANGLE.GT.90.0.AND.NPR.NE.1) WRITE(IPR,15) LEN     GEI  620
      IF(H2.LT.H1.AND.ANGLE.GT.90.0.AND.NPR.LT.1) WRITE(IPR,15) LEN     GEI  620
   15 FORMAT(//,' EITHER A SHORT PATH (LEN=0) OR A LONG PATH ',         GEI  630
     1    'THROUGH A TANGENT HEIGHT (LEN=1) IS POSSIBLE: LEN = ',       GEI  640
     2    I3)                                                           GEI  650
      H2ST = H2                                                         GEI  660
      CALL FNDHMN(H1,ANGLE,H2,LEN,ITER,HMIN,PHI,IERROR)                 GEI  670
      IF(H2.NE.H2ST)  GO TO 9007                                        GEI  680
      GO TO 200                                                         GEI  690
  130 CONTINUE                                                          GEI  700
      IF(BETA.EQ.0.0) GO TO 133                                         GEI  710
      CALL FDBETA(H1,H2,BETA,ANGLE,PHI,LEN,HMIN,IERROR)                 GEI  720
      GO TO 200                                                         GEI  730
  133 CONTINUE                                                          GEI  740
      IF(ANGLE.EQ.0.0) GO TO 140                                        GEI  750
C*****CASE 2B: H1, ANGLE, RANGE                                         GEI  760
C*****ASSUME NO REFRACTION                                              GEI  770
C     IF(NPR.NE.1)WRITE(IPR,18)                                         GEI  780
      IF(NPR.LT.1)WRITE(IPR,18)                                         GEI  780
   18 FORMAT(//,' CASE 2B:, GIVEN H1, ANGLE, RANGE',//                  GEI  790
     1    10X,'NOTE: H2 IS COMPUTED FROM H1, ANGLE, AND RANGE ',        GEI  800
     2    'ASSUMING NO REFRACTION')                                     GEI  810
      R1 = RE+H1                                                        GEI  820
      R2 = SQRT(R1**2+RANGE**2+2.0*R1*RANGE*COS(+ANGLE/DEG))            GEI  830
      H2 = R2-RE                                                        GEI  840
      IF(H2.GE.0.0)  GO TO 135                                          GEI  850
      H2 = 0.0                                                          GEI  860
      R2 = RE+H2                                                        GEI  870
      RANGE = -R1*COS(ANGLE/DEG)-SQRT(R2**2-R1**2*(SIN(ANGLE/DEG))**2)  GEI  880
C     IF(NPR.NE.1)WRITE(IPR,17) RANGE                                   GEI  890
C     IF(NPR.LT.1)WRITE(IPR,17) RANGE                                   GEI  890
   17 FORMAT(//,10X,'CALCULATED H2 IS LESS THAN ZERO:',/,               GEI  900
     1    10X,'RESET H2 = 0.0 AND RANGE = ',F10.3)                      GEI  910
  135 CONTINUE                                                          GEI  920
C*****NOTE: GEOMETRIC PHI IS NEEDED TO DETERMINE LEN(0 OR 1).           GEI  930
C*****PHI IS THEN RECOMPUTED IN FNDHMN                                  GEI  940
      ZARG1=(R2**2+RANGE**2-R1**2)/(2.0*R2*RANGE)                       GEI  950
      ERARG1=ABS(ZARG1)-1.0                                             GEI  960
      IF((ERARG1.GT.1.0E-6).OR.(ERARG1.LT.0.0)) GO TO 137               GEI  970
      IF (ZARG1.LT.0.0) GO TO 138                                       GEI  980
      ZARG1=1.0                                                         GEI  990
      GO TO 137                                                         GEI 1000
  138 ZARG1=-1.0                                                        GEI 1010
  137 PHI = 180.0-ACOS(ZARG1)*DEG                                       GEI 1020
      LEN = 0                                                           GEI 1030
      IF(ANGLE.GT.90.0.AND.PHI.GT.90.0) LEN = 1                         GEI 1040
      CALL FNDHMN(H1,ANGLE,H2,LEN,ITER,HMIN,PHI,IERROR)                 GEI 1050
      GO TO 200                                                         GEI 1060
  140 CONTINUE                                                          GEI 1070
C*****CASE 2C: H1, H2, RANGE                                            GEI 1080
C     IF(NPR.NE.1)WRITE(IPR,19)                                         GEI 1090
      IF(NPR.LT.1)WRITE(IPR,19)                                         GEI 1090
   19 FORMAT(//,' CASE 2C: GIVEN H1, H2, RANGE',//,                     GEI 1100
     1    10X,'NOTE: ANGLE IS COMPUTED FROM H1, H2, AND RANGE ',        GEI 1110
     2    'ASSUMING NO REFRACTION')                                     GEI 1120
      IF(ABS(H1-H2).GT.RANGE) GO TO 9003                                GEI 1130
      R1 = H1+RE                                                        GEI 1140
      R2 = H2+RE                                                        GEI 1150
C%    PHI = 180.0-ACOS((R2**2+RANGE**2-R1**2)/(2.0*R2*RANGE))*DEG       *** 1160
      ZARG2=(R1**2+RANGE**2-R2**2)/(2.0*R1*RANGE)                       GEI 1170
      ERARG2=ABS(ZARG2)-1.0                                             GEI 1180
      IF((ERARG2.GT.1.0E-6).OR.(ERARG2.LT.0.0)) GO TO 187               GEI 1190
      IF (ZARG2.LT.0.0) GO TO 188                                       GEI 1200
      ZARG2=1.0                                                         GEI 1210
      GO TO 187                                                         GEI 1220
  188 ZARG2=-1.0                                                        GEI 1230
  187 ANGLE = 180.0-ACOS(ZARG2)*DEG                                     GEI 1240
      ZARG3=(R2**2+RANGE**2-R1**2)/(2.0*R2*RANGE)                       GEI 1250
      ERARG3=ABS(ZARG3)-1.0                                             GEI 1260
      IF((ERARG3.GT.1.0E-6).OR.(ERARG3.LT.0.0)) GO TO 197               GEI 1270
      IF (ZARG3.LT.0.0) GO TO 198                                       GEI 1280
      ZARG3=1.0                                                         GEI 1290
      GO TO 197                                                         GEI 1300
  198 ZARG3=-1.0                                                        GEI 1310
  197 PHI = 180.0-ACOS(ZARG3)*DEG                                       GEI 1320
      BETA = PHI +ANGLE -180.                                           GEI 1330
C#    RANGE = 0.                                                        GEI 1340
      IF(RANGE .GT. 2.0  .AND. BETA .GT. 0)THEN                         *** 1341
      CALL FDBETA(H1,H2,BETA,ANGLE,PHI,LEN,HMIN,IERROR)                 GEI 1350
      ELSE                                                              *** 1351
CJ                                                                      GEI 1360
      LEN = 0                                                           *** 1370
      IF(ANGLE.GT.90.0.AND.PHI.GT.90.0) LEN = 1                         *** 1380
      CALL FNDHMN(H1,ANGLE,H2,LEN,ITER,HMIN,PHI,IERROR)                 *** 1390
      ENDIF                                                             *** 1392
  200 CONTINUE                                                          GEI 1400
C*****TEST IERROR AND RECHECK LEN                                       GEI 1410
      IF(IERROR.NE.0)  RETURN                                           GEI 1420
      LEN = 0                                                           GEI 1430
      IF(HMIN.LT.AMIN1(H1,H2)) LEN = 1                                  GEI 1440
C*****REDUCE PATH ENDPOINTS ABOVE ZMAX TO ZMAX                          GEI 1450
      IF(HMIN.GE.ZMAX) GO TO 9008                                       GEI 1460
      IF(H1.GT.ZMAX .OR. H2.GT.ZMAX)  CALL REDUCE(H1,H2,ANGLE,PHI,ITER) GEI 1470
C*****AT THIS POINT THE FOLLOWING PARAMETERS ARE DEFINED:               GEI 1480
C*****    H1,H2,ANGLE,PHI,HMIN,LEN                                      GEI 1490
C     IF(NPR.NE.1)WRITE(IPR,20)  H1,H2,ANGLE,PHI,HMIN,LEN               GEI 1500
      IF(NPR.LT.1)WRITE(IPR,20)  H1,H2,ANGLE,PHI,HMIN,LEN               GEI 1500
   20 FORMAT(///,' SLANT PATH PARAMETERS IN STANDARD FORM',//,          GEI 1510
     1  10X,'H1      = ',F10.3,' KM',/,10X,'H2      = ',F10.3,' KM',/,  GEI 1520
     2  10X,'ANGLE   = ',F10.3,' DEG',/,10X,'PHI     = ',F10.3,' DEG',/,GEI 1530
     3    10X,'HMIN    = ',F10.3,' KM',/,10X,'LEN     = ',I10)          GEI 1540
      RETURN                                                            GEI 1550
C*****                                                                  GEI 1560
C*****ERROR MESAGES                                                     GEI 1570
C*****                                                                  GEI 1580
 9001 CONTINUE                                                          GEI 1590
      WRITE(IPR,40) H1,HMIN                                             GEI 1600
   40 FORMAT('0GEOINP, CASE 3B (H1,HMIN,SPACE): ERROR IN INPUT DATA',   GEI 1610
     1    //,10X,'H1 = ',F12.6,'    IS LESS THAN HMIN = ',F12.6)        GEI 1620
      GO TO 9900                                                        GEI 1630
 9002 WRITE(IPR,42) ITYPE,ITYPE                                         GEI 1640
   42 FORMAT('0GEOINP: ERROR IN INPUT DATA, ITYPE NOT EQUAL TO ',       GEI 1650
     1    ' 2, OR 3.   ITYPE = ',I10,E23.14)                            GEI 1660
      GO TO 9900                                                        GEI 1670
 9003 WRITE(IPR,43) H1,H2,RANGE                                         GEI 1680
   43 FORMAT('0GEOINP, CASE 2C (H1,H2,RANGE): ERROR IN INPUT DATA',//,  GEI 1690
     110X,'ABS(H1-H2) GT RANGE;  H1 = ',F12.6,'    H2 = ',F12.6,        GEI 1700
     2    '    RANGE = ',F12.6)                                         GEI 1710
      GO TO 9900                                                        GEI 1720
 9004 CONTINUE                                                          GEI 1730
      WRITE(IPR,44)  H1,H2,ANGLE                                        GEI 1740
   44 FORMAT('0GEOINP, CASE 2A (H1,H2,ANGLE): ERROR IN INPUT DATA',     GEI 1750
     1  //,10X,'H1 = ',F12.6,'    IS GREATER THAN OR EQUAL TO H2 = ',   GEI 1760
     2    F12.6 ,/,10X,'AND ANGLE = ',F12.6,'    IS LESS THAN OR ',     GEI 1770
     3    'EQUAL TO 90.0')                                              GEI 1780
      GO TO 9900                                                        GEI 1790
 9007 WRITE(IPR,48)                                                     GEI 1800
   48 FORMAT('0GEOINP, ITYPE = 2: SLANT PATH INTERSECTS THE EARTH',     GEI 1810
     1    ' AND CANNOT REACH H2')                                       GEI 1820
      GO TO 9900                                                        GEI 1830
 9008 WRITE(IPR,50) ZMAX,H1,H2,HMIN                                     GEI 1840
   50 FORMAT(' GEOINP-  THE ENTIRE PATH LIES ABOVE THE TOP ZMAX ',      GEI 1850
     1    'OF THE ATMOSPHERIC PROFILE',//,10X,'ZMAX = ',G12.6,5X,       GEI 1860
     2    '  H1 = ',G12.6,5X,'  H2 = ',G12.6,'  HMIN = ',G12.6)         GEI 1870
 9900 IERROR = 1                                                        GEI 1880
      RETURN                                                            GEI 1890
      END                                                               GEI 1900
      FUNCTION   GMRAIN(FREQ,T,RATE)                                    GMR  100
C                                                                       GMR  110
C        COMPUTES ATTENUATION OF CONDENSED WATER IN FORM OF RAIN        GMR  120
C                                                                       GMR  130
C        FREQ = WAVENUMBER (CM-1)                                       GMR  140
C        T    = TEMPERATURE (DEGREES KELVIN)                            GMR  150
C        RATE = PRECIPITATION RATE (MM/HR)                              GMR  160
C       WVLTH = WAVELENGTH IN CM                                        GMR  170
C                                                                       GMR  180
C     TABLES ATTAB AND FACTOR CALCULATED FROM FULL MIE THEORY           GMR  190
C     UTILIZING MARSHALL-PALMER SIZE DISTRIBUTION WITH RAYS INDEX       GMR  200
C     OF REFRACTION                                                     GMR  210
C                                                                       GMR  220
C     ATTAB IS ATTENUATION DATA TABLE IN NEPERS FOR 20 DEG CELSIUS      GMR  230
C     WITH RADIATION FIELD REMOVED                                      GMR  240
C                                                                       GMR  250
C     WVNTBL IS WAVENUMBER TABLE FOR WAVENUMBERS USED IN TABLE ATTAB    GMR  260
C     TMPTAB IS INTERPOLATION DATA TABLE FOR TEMPERATURES IN DEG KELVIN GMR  270
C                                                                       GMR  280
C     TLMDA IS INTERPOLATION DATA TABLE FOR WAVELENGTH IN CM            GMR  290
C     TFREQ IS INTERPOLATION DATA TABLE FOR WAVENUMBER IN CM-1          GMR  300
C                                                                       GMR  310
C     RATTAB IS RAIN RATE TABLE IN MM/HR                                GMR  320
C                                                                       GMR  330
C     FACTOR IS TABLE OF TEMPERATURE CORRECTION FACTORS FOR             GMR  340
C     TABLE ATTAB FOR REPRESENTATIVE RAINS WITHOUT RADIATION FIELD      GMR  350
C                                                                       GMR  360
C                                                                       GMR  370
C     AITKEN INTERPOLATION SCHEME WRITTEN BY                            GMR  380
C           E.T. FLORANCE O.N.R. PASADENA CA.                           GMR  390
C                                                                       GMR  400
C                                                                       GMR  410
      DIMENSION ATTAB1(35),ATTAB2(35),ATTAB3(35),ATTAB4(35),ATTAB5(35)  GMR  420
      DIMENSION ATTAB6(35),ATTAB7(35),ATTAB8(35),ATTAB9(35)             GMR  430
      DIMENSION ATTAB(35,9),WVLTAB(27),RATTAB(9),FACTOR(5,8,5)          GMR  440
      DIMENSION X(4),Y(4),ATTN(4),RATES(4)                              GMR  450
CCC   DIMENSION X(3),Y(3),ATTN(3),RATES(3)                              GMR  460
      DIMENSION TMPTAB(5),TLMDA(6),FACIT(5),TFACT(5)                    GMR  470
      DIMENSION TFREQ(8),WVNTBL(35)                                     GMR  480
      DIMENSION FACEQ1(5,8),FACEQ2(5,8),FACEQ3(5,8),FACEQ4(5,8)         GMR  490
      DIMENSION FACEQ5(5,8)                                             GMR  500
      EQUIVALENCE (ATTAB1(1),ATTAB(1,1)),(ATTAB2(1),ATTAB(1,2))         GMR  510
      EQUIVALENCE (ATTAB3(1),ATTAB(1,3)),(ATTAB4(1),ATTAB(1,4))         GMR  520
      EQUIVALENCE (ATTAB5(1),ATTAB(1,5)),(ATTAB6(1),ATTAB(1,6))         GMR  530
      EQUIVALENCE (ATTAB7(1),ATTAB(1,7)),(ATTAB8(1),ATTAB(1,8))         GMR  540
      EQUIVALENCE (ATTAB9(1),ATTAB(1,9))                                GMR  550
      EQUIVALENCE (FACEQ1(1,1),FACTOR(1,1,1))                           GMR  560
      EQUIVALENCE (FACEQ2(1,1),FACTOR(1,1,2))                           GMR  570
      EQUIVALENCE (FACEQ3(1,1),FACTOR(1,1,3))                           GMR  580
      EQUIVALENCE (FACEQ4(1,1),FACTOR(1,1,4))                           GMR  590
      EQUIVALENCE (FACEQ5(1,1),FACTOR(1,1,5))                           GMR  600
      DATA WVLTAB/.03,.033,.0375,.043,.05,.06,.075,.1,.15,.2,.25,.3,.5, GMR  610
     1.8,1.,2.,3.,4.,5.,5.5,6.,6.5,7.,8.,9.,10.,15./                    GMR  620
      DATA WVNTBL/ 0.0000,                                              GMR  630
     1    .0667,.1000,.1111,.1250,.1429,.1538,                          GMR  640
     2  .1667,.1818,.2000,.2500,.3333,.5000,1.0000,                     GMR  650
     3 1.2500,2.0000,3.3333,4.0000,5.0000,6.6667,10.0000,               GMR  660
     4 13.3333,16.6667,20.0000,23.2558,26.6667,30.3030,33.3333,         GMR  670
     5 50.0,80.0,120.0,180.0,250.0,300.0,350.0/                         GMR  680
      DATA RATTAB /.25,1.25,2.5,5.,12.5,25.,50.,100.,150./              GMR  690
      DATA TLMDA/.03,.1,.5,1.25,3.2,10./                                GMR  700
      DATA TFREQ/0.0,0.1,0.3125,0.8,2.0,10.0,33.3333,350.0/             GMR  710
      DATA TMPTAB/273.15,283.15,293.15,303.15,313.15/                   GMR  720
      DATA ATTAB1/                                                      GMR  730
     1 1.272E+00,1.332E+00,1.361E+00,1.368E+00,1.393E+00,1.421E+00,     GMR  740
     2 1.439E+00,1.466E+00,1.499E+00,1.541E+00,1.682E+00,1.951E+00,     GMR  750
     3 2.571E+00,3.575E+00,3.808E+00,4.199E+00,3.665E+00,3.161E+00,     GMR  760
     4 2.462E+00,1.632E+00,8.203E-01,4.747E-01,3.052E-01,2.113E-01,     GMR  770
     5 1.551E-01,1.168E-01,8.958E-02,7.338E-02,3.174E-02,1.178E-02,     GMR  780
     6 5.016E-03,2.116E-03,1.123E-03,8.113E-04,6.260E-04/               GMR  790
      DATA ATTAB2/                                                      GMR  800
     1 4.915E+00,5.257E+00,5.518E+00,5.632E+00,5.807E+00,6.069E+00,     GMR  810
     2 6.224E+00,6.452E+00,6.756E+00,7.132E+00,8.453E+00,1.132E+01,     GMR  820
     3 1.685E+01,2.177E+01,2.246E+01,2.156E+01,1.470E+01,1.167E+01,     GMR  830
     4 8.333E+00,5.089E+00,2.356E+00,1.320E+00,8.315E-01,5.705E-01,     GMR  840
     5 4.151E-01,3.119E-01,2.385E-01,1.955E-01,8.373E-02,3.138E-02,     GMR  850
     6 1.351E-02,5.789E-03,3.090E-03,2.236E-03,1.725E-03/               GMR  860
      DATA ATTAB3/                                                      GMR  870
     1 8.798E+00,9.586E+00,1.023E+01,1.049E+01,1.093E+01,1.159E+01,     GMR  880
     2 1.205E+01,1.263E+01,1.343E+01,1.450E+01,1.832E+01,2.627E+01,     GMR  890
     3 3.904E+01,4.664E+01,4.702E+01,4.152E+01,2.542E+01,1.959E+01,     GMR  900
     4 1.363E+01,8.087E+00,3.660E+00,2.028E+00,1.274E+00,8.710E-01,     GMR  910
     5 6.340E-01,4.757E-01,3.634E-01,2.971E-01,1.275E-01,4.795E-02,     GMR  920
     6 2.072E-02,8.936E-03,4.780E-03,3.460E-03,2.670E-03/               GMR  930
      DATA ATTAB4/                                                      GMR  940
     1 1.575E+01,1.750E+01,1.914E+01,1.991E+01,2.108E+01,2.276E+01,     GMR  950
     2 2.399E+01,2.561E+01,2.785E+01,3.097E+01,4.204E+01,6.334E+01,     GMR  960
     3 8.971E+01,9.853E+01,9.609E+01,7.718E+01,4.290E+01,3.220E+01,     GMR  970
     4 2.188E+01,1.271E+01,5.641E+00,3.110E+00,1.947E+00,1.327E+00,     GMR  980
     5 9.657E-01,7.242E-01,5.539E-01,4.528E-01,1.942E-01,7.335E-02,     GMR  990
     6 3.181E-02,1.380E-02,7.394E-03,5.354E-03,4.132E-03/               GMR 1000
      DATA ATTAB5/                                                      GMR 1010
     1 3.400E+01,3.927E+01,4.523E+01,4.796E+01,5.207E+01,5.886E+01,     GMR 1020
     2 6.383E+01,7.060E+01,8.005E+01,9.360E+01,1.381E+02,2.069E+02,     GMR 1030
     3 2.620E+02,2.534E+02,2.366E+02,1.673E+02,8.285E+01,6.059E+01,     GMR 1040
     4 4.013E+01,2.280E+01,9.939E+00,5.439E+00,3.400E+00,2.315E+00,     GMR 1050
     5 1.685E+00,1.263E+00,9.664E-01,7.914E-01,3.397E-01,1.288E-01,     GMR 1060
     6 5.611E-02,2.450E-02,1.316E-02,9.536E-03,7.360E-03/               GMR 1070
      DATA ATTAB6/                                                      GMR 1080
     1 6.087E+01,7.347E+01,8.886E+01,9.653E+01,1.081E+02,1.283E+02,     GMR 1090
     2 1.435E+02,1.649E+02,1.947E+02,2.346E+02,3.543E+02,4.991E+02,     GMR 1100
     3 5.705E+02,5.048E+02,4.510E+02,2.900E+02,1.335E+02,9.607E+01,     GMR 1110
     4 6.269E+01,3.520E+01,1.519E+01,8.295E+00,5.182E+00,3.529E+00,     GMR 1120
     5 2.569E+00,1.927E+00,1.474E+00,1.208E+00,5.191E-01,1.975E-01,     GMR 1130
     6 8.627E-02,3.784E-02,2.037E-02,1.476E-02,1.139E-02/               GMR 1140
      DATA ATTAB7/                                                      GMR 1150
     1 1.090E+02,1.396E+02,1.811E+02,2.029E+02,2.396E+02,3.039E+02,     GMR 1160
     2 3.536E+02,4.189E+02,5.081E+02,6.217E+02,9.038E+02,1.165E+03,     GMR 1170
     3 1.212E+03,9.731E+02,8.330E+02,4.901E+02,2.123E+02,1.507E+02,     GMR 1180
     4 9.718E+01,5.408E+01,2.316E+01,1.264E+01,7.896E+00,5.377E+00,     GMR 1190
     5 3.915E+00,2.939E+00,2.249E+00,1.844E+00,7.940E-01,3.029E-01,     GMR 1200
     6 1.327E-01,5.846E-02,3.151E-02,2.284E-02,1.763E-02/               GMR 1210
      DATA ATTAB8/                                                      GMR 1220
     1 1.950E+02,2.703E+02,3.904E+02,4.614E+02,5.825E+02,7.909E+02,     GMR 1230
     2 9.475E+02,1.142E+03,1.380E+03,1.656E+03,2.237E+03,2.610E+03,     GMR 1240
     3 2.500E+03,1.820E+03,1.491E+03,8.103E+02,3.336E+02,2.344E+02,     GMR 1250
     4 1.495E+02,8.273E+01,3.524E+01,1.922E+01,1.203E+01,8.182E+00,     GMR 1260
     5 5.961E+00,4.477E+00,3.429E+00,2.812E+00,1.216E+00,4.651E-01,     GMR 1270
     6 2.043E-01,9.033E-02,4.874E-02,3.534E-02,2.728E-02/               GMR 1280
      DATA ATTAB9/                                                      GMR 1290
     1 2.742E+02,4.012E+02,6.353E+02,7.829E+02,1.027E+03,1.439E+03,     GMR 1300
     2 1.725E+03,2.071E+03,2.475E+03,2.909E+03,3.738E+03,4.104E+03,     GMR 1310
     3 3.776E+03,2.589E+03,2.070E+03,1.078E+03,4.326E+02,3.023E+02,     GMR 1320
     4 1.918E+02,1.059E+02,4.499E+01,2.454E+01,1.539E+01,1.045E+01,     GMR 1330
     5 7.615E+00,5.722E+00,4.384E+00,3.596E+00,1.561E+00,5.978E-01,     GMR 1340
     6 2.630E-01,1.165E-01,6.292E-02,4.562E-02,3.522E-02/               GMR 1350
      DATA FACEQ1/                                                      GMR 1360
     1 1.606,1.252,1.000, .816, .680,1.603,1.246,1.000, .817, .684,     GMR 1370
     2 1.444,1.207,1.000, .838, .694,1.016, .985,1.000,1.034,1.058,     GMR 1380
     3  .950, .976,1.000,1.034,1.068, .922, .956,1.000,1.044,1.090,     GMR 1390
     4  .932, .966,1.000,1.034,1.068, .957, .978,1.000,1.022,1.044/     GMR 1400
      DATA FACEQ2/                                                      GMR 1410
     1 1.606,1.252,1.000, .816, .680,1.612,1.256,1.000, .817, .684,     GMR 1420
     2 1.193,1.101,1.000, .889, .769, .885, .927,1.000,1.086,1.175,     GMR 1430
     3  .941, .976,1.000,1.024,1.047, .932, .966,1.000,1.034,1.079,     GMR 1440
     4  .932, .966,1.000,1.034,1.068, .957, .978,1.000,1.022,1.044/     GMR 1450
      DATA FACEQ3/                                                      GMR 1460
     1 1.606,1.252,1.000, .816, .680,1.621,1.256,1.000, .817, .673,     GMR 1470
     2  .969, .995,1.000, .982, .940, .895, .937,1.000,1.075,1.143,     GMR 1480
     3  .950, .976,1.000,1.024,1.036, .932, .966,1.000,1.034,1.079,     GMR 1490
     4  .932, .966,1.000,1.034,1.068, .957, .978,1.000,1.022,1.044/     GMR 1500
      DATA FACEQ4/                                                      GMR 1510
     1 1.606,1.252,1.000, .816, .680,1.631,1.265,1.000, .807, .662,     GMR 1520
     2  .848, .927,1.000,1.044,1.079, .922, .956,1.000,1.055,1.111,     GMR 1530
     3  .950, .976,1.000,1.013,1.036, .932, .966,1.000,1.034,1.079,     GMR 1540
     4  .932, .966,1.000,1.034,1.068, .957, .978,1.000,1.022,1.044/     GMR 1550
      DATA FACEQ5/                                                      GMR 1560
     1 1.606,1.252,1.000, .816, .680,1.603,1.265,1.000, .807, .662,     GMR 1570
     2  .820, .918,1.000,1.075,1.132, .941, .966,1.000,1.034,1.079,     GMR 1580
     3  .960, .976,1.000,1.013,1.036, .932, .966,1.000,1.034,1.079,     GMR 1590
     4  .932, .966,1.000,1.034,1.068, .957, .978,1.000,1.022,1.044/     GMR 1600
      DATA RATLIM /.05/                                                 GMR 1610
C         GIVE ZERO ATTN IF RATE FALLS BELOW LIMIT                      GMR 1620
      IF(RATE.GT.RATLIM) GO TO 12                                       GMR 1630
      GMRAIN = 0.                                                       GMR 1640
      RETURN                                                            GMR 1650
   12 WVLTH =  1.0  /FREQ                                               GMR 1660
CCC   JMAX=3                                                            GMR 1670
      JMAX=4                                                            GMR 1680
CCC   IF(WVLTH.GT.WVLTAB(1)) GO TO      14                              GMR 1690
CCC   ILOW=0                                                            GMR 1700
CCC   JMAX=2                                                            GMR 1710
CCC   GO TO 18                                                          GMR 1720
CCC   THIS DO LOOP IS 2 LESS THAN NO. OF WVLTAB INPUT                   GMR 1730
CCC14 DO 15 I=2,25                                                      GMR 1740
14    DO 15 I=3,33                                                      GMR 1750
CCC   IF(WVLTH.LT.(.5*(WVLTAB(I)+WVLTAB(I+1)))) GO TO 16                GMR 1760
      IF(FREQ.LT.WVNTBL(I)) GO TO 16                                    GMR 1770
   15 CONTINUE                                                          GMR 1780
CCC   SET ILOW EQUAL TO 1 LESS THAN DO MAX                              GMR 1790
CCC   ILOW=24                                                           GMR 1800
      I=34                                                              GMR 1810
CCC   GO TO 18                                                          GMR 1820
CCC16 ILOW = I-2                                                        GMR 1830
16    ILOW=I-3                                                          GMR 1840
   18 CONTINUE                                                          GMR 1850
CCC   DO 190 I=2,7                                                      GMR 1860
      DO 190 K=3,7                                                      GMR 1870
CCC   IF (RATE. LT.(.5*(RATTAB(I)+RATTAB(I+1))))GO TO 195               GMR 1880
      IF(RATE.LT.RATTAB(K)) GO TO 195                                   GMR 1890
  190 CONTINUE                                                          GMR 1900
CCC   KMIN=6                                                            GMR 1910
      K=8                                                               GMR 1920
CCC   GO TO 198                                                         GMR 1930
CC195 KMIN=I-2                                                          GMR 1940
195   KMIN=K-3                                                          GMR 1950
  198 CONTINUE                                                          GMR 1960
      DO 20 J=1,JMAX                                                    GMR 1970
      IJ = ILOW + J                                                     GMR 1980
      X(J) =       WVNTBL(IJ)                                           GMR 1990
   20 CONTINUE                                                          GMR 2000
C        INTERPOLATE                                                    GMR 2010
CCC   Z = -ALOG(FREQ)                                                   GMR 2020
CCC   DO 25 K=1,3                                                       GMR 2030
      DO 25 K=1,4                                                       GMR 2040
      KJ=KMIN+K                                                         GMR 2050
      RATES(K)=RATTAB(KJ)                                               GMR 2060
      DO 24 J=1,JMAX                                                    GMR 2070
      IJ = ILOW + J                                                     GMR 2080
      Y(J)= ALOG(ATTAB(IJ,KJ))                                          GMR 2090
   24 CONTINUE                                                          GMR 2100
      ATTN(K)=EXP(AITK(X,Y,FREQ,JMAX) )                                 GMR 2110
   25 CONTINUE                                                          GMR 2120
C        APPLY TEMPERATURE CORRECTION                                   GMR 2130
      DO 31 I=2,5                                                       GMR 2140
      IF(T.LT.TMPTAB(I)) GO TO 33                                       GMR 2150
   31 CONTINUE                                                          GMR 2160
      ILOW = 4                                                          GMR 2170
      GO TO 35                                                          GMR 2180
   33 ILOW = I-1                                                        GMR 2190
   35 CONTINUE                                                          GMR 2200
      DO 41 J=2,8                                                       GMR 2210
      IF(FREQ.LT.TFREQ(J)) GO TO 43                                     GMR 2220
   41 CONTINUE                                                          GMR 2230
CCC   JLOW IS 2 LESS THAN DO MAX                                        GMR 2240
      JLOW=6                                                            GMR 2250
      GO TO 45                                                          GMR 2260
   43 JLOW = J-2                                                        GMR 2270
   45 CONTINUE                                                          GMR 2280
      DO 50 K=1,2                                                       GMR 2290
      DO 49 J=1,2                                                       GMR 2300
C        INTERPOLATE IN TEMPERATURE                                     GMR 2310
CCC   KJ=(KMIN/2)+K                                                     GMR 2320
      KJ=K+(KMIN+1)/2                                                   GMR 2330
      JI = JLOW + J                                                     GMR 2340
      FAC = ((TMPTAB(ILOW)-T)*FACTOR(ILOW+1,JI,KJ)+(T-TMPTAB(ILOW+1))*  GMR 2350
     1 FACTOR(ILOW,JI,KJ))/(TMPTAB(ILOW)-TMPTAB(ILOW+1))                GMR 2360
      JI = JLOW +3-J                                                    GMR 2370
      FACIT(J) = (TFREQ(JI)-FREQ )*FAC                                  GMR 2380
   49 CONTINUE                                                          GMR 2390
      TFACT(K) = (FACIT(2)-FACIT(1))/(TFREQ(JLOW+1)-TFREQ(JLOW+2))      GMR 2400
   50 CONTINUE                                                          GMR 2410
C        COMPUTE ATTENUATION (DB/KM)                                    GMR 2420
CCC   KJ=2*KMIN/2+1                                                     GMR 2430
      KJ=2*((KMIN+1)/2)+1                                               GMR 2440
CCC   GMRAIN=AITK(RATES,ATTN,RATE,3)*                                   GMR 2450
      GMRAIN=AITK(RATES,ATTN,RATE,4)*                                   GMR 2460
     1((RATE-RATTAB(KJ))*TFACT(2)+(RATTAB(KJ+2)-RATE)*                  GMR 2470
     2TFACT(1))/(RATTAB(KJ+2)-RATTAB(KJ))                               GMR 2480
CCC                                                                     GMR 2490
CCC    APPLY CONVERSION TO NEPERS                                       GMR 2500
CCC                                                                     GMR 2510
      RETURN                                                            GMR 2520
      END                                                               GMR 2530
      SUBROUTINE HENGNS(ZZ,SANGLE,PHFA)                                 HEN  100
C                                                                       HEN  110
C    CALCULATES THE PHASE FUNCTION USING THE HENREY GREENSTEIN          HEN  120
C    METHOD FOR CLOUDS, DESERT AERSOL, RAIN OR USER READ IN MODEL       HEN  130
C                                                                       HEN  140
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     HEN  150
C                                                                       HEN  160
      PFHG(GG,X)=(1.0-GG**2)/(4.*PI*(1.0+GG**2-2.0*GG*X)**1.5)          HEN  170
      PHFA = PFHG(ZZ,SANGLE)                                            HEN  180
      RETURN                                                            HEN  190
      END                                                               HEN  200
      SUBROUTINE HERTDA(HERZ,V)                                         HER  100
C                                                                       HER  110
C     HERZBERG O2 ABSORPTION                                            HER  120
C     HALL,1987 PRIVATE COMMUNICATION, BASED ON:                        HER  130
C                                                                       HER  140
C     REF. JOHNSTON ET.AL, JGR,89,11661-11665,1984                      HER  150
C         NICOLET, 1987 (RECENT STUDIES IN ATOMIC & MOLECULAR PROCESSES,HER  160
C                        PLEMUN PUBLISHING CORP, NY 1987)               HER  170
C     AND YOSHINO, ET.AL., 1988 (PREPRINT OF "IMPROVED ABSORPTION       HER  180
C         CROSS SECTIONS OF OXYGEN IN THE WAVELENGTH REGION 205-240NM   HER  190
C         OF THE HERZBERG CONTINUUM")                                   HER  200
C                                                                       HER  210
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     HER  220
C                                                                       HER  230
      HERZ=0.0                                                          HER  240
      IF(V.LE.36000.00) RETURN                                          HER  250
C                                                                       HER  260
C     EXTRAPOLATE SMOOTHLY THROUGH THE HERZBERG BAND REGION             HER  270
C     NOTE: HERZBERG BANDS ARE NOT CORRECTLY INCLUDED                   HER  280
C                                                                       HER  290
      CORR=0.                                                           HER  300
      IF(V.LE.40000.)CORR=((40000.-V)/4000.)*7.917E-27                  HER  310
C                                                                       HER  320
C     CONVERSION TO ATM-CM /KM                                          HER  330
C                                                                       HER  340
      RLOSCH = 2.6868 E24 * 1.0E-5                                      HER  350
C                                                                       HER  360
C     HALL'S NEW HERZBERG  (LEAST SQRS FIT, LN(P))                      HER  370
C                                                                       HER  380
C     YRATIO=2048.7/WL(I)  ****IN ANGSTOMS****                          HER  390
C           =.20487/WN(I)     IN MICRONS                                HER  400
C           =WCM(I)/48811.0   IN CM-1                                   HER  410
C                                                                       HER  420
      YRATIO= V    /48811.0                                             HER  430
      HERZ=6.884E-24*(YRATIO)*EXP(-69.738*(ALOG(YRATIO))**2)-CORR       HER  440
      HERZ = HERZ * RLOSCH                                              HER  450
      RETURN                                                            HER  460
      END                                                               HER  470
      SUBROUTINE HNO3 (V,HABS)                                          HNO  100
C                                                                       HNO  110
C     HNO3  STATISTICAL BAND PARAMETERS                                 HNO  120
C                                                                       HNO  130
      DIMENSION H1(15), H2(16), H3(13)                                  HNO  140
C     ARRAY H1 CONTAINS HNO3 ABS, COEF(CM-1ATM-1) FROM  850 TO 920 CM-1 HNO  150
      DATA H1/2.197,3.911,6.154,8.150,9.217,9.461,11.56,11.10,11.17,12.4HNO  160
     10,10.49,7.509,6.136,4.899,2.866/                                  HNO  170
C     ARRAY H2 CONTAINS HNO3 ABS, COEF(CM-1ATM-1) FROM 1275 TO1350 CM-1 HNO  180
      DATA H2/2.828,4.611,6.755,8.759,10.51,13.74,18.00,21.51,23.09,21.6HNO  190
     18,21.32,16.82,16.42,17.87,14.86,8.716/                            HNO  200
C     ARRAY H3 CONTAINS HNO3 ABS, COEF(CM-1ATM-1) FROM 1675 TO1735 CM-1 HNO  210
      DATA H3/5.003,8.803,14.12,19.83,23.31,23.58,23.22,21.09,26.99,25.8HNO  220
     14,24.79,17.68,9.420/                                              HNO  230
      HABS=0.                                                           HNO  240
      IF (V.GE.850.0.AND.V.LE.920.0) GO TO 5                            HNO  250
      IF (V.GE.1275.0.AND.V.LE.1350.0) GO TO 10                         HNO  260
      IF (V.GE.1675.0.AND.V.LE.1735.0) GO TO 15                         HNO  270
      RETURN                                                            HNO  280
    5 I=(V-845.)/5.                                                     HNO  290
      HABS=H1(I)                                                        HNO  300
      RETURN                                                            HNO  310
   10 I=(V-1270.)/5.                                                    HNO  320
      HABS=H2(I)                                                        HNO  330
      RETURN                                                            HNO  340
   15 I=(V-1670.)/5.                                                    HNO  350
      HABS=H3(I)                                                        HNO  360
      RETURN                                                            HNO  370
      END                                                               HNO  380
      SUBROUTINE INDX (WAVL,TC,KEY,REIL,AIMAG)                          INX  100
C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * INX  110
C * *                                                                   INX  120
C * * WAVELENGTH IS IN CENTIMETERS.  TEMPERATURE IS IN DEG. C.      * * INX  130
C * *                                                                   INX  140
C * * KEY IS SET TO 1 IN SUBROUTINE GAMFOG                          * * INX  150
C * *                                                                   INX  160
C * * KEY IS SET TO 0 IN SUBROUTINE GAMFOG    FOR CIRRUS            * * INX  170
C * *                                                                   INX  180
C * * REAL IS THE REAL PART OF THE REFRACTIVE INDEX.                * * INX  190
C * *                                                                   INX  200
C * * AIMAG IS THE IMAGINARY PART OF THE REFRACTIVE INDEX IT IS     * * INX  210
C * *                                                                   INX  220
C * * RETURNED NEG. I.E.  M= REAL - I*AIMAG  .                      * * INX  230
C * *                                                                   INX  240
C * * A SERIES OF CHECKS ARE MADE AND WARNINGS GIVEN.               * * INX  250
C * *                                                                   INX  260
C * * RAY APPLIED OPTICS VOL 11,NO.8,AUG 72, PG. 1836-1844          * * INX  270
C * *                                                                   INX  280
C * * CORRECTIONS HAVE BEEN MADE TO RAYS ORIGINAL PAPER             * * INX  290
C * *                                                                   INX  300
C * *                                                                   INX  310
C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * INX  320
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                INX  330
      R1=0.0                                                            INX  340
      R2=0.0                                                            INX  350
      IF(WAVL.LT..0001) WRITE(6,1)                                      INX  360
      IF(TC.LT.-20.) WRITE(6,2)                                         INX  370
    1 FORMAT(///,30X,'ATTEMPTING TO EVALUATE FOR A WAVELENGTH LESS THAN INX  380
     1ONE MICRON',//)                                                   INX  390
    2 FORMAT(///,30X,'ATTEMPTING TO EVALUATE FOR A TEMPERATURE LESS THANINX  400
     2 -20. DEGREES CENTIGRADE',//)                                     INX  410
      CALL DEBYE(WAVL,TC,KEY,REIL,AIMAG)                                INX  420
C * *  TABLE 3 WATER PG. 1840                                           INX  430
    4 IF(WAVL.GT..034) GO TO 5                                          INX  440
      GO TO 7                                                           INX  450
    5 IF(WAVL.GT..1) GO TO 11                                           INX  460
    6  R2 =DOP(WAVL,1.83899,1639.,52340.4,10399.2,588.24,345005.,       INX  470
     3259913.,161.29,43319.7,27661.2)                                   INX  480
      R2=R2+R2*(TC-25.)*.0001*EXP((.000025*WAVL)**.25)                  INX  490
      REIL=REIL*(WAVL-.034)/.066+R2*(.1-WAVL)/.066                      INX  500
      GO TO 11                                                          INX  510
    7 IF(WAVL.GT..0006) GO TO 8                                         INX  520
      GO TO 10                                                          INX  530
    8 REIL=DOP(WAVL,1.83899,1639.,52340.4,10399.2,588.24,345005.,       INX  540
     4259913.,161.29,43319.7,27661.2)                                   INX  550
      REIL=REIL+REIL*(TC-25.)*.0001*EXP((.000025*WAVL)**.25)            INX  560
      IF(WAVL.GT..0007) GO TO 11                                        INX  570
    9 R1=DOP(WAVL,1.79907,3352.27,99.914E+04,15.1963E+04,1639.,50483.5, INX  580
     59246.27,588.24,84.4697E+04,10.7615E+05)                           INX  590
      R1=R1+R1*(TC-25.)*.0001*EXP((.000025*WAVL)**.25)                  INX  600
      REIL=R1*(.0007-WAVL)/.0001+REIL*(WAVL-.0006)/.0001                INX  610
      GO TO 11                                                          INX  620
   10 REIL=DOP(WAVL,1.79907,3352.27,99.914E+04,15.1963E+04,1639.,       INX  630
     650483.5,9246.27,588.24,84.4697E+04,10.7615E+05)                   INX  640
      REIL=REIL+REIL*(TC-25.)*.0001*EXP((.000025*WAVL)**.25)            INX  650
C * *  TABLE 2 WATER PG. 1840                                           INX  660
   11 IF(WAVL.GE..3) GO TO 57                                           INX  670
      IF(WAVL.GE..03) GO TO 12                                          INX  680
      GO TO 13                                                          INX  690
   12 AIMAG=AIMAG+AB(WAVL,.25,300.,.47,3.)+AB(WAVL,.39,17.,.45,1.3)+    INX  700
     7AB(WAVL,.41,62.,.35,1.7)                                          INX  710
      GO TO 57                                                          INX  720
   13 IF(WAVL.GE..0062) GO TO 14                                        INX  730
      GO TO 15                                                          INX  740
   14 AIMAG=AIMAG+AB(WAVL,.41,62.,.35,1.7)+AB(WAVL,.39,17.,.45,1.3)+    INX  750
     8AB(WAVL,.25,300.,.4,2.)                                           INX  760
      GO TO 57                                                          INX  770
   15 IF(WAVL.GE..0017) GO TO 16                                        INX  780
      GO TO 17                                                          INX  790
   16 AIMAG=AIMAG+AB(WAVL,.39,17.,.45,1.3)+AB(WAVL,.41,62.,.22,1.8)+    INX  800
     9AB(WAVL,.25,300.,.4,2.)                                           INX  810
      GO TO 57                                                          INX  820
   17 IF(WAVL.GE..00061) GO TO 18                                       INX  830
      GO TO 19                                                          INX  840
   18 AIMAG=AIMAG+AB(WAVL,.12,6.1,.042,.6)+AB(WAVL,.39,17.,.165,2.4)+   INX  850
     1AB(WAVL,.41,62.,.22,1.8)                                          INX  860
      GO TO 57                                                          INX  870
   19 IF(WAVL.GE..000495) GO TO 20                                      INX  880
      GO TO 21                                                          INX  890
   20 AIMAG=AIMAG+AB(WAVL,.01,4.95,.05,1.)+AB(WAVL,.12,6.1,.009,2.)     INX  900
      GO TO 57                                                          INX  910
   21 IF(WAVL.GE..000297) GO TO 22                                      INX  920
      GO TO 23                                                          INX  930
   22 AIMAG=AIMAG+AB(WAVL,.27,2.97,.04,2.)+AB(WAVL,.01,4.95,.06,1.)     INX  940
      GO TO 57                                                          INX  950
   23 AIMAG=AIMAG+AB(WAVL,.27,2.97,.025,2.)+AB(WAVL,.01,4.95,.06,1.)    INX  960
   57 CONTINUE                                                          INX  970
      RETURN                                                            INX  980
      END                                                               INX  990
      SUBROUTINE INTERP(INTYPE,X,X1,X2,F,F1,F2)                         INT  100
C     SUBROUTINE INTERP INTERPOLATES TO DETERMINE THE VALUE OF F        INT  110
C     AT X, GIVEN F1 AT X1 AND F2 AT X2.                                INT  120
C     INTYPE=1 FOR LINEAR INTERPOLATION                                 INT  130
C     INTYPE=2 FOR LOGARITHMIC INTERPOLATION                            INT  140
      ITYPE=INTYPE                                                      INT  150
      IF(F1.LE.0.0.OR.F2.LE.0.0) ITYPE=1                                INT  160
      IF(ITYPE.EQ.2) GO TO 100                                          INT  170
C     LINEAR INTERPOLATION                                              INT  180
      F=F1+(X-X1)*(F2-F1)/(X2-X1)                                       INT  190
      RETURN                                                            INT  200
100   CONTINUE                                                          INT  210
      A1=ALOG(F1)                                                       INT  220
      A2=ALOG(F2)                                                       INT  230
      A=A1+(X-X1)*(A2-A1)/(X2-X1)                                       INT  240
      F=EXP(A)                                                          INT  250
      RETURN                                                            INT  260
      END                                                               INT  270
      FUNCTION   JOU(CHAR)                                              FJO  100
      COMMON /IFIL/ IRD,IPR,IPU,NOPR,NFHDRF                             FJO  110
C                                                                       FJO  120
      CHARACTER*1 CHAR,HOLVEC(22)                                       FJO  130
      DIMENSION INDX1(22)                                               FJO  140
      DATA  HOLVEC                                                      FJO  150
     X /'1','2','3','4','5','6','0','0','0','0',' ','A',                FJO  160
     X  'B','C','D','E','F','G','H','I','J','K'/                        FJO  170
      DATA  INDX1                                                       FJO  180
     X /  1,  2,  3,  4,  5,  6,  0,  0,  0,  0, 10, 10,                FJO  190
     X   11, 12, 13, 14, 15, 16, 17, 18, 19, 20/                        FJO  200
C                                                                       FJO  210
       INDX=0                                                           FJO  220
      DO 100 I=1,22                                                     FJO  230
       IF (HOLVEC(I) .NE. CHAR) GO TO 100                               FJO  240
       INDX=INDX1(I)                                                    FJO  250
       GO TO 110                                                        FJO  260
100   CONTINUE                                                          FJO  270
110   IF (INDX .EQ. 0) THEN                                             FJO  280
        WRITE(IPR,910) CHAR                                             FJO  290
910     FORMAT('0 INVALID PARAMETER :',2X,A1)                           FJO  300
        STOP ' JOU: BAD PARAM '                                         FJO  310
      END IF                                                            FJO  320
920   FORMAT(5X,A1,I5)                                                  FJO  330
      JOU=INDX                                                          FJO  340
                    RETURN                                              FJO  350
      END                                                               FJO  360
      SUBROUTINE LAYCLD(K,CLDATZ,RRATZ,ICLD1,GNDALT,RAINRT)             LAY  100
C                                                                       LAY  110
C      THIS SUBROUTINE RESTRUCTURES THE ATMOSPHERIC PROFILE             LAY  120
C      TO PROFIDE FINER LAYERING WITHIN THE FIRST 6 KM.                 LAY  130
C                                                                       LAY  140
C     ZMDL COMMON /MODEL/ FINAL ALTITUDE FOR LOWTRAN                    LAY  150
C     ZK  EFFECTIVE CLOUD ALTITUDES                                     LAY  160
C     ZCLD CLOUD ALTITUDE ARRAY                                         LAY  170
C     ZDIF  ALT DIFF OF 2 LAYERS                                        LAY  180
C     ZDA COMMON /MDATA/ CLD AND RAIN INFO IN THIS COMMON               LAY  190
C                                                                       LAY  200
       COMMON /MDATA/  Z(50),P(50),T(50),WH(50),WCO2(50),WO(50),        LAY  210
     X WN2O(50),WCO(50),WCH4(50),WO2(50),                               LAY  220
     X CLD(50,7),RR(50,7)                                               LAY  230
      COMMON /MDATA1/ WNO(50),WSO2(50),WNO2(50),WNH3(50),WAIR(50)       LAY  240
      COMMON/MODEL/ ZMDL(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),     LAY  250
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         LAY  260
      DIMENSION ZCLD(16)                                                LAY  270
      DATA ZCLD/ 0.0,0.16,0.33,0.66,1.0,1.5,2.0,2.4,2.7,                LAY  280
     1 3.0,3.5,4.0,4.5,5.0,5.5,6.0/                                     LAY  290
      DATA CLDTP/6.0001/                                                LAY  300
      DATA DELZ /0.02/                                                  LAY  310
      ICLD=ICLD1                                                        LAY  320
      IF(ICLD .EQ. 0) RETURN                                            LAY  330
      IF(ICLD .GT. 11)RETURN                                            LAY  340
      ZK=ZMDL(K)-GNDALT                                                 LAY  350
      IF(ZK.LT.0.) ZK=0.                                                LAY  360
      IF(ZMDL(K).GT.6.) ZK=ZMDL(K)                                      LAY  370
      IF(ICLD.GT.5 )  GO TO 15                                          LAY  380
CCC                                                                     LAY  390
CCC    ICLD  IS  1- 5 ONE OF 5 SPECIFIC CLOUD MODELS IS CHOSEN          LAY  400
CCC                                                                     LAY  410
      MC=ICLD                                                           LAY  420
      MR=6                                                              LAY  430
      GO TO 25                                                          LAY  440
15    CONTINUE                                                          LAY  450
CCC                                                                     LAY  460
CCC   ICLD  IS  6-10 ONE OF 5 SPECIFIC CLOUD/RAIN MODELS CHOSEN         LAY  470
CCC                                                                     LAY  480
      IF(ICLD .EQ. 6) MC=3                                              LAY  490
      IF(ICLD .EQ. 7 .OR. ICLD .EQ. 8) MC=5                             LAY  500
      IF(ICLD .GT. 8) MC=1                                              LAY  510
      MR=ICLD-5                                                         LAY  520
25    IF(  ZK.GT.CLDTP) GO TO 30                                        LAY  530
      CLDATZ=0.                                                         LAY  540
      RRATZ=0.                                                          LAY  550
      IF(ZK.LE.10.)RRATZ=RAINRT                                         LAY  560
      IF(MC.LT.1) GO TO 29                                              LAY  570
      DO 26 MK=1,15                                                     LAY  580
      IF(  ZK.GE.ZCLD(MK+1)) GO TO 26                                   LAY  590
      IF(  ZK.LT.ZCLD(MK)) GO TO 26                                     LAY  600
      IF(ABS(  ZK-ZCLD(MK)).LT.DELZ) GO TO 27                           LAY  610
      GO TO 28                                                          LAY  620
27     CLDATZ=CLD(MK,MC)                                                LAY  630
       RRATZ=RR(MK,MR)                                                  LAY  640
      GO TO 29                                                          LAY  650
28    ZDIF=ZCLD(MK+1)-ZCLD(MK)                                          LAY  660
      IF(ZDIF.LT.DELZ) GO TO 27                                         LAY  670
      FAC=(ZCLD(MK+1)-  ZK)/ZDIF                                        LAY  680
      CLDATZ=CLD(MK+1,MC)+FAC*(CLD(MK,MC)-CLD(MK+1,MC))                 LAY  690
      RRATZ=RR(MK+1,MR)+FAC*(RR(MK,MR)-RR(MK+1,MR))                     LAY  700
      GO TO 29                                                          LAY  710
26    CONTINUE                                                          LAY  720
29    CLDAMT(K)=CLDATZ                                                  LAY  730
      CLD(K,7)=CLDATZ                                                   LAY  740
      RR(K,7)=RRATZ                                                     LAY  750
      RRAMT(K)=RRATZ                                                    LAY  760
      RETURN                                                            LAY  770
30    CONTINUE                                                          LAY  780
      CLDAMT(K)=0.0                                                     LAY  790
      RRAMT(K)=0.0                                                      LAY  800
      CLDATZ=0.0                                                        LAY  810
      RRATZ=0.0                                                         LAY  820
      RETURN                                                            LAY  830
C100  CONTINUE                                                          LAY  840
C     RETURN                                                            LAY  850
      END                                                               LAY  860
      SUBROUTINE LAYER(J,SINAI,COSAI,CPATH,SH,GAMMA,IAMT,S,BEND)        LYR  100
C*****************************************************************      LYR  110
C     THIS SUBROUTINE CALCULATES THE REFRACTED PATH FROM Z1 TO Z2       LYR  120
C     WITH THE SIN OF THE INITIAL INCIDENCE ANGLE SINAI                 LYR  130
C*****************************************************************      LYR  140
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              LYR  150
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     LYR  160
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               LYR  170
      COMMON /RFRPTH/ ZP(35),PP(35),TP(35),RFNDXP(35),SP(35),           LYR  180
     1    PPSUM(35),TPSUM(35),RHOPSM(35),DENP(63,35),AMTP(63,35)        LYR  190
      DIMENSION HDEN(63),DENA(63),DENB(63)                              LYR  200
      DATA EPSILN/1.0E-5/                                               LYR  210
C*****INITIALIZE LOOP                                                   LYR  220
      N = 0                                                             LYR  230
      Z1 = ZP(J)                                                        LYR  240
      Z2 = ZP(J+1)                                                      LYR  250
      H1 = Z1                                                           LYR  260
      R1 = RE+H1                                                        LYR  270
      DHMIN = DELTAS**2/(2.0*R1)                                        LYR  280
      SINAI1 = SINAI                                                    LYR  290
      COSAI1 = COSAI                                                    LYR  300
      Y1 = COSAI1**2/2.0+COSAI1**4/8.0+COSAI1**6*3.0/48.0               LYR  310
      Y3 = 0.0                                                          LYR  320
      X1 = -R1*COSAI1                                                   LYR  330
      RATIO1 = R1/RADREF(H1,SH,GAMMA)                                   LYR  340
      DSDX1 = 1.0/(1.0-RATIO1*SINAI1**2)                                LYR  350
      DBNDX1 = DSDX1*SINAI1*RATIO1/R1                                   LYR  360
      S = 0.0                                                           LYR  370
      BEND = 0.0                                                        LYR  380
      IF(IAMT.EQ.2) GO TO 110                                           LYR  390
C*****INITIALIZE THE VARIABLES FOR THE CALCULATION OF THE               LYR  400
C*****ABSORBER AMOUNTS                                                  LYR  410
      PA = PP(J)                                                        LYR  420
      PB = PP(J+1)                                                      LYR  430
      TA = TP(J)                                                        LYR  440
      TB = TP(J+1)                                                      LYR  450
      RHOA = PA/(GCAIR*TA)                                              LYR  460
      RHOB = PB/(GCAIR*TB)                                              LYR  470
      DZ = ZP(J+1)-ZP(J)                                                LYR  480
      HP = -DZ/ALOG(PB/PA)                                              LYR  490
      IF(ABS(RHOB/RHOA-1.0).LT.EPSILN)  GO TO 90                        LYR  500
      HRHO = -DZ/ALOG(RHOB/RHOA)                                        LYR  510
      GO TO 95                                                          LYR  520
   90 HRHO = 1.0E30                                                     LYR  530
   95 CONTINUE                                                          LYR  540
      DO 105 K=1,KMAX                                                   LYR  550
      DENA(K) = DENP(K,J)                                               LYR  560
      DENB(K) = DENP(K,J+1)                                             LYR  570
      IF(DENA(K).LE.0.0 .OR. DENB(K).LE.0.0)  GO TO 100                 LYR  580
      IF(ABS(1.0-DENA(K)/DENB(K)).LE.EPSILN)  GO TO 100                 LYR  590
C*****USE EXPONENTIAL INTERPOLATION                                     LYR  600
      HDEN(K) = -DZ/ALOG(DENB(K)/DENA(K))                               LYR  610
      GO TO 105                                                         LYR  620
C*****USE LINEAR INTERPOLATION                                          LYR  630
  100 HDEN(K) = 0.0                                                     LYR  640
  105 CONTINUE                                                          LYR  650
  110 CONTINUE                                                          LYR  660
C*****                                                                  LYR  670
C*****LOOP THROUGH PATH                                                 LYR  680
C*****INTEGRATE PATH QUANTITIES USING QUADRATIC INTEGRATION WITH        LYR  690
C*****UNEQUALLY SPACED POINTS                                           LYR  700
C*****                                                                  LYR  710
  115 CONTINUE                                                          LYR  720
      N = N+1                                                           LYR  730
      DH = -DELTAS*COSAI1                                               LYR  740
      IF(DH.LT.DHMIN) DH = DHMIN                                        LYR  750
      H3 = H1+DH                                                        LYR  760
      IF(H3.GT.Z2) H3 = Z2                                              LYR  770
      DH = H3-H1                                                        LYR  780
      R3 = RE+H3                                                        LYR  790
      H2 = H1+DH/2.0                                                    LYR  800
      R2 = RE+H2                                                        LYR  810
      SINAI2 = CPATH/(ANDEX(H2,SH,GAMMA)*R2)                            LYR  820
      SINAI3 = CPATH/(ANDEX(H3,SH,GAMMA)*R3)                            LYR  830
      RATIO2 = R2/RADREF(H2,SH,GAMMA)                                   LYR  840
      RATIO3 = R3/RADREF(H3,SH,GAMMA)                                   LYR  850
      IF((1.0-SINAI2).GT.EPSILN)  GO TO 116                             LYR  860
C*****NEAR A TANGENT HEIGHT, COSAI = -SQRT(1-SINAI**2) LOSES            LYR  870
C*****PRECISION. USE THE FOLLOWING ALGORITHM TO GET COSAI.              LYR  880
      Y3 = Y1+(SINAI1*(1.0-RATIO1)/R1+4.0*SINAI2*(1.0-RATIO2)/R2+       LYR  890
     1    SINAI3*(1.0-RATIO3)/R3)*DH/6.0                                LYR  900
      COSAI3 = -SQRT(2.0*Y3-Y3**2)                                      LYR  910
      X3 = -R3*COSAI3                                                   LYR  920
      DX = X3-X1                                                        LYR  930
      W1 = 0.5*DX                                                       LYR  940
      W2 = 0.0                                                          LYR  950
      W3 = 0.5*DX                                                       LYR  960
      GO TO 118                                                         LYR  970
C*****                                                                  LYR  980
  116 CONTINUE                                                          LYR  990
      COSAI2 = -SQRT(1.0-SINAI2**2)                                     LYR 1000
      COSAI3 = -SQRT(1.0-SINAI3**2)                                     LYR 1010
      X2 = -R2*COSAI2                                                   LYR 1020
      X3 = -R3*COSAI3                                                   LYR 1030
C*****CALCULATE WEIGHTS                                                 LYR 1040
      D31 = X3-X1                                                       LYR 1050
      D32 = X3-X2                                                       LYR 1060
      D21 = X2-X1                                                       LYR 1070
      IF(D32.EQ.0.0 .OR. D21.EQ.0.0) GO TO 117                          LYR 1080
      W1 = (2-D32/D21)*D31/6.0                                          LYR 1090
      W2 = D31**3/(D32*D21*6.0)                                         LYR 1100
      W3 = (2.0-D21/D32)*D31/6.0                                        LYR 1110
      GO TO 118                                                         LYR 1120
  117 CONTINUE                                                          LYR 1130
      W1 = 0.5*D31                                                      LYR 1140
      W2 = 0.0                                                          LYR 1150
      W3 = 0.5*D31                                                      LYR 1160
C*****                                                                  LYR 1170
  118 CONTINUE                                                          LYR 1180
      DSDX2 = 1.0/(1.0-RATIO2*SINAI2**2)                                LYR 1190
      DSDX3 = 1.0/(1.0-RATIO3*SINAI3**2)                                LYR 1200
      DBNDX2 = DSDX2*SINAI2*RATIO2/R2                                   LYR 1210
      DBNDX3 = DSDX3*SINAI3*RATIO3/R3                                   LYR 1220
C*****INTEGRATE                                                         LYR 1230
      DS = W1*DSDX1+W2*DSDX2+W3*DSDX3                                   LYR 1240
      S = S+DS                                                          LYR 1250
      DBEND = W1*DBNDX1+W2*DBNDX2+W3*DBNDX3                             LYR 1260
      BEND = BEND+DBEND                                                 LYR 1270
      IF(IAMT.EQ.2)  GO TO 150                                          LYR 1280
C*****CALCULATE AMOUNTS                                                 LYR 1290
      DSDZ = DS/DH                                                      LYR 1300
      DHHP = DH/HP                                                      LYR 1310
      IF(DHHP .LE. BIGEXP) THEN                                         LYR 1320
           PB = PA*EXP(-DHHP )                                          LYR 1330
      ELSE                                                              LYR 1340
           PB = 0.                                                      LYR 1350
      ENDIF                                                             LYR 1360
      DHRH = DH/HRHO                                                    LYR 1370
      IF(DHRH .LE. BIGEXP) THEN                                         LYR 1380
           RHOB = RHOA*EXP(-DHRH   )                                    LYR 1390
      ELSE                                                              LYR 1400
           RHOB = 0.                                                    LYR 1410
      ENDIF                                                             LYR 1420
      IF((DH/HRHO).LT.EPSILN)  GO TO 120                                LYR 1430
      PPSUM(J) = PPSUM(J)+DSDZ*(HP/(1.0+HP/HRHO))*(PA*RHOA-PB*RHOB)     LYR 1440
      TPSUM(J) = TPSUM(J)+DSDZ*HP*(PA-PB)/GCAIR                         LYR 1450
      RHOPSM(J) = RHOPSM(J)+DSDZ*HRHO*(RHOA-RHOB)                       LYR 1460
      GO TO 125                                                         LYR 1470
  120 CONTINUE                                                          LYR 1480
      PPSUM(J) = PPSUM(J)+0.5*DS*(PA*RHOA+PB*RHOB)                      LYR 1490
      TPSUM(J) = TPSUM(J)+0.5*DS*(PA+PB)/GCAIR                          LYR 1500
      RHOPSM(J) = RHOPSM(J)+0.5*DS*(RHOA+RHOB)                          LYR 1510
  125 CONTINUE                                                          LYR 1520
      DO 140 K=1,KMAX                                                   LYR 1530
      IF(ABS(HDEN(K)).EQ.0.0)GO TO 130                                  LYR 1540
      IF((DH/HDEN(K)).LT.EPSILN) GO TO 130                              LYR 1550
C*****EXPONENTIAL INTERPOLATION                                         LYR 1560
      H3Z1 =  (H3-Z1)/HDEN(K)                                           LYR 1570
      IF(H3Z1 .LE.BIGEXP) THEN                                          LYR 1580
           DENB(K) = DENP(K,J)*EXP(- H3Z1 )                             LYR 1590
      ELSE                                                              LYR 1600
           DENB(K) = 0.                                                 LYR 1610
      ENDIF                                                             LYR 1620
      AMTP(K,J) = AMTP(K,J)+DSDZ*HDEN(K)*(DENA(K)-DENB(K))              LYR 1630
      GO TO 140                                                         LYR 1640
  130 CONTINUE                                                          LYR 1650
C*****LINEAR INTERPOLATION                                              LYR 1660
      DENB(K) = DENP(K,J)+(DENP(K,J+1)-DENP(K,J))*(H3-Z1)/DZ            LYR 1670
      AMTP(K,J) = AMTP(K,J)+0.5*(DENA(K)+DENB(K))*DS                    LYR 1680
  140 CONTINUE                                                          LYR 1690
      PA = PB                                                           LYR 1700
      RHOA = RHOB                                                       LYR 1710
      DO 145 K=1,KMAX                                                   LYR 1720
  145 DENA(K) = DENB(K)                                                 LYR 1730
  150 CONTINUE                                                          LYR 1740
      IF(H3.GE.Z2) GO TO 160                                            LYR 1750
      H1 = H3                                                           LYR 1760
      R1 = R3                                                           LYR 1770
      SINAI1 = SINAI3                                                   LYR 1780
      RATIO1 = RATIO3                                                   LYR 1790
      Y1=Y3                                                             LYR 1800
      COSAI1 = COSAI3                                                   LYR 1810
      X1 = X3                                                           LYR 1820
      DSDX1 = DSDX3                                                     LYR 1830
      DBNDX1 = DBNDX3                                                   LYR 1840
      GO TO 115                                                         LYR 1850
  160 CONTINUE                                                          LYR 1860
      SINAI = SINAI3                                                    LYR 1870
      COSAI = COSAI3                                                    LYR 1880
      SP(J) = S                                                         LYR 1890
      RETURN                                                            LYR 1900
      END                                                               LYR 1910
      SUBROUTINE LAYVSA(K,RH,AHAZE,IHA1,ZNEW)                           LVS  100
C                                                                       LVS  110
C     RETURNS HAZE FOR VSA OPTION                                       LVS  120
C                                                                       LVS  130
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               LVS  140
      COMMON/MODEL/    Z(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),     LVS  150
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         LVS  160
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  LVS  170
     1  ,MODTRN                                                         LVS 170A
      LOGICAL MODTRN                                                    LVS 170B
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   LVS  180
     1    RAINRT                                                        LVS  190
       COMMON /MDATA/ ZZ(50),P(50),T(50),WH(50),WCO2(50),WO(50),        LVS  200
     X WN2O(50),WCO(50),WCH4(50),WO2(50),                               LVS  210
     X CLD(50,7),RR(50,7)                                               LVS  220
      COMMON /MDATA1/ WNO(50),WSO2(50),WNO2(50),WNH3(50),WAIR(50)       LVS  230
      COMMON /ZVSALY/ ZVSA(10),RHVSA(10),AHVSA(10),IHVSA(10)            LVS  240
      COMMON /IFIL/IRD,IPR,IPU,NPR,IPR1                                 LVS  250
C                                                                       LVS  260
      DIMENSION ZNEW(64)                                                LVS  270
      RH=0.                                                             LVS  280
      AHAZE=0                                                           LVS  290
      IHA1=0                                                            LVS  300
C     HMXVSA=ZVSA(9)                                                    LVS  310
      IF(MODEL.EQ.0.OR.MODEL.EQ.7) RETURN                               LVS  320
      IF(K.GT.9) RETURN                                                 LVS  330
      Z(K)=ZVSA(K)                                                      LVS  340
      RH=RHVSA(K)                                                       LVS  350
      AHAZE=AHVSA(K)                                                    LVS  360
      IHA1=IHVSA(K)                                                     LVS  370
      RETURN                                                            LVS  380
      END                                                               LVS  390
      SUBROUTINE MAPMS(ML,IKMAX,ZM,AHT,IMAP)                            MAP  100
C                                                                       MAP  110
C     ZM MODEL ALTITUDES                                                MAP  120
C     AHT LINE OF SIGHT ALTITUDES                                       MAP  130
C                                                                       MAP  140
C     MULTISCATERING SET UP LOOKING UP                                  MAP  150
C     GROUND TO SPACE AT 0 DEG                                          MAP  160
C                                                                       MAP  170
      DIMENSION ZM(*),AHT(*),IMAP(*)                                    MAP  180
      DO 20 J=1,IKMAX                                                   MAP  190
      DO 10 I=1,ML                                                      MAP  200
      IF(ZM(I).GT.AHT(J)) GO TO 20                                      MAP  210
      IMAP(J)=I                                                         MAP  220
10    CONTINUE                                                          MAP  230
20    CONTINUE                                                          MAP  240
      RETURN                                                            MAP  250
      END                                                               MAP  260
      BLOCK DATA MARDTA                                                 MDA  100
C>    BLOCK DATA                                                        MDA  110
C                                                                       MDA  120
C     MARINE AEROSOL EXTINCTION AND ABSORPTION DATA                     MDA  130
C            CODED BY STU GATHMAN                  -  NRL               MDA  140
C                                                                       MDA  150
      COMMON/A/T1QEXT(40,4),T2QEXT(40,4),T3QEXT(40,4),                  MDA  160
     1T1QABS(40,4),T2QABS(40,4),T3QABS(40,4),ALAM(40),AREL(4)           MDA  170
      DIMENSION A1(40),A2(40),A3(40),A4(40)                             MDA  180
      DIMENSION B1(40),B2(40),B3(40),B4(40)                             MDA  190
      DIMENSION C1(40),C2(40),C3(40),C4(40)                             MDA  200
      DIMENSION D1(40),D2(40),D3(40),D4(40)                             MDA  210
      DIMENSION E1(40),E2(40),E3(40),E4(40)                             MDA  220
      DIMENSION F1(40),F2(40),F3(40),F4(40)                             MDA  230
      EQUIVALENCE (A1(1), T1QEXT(1,1)), (A2(1), T1QEXT(1,2)),           MDA  240
     +            (A3(1), T1QEXT(1,3)), (A4(1), T1QEXT(1,4))            MDA  250
      EQUIVALENCE (B1(1), T2QEXT(1,1)), (B2(1), T2QEXT(1,2)),           MDA  260
     +            (B3(1), T2QEXT(1,3)), (B4(1), T2QEXT(1,4))            MDA  270
      EQUIVALENCE (C1(1), T3QEXT(1,1)), (C2(1), T3QEXT(1,2)),           MDA  280
     +            (C3(1), T3QEXT(1,3)), (C4(1), T3QEXT(1,4))            MDA  290
      EQUIVALENCE (D1(1), T1QABS(1,1)), (D2(1), T1QABS(1,2)),           MDA  300
     +            (D3(1), T1QABS(1,3)), (D4(1), T1QABS(1,4))            MDA  310
      EQUIVALENCE (E1(1), T2QABS(1,1)), (E2(1), T2QABS(1,2)),           MDA  320
     +            (E3(1), T2QABS(1,3)), (E4(1), T2QABS(1,4))            MDA  330
      EQUIVALENCE (F1(1), T3QABS(1,1)), (F2(1), T3QABS(1,2)),           MDA  340
     +            (F3(1), T3QABS(1,3)), (F4(1), T3QABS(1,4))            MDA  350
      DATA AREL/50.,85.,95.,98./                                        MDA  360
      DATA ALAM/                                                        MDA  370
     * 0.2000,   0.3000,   0.3371,   0.5500,   0.6943,   1.0600,        MDA  380
     * 1.5360,   2.0000,   2.2500,   2.5000,   2.7000,   3.0000,        MDA  390
     * 3.3923,   3.7500,   4.5000,   5.0000,   5.5000,   6.0000,        MDA  400
     * 6.2000,   6.5000,   7.2000,   7.9000,   8.2000,   8.7000,        MDA  410
     * 9.0000,   9.2000,  10.0000,  10.5910,  11.0000,  11.5000,        MDA  420
     *12.5000,  14.8000,  15.0000,  16.4000,  17.2000,  18.5000,        MDA  430
     *21.3000,  25.0000,  30.0000,  40.0000/                            MDA  440
      DATA A1/                                                          MDA  450
     *-3.2949,  -3.4662,  -3.5275,  -3.8505,  -4.0388,  -4.4410,        MDA  460
     *-4.8584,  -5.1720,  -5.3272,  -5.4342,  -5.2765,  -4.5101,        MDA  470
     *-5.3730,  -5.7468,  -5.7579,  -5.8333,  -5.8552,  -5.1780,        MDA  480
     *-5.2910,  -5.5959,  -5.6295,  -5.6748,  -5.6051,  -5.5363,        MDA  490
     *-5.5330,  -5.5136,  -5.6568,  -5.6040,  -5.5221,  -5.3902,        MDA  500
     *-5.1724,  -5.0903,  -5.0901,  -5.1285,  -5.1444,  -5.1963,        MDA  510
     *-5.3101,  -5.3994,  -5.4873,  -5.4779/                            MDA  520
      DATA A2/                                                          MDA  530
     *-2.8302,  -2.9446,  -2.9904,  -3.2510,  -3.4104,  -3.7635,        MDA  540
     *-4.1452,  -4.4466,  -4.6160,  -4.7772,  -4.7030,  -3.8461,        MDA  550
     *-4.6466,  -5.0105,  -5.0747,  -5.1810,  -5.2705,  -4.5537,        MDA  560
     *-4.6594,  -4.9872,  -5.0872,  -5.1229,  -5.0985,  -5.0623,        MDA  570
     *-5.0544,  -5.0407,  -5.0793,  -4.9796,  -4.8748,  -4.7298,        MDA  580
     *-4.5063,  -4.4260,  -4.4280,  -4.4650,  -4.4912,  -4.5474,        MDA  590
     *-4.6672,  -4.7711,  -4.8814,  -4.9073/                            MDA  600
      DATA A3/                                                          MDA  610
     *-2.3712,  -2.4231,  -2.4512,  -2.6377,  -2.7631,  -3.0569,        MDA  620
     *-3.3918,  -3.6682,  -3.8305,  -4.0111,  -4.0467,  -3.2055,        MDA  630
     *-3.8717,  -4.1908,  -4.3282,  -4.4495,  -4.5780,  -3.9249,        MDA  640
     *-4.0136,  -4.3349,  -4.4674,  -4.5088,  -4.5083,  -4.4973,        MDA  650
     *-4.4923,  -4.4845,  -4.4753,  -4.3617,  -4.2509,  -4.1029,        MDA  660
     *-3.8779,  -3.7963,  -3.7989,  -3.8345,  -3.8639,  -3.9215,        MDA  670
     *-4.0438,  -4.1532,  -4.2719,  -4.3120/                            MDA  680
      DATA A4/                                                          MDA  690
     *-1.9911,  -1.9989,  -2.0126,  -2.1342,  -2.2283,  -2.4663,        MDA  700
     *-2.7552,  -3.0036,  -3.1528,  -3.3328,  -3.4468,  -2.6649,        MDA  710
     *-3.1986,  -3.4769,  -3.6571,  -3.7821,  -3.9284,  -3.3776,        MDA  720
     *-3.4435,  -3.7436,  -3.8910,  -3.9455,  -3.9573,  -3.9633,        MDA  730
     *-3.9639,  -3.9610,  -3.9427,  -3.8304,  -3.7203,  -3.5733,        MDA  740
     *-3.3489,  -3.2650,  -3.2675,  -3.3017,  -3.3317,  -3.3893,        MDA  750
     *-3.5126,  -3.6243,  -3.7467,  -3.7927/                            MDA  760
      DATA B1/                                                          MDA  770
     *-0.5781,  -0.5525,  -0.5484,  -0.5147,  -0.5094,  -0.5324,        MDA  780
     *-0.6138,  -0.7139,  -0.7776,  -0.8624,  -0.9838,  -0.7720,        MDA  790
     *-0.8542,  -0.9535,  -1.0873,  -1.1624,  -1.2647,  -1.2123,        MDA  800
     *-1.1811,  -1.2905,  -1.4126,  -1.4643,  -1.5227,  -1.4560,        MDA  810
     *-1.4177,  -1.4144,  -1.5746,  -1.6348,  -1.6431,  -1.6023,        MDA  820
     *-1.4648,  -1.3910,  -1.3898,  -1.4056,  -1.4196,  -1.4655,        MDA  830
     *-1.5795,  -1.6825,  -1.7924,  -1.8224/                            MDA  840
      DATA B2/                                                          MDA  850
     *-0.1809,  -0.1651,  -0.1566,  -0.1258,  -0.1113,  -0.1046,        MDA  860
     *-0.1468,  -0.2157,  -0.2679,  -0.3480,  -0.4988,  -0.2657,        MDA  870
     *-0.2991,  -0.3924,  -0.5266,  -0.5983,  -0.7037,  -0.6671,        MDA  880
     *-0.6074,  -0.7134,  -0.8352,  -0.9080,  -0.9577,  -0.9579,        MDA  890
     *-0.9542,  -0.9629,  -1.0867,  -1.1219,  -1.1032,  -1.0330,        MDA  900
     *-0.8663,  -0.7677,  -0.7667,  -0.7768,  -0.7919,  -0.8304,        MDA  910
     *-0.9354,  -1.0400,  -1.1640,  -1.2357/                            MDA  920
      DATA B3/                                                          MDA  930
     * 0.2483,   0.2574,   0.2626,   0.2887,   0.3055,   0.3312,        MDA  940
     * 0.3262,   0.2922,   0.2589,   0.1989,   0.0548,   0.2322,        MDA  950
     * 0.2487,   0.1816,   0.0685,   0.0090,  -0.0846,  -0.0876,        MDA  960
     *-0.0110,  -0.0936,  -0.2013,  -0.2799,  -0.3216,  -0.3575,        MDA  970
     *-0.3769,  -0.3944,  -0.5018,  -0.5379,  -0.5179,  -0.4473,        MDA  980
     *-0.2822,  -0.1730,  -0.1713,  -0.1737,  -0.1850,  -0.2141,        MDA  990
     *-0.3046,  -0.4002,  -0.5221,  -0.6163/                            MDA 1000
      DATA B4/                                                          MDA 1010
     * 0.6276,   0.6324,   0.6363,   0.6570,   0.6715,   0.7006,        MDA 1020
     * 0.7172,   0.7091,   0.6925,   0.6543,   0.5356,   0.6473,        MDA 1030
     * 0.6924,   0.6516,   0.5661,   0.5206,   0.4440,   0.4091,        MDA 1040
     * 0.4902,   0.4325,   0.3427,   0.2691,   0.2336,   0.1872,        MDA 1050
     * 0.1593,   0.1386,   0.0348,  -0.0131,  -0.0031,   0.0566,        MDA 1060
     * 0.2093,   0.3214,   0.3238,   0.3278,   0.3211,   0.3007,        MDA 1070
     * 0.2257,   0.1426,   0.0304,  -0.0739/                            MDA 1080
      DATA C1/                                                          MDA 1090
     * 2.1434,   2.1454,   2.1469,   2.1539,   2.1577,   2.1673,        MDA 1100
     * 2.1812,   2.1970,   2.2030,   2.2115,   2.2149,   2.1931,        MDA 1110
     * 2.2220,   2.2326,   2.2425,   2.2479,   2.2494,   2.2203,        MDA 1120
     * 2.2382,   2.2473,   2.2380,   2.2373,   2.2179,   2.2310,        MDA 1130
     * 2.2417,   2.2421,   2.2244,   2.1950,   2.1686,   2.1370,        MDA 1140
     * 2.1193,   2.1454,   2.1477,   2.1703,   2.1725,   2.1729,        MDA 1150
     * 2.1580,   2.1324,   2.0878,   2.0131/                            MDA 1160
      DATA C2/                                                          MDA 1170
     * 2.5480,   2.5512,   2.5511,   2.5562,   2.5601,   2.5669,        MDA 1180
     * 2.5792,   2.5874,   2.5950,   2.6022,   2.6081,   2.5875,        MDA 1190
     * 2.6093,   2.6184,   2.6319,   2.6391,   2.6439,   2.6138,        MDA 1200
     * 2.6319,   2.6437,   2.6442,   2.6421,   2.6336,   2.6336,        MDA 1210
     * 2.6353,   2.6325,   2.6075,   2.5680,   2.5340,   2.5025,        MDA 1220
     * 2.5122,   2.5652,   2.5681,   2.5869,   2.5925,   2.5986,        MDA 1230
     * 2.5947,   2.5835,   2.5566,   2.4949/                            MDA 1240
      DATA C3/                                                          MDA 1250
     * 2.9825,   2.9831,   2.9847,   2.9893,   2.9929,   2.9976,        MDA 1260
     * 3.0090,   3.0130,   3.0179,   3.0233,   3.0294,   3.0148,        MDA 1270
     * 3.0293,   3.0357,   3.0481,   3.0563,   3.0627,   3.0410,        MDA 1280
     * 3.0532,   3.0646,   3.0713,   3.0733,   3.0716,   3.0701,        MDA 1290
     * 3.0681,   3.0662,   3.0457,   3.0067,   2.9733,   2.9460,        MDA 1300
     * 2.9643,   3.0156,   3.0182,   3.0337,   3.0399,   3.0477,        MDA 1310
     * 3.0511,   3.0501,   3.0384,   2.9943/                            MDA 1320
      DATA C4/                                                          MDA 1330
     * 3.3635,   3.3621,   3.3652,   3.3699,   3.3729,   3.3768,        MDA 1340
     * 3.3868,   3.3888,   3.3916,   3.3952,   3.4000,   3.3911,        MDA 1350
     * 3.4013,   3.4056,   3.4152,   3.4218,   3.4280,   3.4148,        MDA 1360
     * 3.4222,   3.4312,   3.4393,   3.4442,   3.4452,   3.4463,        MDA 1370
     * 3.4455,   3.4452,   3.4329,   3.4016,   3.3719,   3.3468,        MDA 1380
     * 3.3617,   3.4046,   3.4068,   3.4198,   3.4255,   3.4334,        MDA 1390
     * 3.4402,   3.4447,   3.4428,   3.4144/                            MDA 1400
      DATA D1/                                                          MDA 1410
     *-7.7562,  -7.8498,  -7.8630,  -7.8493,  -7.7889,  -7.5044,        MDA 1420
     *-7.0058,  -6.3955,  -6.3210,  -6.0026,  -5.4176,  -4.5443,        MDA 1430
     *-5.6380,  -6.2635,  -5.9512,  -5.9860,  -5.9526,  -5.1907,        MDA 1440
     *-5.3115,  -5.6289,  -5.6502,  -5.6922,  -5.6157,  -5.5462,        MDA 1450
     *-5.5437,  -5.5234,  -5.6647,  -5.6087,  -5.5250,  -5.3918,        MDA 1460
     *-5.1733,  -5.0909,  -5.0907,  -5.1291,  -5.1450,  -5.1968,        MDA 1470
     *-5.3105,  -5.3997,  -5.4875,  -5.4779/                            MDA 1480
      DATA D2/                                                          MDA 1490
     *-7.5869,  -7.6977,  -7.7070,  -7.6883,  -7.6227,  -7.2788,        MDA 1500
     *-6.6637,  -5.9117,  -6.0351,  -5.6292,  -4.8814,  -3.8947,        MDA 1510
     *-5.0236,  -5.7607,  -5.3390,  -5.4052,  -5.4335,  -4.5711,        MDA 1520
     *-4.6910,  -5.0400,  -5.1263,  -5.1522,  -5.1200,  -5.0797,        MDA 1530
     *-5.0708,  -5.0554,  -5.0883,  -4.9842,  -4.8775,  -4.7313,        MDA 1540
     *-4.5074,  -4.4271,  -4.4290,  -4.4661,  -4.4923,  -4.5484,        MDA 1550
     *-4.6679,  -4.7716,  -4.8817,  -4.9075/                            MDA 1560
      DATA D3/                                                          MDA 1570
     *-7.3806,  -7.5324,  -7.5421,  -7.5190,  -7.4456,  -6.9683,        MDA 1580
     *-6.1934,  -5.3374,  -5.6261,  -5.1328,  -4.2936,  -3.2785,        MDA 1590
     *-4.3895,  -5.1770,  -4.7151,  -4.7944,  -4.8513,  -3.9542,        MDA 1600
     *-4.0698,  -4.4296,  -4.5444,  -4.5647,  -4.5533,  -4.5320,        MDA 1610
     *-4.5225,  -4.5111,  -4.4899,  -4.3685,  -4.2548,  -4.1053,        MDA 1620
     *-3.8800,  -3.7987,  -3.8013,  -3.8369,  -3.8663,  -3.9238,        MDA 1630
     *-4.0456,  -4.1545,  -4.2728,  -4.3123/                            MDA 1640
      DATA D4/                                                          MDA 1650
     *-7.1591,  -7.3911,  -7.3998,  -7.3737,  -7.2891,  -6.6133,        MDA 1660
     *-5.7137,  -4.8091,  -5.1828,  -4.6408,  -3.7712,  -2.7644,        MDA 1670
     *-3.8361,  -4.6426,  -4.1724,  -4.2573,  -4.3263,  -3.4249,        MDA 1680
     *-3.5341,  -3.8962,  -4.0222,  -4.0421,  -4.0386,  -4.0258,        MDA 1690
     *-4.0169,  -4.0077,  -3.9676,  -3.8419,  -3.7270,  -3.5776,        MDA 1700
     *-3.3529,  -3.2698,  -3.2724,  -3.3066,  -3.3365,  -3.3940,        MDA 1710
     *-3.5164,  -3.6272,  -3.7486,  -3.7935/                            MDA 1720
      DATA E1/                                                          MDA 1730
     *-4.1531,  -4.2017,  -4.0836,  -4.1441,  -4.0515,  -3.7234,        MDA 1740
     *-3.2022,  -2.5924,  -2.5215,  -2.2244,  -1.7099,  -1.0243,        MDA 1750
     *-1.8178,  -2.4304,  -2.1483,  -2.1897,  -2.1768,  -1.5025,        MDA 1760
     *-1.5770,  -1.8688,  -1.9132,  -1.9550,  -1.9023,  -1.8200,        MDA 1770
     *-1.8019,  -1.7822,  -1.9415,  -1.9082,  -1.8419,  -1.7290,        MDA 1780
     *-1.5359,  -1.4523,  -1.4511,  -1.4744,  -1.4875,  -1.5339,        MDA 1790
     *-1.6446,  -1.7377,  -1.8338,  -1.8404/                            MDA 1800
      DATA E2/                                                          MDA 1810
     *-4.0237,  -4.0786,  -4.0596,  -4.0117,  -3.9167,  -3.5334,        MDA 1820
     *-2.8890,  -2.1314,  -2.2533,  -1.8686,  -1.2114,  -0.5112,        MDA 1830
     *-1.2226,  -1.9313,  -1.5503,  -1.6190,  -1.6646,  -0.9328,        MDA 1840
     *-0.9892,  -1.2921,  -1.3909,  -1.4236,  -1.4060,  -1.3666,        MDA 1850
     *-1.3550,  -1.3429,  -1.3966,  -1.3198,  -1.2346,  -1.1147,        MDA 1860
     *-0.9248,  -0.8332,  -0.8328,  -0.8490,  -0.8658,  -0.9072,        MDA 1870
     *-1.0110,  -1.1088,  -1.2210,  -1.2642/                            MDA 1880
      DATA E3/                                                          MDA 1890
     *-3.8225,  -3.9189,  -3.8934,  -3.8788,  -3.7792,  -3.2584,        MDA 1900
     *-2.4500,  -1.5859,  -1.8664,  -1.3920,  -0.6602,  -0.0250,        MDA 1910
     *-0.6305,  -1.3614,  -0.9442,  -1.0200,  -1.0892,  -0.3681,        MDA 1920
     *-0.4088,  -0.6976,  -0.8140,  -0.8430,  -0.8410,  -0.8268,        MDA 1930
     *-0.8209,  -0.8142,  -0.8176,  -0.7305,  -0.6447,  -0.5305,        MDA 1940
     *-0.3534,  -0.2582,  -0.2574,  -0.2661,  -0.2802,  -0.3137,        MDA 1950
     *-0.4046,  -0.4954,  -0.6063,  -0.6635/                            MDA 1960
      DATA E4/                                                          MDA 1970
     *-3.6380,  -3.8218,  -3.8158,  -3.6544,  -3.6442,  -2.9366,        MDA 1980
     *-1.9981,  -1.0852,  -1.4468,  -0.9222,  -0.1746,   0.3789,        MDA 1990
     *-0.1326,  -0.8516,  -0.4270,  -0.5021,  -0.5774,   0.1072,        MDA 2000
     * 0.0779,  -0.1890,  -0.3060,  -0.3330,  -0.3362,  -0.3320,        MDA 2010
     *-0.3290,  -0.3248,  -0.3123,  -0.2275,  -0.1469,  -0.0421,        MDA 2020
     * 0.1192,   0.2136,   0.2149,   0.2122,   0.2019,   0.1760,        MDA 2030
     * 0.0989,   0.0190,  -0.0836,  -0.1437/                            MDA 2040
      DATA F1/                                                          MDA 2050
     *-0.5486,  -0.6082,  -0.5956,  -0.5356,  -0.4402,  -0.0871,        MDA 2060
     * 0.4527,   1.0366,   1.1096,   1.3655,   1.7101,   1.8903,        MDA 2070
     * 1.6543,   1.2291,   1.4722,   1.4553,   1.4742,   1.8427,        MDA 2080
     * 1.8260,   1.6925,   1.6714,   1.6561,   1.6818,   1.7408,        MDA 2090
     * 1.7604,   1.7735,   1.6870,   1.6975,   1.7266,   1.7732,        MDA 2100
     * 1.8476,   1.8953,   1.8977,   1.9100,   1.9121,   1.9074,        MDA 2110
     * 1.8820,   1.8553,   1.8167,   1.8034/                            MDA 2120
      DATA F2/                                                          MDA 2130
     *-0.4081,  -0.4784,  -0.4660,  -0.4117,  -0.3046,   0.0831,        MDA 2140
     * 0.7409,   1.4609,   1.3780,   1.7134,   2.1471,   2.2808,        MDA 2150
     * 2.1315,   1.6742,   1.9804,   1.9449,   1.9238,   2.2748,        MDA 2160
     * 2.2689,   2.1587,   2.1154,   2.1037,   2.1124,   2.1387,        MDA 2170
     * 2.1490,   2.1552,   2.1238,   2.1535,   2.1840,   2.2226,        MDA 2180
     * 2.2790,   2.3247,   2.3268,   2.3387,   2.3422,   2.3439,        MDA 2190
     * 2.3339,   2.3198,   2.2926,   2.2751/                            MDA 2200
      DATA F3/                                                          MDA 2210
     *-0.2242,  -0.3289,  -0.3406,  -0.2786,  -0.1532,   0.3414,        MDA 2220
     * 1.1618,   1.9783,   1.7412,   2.1629,   2.6182,   2.6999,        MDA 2230
     * 2.6101,   2.1844,   2.4931,   2.4589,   2.4253,   2.7204,        MDA 2240
     * 2.7182,   2.6391,   2.5975,   2.5896,   2.5918,   2.6017,        MDA 2250
     * 2.6055,   2.6086,   2.6049,   2.6334,   2.6574,   2.6843,        MDA 2260
     * 2.7225,   2.7601,   2.7620,   2.7734,   2.7780,   2.7832,        MDA 2270
     * 2.7839,   2.7809,   2.7677,   2.7571/                            MDA 2280
      DATA F4/                                                          MDA 2290
     *-0.0119,  -0.2110,  -0.2063,  -0.1444,  -0.0667,   0.6542,        MDA 2300
     * 1.5923,   2.4405,   2.1326,   2.5924,   3.0247,   3.0696,        MDA 2310
     * 3.0154,   2.6365,   2.9257,   2.8957,   2.8634,   3.1026,        MDA 2320
     * 3.1009,   3.0465,   3.0135,   3.0090,   3.0097,   3.0147,        MDA 2330
     * 3.0167,   3.0193,   3.0233,   3.0464,   3.0635,   3.0808,        MDA 2340
     * 3.1047,   3.1337,   3.1354,   3.1458,   3.1506,   3.1572,        MDA 2350
     * 3.1639,   3.1680,   3.1651,   3.1624/                            MDA 2360
      END                                                               MDA 2370
      SUBROUTINE MARINE(VIS,MODEL,WS,WH,ICSTL,BEXT,BABS,NL)             MAR  100
C                                                                       MAR  110
C        THIS SUBROUTINE DETERMINES AEROSOL EXT + ABS COEFFICIENTS      MAR  120
C          FOR THE NAVY MARITIME MODEL                                  MAR  130
C            CODED BY STU GATHMAN                  -  NRL               MAR  140
C                                                                       MAR  150
C        INPUTS-                                                        MAR  160
C        WSS = CURRENT WIND SPEED (M/S)                                 MAR  170
C        WHH = 24 HOUR AVERAGE WIND SPEED (M/S)                         MAR  180
C        RHH = RELATIVE HUMIDITY (PERCENTAGE)                           MAR  190
C        VIS = METEOROLOGICAL RANGE (KM)                                MAR  200
C        ICTL = AIR MASS CHARACTER  1 = OPEN OCEAN                      MAR  210
C                      10 = STRONG CONTINENTAL INFLUENCE                MAR  220
C        MODEL = MODEL ATMOSPHERE                                       MAR  230
C                                                                       MAR  240
C        OUTPUTS-                                                       MAR  250
C        BEXT = EXTINCTION COEFFICIENT (KM-1)                           MAR  260
C        BABS = ABSORPTION COEFFICIENT (KM-1)                           MAR  270
C                                                                       MAR  280
      COMMON /MART/ RHH                                                 MAR  290
      COMMON /IFIL/IRD,IPR,IPU,NPR,IPR1                                 MAR  300
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     MAR  310
      COMMON/A/T1QEXT(40,4),T2QEXT(40,4),T3QEXT(40,4),                  MAR  320
     1T1QABS(40,4),T2QABS(40,4),T3QABS(40,4),ALAM(40),AREL(4)           MAR  330
CC    COMMON/AER/A1, A2, A3        X(5)                                 MAR  340
      DIMENSION WSPD(8), BEXT(5,47), BABS(5,47)                         MAR  350
      DIMENSION RHD(8)                                                  MAR  360
      DATA WSPD/6.9, 4.1, 4.1, 10.29, 6.69, 12.35, 7.2, 6.9/            MAR  370
      DATA RHD/80., 75.63, 76.2, 77.13, 75.24, 80.53, 45.89, 80./       MAR  380
      PISC = PI/1000.0                                                  MAR  390
      WRITE(IPR,890)                                                    MAR  400
C                                                                       MAR  410
C     CHECK LIMITS OF MODEL VALIDITY                                    MAR  420
C                                                                       MAR  430
      RH = RHH                                                          MAR  440
      IF(RHH.GT.0.) GO TO 10                                            MAR  450
      RH=RHD(MODEL+1)                                                   MAR  460
10    IF(WS.GT.20.0) WS=20.                                             MAR  470
      IF(WH.GT.20.0) WH = 20.                                           MAR  480
      IF(RH.GT.98.0) RH = 98.                                           MAR  490
      IF(RH.LT.50.0.AND.RH.GE.0.0) RH = 50.                             MAR  500
      IF(ICSTL.LT.1.OR.ICSTL.GT.10) ICSTL = 3                           MAR  510
C                                                                       MAR  520
C     FIND SIZE DISTRIBUTION PARAMETERS FROM METEOROLOGY INPUT          MAR  530
C                                                                       MAR  540
      IF(WH.LE.0.) WRITE(IPR,920)                                       MAR  550
      IF(WH .LE. 0.0) WH = WSPD(MODEL + 1)                              MAR  560
      IF(WS.LE.0.) WRITE(IPR,930)                                       MAR  570
      IF(WS.LE.0.0)WS=WH                                                MAR  580
      WRITE(IPR,910)WS,WH,RH,ICSTL                                      MAR  590
C                                                                       MAR  600
C        F IS A RELATIVE HUMIDITY DEPENDENT GROWTH CORRECTION           MAR  610
C        TO THE ATTENUATION COEFFICIENT.                                MAR  620
C                                                                       MAR  630
      F=((2.-RH/100.)/(6.*(1.-RH/100.)))**0.33333                       MAR  640
      A1=2000.0*ICSTL*ICSTL                                             MAR  650
      A2 = AMAX1(5.866*(WH-2.2), 0.5)                                   MAR  660
CCC   A3 = AMAX1(0.01527*(WS-2.2), 1.14E-5)                             MAR  670
      A3 = 10**(0.06*WS-2.8)                                            MAR  680
C                                                                       MAR  690
C     FIND EXTINCTION AT 0.55 MICRONS AND NORMALIZE TO 1.               MAR  700
C                                                                       MAR  710
C     INTERPOLATE FOR RELATIVE HUMIDITY                                 MAR  720
C                                                                       MAR  730
      DO 40   J=2,4                                                     MAR  740
      IF(RH.LE.AREL(J)) GO TO 42                                        MAR  750
 40   CONTINUE                                                          MAR  760
 42   DELRH=AREL(J)-AREL(J-1)                                           MAR  770
      DELRHV=RH-AREL(J-1)                                               MAR  780
      RATIO=DELRHV/DELRH                                                MAR  790
      QE1=T1QEXT(4,J-1)+(T1QEXT(4,J)-T1QEXT(4,J-1))*RATIO               MAR  800
      QE2=T2QEXT(4,J-1)+(T2QEXT(4,J)-T2QEXT(4,J-1))*RATIO               MAR  810
      QE3=T3QEXT(4,J-1)+(T3QEXT(4,J)-T3QEXT(4,J-1))*RATIO               MAR  820
      TOTAL = A1*10.**QE1 + A2*10.**QE2 + A3*10.**QE3                   MAR  830
      EXT55=PISC*TOTAL/F                                                MAR  840
C                                                                       MAR  850
C     IF METEOROLOLICAL RANGE NOT SPECIFIED,FIND FROM METEOR DATA       MAR  860
C                                                                       MAR  870
      IF(VIS.LE.0.) VIS=3.912/(EXT55+0.01159)                           MAR  880
      C=(1./EXT55)*(PISC/F)                                             MAR  890
      A1=C*A1                                                           MAR  900
      A2=C*A2                                                           MAR  910
      A3=C*A3                                                           MAR  920
C                                                                       MAR  930
C     CALCULATE NORMALIZED ATTENUATION COEFICIENTS                      MAR  940
C                                                                       MAR  950
      DO 45   I=1,40                                                    MAR  960
      T1XV = T1QEXT(I,J-1) + (T1QEXT(I,J) - T1QEXT(I,J-1))*RATIO        MAR  970
      T2XV = T2QEXT(I,J-1) + (T2QEXT(I,J) - T2QEXT(I,J-1))*RATIO        MAR  980
      T3XV = T3QEXT(I,J-1) + (T3QEXT(I,J) - T3QEXT(I,J-1))*RATIO        MAR  990
      T1AV = T1QABS(I,J-1) + (T1QABS(I,J) - T1QABS(I,J-1))*RATIO        MAR 1000
      T2AV = T2QABS(I,J-1) + (T2QABS(I,J) - T2QABS(I,J-1))*RATIO        MAR 1010
      T3AV = T3QABS(I,J-1) + (T3QABS(I,J) - T3QABS(I,J-1))*RATIO        MAR 1020
      BEXT(NL,I)=A1*10**(T1XV)+A2*10**(T2XV)+A3*10**(T3XV)              MAR 1030
      BABS(NL,I)=A1*10**(T1AV)+A2*10**(T2AV)+A3*10**(T3AV)              MAR 1040
 45   CONTINUE                                                          MAR 1050
      WRITE(IPR,900) VIS                                                MAR 1060
      RETURN                                                            MAR 1070
890   FORMAT('0MARINE AEROSOL MODEL USED')                              MAR 1080
900   FORMAT('0',T10,'VIS = ',F10.2,' KM')                              MAR 1090
910   FORMAT(T10,'WIND SPEED = ',F8.2,' M/SEC',/,T10,                   MAR 1100
     1 'WIND SPEED (24 HR AVERAGE) = ',F8.2,' M/SEC',/,                 MAR 1110
     2 T10,'RELATIVE HUMIDITY = ',F8.2,' PERCENT',/,                    MAR 1120
     3 T10,'AIRMASS CHARACTER =' ,I3)                                   MAR 1130
920   FORMAT('0  WS NOT SPECIFIED, A DEFAULT VALUE IS USED')            MAR 1140
930   FORMAT('0  WH NOT SPECIFIED, A DEFAULT VALUE IS USED')            MAR 1150
      END                                                               MAR 1160
      BLOCK DATA MDTA                                                   MLT  100
C>    BLOCK DATA                                                        MLT  110
C                                                                       MLT  120
C     CLOUD AND RAIN   DATA                                             MLT  130
C                                                                       MLT  140
C      COMMON /MDATA/  Z(50),P(50),T(50),WH(50),WCO2(50),WO(50),        MLT  150
C    X WN2O(50),WCO(50),WCH4(50),WO2(50),                               MLT  160
C    X CLD(50,7),RR(50,7)                                               MLT  170
      COMMON /MDATA/  Z(50),P(50),T(50),WH(50),WCO2(50),WO(50),         MLT  180
     X WN2O(50),WCO(50),WCH4(50),WO2(50),                               MLT  190
     X CLD1(50),CLD2(50),CLD3(50),CLD4(50),CLD5(50),CLD6(50),CLD7(50)   MLT  200
     X ,RR1(50), RR2(50), RR3(50), RR4(50), RR5(50), RR6(50), RR7(50)   MLT  210
C                                                                       MLT  220
      DATA  Z/                                                          MLT  230
     C       0.0,       1.0,       2.0,       3.0,       4.0,           MLT  240
     C       5.0,       6.0,       7.0,       8.0,       9.0,           MLT  250
     C      10.0,      11.0,      12.0,      13.0,      14.0,           MLT  260
     C      15.0,      16.0,      17.0,      18.0,      19.0,           MLT  270
     C      20.0,      21.0,      22.0,      23.0,      24.0,           MLT  280
     C      25.0,      27.5,      30.0,      32.5,      35.0,           MLT  290
     C      37.5,      40.0,      42.5,      45.0,      47.5,           MLT  300
     C      50.0,      55.0,      60.0,      65.0,      70.0,           MLT  310
     C      75.0,      80.0,      85.0,      90.0,      95.0,           MLT  320
     C     100.0,     105.0,     110.0,     115.0,     120.0/           MLT  330
CCC   CLOUD MODELS 1-5                                                  MLT  340
      DATA CLD1/ 0.0,0.0,0.0,0.2,0.35,1.0,1.0,1.0,0.3,0.15,40*0.0/      MLT  350
      DATA CLD2/ 0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.3,0.4,0.3,40*0.0/        MLT  360
      DATA CLD3/ 0.0,0.0,0.15,0.30,0.15,45*0.0/                         MLT  370
      DATA CLD4/ 0.0,0.0,0.0,0.10,0.15,0.15,0.10,43*0.0/                MLT  380
      DATA CLD5/ 0.0,0.30,0.65,0.40,46*0.0/                             MLT  390
      DATA CLD6/ 50*0.0/                                                MLT  400
      DATA CLD7/ 50*0.0/                                                MLT  410
CCC   RAIN MODELS 1-5                                                   MLT  420
      DATA RR1/ 2.0,1.78,1.43,1.22,0.86,0.22,44*0.0/                    MLT  430
      DATA RR2/ 5.0,4.0,3.4,2.6,0.8,0.2,44*0.0/                         MLT  440
      DATA RR3/ 12.5,10.5,8.0,6.0,2.5,0.8,0.2,43*0.0/                   MLT  450
      DATA RR4/ 25.0,21.5,17.5,12.0,7.5,4.2,2.5,1.0,0.7,0.2,40*0.0/     MLT  460
      DATA RR5/ 75.0,70.0,65.0,60.0,45.0,20.0,12.5,7.0,3.5,             MLT  470
     + 1.0,0.2,39*0.0/                                                  MLT  480
      DATA RR6/ 50*0.0/                                                 MLT  490
      DATA RR7/ 50*0.0/                                                 MLT  500
C     DATA CO2       /                                                  MLT  510
      END                                                               MLT  520
      BLOCK DATA MLATMB                                                 MLT  100
C>    BLOCK DATA                                                        MLT  105
C***********************************************************************MLT  110
C     THIS SUBROUTINE INITIALIZES THE 6 BUILT-IN ATMOSPHERIC PROFILES   MLT  120
C     (FROM 'OPTICAL PROPERTIES OF THE ATMOSPHERE, THIRD EDITION'       MLT  130
C     AFCRL-72-0497 (AD 753 075), 'U.S. STANDARD ATMOSPHERE 1976' AND   MLT  140
C     'SUPPLEMENTS 1966'), PLUS COLLECTED CONSTITUENT PROFILES (REF)    MLT  150
C     AND SETS OTHER CONSTANTS RELATED TO THE ATMOSPHERIC PROFILES      MLT  160
C***********************************************************************MLT  170
      COMMON /MLATM/  ALT(50),P1(50),P2(50),P3(50),P4(50),P5(50),P6(50),MLT  180
     +T1(50),T2(50),T3(50),T4(50),T5(50),T6(50),                        MLT  190
     +AMOL11(50),AMOL12(50),AMOL13(50),AMOL14(50),AMOL15(50),AMOL16(50),MLT  200
     +AMOL17(50),AMOL18(50),                                            MLT  210
     +AMOL21(50),AMOL22(50),AMOL23(50),AMOL24(50),AMOL25(50),AMOL26(50),MLT  220
     +AMOL27(50),AMOL28(50),                                            MLT  230
     +AMOL31(50),AMOL32(50),AMOL33(50),AMOL34(50),AMOL35(50),AMOL36(50),MLT  240
     +AMOL37(50),AMOL38(50),                                            MLT  250
     +AMOL41(50),AMOL42(50),AMOL43(50),AMOL44(50),AMOL45(50),AMOL46(50),MLT  260
     +AMOL47(50),AMOL48(50),                                            MLT  270
     +AMOL51(50),AMOL52(50),AMOL53(50),AMOL54(50),AMOL55(50),AMOL56(50),MLT  280
     +AMOL57(50),AMOL58(50),                                            MLT  290
     +AMOL61(50),AMOL62(50),AMOL63(50),AMOL64(50),AMOL65(50),AMOL66(50),MLT  300
     +AMOL67(50),AMOL68(50)                                             MLT  310
C     COMMON /TRAC/ TRAC(50,21)                                         MLT  320
      COMMON /TRAC/ ANO(50),SO2(50),ANO2(50),ANH3(50),HNO3(50),OH(50),  MLT  330
     X HF(50),HCL(50),HBR(50),HI(50),CLO(50),OCS(50),H2CO(50),          MLT  340
     X HOCL(50),AN2(50),HCN(50),CH3CL(50),H2O2(50),C2H2(50),            MLT  350
     X C2H6(50),PH3(50)                                                 MLT  360
C     DATA ALT (KM)  /                                                  MLT  370
      DATA ALT/                                                         MLT  380
     C       0.0,       1.0,       2.0,       3.0,       4.0,           MLT  390
     C       5.0,       6.0,       7.0,       8.0,       9.0,           MLT  400
     C      10.0,      11.0,      12.0,      13.0,      14.0,           MLT  410
     C      15.0,      16.0,      17.0,      18.0,      19.0,           MLT  420
     C      20.0,      21.0,      22.0,      23.0,      24.0,           MLT  430
     C      25.0,      27.5,      30.0,      32.5,      35.0,           MLT  440
     C      37.5,      40.0,      42.5,      45.0,      47.5,           MLT  450
     C      50.0,      55.0,      60.0,      65.0,      70.0,           MLT  460
     C      75.0,      80.0,      85.0,      90.0,      95.0,           MLT  470
     C     100.0,     105.0,     110.0,     115.0,     120.0/           MLT  480
C     DATA PRESSURE  /                                                  MLT  490
      DATA P1/                                                          MLT  500
     C 1.013E+03, 9.040E+02, 8.050E+02, 7.150E+02, 6.330E+02,           MLT  510
     C 5.590E+02, 4.920E+02, 4.320E+02, 3.780E+02, 3.290E+02,           MLT  520
     C 2.860E+02, 2.470E+02, 2.130E+02, 1.820E+02, 1.560E+02,           MLT  530
     C 1.320E+02, 1.110E+02, 9.370E+01, 7.890E+01, 6.660E+01,           MLT  540
     C 5.650E+01, 4.800E+01, 4.090E+01, 3.500E+01, 3.000E+01,           MLT  550
     C 2.570E+01, 1.763E+01, 1.220E+01, 8.520E+00, 6.000E+00,           MLT  560
     C 4.260E+00, 3.050E+00, 2.200E+00, 1.590E+00, 1.160E+00,           MLT  570
     C 8.540E-01, 4.560E-01, 2.390E-01, 1.210E-01, 5.800E-02,           MLT  580
     C 2.600E-02, 1.100E-02, 4.400E-03, 1.720E-03, 6.880E-04,           MLT  590
     C 2.890E-04, 1.300E-04, 6.470E-05, 3.600E-05, 2.250E-05/           MLT  600
      DATA P2/                                                          MLT  610
     C 1.013E+03, 9.020E+02, 8.020E+02, 7.100E+02, 6.280E+02,           MLT  620
     C 5.540E+02, 4.870E+02, 4.260E+02, 3.720E+02, 3.240E+02,           MLT  630
     C 2.810E+02, 2.430E+02, 2.090E+02, 1.790E+02, 1.530E+02,           MLT  640
     C 1.300E+02, 1.110E+02, 9.500E+01, 8.120E+01, 6.950E+01,           MLT  650
     C 5.950E+01, 5.100E+01, 4.370E+01, 3.760E+01, 3.220E+01,           MLT  660
     C 2.770E+01, 1.907E+01, 1.320E+01, 9.300E+00, 6.520E+00,           MLT  670
     C 4.640E+00, 3.330E+00, 2.410E+00, 1.760E+00, 1.290E+00,           MLT  680
     C 9.510E-01, 5.150E-01, 2.720E-01, 1.390E-01, 6.700E-02,           MLT  690
     C 3.000E-02, 1.200E-02, 4.480E-03, 1.640E-03, 6.250E-04,           MLT  700
     C 2.580E-04, 1.170E-04, 6.110E-05, 3.560E-05, 2.270E-05/           MLT  710
      DATA P3/                                                          MLT  720
     C 1.018E+03, 8.973E+02, 7.897E+02, 6.938E+02, 6.081E+02,           MLT  730
     C 5.313E+02, 4.627E+02, 4.016E+02, 3.473E+02, 2.993E+02,           MLT  740
     C 2.568E+02, 2.199E+02, 1.882E+02, 1.611E+02, 1.378E+02,           MLT  750
     C 1.178E+02, 1.007E+02, 8.610E+01, 7.360E+01, 6.280E+01,           MLT  760
     C 5.370E+01, 4.580E+01, 3.910E+01, 3.340E+01, 2.860E+01,           MLT  770
     C 2.440E+01, 1.646E+01, 1.110E+01, 7.560E+00, 5.180E+00,           MLT  780
     C 3.600E+00, 2.530E+00, 1.800E+00, 1.290E+00, 9.400E-01,           MLT  790
     C 6.830E-01, 3.620E-01, 1.880E-01, 9.500E-02, 4.700E-02,           MLT  800
     C 2.220E-02, 1.030E-02, 4.560E-03, 1.980E-03, 8.770E-04,           MLT  810
     C 4.074E-04, 2.000E-04, 1.057E-04, 5.980E-05, 3.600E-05/           MLT  820
      DATA P4/                                                          MLT  830
     C 1.010E+03, 8.960E+02, 7.929E+02, 7.000E+02, 6.160E+02,           MLT  840
     C 5.410E+02, 4.740E+02, 4.130E+02, 3.590E+02, 3.108E+02,           MLT  850
     C 2.677E+02, 2.300E+02, 1.977E+02, 1.700E+02, 1.460E+02,           MLT  860
     C 1.260E+02, 1.080E+02, 9.280E+01, 7.980E+01, 6.860E+01,           MLT  870
     C 5.900E+01, 5.070E+01, 4.360E+01, 3.750E+01, 3.228E+01,           MLT  880
     C 2.780E+01, 1.923E+01, 1.340E+01, 9.400E+00, 6.610E+00,           MLT  890
     C 4.720E+00, 3.400E+00, 2.480E+00, 1.820E+00, 1.340E+00,           MLT  900
     C 9.870E-01, 5.370E-01, 2.880E-01, 1.470E-01, 7.100E-02,           MLT  910
     C 3.200E-02, 1.250E-02, 4.510E-03, 1.610E-03, 6.060E-04,           MLT  920
     C 2.480E-04, 1.130E-04, 6.000E-05, 3.540E-05, 2.260E-05/           MLT  930
      DATA P5/                                                          MLT  940
     C 1.013E+03, 8.878E+02, 7.775E+02, 6.798E+02, 5.932E+02,           MLT  950
     C 5.158E+02, 4.467E+02, 3.853E+02, 3.308E+02, 2.829E+02,           MLT  960
     C 2.418E+02, 2.067E+02, 1.766E+02, 1.510E+02, 1.291E+02,           MLT  970
     C 1.103E+02, 9.431E+01, 8.058E+01, 6.882E+01, 5.875E+01,           MLT  980
     C 5.014E+01, 4.277E+01, 3.647E+01, 3.109E+01, 2.649E+01,           MLT  990
     C 2.256E+01, 1.513E+01, 1.020E+01, 6.910E+00, 4.701E+00,           MLT 1000
     C 3.230E+00, 2.243E+00, 1.570E+00, 1.113E+00, 7.900E-01,           MLT 1010
     C 5.719E-01, 2.990E-01, 1.550E-01, 7.900E-02, 4.000E-02,           MLT 1020
     C 2.000E-02, 9.660E-03, 4.500E-03, 2.022E-03, 9.070E-04,           MLT 1030
     C 4.230E-04, 2.070E-04, 1.080E-04, 6.000E-05, 3.590E-05/           MLT 1040
      DATA P6/                                                          MLT 1050
     C 1.013E+03, 8.988E+02, 7.950E+02, 7.012E+02, 6.166E+02,           MLT 1060
     C 5.405E+02, 4.722E+02, 4.111E+02, 3.565E+02, 3.080E+02,           MLT 1070
     C 2.650E+02, 2.270E+02, 1.940E+02, 1.658E+02, 1.417E+02,           MLT 1080
     C 1.211E+02, 1.035E+02, 8.850E+01, 7.565E+01, 6.467E+01,           MLT 1090
     C 5.529E+01, 4.729E+01, 4.047E+01, 3.467E+01, 2.972E+01,           MLT 1100
     C 2.549E+01, 1.743E+01, 1.197E+01, 8.010E+00, 5.746E+00,           MLT 1110
     C 4.150E+00, 2.871E+00, 2.060E+00, 1.491E+00, 1.090E+00,           MLT 1120
     C 7.978E-01, 4.250E-01, 2.190E-01, 1.090E-01, 5.220E-02,           MLT 1130
     C 2.400E-02, 1.050E-02, 4.460E-03, 1.840E-03, 7.600E-04,           MLT 1140
     C 3.200E-04, 1.450E-04, 7.100E-05, 4.010E-05, 2.540E-05/           MLT 1150
C     DATA TEMPERATUR/                                                  MLT 1160
      DATA T1/                                                          MLT 1170
     C    299.70,    293.70,    287.70,    283.70,    277.00,           MLT 1180
     C    270.30,    263.60,    257.00,    250.30,    243.60,           MLT 1190
     C    237.00,    230.10,    223.60,    217.00,    210.30,           MLT 1200
     C    203.70,    197.00,    194.80,    198.80,    202.70,           MLT 1210
     C    206.70,    210.70,    214.60,    217.00,    219.20,           MLT 1220
     C    221.40,    227.00,    232.30,    237.70,    243.10,           MLT 1230
     C    248.50,    254.00,    259.40,    264.80,    269.60,           MLT 1240
     C    270.20,    263.40,    253.10,    236.00,    218.90,           MLT 1250
     C    201.80,    184.80,    177.10,    177.00,    184.30,           MLT 1260
     C    190.70,    212.00,    241.60,    299.70,    380.00/           MLT 1270
      DATA T2/                                                          MLT 1280
     C    294.20,    289.70,    285.20,    279.20,    273.20,           MLT 1290
     C    267.20,    261.20,    254.70,    248.20,    241.70,           MLT 1300
     C    235.30,    228.80,    222.30,    215.80,    215.70,           MLT 1310
     C    215.70,    215.70,    215.70,    216.80,    217.90,           MLT 1320
     C    219.20,    220.40,    221.60,    222.80,    223.90,           MLT 1330
     C    225.10,    228.45,    233.70,    239.00,    245.20,           MLT 1340
     C    251.30,    257.50,    263.70,    269.90,    275.20,           MLT 1350
     C    275.70,    269.30,    257.10,    240.10,    218.10,           MLT 1360
     C    196.10,    174.10,    165.10,    165.00,    178.30,           MLT 1370
     C    190.50,    222.20,    262.40,    316.80,    380.00/           MLT 1380
      DATA T3/                                                          MLT 1390
     C    272.20,    268.70,    265.20,    261.70,    255.70,           MLT 1400
     C    249.70,    243.70,    237.70,    231.70,    225.70,           MLT 1410
     C    219.70,    219.20,    218.70,    218.20,    217.70,           MLT 1420
     C    217.20,    216.70,    216.20,    215.70,    215.20,           MLT 1430
     C    215.20,    215.20,    215.20,    215.20,    215.20,           MLT 1440
     C    215.20,    215.50,    217.40,    220.40,    227.90,           MLT 1450
     C    235.50,    243.20,    250.80,    258.50,    265.10,           MLT 1460
     C    265.70,    260.60,    250.80,    240.90,    230.70,           MLT 1470
     C    220.40,    210.10,    199.80,    199.50,    208.30,           MLT 1480
     C    218.60,    237.10,    259.50,    293.00,    333.00/           MLT 1490
      DATA T4/                                                          MLT 1500
     C    287.20,    281.70,    276.30,    270.90,    265.50,           MLT 1510
     C    260.10,    253.10,    246.10,    239.20,    232.20,           MLT 1520
     C    225.20,    225.20,    225.20,    225.20,    225.20,           MLT 1530
     C    225.20,    225.20,    225.20,    225.20,    225.20,           MLT 1540
     C    225.20,    225.20,    225.20,    225.20,    226.60,           MLT 1550
     C    228.10,    231.00,    235.10,    240.00,    247.20,           MLT 1560
     C    254.60,    262.10,    269.50,    273.60,    276.20,           MLT 1570
     C    277.20,    274.00,    262.70,    239.70,    216.60,           MLT 1580
     C    193.60,    170.60,    161.70,    161.60,    176.80,           MLT 1590
     C    190.40,    226.00,    270.10,    322.70,    380.00/           MLT 1600
      DATA T5/                                                          MLT 1610
     C    257.20,    259.10,    255.90,    252.70,    247.70,           MLT 1620
     C    240.90,    234.10,    227.30,    220.60,    217.20,           MLT 1630
     C    217.20,    217.20,    217.20,    217.20,    217.20,           MLT 1640
     C    217.20,    216.60,    216.00,    215.40,    214.80,           MLT 1650
     C    214.20,    213.60,    213.00,    212.40,    211.80,           MLT 1660
     C    211.20,    213.60,    216.00,    218.50,    222.30,           MLT 1670
     C    228.50,    234.70,    240.80,    247.00,    253.20,           MLT 1680
     C    259.30,    259.10,    250.90,    248.40,    245.40,           MLT 1690
     C    234.70,    223.90,    213.10,    202.30,    211.00,           MLT 1700
     C    218.50,    234.00,    252.60,    288.50,    333.00/           MLT 1710
      DATA T6/                                                          MLT 1720
     C    288.20,    281.70,    275.20,    268.70,    262.20,           MLT 1730
     C    255.70,    249.20,    242.70,    236.20,    229.70,           MLT 1740
     C    223.30,    216.80,    216.70,    216.70,    216.70,           MLT 1750
     C    216.70,    216.70,    216.70,    216.70,    216.70,           MLT 1760
     C    216.70,    217.60,    218.60,    219.60,    220.60,           MLT 1770
     C    221.60,    224.00,    226.50,    230.00,    236.50,           MLT 1780
     C    242.90,    250.40,    257.30,    264.20,    270.60,           MLT 1790
     C    270.70,    260.80,    247.00,    233.30,    219.60,           MLT 1800
     C    208.40,    198.60,    188.90,    186.90,    188.40,           MLT 1810
     C    195.10,    208.80,    240.00,    300.00,    360.00/           MLT 1820
C     DATA  H2O      /                                                  MLT 1830
      DATA AMOL11/                                                      MLT 1840
     C 2.593E+04, 1.949E+04, 1.534E+04, 8.600E+03, 4.441E+03,           MLT 1850
     C 3.346E+03, 2.101E+03, 1.289E+03, 7.637E+02, 4.098E+02,           MLT 1860
     C 1.912E+02, 7.306E+01, 2.905E+01, 9.900E+00, 6.220E+00,           MLT 1870
     C 4.000E+00, 3.000E+00, 2.900E+00, 2.750E+00, 2.600E+00,           MLT 1880
     C 2.600E+00, 2.650E+00, 2.800E+00, 2.900E+00, 3.200E+00,           MLT 1890
     C 3.250E+00, 3.600E+00, 4.000E+00, 4.300E+00, 4.600E+00,           MLT 1900
     C 4.900E+00, 5.200E+00, 5.500E+00, 5.700E+00, 5.900E+00,           MLT 1910
     C 6.000E+00, 6.000E+00, 6.000E+00, 5.400E+00, 4.500E+00,           MLT 1920
     C 3.300E+00, 2.100E+00, 1.300E+00, 8.500E-01, 5.400E-01,           MLT 1930
     C 4.000E-01, 3.400E-01, 2.800E-01, 2.400E-01, 2.000E-01/           MLT 1940
      DATA AMOL21/                                                      MLT 1950
     C 1.876E+04, 1.378E+04, 9.680E+03, 5.984E+03, 3.813E+03,           MLT 1960
     C 2.225E+03, 1.510E+03, 1.020E+03, 6.464E+02, 4.129E+02,           MLT 1970
     C 2.472E+02, 9.556E+01, 2.944E+01, 8.000E+00, 5.000E+00,           MLT 1980
     C 3.400E+00, 3.300E+00, 3.200E+00, 3.150E+00, 3.200E+00,           MLT 1990
     C 3.300E+00, 3.450E+00, 3.600E+00, 3.850E+00, 4.000E+00,           MLT 2000
     C 4.200E+00, 4.450E+00, 4.700E+00, 4.850E+00, 4.950E+00,           MLT 2010
     C 5.000E+00, 5.100E+00, 5.300E+00, 5.450E+00, 5.500E+00,           MLT 2020
     C 5.500E+00, 5.350E+00, 5.000E+00, 4.400E+00, 3.700E+00,           MLT 2030
     C 2.950E+00, 2.100E+00, 1.330E+00, 8.500E-01, 5.400E-01,           MLT 2040
     C 4.000E-01, 3.400E-01, 2.800E-01, 2.400E-01, 2.000E-01/           MLT 2050
      DATA AMOL31/                                                      MLT 2060
     C 4.316E+03, 3.454E+03, 2.788E+03, 2.088E+03, 1.280E+03,           MLT 2070
     C 8.241E+02, 5.103E+02, 2.321E+02, 1.077E+02, 5.566E+01,           MLT 2080
     C 2.960E+01, 1.000E+01, 6.000E+00, 5.000E+00, 4.800E+00,           MLT 2090
     C 4.700E+00, 4.600E+00, 4.500E+00, 4.500E+00, 4.500E+00,           MLT 2100
     C 4.500E+00, 4.500E+00, 4.530E+00, 4.550E+00, 4.600E+00,           MLT 2110
     C 4.650E+00, 4.700E+00, 4.750E+00, 4.800E+00, 4.850E+00,           MLT 2120
     C 4.900E+00, 4.950E+00, 5.000E+00, 5.000E+00, 5.000E+00,           MLT 2130
     C 4.950E+00, 4.850E+00, 4.500E+00, 4.000E+00, 3.300E+00,           MLT 2140
     C 2.700E+00, 2.000E+00, 1.330E+00, 8.500E-01, 5.400E-01,           MLT 2150
     C 4.000E-01, 3.400E-01, 2.800E-01, 2.400E-01, 2.000E-01/           MLT 2160
      DATA AMOL41/                                                      MLT 2170
     C 1.194E+04, 8.701E+03, 6.750E+03, 4.820E+03, 3.380E+03,           MLT 2180
     C 2.218E+03, 1.330E+03, 7.971E+02, 3.996E+02, 1.300E+02,           MLT 2190
     C 4.240E+01, 1.330E+01, 6.000E+00, 4.450E+00, 4.000E+00,           MLT 2200
     C 4.000E+00, 4.000E+00, 4.050E+00, 4.300E+00, 4.500E+00,           MLT 2210
     C 4.600E+00, 4.700E+00, 4.800E+00, 4.830E+00, 4.850E+00,           MLT 2220
     C 4.900E+00, 4.950E+00, 5.000E+00, 5.000E+00, 5.000E+00,           MLT 2230
     C 5.000E+00, 5.000E+00, 5.000E+00, 5.000E+00, 5.000E+00,           MLT 2240
     C 4.950E+00, 4.850E+00, 4.500E+00, 4.000E+00, 3.300E+00,           MLT 2250
     C 2.700E+00, 2.000E+00, 1.330E+00, 8.500E-01, 5.400E-01,           MLT 2260
     C 4.000E-01, 3.400E-01, 2.800E-01, 2.400E-01, 2.000E-01/           MLT 2270
      DATA AMOL51/                                                      MLT 2280
     C 1.405E+03, 1.615E+03, 1.427E+03, 1.166E+03, 7.898E+02,           MLT 2290
     C 4.309E+02, 2.369E+02, 1.470E+02, 3.384E+01, 2.976E+01,           MLT 2300
     C 2.000E+01, 1.000E+01, 6.000E+00, 4.450E+00, 4.500E+00,           MLT 2310
     C 4.550E+00, 4.600E+00, 4.650E+00, 4.700E+00, 4.750E+00,           MLT 2320
     C 4.800E+00, 4.850E+00, 4.900E+00, 4.950E+00, 5.000E+00,           MLT 2330
     C 5.000E+00, 5.000E+00, 5.000E+00, 5.000E+00, 5.000E+00,           MLT 2340
     C 5.000E+00, 5.000E+00, 5.000E+00, 5.000E+00, 5.000E+00,           MLT 2350
     C 4.950E+00, 4.850E+00, 4.500E+00, 4.000E+00, 3.300E+00,           MLT 2360
     C 2.700E+00, 2.000E+00, 1.330E+00, 8.500E-01, 5.400E-01,           MLT 2370
     C 4.000E-01, 3.400E-01, 2.800E-01, 2.400E-01, 2.000E-01/           MLT 2380
      DATA AMOL61/                                                      MLT 2390
     C 7.745E+03, 6.071E+03, 4.631E+03, 3.182E+03, 2.158E+03,           MLT 2400
     C 1.397E+03, 9.254E+02, 5.720E+02, 3.667E+02, 1.583E+02,           MLT 2410
     C 6.996E+01, 3.613E+01, 1.906E+01, 1.085E+01, 5.927E+00,           MLT 2420
     C 5.000E+00, 3.950E+00, 3.850E+00, 3.825E+00, 3.850E+00,           MLT 2430
     C 3.900E+00, 3.975E+00, 4.065E+00, 4.200E+00, 4.300E+00,           MLT 2440
     C 4.425E+00, 4.575E+00, 4.725E+00, 4.825E+00, 4.900E+00,           MLT 2450
     C 4.950E+00, 5.025E+00, 5.150E+00, 5.225E+00, 5.250E+00,           MLT 2460
     C 5.225E+00, 5.100E+00, 4.750E+00, 4.200E+00, 3.500E+00,           MLT 2470
     C 2.825E+00, 2.050E+00, 1.330E+00, 8.500E-01, 5.400E-01,           MLT 2480
     C 4.000E-01, 3.400E-01, 2.800E-01, 2.400E-01, 2.000E-01/           MLT 2490
C     DATA CO2       /                                                  MLT 2500
      DATA AMOL12/                                                      MLT 2510
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2520
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2530
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2540
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2550
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2560
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2570
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2580
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2590
     C 3.300E+02, 3.280E+02, 3.200E+02, 3.100E+02, 2.700E+02,           MLT 2600
     C 1.950E+02, 1.100E+02, 6.000E+01, 4.000E+01, 3.500E+01/           MLT 2610
C     DATA CO2       /                                                  MLT 2620
      DATA AMOL22/                                                      MLT 2630
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2640
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2650
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2660
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2670
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2680
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2690
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2700
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2710
     C 3.300E+02, 3.280E+02, 3.200E+02, 3.100E+02, 2.700E+02,           MLT 2720
     C 1.950E+02, 1.100E+02, 6.000E+01, 4.000E+01, 3.500E+01/           MLT 2730
C     DATA CO2       /                                                  MLT 2740
      DATA AMOL32/                                                      MLT 2750
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2760
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2770
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2780
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2790
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2800
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2810
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2820
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2830
     C 3.300E+02, 3.280E+02, 3.200E+02, 3.100E+02, 2.700E+02,           MLT 2840
     C 1.950E+02, 1.100E+02, 6.000E+01, 4.000E+01, 3.500E+01/           MLT 2850
C     DATA CO2       /                                                  MLT 2860
      DATA AMOL42/                                                      MLT 2870
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2880
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2890
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2900
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2910
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2920
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2930
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2940
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 2950
     C 3.300E+02, 3.280E+02, 3.200E+02, 3.100E+02, 2.700E+02,           MLT 2960
     C 1.950E+02, 1.100E+02, 6.000E+01, 4.000E+01, 3.500E+01/           MLT 2970
C     DATA CO2       /                                                  MLT 2980
      DATA AMOL52/                                                      MLT 2990
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3000
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3010
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3020
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3030
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3040
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3050
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3060
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3070
     C 3.300E+02, 3.280E+02, 3.200E+02, 3.100E+02, 2.700E+02,           MLT 3080
     C 1.950E+02, 1.100E+02, 6.000E+01, 4.000E+01, 3.500E+01/           MLT 3090
C     DATA CO2       /                                                  MLT 3100
      DATA AMOL62/                                                      MLT 3110
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3120
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3130
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3140
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3150
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3160
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3170
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3180
     C 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02, 3.300E+02,           MLT 3190
     C 3.300E+02, 3.280E+02, 3.200E+02, 3.100E+02, 2.700E+02,           MLT 3200
     C 1.950E+02, 1.100E+02, 6.000E+01, 4.000E+01, 3.500E+01/           MLT 3210
C     DATA OZONE     /                                                  MLT 3220
      DATA AMOL13/                                                      MLT 3230
     C 2.869E-02, 3.150E-02, 3.342E-02, 3.504E-02, 3.561E-02,           MLT 3240
     C 3.767E-02, 3.989E-02, 4.223E-02, 4.471E-02, 5.000E-02,           MLT 3250
     C 5.595E-02, 6.613E-02, 7.815E-02, 9.289E-02, 1.050E-01,           MLT 3260
     C 1.256E-01, 1.444E-01, 2.500E-01, 5.000E-01, 9.500E-01,           MLT 3270
     C 1.400E+00, 1.800E+00, 2.400E+00, 3.400E+00, 4.300E+00,           MLT 3280
     C 5.400E+00, 7.800E+00, 9.300E+00, 9.850E+00, 9.700E+00,           MLT 3290
     C 8.800E+00, 7.500E+00, 5.900E+00, 4.500E+00, 3.450E+00,           MLT 3300
     C 2.800E+00, 1.800E+00, 1.100E+00, 6.500E-01, 3.000E-01,           MLT 3310
     C 1.800E-01, 3.300E-01, 5.000E-01, 5.200E-01, 5.000E-01,           MLT 3320
     C 4.000E-01, 2.000E-01, 5.000E-02, 5.000E-03, 5.000E-04/           MLT 3330
      DATA AMOL23/                                                      MLT 3340
     C 3.017E-02, 3.337E-02, 3.694E-02, 4.222E-02, 4.821E-02,           MLT 3350
     C 5.512E-02, 6.408E-02, 7.764E-02, 9.126E-02, 1.111E-01,           MLT 3360
     C 1.304E-01, 1.793E-01, 2.230E-01, 3.000E-01, 4.400E-01,           MLT 3370
     C 5.000E-01, 6.000E-01, 7.000E-01, 1.000E+00, 1.500E+00,           MLT 3380
     C 2.000E+00, 2.400E+00, 2.900E+00, 3.400E+00, 4.000E+00,           MLT 3390
     C 4.800E+00, 6.000E+00, 7.000E+00, 8.100E+00, 8.900E+00,           MLT 3400
     C 8.700E+00, 7.550E+00, 5.900E+00, 4.500E+00, 3.500E+00,           MLT 3410
     C 2.800E+00, 1.800E+00, 1.300E+00, 8.000E-01, 4.000E-01,           MLT 3420
     C 1.900E-01, 2.000E-01, 5.700E-01, 7.500E-01, 7.000E-01,           MLT 3430
     C 4.000E-01, 2.000E-01, 5.000E-02, 5.000E-03, 5.000E-04/           MLT 3440
      DATA AMOL33/                                                      MLT 3450
     C 2.778E-02, 2.800E-02, 2.849E-02, 3.200E-02, 3.567E-02,           MLT 3460
     C 4.720E-02, 5.837E-02, 7.891E-02, 1.039E-01, 1.567E-01,           MLT 3470
     C 2.370E-01, 3.624E-01, 5.232E-01, 7.036E-01, 8.000E-01,           MLT 3480
     C 9.000E-01, 1.100E+00, 1.400E+00, 1.800E+00, 2.300E+00,           MLT 3490
     C 2.900E+00, 3.500E+00, 3.900E+00, 4.300E+00, 4.700E+00,           MLT 3500
     C 5.100E+00, 5.600E+00, 6.100E+00, 6.800E+00, 7.100E+00,           MLT 3510
     C 7.200E+00, 6.900E+00, 5.900E+00, 4.600E+00, 3.700E+00,           MLT 3520
     C 2.750E+00, 1.700E+00, 1.000E-00, 5.500E-01, 3.200E-01,           MLT 3530
     C 2.500E-01, 2.300E-01, 5.500E-01, 8.000E-01, 8.000E-01,           MLT 3540
     C 4.000E-01, 2.000E-01, 5.000E-02, 5.000E-03, 5.000E-04/           MLT 3550
      DATA AMOL43/                                                      MLT 3560
     C 2.412E-02, 2.940E-02, 3.379E-02, 3.887E-02, 4.478E-02,           MLT 3570
     C 5.328E-02, 6.564E-02, 7.738E-02, 9.114E-02, 1.420E-01,           MLT 3580
     C 1.890E-01, 3.050E-01, 4.100E-01, 5.000E-01, 6.000E-01,           MLT 3590
     C 7.000E-01, 8.500E-01, 1.000E+00, 1.300E+00, 1.700E+00,           MLT 3600
     C 2.100E+00, 2.700E+00, 3.300E+00, 3.700E+00, 4.200E+00,           MLT 3610
     C 4.500E+00, 5.300E+00, 5.700E+00, 6.900E+00, 7.700E+00,           MLT 3620
     C 7.800E+00, 7.000E+00, 5.400E+00, 4.200E+00, 3.200E+00,           MLT 3630
     C 2.500E+00, 1.700E+00, 1.200E+00, 8.000E-01, 4.000E-01,           MLT 3640
     C 2.000E-01, 1.800E-01, 6.500E-01, 9.000E-01, 8.000E-01,           MLT 3650
     C 4.000E-01, 2.000E-01, 5.000E-02, 5.000E-03, 5.000E-04/           MLT 3660
      DATA AMOL53/                                                      MLT 3670
     C 1.802E-02, 2.072E-02, 2.336E-02, 2.767E-02, 3.253E-02,           MLT 3680
     C 3.801E-02, 4.446E-02, 7.252E-02, 1.040E-01, 2.100E-01,           MLT 3690
     C 3.000E-01, 3.500E-01, 4.000E-01, 6.500E-01, 9.000E-01,           MLT 3700
     C 1.200E+00, 1.500E+00, 1.900E+00, 2.450E+00, 3.100E+00,           MLT 3710
     C 3.700E+00, 4.000E+00, 4.200E+00, 4.500E+00, 4.600E+00,           MLT 3720
     C 4.700E+00, 4.900E+00, 5.400E+00, 5.900E+00, 6.200E+00,           MLT 3730
     C 6.250E+00, 5.900E+00, 5.100E+00, 4.100E+00, 3.000E+00,           MLT 3740
     C 2.600E+00, 1.600E+00, 9.500E-01, 6.500E-01, 5.000E-01,           MLT 3750
     C 3.300E-01, 1.300E-01, 7.500E-01, 8.000E-01, 8.000E-01,           MLT 3760
     C 4.000E-01, 2.000E-01, 5.000E-02, 5.000E-03, 5.000E-04/           MLT 3770
      DATA AMOL63/                                                      MLT 3780
     C 2.660E-02, 2.931E-02, 3.237E-02, 3.318E-02, 3.387E-02,           MLT 3790
     C 3.768E-02, 4.112E-02, 5.009E-02, 5.966E-02, 9.168E-02,           MLT 3800
     C 1.313E-01, 2.149E-01, 3.095E-01, 3.846E-01, 5.030E-01,           MLT 3810
     C 6.505E-01, 8.701E-01, 1.187E+00, 1.587E+00, 2.030E+00,           MLT 3820
     C 2.579E+00, 3.028E+00, 3.647E+00, 4.168E+00, 4.627E+00,           MLT 3830
     C 5.118E+00, 5.803E+00, 6.553E+00, 7.373E+00, 7.837E+00,           MLT 3840
     C 7.800E+00, 7.300E+00, 6.200E+00, 5.250E+00, 4.100E+00,           MLT 3850
     C 3.100E+00, 1.800E+00, 1.100E+00, 7.000E-01, 3.000E-01,           MLT 3860
     C 2.500E-01, 3.000E-01, 5.000E-01, 7.000E-01, 7.000E-01,           MLT 3870
     C 4.000E-01, 2.000E-01, 5.000E-02, 5.000E-03, 5.000E-04/           MLT 3880
C     DATA  N2O      /                                                  MLT 3890
      DATA AMOL14/                                                      MLT 3900
     C 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01,           MLT 3910
     C 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.195E-01,           MLT 3920
     C 3.179E-01, 3.140E-01, 3.095E-01, 3.048E-01, 2.999E-01,           MLT 3930
     C 2.944E-01, 2.877E-01, 2.783E-01, 2.671E-01, 2.527E-01,           MLT 3940
     C 2.365E-01, 2.194E-01, 2.051E-01, 1.967E-01, 1.875E-01,           MLT 3950
     C 1.756E-01, 1.588E-01, 1.416E-01, 1.165E-01, 9.275E-02,           MLT 3960
     C 6.693E-02, 4.513E-02, 2.751E-02, 1.591E-02, 9.378E-03,           MLT 3970
     C 4.752E-03, 3.000E-03, 2.065E-03, 1.507E-03, 1.149E-03,           MLT 3980
     C 8.890E-04, 7.056E-04, 5.716E-04, 4.708E-04, 3.932E-04,           MLT 3990
     C 3.323E-04, 2.837E-04, 2.443E-04, 2.120E-04, 1.851E-04/           MLT 4000
C     DATA  N2O      /                                                  MLT 4010
      DATA AMOL24/                                                      MLT 4020
     C 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01,           MLT 4030
     C 3.200E-01, 3.200E-01, 3.200E-01, 3.195E-01, 3.163E-01,           MLT 4040
     C 3.096E-01, 2.989E-01, 2.936E-01, 2.860E-01, 2.800E-01,           MLT 4050
     C 2.724E-01, 2.611E-01, 2.421E-01, 2.174E-01, 1.843E-01,           MLT 4060
     C 1.607E-01, 1.323E-01, 1.146E-01, 1.035E-01, 9.622E-02,           MLT 4070
     C 8.958E-02, 8.006E-02, 6.698E-02, 4.958E-02, 3.695E-02,           MLT 4080
     C 2.519E-02, 1.736E-02, 1.158E-02, 7.665E-03, 5.321E-03,           MLT 4090
     C 3.215E-03, 2.030E-03, 1.397E-03, 1.020E-03, 7.772E-04,           MLT 4100
     C 6.257E-04, 5.166E-04, 4.352E-04, 3.727E-04, 3.237E-04,           MLT 4110
     C 2.844E-04, 2.524E-04, 2.260E-04, 2.039E-04, 1.851E-04/           MLT 4120
C     DATA  N2O      /                                                  MLT 4130
      DATA AMOL34/                                                      MLT 4140
     C 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01,           MLT 4150
     C 3.200E-01, 3.200E-01, 3.200E-01, 3.195E-01, 3.163E-01,           MLT 4160
     C 3.096E-01, 2.989E-01, 2.936E-01, 2.860E-01, 2.800E-01,           MLT 4170
     C 2.724E-01, 2.611E-01, 2.421E-01, 2.174E-01, 1.843E-01,           MLT 4180
     C 1.621E-01, 1.362E-01, 1.230E-01, 1.124E-01, 1.048E-01,           MLT 4190
     C 9.661E-02, 8.693E-02, 7.524E-02, 6.126E-02, 5.116E-02,           MLT 4200
     C 3.968E-02, 2.995E-02, 2.080E-02, 1.311E-02, 8.071E-03,           MLT 4210
     C 4.164E-03, 2.629E-03, 1.809E-03, 1.321E-03, 1.007E-03,           MLT 4220
     C 7.883E-04, 6.333E-04, 5.194E-04, 4.333E-04, 3.666E-04,           MLT 4230
     C 3.140E-04, 2.717E-04, 2.373E-04, 2.089E-04, 1.851E-04/           MLT 4240
C     DATA  N2O      /                                                  MLT 4250
      DATA AMOL44/                                                      MLT 4260
     C 3.100E-01, 3.100E-01, 3.100E-01, 3.100E-01, 3.079E-01,           MLT 4270
     C 3.024E-01, 2.906E-01, 2.822E-01, 2.759E-01, 2.703E-01,           MLT 4280
     C 2.651E-01, 2.600E-01, 2.549E-01, 2.494E-01, 2.433E-01,           MLT 4290
     C 2.355E-01, 2.282E-01, 2.179E-01, 2.035E-01, 1.817E-01,           MLT 4300
     C 1.567E-01, 1.350E-01, 1.218E-01, 1.102E-01, 9.893E-02,           MLT 4310
     C 8.775E-02, 7.327E-02, 5.941E-02, 4.154E-02, 3.032E-02,           MLT 4320
     C 1.949E-02, 1.274E-02, 9.001E-03, 6.286E-03, 4.558E-03,           MLT 4330
     C 2.795E-03, 1.765E-03, 1.214E-03, 8.866E-04, 6.756E-04,           MLT 4340
     C 5.538E-04, 4.649E-04, 3.979E-04, 3.459E-04, 3.047E-04,           MLT 4350
     C 2.713E-04, 2.439E-04, 2.210E-04, 2.017E-04, 1.851E-04/           MLT 4360
C     DATA  N2O      /                                                  MLT 4370
      DATA AMOL54/                                                      MLT 4380
     C 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01,           MLT 4390
     C 3.200E-01, 3.200E-01, 3.200E-01, 3.195E-01, 3.163E-01,           MLT 4400
     C 3.096E-01, 2.989E-01, 2.936E-01, 2.860E-01, 2.800E-01,           MLT 4410
     C 2.724E-01, 2.611E-01, 2.421E-01, 2.174E-01, 1.843E-01,           MLT 4420
     C 1.621E-01, 1.362E-01, 1.230E-01, 1.122E-01, 1.043E-01,           MLT 4430
     C 9.570E-02, 8.598E-02, 7.314E-02, 5.710E-02, 4.670E-02,           MLT 4440
     C 3.439E-02, 2.471E-02, 1.631E-02, 1.066E-02, 7.064E-03,           MLT 4450
     C 3.972E-03, 2.508E-03, 1.726E-03, 1.260E-03, 9.602E-04,           MLT 4460
     C 7.554E-04, 6.097E-04, 5.024E-04, 4.210E-04, 3.579E-04,           MLT 4470
     C 3.080E-04, 2.678E-04, 2.350E-04, 2.079E-04, 1.851E-04/           MLT 4480
C     DATA  N2O      /                                                  MLT 4490
      DATA AMOL64/                                                      MLT 4500
     C 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01,           MLT 4510
     C 3.200E-01, 3.200E-01, 3.200E-01, 3.200E-01, 3.195E-01,           MLT 4520
     C 3.179E-01, 3.140E-01, 3.095E-01, 3.048E-01, 2.999E-01,           MLT 4530
     C 2.944E-01, 2.877E-01, 2.783E-01, 2.671E-01, 2.527E-01,           MLT 4540
     C 2.365E-01, 2.194E-01, 2.051E-01, 1.967E-01, 1.875E-01,           MLT 4550
     C 1.756E-01, 1.588E-01, 1.416E-01, 1.165E-01, 9.275E-02,           MLT 4560
     C 6.693E-02, 4.513E-02, 2.751E-02, 1.591E-02, 9.378E-03,           MLT 4570
     C 4.752E-03, 3.000E-03, 2.065E-03, 1.507E-03, 1.149E-03,           MLT 4580
     C 8.890E-04, 7.056E-04, 5.716E-04, 4.708E-04, 3.932E-04,           MLT 4590
     C 3.323E-04, 2.837E-04, 2.443E-04, 2.120E-04, 1.851E-04/           MLT 4600
C     DATA CO        /                                                  MLT 4610
      DATA AMOL15/                                                      MLT 4620
     C 1.500E-01, 1.450E-01, 1.399E-01, 1.349E-01, 1.312E-01,           MLT 4630
     C 1.303E-01, 1.288E-01, 1.247E-01, 1.185E-01, 1.094E-01,           MLT 4640
     C 9.962E-02, 8.964E-02, 7.814E-02, 6.374E-02, 5.025E-02,           MLT 4650
     C 3.941E-02, 3.069E-02, 2.489E-02, 1.966E-02, 1.549E-02,           MLT 4660
     C 1.331E-02, 1.232E-02, 1.232E-02, 1.307E-02, 1.400E-02,           MLT 4670
     C 1.521E-02, 1.722E-02, 1.995E-02, 2.266E-02, 2.487E-02,           MLT 4680
     C 2.738E-02, 3.098E-02, 3.510E-02, 3.987E-02, 4.482E-02,           MLT 4690
     C 5.092E-02, 5.985E-02, 6.960E-02, 9.188E-02, 1.938E-01,           MLT 4700
     C 5.688E-01, 1.549E+00, 3.849E+00, 6.590E+00, 1.044E+01,           MLT 4710
     C 1.705E+01, 2.471E+01, 3.358E+01, 4.148E+01, 5.000E+01/           MLT 4720
C     DATA CO        /                                                  MLT 4730
      DATA AMOL25/                                                      MLT 4740
     C 1.500E-01, 1.450E-01, 1.399E-01, 1.349E-01, 1.312E-01,           MLT 4750
     C 1.303E-01, 1.288E-01, 1.247E-01, 1.185E-01, 1.094E-01,           MLT 4760
     C 9.962E-02, 8.964E-02, 7.814E-02, 6.374E-02, 5.025E-02,           MLT 4770
     C 3.941E-02, 3.069E-02, 2.489E-02, 1.966E-02, 1.549E-02,           MLT 4780
     C 1.331E-02, 1.232E-02, 1.232E-02, 1.307E-02, 1.400E-02,           MLT 4790
     C 1.521E-02, 1.722E-02, 1.995E-02, 2.266E-02, 2.487E-02,           MLT 4800
     C 2.716E-02, 2.962E-02, 3.138E-02, 3.307E-02, 3.487E-02,           MLT 4810
     C 3.645E-02, 3.923E-02, 4.673E-02, 6.404E-02, 1.177E-01,           MLT 4820
     C 2.935E-01, 6.815E-01, 1.465E+00, 2.849E+00, 5.166E+00,           MLT 4830
     C 1.008E+01, 1.865E+01, 2.863E+01, 3.890E+01, 5.000E+01/           MLT 4840
C     DATA CO        /                                                  MLT 4850
      DATA AMOL35/                                                      MLT 4860
     C 1.500E-01, 1.450E-01, 1.399E-01, 1.349E-01, 1.312E-01,           MLT 4870
     C 1.303E-01, 1.288E-01, 1.247E-01, 1.185E-01, 1.094E-01,           MLT 4880
     C 9.962E-02, 8.964E-02, 7.814E-02, 6.374E-02, 5.025E-02,           MLT 4890
     C 3.941E-02, 3.069E-02, 2.489E-02, 1.966E-02, 1.549E-02,           MLT 4900
     C 1.331E-02, 1.232E-02, 1.232E-02, 1.307E-02, 1.400E-02,           MLT 4910
     C 1.498E-02, 1.598E-02, 1.710E-02, 1.850E-02, 1.997E-02,           MLT 4920
     C 2.147E-02, 2.331E-02, 2.622E-02, 3.057E-02, 3.803E-02,           MLT 4930
     C 6.245E-02, 1.480E-01, 2.926E-01, 5.586E-01, 1.078E+00,           MLT 4940
     C 1.897E+00, 2.960E+00, 4.526E+00, 6.862E+00, 1.054E+01,           MLT 4950
     C 1.709E+01, 2.473E+01, 3.359E+01, 4.149E+01, 5.000E+01/           MLT 4960
C     DATA CO        /                                                  MLT 4970
      DATA AMOL45/                                                      MLT 4980
     C 1.500E-01, 1.450E-01, 1.399E-01, 1.349E-01, 1.312E-01,           MLT 4990
     C 1.303E-01, 1.288E-01, 1.247E-01, 1.185E-01, 1.094E-01,           MLT 5000
     C 9.962E-02, 8.964E-02, 7.814E-02, 6.374E-02, 5.025E-02,           MLT 5010
     C 3.941E-02, 3.069E-02, 2.489E-02, 1.966E-02, 1.549E-02,           MLT 5020
     C 1.331E-02, 1.232E-02, 1.232E-02, 1.307E-02, 1.400E-02,           MLT 5030
     C 1.510E-02, 1.649E-02, 1.808E-02, 1.997E-02, 2.183E-02,           MLT 5040
     C 2.343E-02, 2.496E-02, 2.647E-02, 2.809E-02, 2.999E-02,           MLT 5050
     C 3.220E-02, 3.650E-02, 4.589E-02, 6.375E-02, 1.176E-01,           MLT 5060
     C 3.033E-01, 7.894E-01, 1.823E+00, 3.402E+00, 5.916E+00,           MLT 5070
     C 1.043E+01, 1.881E+01, 2.869E+01, 3.892E+01, 5.000E+01/           MLT 5080
C     DATA CO        /                                                  MLT 5090
      DATA AMOL55/                                                      MLT 5100
     C 1.500E-01, 1.450E-01, 1.399E-01, 1.349E-01, 1.312E-01,           MLT 5110
     C 1.303E-01, 1.288E-01, 1.247E-01, 1.185E-01, 1.094E-01,           MLT 5120
     C 9.962E-02, 8.964E-02, 7.814E-02, 6.374E-02, 5.025E-02,           MLT 5130
     C 3.941E-02, 3.069E-02, 2.489E-02, 1.966E-02, 1.549E-02,           MLT 5140
     C 1.331E-02, 1.232E-02, 1.232E-02, 1.307E-02, 1.400E-02,           MLT 5150
     C 1.521E-02, 1.722E-02, 2.037E-02, 2.486E-02, 3.168E-02,           MLT 5160
     C 4.429E-02, 6.472E-02, 1.041E-01, 1.507E-01, 2.163E-01,           MLT 5170
     C 3.141E-01, 4.842E-01, 7.147E-01, 1.067E+00, 1.516E+00,           MLT 5180
     C 2.166E+00, 3.060E+00, 4.564E+00, 6.877E+00, 1.055E+01,           MLT 5190
     C 1.710E+01, 2.473E+01, 3.359E+01, 4.149E+01, 5.000E+01/           MLT 5200
C     DATA CO        /                                                  MLT 5210
      DATA AMOL65/                                                      MLT 5220
     C 1.500E-01, 1.450E-01, 1.399E-01, 1.349E-01, 1.312E-01,           MLT 5230
     C 1.303E-01, 1.288E-01, 1.247E-01, 1.185E-01, 1.094E-01,           MLT 5240
     C 9.962E-02, 8.964E-02, 7.814E-02, 6.374E-02, 5.025E-02,           MLT 5250
     C 3.941E-02, 3.069E-02, 2.489E-02, 1.966E-02, 1.549E-02,           MLT 5260
     C 1.331E-02, 1.232E-02, 1.232E-02, 1.307E-02, 1.400E-02,           MLT 5270
     C 1.498E-02, 1.598E-02, 1.710E-02, 1.850E-02, 2.009E-02,           MLT 5280
     C 2.220E-02, 2.497E-02, 2.824E-02, 3.241E-02, 3.717E-02,           MLT 5290
     C 4.597E-02, 6.639E-02, 1.073E-01, 1.862E-01, 3.059E-01,           MLT 5300
     C 6.375E-01, 1.497E+00, 3.239E+00, 5.843E+00, 1.013E+01,           MLT 5310
     C 1.692E+01, 2.467E+01, 3.356E+01, 4.148E+01, 5.000E+01/           MLT 5320
C     DATA  CH4      /                                                  MLT 5330
      DATA AMOL16/                                                      MLT 5340
     C 1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00,           MLT 5350
     C 1.700E+00, 1.700E+00, 1.699E+00, 1.697E+00, 1.693E+00,           MLT 5360
     C 1.685E+00, 1.675E+00, 1.662E+00, 1.645E+00, 1.626E+00,           MLT 5370
     C 1.605E+00, 1.582E+00, 1.553E+00, 1.521E+00, 1.480E+00,           MLT 5380
     C 1.424E+00, 1.355E+00, 1.272E+00, 1.191E+00, 1.118E+00,           MLT 5390
     C 1.055E+00, 9.870E-01, 9.136E-01, 8.300E-01, 7.460E-01,           MLT 5400
     C 6.618E-01, 5.638E-01, 4.614E-01, 3.631E-01, 2.773E-01,           MLT 5410
     C 2.100E-01, 1.651E-01, 1.500E-01, 1.500E-01, 1.500E-01,           MLT 5420
     C 1.500E-01, 1.500E-01, 1.500E-01, 1.400E-01, 1.300E-01,           MLT 5430
     C 1.200E-01, 1.100E-01, 9.500E-02, 6.000E-02, 3.000E-02/           MLT 5440
C     DATA  CH4      /                                                  MLT 5450
      DATA AMOL26/                                                      MLT 5460
     C 1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00, 1.697E+00,           MLT 5470
     C 1.687E+00, 1.672E+00, 1.649E+00, 1.629E+00, 1.615E+00,           MLT 5480
     C 1.579E+00, 1.542E+00, 1.508E+00, 1.479E+00, 1.451E+00,           MLT 5490
     C 1.422E+00, 1.390E+00, 1.356E+00, 1.323E+00, 1.281E+00,           MLT 5500
     C 1.224E+00, 1.154E+00, 1.066E+00, 9.730E-01, 8.800E-01,           MLT 5510
     C 7.888E-01, 7.046E-01, 6.315E-01, 5.592E-01, 5.008E-01,           MLT 5520
     C 4.453E-01, 3.916E-01, 3.389E-01, 2.873E-01, 2.384E-01,           MLT 5530
     C 1.944E-01, 1.574E-01, 1.500E-01, 1.500E-01, 1.500E-01,           MLT 5540
     C 1.500E-01, 1.500E-01, 1.500E-01, 1.400E-01, 1.300E-01,           MLT 5550
     C 1.200E-01, 1.100E-01, 9.500E-02, 6.000E-02, 3.000E-02/           MLT 5560
C     DATA  CH4      /                                                  MLT 5570
      DATA AMOL36/                                                      MLT 5580
     C 1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00, 1.697E+00,           MLT 5590
     C 1.687E+00, 1.672E+00, 1.649E+00, 1.629E+00, 1.615E+00,           MLT 5600
     C 1.579E+00, 1.542E+00, 1.508E+00, 1.479E+00, 1.451E+00,           MLT 5610
     C 1.422E+00, 1.390E+00, 1.356E+00, 1.323E+00, 1.281E+00,           MLT 5620
     C 1.224E+00, 1.154E+00, 1.066E+00, 9.730E-01, 8.800E-01,           MLT 5630
     C 7.931E-01, 7.130E-01, 6.438E-01, 5.746E-01, 5.050E-01,           MLT 5640
     C 4.481E-01, 3.931E-01, 3.395E-01, 2.876E-01, 2.386E-01,           MLT 5650
     C 1.944E-01, 1.574E-01, 1.500E-01, 1.500E-01, 1.500E-01,           MLT 5660
     C 1.500E-01, 1.500E-01, 1.500E-01, 1.400E-01, 1.300E-01,           MLT 5670
     C 1.200E-01, 1.100E-01, 9.500E-02, 6.000E-02, 3.000E-02/           MLT 5680
C     DATA  CH4      /                                                  MLT 5690
      DATA AMOL46/                                                      MLT 5700
     C 1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00, 1.697E+00,           MLT 5710
     C 1.687E+00, 1.672E+00, 1.649E+00, 1.629E+00, 1.615E+00,           MLT 5720
     C 1.579E+00, 1.542E+00, 1.506E+00, 1.471E+00, 1.434E+00,           MLT 5730
     C 1.389E+00, 1.342E+00, 1.290E+00, 1.230E+00, 1.157E+00,           MLT 5740
     C 1.072E+00, 9.903E-01, 9.170E-01, 8.574E-01, 8.013E-01,           MLT 5750
     C 7.477E-01, 6.956E-01, 6.442E-01, 5.888E-01, 5.240E-01,           MLT 5760
     C 4.506E-01, 3.708E-01, 2.992E-01, 2.445E-01, 2.000E-01,           MLT 5770
     C 1.660E-01, 1.500E-01, 1.500E-01, 1.500E-01, 1.500E-01,           MLT 5780
     C 1.500E-01, 1.500E-01, 1.500E-01, 1.400E-01, 1.300E-01,           MLT 5790
     C 1.200E-01, 1.100E-01, 9.500E-02, 6.000E-02, 3.000E-02/           MLT 5800
C     DATA  CH4      /                                                  MLT 5810
      DATA AMOL56/                                                      MLT 5820
     C 1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00, 1.697E+00,           MLT 5830
     C 1.687E+00, 1.672E+00, 1.649E+00, 1.629E+00, 1.615E+00,           MLT 5840
     C 1.579E+00, 1.542E+00, 1.506E+00, 1.471E+00, 1.434E+00,           MLT 5850
     C 1.389E+00, 1.342E+00, 1.290E+00, 1.230E+00, 1.161E+00,           MLT 5860
     C 1.084E+00, 1.014E+00, 9.561E-01, 9.009E-01, 8.479E-01,           MLT 5870
     C 7.961E-01, 7.449E-01, 6.941E-01, 6.434E-01, 5.883E-01,           MLT 5880
     C 5.238E-01, 4.505E-01, 3.708E-01, 3.004E-01, 2.453E-01,           MLT 5890
     C 1.980E-01, 1.590E-01, 1.500E-01, 1.500E-01, 1.500E-01,           MLT 5900
     C 1.500E-01, 1.500E-01, 1.500E-01, 1.400E-01, 1.300E-01,           MLT 5910
     C 1.200E-01, 1.100E-01, 9.500E-02, 6.000E-02, 3.000E-02/           MLT 5920
C     DATA  CH4      /                                                  MLT 5930
      DATA AMOL66/                                                      MLT 5940
     C 1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00, 1.700E+00,           MLT 5950
     C 1.700E+00, 1.700E+00, 1.699E+00, 1.697E+00, 1.693E+00,           MLT 5960
     C 1.685E+00, 1.675E+00, 1.662E+00, 1.645E+00, 1.626E+00,           MLT 5970
     C 1.605E+00, 1.582E+00, 1.553E+00, 1.521E+00, 1.480E+00,           MLT 5980
     C 1.424E+00, 1.355E+00, 1.272E+00, 1.191E+00, 1.118E+00,           MLT 5990
     C 1.055E+00, 9.870E-01, 9.136E-01, 8.300E-01, 7.460E-01,           MLT 6000
     C 6.618E-01, 5.638E-01, 4.614E-01, 3.631E-01, 2.773E-01,           MLT 6010
     C 2.100E-01, 1.650E-01, 1.500E-01, 1.500E-01, 1.500E-01,           MLT 6020
     C 1.500E-01, 1.500E-01, 1.500E-01, 1.400E-01, 1.300E-01,           MLT 6030
     C 1.200E-01, 1.100E-01, 9.500E-02, 6.000E-02, 3.000E-02/           MLT 6040
C     DATA O2        /                                                  MLT 6050
      DATA AMOL17/                                                      MLT 6060
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6070
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6080
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6090
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6100
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6110
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6120
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6130
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6140
     C 2.090E+05, 2.090E+05, 2.000E+05, 1.900E+05, 1.800E+05,           MLT 6150
     C 1.600E+05, 1.400E+05, 1.200E+05, 9.400E+04, 7.250E+04/           MLT 6160
C     DATA O2        /                                                  MLT 6170
      DATA AMOL27/                                                      MLT 6180
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6190
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6200
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6210
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6220
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6230
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6240
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6250
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6260
     C 2.090E+05, 2.090E+05, 2.000E+05, 1.900E+05, 1.800E+05,           MLT 6270
     C 1.600E+05, 1.400E+05, 1.200E+05, 9.400E+04, 7.250E+04/           MLT 6280
C     DATA O2        /                                                  MLT 6290
      DATA AMOL37/                                                      MLT 6300
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6310
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6320
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6330
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6340
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6350
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6360
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6370
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6380
     C 2.090E+05, 2.090E+05, 2.000E+05, 1.900E+05, 1.800E+05,           MLT 6390
     C 1.600E+05, 1.400E+05, 1.200E+05, 9.400E+04, 7.250E+04/           MLT 6400
C     DATA O2        /                                                  MLT 6410
      DATA AMOL47/                                                      MLT 6420
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6430
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6440
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6450
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6460
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6470
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6480
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6490
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6500
     C 2.090E+05, 2.090E+05, 2.000E+05, 1.900E+05, 1.800E+05,           MLT 6510
     C 1.600E+05, 1.400E+05, 1.200E+05, 9.400E+04, 7.250E+04/           MLT 6520
C     DATA O2        /                                                  MLT 6530
      DATA AMOL57/                                                      MLT 6540
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6550
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6560
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6570
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6580
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6590
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6600
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6610
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6620
     C 2.090E+05, 2.090E+05, 2.000E+05, 1.900E+05, 1.800E+05,           MLT 6630
     C 1.600E+05, 1.400E+05, 1.200E+05, 9.400E+04, 7.250E+04/           MLT 6640
C     DATA O2        /                                                  MLT 6650
      DATA AMOL67/                                                      MLT 6660
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6670
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6680
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6690
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6700
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6710
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6720
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6730
     C 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05, 2.090E+05,           MLT 6740
     C 2.090E+05, 2.090E+05, 2.000E+05, 1.900E+05, 1.800E+05,           MLT 6750
     C 1.600E+05, 1.400E+05, 1.200E+05, 9.400E+04, 7.250E+04/           MLT 6760
C     DATA DENSITY   /                                                  MLT 6770
      DATA AMOL18/                                                      MLT 6780
     C 2.450E+19, 2.231E+19, 2.028E+19, 1.827E+19, 1.656E+19,           MLT 6790
     C 1.499E+19, 1.353E+19, 1.218E+19, 1.095E+19, 9.789E+18,           MLT 6800
     C 8.747E+18, 7.780E+18, 6.904E+18, 6.079E+18, 5.377E+18,           MLT 6810
     C 4.697E+18, 4.084E+18, 3.486E+18, 2.877E+18, 2.381E+18,           MLT 6820
     C 1.981E+18, 1.651E+18, 1.381E+18, 1.169E+18, 9.920E+17,           MLT 6830
     C 8.413E+17, 5.629E+17, 3.807E+17, 2.598E+17, 1.789E+17,           MLT 6840
     C 1.243E+17, 8.703E+16, 6.147E+16, 4.352E+16, 3.119E+16,           MLT 6850
     C 2.291E+16, 1.255E+16, 6.844E+15, 3.716E+15, 1.920E+15,           MLT 6860
     C 9.338E+14, 4.314E+14, 1.801E+14, 7.043E+13, 2.706E+13,           MLT 6870
     C 1.098E+13, 4.445E+12, 1.941E+12, 8.706E+11, 4.225E+11/           MLT 6880
      DATA AMOL28/                                                      MLT 6890
     C 2.496E+19, 2.257E+19, 2.038E+19, 1.843E+19, 1.666E+19,           MLT 6900
     C 1.503E+19, 1.351E+19, 1.212E+19, 1.086E+19, 9.716E+18,           MLT 6910
     C 8.656E+18, 7.698E+18, 6.814E+18, 6.012E+18, 5.141E+18,           MLT 6920
     C 4.368E+18, 3.730E+18, 3.192E+18, 2.715E+18, 2.312E+18,           MLT 6930
     C 1.967E+18, 1.677E+18, 1.429E+18, 1.223E+18, 1.042E+18,           MLT 6940
     C 8.919E+17, 6.050E+17, 4.094E+17, 2.820E+17, 1.927E+17,           MLT 6950
     C 1.338E+17, 9.373E+16, 6.624E+16, 4.726E+16, 3.398E+16,           MLT 6960
     C 2.500E+16, 1.386E+16, 7.668E+15, 4.196E+15, 2.227E+15,           MLT 6970
     C 1.109E+15, 4.996E+14, 1.967E+14, 7.204E+13, 2.541E+13,           MLT 6980
     C 9.816E+12, 3.816E+12, 1.688E+12, 8.145E+11, 4.330E+11/           MLT 6990
      DATA AMOL38/                                                      MLT 7000
     C 2.711E+19, 2.420E+19, 2.158E+19, 1.922E+19, 1.724E+19,           MLT 7010
     C 1.542E+19, 1.376E+19, 1.225E+19, 1.086E+19, 9.612E+18,           MLT 7020
     C 8.472E+18, 7.271E+18, 6.237E+18, 5.351E+18, 4.588E+18,           MLT 7030
     C 3.931E+18, 3.368E+18, 2.886E+18, 2.473E+18, 2.115E+18,           MLT 7040
     C 1.809E+18, 1.543E+18, 1.317E+18, 1.125E+18, 9.633E+17,           MLT 7050
     C 8.218E+17, 5.536E+17, 3.701E+17, 2.486E+17, 1.647E+17,           MLT 7060
     C 1.108E+17, 7.540E+16, 5.202E+16, 3.617E+16, 2.570E+16,           MLT 7070
     C 1.863E+16, 1.007E+16, 5.433E+15, 2.858E+15, 1.477E+15,           MLT 7080
     C 7.301E+14, 3.553E+14, 1.654E+14, 7.194E+13, 3.052E+13,           MLT 7090
     C 1.351E+13, 6.114E+12, 2.952E+12, 1.479E+12, 7.836E+11/           MLT 7100
      DATA AMOL48/                                                      MLT 7110
     C 2.549E+19, 2.305E+19, 2.080E+19, 1.873E+19, 1.682E+19,           MLT 7120
     C 1.508E+19, 1.357E+19, 1.216E+19, 1.088E+19, 9.701E+18,           MLT 7130
     C 8.616E+18, 7.402E+18, 6.363E+18, 5.471E+18, 4.699E+18,           MLT 7140
     C 4.055E+18, 3.476E+18, 2.987E+18, 2.568E+18, 2.208E+18,           MLT 7150
     C 1.899E+18, 1.632E+18, 1.403E+18, 1.207E+18, 1.033E+18,           MLT 7160
     C 8.834E+17, 6.034E+17, 4.131E+17, 2.839E+17, 1.938E+17,           MLT 7170
     C 1.344E+17, 9.402E+16, 6.670E+16, 4.821E+16, 3.516E+16,           MLT 7180
     C 2.581E+16, 1.421E+16, 7.946E+15, 4.445E+15, 2.376E+15,           MLT 7190
     C 1.198E+15, 5.311E+14, 2.022E+14, 7.221E+13, 2.484E+13,           MLT 7200
     C 9.441E+12, 3.624E+12, 1.610E+12, 7.951E+11, 4.311E+11/           MLT 7210
      DATA AMOL58/                                                      MLT 7220
     C 2.855E+19, 2.484E+19, 2.202E+19, 1.950E+19, 1.736E+19,           MLT 7230
     C 1.552E+19, 1.383E+19, 1.229E+19, 1.087E+19, 9.440E+18,           MLT 7240
     C 8.069E+18, 6.898E+18, 5.893E+18, 5.039E+18, 4.308E+18,           MLT 7250
     C 3.681E+18, 3.156E+18, 2.704E+18, 2.316E+18, 1.982E+18,           MLT 7260
     C 1.697E+18, 1.451E+18, 1.241E+18, 1.061E+18, 9.065E+17,           MLT 7270
     C 7.742E+17, 5.134E+17, 3.423E+17, 2.292E+17, 1.533E+17,           MLT 7280
     C 1.025E+17, 6.927E+16, 4.726E+16, 3.266E+16, 2.261E+16,           MLT 7290
     C 1.599E+16, 8.364E+15, 4.478E+15, 2.305E+15, 1.181E+15,           MLT 7300
     C 6.176E+14, 3.127E+14, 1.531E+14, 7.244E+13, 3.116E+13,           MLT 7310
     C 1.403E+13, 6.412E+12, 3.099E+12, 1.507E+12, 7.814E+11/           MLT 7320
      DATA AMOL68/                                                      MLT 7330
     C 2.548E+19, 2.313E+19, 2.094E+19, 1.891E+19, 1.704E+19,           MLT 7340
     C 1.532E+19, 1.373E+19, 1.228E+19, 1.094E+19, 9.719E+18,           MLT 7350
     C 8.602E+18, 7.589E+18, 6.489E+18, 5.546E+18, 4.739E+18,           MLT 7360
     C 4.050E+18, 3.462E+18, 2.960E+18, 2.530E+18, 2.163E+18,           MLT 7370
     C 1.849E+18, 1.575E+18, 1.342E+18, 1.144E+18, 9.765E+17,           MLT 7380
     C 8.337E+17, 5.640E+17, 3.830E+17, 2.524E+17, 1.761E+17,           MLT 7390
     C 1.238E+17, 8.310E+16, 5.803E+16, 4.090E+16, 2.920E+16,           MLT 7400
     C 2.136E+16, 1.181E+16, 6.426E+15, 3.386E+15, 1.723E+15,           MLT 7410
     C 8.347E+14, 3.832E+14, 1.711E+14, 7.136E+13, 2.924E+13,           MLT 7420
     C 1.189E+13, 5.033E+12, 2.144E+12, 9.688E+11, 5.114E+11/           MLT 7430
                                                                        MLT 7440
      DATA ANO        /                                                 MLT 7450
     C  3.00E-04,  3.00E-04,  3.00E-04,  3.00E-04,  3.00E-04,           MLT 7460
     C  3.00E-04,  3.00E-04,  3.00E-04,  3.00E-04,  3.00E-04,           MLT 7470
     C  3.00E-04,  3.00E-04,  3.00E-04,  2.99E-04,  2.95E-04,           MLT 7480
     C  2.83E-04,  2.68E-04,  2.52E-04,  2.40E-04,  2.44E-04,           MLT 7490
     C  2.55E-04,  2.77E-04,  3.07E-04,  3.60E-04,  4.51E-04,           MLT 7500
     C  6.85E-04,  1.28E-03,  2.45E-03,  4.53E-03,  7.14E-03,           MLT 7510
     C  9.34E-03,  1.12E-02,  1.19E-02,  1.17E-02,  1.10E-02,           MLT 7520
     C  1.03E-02,  1.01E-02,  1.01E-02,  1.03E-02,  1.15E-02,           MLT 7530
     C  1.61E-02,  2.68E-02,  7.01E-02,  2.13E-01,  7.12E-01,           MLT 7540
     C  2.08E+00,  4.50E+00,  7.98E+00,  1.00E+01,  1.00E+01/           MLT 7550
      DATA SO2       /                                                  MLT 7560
     C  3.00E-04,  2.74E-04,  2.36E-04,  1.90E-04,  1.46E-04,           MLT 7570
     C  1.18E-04,  9.71E-05,  8.30E-05,  7.21E-05,  6.56E-05,           MLT 7580
     C  6.08E-05,  5.79E-05,  5.60E-05,  5.59E-05,  5.64E-05,           MLT 7590
     C  5.75E-05,  5.75E-05,  5.37E-05,  4.78E-05,  3.97E-05,           MLT 7600
     C  3.19E-05,  2.67E-05,  2.28E-05,  2.07E-05,  1.90E-05,           MLT 7610
     C  1.75E-05,  1.54E-05,  1.34E-05,  1.21E-05,  1.16E-05,           MLT 7620
     C  1.21E-05,  1.36E-05,  1.65E-05,  2.10E-05,  2.77E-05,           MLT 7630
     C  3.56E-05,  4.59E-05,  5.15E-05,  5.11E-05,  4.32E-05,           MLT 7640
     C  2.83E-05,  1.33E-05,  5.56E-06,  2.24E-06,  8.96E-07,           MLT 7650
     C  3.58E-07,  1.43E-07,  5.73E-08,  2.29E-08,  9.17E-09/           MLT 7660
      DATA ANO2       /                                                 MLT 7670
     C  2.30E-05,  2.30E-05,  2.30E-05,  2.30E-05,  2.30E-05,           MLT 7680
     C  2.30E-05,  2.30E-05,  2.30E-05,  2.30E-05,  2.32E-05,           MLT 7690
     C  2.38E-05,  2.62E-05,  3.15E-05,  4.45E-05,  7.48E-05,           MLT 7700
     C  1.71E-04,  3.19E-04,  5.19E-04,  7.71E-04,  1.06E-03,           MLT 7710
     C  1.39E-03,  1.76E-03,  2.16E-03,  2.58E-03,  3.06E-03,           MLT 7720
     C  3.74E-03,  4.81E-03,  6.16E-03,  7.21E-03,  7.28E-03,           MLT 7730
     C  6.26E-03,  4.03E-03,  2.17E-03,  1.15E-03,  6.66E-04,           MLT 7740
     C  4.43E-04,  3.39E-04,  2.85E-04,  2.53E-04,  2.31E-04,           MLT 7750
     C  2.15E-04,  2.02E-04,  1.92E-04,  1.83E-04,  1.76E-04,           MLT 7760
     C  1.70E-04,  1.64E-04,  1.59E-04,  1.55E-04,  1.51E-04/           MLT 7770
      DATA ANH3       /                                                 MLT 7780
     C  5.00E-04,  5.00E-04,  4.63E-04,  3.80E-04,  2.88E-04,           MLT 7790
     C  2.04E-04,  1.46E-04,  9.88E-05,  6.48E-05,  3.77E-05,           MLT 7800
     C  2.03E-05,  1.09E-05,  6.30E-06,  3.12E-06,  1.11E-06,           MLT 7810
     C  4.47E-07,  2.11E-07,  1.10E-07,  6.70E-08,  3.97E-08,           MLT 7820
     C  2.41E-08,  1.92E-08,  1.72E-08,  1.59E-08,  1.44E-08,           MLT 7830
     C  1.23E-08,  9.37E-09,  6.35E-09,  3.68E-09,  1.82E-09,           MLT 7840
     C  9.26E-10,  2.94E-10,  8.72E-11,  2.98E-11,  1.30E-11,           MLT 7850
     C  7.13E-12,  4.80E-12,  3.66E-12,  3.00E-12,  2.57E-12,           MLT 7860
     C  2.27E-12,  2.04E-12,  1.85E-12,  1.71E-12,  1.59E-12,           MLT 7870
     C  1.48E-12,  1.40E-12,  1.32E-12,  1.25E-12,  1.19E-12/           MLT 7880
      DATA HNO3      /                                                  MLT 7890
     C  5.00E-05,  5.96E-05,  6.93E-05,  7.91E-05,  8.87E-05,           MLT 7900
     C  9.75E-05,  1.11E-04,  1.26E-04,  1.39E-04,  1.53E-04,           MLT 7910
     C  1.74E-04,  2.02E-04,  2.41E-04,  2.76E-04,  3.33E-04,           MLT 7920
     C  4.52E-04,  7.37E-04,  1.31E-03,  2.11E-03,  3.17E-03,           MLT 7930
     C  4.20E-03,  4.94E-03,  5.46E-03,  5.74E-03,  5.84E-03,           MLT 7940
     C  5.61E-03,  4.82E-03,  3.74E-03,  2.59E-03,  1.64E-03,           MLT 7950
     C  9.68E-04,  5.33E-04,  2.52E-04,  1.21E-04,  7.70E-05,           MLT 7960
     C  5.55E-05,  4.45E-05,  3.84E-05,  3.49E-05,  3.27E-05,           MLT 7970
     C  3.12E-05,  3.01E-05,  2.92E-05,  2.84E-05,  2.78E-05,           MLT 7980
     C  2.73E-05,  2.68E-05,  2.64E-05,  2.60E-05,  2.57E-05/           MLT 7990
      DATA OH        /                                                  MLT 8000
     C  4.40E-08,  4.40E-08,  4.40E-08,  4.40E-08,  4.40E-08,           MLT 8010
     C  4.40E-08,  4.40E-08,  4.41E-08,  4.45E-08,  4.56E-08,           MLT 8020
     C  4.68E-08,  4.80E-08,  4.94E-08,  5.19E-08,  5.65E-08,           MLT 8030
     C  6.75E-08,  8.25E-08,  1.04E-07,  1.30E-07,  1.64E-07,           MLT 8040
     C  2.16E-07,  3.40E-07,  5.09E-07,  7.59E-07,  1.16E-06,           MLT 8050
     C  2.18E-06,  5.00E-06,  1.17E-05,  3.40E-05,  8.35E-05,           MLT 8060
     C  1.70E-04,  2.85E-04,  4.06E-04,  5.11E-04,  5.79E-04,           MLT 8070
     C  6.75E-04,  9.53E-04,  1.76E-03,  3.74E-03,  7.19E-03,           MLT 8080
     C  1.12E-02,  1.13E-02,  6.10E-03,  1.51E-03,  2.42E-04,           MLT 8090
     C  4.47E-05,  1.77E-05,  1.19E-05,  1.35E-05,  2.20E-05/           MLT 8100
      DATA HF        /                                                  MLT 8110
     C  1.00E-08,  1.00E-08,  1.23E-08,  1.97E-08,  3.18E-08,           MLT 8120
     C  5.63E-08,  9.18E-08,  1.53E-07,  2.41E-07,  4.04E-07,           MLT 8130
     C  6.57E-07,  1.20E-06,  1.96E-06,  3.12E-06,  4.62E-06,           MLT 8140
     C  7.09E-06,  1.05E-05,  1.69E-05,  2.57E-05,  4.02E-05,           MLT 8150
     C  5.77E-05,  7.77E-05,  9.90E-05,  1.23E-04,  1.50E-04,           MLT 8160
     C  1.82E-04,  2.30E-04,  2.83E-04,  3.20E-04,  3.48E-04,           MLT 8170
     C  3.72E-04,  3.95E-04,  4.10E-04,  4.21E-04,  4.24E-04,           MLT 8180
     C  4.25E-04,  4.25E-04,  4.25E-04,  4.25E-04,  4.25E-04,           MLT 8190
     C  4.25E-04,  4.25E-04,  4.25E-04,  4.25E-04,  4.25E-04,           MLT 8200
     C  4.25E-04,  4.25E-04,  4.25E-04,  4.25E-04,  4.25E-04/           MLT 8210
      DATA HCL       /                                                  MLT 8220
     C  1.00E-03,  7.49E-04,  5.61E-04,  4.22E-04,  3.19E-04,           MLT 8230
     C  2.39E-04,  1.79E-04,  1.32E-04,  9.96E-05,  7.48E-05,           MLT 8240
     C  5.68E-05,  4.59E-05,  4.36E-05,  6.51E-05,  1.01E-04,           MLT 8250
     C  1.63E-04,  2.37E-04,  3.13E-04,  3.85E-04,  4.42E-04,           MLT 8260
     C  4.89E-04,  5.22E-04,  5.49E-04,  5.75E-04,  6.04E-04,           MLT 8270
     C  6.51E-04,  7.51E-04,  9.88E-04,  1.28E-03,  1.57E-03,           MLT 8280
     C  1.69E-03,  1.74E-03,  1.76E-03,  1.79E-03,  1.80E-03,           MLT 8290
     C  1.80E-03,  1.80E-03,  1.80E-03,  1.80E-03,  1.80E-03,           MLT 8300
     C  1.80E-03,  1.80E-03,  1.80E-03,  1.80E-03,  1.80E-03,           MLT 8310
     C  1.80E-03,  1.80E-03,  1.80E-03,  1.80E-03,  1.80E-03/           MLT 8320
      DATA HBR       /                                                  MLT 8330
     C  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,           MLT 8340
     C  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,           MLT 8350
     C  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,           MLT 8360
     C  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,           MLT 8370
     C  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,  1.70E-06,           MLT 8380
     C  1.71E-06,  1.76E-06,  1.90E-06,  2.26E-06,  2.82E-06,           MLT 8390
     C  3.69E-06,  4.91E-06,  6.13E-06,  6.85E-06,  7.08E-06,           MLT 8400
     C  7.14E-06,  7.15E-06,  7.15E-06,  7.15E-06,  7.15E-06,           MLT 8410
     C  7.15E-06,  7.15E-06,  7.15E-06,  7.15E-06,  7.15E-06,           MLT 8420
     C  7.15E-06,  7.15E-06,  7.15E-06,  7.15E-06,  7.15E-06/           MLT 8430
      DATA HI        /                                                  MLT 8440
     C  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,           MLT 8450
     C  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,           MLT 8460
     C  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,           MLT 8470
     C  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,           MLT 8480
     C  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,           MLT 8490
     C  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,           MLT 8500
     C  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,           MLT 8510
     C  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,           MLT 8520
     C  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,           MLT 8530
     C  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06,  3.00E-06/           MLT 8540
      DATA CLO       /                                                  MLT 8550
     C  1.00E-08,  1.00E-08,  1.00E-08,  1.00E-08,  1.00E-08,           MLT 8560
     C  1.00E-08,  1.00E-08,  1.00E-08,  1.01E-08,  1.05E-08,           MLT 8570
     C  1.21E-08,  1.87E-08,  3.18E-08,  5.61E-08,  9.99E-08,           MLT 8580
     C  1.78E-07,  3.16E-07,  5.65E-07,  1.04E-06,  2.04E-06,           MLT 8590
     C  4.64E-06,  8.15E-06,  1.07E-05,  1.52E-05,  2.24E-05,           MLT 8600
     C  3.97E-05,  8.48E-05,  1.85E-04,  3.57E-04,  5.08E-04,           MLT 8610
     C  6.07E-04,  5.95E-04,  4.33E-04,  2.51E-04,  1.56E-04,           MLT 8620
     C  1.04E-04,  7.69E-05,  6.30E-05,  5.52E-05,  5.04E-05,           MLT 8630
     C  4.72E-05,  4.49E-05,  4.30E-05,  4.16E-05,  4.03E-05,           MLT 8640
     C  3.93E-05,  3.83E-05,  3.75E-05,  3.68E-05,  3.61E-05/           MLT 8650
      DATA OCS       /                                                  MLT 8660
     C  6.00E-04,  5.90E-04,  5.80E-04,  5.70E-04,  5.62E-04,           MLT 8670
     C  5.55E-04,  5.48E-04,  5.40E-04,  5.32E-04,  5.25E-04,           MLT 8680
     C  5.18E-04,  5.09E-04,  4.98E-04,  4.82E-04,  4.60E-04,           MLT 8690
     C  4.26E-04,  3.88E-04,  3.48E-04,  3.09E-04,  2.74E-04,           MLT 8700
     C  2.41E-04,  2.14E-04,  1.88E-04,  1.64E-04,  1.37E-04,           MLT 8710
     C  1.08E-04,  6.70E-05,  2.96E-05,  1.21E-05,  4.31E-06,           MLT 8720
     C  1.60E-06,  6.71E-07,  4.35E-07,  3.34E-07,  2.80E-07,           MLT 8730
     C  2.47E-07,  2.28E-07,  2.16E-07,  2.08E-07,  2.03E-07,           MLT 8740
     C  1.98E-07,  1.95E-07,  1.92E-07,  1.89E-07,  1.87E-07,           MLT 8750
     C  1.85E-07,  1.83E-07,  1.81E-07,  1.80E-07,  1.78E-07/           MLT 8760
      DATA H2CO      /                                                  MLT 8770
     C  2.40E-03,  1.07E-03,  4.04E-04,  2.27E-04,  1.40E-04,           MLT 8780
     C  1.00E-04,  7.44E-05,  6.04E-05,  5.01E-05,  4.22E-05,           MLT 8790
     C  3.63E-05,  3.43E-05,  3.39E-05,  3.50E-05,  3.62E-05,           MLT 8800
     C  3.62E-05,  3.58E-05,  3.50E-05,  3.42E-05,  3.39E-05,           MLT 8810
     C  3.43E-05,  3.68E-05,  4.03E-05,  4.50E-05,  5.06E-05,           MLT 8820
     C  5.82E-05,  7.21E-05,  8.73E-05,  1.01E-04,  1.11E-04,           MLT 8830
     C  1.13E-04,  1.03E-04,  7.95E-05,  4.82E-05,  1.63E-05,           MLT 8840
     C  5.10E-06,  2.00E-06,  1.05E-06,  6.86E-07,  5.14E-07,           MLT 8850
     C  4.16E-07,  3.53E-07,  3.09E-07,  2.76E-07,  2.50E-07,           MLT 8860
     C  2.30E-07,  2.13E-07,  1.98E-07,  1.86E-07,  1.75E-07/           MLT 8870
      DATA HOCL      /                                                  MLT 8880
     C  7.70E-06,  1.06E-05,  1.22E-05,  1.14E-05,  9.80E-06,           MLT 8890
     C  8.01E-06,  6.42E-06,  5.42E-06,  4.70E-06,  4.41E-06,           MLT 8900
     C  4.34E-06,  4.65E-06,  5.01E-06,  5.22E-06,  5.60E-06,           MLT 8910
     C  6.86E-06,  8.77E-06,  1.20E-05,  1.63E-05,  2.26E-05,           MLT 8920
     C  3.07E-05,  4.29E-05,  5.76E-05,  7.65E-05,  9.92E-05,           MLT 8930
     C  1.31E-04,  1.84E-04,  2.45E-04,  2.96E-04,  3.21E-04,           MLT 8940
     C  3.04E-04,  2.48E-04,  1.64E-04,  9.74E-05,  4.92E-05,           MLT 8950
     C  2.53E-05,  1.50E-05,  1.05E-05,  8.34E-06,  7.11E-06,           MLT 8960
     C  6.33E-06,  5.78E-06,  5.37E-06,  5.05E-06,  4.78E-06,           MLT 8970
     C  4.56E-06,  4.37E-06,  4.21E-06,  4.06E-06,  3.93E-06/           MLT 8980
      DATA AN2        /                                                 MLT 8990
     C  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,           MLT 9000
     C  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,           MLT 9010
     C  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,           MLT 9020
     C  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,           MLT 9030
     C  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,           MLT 9040
     C  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,           MLT 9050
     C  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,           MLT 9060
     C  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,  7.81E+05,           MLT 9070
     C  7.81E+05,  7.81E+05,  7.81E+05,  7.80E+05,  7.79E+05,           MLT 9080
     C  7.77E+05,  7.74E+05,  7.70E+05,  7.65E+05,  7.60E+05/           MLT 9090
      DATA HCN       /                                                  MLT 9100
     C  1.70E-04,  1.65E-04,  1.63E-04,  1.61E-04,  1.60E-04,           MLT 9110
     C  1.60E-04,  1.60E-04,  1.60E-04,  1.60E-04,  1.60E-04,           MLT 9120
     C  1.60E-04,  1.60E-04,  1.60E-04,  1.59E-04,  1.57E-04,           MLT 9130
     C  1.55E-04,  1.52E-04,  1.49E-04,  1.45E-04,  1.41E-04,           MLT 9140
     C  1.37E-04,  1.34E-04,  1.30E-04,  1.25E-04,  1.19E-04,           MLT 9150
     C  1.13E-04,  1.05E-04,  9.73E-05,  9.04E-05,  8.46E-05,           MLT 9160
     C  8.02E-05,  7.63E-05,  7.30E-05,  7.00E-05,  6.70E-05,           MLT 9170
     C  6.43E-05,  6.21E-05,  6.02E-05,  5.88E-05,  5.75E-05,           MLT 9180
     C  5.62E-05,  5.50E-05,  5.37E-05,  5.25E-05,  5.12E-05,           MLT 9190
     C  5.00E-05,  4.87E-05,  4.75E-05,  4.62E-05,  4.50E-05/           MLT 9200
      DATA CH3CL     /                                                  MLT 9210
     C  7.00E-04,  6.70E-04,  6.43E-04,  6.22E-04,  6.07E-04,           MLT 9220
     C  6.02E-04,  6.00E-04,  6.00E-04,  5.98E-04,  5.94E-04,           MLT 9230
     C  5.88E-04,  5.79E-04,  5.66E-04,  5.48E-04,  5.28E-04,           MLT 9240
     C  5.03E-04,  4.77E-04,  4.49E-04,  4.21E-04,  3.95E-04,           MLT 9250
     C  3.69E-04,  3.43E-04,  3.17E-04,  2.86E-04,  2.48E-04,           MLT 9260
     C  1.91E-04,  1.10E-04,  4.72E-05,  1.79E-05,  7.35E-06,           MLT 9270
     C  3.03E-06,  1.32E-06,  8.69E-07,  6.68E-07,  5.60E-07,           MLT 9280
     C  4.94E-07,  4.56E-07,  4.32E-07,  4.17E-07,  4.05E-07,           MLT 9290
     C  3.96E-07,  3.89E-07,  3.83E-07,  3.78E-07,  3.73E-07,           MLT 9300
     C  3.69E-07,  3.66E-07,  3.62E-07,  3.59E-07,  3.56E-07/           MLT 9310
      DATA H2O2      /                                                  MLT 9320
     C  2.00E-04,  1.95E-04,  1.92E-04,  1.89E-04,  1.84E-04,           MLT 9330
     C  1.77E-04,  1.66E-04,  1.49E-04,  1.23E-04,  9.09E-05,           MLT 9340
     C  5.79E-05,  3.43E-05,  1.95E-05,  1.08E-05,  6.59E-06,           MLT 9350
     C  4.20E-06,  2.94E-06,  2.30E-06,  2.24E-06,  2.68E-06,           MLT 9360
     C  3.68E-06,  5.62E-06,  1.03E-05,  1.97E-05,  3.70E-05,           MLT 9370
     C  6.20E-05,  1.03E-04,  1.36E-04,  1.36E-04,  1.13E-04,           MLT 9380
     C  8.51E-05,  6.37E-05,  5.17E-05,  4.44E-05,  3.80E-05,           MLT 9390
     C  3.48E-05,  3.62E-05,  5.25E-05,  1.26E-04,  3.77E-04,           MLT 9400
     C  1.12E-03,  2.00E-03,  1.68E-03,  4.31E-04,  4.98E-05,           MLT 9410
     C  6.76E-06,  8.38E-07,  9.56E-08,  1.00E-08,  1.00E-09/           MLT 9420
      DATA C2H2      /                                                  MLT 9430
     C  3.00E-04,  1.72E-04,  9.57E-05,  6.74E-05,  5.07E-05,           MLT 9440
     C  3.99E-05,  3.19E-05,  2.80E-05,  2.55E-05,  2.40E-05,           MLT 9450
     C  2.27E-05,  2.08E-05,  1.76E-05,  1.23E-05,  7.32E-06,           MLT 9460
     C  4.52E-06,  2.59E-06,  1.55E-06,  8.63E-07,  5.30E-07,           MLT 9470
     C  3.10E-07,  1.89E-07,  1.04E-07,  5.75E-08,  2.23E-08,           MLT 9480
     C  8.51E-09,  4.09E-09,  2.52E-09,  1.86E-09,  1.52E-09,           MLT 9490
     C  1.32E-09,  1.18E-09,  1.08E-09,  9.97E-10,  9.34E-10,           MLT 9500
     C  8.83E-10,  8.43E-10,  8.10E-10,  7.83E-10,  7.60E-10,           MLT 9510
     C  7.40E-10,  7.23E-10,  7.07E-10,  6.94E-10,  6.81E-10,           MLT 9520
     C  6.70E-10,  6.59E-10,  6.49E-10,  6.40E-10,  6.32E-10/           MLT 9530
      DATA C2H6      /                                                  MLT 9540
     C  2.00E-03,  2.00E-03,  2.00E-03,  2.00E-03,  1.98E-03,           MLT 9550
     C  1.95E-03,  1.90E-03,  1.85E-03,  1.79E-03,  1.72E-03,           MLT 9560
     C  1.58E-03,  1.30E-03,  9.86E-04,  7.22E-04,  4.96E-04,           MLT 9570
     C  3.35E-04,  2.14E-04,  1.49E-04,  1.05E-04,  7.96E-05,           MLT 9580
     C  6.01E-05,  4.57E-05,  3.40E-05,  2.60E-05,  1.89E-05,           MLT 9590
     C  1.22E-05,  5.74E-06,  2.14E-06,  8.49E-07,  3.42E-07,           MLT 9600
     C  1.34E-07,  5.39E-08,  2.25E-08,  1.04E-08,  6.57E-09,           MLT 9610
     C  4.74E-09,  3.79E-09,  3.28E-09,  2.98E-09,  2.79E-09,           MLT 9620
     C  2.66E-09,  2.56E-09,  2.49E-09,  2.43E-09,  2.37E-09,           MLT 9630
     C  2.33E-09,  2.29E-09,  2.25E-09,  2.22E-09,  2.19E-09/           MLT 9640
      DATA PH3       /                                                  MLT 9650
     C  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,           MLT 9660
     C  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,           MLT 9670
     C  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,           MLT 9680
     C  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,           MLT 9690
     C  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,           MLT 9700
     C  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,           MLT 9710
     C  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,           MLT 9720
     C  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,           MLT 9730
     C  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,           MLT 9740
     C  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14,  1.00E-14/           MLT 9750
      END                                                               MLT 9760
      SUBROUTINE MSRAD(IV,V,ISOURC,IDAY,ANGLEM,SS,                      MSR  100
     2     DMF,DMFS,UMF,UMFS)                                           MSR  110
C                                                                       MSR  120
C         (1) SETS UP OPTICAL PROPERTIES PROFILES FOR VERTICAL          MSR  130
C             PATH                                                      MSR  140
C         (2) CALLS FLXADD WHICH RETURNS MS SOURCE FUNCTION, J,         MSR  150
C             FOR PATH                                                  MSR  160
C         (3) EVALUATES PATH INTEGRAL OF SOURCE FUNCTION, I.E.          MSR  170
C             MS RADIANCE CONTRIBUTION                                  MSR  180
C                                                                       MSR  190
C                                 A.E.R. 1986                           MSR  200
C                                                                       MSR  210
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  MSR  220
     1  ,MODTRN                                                         MSR 220A
      LOGICAL MODTRN                                                    MSR 220B
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   MSR  230
     1    RAINRT                                                        MSR  240
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               MSR  250
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            MSR  260
C     COMMON             WPATH(68, 63),TBBY(68)                         MSR -270
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   MSR 270A
      COMMON ABSC(5,47),EXTC(5,47),ASYC(5,47),VX2(47),AWCCON(5)         MSR  280
      COMMON /AER/ XX1,XX2,XX3,XX4,XX5,                                 MSR  290
     X YY1,YY2,YY3,YY4,YY5,ZZ1,ZZ2,ZZ3,ZZ4,ZZ5                          MSR  300
      COMMON /SOLS/ AH1(68),ARH(68),                                    MSR  310
C    X   WPATHS(68,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),JTURN,MSR -320
C    X ANGSUN,CSZEN(68)                                                 MSR -330
     1  WPATHS(102,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),      MSR 320A
     2  JTURN,ANGSUN,CSZEN(68),TBBYS(102,12),PATMS(102,12)              MSR 320B
C                                                                       MSR  340
C     COMMON /TRAN/ABB(19),                                             MSR -350
C    1                     BTOP(50),BMID(34),TMD(34),TMOLS(34),         MSR -360
C    2 TAERS(34),TCONT(34),DCONT(68)                                    MSR -370
C     COMMON /MNLT/TBBSS(68),TBBMS(34),WPMS(34,63),IMSMX,WPMSS(34,63)   MSR -380
      COMMON /TRAN/BTOP(50),TMOLS(34),TAERS(34),TCONT(34),DCONT(68)     MSR 350A
      COMMON /MSRD/TLE(34),COSBAR(34),OMEGA0(68),UPF(10,34),DNF(10,34), MSR  390
     1 TAER(50),                                             DTX7(68),  MSR  400
     2 DAERS(68),ASYIK(68),ASYDM(68),                                   MSR  410
     3 STRN(0:34),DMOLS(68), DSTRN(0:68),FDNSRF    ,FDNSRT,IKMX,        MSR  420
     4               FDNTRF    ,FDNTRT                                  MSR  430
     5  ,TAUT(34)                                                       MSR 430A
      COMMON/CNSTNS/PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                       MSR 430B
      DIMENSION         DMF(34),DMFS(34),UMF(34),UMFS(34)               MSR  440
C                                                                       MSR  450
      IKMAX = IKMAX + 1                                                 MSR  460
      IKM=IKMAX-1                                                       MSR  470
C                                                                       MSR  480
C  FOR H1 < H2, CALCULATE DOWNWARD RADIANCE                             MSR  490
C                                                                       MSR  500
C                                                                       MSR  510
      DO 222 IK=IKLO,IKM-1                                              MSR  520
C                                                                       MSR  530
C  AEROSOL PATH FOR EACH LAYER (NOT CUMULATIVE)                         MSR  540
C                                                                       MSR  550
C                                                                       MSR  560
C  SOLAR TRANSMITTANCE FROM TOP OF ATMOSPHERE                           MSR  570
C                                                                       MSR  580
      STRN(IK-1)=DSTRN(IKMAX-IK)                                        MSR  590
      IF(IHAZE .GT. 0) THEN                                             MSR  600
C                                                                       MSR  610
C  CALCULATE AEROSOL ASYMMETRY FACTOR FOR GIVEN LAYER                   MSR  620
C                                                                       MSR  630
      DENOM  =  ASYDM(IK)                                               MSR  640
      IF(DENOM .LE. 0.) THEN                                            MSR  650
      COSBAR(IKM-IK) = 0.                                               MSR  660
      ELSE                                                              MSR  670
      COSBAR(IKM-IK)= ASYIK(IK)/DENOM                                   MSR  680
      ENDIF                                                             MSR  690
      ENDIF                                                             MSR  700
C                                                                       MSR 700A
C         CONVERT TAUT FROM CUMULATIVE TRANSMITTANCE TO LAYER OPTICAL   MSR 700B
C         DEPTH                                                         MSR 700C
C                                                                       MSR 700D
          IF(TAUT(IK).GT.0.AND.TAUT(IK+1).GT.0.)THEN                    MSR 700E
              TAUT(IK)=-LOG(TAUT(IK)/TAUT(IK+1))                        MSR 700F
          ELSE                                                          MSR 700G
              TAUT(IK)=BIGEXP                                           MSR 700H
          ENDIF                                                         MSR 700I
      IF(TAUT(IK) .LT. 0.)TAUT(IK) = 0.
C                                                                       MSR  710
C  TAER,TAERS, AND TMOLS ARE TOTAL AEROSOL, AEROSOL SCATTERING, AND     MSR  720
C  MOLECULAR SCATTERING OPTICAL THICKNESS FOR GIVEN LAYER               MSR  730
C                                                                       MSR  740
      TAER(IKM-IK)=DTX7(IK+1)-DTX7(IK)                                  MSR  750
      TAERS(IKM-IK)=DAERS(IK+1)-DAERS(IK)                               MSR  760
      TMOLS(IKM-IK)=DMOLS(IK+1)-DMOLS(IK)                               MSR  770
C                                                                       MSR  780
C  WEIGHT ASYMMETRY FACTOR                                              MSR  790
C                                                                       MSR  800
      IF(TAERS(IKM-IK) .LE.0.) THEN                                     MSR  810
            COSBAR(IKM-IK) = 0.                                         MSR  820
      ELSE                                                              MSR  830
      COSBAR(IKM-IK)=COSBAR(IKM-IK)*TAERS(IKM-IK)/(TAERS(IKM-IK)+       MSR  840
     1 TMOLS(IKM-IK))                                                   MSR  850
      ENDIF                                                             MSR  860
C                                                                       MSR  870
C  TCONT IS MOLECULAR CONTINUUM OPTICAL THICKNESS FOR GIVEN LAYER       MSR  880
C                                                                       MSR  890
      TCONT(IKM-IK)=DCONT(IK+1)-DCONT(IK)                               MSR  900
222   CONTINUE
      IF(IHAZE .GT. 0) THEN                                             MSR  910
C                                                                       MSR  920
C  CALCULATE ASYMMETRY FACTOR FOR BOTTOM OF ATMOSPHERE                  MSR  930
C                                                                       MSR  940
      DENOM =  ASYDM(1)                                                 MSR  950
      IF(DENOM .LE. 0.)  THEN                                           MSR  960
            COSBAR(IKM) = 0.                                            MSR  970
      ELSE                                                              MSR  980
      COSBAR(IKM)= ASYIK(IK)/DENOM                                      MSR  990
      ENDIF                                                             MSR 1000
      ENDIF                                                             MSR 1010
      STRN(IKM-1)=DSTRN(IKMAX-IKM)                                      MSR 1020
      STRN(IKM)=DSTRN(0)                                                MSR 1030
      TAER(IKM)=DTX7(1)                                                 MSR 1040
      TAERS(IKM)=DAERS(1)                                               MSR 1050
      TMOLS(IKM)=DMOLS(1)                                               MSR 1060
      IF(TAUT(IKM).GT.0.)THEN                                           MSR1060A
          TAUT(IKM)=-LOG(TAUT(IKM))                                     MSR1060B
      ELSE                                                              MSR1060C
          TAUT(IKM)=BIGEXP                                              MSR1060D
      ENDIF                                                             MSR1060E
      IF(TAUT(IKM) .LT. 0.)TAUT(IKM) = 0.
C                                                                       MSR 1070
C   WEIGHT ASYMMETRY FACTOR                                             MSR 1080
C                                                                       MSR 1090
      IF(TAERS(IKM) .LE.0.) THEN                                        MSR 1100
            COSBAR(IKM) = 0.                                            MSR 1110
      ELSE                                                              MSR 1120
      COSBAR(IKM)=COSBAR(IKM)*TAERS(IKM)/(TAERS(IKM)+TMOLS(IKM))        MSR 1130
      ENDIF                                                             MSR 1140
      TCONT(IKM)=DCONT(1)                                               MSR 1150
C                                                                       MSR 1160
C   FOR H1 > H2, CALCULATE UPWARD RADIANCE                              MSR 1170
C                                                                       MSR 1180
C                                                                       MSR 1190
C   CALCULATE SOLAR INTENSITY AT TOP OF ATMOSPHERE                      MSR 1200
C                                                                       MSR 1210
      S0 = 0.                                                           MSR 1220
      IF(IEMSCT .EQ. 2) CALL SOURCE(V,ISOURC,IDAY,ANGLEM,S0)            MSR 1230
C                                                                       MSR 1240
C                                                                       MSR 1250
C   CALL FLUX ADDING SUBROUTINE                                         MSR 1260
C                                                                       MSR 1270
      IF(MODTRN)THEN                                                    MSR1270A
          CALL BMFLUX(TLE,COSBAR,TAER,TAUT,OMEGA0,UPF,DNF,IV,IKMAX,     MSR1270B
     1      CSZEN,S0,STRN,FDNSRT,FDNTRT,DMF,DMFS,UMF,UMFS)              MSR1270C
      ELSE                                                              MSR1270D
      CALL FLXADD (TLE,COSBAR,TAER,OMEGA0,UPF,DNF,IV,     IKMAX,        MSR 1280
     2 CSZEN,S0,STRN,            FDNSRT,FDNTRT,                         MSR 1290
     3     DMF,DMFS,UMF,UMFS)                                           MSR 1300
      ENDIF                                                             MSR1300A
      RETURN                                                            MSR 1310
      END                                                               MSR 1320
      SUBROUTINE O2CONT(V,SIGMA,ALPHA,BETA)                             O2C  100
C                                                                       O2C  110
C     THIS ROUTINE IS DRIVEN BY FREQUENCY, RETURNING ONLY THE           O2C  120
C     O2 COEFFICIENTS, INDEPENDENT OF TEMPERATURE.                      O2C  130
C                                                                       O2C  140
C  *******************************************************************  O2C  150
C  *  THESE COMMENTS APPLY TO THE COLUME ARRAYS FOR:                 *  O2C  160
C  *       PBAR*UBAR(O2)                                             *  O2C  170
C  *       PBAR*UBAR(O2)*DT                                          *  O2C  180
C  *   AND PBAR*UBAR(O2)*DT*DT    WHERE:  DT=TBAR-220.               *  O2C  190
C  *  THAT HAVE BEEN COMPILED IN OTHER PARTS OF THE LOWTRAN CODE     *  O2C  200
C  *                                                                 *  O2C  210
C  *  LOWTRAN7 COMPATIBLE:                                           *  O2C  220
C  *  O2 CONTINUUM SUBROUTINE FOR 1395-1760CM-1                      *  O2C  230
C  *  MODIFIED BY G.P. ANDERSON, APRIL '88                           *  O2C  240
C  *                                                                 *  O2C  250
C  *  THE EXPONENTIAL TEMPERATURE EMPLOYED IN THE FASCOD2 ALGORITHM  *  O2C  260
C  *  (SEE BELOW) IS NOT READILY SUITABLE FOR LOWTRAN.  THEREFORE    *  O2C  270
C  *  THE EXPONENTIALS HAVE BEEN LINEARLY EXPANDED, KEEPING ONLY THE *  O2C  280
C  *  LINEAR AND QUADRATIC TERMS:                                    *  O2C  290
C  *                                                                 *  O2C  300
C  *  EXP(A*DT)=1.+ A*DT + (A*DT)**2/2. + ....                       *  O2C  310
C  *                                                                 *  O2C  320
C  *     EXP(B*DT*DT)=1.+ B*DT*DT + (B*DT*DT)**2/2. + ....           *  O2C  330
C  *                                                                 *  O2C  340
C  *  THE PRODUCT OF THE TWO TERMS IS:                               *  O2C  350
C  *                                                                 *  O2C  360
C  *     (1. + A*DT + (A*A/2. + B)*DT*DT )                           *  O2C  370
C  *                                                                 *  O2C  380
C  *  THIS EXPANSION ONLY WORKS WELL FOR SMALL VALUES OF X IN EXP(X) *  O2C  390
C  *                                                                 *  O2C  400
C  *  SINCE DT = T-220., THE APPROXIMATION IS VERY GOOD UNTIL        *  O2C  410
C  *  T.GT.260. OR DT.GT.40.   AT T=280, THE MAXIMUM ERRORS ARE STILL*  O2C  420
C  *  LESS THAN 10% BUT AT T=300, THOSE ERRORS ARE AS LARGE AS 20%   *  O2C  430
C  *******************************************************************  O2C  440
C                                                                       O2C  450
C     THE FOLLOWING COMMENTS ARE EXCERPTED DIRECTLY FROM FASCOD2        O2C  460
C                                                                       O2C  470
C      THIS SUBROUTINE CONTAINS THE ROGERS AND WALSHAW                  O2C  480
C      EQUIVALENT COEFFICIENTS DERIVED FROM THE THEORETICAL             O2C  490
C      VALUES SUPPLIED BY ROLAND DRAYSON. THESE VALUES USE              O2C  500
C      THE SAME DATA AS TIMOFEYEV AND AGREE WITH TIMOFEYEV'S RESULTS.   O2C  510
C      THE DATA ARE IN THE FORM OF STRENGTHS(O2SO) AND TWO              O2C  520
C      COEFFICIENTS (O2A & O2B),  WHICH ARE USED TO CORRECT FOR         O2C  530
C      TEMPERATURE. THE DEPENDENCY ON PRESSURE SQUARED                  O2C  540
C      IS CONTAINED IN THE P*WO2 PART OF THE CONSTANT.                  O2C  550
C      NOTE THAT SINCE THE COEFFICIENTS ARE FOR AIR, THE                O2C  560
C      THE STRENGTHS ARE DIVIDED BY THE O2 MIXING RATIO FOR             O2C  570
C      DRY AIR OF 0.20946 (THIS IS ASSUMED CONSTANT).                   O2C  580
C      ORIGINAL FORMULATION OF THE COEFFICIENTS WAS BY LARRY GORDLEY.   O2C  590
C      THIS VERSION WRITTEN BY EARL THOMPSON, JULY 1984.                O2C  600
C                                                                       O2C  610
C                                                                       O2C  620
      COMMON/O2C/ O2DRAY(74),O2C001(74),O2S0(74),O2A(74),O2B(74),       O2C  630
     X V1O2,V2O2,DVO2,NPTO2                                             O2C  640
      SIGMA =0                                                          O2C  650
      ALPHA =0                                                          O2C  660
      BETA  =0                                                          O2C  670
      IF(V .LT. 1395) GO TO 30                                          O2C  680
      IF(V .GT. 1760) GO TO 30                                          O2C  690
C                                                                       O2C  700
C                                                                       O2C  710
      CALL O2INT(V,V1O2,DVO2,NPTO2,C,O2S0,A,O2A,B,O2B)                  O2C  720
C                                                                       O2C  730
C                                                                       O2C  740
C                                                                       O2C  750
C     OLD 'FASCOD2' TEMPERATURE DEPENDENCE USING BLOCK DATA ARRAYS      O2C  760
C                                                                       O2C  770
C     C(J)=O2S0(I)* EXP(O2A(I)*TD+O2B(I)*TD*TD) /(0.20946*VJ)           O2C  780
C                                                                       O2C  790
C     NEW COEFFICIENT DEFINITIONS FOR LOWTRAN FORMULATION               O2C  800
C                                                                       O2C  810
      ALPHA= A                                                          O2C  820
      BETA=A**2/2.+B                                                    O2C  830
      SIGMA=C/0.20946                                                   O2C  840
C                                                                       O2C  850
C     NEW 'LOWTRAN7' TEMPERATURE DEPENDENCE                             O2C  860
C                                                                       O2C  870
C     THIS WOULD BE THE CODING FOR THE LOWTRAN7 FORMULATION, BUT        O2C  880
C       BECAUSE THE T-DEPENDENCE IS INCLUDED IN THE AMOUNTS, ONLY       O2C  890
C       THE COEFFICIENTS (SIGMA, ALPHA & BETA) ARE BEING RETURNED       O2C  900
C                                                                       O2C  910
C     C(J)=SIGMA*(1.+ALPHA*TD+BETA*TD*TD)                               O2C  920
C                                                                       O2C  930
30    RETURN                                                            O2C  940
      END                                                               O2C  950
      SUBROUTINE O2INT(V1C,V1,DV,NPT,C,CARRAY,A,AARRAY,B,BARRAY)        O2I  100
C                                                                       O2I  110
C     INTERPOLATION FOR O2 PRESSURE INDUCED CONTINUUM, NECESSARY FOR    O2I  120
C          LOWTRAN7 FORMULATION  (MODELED AFTER THE LOWTRAN UV-O3 BANDS)O2I  130
C                                                                       O2I  140
      DIMENSION CARRAY(74),AARRAY(74),BARRAY(74)                        O2I  150
      C=0.                                                              O2I  160
      A=0.                                                              O2I  170
      B=0.                                                              O2I  180
      I=(V1C-V1)/DV+1.00001                                             O2I  190
      IF(I.LT.1  )GO TO 10                                              O2I  200
      IF(I.GT.NPT)GO TO 10                                              O2I  210
      C=CARRAY(I)                                                       O2I  220
      A=AARRAY(I)                                                       O2I  230
      B=BARRAY(I)                                                       O2I  240
10    CONTINUE                                                          O2I  250
      RETURN                                                            O2I  260
      END                                                               O2I  270
      SUBROUTINE O3HHT0(V,C)                                            O3H  100
      COMMON /O3HH0/ V1S,V2S,DVS,NPTS,S(2687)                           O3H  110
C                                                                       O3H  120
      CALL O3INT(V ,V1S,DVS,NPTS,S,C)                                   O3H  130
      RETURN                                                            O3H  140
      END                                                               O3H  150
      SUBROUTINE O3HHT1(V,C)                                            OT1  100
C     SUBROUTINE O3HHT1(V1C,V2C,DVC,NPTC,C)                             OT1  110
      COMMON /O3HH1/ V1S,V2S,DVS,NPTS,S(2690)                           OT1* 120
C                                                                       OT1  130
      CALL O3INT(V ,V1S,DVS,NPTS,S,C)                                   OT1  140
C                                                                       OT1  150
      RETURN                                                            OT1  160
      END                                                               OT1  170
      SUBROUTINE O3HHT2(V,C)                                            OT2  100
      COMMON /O3HH2/ V1S,V2S,DVS,NPTS,S(2690)                           OT2* 110
C                                                                       OT2  120
      CALL O3INT(V ,V1S,DVS,NPTS,S,C)                                   OT2  130
C                                                                       OT2  140
      RETURN                                                            OT2  150
      END                                                               OT2  160
      SUBROUTINE O3INT(V1C,V1,DV,NPT,CONTI,CONTO)                       O3I  100
C                                                                       O3I  110
C     INTERPOLATION  FOR  O3 CONTINUUM WITH LOWTRAN                     O3I  120
C                                                                       O3I  130
      DIMENSION CONTI(2687)                                             O3I  140
      CONTO=0.                                                          O3I  150
      I=(V1C-V1)/DV+1.00001                                             O3I  160
      IF(I.LT.1  )GO TO 10                                              O3I  170
      IF(I.GT.NPT)GO TO 10                                              O3I  180
      CONTO=CONTI(I)                                                    O3I  190
10    CONTINUE                                                          O3I  200
      RETURN                                                            O3I  210
      END                                                               O3I  220
      SUBROUTINE O3UV(V,C)                                              O3V  100
      COMMON /O3UVF/ V1 ,V2 ,DV ,NPT ,S(133)                            O3V  110
C                                                                       O3V  120
C     INTERPOLATION  FOR  O3 CONTINUUM WITH LOWTRAN                     O3V  130
C                                                                       O3V  140
      C    =0.                                                          O3V  150
      I=(V  -V1)/DV+1.00001                                             O3V  160
      IF(I.LT.1   )GO TO 10                                             O3V  170
      IF(I.GT.NPT )GO TO 10                                             O3V  180
      VR = I*DV + V1                                                    O3V  190
      IF(VR. LE. (V+.1) .AND .VR.GE. (V-.1)) GO TO 5                    O3V  200
      IF(I .EQ. NPT ) I=NPT-1                                           O3V  210
      AM = (S(I+1) -S(I))/DV                                            O3V  220
      C0 = S(I) - AM * VR                                               O3V  230
      C  = AM * V + C0                                                  O3V  240
      GO TO 10                                                          O3V  250
5     C    =    S(I)                                                    O3V  260
10    CONTINUE                                                          O3V  270
C                                                                       O3V  280
      RETURN                                                            O3V  290
      END                                                               O3V  300
      BLOCK DATA O3UVFD                                                 O3F  100
C>    BLOCK DATA                                                        O3F  110
      COMMON /O3UVF / V1O1,V2O1,DVO1,NPT1,C02281(80),C02361(53)         O3F  120
C                                                                       O3F  130
C        OZONE UV  VISIBLE ABSORPTION COEFFICIENTS                      O3F  140
C                     (CM-ATM)-1                                        O3F  150
C     DATA DERIVED FROM MOLINA & MOLINA, JGR,91,14501-14508,1986.       O3F  160
C     VALUES BETWEEN 245 AND 185NM (40800 AND 54054CM-1) USED AS        O3F  170
C     DIRECT AVERAGE WITH NO TEMPERATURE DEPENDENCE.                    O3F  180
C                                                                       O3F  190
C     O3 LOCATION  1    V =  40800  CM-1                                O3F  200
C     O3 LOCATION  133  V =  54054  CM-1                                O3F  210
C        DV = 100  CM-1                                                 O3F  220
C                                                                       O3F  230
      DATA V1O1,V2O1,DVO1,NPT1/ 40800.,54000.,100.,133/                 O3F  240
      DATA C02281/                                                      O3F  250
     C 9.91204E+02, 9.76325E+02, 9.72050E+02, 9.51049E+02, 9.23530E+02, O3F  260
     C 9.02306E+02, 8.90510E+02, 8.60115E+02, 8.39094E+02, 8.27926E+02, O3F  270
     C 7.95525E+02, 7.73583E+02, 7.55018E+02, 7.31076E+02, 7.10415E+02, O3F  280
     C 6.87747E+02, 6.66639E+02, 6.39484E+02, 6.27101E+02, 6.01019E+02, O3F  290
     C 5.77594E+02, 5.60403E+02, 5.40837E+02, 5.21289E+02, 4.99329E+02, O3F  300
     C 4.81742E+02, 4.61608E+02, 4.45707E+02, 4.28261E+02, 4.09672E+02, O3F  310
     C 3.93701E+02, 3.77835E+02, 3.61440E+02, 3.45194E+02, 3.30219E+02, O3F  320
     C 3.15347E+02, 3.01164E+02, 2.87788E+02, 2.74224E+02, 2.61339E+02, O3F  330
     C 2.48868E+02, 2.36872E+02, 2.25747E+02, 2.14782E+02, 2.03997E+02, O3F  340
     C 1.94281E+02, 1.84525E+02, 1.75275E+02, 1.67151E+02, 1.58813E+02, O3F  350
     C 1.50725E+02, 1.43019E+02, 1.35825E+02, 1.28878E+02, 1.22084E+02, O3F  360
     C 1.15515E+02, 1.09465E+02, 1.03841E+02, 9.83780E+01, 9.31932E+01, O3F  370
     C 8.83466E+01, 8.38631E+01, 7.96631E+01, 7.54331E+01, 7.13805E+01, O3F  380
     C 6.78474E+01, 6.44340E+01, 6.13104E+01, 5.81777E+01, 5.53766E+01, O3F  390
     C 5.27036E+01, 5.03555E+01, 4.82633E+01, 4.61483E+01, 4.42014E+01, O3F  400
     C 4.23517E+01, 4.07774E+01, 3.93060E+01, 3.80135E+01, 3.66348E+01/ O3F  410
      DATA C02361/                                                      O3F  420
     C 3.53665E+01, 3.47884E+01, 3.39690E+01, 3.34288E+01, 3.29135E+01, O3F  430
     C 3.23104E+01, 3.18875E+01, 3.16800E+01, 3.15925E+01, 3.12932E+01, O3F  440
     C 3.12956E+01, 3.15522E+01, 3.14950E+01, 3.15924E+01, 3.19059E+01, O3F  450
     C 3.23109E+01, 3.27873E+01, 3.33788E+01, 3.39804E+01, 3.44925E+01, O3F  460
     C 3.50502E+01, 3.55853E+01, 3.59416E+01, 3.68933E+01, 3.78284E+01, O3F  470
     C 3.86413E+01, 3.98049E+01, 4.04700E+01, 4.12958E+01, 4.23482E+01, O3F  480
     C 4.31203E+01, 4.41885E+01, 4.52651E+01, 4.61492E+01, 4.70493E+01, O3F  490
     C 4.80497E+01, 4.90242E+01, 4.99652E+01, 5.10316E+01, 5.21510E+01, O3F  500
     C 5.32130E+01, 5.43073E+01, 5.56207E+01, 5.61756E+01, 5.66799E+01, O3F  510
     C 5.85545E+01, 5.92409E+01, 5.96168E+01, 6.12497E+01, 6.20231E+01, O3F  520
     C 6.24621E+01, 6.34160E+01, 6.43622E+01/                           O3F  530
      END                                                               O3F  540
      FUNCTION   PF(NN,I,J)                                             PF   100
C     CALL THE APPROPRIATE PHASE FUNCTION                               PF   110
      COMMON/MNMPHS/ MNUM(27,26),PHSFNC(34,70)                          PF   120
      M=MNUM(I,NN)                                                      PF   130
      PF=PHSFNC(J,M)                                                    PF   140
      RETURN                                                            PF   150
      END                                                               PF   160
      SUBROUTINE PHASEF(V,IK,ALT,SANGLE,RH,PHFA)                        PHS  100
C                                                                       PHS  110
C     RETURNS THE AEROSOL PHASE FUNCTION FROM THE STORED DATA BASE      PHS  120
C                                                                       PHS  130
C                                                                       PHS  140
C     THE TRUTH TABLE MNUM(27,26) STORED IN COMMON/MNMPHS/              PHS  150
C     IN SUBROUTINE PHSDTA IS QUERIED TO DETERMINE THE PROPER PHASE     PHS  160
C     FUNCTION NEEDED.                                                  PHS  170
C     THE 27 POSITIONS REPRESENT THE 27 SPECIFIC FREQUENCIES SHOWN IN   PHS  180
C     DATA STATEMENT WAVE  .2-40 MICRONS.                               PHS  190
C     THE NUMBERS STORED IN THESE 27 POSITIONS REPRESENT THE CORRECT    PHS  200
C     PHASE FUNCTIONS CHOSEN FROM THE DATA STATEMENT PHSFNC'S 1-70      PHS  210
C     POSSIBLE CHOICES.                                                 PHS  220
C     THE 26 DATA STATEMENTS EACH HAVING 27 FREQUENCIES REPRESENT THE   PHS  230
C     FOLLOWING 26 MODELS;                                              PHS  240
C      1=RURAL     0%RH   2=RURAL    70%RH   3=RURAL    80%RH           PHS  250
C      4=RURAL    99%RH   5=MARITIME  0%RH   6=MARITIME 70%RH           PHS  260
C      7=MARITIME 80%RH   8=MARITIME 99%RH   9=URBAN     0%RH           PHS  270
C     10=URBAN    70%RH  11=URBAN    80%RH  12=URBAN    99%RH           PHS  280
C     13=OCEANIC   0%RH  14=OCEANIC  70%RH  15=OCEANIC  80%RH           PHS  290
C     16=OCEANIC  99%RH  17=TROPOSPH  0%RH  18=TROPOSPH 70%RH           PHS  300
C     19=TROPOSPH 80%RH  20=TROPOSPH 99%RH  21=STRATOSPHERIC            PHS  310
C     22=AGED VOLCANIC   23=FRESH VOLCANIC  24=RADIATION FOG            PHS  320
C     25=ADVECTIVE FOG   26=METEORIC DUST                               PHS  330
C                                                                       PHS  340
C                                                                       PHS  350
C     IN THE PRESENT VERSION THE 4 OCEANIC MODELS 13-16                 PHS  360
C     ARE NOT UTILIZED.                                                 PHS  370
C                                                                       PHS  380
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                PHS  390
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     PHS  400
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  PHS  410
     1  ,MODTRN                                                         PHS 410A
      LOGICAL MODTRN                                                    PHS 410B
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   PHS  420
     1    RAINRT                                                        PHS  430
      COMMON /CARD2D/ IREG(4),ALTB(4),IREGC(4)                          PHS  440
      COMMON/MNMPHS/ MNUM(27,26),PHSFNC(34,70)                          PHS  450
      COMMON /MODEL/ ZM(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),      PHS  460
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         PHS  470
      COMMON /AER/ XX1,XX2,XX3,XX4,XX5,                                 PHS  480
     X YY1,YY2,YY3,YY4,YY5,ZZ1,ZZ2,ZZ3,ZZ4,ZZ5                          PHS  490
      DIMENSION RHPTS(4),WAVE(27),ANG(34)                               PHS  500
      DATA ANG /0.,2.,4.,6.,8.,10.,12.,16.,20.,24.,28.,32.,36.,40.      PHS  510
     1,50.,60.,70.,80.,90.,100.,110.,120.,125.,130.,135.,140.,145.      PHS  520
     2,150.,155.,160.,165.,170.,175.,180./                              PHS  530
      DATA WAVE /.2,.3,.55,.6943,1.06,1.536,2.0,2.5,2.7,3.,3.2,3.39     PHS  540
     1,5.,6.,7.2,7.9,8.7,9.2,10.0,10.59,12.5,15.0,17.2,18.5,21.3,30.    PHS  550
     2,40.0/                                                            PHS  560
      DATA RHPTS /0.0,70.0,80.0,99.0/                                   PHS  570
C                                                                       PHS  580
      PHFA=0.0                                                          PHS  590
      ALAM=1.0E4/V                                                      PHS  600
      IF(V .LT. 1.0E-5) ALAM = 1.0E+9                                   PHS  605
      IF(SANGLE.LT.0.0.OR.SANGLE.GT.180.0) GO TO 900                    PHS  610
      IF((ALAM-WAVE(1)).LT. -1.0E-6) GO TO 910                          PHS  620
      IF(ALAM.GT.WAVE(27)) THEN                                         PHS  630
           COSANG=COS(CA*SANGLE)                                        PHS  640
           CALL HENGNS(ZZ1,COSANG,PHFA)                                 PHS  650
           RETURN                                                       PHS  660
      ENDIF                                                             PHS  670
C     DETERMINE THE AEROSOL MODEL NUMBER                                PHS  680
      IF(ALT.GT.ALTB(1)) GO TO 95                                       PHS  690
C                                                                       PHS  700
C                                                                       PHS  710
C                                                                       PHS  720
      IF(IHAZE .EQ. 0) GO TO 400                                        PHS  730
      IF(IHAZE .EQ.10) THEN                                             PHS  740
           COSANG=COS(CA*SANGLE)                                        PHS  750
           CALL HENGNS(ZZ1,COSANG,PHFA)                                 PHS  760
           RETURN                                                       PHS  770
      ENDIF                                                             PHS  780
C                                                                       PHS  790
C     CHECK IF CLOUD,RAIN OR DESERT MODEL IS REQUESTED                  PHS  800
C                                                                       PHS  810
       IF(ICLD .GT. 0.  OR. IHAZE .EQ. 7 )  THEN                        PHS  820
           COSANG=COS(CA*SANGLE)                                        PHS  830
C                                                                       PHS  840
           CALL HENGNS(ZZ1,COSANG,PHFA)                                 PHS  850
              RETURN                                                    PHS  860
        ENDIF                                                           PHS  870
      IF(IHAZE.GE.8) GO TO 90                                           PHS  880
C                                                                       PHS  890
C     0-2KM BOUNDARY LAYER MODELS, RH DEPENDENT                         PHS  900
      DO 50 I1=1,4                                                      PHS  910
      I=I1                                                              PHS  920
      IF(RHPTS(I).EQ.RH) GO TO 70                                       PHS  930
      IF(RHPTS(I).GT.RH) GO TO 60                                       PHS  940
50    CONTINUE                                                          PHS  950
60    IRHLO=I-1                                                         PHS  960
      IRHHI=I                                                           PHS  970
      GO TO 80                                                          PHS  980
70    IRHLO=I                                                           PHS  990
      IRHHI=I                                                           PHS 1000
80    CONTINUE                                                          PHS 1010
C     RURAL MODEL                                                       PHS 1020
      IF(IHAZE.EQ.1.OR.IHAZE.EQ.2) NN0=0                                PHS 1030
C     MARITIME MODEL                                                    PHS 1040
      IF(IHAZE.EQ.3.OR.IHAZE.EQ.4) NN0=4                                PHS 1050
C     URBAN MODEL                                                       PHS 1060
      IF(IHAZE.EQ.5) NN0=8                                              PHS 1070
C     TROPOSPHERIC MODEL                                                PHS 1080
      IF(IHAZE.EQ.6) NN0=16                                             PHS 1090
      NN=NN0+IRHLO                                                      PHS 1100
      GO TO 130                                                         PHS 1110
C     0-2KM FOG MODELS, NO RH DEPENDENCE                                PHS 1120
90    IF(IHAZE.EQ.8) NN=24                                              PHS 1130
      IF(IHAZE.EQ.9) NN=25                                              PHS 1140
      GO TO 130                                                         PHS 1150
95    IF(ALT.GT.ALTB(2)) GO TO 110                                      PHS 1160
C     2-10KM TROPOSPHERIC MODEL                                         PHS 1170
       IF(ICLD .GT. 0.  OR. IHAZE .EQ. 7 )  THEN                        PHS 1180
           COSANG=COS(CA*SANGLE)                                        PHS 1190
C                                                                       PHS 1200
           CALL HENGNS(ZZ2,COSANG,PHFA)                                 PHS 1210
              RETURN                                                    PHS 1220
        ENDIF                                                           PHS 1230
      NN=18                                                             PHS 1240
      GO TO 130                                                         PHS 1250
110   IF(ALT.GT.ALTB(3)) GO TO 120                                      PHS 1260
C     10-30KM STRATOSPHERIC MODELS                                      PHS 1270
C     BACKGROUND MODEL                                                  PHS 1280
      IF(IVULCN.EQ.0.OR.IVULCN.EQ.1) NN=21                              PHS 1290
C     AGED VOLCANIC MODEL                                               PHS 1300
      IF(IVULCN.EQ.2.OR.IVULCN.EQ.4) NN=22                              PHS 1310
C     FRESH VOLCANIC                                                    PHS 1320
      IF(IVULCN.EQ.3.OR.IVULCN.EQ.5 .OR.IVULCN.EQ.8) NN=23              PHS 1330
C     BACKGROUND STRATO                                                 PHS 1340
      IF(IVULCN.EQ.6.OR.IVULCN.EQ.7) NN=21                              PHS 1350
      GO TO 130                                                         PHS 1360
C     30-100KM METEORIC MODEL                                           PHS 1370
120   NN=26                                                             PHS 1380
130   IRH=0                                                             PHS 1390
C                                                                       PHS 1400
C     DETERMINE THE BOUNDING ANGLE INDICES                              PHS 1410
140   DO 210 I1=1,34                                                    PHS 1420
      I=I1                                                              PHS 1430
      IF(ANG(I).EQ.SANGLE) GO TO 230                                    PHS 1440
      IF(ANG(I).GT.SANGLE) GO TO 220                                    PHS 1450
210   CONTINUE                                                          PHS 1460
220   IANG1=I-1                                                         PHS 1470
      IANG2=I                                                           PHS 1480
      GO TO 240                                                         PHS 1490
230   IANG1=I                                                           PHS 1500
      IANG2=I                                                           PHS 1510
240   CONTINUE                                                          PHS 1520
C                                                                       PHS 1530
C     DETERMINE THE BOUNDING WAVELENGTH INDICES                         PHS 1540
      DO 250 I1=1,27                                                    PHS 1550
      I=I1                                                              PHS 1560
      IF(WAVE(I).EQ.ALAM) GO TO 270                                     PHS 1570
      IF(WAVE(I).GT.ALAM) GO TO 260                                     PHS 1580
250   CONTINUE                                                          PHS 1590
260   IWAV1=I-1                                                         PHS 1600
      IWAV2=I                                                           PHS 1610
      GO TO 280                                                         PHS 1620
270   IWAV1=I                                                           PHS 1630
      IWAV2=I                                                           PHS 1640
280   CONTINUE                                                          PHS 1650
C                                                                       PHS 1660
C     FUNCTION PF CHOOSES DESIRED PHASE FUNCTION FROM LOOK UP TABLE     PHS 1670
C     MNUM(IWAV,NN)  WHERE IWAV IS FREQ. AND NN IS MODEL NO.            PHS 1680
C                                                                       PHS 1690
C     WAVELENGTH INTERPOLATION ONLY USES PF11 AND PF21                  PHS 1700
C     ANGLE INTERPOLATION ONLY USES PF11 AND PF12                       PHS 1710
C     WAVELENGTH AND ANGLE INTERPOLATION USES PF11,PF21 AND PF12,PF22.  PHS 1720
C                                                                       PHS 1730
      PF11=PF(NN,IWAV1,IANG1)                                           PHS 1740
      PF21=PF(NN,IWAV2,IANG1)                                           PHS 1750
      PF12=PF(NN,IWAV1,IANG2)                                           PHS 1760
      PF22=PF(NN,IWAV2,IANG2)                                           PHS 1770
C     INTERPOLATE IN WAVELENGTH THEN ANGLE                              PHS 1780
      IF(IWAV1.EQ.IWAV2) GO TO 310                                      PHS 1790
      IF(IANG1.EQ.IANG2) GO TO 290                                      PHS 1800
C     BOTH INTERPOLATIONS ARE NECESSARY                                 PHS 1810
      CALL INTERP(2,ALAM,WAVE(IWAV1),WAVE(IWAV2),YANG1,                 PHS 1820
     1PF11,PF21)                                                        PHS 1830
      CALL INTERP(2,ALAM,WAVE(IWAV1),WAVE(IWAV2),YANG2,                 PHS 1840
     1PF12,PF22)                                                        PHS 1850
      CALL INTERP(2,SANGLE,ANG(IANG1),ANG(IANG2),Y,YANG1,YANG2)         PHS 1860
      GO TO 330                                                         PHS 1870
C     ONLY WAVELENGTH INTERPOLATION IS NECESSARY                        PHS 1880
290   CALL INTERP(2,ALAM,WAVE(IWAV1),WAVE(IWAV2),Y,PF11,                PHS 1890
     1PF21)                                                             PHS 1900
      GO TO 330                                                         PHS 1910
310   IF(IANG1.EQ.IANG2) GO TO 320                                      PHS 1920
C     ONLY ANGLE INTERPOLATION IS NECESSARY                             PHS 1930
      CALL INTERP(2,SANGLE,ANG(IANG1),ANG(IANG2),Y,PF11,                PHS 1940
     1PF12)                                                             PHS 1950
      GO TO 330                                                         PHS 1960
C     NO INTERPOLATION IS NECESSARY                                     PHS 1970
320   Y=PF(NN,IWAV1,IANG1)                                              PHS 1980
330   CONTINUE                                                          PHS 1990
      PHFA=Y                                                            PHS 2000
C                                                                       PHS 2010
C     HUMIDITY DEPENDENCE                                               PHS 2020
      IF(ALT.GT.ALTB(1).OR.NN.GE.17.OR.IRHLO.EQ.IRHHI) GO TO 400        PHS 2030
      IF(IRH.EQ.1) GO TO 340                                            PHS 2040
      NN=NN0+IRHHI                                                      PHS 2050
      PHFA1=PHFA                                                        PHS 2060
      IRH=1                                                             PHS 2070
      GO TO 280                                                         PHS 2080
340   CONTINUE                                                          PHS 2090
      PHFA2=PHFA                                                        PHS 2100
      CALL INTERP(1,RH,RHPTS(IRHLO),RHPTS(IRHHI),                       PHS 2110
     CPHFA,PHFA1,PHFA2)                                                 PHS 2120
400   CONTINUE                                                          PHS 2130
      RETURN                                                            PHS 2140
  900 WRITE(IPR,901) SANGLE                                             PHS 2150
  901 FORMAT('0FROM PHASEF- SCATTERING ANGLE IS OUT OF RANGE, '         PHS 2160
     1    ,'ANGLE = ',E12.5)                                            PHS 2170
      STOP                                                              PHS 2180
  910 WRITE(IPR,911) ALAM                                               PHS 2190
  911 FORMAT('0FROM PHASEF- ALAM IS OUT OF RANGE, ALAM = ',E12.5)       PHS 2200
      STOP                                                              PHS 2210
      END                                                               PHS 2220
      BLOCK DATA PHSDTA                                                 BPH  100
C>    BLOCK DATA                                                        BPH  110
CCC                                                                     BPH  120
CCC   ROUTINE TO STORE TABLE TO CALL UP PROPER PHASE FUNCTION           BPH  130
CCC   AND 70 AVERAGE PHASE FUNCTIONS                                    BPH  140
CCC                                                                     BPH  150
C     COMMON/MNMPHS/ MNUM(27,26),PHSFNC(34,70)                          BPH  160
      COMMON/MNMPHS/MUM1(27),MUM2(27),MUM3(27),MUM4(27),MUM5(27),       BPH  170
     1MUM6(27),MUM7(27),MUM8(27),MUM9(27),MUM10(27),MUM11(27),MUM12(27),BPH  180
     2MUM13(27),MUM14(27),MUM15(27),MUM16(27),MUM17(27),MUM18(27),      BPH  190
     3MUM19(27),MUM20(27),MUM21(27),MUM22(27),MUM23(27),MUM24(27),      BPH  200
     4MUM25(27),MUM26(27),PHSF1(34),PHSF2(34),PHSF3(34),PHSF4(34),      BPH  210
     5PHSF5(34),PHSF6(34),PHSF7(34),PHSF8(34),PHSF9(34),                BPH  220
     6PHSF10(34),PHSF11(34),PHSF12(34),PHSF13(34),PHSF14(34),PHSF15(34),BPH  230
     7PHSF16(34),PHSF17(34),PHSF18(34),PHSF19(34),PHSF20(34),PHSF21(34),BPH  240
     8PHSF22(34),PHSF23(34),PHSF24(34),PHSF25(34),PHSF26(34),PHSF27(34),BPH  250
     9PHSF28(34),PHSF29(34),PHSF30(34),PHSF31(34),PHSF32(34),PHSF33(34),BPH  260
     9PHSF34(34),PHSF35(34),PHSF36(34),PHSF37(34),PHSF38(34),PHSF39(34),BPH  270
     1PHSF40(34),PHSF41(34),PHSF42(34),PHSF43(34),PHSF44(34),PHSF45(34),BPH  280
     2PHSF46(34),PHSF47(34),PHSF48(34),PHSF49(34),PHSF50(34),PHSF51(34),BPH  290
     3PHSF52(34),PHSF53(34),PHSF54(34),PHSF55(34),PHSF56(34),PHSF57(34),BPH  300
     4PHSF58(34),PHSF59(34),PHSF60(34),PHSF61(34),PHSF62(34),PHSF63(34),BPH  310
     5PHSF64(34),PHSF65(34),PHSF66(34),PHSF67(34),PHSF68(34),PHSF69(34),BPH  320
     6PHSF70(34)                                                        BPH  330
      DATA MUM1/ 3, 5, 4, 4, 4, 6, 8,22,21,22,26,26,                    BPH  340
     C26,27,29, 1,34,34,34,34,33,33,36,36,36,36,23/                     BPH  350
      DATA MUM2/ 3, 5, 4, 4, 4, 6, 8,22,21,21,22,26,                    BPH  360
     C26,27,29, 1,34,33,33,33,46,46,34,34,36,36,23/                     BPH  370
      DATA MUM3/ 3, 5, 5, 5,19, 6, 8,21, 7,21,22, 8,                    BPH  380
     C26, 1,27, 1,46,46,46,29,29,46,34,34,34,36,23/                     BPH  390
      DATA MUM4/58,58,62,62,62,63,63,63,60,64,64,64,                    BPH  400
     C21,70,65,65,65,65,66,66,65,27,29,29,46,33,34/                     BPH  410
      DATA MUM5/59,11,11,11,20,20,20,28,28,16,16,16,                    BPH  420
     C16,37,37,37,32,36,32,32,32,36,23,23,23,38,25/                     BPH  430
      DATA MUM6/ 9,59,11,13,13,26,26,26,27,29,46,28,                    BPH  440
     C28,29,28,28,37,37,37,37,34,36,36,36,23,23,38/                     BPH  450
      DATA MUM7/ 9, 9,14,14,14,15,15,15,66,65,27,26,                    BPH  460
     C29,27,29,29,29,29,29,29,46,34,36,36,36,23,23/                     BPH  470
      DATA MUM8/57,57,69,69,69,68,68,68,61,70,60,21,                    BPH  480
     C 7,66, 1, 1, 1, 1,66,66, 1,29,46,46,33,34,36/                     BPH  490
      DATA MUM9/ 2,18,18,19,19, 6,22,22,22,22,22,22,                    BPH  500
     C29,29,46,29,34,34,34,34,34,34,36,36,36,23,23/                     BPH  510
      DATA MUM10/ 2, 3,18,18,19, 6,22,22,21,22,22,22,                   BPH  520
     C27,27,29,27,33,33,46,46,46,33,34,34,36,36,23/                     BPH  530
      DATA MUM11/ 2, 3,18,18,19, 6,22,21, 7,22,22,22,                   BPH  540
     C27,27,27,27,46,29,29,29,29,46,33,34,34,36,36/                     BPH  550
      DATA MUM12/58,58,62,62,62,62,63,63,60,64,64,64,                   BPH  560
     C21,60, 7,65,65,65,66,67,65, 7,27,27,29,46,33/                     BPH  570
      DATA MUM13/10,59,11,11,13,20,20,28,28,16,16,16,                   BPH  580
     C16,37,37,37,32,36,32,32,32,36,23,23,23,38,25/                     BPH  590
      DATA MUM14/10,10,14,14,13,13,26,26,27,29,29,28,                   BPH  600
     C28,29,28,28,37,37,37,37,33,32,36,36,23,23,38/                     BPH  610
      DATA MUM15/10,69,14,14,14,15,15, 7,66,65,27,26,                   BPH  620
     C29, 1,29,29,29,29,29,29,46,34,36,36,36,23,23/                     BPH  630
      DATA MUM16/47,57,69,69,69,68,68,68,61,70,60,21,                   BPH  640
     C 7,66, 1, 1, 1, 1,66,66, 1,29,46,46,33,34,36/                     BPH  650
      DATA MUM17/29,16,32,32,36,36,23,23,23,38,38,38,                   BPH  660
     C25,25,25,25,25,25,25,25,35,35,35,35,35,40,39/                     BPH  670
      DATA MUM18/29,16,32,32,32,36,23,23,23,38,38,38,                   BPH  680
     C38,25,25,25,25,25,25,25,35,35,35,35,35,40,39/                     BPH  690
      DATA MUM19/29,28,37,37,32,36,36,23,23,23,23,23,                   BPH  700
     C38,25,25,25,25,25,25,25,35,35,35,35,35,40,40/                     BPH  710
      DATA MUM20/15,26,28,28,37,37,32,32,32,23,23,23,                   BPH  720
     C23,38,38,38,38,25,25,25,25,35,35,35,35,35,40/                     BPH  730
      DATA MUM21/20,20,37,37,24,23,38,25,25,35,35,35,                   BPH  740
     C40,40,39,39,39,39,39,39,39,39,39,39,39,39,39/                     BPH  750
      DATA MUM22/ 7,20,16,37,32,32,24,23,23,23,38,38,                   BPH  760
     C25,25,35,35,35,25,35,35,40,40,40,40,40,39,39/                     BPH  770
      DATA MUM23/17,51,13,13,20,20,28,28,37,37,37,37,                   BPH  780
     C32,32,24,24,23,23,38,38,38,38,38,38,38,25,35/                     BPH  790
      DATA MUM24/47,30,55,55,55,13,15,12,42,12, 1,26,                   BPH  800
     C44,52,44,44,45,45,45,45,24,23,38,38,38,25,35/                     BPH  810
      DATA MUM25/48,53,31,31,31,41,41,41,49,17,17,17,                   BPH  820
     C56,50,43,43,67,61,42,54,42,12,12,12,12, 1,44/                     BPH  830
      DATA MUM26/59,59,11,11,20,20,28,28,46,46,46,46,                   BPH  840
     C33,33,34,34,34,34,36,36,36,36,23,23,23,38,38/                     BPH  850
      DATA PHSF1/                                                       BPH  860
     C     4.81387,     4.26047,     3.42600,     2.74953,     2.21493, BPH  870
     C     1.78847,     1.44553,      .94765,      .62704,      .42183, BPH  880
     C      .28987,      .20375,      .14632,      .10720,      .05307, BPH  890
     C      .02882,      .01703,      .01093,      .00764,      .00582, BPH  900
     C      .00482,      .00431,      .00418,      .00411,      .00409, BPH  910
     C      .00412,      .00419,      .00428,      .00436,      .00442, BPH  920
     C      .00443,      .00433,      .00421,      .00435/              BPH  930
      DATA PHSF2/                                                       BPH  940
     C   100.88000,     4.36700,     2.73667,     2.10567,     1.68067, BPH  950
     C     1.36333,     1.11900,      .77513,      .55317,      .40393, BPH  960
     C      .30047,      .22690,      .17367,      .13437,      .07407, BPH  970
     C      .04350,      .02714,      .01795,      .01266,      .00958, BPH  980
     C      .00780,      .00683,      .00656,      .00639,      .00633, BPH  990
     C      .00636,      .00649,      .00669,      .00682,      .00671, BPH 1000
     C      .00626,      .00582,      .00606,      .00646/              BPH 1010
      DATA PHSF3/                                                       BPH 1020
     C    75.07600,     3.77580,     2.33100,     1.82620,     1.49120, BPH 1030
     C     1.23720,     1.03680,      .74470,      .54766,      .41000, BPH 1040
     C      .31120,      .23880,      .18506,      .14476,      .08148, BPH 1050
     C      .04851,      .03047,      .02022,      .01431,      .01086, BPH 1060
     C      .00886,      .00785,      .00763,      .00756,      .00762, BPH 1070
     C      .00780,      .00809,      .00843,      .00868,      .00861, BPH 1080
     C      .00813,      .00790,      .00871,      .00948/              BPH 1090
      DATA PHSF4/                                                       BPH 1100
     C    14.11167,     3.29400,     1.58300,     1.07677,      .85635, BPH 1110
     C      .73207,      .64758,      .52827,      .43880,      .36565, BPH 1120
     C      .30452,      .25337,      .21070,      .17523,      .11108, BPH 1130
     C      .07169,      .04755,      .03283,      .02388,      .01855, BPH 1140
     C      .01557,      .01420,      .01396,      .01397,      .01424, BPH 1150
     C      .01473,      .01545,      .01641,      .01758,      .01894, BPH 1160
     C      .01999,      .02139,      .02376,      .02512/              BPH 1170
      DATA PHSF5/                                                       BPH 1180
     C    31.33400,     3.01260,     1.63600,     1.27260,     1.08020, BPH 1190
     C      .94204,      .83026,      .65326,      .51696,      .40994, BPH 1200
     C      .32558,      .25926,      .20702,      .16590,      .09733, BPH 1210
     C      .05921,      .03764,      .02534,      .01809,      .01382, BPH 1220
     C      .01155,      .01059,      .01051,      .01070,      .01115, BPH 1230
     C      .01192,      .01303,      .01447,      .01610,      .01727, BPH 1240
     C      .01780,      .01838,      .02091,      .02258/              BPH 1250
      DATA PHSF6/                                                       BPH 1260
     C    13.63333,     5.76067,     2.86717,     1.73500,     1.19267, BPH 1270
     C      .89500,      .71377,      .50818,      .39290,      .31612, BPH 1280
     C      .25947,      .21512,      .17950,      .15035,      .09782, BPH 1290
     C      .06489,      .04418,      .03126,      .02336,      .01872, BPH 1300
     C      .01625,      .01521,      .01510,      .01520,      .01550, BPH 1310
     C      .01600,      .01670,      .01758,      .01860,      .01958, BPH 1320
     C      .02003,      .01962,      .01969,      .02072/              BPH 1330
      DATA PHSF7/                                                       BPH 1340
     C    10.69213,     7.32563,     4.66850,     3.15175,     2.23700, BPH 1350
     C     1.65050,     1.25550,      .77671,      .51168,      .35194, BPH 1360
     C      .24998,      .18219,      .13565,      .10291,      .05530, BPH 1370
     C      .03232,      .02036,      .01381,      .01015,      .00813, BPH 1380
     C      .00711,      .00672,      .00671,      .00680,      .00698, BPH 1390
     C      .00723,      .00753,      .00783,      .00813,      .00841, BPH 1400
     C      .00864,      .00843,      .00793,      .00865/              BPH 1410
      DATA PHSF8/                                                       BPH 1420
     C    10.29225,     5.75700,     3.34100,     2.19450,     1.56850, BPH 1430
     C     1.18950,      .94123,      .64033,      .46530,      .35098, BPH 1440
     C      .27068,      .21203,      .16803,      .13445,      .07989, BPH 1450
     C      .04975,      .03251,      .02247,      .01667,      .01344, BPH 1460
     C      .01188,      .01148,      .01166,      .01210,      .01285, BPH 1470
     C      .01392,      .01522,      .01656,      .01776,      .01897, BPH 1480
     C      .02003,      .01932,      .01776,      .02043/              BPH 1490
      DATA PHSF9/                                                       BPH 1500
     C   232.30000,    13.73667,     3.92300,     1.97167,     1.29767, BPH 1510
     C      .97050,      .77753,      .55393,      .41583,      .31763, BPH 1520
     C      .24957,      .19523,      .15503,      .12260,      .06875, BPH 1530
     C      .04015,      .02414,      .01485,      .01040,      .00803, BPH 1540
     C      .00674,      .00569,      .00549,      .00550,      .00615, BPH 1550
     C      .00775,      .01205,      .01820,      .02141,      .02076, BPH 1560
     C      .02123,      .02409,      .03397,      .05439/              BPH 1570
      DATA PHSF10/                                                      BPH 1580
     C   286.85000,    20.19500,     5.34175,     2.25050,     1.24273, BPH 1590
     C      .81960,      .60855,      .40505,      .30698,      .24148, BPH 1600
     C      .19903,      .16210,      .13158,      .10705,      .06313, BPH 1610
     C      .03807,      .02275,      .01373,      .00983,      .00704, BPH 1620
     C      .00512,      .00400,      .00412,      .00401,      .00456, BPH 1630
     C      .00580,      .00954,      .01947,      .03101,      .03784, BPH 1640
     C      .04018,      .04524,      .06312,      .08295/              BPH 1650
      DATA PHSF11/                                                      BPH 1660
     C    15.36571,     6.08614,     3.15543,     1.98500,     1.39671, BPH 1670
     C     1.05749,      .84297,      .58904,      .44120,      .34216, BPH 1680
     C      .27140,      .21837,      .17669,      .14371,      .08723, BPH 1690
     C      .05498,      .03568,      .02444,      .01753,      .01339, BPH 1700
     C      .01087,      .00986,      .00983,      .01019,      .01094, BPH 1710
     C      .01243,      .01473,      .01871,      .02423,      .03204, BPH 1720
     C      .03592,      .03792,      .04492,      .05004/              BPH 1730
      DATA PHSF12/                                                      BPH 1740
     C     5.64100,     5.44440,     4.90680,     4.15680,     3.34180, BPH 1750
     C     2.57840,     1.93040,     1.03104,      .54702,      .30330, BPH 1760
     C      .18026,      .11514,      .07816,      .05557,      .02729, BPH 1770
     C      .01547,      .00986,      .00697,      .00542,      .00457, BPH 1780
     C      .00413,      .00392,      .00387,      .00385,      .00385, BPH 1790
     C      .00385,      .00385,      .00386,      .00391,      .00401, BPH 1800
     C      .00400,      .00368,      .00352,      .00365/              BPH 1810
      DATA PHSF13/                                                      BPH 1820
     C     8.90311,     6.06467,     3.93056,     2.63178,     1.82878, BPH 1830
     C     1.32733,     1.00856,      .65342,      .46637,      .34863, BPH 1840
     C      .26662,      .20709,      .16222,      .12811,      .07347, BPH 1850
     C      .04425,      .02794,      .01867,      .01336,      .01033, BPH 1860
     C      .00874,      .00818,      .00837,      .00894,      .01001, BPH 1870
     C      .01171,      .01423,      .01759,      .02129,      .02494, BPH 1880
     C      .02767,      .02690,      .02658,      .03550/              BPH 1890
      DATA PHSF14/                                                      BPH 1900
     C    41.20875,    11.84363,     5.00750,     2.73850,     1.74425, BPH 1910
     C     1.23475,      .93516,      .60986,      .43641,      .32733, BPH 1920
     C      .24819,      .19145,      .14831,      .11555,      .06356, BPH 1930
     C      .03649,      .02176,      .01390,      .00974,      .00759, BPH 1940
     C      .00657,      .00643,      .00671,      .00741,      .00906, BPH 1950
     C      .01210,      .01618,      .01839,      .01979,      .02104, BPH 1960
     C      .02356,      .02652,      .02694,      .04004/              BPH 1970
      DATA PHSF15/                                                      BPH 1980
     C     7.98100,     5.58389,     3.81067,     2.75011,     2.05900, BPH 1990
     C     1.58178,     1.24011,      .80424,      .55144,      .39021, BPH 2000
     C      .28203,      .20701,      .15369,      .11570,      .05985, BPH 2010
     C      .03329,      .01999,      .01295,      .00920,      .00726, BPH 2020
     C      .00645,      .00646,      .00683,      .00743,      .00833, BPH 2030
     C      .00942,      .01038,      .01112,      .01187,      .01290, BPH 2040
     C      .01451,      .01415,      .01176,      .01646/              BPH 2050
      DATA PHSF16/                                                      BPH 2060
     C     1.52473,     1.44645,     1.30800,     1.16736,     1.03716, BPH 2070
     C      .92088,      .81802,      .64725,      .51405,      .40964, BPH 2080
     C      .32742,      .26255,      .21129,      .17075,      .10236, BPH 2090
     C      .06361,      .04130,      .02819,      .02041,      .01583, BPH 2100
     C      .01330,      .01222,      .01213,      .01235,      .01288, BPH 2110
     C      .01373,      .01491,      .01635,      .01784,      .01906, BPH 2120
     C      .02003,      .02225,      .02715,      .03082/              BPH 2130
      DATA PHSF17/                                                      BPH 2140
     C   143.02500,    55.03750,    11.00250,     3.10675,     1.29675, BPH 2150
     C      .67675,      .40423,      .18580,      .10582,      .06884, BPH 2160
     C      .04883,      .03665,      .02858,      .02291,      .01418, BPH 2170
     C      .00942,      .00664,      .00497,      .00397,      .00337, BPH 2180
     C      .00302,      .00283,      .00277,      .00273,      .00272, BPH 2190
     C      .00275,      .00283,      .00298,      .00314,      .00324, BPH 2200
     C      .00332,      .00347,      .00373,      .00359/              BPH 2210
      DATA PHSF18/                                                      BPH 2220
     C    26.74167,     3.70000,     1.73800,     1.24150,     1.02157, BPH 2230
     C      .88398,      .78022,      .62040,      .49727,      .39937, BPH 2240
     C      .32113,      .25863,      .20880,      .16910,      .10153, BPH 2250
     C      .06289,      .04050,      .02733,      .01952,      .01491, BPH 2260
     C      .01225,      .01083,      .01046,      .01025,      .01017, BPH 2270
     C      .01020,      .01030,      .01043,      .01053,      .01059, BPH 2280
     C      .01061,      .01071,      .01107,      .01136/              BPH 2290
      DATA PHSF19/                                                      BPH 2300
     C    16.76800,     4.67840,     2.10000,     1.29420,      .94964, BPH 2310
     C      .76794,      .65496,      .51386,      .41986,      .34756, BPH 2320
     C      .28896,      .24060,      .20054,      .16730,      .10712, BPH 2330
     C      .06978,      .04668,      .03245,      .02379,      .01863, BPH 2340
     C      .01572,      .01429,      .01397,      .01384,      .01389, BPH 2350
     C      .01407,      .01438,      .01481,      .01529,      .01572, BPH 2360
     C      .01603,      .01613,      .01637,      .01668/              BPH 2370
      DATA PHSF20/                                                      BPH 2380
     C     3.35750,     2.77033,     2.20467,     1.77208,     1.43950, BPH 2390
     C     1.18167,      .98083,      .69731,      .51368,      .38864, BPH 2400
     C      .29989,      .23472,      .18552,      .14785,      .08680, BPH 2410
     C      .05339,      .03443,      .02340,      .01689,      .01308, BPH 2420
     C      .01097,      .01015,      .01022,      .01062,      .01145, BPH 2430
     C      .01289,      .01512,      .01829,      .02228,      .02580, BPH 2440
     C      .02615,      .02523,      .02990,      .03617/              BPH 2450
      DATA PHSF21/                                                      BPH 2460
     C    13.35245,     7.86691,     4.51555,     2.89018,     1.99645, BPH 2470
     C     1.45664,     1.10655,      .69522,      .47093,      .33483, BPH 2480
     C      .24620,      .18557,      .14266,      .11148,      .06369, BPH 2490
     C      .03890,      .02523,      .01742,      .01294,      .01044, BPH 2500
     C      .00921,      .00881,      .00886,      .00906,      .00940, BPH 2510
     C      .00985,      .01039,      .01098,      .01163,      .01232, BPH 2520
     C      .01277,      .01220,      .01131,      .01247/              BPH 2530
      DATA PHSF22/                                                      BPH 2540
     C     9.49578,     6.01133,     3.71372,     2.49106,     1.77633, BPH 2550
     C     1.32572,     1.02483,      .66094,      .45784,      .33285, BPH 2560
     C      .25044,      .19334,      .15224,      .12179,      .07358, BPH 2570
     C      .04717,      .03185,      .02271,      .01730,      .01421, BPH 2580
     C      .01264,      .01208,      .01207,      .01220,      .01245, BPH 2590
     C      .01280,      .01321,      .01365,      .01405,      .01436, BPH 2600
     C      .01447,      .01422,      .01407,      .01456/              BPH 2610
      DATA PHSF23/                                                      BPH 2620
     C      .45555,      .45332,      .44686,      .43683,      .42405, BPH 2630
     C      .40929,      .39319,      .35887,      .32388,      .28985, BPH 2640
     C      .25771,      .22804,      .20101,      .17671,      .12722, BPH 2650
     C      .09162,      .06691,      .05037,      .03979,      .03345, BPH 2660
     C      .03009,      .02875,      .02860,      .02871,      .02902, BPH 2670
     C      .02946,      .03000,      .03059,      .03120,      .03179, BPH 2680
     C      .03232,      .03276,      .03305,      .03315/              BPH 2690
      DATA PHSF24/                                                      BPH 2700
     C      .51072,      .50922,      .50476,      .49744,      .48752, BPH 2710
     C      .47514,      .46072,      .42698,      .38890,      .34888, BPH 2720
     C      .30902,      .27072,      .23504,      .20254,      .13652, BPH 2730
     C      .09070,      .06070,      .04186,      .03042,      .02372, BPH 2740
     C      .02000,      .01816,      .01773,      .01753,      .01753, BPH 2750
     C      .01767,      .01792,      .01826,      .01866,      .01907, BPH 2760
     C      .01948,      .01984,      .02009,      .02019/              BPH 2770
      DATA PHSF25/                                                      BPH 2780
     C      .21327,      .21298,      .21208,      .21060,      .20856, BPH 2790
     C      .20606,      .20305,      .19588,      .18741,      .17798, BPH 2800
     C      .16793,      .15754,      .14702,      .13659,      .11191, BPH 2810
     C      .09060,      .07368,      .06147,      .05381,      .05020, BPH 2820
     C      .04990,      .05207,      .05380,      .05581,      .05801, BPH 2830
     C      .06028,      .06253,      .06468,      .06664,      .06834, BPH 2840
     C      .06973,      .07077,      .07140,      .07161/              BPH 2850
      DATA PHSF26/                                                      BPH 2860
     C     4.10720,     3.38127,     2.61113,     2.06147,     1.66320, BPH 2870
     C     1.36400,     1.13140,      .79725,      .57362,      .41947, BPH 2880
     C      .31103,      .23368,      .17766,      .13659,      .07413, BPH 2890
     C      .04288,      .02647,      .01753,      .01255,      .00978, BPH 2900
     C      .00837,      .00791,      .00800,      .00831,      .00888, BPH 2910
     C      .00974,      .01087,      .01219,      .01347,      .01448, BPH 2920
     C      .01468,      .01320,      .01237,      .01467/              BPH 2930
      DATA PHSF27/                                                      BPH 2940
     C     4.37885,     3.78265,     2.97685,     2.33720,     1.85900, BPH 2950
     C     1.49815,     1.22035,      .83140,      .58200,      .41624, BPH 2960
     C      .30308,      .22426,      .16839,      .12816,      .06844, BPH 2970
     C      .03932,      .02424,      .01607,      .01151,      .00894, BPH 2980
     C      .00753,      .00684,      .00668,      .00661,      .00661, BPH 2990
     C      .00668,      .00679,      .00692,      .00706,      .00715, BPH 3000
     C      .00715,      .00705,      .00703,      .00721/              BPH 3010
      DATA PHSF28/                                                      BPH 3020
     C     1.99262,     1.84586,     1.62814,     1.42586,     1.24733, BPH 3030
     C     1.09157,      .95572,      .73435,      .56567,      .43699, BPH 3040
     C      .33874,      .26371,      .20635,      .16235,      .09181, BPH 3050
     C      .05440,      .03397,      .02253,      .01601,      .01230, BPH 3060
     C      .01031,      .00946,      .00938,      .00951,      .00985, BPH 3070
     C      .01043,      .01123,      .01222,      .01328,      .01405, BPH 3080
     C      .01405,      .01340,      .01391,      .01521/              BPH 3090
      DATA PHSF29/                                                      BPH 3100
     C     2.72707,     2.52017,     2.15725,     1.81463,     1.52555, BPH 3110
     C     1.28665,     1.08932,      .78963,      .58023,      .43161, BPH 3120
     C      .32473,      .24695,      .18977,      .14727,      .08150, BPH 3130
     C      .04783,      .02980,      .01981,      .01414,      .01091, BPH 3140
     C      .00911,      .00819,      .00796,      .00784,      .00781, BPH 3150
     C      .00787,      .00798,      .00812,      .00825,      .00831, BPH 3160
     C      .00830,      .00829,      .00847,      .00868/              BPH 3170
      DATA PHSF30/                                                      BPH 3180
     C   183.60000,    32.48000,     3.18400,     1.30100,      .85020, BPH 3190
     C      .63540,      .54470,      .41140,      .33110,      .26080, BPH 3200
     C      .20850,      .16570,      .12700,      .09546,      .04755, BPH 3210
     C      .02460,      .01160,      .00650,      .00370,      .00264, BPH 3220
     C      .00234,      .00355,      .00326,      .00308,      .00528, BPH 3230
     C      .01403,      .02285,      .01565,      .01398,      .01362, BPH 3240
     C      .01240,      .01544,      .02607,      .04655/              BPH 3250
      DATA PHSF31/                                                      BPH 3260
     C  1565.50000,     9.96867,     1.73233,      .92547,      .70240, BPH 3270
     C      .59477,      .52513,      .42173,      .33793,      .26700, BPH 3280
     C      .20973,      .16157,      .11973,      .09043,      .04400, BPH 3290
     C      .01947,      .00793,      .00346,      .00177,      .00138, BPH 3300
     C      .00166,      .00254,      .00438,      .00358,      .00653, BPH 3310
     C      .02986,      .01362,      .01200,      .00992,      .00867, BPH 3320
     C      .00765,      .00818,      .00986,      .05756/              BPH 3330
      DATA PHSF32/                                                      BPH 3340
     C      .79503,      .78714,      .76605,      .73601,      .70017, BPH 3350
     C      .66092,      .61994,      .53736,      .45896,      .38796, BPH 3360
     C      .32563,      .27208,      .22676,      .18879,      .11979, BPH 3370
     C      .07727,      .05125,      .03541,      .02586,      .02025, BPH 3380
     C      .01717,      .01576,      .01552,      .01551,      .01571, BPH 3390
     C      .01607,      .01656,      .01710,      .01764,      .01814, BPH 3400
     C      .01872,      .01965,      .02093,      .02164/              BPH 3410
      DATA PHSF33/                                                      BPH 3420
     C     1.56125,     1.49306,     1.34900,     1.19444,     1.05048, BPH 3430
     C      .92302,      .81176,      .63177,      .49621,      .39304, BPH 3440
     C      .31378,      .25238,      .20435,      .16659,      .10271, BPH 3450
     C      .06594,      .04424,      .03123,      .02338,      .01868, BPH 3460
     C      .01592,      .01439,      .01392,      .01360,      .01339, BPH 3470
     C      .01325,      .01315,      .01310,      .01308,      .01314, BPH 3480
     C      .01330,      .01355,      .01381,      .01392/              BPH 3490
      DATA PHSF34/                                                      BPH 3500
     C     1.22457,     1.18085,     1.08610,      .98058,      .87944, BPH 3510
     C      .78708,      .70433,      .56565,      .45677,      .37107, BPH 3520
     C      .30321,      .24916,      .20585,      .17099,      .11000, BPH 3530
     C      .07323,      .05066,      .03666,      .02794,      .02253, BPH 3540
     C      .01924,      .01727,      .01663,      .01614,      .01577, BPH 3550
     C      .01550,      .01532,      .01522,      .01523,      .01536, BPH 3560
     C      .01562,      .01596,      .01627,      .01640/              BPH 3570
      DATA PHSF35/                                                      BPH 3580
     C      .15944,      .15931,      .15893,      .15825,      .15734, BPH 3590
     C      .15620,      .15479,      .15131,      .14701,      .14199, BPH 3600
     C      .13638,      .13030,      .12389,      .11727,      .10065, BPH 3610
     C      .08527,      .07250,      .06322,      .05782,      .05621, BPH 3620
     C      .05792,      .06222,      .06505,      .06817,      .07146, BPH 3630
     C      .07479,      .07805,      .08112,      .08390,      .08631, BPH 3640
     C      .08826,      .08970,      .09058,      .09088/              BPH 3650
      DATA PHSF36/                                                      BPH 3660
     C      .72999,      .72086,      .69632,      .66227,      .62369, BPH 3670
     C      .58366,      .54390,      .46850,      .40091,      .34178, BPH 3680
     C      .29081,      .24724,      .21025,      .17893,      .12047, BPH 3690
     C      .08253,      .05810,      .04253,      .03278,      .02688, BPH 3700
     C      .02352,      .02183,      .02142,      .02122,      .02118, BPH 3710
     C      .02127,      .02146,      .02171,      .02202,      .02235, BPH 3720
     C      .02273,      .02314,      .02351,      .02367/              BPH 3730
      DATA PHSF37/                                                      BPH 3740
     C     1.15457,     1.13481,     1.08637,     1.02208,      .95035, BPH 3750
     C      .87581,      .80158,      .66139,      .53812,      .43402, BPH 3760
     C      .34834,      .27905,      .22360,      .17950,      .10538, BPH 3770
     C      .06398,      .04056,      .02712,      .01935,      .01490, BPH 3780
     C      .01250,      .01143,      .01126,      .01130,      .01153, BPH 3790
     C      .01191,      .01242,      .01301,      .01357,      .01399, BPH 3800
     C      .01422,      .01450,      .01526,      .01585/              BPH 3810
      DATA PHSF38/                                                      BPH 3820
     C      .31056,      .30982,      .30766,      .30415,      .29944, BPH 3830
     C      .29365,      .28698,      .27149,      .25411,      .23575, BPH 3840
     C      .21708,      .19865,      .18081,      .16385,      .12623, BPH 3850
     C      .09621,      .07365,      .05766,      .04714,      .04092, BPH 3860
     C      .03792,      .03722,      .03748,      .03804,      .03881, BPH 3870
     C      .03972,      .04071,      .04172,      .04270,      .04358, BPH 3880
     C      .04433,      .04490,      .04526,      .04539/              BPH 3890
      DATA PHSF39/                                                      BPH 3900
     C      .12377,      .12369,      .12346,      .12308,      .12254, BPH 3910
     C      .12185,      .12102,      .11893,      .11632,      .11324, BPH 3920
     C      .10974,      .10592,      .10181,      .09752,      .08650, BPH 3930
     C      .07613,      .06762,      .06192,      .05964,      .06097, BPH 3940
     C      .06565,      .07304,      .07747,      .08219,      .08708, BPH 3950
     C      .09196,      .09670,      .10114,      .10516,      .10862, BPH 3960
     C      .11144,      .11349,      .11477,      .11519/              BPH 3970
      DATA PHSF40/                                                      BPH 3980
     C      .13400,      .13391,      .13367,      .13321,      .13259, BPH 3990
     C      .13180,      .13085,      .12842,      .12541,      .12185, BPH 4000
     C      .11785,      .11344,      .10872,      .10383,      .09125, BPH 4010
     C      .07940,      .06955,      .06267,      .05932,      .05961, BPH 4020
     C      .06323,      .06951,      .07336,      .07751,      .08181, BPH 4030
     C      .08613,      .09032,      .09426,      .09782,      .10091, BPH 4040
     C      .10339,      .10522,      .10634,      .10673/              BPH 4050
      DATA PHSF41/                                                      BPH 4060
     C   227.93333,    32.03000,     4.13167,     1.54367,      .95123, BPH 4070
     C      .71613,      .58840,      .43330,      .33043,      .25093, BPH 4080
     C      .18920,      .14303,      .10800,      .08045,      .03915, BPH 4090
     C      .01854,      .00866,      .00431,      .00239,      .00168, BPH 4100
     C      .00157,      .00266,      .00434,      .00724,      .01132, BPH 4110
     C      .01476,      .00983,      .00835,      .00785,      .00711, BPH 4120
     C      .00717,      .00803,      .01265,      .02951/              BPH 4130
      DATA PHSF42/                                                      BPH 4140
     C    10.12167,     9.39467,     7.61833,     5.59200,     3.87533, BPH 4150
     C     2.62733,     1.78200,      .85247,      .43620,      .23983, BPH 4160
     C      .14187,      .08952,      .05950,      .04115,      .01854, BPH 4170
     C      .00956,      .00552,      .00354,      .00251,      .00195, BPH 4180
     C      .00163,      .00145,      .00139,      .00134,      .00129, BPH 4190
     C      .00125,      .00122,      .00120,      .00120,      .00120, BPH 4200
     C      .00120,      .00115,      .00105,      .00106/              BPH 4210
      DATA PHSF43/                                                      BPH 4220
     C    23.70500,    19.81000,    12.14500,     6.16400,     2.96850, BPH 4230
     C     1.51300,      .86515,      .39850,      .24525,      .17225, BPH 4240
     C      .12825,      .09809,      .07598,      .05932,      .03272, BPH 4250
     C      .01871,      .01120,      .00710,      .00485,      .00363, BPH 4260
     C      .00303,      .00286,      .00290,      .00302,      .00318, BPH 4270
     C      .00334,      .00345,      .00349,      .00354,      .00388, BPH 4280
     C      .00510,      .00600,      .00344,      .00472/              BPH 4290
      DATA PHSF44/                                                      BPH 4300
     C     1.13310,     1.12586,     1.10518,     1.07182,     1.02708, BPH 4310
     C      .97348,      .91266,      .77952,      .64406,      .51826, BPH 4320
     C      .40884,      .31800,      .24506,      .18784,      .09626, BPH 4330
     C      .05060,      .02818,      .01701,      .01126,      .00818, BPH 4340
     C      .00651,      .00563,      .00539,      .00526,      .00522, BPH 4350
     C      .00525,      .00536,      .00551,      .00571,      .00595, BPH 4360
     C      .00624,      .00656,      .00681,      .00692/              BPH 4370
      DATA PHSF45/                                                      BPH 4380
     C      .61443,      .61273,      .60783,      .59967,      .58847, BPH 4390
     C      .57447,      .55783,      .51803,      .47153,      .42127, BPH 4400
     C      .36970,      .31913,      .27140,      .22780,      .14030, BPH 4410
     C      .08293,      .04868,      .02942,      .01892,      .01327, BPH 4420
     C      .01027,      .00875,      .00834,      .00811,      .00800, BPH 4430
     C      .00801,      .00810,      .00824,      .00842,      .00861, BPH 4440
     C      .00879,      .00893,      .00903,      .00906/              BPH 4450
      DATA PHSF46/                                                      BPH 4460
     C     2.06615,     1.93640,     1.69345,     1.45610,     1.24945, BPH 4470
     C     1.07421,      .92677,      .69739,      .53175,      .41021, BPH 4480
     C      .31969,      .25144,      .19943,      .15944,      .09421, BPH 4490
     C      .05837,      .03804,      .02624,      .01931,      .01523, BPH 4500
     C      .01288,      .01160,      .01123,      .01099,      .01084, BPH 4510
     C      .01077,      .01073,      .01072,      .01070,      .01068, BPH 4520
     C      .01069,      .01078,      .01095,      .01105/              BPH 4530
      DATA PHSF47/                                                      BPH 4540
     C  1888.10000,    16.32500,     2.35900,     1.00950,      .67300, BPH 4550
     C      .53970,      .46415,      .37245,      .30310,      .24865, BPH 4560
     C      .20715,      .15820,      .13160,      .10710,      .05669, BPH 4570
     C      .02778,      .01325,      .00679,      .00344,      .00306, BPH 4580
     C      .00420,      .00189,      .00154,      .00137,      .00145, BPH 4590
     C      .00265,      .01227,      .03321,      .02025,      .01971, BPH 4600
     C      .01869,      .02153,      .03166,      .09376/              BPH 4610
      DATA PHSF48/                                                      BPH 4620
     C 18500.00000,     2.83400,      .85070,      .58200,      .49050, BPH 4630
     C      .44240,      .40380,      .35560,      .31400,      .25730, BPH 4640
     C      .19510,      .17010,      .12770,      .10750,      .05190, BPH 4650
     C      .02554,      .01105,      .00365,      .00203,      .00200, BPH 4660
     C      .00370,      .00118,      .00112,      .00112,      .00113, BPH 4670
     C      .00113,      .00549,      .02603,      .02019,      .01751, BPH 4680
     C      .01439,      .01308,      .01407,      .10720/              BPH 4690
      DATA PHSF49/                                                      BPH 4700
     C   190.90000,    60.01000,     8.56500,     2.26600,      .98870, BPH 4710
     C      .55520,      .36100,      .19580,      .12640,      .08822, BPH 4720
     C      .06382,      .04693,      .03478,      .02590,      .01264, BPH 4730
     C      .00642,      .00348,      .00208,      .00143,      .00120, BPH 4740
     C      .00124,      .00131,      .00123,      .00108,      .00097, BPH 4750
     C      .00092,      .00090,      .00089,      .00091,      .00096, BPH 4760
     C      .00107,      .00136,      .00251,      .00246/              BPH 4770
      DATA PHSF50/                                                      BPH 4780
     C    44.01000,    33.47000,    16.38000,     6.54600,     2.66800, BPH 4790
     C     1.24800,      .68020,      .27930,      .14670,      .08818, BPH 4800
     C      .05760,      .03977,      .02856,      .02111,      .01087, BPH 4810
     C      .00620,      .00387,      .00265,      .00198,      .00161, BPH 4820
     C      .00141,      .00129,      .00125,      .00122,      .00120, BPH 4830
     C      .00119,      .00118,      .00117,      .00117,      .00117, BPH 4840
     C      .00118,      .00118,      .00113,      .00113/              BPH 4850
      DATA PHSF51/                                                      BPH 4860
     C    45.72000,    22.68000,     8.45200,     3.68600,     1.89400, BPH 4870
     C     1.11400,      .72990,      .39640,      .26220,      .19430, BPH 4880
     C      .15350,      .12410,      .10220,      .08533,      .05455, BPH 4890
     C      .03546,      .02333,      .01580,      .01103,      .00801, BPH 4900
     C      .00615,      .00530,      .00517,      .00509,      .00547, BPH 4910
     C      .00614,      .00763,      .01038,      .01534,      .02235, BPH 4920
     C      .02692,      .02902,      .03071,      .03320/              BPH 4930
      DATA PHSF52/                                                      BPH 4940
     C     1.35800,     1.34900,     1.32400,     1.28300,     1.22900, BPH 4950
     C     1.16200,     1.08700,      .91840,      .74460,      .58190, BPH 4960
     C      .44060,      .32530,      .23580,      .16900,      .07319, BPH 4970
     C      .03392,      .01766,      .01037,      .00676,      .00484, BPH 4980
     C      .00377,      .00317,      .00298,      .00284,      .00274, BPH 4990
     C      .00269,      .00267,      .00268,      .00274,      .00283, BPH 5000
     C      .00294,      .00306,      .00314,      .00317/              BPH 5010
      DATA PHSF53/                                                      BPH 5020
     C  8232.00000,     3.82700,      .95120,      .65890,      .52640, BPH 5030
     C      .49710,      .52530,      .38980,      .33700,      .25360, BPH 5040
     C      .21110,      .16430,      .12260,      .09209,      .04939, BPH 5050
     C      .01954,      .00754,      .00272,      .00161,      .00134, BPH 5060
     C      .00166,      .00334,      .00383,      .00124,      .00127, BPH 5070
     C      .01906,      .01831,      .01420,      .01077,      .00904, BPH 5080
     C      .00782,      .00667,      .00690,      .04228/              BPH 5090
      DATA PHSF54/                                                      BPH 5100
     C    13.90000,    12.72000,     9.87700,     6.74400,     4.24600, BPH 5110
     C     2.58600,     1.58500,      .66190,      .32580,      .18150, BPH 5120
     C      .10950,      .06977,      .04630,      .03174,      .01380, BPH 5130
     C      .00682,      .00376,      .00228,      .00153,      .00111, BPH 5140
     C      .00088,      .00073,      .00068,      .00064,      .00061, BPH 5150
     C      .00059,      .00057,      .00056,      .00055,      .00055, BPH 5160
     C      .00056,      .00054,      .00050,      .00050/              BPH 5170
      DATA PHSF55/                                                      BPH 5180
     C    36.42000,    23.44333,     8.52800,     3.11067,     1.49100, BPH 5190
     C      .91783,      .67607,      .46263,      .34257,      .26417, BPH 5200
     C      .20367,      .15540,      .12417,      .09463,      .05233, BPH 5210
     C      .02803,      .01629,      .00958,      .00583,      .00472, BPH 5220
     C      .00438,      .00458,      .00534,      .00777,      .01141, BPH 5230
     C      .01545,      .01958,      .01880,      .01607,      .01696, BPH 5240
     C      .01907,      .03025,      .03881,      .05215/              BPH 5250
      DATA PHSF56/                                                      BPH 5260
     C    46.49000,    31.63000,    12.30000,     4.19500,     1.72400, BPH 5270
     C      .91960,      .59580,      .34070,      .23500,      .17450, BPH 5280
     C      .13450,      .10490,      .08291,      .06559,      .03717, BPH 5290
     C      .02135,      .01252,      .00762,      .00490,      .00346, BPH 5300
     C      .00283,      .00278,      .00305,      .00366,      .00464, BPH 5310
     C      .00584,      .00670,      .00683,      .00640,      .00651, BPH 5320
     C      .00846,      .01345,      .01103,      .01440/              BPH 5330
      DATA PHSF57/                                                      BPH 5340
     C  1698.00000,    15.47000,     3.11967,     1.46900,      .97483, BPH 5350
     C      .76003,      .62317,      .46853,      .36270,      .28193, BPH 5360
     C      .22163,      .17287,      .13357,      .10470,      .05409, BPH 5370
     C      .02799,      .01396,      .00794,      .00479,      .00390, BPH 5380
     C      .00409,      .00407,      .00363,      .00324,      .00464, BPH 5390
     C      .01060,      .01826,      .01957,      .01599,      .01547, BPH 5400
     C      .01597,      .01678,      .02321,      .05917/              BPH 5410
      DATA PHSF58/                                                      BPH 5420
     C   525.35000,     5.54850,     3.39200,     2.40225,     1.79275, BPH 5430
     C     1.38725,     1.10400,      .74203,      .52213,      .37803, BPH 5440
     C      .27970,      .20945,      .15915,      .12258,      .06615, BPH 5450
     C      .03783,      .02289,      .01510,      .01074,      .00837, BPH 5460
     C      .00717,      .00653,      .00661,      .00699,      .00781, BPH 5470
     C      .00922,      .01127,      .01364,      .01588,      .01743, BPH 5480
     C      .01838,      .01583,      .01491,      .02015/              BPH 5490
      DATA PHSF59/                                                      BPH 5500
     C    56.57000,    10.86983,     4.30450,     2.32817,     1.48817, BPH 5510
     C     1.05608,      .80615,      .53590,      .39175,      .30123, BPH 5520
     C      .23833,      .19167,      .15528,      .12653,      .07717, BPH 5530
     C      .04870,      .03126,      .02128,      .01493,      .01091, BPH 5540
     C      .00856,      .00765,      .00767,      .00787,      .00840, BPH 5550
     C      .00973,      .01199,      .01623,      .02446,      .03802, BPH 5560
     C      .04421,      .04801,      .05991,      .06067/              BPH 5570
      DATA PHSF60/                                                      BPH 5580
     C    37.27000,    14.69200,     6.78420,     3.81000,     2.39800, BPH 5590
     C     1.62640,     1.16200,      .66076,      .41350,      .27594, BPH 5600
     C      .19292,      .13976,      .10406,      .07926,      .04328, BPH 5610
     C      .02568,      .01635,      .01116,      .00822,      .00657, BPH 5620
     C      .00569,      .00527,      .00516,      .00510,      .00508, BPH 5630
     C      .00511,      .00518,      .00528,      .00537,      .00537, BPH 5640
     C      .00527,      .00528,      .00536,      .00549/              BPH 5650
      DATA PHSF61/                                                      BPH 5660
     C    24.80333,    14.28000,     8.35167,     5.06833,     3.14833, BPH 5670
     C     2.03700,     1.38367,      .72373,      .42163,      .26167, BPH 5680
     C      .16947,      .11343,      .07807,      .05503,      .02512, BPH 5690
     C      .01283,      .00726,      .00455,      .00317,      .00247, BPH 5700
     C      .00214,      .00196,      .00187,      .00177,      .00168, BPH 5710
     C      .00159,      .00153,      .00150,      .00151,      .00161, BPH 5720
     C      .00185,      .00209,      .00168,      .00168/              BPH 5730
      DATA PHSF62/                                                      BPH 5740
     C   101.15286,     5.39657,     2.28843,     1.62671,     1.32757, BPH 5750
     C     1.13054,      .97696,      .73870,      .56023,      .42529, BPH 5760
     C      .32319,      .24639,      .18874,      .14550,      .07827, BPH 5770
     C      .04428,      .02652,      .01699,      .01182,      .00901, BPH 5780
     C      .00763,      .00715,      .00718,      .00742,      .00797, BPH 5790
     C      .00901,      .01007,      .01036,      .01076,      .01129, BPH 5800
     C      .01176,      .01204,      .01243,      .01444/              BPH 5810
      DATA PHSF63/                                                      BPH 5820
     C    48.02600,    10.67620,     3.98180,     2.14360,     1.42080, BPH 5830
     C     1.06302,      .85178,      .60524,      .45450,      .34880, BPH 5840
     C      .26996,      .21070,      .16526,      .13048,      .07415, BPH 5850
     C      .04380,      .02714,      .01784,      .01271,      .00998, BPH 5860
     C      .00877,      .00871,      .00917,      .00990,      .01086, BPH 5870
     C      .01174,      .01200,      .01185,      .01202,      .01250, BPH 5880
     C      .01377,      .01588,      .01523,      .01909/              BPH 5890
      DATA PHSF64/                                                      BPH 5900
     C    34.21833,    12.06500,     4.94933,     2.57983,     1.56550, BPH 5910
     C     1.05695,      .77238,      .48407,      .34568,      .26490, BPH 5920
     C      .21097,      .17168,      .14155,      .11773,      .07609, BPH 5930
     C      .05056,      .03467,      .02483,      .01884,      .01536, BPH 5940
     C      .01352,      .01276,      .01267,      .01273,      .01293, BPH 5950
     C      .01326,      .01371,      .01427,      .01491,      .01553, BPH 5960
     C      .01582,      .01535,      .01512,      .01573/              BPH 5970
      DATA PHSF65/                                                      BPH 5980
     C     8.59757,     6.79429,     4.60071,     3.23457,     2.36214, BPH 5990
     C     1.77586,     1.36529,      .84849,      .55343,      .37399, BPH 6000
     C      .25995,      .18501,      .13442,      .09951,      .05039, BPH 6010
     C      .02794,      .01684,      .01103,      .00787,      .00614, BPH 6020
     C      .00521,      .00476,      .00465,      .00460,      .00460, BPH 6030
     C      .00464,      .00470,      .00479,      .00490,      .00502, BPH 6040
     C      .00509,      .00498,      .00479,      .00491/              BPH 6050
      DATA PHSF66/                                                      BPH 6060
     C     7.73378,     6.31989,     4.61211,     3.41189,     2.56922, BPH 6070
     C     1.96389,     1.51900,      .93560,      .59521,      .38946, BPH 6080
     C      .26146,      .17967,      .12618,      .09038,      .04241, BPH 6090
     C      .02194,      .01241,      .00766,      .00519,      .00386, BPH 6100
     C      .00314,      .00278,      .00267,      .00259,      .00254, BPH 6110
     C      .00251,      .00251,      .00252,      .00256,      .00261, BPH 6120
     C      .00268,      .00274,      .00268,      .00273/              BPH 6130
      DATA PHSF67/                                                      BPH 6140
     C    13.24333,    11.06100,     7.42300,     4.70567,     2.98533, BPH 6150
     C     1.97200,     1.37267,      .75370,      .45857,      .29573, BPH 6160
     C      .19823,      .13693,      .09689,      .07004,      .03369, BPH 6170
     C      .01789,      .01040,      .00660,      .00460,      .00353, BPH 6180
     C      .00298,      .00273,      .00268,      .00266,      .00265, BPH 6190
     C      .00265,      .00265,      .00266,      .00270,      .00282, BPH 6200
     C      .00308,      .00319,      .00262,      .00275/              BPH 6210
      DATA PHSF68/                                                      BPH 6220
     C    37.10000,    12.65667,     5.63100,     3.16800,     2.05233, BPH 6230
     C     1.45750,     1.09982,      .69772,      .47462,      .33515, BPH 6240
     C      .24170,      .17635,      .13072,      .09747,      .04922, BPH 6250
     C      .02644,      .01502,      .00935,      .00640,      .00503, BPH 6260
     C      .00468,      .00549,      .00635,      .00767,      .00953, BPH 6270
     C      .01124,      .01140,      .01090,      .01055,      .01125, BPH 6280
     C      .01355,      .01701,      .01486,      .02554/              BPH 6290
      DATA PHSF69/                                                      BPH 6300
     C   256.51429,    19.73571,     5.24714,     2.30771,     1.36100, BPH 6310
     C      .94431,      .72756,      .50319,      .37583,      .28504, BPH 6320
     C      .22174,      .17010,      .13151,      .10155,      .05367, BPH 6330
     C      .02848,      .01561,      .00902,      .00592,      .00443, BPH 6340
     C      .00434,      .00493,      .00535,      .00629,      .00897, BPH 6350
     C      .01636,      .01849,      .01647,      .01539,      .01496, BPH 6360
     C      .01673,      .02178,      .02754,      .05075/              BPH 6370
      DATA PHSF70/                                                      BPH 6380
     C    27.44667,    14.67667,     7.63033,     4.46200,     2.82633, BPH 6390
     C     1.89500,     1.32600,      .71323,      .41983,      .26377, BPH 6400
     C      .17420,      .11977,      .08514,      .06224,      .03144, BPH 6410
     C      .01785,      .01118,      .00766,      .00573,      .00466, BPH 6420
     C      .00407,      .00377,      .00368,      .00363,      .00360, BPH 6430
     C      .00359,      .00360,      .00361,      .00363,      .00365, BPH 6440
     C      .00366,      .00367,      .00367,      .00369/              BPH 6450
C>    END                                                               BPH 6460
C>      SUBROUTINE RANSET(I)                                            BPH 6470
C>      COMMON/RST/ II                                                  BPH 6480
C>      RANET= RAN(I)                                                   BPH 6490
C>        II=RANET                                                      BPH 6500
C>      RETURN                                                          BPH 6510
C>      END                                                             BPH 6520
C>      FUNCTION RANF                                                   BPH 6530
C>      COMMON/RST/ II                                                  BPH 6540
C>      RANF= RAN(II)                                                   BPH 6550
C>        II=RANF                                                       BPH 6560
C>      RETURN                                                          BPH 6570
      END                                                               BPH 6580
      BLOCK DATA PRFDTA                                                 PRF  100
C>    BLOCK DATA                                                        PRF  110
C                                                                       PRF  120
C        AEROSOL PROFILE DATA                                           PRF  130
C                                                                       PRF  140
CCC         0-2KM                                                       PRF  150
CCC           HZ2K=5 VIS PROFILES- 50KM,23KM,10KM,5KM,2KM               PRF  160
CCC         >2-10KM                                                     PRF  170
CCC           FAWI50=FALL/WINTER   50KM VIS                             PRF  180
CCC           FAWI23=FALL/WINTER    23KM VIS                            PRF  190
CCC           SPSU50=SPRING/SUMMER  50KM VIS                            PRF  200
CCC           SPSU23=SPRING/SUMMER  23KM VIS                            PRF  210
CCC         >10-30KM                                                    PRF  220
CCC           BASTFW=BACKGROUND STRATOSPHERIC   FALL/WINTER             PRF  230
CCC           VUMOFW=MODERATE VOLCANIC          FALL/WINTER             PRF  240
CCC           HIVUFW=HIGH VOLCANIC              FALL/WINTER             PRF  250
CCC           EXVUFW=EXTREME VOLCANIC           FALL/WINTER             PRF  260
CCC           BASTSS,VUMOSS,HIVUSS,EXVUSS=      SPRING/SUMMER           PRF  270
CCC         >30-100KM                                                   PRF  280
CCC           UPNATM=NORMAL UPPER ATMOSPHERIC                           PRF  290
CCC           VUTONO=TRANSITION FROM VOLCANIC TO NORMAL                 PRF  300
CCC           VUTOEX=TRANSITION FROM VOLCANIC TO EXTREME                PRF  310
CCC           EXUPAT=EXTREME UPPER ATMOSPHERIC                          PRF  320
      COMMON/PRFD  /ZHT(34),HZ2K(34,5),FAWI50(34),FAWI23(34),SPSU50(34),PRF  330
     1SPSU23(34),BASTFW(34),VUMOFW(34),HIVUFW(34),EXVUFW(34),BASTSS(34),PRF  340
     2VUMOSS(34),HIVUSS(34),EXVUSS(34),UPNATM(34),VUTONO(34),           PRF  350
     3VUTOEX(34),EXUPAT(34)                                             PRF  360
      DATA ZHT/                                                         PRF  370
     *    0.,    1.,    2.,    3.,    4.,    5.,    6.,    7.,    8.,   PRF  380
     *    9.,   10.,   11.,   12.,   13.,   14.,   15.,   16.,   17.,   PRF  390
     *   18.,   19.,   20.,   21.,   22.,   23.,   24.,   25.,   30.,   PRF  400
     *   35.,   40.,   45.,   50.,   70.,  100.,99999./                 PRF  410
       DATA HZ2K(1,1),HZ2K(1,2),HZ2K(1,3),HZ2K(1,4),HZ2K(1,5)/          PRF  420
     1 6.62E-02, 1.58E-01, 3.79E-01, 7.70E-01, 1.94E+00/                PRF  430
       DATA HZ2K(2,1),HZ2K(2,2),HZ2K(2,3),HZ2K(2,4),HZ2K(2,5)/          PRF  440
     1 4.15E-02, 9.91E-02, 3.79E-01, 7.70E-01, 1.94E+00/                PRF  450
       DATA HZ2K(3,1),HZ2K(3,2),HZ2K(3,3),HZ2K(3,4),HZ2K(3,5)/          PRF  460
     1 2.60E-02, 6.21E-02, 6.21E-02, 6.21E-02, 6.21E-02/                PRF  470
      DATA FAWI50  /3*0.,                                               PRF  480
     1 1.14E-02, 6.43E-03, 4.85E-03, 3.54E-03, 2.31E-03, 1.41E-03,      PRF  490
     2 9.80E-04,7.87E-04,23*0./                                         PRF  500
      DATA FAWI23              /3*0.,                                   PRF  510
     1 2.72E-02, 1.20E-02, 4.85E-03, 3.54E-03, 2.31E-03, 1.41E-03,      PRF  520
     2 9.80E-04,7.87E-04,23*0./                                         PRF  530
      DATA  SPSU50              / 3*0.,                                 PRF  540
     1 1.46E-02, 1.02E-02, 9.31E-03, 7.71E-03, 6.23E-03, 3.37E-03,      PRF  550
     2 1.82E-03  ,1.14E-03,23*0./                                       PRF  560
      DATA  SPSU23              / 3*0.,                                 PRF  570
     1 3.46E-02, 1.85E-02, 9.31E-03, 7.71E-03, 6.23E-03, 3.37E-03,      PRF  580
     2 1.82E-03  ,1.14E-03,23*0./                                       PRF  590
      DATA BASTFW       /11*0.,                                         PRF  600
     1           7.14E-04, 6.64E-04, 6.23E-04, 6.45E-04, 6.43E-04,      PRF  610
     2 6.41E-04, 6.00E-04, 5.62E-04, 4.91E-04, 4.23E-04, 3.52E-04,      PRF  620
     3 2.95E-04, 2.42E-04, 1.90E-04, 1.50E-04, 3.32E-05 ,7*0./          PRF  630
      DATA    VUMOFW       /11*0.,                                      PRF  640
     1           1.79E-03, 2.21E-03, 2.75E-03, 2.89E-03, 2.92E-03,      PRF  650
     2 2.73E-03, 2.46E-03, 2.10E-03, 1.71E-03, 1.35E-03, 1.09E-03,      PRF  660
     3 8.60E-04, 6.60E-04, 5.15E-04, 4.09E-04, 7.60E-05 ,7*0./          PRF  670
      DATA    HIVUFW       /11*0.,                                      PRF  680
     1           2.31E-03, 3.25E-03, 4.52E-03, 6.40E-03, 7.81E-03,      PRF  690
     2 9.42E-03, 1.07E-02, 1.10E-02, 8.60E-03, 5.10E-03, 2.70E-03,      PRF  700
     3 1.46E-03, 8.90E-04, 5.80E-04, 4.09E-04, 7.60E-05 ,7*0./          PRF  710
      DATA    EXVUFW       /11*0.,                                      PRF  720
     1           2.31E-03, 3.25E-03, 4.52E-03, 6.40E-03, 1.01E-02,      PRF  730
     2 2.35E-02, 6.10E-02, 1.00E-01, 4.00E-02, 9.15E-03, 3.13E-03,      PRF  740
     3 1.46E-03, 8.90E-04, 5.80E-04, 4.09E-04, 7.60E-05 ,7*0./          PRF  750
      DATA    BASTSS       /11*0.,                                      PRF  760
     1           7.99E-04, 6.41E-04, 5.17E-04, 4.42E-04, 3.95E-04,      PRF  770
     2 3.82E-04, 4.25E-04, 5.20E-04, 5.81E-04, 5.89E-04, 5.02E-04,      PRF  780
     3 4.20E-04, 3.00E-04, 1.98E-04, 1.31E-04, 3.32E-05 ,7*0./          PRF  790
      DATA    VUMOSS       /11*0.,                                      PRF  800
     1           2.12E-03, 2.45E-03, 2.80E-03, 2.89E-03, 2.92E-03,      PRF  810
     2 2.73E-03, 2.46E-03, 2.10E-03, 1.71E-03, 1.35E-03, 1.09E-03,      PRF  820
     3 8.60E-04, 6.60E-04, 5.15E-04, 4.09E-04, 7.60E-05 ,7*0./          PRF  830
      DATA    HIVUSS       /11*0.,                                      PRF  840
     1           2.12E-03, 2.45E-03, 2.80E-03, 3.60E-03, 5.23E-03,      PRF  850
     2 8.11E-03, 1.20E-02, 1.52E-02, 1.53E-02, 1.17E-02, 7.09E-03,      PRF  860
     3 4.50E-03, 2.40E-03, 1.28E-03, 7.76E-04, 7.60E-05 ,7*0./          PRF  870
      DATA    EXVUSS       /11*0.,                                      PRF  880
     1           2.12E-03, 2.45E-03, 2.80E-03, 3.60E-03, 5.23E-03,      PRF  890
     2 8.11E-03, 1.27E-02, 2.32E-02, 4.85E-02, 1.00E-01, 5.50E-02,      PRF  900
     3 6.10E-03, 2.40E-03, 1.28E-03, 7.76E-04, 7.60E-05 ,7*0./          PRF  910
      DATA UPNATM       /26*0.,                                         PRF  920
     1 3.32E-05, 1.64E-05, 7.99E-06, 4.01E-06, 2.10E-06, 1.60E-07,      PRF  930
     2 9.31E-10, 0.      /                                              PRF  940
      DATA VUTONO       /26*0.,                                         PRF  950
     1 7.60E-05, 2.45E-05, 7.99E-06, 4.01E-06, 2.10E-06, 1.60E-07,      PRF  960
     2 9.31E-10, 0.      /                                              PRF  970
      DATA VUTOEX       /26*0.,                                         PRF  980
     1 7.60E-05, 7.20E-05, 6.95E-05, 6.60E-05, 5.04E-05, 1.03E-05,      PRF  990
     2 4.50E-07, 0.      /                                              PRF 1000
      DATA EXUPAT       /26*0.,                                         PRF 1010
     1 3.32E-05, 4.25E-05, 5.59E-05, 6.60E-05, 5.04E-05, 1.03E-05,      PRF 1020
     2 4.50E-07, 0.      /                                              PRF 1030
      END                                                               PRF 1040
      FUNCTION   PSI(PSIO,DELO,BETA,IARB,IARBO)                         FSI  100
C                                                                       FSI  110
C     FUNCTION PSI RETURNS THE VALUE OF SOLAR AZIMUTH RELATIVE TO       FSI  120
C     THE LINE OF SIGHT, AT THE CURRENT SCATTERING LOCATION             FSI  130
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              FSI  140
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     FSI  150
      DATA  EPSILN/1.0E-5/                                              FSI  160
      DELOR=DELO/DEG                                                    FSI  170
      BETAR=BETA/DEG                                                    FSI  180
      IF(IARBO.EQ.0) GO TO 5                                            FSI  190
C     SPECIAL CASES WHEN PSIO IS ARBITRARY                              FSI  200
      IARB=IARBO                                                        FSI  210
      IF(IARBO.EQ.1.OR.IARBO.EQ.3) RETURN                               FSI  220
      IF(BETA.LE.EPSILN) RETURN                                         FSI  230
C     PSI=180.0 (MOVED OUT FROM UNDER THE SUN)                          FSI  240
      IARB=0                                                            FSI  250
      PSI=180.0                                                         FSI  260
      RETURN                                                            FSI  270
5     CONTINUE                                                          FSI  280
C     GENERAL CASE                                                      FSI  290
      PSIOR=PSIO/DEG                                                    FSI  300
      IARB=0                                                            FSI  310
      ANUMER=SIN(DELOR)*SIN(PSIOR)                                      FSI  320
      DENOM=COS(BETAR)*SIN(DELOR)*COS(PSIOR)-SIN(BETAR)*COS(DELOR)      FSI  330
C     SPECIAL CASES                                                     FSI  340
C     NUMERATOR GOES TO ZERO IN THE FOLLOWING 3 CASES                   FSI  350
C 1)  DELO=0.0                                                          FSI  360
      IF(DELO.GT.EPSILN) GO TO 20                                       FSI  370
      IF(BETA.GT.EPSILN) GO TO 10                                       FSI  380
      IARB=2                                                            FSI  390
      RETURN                                                            FSI  400
10    PSI=180.0                                                         FSI  410
      RETURN                                                            FSI  420
C 2)  PSIO=0.0                                                          FSI  430
20    IF(ABS(PSIO).GT.EPSILN) GO TO 40                                  FSI  440
      IF(ABS(BETA-DELO).GE.EPSILN) GO TO 30                             FSI  450
C     SCATTERING POINT IS DIRECTLY UNDER THE SUN                        FSI  460
      IARB=2                                                            FSI  470
      RETURN                                                            FSI  480
30    IF(BETA.LT.DELO) PSI=0.0                                          FSI  490
      IF(BETA.GT.DELO) PSI=180.0                                        FSI  500
      RETURN                                                            FSI  510
C 3)  PSIO=180.0                                                        FSI  520
40    IF(ABS(PSIO).LT.(180.0-EPSILN)) GO TO 60                          FSI  530
      PSI=180.0                                                         FSI  540
      RETURN                                                            FSI  550
60    CONTINUE                                                          FSI  560
C     DENOMINATOR CAN GO TO ZERO FOR THE FOLLOWING 2 CASES              FSI  570
C 1)  BETA=DELO AND PSIO=0.0                                            FSI  580
C     THIS CASE WAS HANDLED EARLIER                                     FSI  590
C 2)  GENERAL CASE                                                      FSI  600
      IF(ABS(DENOM).GT.EPSILN) GO TO 80                                 FSI  610
      IF(PSIO.LT.0.0) PSI=-90.0                                         FSI  620
      IF(PSIO.GT.0.0) PSI=90.0                                          FSI  630
      RETURN                                                            FSI  640
80    CONTINUE                                                          FSI  650
      PSI=DEG*ATAN(ANUMER/DENOM)                                        FSI  660
C     NOTE ATAN RETURNS ARGUMENTS BETWEEN -90 AND 90, PSI               FSI  670
C     AND PSIO SHOULD BE OF THE SAME SIGN.                              FSI  680
      IF(PSIO.GT.0.0.AND.PSI.LT.0.0) PSI=PSI+180.                       FSI  690
      IF(PSIO.LT.0.0.AND.PSI.GT.0.0) PSI=PSI-180.                       FSI  700
      RETURN                                                            FSI  710
      END                                                               FSI  720
      SUBROUTINE PSIDEL(THETAS,PHIS,THETAO,PHIO,PSIPO2,PSIO,DELO,IARBO) PSI  100
C                                                                       PSI  110
C     THIS ROUTINE CALCULATES PSIO (THE RELATIVE AZIMUTH BETWEEN THE    PSI  120
C     LINE OF SIGHT AND THE DIRECT SOLAR PATH, AT THE OBSERVER)         PSI  130
C     AND DELO (THE ANGLE SUBTENDED AT THE EARTH'S CENTER BY THE        PSI  140
C     OBSERVER AND THE SUBSOLAR POINT).                                 PSI  150
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              PSI  160
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     PSI  170
      DATA  EPSILN/1.0E-5/                                              PSI  180
C                                                                       PSI  190
C     CHANGE CONVENTION FOR PSIPO FROM (EAST OF NORTH) TO (NORTH OF EASTPSI  200
C     FOR COMPUTATIONAL PURPOSES. RANGE IS -180 TO +180.                PSI  210
      PSIPO=90.0-PSIPO2                                                 PSI  220
      IF(PSIPO.GT.180.0) PSIPO=PSIPO-360.0                              PSI  230
C                                                                       PSI  240
      DPHI=PHIS-PHIO                                                    PSI  250
      DTHT=THETAS-THETAO                                                PSI  260
      THTS=THETAS/DEG                                                   PSI  270
      THTO=THETAO/DEG                                                   PSI  280
      DPH=DPHI/DEG                                                      PSI  290
      STS=SIN(THTS)                                                     PSI  300
      STO=SIN(THTO)                                                     PSI  310
      CTS=COS(THTS)                                                     PSI  320
      CTO=COS(THTO)                                                     PSI  330
      SDPHI=SIN(DPH)                                                    PSI  340
      CDPHI=COS(DPH)                                                    PSI  350
      TTS=TAN(THTS)                                                     PSI  360
      TTO=TAN(THTO)                                                     PSI  370
C                                                                       PSI  380
C     CALCULATE DELO,  CHECK FOR SPECIAL CASES%                         PSI  390
      IF(ABS(DPHI).GT.EPSILN) GO TO 10                                  PSI  400
C     COLONGITUDE                                                       PSI  410
      DELO=ABS(DTHT)                                                    PSI  420
      GO TO 30                                                          PSI  430
10    IF(ABS(DTHT).GT.EPSILN) GO TO 20                                  PSI  440
C     COLATITUDE                                                        PSI  450
      DELO=ABS(DPHI)                                                    PSI  460
      GO TO 30                                                          PSI  470
C     GENERAL CASE                                                      PSI  480
20    DELO=DEG*ACOS(CTS*CTO*CDPHI+STS*STO)                              PSI  490
30    IF(DELO.LE.EPSILN) DELO=0.0                                       PSI  500
C     CALCULATE PSIO (=PSISO-PSIPO)                                     PSI  510
C     CHECK FOR SPECIAL CASES WHERE EITHER PSISO OR PSIPO ARE ARBITRARY PSI  520
C                                                                       PSI  530
C     VERTICAL OPTICAL PATH, PSIPO IS ARBITRARY, THIS CASE WAS FLAGGED  PSI  540
C     IN SSGEO BY SETTING IARBO=1                                       PSI  550
C                                                                       PSI  560
C     OBSERVER AND SUBSOLAR POINT COINCIDE, PSISO IS ARBITRARY          PSI  570
      IF(DELO.EQ.0.0) IARBO=IARBO+2                                     PSI  580
      IF(IARBO.EQ.0) GO TO 40                                           PSI  590
C     IARBO=0,1,2,3 FOR% PSIO DEFINITE, PSIPO ARBITRARY, PSISO ARBITRARYPSI  600
C                        BOTH PSIPO AND PSISO ARBITRARY, RESPECTIVELY.  PSI  610
      RETURN                                                            PSI  620
40    ANUMER=TTO*CDPHI-TTS                                              PSI  630
      DENOM=(1.+TTO**2)*CTO*SDPHI                                       PSI  640
      IF(ABS(ANUMER).GT.EPSILN) GO TO 50                                PSI  650
C     NUMERATOR=0.0, GREAT CIRCLE CONTAINING THE OBSERVER AND THE SUBSOLPSI  660
C     POINT IS DUE EAST-WEST AT THE OBSERVER                            PSI  670
      PSISO=0.0                                                         PSI  680
      IF(DPHI.GT.0.0) PSISO=180.0                                       PSI  690
      GO TO 90                                                          PSI  700
50    IF(ABS(DENOM).GT.EPSILN) GO TO 60                                 PSI  710
C     DENOMINATOR =0.0, ATAN(INFINITY)=+90 OR -90                       PSI  720
      PSISO=90.0                                                        PSI  730
      IF(DTHT.LT.0.0) PSISO=-90.0                                       PSI  740
      GO TO 90                                                          PSI  750
C     GENERAL CASE                                                      PSI  760
60    PSISO=DEG*ATAN(ANUMER/DENOM)                                      PSI  770
C     ATAN RETURNS ARGUMENTS BETWEEN -90 AND 90, MAY NEED TO CORRECT    PSI  780
C     NO CORRECTION NECESSARY                                           PSI  790
      IF(DPHI.LT.0.0) GO TO 90                                          PSI  800
C     CORRECTION NECESSARY                                              PSI  810
      IF(DPHI.GT.0.0) GO TO 70                                          PSI  820
C     DPHI=0.0                                                          PSI  830
      PSISO=90.0                                                        PSI  840
      IF(DTHT.LT.0.0) PSISO=-90.0                                       PSI  850
      GO TO 90                                                          PSI  860
C     DPHI.GT.0.0                                                       PSI  870
70    IF(PSISO.GT.0.0) GO TO 80                                         PSI  880
      PSISO=PSISO+180.0                                                 PSI  890
      GO TO 90                                                          PSI  900
80    PSISO=PSISO-180.0                                                 PSI  910
90    CONTINUE                                                          PSI  920
      IF(PHIS .GT. 180.)PSIPO = PSIPO + 180.
      IF(PSIPO .GT. 360.)PSIPO = PSIPO - 360.
      PSIO=PSISO-PSIPO                                                  PSI  930
C     RANGE OF PSIO IS -180.0 TO 180.0, CORRECT IF NECESSARY            PSI  940
      IF(PSIO.LT.-180.0) PSIO=PSIO+360.0                                PSI  950
      IF(PSIO.GT. 180.0) PSIO=PSIO-360.0                                PSI  960
C                                                                       PSI  970
      RETURN                                                            PSI  980
      END                                                               PSI  990
      FUNCTION   RADREF(H,SH,GAMMA)                                     RDF  100
C***********************************************************************RDF  110
C     COMPUTES THE RADIUS OF CURVATURE OF THE REFRACTED RAY FOR         RDF  120
C     HORIZONTAL PATH:  RADREF = ANDEX/ D(ANDEX)/D(RADIUS)              RDF  130
C***********************************************************************RDF  140
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     RDF  150
      IF(SH.EQ.0.0) GO TO 20                                            RDF  160
      HSH = H/SH                                                        RDF  170
      IF(HSH .GT. BIGEXP) GO TO 20                                      RDF  180
      RADREF = SH*(1.0+EXP(HSH )/GAMMA)                                 RDF  190
      RETURN                                                            RDF  200
   20 RADREF = BIGNUM                                                   RDF  210
      RETURN                                                            RDF  220
      END                                                               RDF  230
      FUNCTION RAN(I)                                                   RAN   10
      DOUBLE PRECISION DRND,Z                                           RAN   20
      DATA DRND/0.574914365D0/                                          RAN   30
      DRND=97301.D0*DRND                                                RAN   40
      K=DRND                                                            RAN   50
      Z=K                                                               RAN   60
      DRND=DRND-Z                                                       RAN   70
      RAN=DRND                                                          RAN   80
      RETURN                                                            RAN   90
      END                                                               RAN  100
      FUNCTION   RANFUN(IDUM)                                           RAN  100
      RANFUN=RAN(IDUM)                                                  RAN  110
      RETURN                                                            RAN  120
      END                                                               RAN  130
      SUBROUTINE RANSET(I)                                              RNS   10
      COMMON/RST/II                                                     RNS   20
      RANET=RAN(I)                                                      RNS   30
      II=RANET                                                          RNS   40
      RETURN                                                            RNS   50
      END                                                               RNS   60
      FUNCTION   RAYSCT(V)                                              RAY  100
C     RADIATION FLD OUT                                                 RAY  110
C **  MOLECULAR SCATTERING                                              RAY  120
      RAYSCT=0.                                                         RAY  130
      IF(V.LE.3000.) RETURN                                             RAY  140
      RAYSCT=V**3/(9.26799E+18-1.07123E+09*V**2)                        RAY  150
C     V**4 FOR RADIATION FLD IN                                         RAY  160
      RETURN                                                            RAY  170
      END                                                               RAY  180
      SUBROUTINE RDEXA                                                  RDE  100
C                                                                       RDE  110
C     READ IN USER DEFINED EXTINCTION ABSORPTION COEFFICIENTS AND       RDE  120
C     ASYMMETRY PARAMETERS                                              RDE  130
C                                                                       RDE  140
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            RDE  150
C     COMMON             WPATH(68, 63),TBBY(68)                         RDE -160
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   RDE 160A
      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),VX2(47),AWCCON(5)         RDE  170
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                RDE  180
      COMMON /CARD2D/ IREG(4),ALTB(4),IREGC(4)                          RDE  190
      DIMENSION TITLE(18),VX(47)                                        RDE  200
C                                                                       RDE  210
      READ (IRD,1200) (IREG(IK),IK=1,4)                                 RDE  220
1200  FORMAT(4I5)                                                       RDE  230
      WRITE(IPR,1210) (IREG(IK),IK=1,4)                                 RDE  240
1210  FORMAT('0 CARD 2D *****',4I5)                                     RDE  250
C                                                                       RDE  260
      DO 1300 IHC = 1,4                                                 RDE  270
C                                                                       RDE  280
      IF(IREG(IHC) .EQ. 0) GO TO 1300                                   RDE  290
      READ(IRD,1220) AWCCON(IHC),TITLE                                  RDE  300
1220  FORMAT(E10.3,18A4)                                                RDE  310
      WRITE(IPR,1230) AWCCON(IHC),TITLE                                 RDE  320
1230  FORMAT('0 CARD 2D1 **** EQUIVALENT WATER = ',1PE10.3,18A4)        RDE  330
      WRITE(IPR,1250)                                                   RDE  340
1250  FORMAT('0 CARD 2D2 ****')                                         RDE  350
C                                                                       RDE  360
      READ(IRD,1260)(VX(I),EXTC(IHC,I),ABSC(IHC,I),ASYM(IHC,I),I=1,47)  RDE  370
1260  FORMAT(3(F6.2,2F7.5,F6.4))                                        RDE  380
      WRITE(IPR,1270)(VX(I),EXTC(IHC,I),ABSC(IHC,I),ASYM(IHC,I),I=1,47) RDE  390
1270  FORMAT(2X,F6.2,2F7.5,F6.4,F6.2,2F7.5,F6.4,F6.2,2F7.5,F6.4)        RDE  400
1300  CONTINUE                                                          RDE  410
      RETURN                                                            RDE  420
      END                                                               RDE  430
      SUBROUTINE RDNSM                                                  RDN  100
C                                                                       RDN  110
C     THIS SUBROUTINE READS MODEL 7 DATA WHEN ISVA EQ 1                 RDN  120
C                                                                       RDN  130
      COMMON /IFIL/IRD,IPR,IPU,NPR,IPR1                                 RDN  140
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  RDN  150
     1  ,MODTRN                                                         RDN 150A
      LOGICAL MODTRN                                                    RDN 150B
      COMMON /CARD1A/ M4,M5,M6,MDEF,IRD1,IRD2                           RDN  160
      COMMON /CARD1B/ JUNIT(15),WMOL(12),WAIR1,JLOW                     RDN  170
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICIR,IVSA,VIS,WSS,WHH,   RDN  180
     1    RAINRT                                                        RDN  190
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               RDN  200
      COMMON /NSINP/ ZMDL(40),P(40),T(40),WMDL(40,13)                   RDN  210
      CHARACTER*1 JCHAR                                                 RDN  220
      DIMENSION  JCHAR(15)                                              RDN  230
      IF(ML. GT. 24) THEN                                               RDN  240
         WRITE(IPR,900) ML                                              RDN  250
900      FORMAT('  ML = ',I5,'  GT 24 ML RESET TO 24')                  RDN  260
         ML = 24                                                        RDN  270
      ENDIF                                                             RDN  280
      JLOW = 1                                                          RDN  290
      DO 200   K=1,ML                                                   RDN  300
      DO 10 KM = 1,15                                                   RDN  310
      JCHAR(KM) = ' '                                                   RDN  320
      IF(KM. GT. 12) GO TO 10                                           RDN  330
      WMOL(KM) = 0.                                                     RDN  340
10    CONTINUE                                                          RDN  350
      IRD0 = 1                                                          RDN  360
      ICONV = 1                                                         RDN  370
      IF((MODEL .GT. 0.) .AND. (MODEL .LT. 7)) IRD0 = 0                 RDN  380
      IF((IRD0  .EQ. 1)  .AND. (IVSA.EQ.1)   ) THEN                     RDN  390
           IRD0 = 0                                                     RDN  400
           ICONV =0                                                     RDN  410
      ENDIF                                                             RDN  420
C                                                                       RDN  430
C        PARAMETERS - JCHAR = INPUT KEY (SEE BELOW)                     RDN  440
C                                                                       RDN  450
C                                                                       RDN  460
C     ***  ROUTINE ALSO ACCEPTS VARIABLE UNITS ON PRESS AND TEMP        RDN  470
C                                                                       RDN  480
C          SEE INPUT KEY BELOW                                          RDN  490
C                                                                       RDN  500
C                                                                       RDN  510
C                                                                       RDN  520
C     FOR MOLECULAR SPECIES ONLY                                        RDN  530
C                                                                       RDN  540
C       JCHAR   JUNIT                                                   RDN  550
C                                                                       RDN  560
C     " ",A      10    VOLUME MIXING RATIO (PPMV)                       RDN  570
C         B      11    NUMBER DENSITY (CM-3)                            RDN  580
C         C      12    MASS MIXING RATIO (GM(K)/KG(AIR))                RDN  590
C         D      13    MASS DENSITY (GM M-3)                            RDN  600
C         E      14    PARTIAL PRESSURE (MB)                            RDN  610
C         F      15    DEW POINT TEMP (TD IN T(K)) - H2O ONLY           RDN  620
C         G      16     "    "     "  (TD IN T(C)) - H2O ONLY           RDN  630
C         H      17    RELATIVE HUMIDITY (RH IN PERCENT) - H2O ONLY     RDN  640
C         I      18    AVAILABLE FOR USER DEFINITION                    RDN  650
C        1-6    1-6    DEFAULT TO SPECIFIED MODEL ATMOSPHERE            RDN  660
C                                                                       RDN  670
C     ****************************************************************  RDN  680
C     ****************************************************************  RDN  690
C                                                                       RDN  700
C     ***** OTHER 'JCHAR' SPECIFICATIONS -                              RDN  710
C                                                                       RDN  720
C       JCHAR   JUNIT                                                   RDN  730
C                                                                       RDN  740
C      " ",A     10    PRESSURE IN (MB)                                 RDN  750
C          B     11       "     "  (ATM)                                RDN  760
C          C     12       "     "  (TORR)                               RDN  770
C         1-6   1-6    DEFAULT TO SPECIFIED MODEL ATMOSPHERE            RDN  780
C                                                                       RDN  790
C      " ",A     10    AMBIENT TEMPERATURE IN DEG(K)                    RDN  800
C          B     11       "         "       "  " (C)                    RDN  810
C          C     12       "         "       "  " (F)                    RDN  820
C         1-6   1-6    DEFAULT TO SPECIFIED MODEL ATMOSPHERE            RDN  830
C                                                                       RDN  840
C     ***** DEFINITION OF "DEFAULT" CHOICES FOR PROFILE SELECTION ***** RDN  850
C                                                                       RDN  860
C      FOR THE USER WHO WISHES TO ENTER ONLY SELECTED ORIGINAL          RDN  870
C      VERTICAL PROFILES AND WANTS STANDARD ATMOSPHERE SPECIFICATIONS   RDN  880
C      FOR THE OTHERS, THE FOLLOWING OPTION IS AVAILABLE                RDN  890
C                                                                       RDN  900
C     *** JCHAR(P,T OR K) MUST = 1-6 (AS ABOVE)                         RDN  910
C                                                                       RDN  920
C      FOR MOLECULES 8-35, ONLY US STD PROFILES ARE AVIALABLE           RDN  930
C      THEREFORE, WHEN  'JCHAR(K) = 1-5', JCHAR(K) WILL BE RESET TO 6   RDN  940
C                                                                       RDN  950
C                                                                       RDN  960
      READ(IRD,80)ZMDL(K),P(K),T(K),WMOL(1),WMOL(2),WMOL(3),            RDN  970
     X (JCHAR(KM),KM=1,15)                                              RDN  980
80    FORMAT ( F10.3,5E10.3,15A1)                                       RDN  990
       WRITE(IPR,81)ZMDL(K),P(K),T(K),WMOL(1),WMOL(2),WMOL(3),          RDN 1000
     X (JCHAR(KM),KM=1,15)                                              RDN 1010
81    FORMAT ( F10.3,1P5E10.3,10X,15A1)                                 RDN 1020
      IF(ZMDL(K) .LE. 2.0)JLOW = K                                      RDN 1030
      IF(IRD1 .EQ. 1) THEN                                              RDN 1040
           READ(IRD,83)(WMOL(KM),KM=4,12)                               RDN 1050
83         FORMAT(8E10.3)                                               RDN 1060
           WRITE(IPR,84)(WMOL(KM),KM=4,12)                              RDN 1070
84         FORMAT(1P8E10.3)                                             RDN 1080
      ENDIF                                                             RDN 1090
C                                                                       RDN 1100
C                                                                       RDN 1110
C     AHAZE =  AEROSOL VISIBLE EXTINCTION COFF (KM-1)                   RDN 1120
C     AT A WAVELENGTH OF 0.55 MICROMETERS                               RDN 1130
C                                                                       RDN 1140
C     EQLWCZ=LIQUID WATER CONTENT (PPMV) AT ALT Z                       RDN 1150
C            FOR AEROSOL, CLOUD OR FOG MODELS                           RDN 1160
C                                                                       RDN 1170
C     RRATZ=RAIN RATE (MM/HR) AT ALT Z                                  RDN 1180
C                                                                       RDN 1190
C     IHA1 AEROSOL MODEL USED FOR SPECTRAL DEPENDENCE OF EXTINCTION     RDN 1200
C                                                                       RDN 1210
C     IVUL1 STRATOSPHERIC AERSOL MODEL USED FOR SPECTRAL DEPENDENCE     RDN 1220
C     OF EXT AT Z                                                       RDN 1230
C                                                                       RDN 1240
C     ICLD1 CLOUD MODEL USED FOR SPECTRAL DEPENDENCE OF EXT AT Z        RDN 1250
C                                                                       RDN 1260
C     ONLY ONE OF IHA1,ICLD1  OR IVUL1 IS ALLOWED                       RDN 1270
C     IHA1 NE 0 OTHERS IGNORED                                          RDN 1280
C     IHA1 EQ 0 AND ICLD1 NE 0 USE ICLD1                                RDN 1290
C                                                                       RDN 1300
C     IF AHAZE AND EQLWCZ ARE BOUTH ZERO                                RDN 1310
C        DEFAULT PROFILE ARE LOADED FROM IHA1,ICLD1,IVUL1               RDN 1320
C     ISEA1 = AERSOL SEASON CONTROL FOR ALTITUDE Z                      RDN 1330
C                                                                       RDN 1340
      IF(IRD2 .EQ. 1) THEN                                              RDN 1350
           READ(IRD,82)    AHAZE,EQLWCZ,RRATZ,IHA1,ICLD1,IVUL1,ISEA1    RDN 1360
           WRITE(IPR,82)    AHAZE,EQLWCZ,RRATZ,IHA1,ICLD1,IVUL1,ISEA1   RDN 1370
82         FORMAT(10X,3F10.3,4I5)                                       RDN 1380
      ENDIF                                                             RDN 1390
      DO 12 KM = 1,15                                                   RDN 1400
12    JUNIT(KM) = JOU(JCHAR(KM))                                        RDN 1410
      IF(M1 .NE. 0) JUNIT(1) = M1                                       RDN 1420
      IF(M1 .NE. 0) JUNIT(2) = M1                                       RDN 1430
      CALL CHECK(P(K),JUNIT(1),1)                                       RDN 1440
      CALL CHECK(T(K),JUNIT(2),2)                                       RDN 1450
      CALL DEFALT(ZMDL(K),P(K),T(K))                                    RDN 1460
      CALL CONVRT (P(K),T(K) )                                          RDN 1470
      DO 20 KM = 1,12                                                   RDN 1480
20    WMDL(K,KM) = WMOL(KM)                                             RDN 1490
      WMDL(K,13) = WAIR1                                                RDN 1500
200   CONTINUE                                                          RDN 1510
      RETURN                                                            RDN 1520
      END                                                               RDN 1530
      SUBROUTINE REDUCE(H1,H2,ANGLE,PHI,ITER)                           RED  100
C***********************************************************************RED  110
C     ZMAX IS THE HIGHEST LEVEL IN THE ATMOSPHERIC PROFILE STORED IN    RED  120
C     COMMON /MODEL/.  IF H1 AND/OR H2 ARE GREATER THAN ZMAX, THIS      RED  130
C     SUBROUTINE REDUCES THEM TO ZMAX AND RESETS ANGLE AND/OR PHI       RED  140
C     AS NECESSARY. THIS REDUCTION IS NECESSARY,FOR EXAMPLE FOR         RED  150
C     SATELLITE ALTITUDES, BECAUSE (1) THE DENSITY PROFILES ARE         RED  160
C     POORLY DEFINED ABOVE ZMAX AND (2) THE CALCULATION TIME FOR        RED  170
C     PATHS ABOVE ZMAX CAN BE EXCESSIVE ( EG. FOR GEOSYNCHRONOUS        RED  180
C     ALTITUDES)                                                        RED  190
C***********************************************************************RED  200
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                RED  210
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              RED  220
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     RED  230
      IF(H1.LE.ZMAX .AND. H2.LE.ZMAX)  RETURN                           RED  240
      CALL FINDSH(H1,SH,GAMMA)                                          RED  250
      CPATH = ANDEX(H1,SH,GAMMA)*(RE+H1)*SIN(ANGLE/DEG)                 RED  260
      CALL FINDSH(ZMAX,SH,GAMMA)                                        RED  270
      CZMAX = ANDEX(ZMAX,SH,GAMMA)*(RE+ZMAX)                            RED  280
      ANGMAX = 180.0-ASIN(CPATH/CZMAX)*DEG                              RED  290
      IF(H1.LE.ZMAX) GO TO 120                                          RED  300
      H1 = ZMAX                                                         RED  310
      ANGLE = ANGMAX                                                    RED  320
  120 CONTINUE                                                          RED  330
      IF(H2.LE.ZMAX)  GO TO 130                                         RED  340
      H2 = ZMAX                                                         RED  350
      PHI = ANGMAX                                                      RED  360
  130 CONTINUE                                                          RED  370
       WRITE(IPR,20) ZMAX,ANGMAX                                        RED  380
   20 FORMAT(///,' FROM SUBROUTINE REDUCE: ',/,                         RED  390
     1   4X,'ONE OR BOTH OF H1 AND H2 ARE ABOVE THE TOP OF THE ',       RED  400
     2   'ATMOSPHERIC PROFILE ZMAX = ',F10.3,' AND HAVE BEEN RESET ',   RED  410
     3   'TO ZMAX',/,4X,'ANGLE AND/OR PHI HAVE ALSO BEEN RESET TO ',    RED  420
     4    'THE ZENITH ANGLE AT ZMAX = ',F10.3,' DEG')                   RED  430
  200 CONTINUE                                                          RED  440
      RETURN                                                            RED  450
      END                                                               RED  460
      SUBROUTINE RFPATH(H1,H2,ANGLE,PHI,LEN,HMIN,IAMT,BETA,RANGE,BENDNG)RFP  100
C***********************************************************************RFP  110
C     THIS SUBROUTINE  TRACES THE REFRACTED RAY FROM H1 WITH A          RFP  120
C     INITIAL ZENITH ANGLE ANGLE TO H2 WHERE THE ZENITH ANGLE IS PHI,   RFP  130
C     AND CALCULATES THE ABSORBER AMOUNTS (IF IAMT.EQ.1) ALONG          RFP  140
C     THE PATH.  IT STARTS FROM THE LOWEST POINT ALONG THE PATH         RFP  150
C     (THE TANGENT HEIGHT HMIN IF LEN = 1 OR HA = MIN(H1,H2) IF LEN = 0)RFP  160
C     AND PROCEEDS TO THE HIGHEST POINT.  BETA AND RANGE ARE THE        RFP  170
C     EARTH CENTERED ANGLE AND THE TOTAL DISTANCE RESPECTIVELY          RFP  180
C     FOR THE REFRACTED PATH FROM H1 TO H2                              RFP  190
C***********************************************************************RFP  200
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                RFP  210
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  RFP  220
     1  ,MODTRN                                                         RFP 220A
      LOGICAL MODTRN                                                    RFP 220B
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              RFP  230
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     RFP  240
      COMMON /RFRPTH/ ZP(35),PP(35),TP(35),RFNDXP(35),SP(35),           RFP  250
     1    PPSUM(35),TPSUM(35),RHOPSM(35),DENP(63,35),AMTP(63,35)        RFP  260
      COMMON /SOLS/ AH1(68),ARH(68),                                    RFP  270
C    X   WPATHS(68,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),JTURN,RFP -280
C    X ANGSUN,CSZEN(68)                                                 RFP -290
     1  WPATHS(102,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),      RFP 280A
     2  JTURN,ANGSUN,CSZEN(68),TBBYS(102,12),PATMS(102,12)              RFP 280B
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               RFP  300
      COMMON /PATH/ PL(68),QTHETA(68),ITEST,HI,HF,AHT(68)               RFP  310
      DIMENSION HLOW(2)                                                 RFP  320
      CHARACTER*2 HLOW                                                  RFP  330
      DATA HLOW/'H1','H2'/                                              RFP  340
      MAX = 0                                                           RFP  350
      IF(H1.GT.H2) GO TO 90                                             RFP  360
      IORDER = 1                                                        RFP  370
      HA = H1                                                           RFP  380
      HB = H2                                                           RFP  390
      ANGLEA = ANGLE                                                    RFP  400
      GO TO 95                                                          RFP  410
   90 CONTINUE                                                          RFP  420
      IORDER = -1                                                       RFP  430
      HA = H2                                                           RFP  440
      HB = H1                                                           RFP  450
      ANGLEA = PHI                                                      RFP  460
   95 CONTINUE                                                          RFP  470
      JNEXT = 1                                                         RFP  480
C     IF(IAMT.EQ.1 .AND. NPR.NE.1)  WRITE(IPR,20)                       RFP  490
      IF(IAMT.EQ.1 .AND. NPR.LT.1)  WRITE(IPR,20)                       RFP  490
   20 FORMAT('1CALCULATION OF THE REFRACTED PATH THROUGH THE ',         RFP  500
     1    'ATMOSPHERE',///,                                             RFP  510
     4    T3,'I',T11,'ALTITUDE',T27,'THETA',T34,'DRANGE',T44,'RANGE',   RFP  520
     5    T53,'DBETA',T63,'BETA',T72,'PHI',T80,'DBEND',T87,'BENDING',   RFP  530
     6    T 98,'PBAR',T106,'TBAR',T113,'RHOBAR',/,                      RFP  540
     7    T07,'FROM',T18,'TO',/,T07,'(KM)',T17,'(KM)',T27,'(DEG)',      RFP  550
     8    T36,'(KM)',T45,'(KM)',T53,'(DEG)',T62,'(DEG)',T71,'(DEG)',    RFP  560
     9    T80,'(DEG)',T89,'(DEG)',T098,'(MB)',T106,'(K)',               RFP  570
     1    T111,'(GM CM-3)',/)                                           RFP  580
      IF(LEN.EQ.0) GO TO 100                                            RFP  590
C*****LONG PATH: FILL IN THE SYMMETRIC PART FROM THE TANGENT HEIGHT     RFP  600
C*****TO HA                                                             RFP  610
      CALL FILL(HMIN,HA,JNEXT)                                          RFP  620
      JHA = JNEXT                                                       RFP  630
  100 CONTINUE                                                          RFP  640
C*****FILL IN THE REMAINING PATH FROM HA TO HB                          RFP  650
      IF(HA.EQ.HB) GO TO 110                                            RFP  660
      CALL FILL(HA,HB,JNEXT)                                            RFP  670
  110 CONTINUE                                                          RFP  680
      JMAX = JNEXT                                                      RFP  690
      IPATH = JMAX                                                      RFP  700
C*****INTEGRATE EACH SEGMENT OF THE PATH                                RFP  710
C*****CALCULATE CPATH SEPERATELY FOR LEN = 0,1                          RFP  720
      IF(LEN.EQ.1) GO TO 115                                            RFP  730
      CALL FINDSH(HA,SH,GAMMA)                                          RFP  740
      CPATH = (RE+HA)*ANDEX(HA,SH,GAMMA)*SIN(ANGLEA/DEG)                RFP  750
      GO TO 116                                                         RFP  760
  115 CONTINUE                                                          RFP  770
      CALL FINDSH(HMIN,SH,GAMMA)                                        RFP  780
      CPATH = (RE+HMIN)*ANDEX(HMIN,SH,GAMMA)                            RFP  790
  116 CONTINUE                                                          RFP  800
      BETA = 0.0                                                        RFP  810
      S = 0.0                                                           RFP  820
      BENDNG = 0.0                                                      RFP  830
      IF(LEN.EQ.0) GO TO 140                                            RFP  840
C*****DO SYMMETRIC PART, FROM TANGENT HEIGHT(HMIN) TO HA                RFP  850
      IHLOW = 1                                                         RFP  860
      IF(IORDER.EQ.-1)  IHLOW = 2                                       RFP  870
C     IF(IAMT.EQ.1 .AND. NPR.NE.1) WRITE(IPR,24) HLOW(IHLOW)            RFP  880
      IF(IAMT.EQ.1 .AND. NPR.LT.1) WRITE(IPR,24) HLOW(IHLOW)            RFP  880
   24 FORMAT(' ',T7,'TANGENT',T17,A2,/,T7,'HEIGHT',/)                   RFP  890
      SINAI = 1.0                                                       RFP  900
      COSAI = 0.0                                                       RFP  910
      THETA = 90.0                                                      RFP  920
      J2 = JHA-1                                                        RFP  930
      DO 120 J=1,J2                                                     RFP  940
      CALL SCALHT(ZP(J),ZP(J+1),RFNDXP(J),RFNDXP(J+1),SH,GAMMA)         RFP  950
      CALL LAYER(J,SINAI,COSAI,CPATH,SH,GAMMA,IAMT,DS,DBEND)            RFP  960
      DBEND = DBEND*DEG                                                 RFP  970
      PHI = ASIN(SINAI)*DEG                                             RFP  980
      DBETA = THETA-PHI+DBEND                                           RFP  990
      PHI = 180.0-PHI                                                   RFP 1000
      S = S+DS                                                          RFP 1010
C                                                                       RFP 1020
C   SAVE REFRACTED RAY PATH LENGTH FOR USE WITH MULTIPLE SCATTERING     RFP 1030
C                                                                       RFP 1040
      BENDNG = BENDNG+DBEND                                             RFP 1050
      BETA = BETA+DBETA                                                 RFP 1060
      IF(IAMT.NE.1) GO TO 118                                           RFP 1070
      PBAR = PPSUM(J)/RHOPSM(J)                                         RFP 1080
      TBAR = TPSUM(J)/RHOPSM(J)                                         RFP 1090
      RHOBAR = RHOPSM(J)/DS                                             RFP 1100
C     IF(IAMT.EQ.1 .AND. NPR.NE.1) WRITE(IPR,22) J,ZP(J),ZP(J+1),       RFP 1110
      IF(IAMT.EQ.1 .AND. NPR.LT.1) WRITE(IPR,22) J,ZP(J),ZP(J+1),       RFP 1110
     1    THETA,DS,S,DBETA,BETA,PHI,DBEND,BENDNG,PBAR,TBAR,RHOBAR       RFP 1120
      J2A = J2 - J +  1                                                 RFP 1130
      J2B = J2 + J                                                      RFP 1140
      QTHETA(J2A)=  PHI  *CA                                            RFP 1150
      QTHETA(J2B) = THETA*CA                                            RFP 1160
      MAX = J2B                                                         RFP 1170
   22 FORMAT(' ',I2,2F9.3,9F9.3,F8.2,1PE9.2)                            RFP 1180
  118 CONTINUE                                                          RFP 1190
      IF(ISSGEO.EQ.1) GO TO 119                                         RFP 1200
      ATHETA(J)=THETA                                                   RFP 1210
      ADBETA(J)=DBETA                                                   RFP 1220
  119 CONTINUE                                                          RFP 1230
      THETA = 180.0-PHI                                                 RFP 1240
  120 CONTINUE                                                          RFP 1250
C*****DOUBLE PATH QUANTITIES FOR THE OTHER PART OF THE SYMMETRIC PATH   RFP 1260
      BENDNG = 2.0*BENDNG                                               RFP 1270
      BETA = 2.0*BETA                                                   RFP 1280
      S = 2.0*S                                                         RFP 1290
C     IF(IAMT.EQ.1 .AND. NPR.NE.1) WRITE(IPR,26) S,BETA,BENDNG          RFP 1300
      IF(IAMT.EQ.1 .AND. NPR.LT.1) WRITE(IPR,26) S,BETA,BENDNG          RFP 1300
   26 FORMAT('0',T10,'DOUBLE RANGE, BETA, BENDING',/,                   RFP 1310
     1    T10,'FOR SYMMETRIC PART OF PATH',T40,F9.3,T58,F9.3,           RFP 1320
     2    T85,F9.3,/)                                                   RFP 1330
      JNEXT = JHA                                                       RFP 1340
      GO TO 150                                                         RFP 1350
  140 CONTINUE                                                          RFP 1360
C*****SHORT PATH                                                        RFP 1370
      JNEXT = 1                                                         RFP 1380
C*****ANGLEA IS THE ZENITH ANGLE AT HA IN DEG                           RFP 1390
C*****SINAI IS SIN OF THE INCIDENCE ANGLE                               RFP 1400
C*****COSAI IS CARRIED SEPERATELY TO AVOID A PRECISION PROBLEM          RFP 1410
C*****WHEN SINAI IS CLOSE TO 1.0                                        RFP 1420
      THETA = ANGLEA                                                    RFP 1430
      IF(ANGLEA.GT.45.0) GO TO 145                                      RFP 1440
      SINAI = SIN(ANGLEA/DEG)                                           RFP 1450
      COSAI = -COS(ANGLEA/DEG)                                          RFP 1460
      GO TO 150                                                         RFP 1470
  145 CONTINUE                                                          RFP 1480
      SINAI = COS((90.0-ANGLEA)/DEG)                                    RFP 1490
      COSAI = -SIN((90.0-ANGLEA)/DEG)                                   RFP 1500
  150 CONTINUE                                                          RFP 1510
C*****DO PATH FROM HA TO HB                                             RFP 1520
      IF(HA.EQ.HB) GO TO 170                                            RFP 1530
      JO = MAX - JNEXT + 1                                              RFP 1540
      J1 = JNEXT                                                        RFP 1550
      J2 = JMAX-1                                                       RFP 1560
C                                                                       RFP 1570
      IF(H1 .GT. H2) THEN                                               RFP 1580
      JD =  J2 - J1 + 1                                                 RFP 1590
      DO  1158 J = 1,MAX                                                RFP 1600
      KA = MAX - J + 1                                                  RFP 1610
      JA = KA + JD                                                      RFP 1620
      QTHETA(JA) = QTHETA(KA)                                           RFP 1630
1158  CONTINUE                                                          RFP 1640
      MAX =  MAX + JD                                                   RFP 1650
      JO = 0                                                            RFP 1660
      ENDIF                                                             RFP 1670
C                                                                       RFP 1680
      IHLOW = 1                                                         RFP 1690
      IF(IORDER.EQ.-1)  IHLOW = 2                                       RFP 1700
      IHIGH = MOD(IHLOW,2)+1                                            RFP 1710
C     IF(IAMT.EQ.1 .AND. NPR.NE.1) WRITE(IPR,28) HLOW(IHLOW),           RFP 1720
      IF(IAMT.EQ.1 .AND. NPR.LT.1) WRITE(IPR,28) HLOW(IHLOW),           RFP 1720
     1    HLOW(IHIGH)                                                   RFP 1730
   28 FORMAT(' ',T11,A2,' TO ',A2,/)                                    RFP 1740
      DO 160 J=J1,J2                                                    RFP 1750
      CALL SCALHT(ZP(J),ZP(J+1),RFNDXP(J),RFNDXP(J+1),SH,GAMMA)         RFP 1760
      CALL LAYER(J,SINAI,COSAI,CPATH,SH,GAMMA,IAMT,DS,DBEND)            RFP 1770
      DBEND = DBEND*DEG                                                 RFP 1780
      PHI = ASIN(SINAI)*DEG                                             RFP 1790
      DBETA = THETA-PHI+DBEND                                           RFP 1800
      PHI = 180.0-PHI                                                   RFP 1810
      S = S+DS                                                          RFP 1820
C                                                                       RFP 1830
C    SAVE LAYER REFRACTED PATH LENGTH FOR USE WITH MULTIPLE SCATTERING  RFP 1840
C                                                                       RFP 1850
      PL(J)=DS                                                          RFP 1860
      BENDNG = BENDNG+DBEND                                             RFP 1870
      BETA = BETA+DBETA                                                 RFP 1880
      IF(IAMT.NE.1) GO TO 158                                           RFP 1890
      PBAR = PPSUM(J)/RHOPSM(J)                                         RFP 1900
      TBAR = TPSUM(J)/RHOPSM(J)                                         RFP 1910
      RHOBAR = RHOPSM(J)/DS                                             RFP 1920
C     IF(IAMT.EQ.1 .AND. NPR.NE.1) WRITE(IPR,22) J,ZP(J),ZP(J+1),       RFP 1930
      IF(IAMT.EQ.1 .AND. NPR.LT.1) WRITE(IPR,22) J,ZP(J),ZP(J+1),       RFP 1930
     1    THETA,DS,S,DBETA,BETA,PHI,DBEND,BENDNG,PBAR,TBAR,RHOBAR       RFP 1940
  158 CONTINUE                                                          RFP 1950
C                                                                       RFP 1960
C   SAVE LAYER REFRACTED PATH ANGLE FOR USE WITH MULTIPLE SCATTERING    RFP 1970
C                                                                       RFP 1980
C                                                                       RFP 1990
      IF(H2 .GT. H1)  THEN                                              RFP 2000
      QTHETA(J + JO)=THETA*CA                                           RFP 2010
      MAX  = J + JO                                                     RFP 2020
      ELSE                                                              RFP 2030
      J2B  = J2 - J + 1                                                 RFP 2040
      QTHETA(J2B)= PHI * CA                                             RFP 2050
      ENDIF                                                             RFP 2060
C                                                                       RFP 2070
      IF(ISSGEO.EQ.1) GO TO 159                                         RFP 2080
      ADBETA(J)=DBETA                                                   RFP 2090
      ATHETA(J)=THETA                                                   RFP 2100
  159 CONTINUE                                                          RFP 2110
      THETA = 180.0-PHI                                                 RFP 2120
  160 CONTINUE                                                          RFP 2130
  170 CONTINUE                                                          RFP 2140
      IF(ISSGEO.EQ.0) ATHETA(JMAX)=THETA                                RFP 2150
      IF(IORDER.EQ.-1) PHI = ANGLEA                                     RFP 2160
      RANGE = S                                                         RFP 2170
      RETURN                                                            RFP 2180
      END                                                               RFP 2190
      SUBROUTINE RNSCAT(V,R,TT,PHASE,DIST,IK,CSSA,ASYMR,IENT)           RNS  100
C********************************************************************** RNS  110
      INTEGER PHASE,DIST                                                RNS  120
      DIMENSION SC(3,4)                                                 RNS  130
C                                                                       RNS  140
C          ARGUMENTS:                                                   RNS  150
C                                                                       RNS  160
C          F = FREQUENCY (GHZ)                                          RNS  170
C          R = RAINFALL RATE (MM/HR)                                    RNS  180
C          T = TEMPERATURE (DEGREES CELSIUS)                            RNS  190
C          PHASE = PHASE PARAMETER (1=WATER, 2=ICE)                     RNS  200
C          DIST = DROP SIZE DISTRIBUTION PARAMETER                      RNS  210
C                     (1=MARSHALL-PALMER, 2=BEST)                       RNS  220
C                                                                       RNS  230
C          RESULTS:                                                     RNS  240
C                                                                       RNS  250
C          SC(1) = ABSORPTION COEFFICIENT (1/KM)                        RNS  260
C          SC(2) = EXTINCTION COEFFICIENT (1/KM)                        RNS  270
C          SC(I),I=3,NSC = LEGENDRE COEFFICIENTS #I-3  (NSC=10)         RNS  280
C          ERR = ERROR RETURN CODE: 0=NO ERROR, 1=BAD FREQUENCY,        RNS  290
C                2=BAD RAINFALL RATE, 3=BAD TEMPERATURE,                RNS  300
C                4=BAD PHASE PARAMETER, 5=BAD DROP SIZE DISTRIBUTION    RNS  310
C                                                                       RNS  320
C          THE INTERNAL DATA:                                           RNS  330
C                                                                       RNS  340
      DIMENSION FR(9),TEMP(3)                                           RNS  350
C                                                                       RNS  360
C          FR(I),I=1,NF = TABULATED FREQUENCIES (GHZ)  (NF=9)           RNS  370
C          TEMP(I),I=1,NT = TABULATED TEMPERATURES  (NT=3)              RNS  380
C                                                                       RNS  390
C          THE BLOCK-DATA SECTION                                       RNS  400
C                                                                       RNS  410
      DATA RMIN,RMAX/0.,50./,NF/9/,NT/3/,NSC/4/,MAXI/3/                 RNS  420
      DATA TK/273.15/,CMT0/1.0/,C7500/0.5/,G0/0.0/,G7500/0.85/          RNS  430
      DATA (TEMP(I),I=1,3)/-10.,0.,10./                                 RNS  440
      DATA (FR(I),I=1,9)/19.35,37.,50.3,89.5,100.,118.,130.,183.,231./  RNS  450
C                                                                       RNS  460
C      THIS SUBROUTINE REQUIRES FREQUENCIES IN GHZ                      RNS  470
      NOPR = 0                                                          RNS  480
      IF(IK .EQ. 1) NOPR = 1                                            RNS  490
      IF(IENT .GT.1) NOPR = 0                                           RNS  500
      F= V *29.97925                                                    RNS  510
      FSAV=F                                                            RNS  520
      RSAV=R                                                            RNS  530
      TSAV=T                                                            RNS  540
      INT=0                                                             RNS  550
C      CONVERT TEMP TO DEGREES CELSIUS                                  RNS  560
      T=TT-TK                                                           RNS  570
C      FREQ RANGE OF DATA 19.35-231 GHZ IF LESS THAN 19.35              RNS  580
C      SET UP PARAMETERS FOR INTERPOLATION                              RNS  590
      IF(F.LT.FR(1)) THEN                                               RNS  600
        FL=0.0                                                          RNS  610
        FM=FR(1)                                                        RNS  620
        INT=1                                                           RNS  630
        IF(NOPR .GT. 0) WRITE (6,801)                                   RNS  640
      END IF                                                            RNS  650
C      IF MORE THAN 231 GHZ SET UP PARAMETERS FOR EXTRAPOLATION         RNS  660
       IF(F.GT.FR(NF)) THEN                                             RNS  670
         FL=FR(NF)                                                      RNS  680
         FM=7500.                                                       RNS  690
         INT=2                                                          RNS  700
         IF(NOPR .GT. 0) WRITE (6,801)                                  RNS  710
      END IF                                                            RNS  720
C      TEMP RANGE OF DATA IS -10 TO +10 DEGREES CELCIUS                 RNS  730
C      IF BELOW OR ABOVE EXTREME SET AND DO CALCULATIONS AT EXTREME     RNS  740
      IF (T.LT.TEMP(1)) THEN                                            RNS  750
        T=TEMP(1)                                                       RNS  760
        IF(NOPR .GT. 0) WRITE (6,802)                                   RNS  770
      END IF                                                            RNS  780
C                                                                       RNS  790
      IF (T.GT.TEMP(3)) THEN                                            RNS  800
        T=TEMP(3)                                                       RNS  810
        IF(NOPR .GT. 0) WRITE (6,802)                                   RNS  820
      END IF                                                            RNS  830
C                                                                       RNS  840
C      RAIN RATE OF DATA IS FOR 0-50 MM/HR                              RNS  850
C      IF GT 50 TREAT CALCULATIONS AS IF 50 MM/HR WAS INPUT             RNS  860
      IF(R.GT.50) THEN                                                  RNS  870
        R=50.                                                           RNS  880
        IF(NOPR .GT. 0) WRITE (6,803)                                   RNS  890
      END IF                                                            RNS  900
C                                                                       RNS  910
      KI=1                                                              RNS  920
C             FIGURE OUT THE SECOND INDEX                               RNS  930
   10 J=PHASE+2*DIST                                                    RNS  940
C                                                                       RNS  950
C                                                                       RNS  960
C             GET THE TEMPERATURE INTERPOLATION PARAMETER ST            RNS  970
C             IF NEEDED AND AMEND THE SECOND INDEX                      RNS  980
      CALL BS(J,T,TEMP,NT,ST)                                           RNS  990
C                                                                       RNS 1000
C             FIGURE OUT THE THIRD INDEX AND THE FREQUENCY INTERPOLATIONRNS 1010
C             PARAMETER SF                                              RNS 1020
      CALL BS(K,F,FR,NF,SF)                                             RNS 1030
C                                                                       RNS 1040
C             INITIALIZE SC                                             RNS 1050
      DO 11 I=1,NSC                                                     RNS 1060
      SC(KI,I)=0.                                                       RNS 1070
   11 CONTINUE                                                          RNS 1080
      SC(KI,3)=1.                                                       RNS 1090
C                                                                       RNS 1100
C             NOW DO THE CALCULATIONS                                   RNS 1110
C                                                                       RNS 1120
C             THE WATER CONTENT IS                                      RNS 1130
      IF(DIST.EQ.1) THEN                                                RNS 1140
      WC=.0889*R**.84                                                   RNS 1150
      ELSE                                                              RNS 1160
      WC=.067*R**.846                                                   RNS 1170
      END IF                                                            RNS 1180
C                                                                       RNS 1190
C             FOR A TEMPERATURE DEPENDENT CASE, I.E.                    RNS 1200
      IF(J.LT.3) THEN                                                   RNS 1210
      S1=(1.-SF)*(1.-ST)                                                RNS 1220
      S2=(1.-SF)*ST                                                     RNS 1230
      S3=SF*(1.-ST)                                                     RNS 1240
      S4=SF*ST                                                          RNS 1250
      DO 14 I=1,MAXI                                                    RNS 1260
      IF(I.LE.2) THEN                                                   RNS 1270
      ISC=I                                                             RNS 1280
      ELSE                                                              RNS 1290
      ISC=I+1                                                           RNS 1300
      END IF                                                            RNS 1310
      SC(KI,ISC)=S1*TAB(I,J,K,WC)+S2*TAB(I,J+1,K,WC)+                   RNS 1320
     *             S3*TAB(I,J,K+1,WC)+S4*TAB(I,J+1,K+1,WC)              RNS 1330
   14 CONTINUE                                                          RNS 1340
C                                                                       RNS 1350
C             FOR A TEMPERATURE INDEPENDENT CASE                        RNS 1360
      ELSE                                                              RNS 1370
      S1=1.-SF                                                          RNS 1380
      S2=SF                                                             RNS 1390
      DO 17 I=1,MAXI                                                    RNS 1400
      IF(I.LE.2) THEN                                                   RNS 1410
      ISC=I                                                             RNS 1420
      ELSE                                                              RNS 1430
      ISC=I+1                                                           RNS 1440
      END IF                                                            RNS 1450
      SC(KI,ISC)=S1*TAB(I,J,K,WC)+S2*TAB(I,J,K+1,WC)                    RNS 1460
   17 CONTINUE                                                          RNS 1470
      END IF                                                            RNS 1480
      F=FSAV                                                            RNS 1490
      IF(INT.EQ.3) GO TO 20                                             RNS 1500
      IF(INT.EQ.4) GO TO 30                                             RNS 1510
      IF(INT.EQ.0) THEN                                                 RNS 1520
        CSSA=SC(KI,1)/SC(KI,2)                                          RNS 1530
        IF(CSSA.GT.1.0) CSSA=1.0                                        RNS 1540
        ASYMR=SC(KI,4)/3.0                                              RNS 1550
        F=FSAV                                                          RNS 1560
        R=RSAV                                                          RNS 1570
        T=TSAV                                                          RNS 1580
      RETURN                                                            RNS 1590
      END IF                                                            RNS 1600
      IF(INT.EQ.1) THEN                                                 RNS 1610
        INT=3                                                           RNS 1620
        F=FM                                                            RNS 1630
        KI=2                                                            RNS 1640
      END IF                                                            RNS 1650
      IF(INT.EQ.2) THEN                                                 RNS 1660
        INT=4                                                           RNS 1670
        F=FL                                                            RNS 1680
        KI=3                                                            RNS 1690
      END IF                                                            RNS 1700
      GO TO 10                                                          RNS 1710
   20 CONTINUE                                                          RNS 1720
      FDIF=FM-F                                                         RNS 1730
      FTOT=FM-FL                                                        RNS 1740
      CM=SC(KI,1)/SC(KI,2)                                              RNS 1750
      IF(CM.GT.1.0) CM=1.0                                              RNS 1760
      CL=CMT0                                                           RNS 1770
      AM=SC(KI,4)/3.0                                                   RNS 1780
      AL=G0                                                             RNS 1790
      GO TO 40                                                          RNS 1800
   30 CONTINUE                                                          RNS 1810
      FDIF=FM-F                                                         RNS 1820
      FTOT=FM-FL                                                        RNS 1830
      CM=C7500                                                          RNS 1840
      CL=SC(KI,1)/SC(KI,2)                                              RNS 1850
      IF(CL.GT.1.0) CL=1.0                                              RNS 1860
      AM=G7500                                                          RNS 1870
      AL=SC(KI,4)/3.0                                                   RNS 1880
   40 CTOT=CM-CL                                                        RNS 1890
      CAMT=FDIF*CTOT/FTOT                                               RNS 1900
      CSSA=CM-CAMT                                                      RNS 1910
      ATOT=AM-AL                                                        RNS 1920
      AAMT=FDIF*ATOT/FTOT                                               RNS 1930
      ASYMR=AM-AAMT                                                     RNS 1940
      F=FSAV                                                            RNS 1950
      R=RSAV                                                            RNS 1960
      T=TSAV                                                            RNS 1970
      RETURN                                                            RNS 1980
801   FORMAT(2X,'***  THE ASYMMETRY PARAMETER DUE TO RAIN IS BASED ON', RNS 1990
     1 'DATA BETWEEN 19 AND 231 GHZ',                                   RNS 2000
     2 /2X,'***  EXTRAPOLATION IS USED FOR FREQUENCIES LOWER AND',      RNS 2010
     3 'HIGHER THAN THIS RANGE')                                        RNS 2020
802   FORMAT(2X,'***  TEMPERATURE RANGE OF DATA IS -10 TO +10 ',        RNS 2030
     1'DEGREES CELSIUS',/2X,'***  BEYOND THESE VALUES IT IS ',          RNS 2040
     2'TREATED AS IF AT THE EXTREMES')                                  RNS 2050
803   FORMAT(2X,'***  RAIN RATES BETWEEN 0 AND 50 MM/HR ARE',           RNS 2060
     1'WITHIN THIS DATA RANGE',/2X,'***  ABOVE THAT THE ASYMMETRY',     RNS 2070
     2' PARAMETER IS CALCULATED FOR 50 MM/HR')                          RNS 2080
      END                                                               RNS 2090
      SUBROUTINE SCALHT(Z1,Z2,RFNDX1,RFNDX2,SH,GAMMA)                   SCA  100
C***********************************************************************SCA  110
C     THIS SUBROUTINE CALCULATES THE SCALE HEIGHT SH OF THE (INDEX OF   SCA  120
C     REFRACTION-1.0) FROM THE VALUES OF THE INDEX AT THE ALTITUDES Z1  SCA  130
C     AND Z2 ( Z1 < Z2). IT ALSO CALCULATES THE EXTRAPOLATED VALUE      SCA  140
C     GAMMA OF THE (INDEX-1.0) AT Z = 0.0                               SCA  150
C***********************************************************************SCA  160
      RF1 = RFNDX1+1.0E-20                                              SCA  170
      RF2 = RFNDX2+1.0E-20                                              SCA  180
      RATIO = RF1/RF2                                                   SCA  190
      IF(ABS(RATIO-1.0).LT.1.0E-05)  GO TO 100                          SCA  200
      SH = (Z2-Z1)/ALOG(RATIO)                                          SCA  210
      GAMMA = RF1*(RF2/RF1)**(-Z1/(Z2-Z1))                              SCA  220
      GO TO 110                                                         SCA  230
  100 CONTINUE                                                          SCA  240
C*****THE VARIATION IN THE INDEX OF REFRACTION WITH HEIGHT IS           SCA  250
C*****INSIGNIFICANT OR ZERO                                             SCA  260
      SH = 0.0                                                          SCA  270
      GAMMA = RFNDX1                                                    SCA  280
  110 CONTINUE                                                          SCA  290
      RETURN                                                            SCA  300
      END                                                               SCA  310
      SUBROUTINE SCHRUN(V,CPRUN)                                        SCH  100
      COMMON /SHUR/ SHN(430)                                            SCH  110
      DATA V1,V2,DV,INUM /49600.,51710.,5.,425/                         SCH  120
      CPRUN = -20.                                                      SCH  130
      IF(V .LT. V1) GO TO 20                                            SCH  140
      IF(V .GT. V2) GO TO 20                                            SCH  150
      IND = (V - V1)/DV + 1.0001                                        SCH  160
      IF(IND . GT. INUM) THEN                                           SCH  170
            PRINT*,'  IND GT INUM  V IND ',V,IND                        SCH  180
            GO TO 20                                                    SCH  190
      ENDIF                                                             SCH  200
      CPRUN = SHN(IND)                                                  SCH  210
20    RETURN                                                            SCH  220
      END                                                               SCH  230
      FUNCTION   SCTANG(ANGLST,THTST,PSIST,IARB)                        SCT  100
C                                                                       SCT  110
C     FUNCTION SCTANG RETURNS THE SCATTERING ANGLE (THAT IS, THE        SCT  120
C     ANGLE BETWEEN THE SUN'S RAYS AND THE LINE OF SIGHT) AT ANY        SCT  130
C     POINT ALONG THE OPTICAL PATH.                                     SCT  140
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              SCT  150
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     SCT  160
C                                                                       SCT  170
      SUNZEN=ANGLST/DEG                                                 SCT  180
      PTHZEN=THTST/DEG                                                  SCT  190
      IF(IARB.EQ.0) GO TO 10                                            SCT  200
C     SPECIAL CASES IF PSI IS ARBITRARY                                 SCT  210
      SCTANG=DEG*ACOS(COS(SUNZEN)*COS(PTHZEN))                          SCT  220
      RETURN                                                            SCT  230
10    CONTINUE                                                          SCT  240
      PSI=PSIST/DEG                                                     SCT  250
C     GENERAL CASE                                                      SCT  260
      X=SIN(SUNZEN)*SIN(PTHZEN)*COS(PSI)+COS(SUNZEN)*COS(PTHZEN)        SCT  270
      SCTANG=DEG*ACOS(X)                                                SCT  280
      RETURN                                                            SCT  290
      END                                                               SCT  300
      BLOCK DATA SF260                                                  B26  100
C>    BLOCK DATA                                                        B26  110
C               06/28/82                                                B26  120
C               UNITS OF (CM**3/MOL) * 1.E-20                           B26  130
      COMMON /S260/ V1,V2,DV,NPT,S0000(2),                              B26  140
     1      S0001(50),S0051(50),S0101(50),S0151(50),S0201(50),S0251(50),B26  150
     2      S0301(50),S0351(50),S0401(50),S0451(50),S0501(50),S0551(50),B26  160
     3      S0601(50),S0651(50),S0701(50),S0751(50),S0801(50),S0851(50),B26  170
     4      S0901(50),S0951(50),S1001(50),S1051(50),S1101(50),S1151(50),B26  180
     5      S1201(50),S1251(50),S1301(50),S1351(50),S1401(50),S1451(50),B26  190
     6      S1501(50),S1551(50),S1601(50),S1651(50),S1701(50),S1751(50),B26  200
     7      S1801(50),S1851(50),S1901(50),S1951(50),S2001(1)            B26  210
C                                                                       B26  220
C                                                                       B26  230
       DATA V1,V2,DV,NPT /                                              B26  240
     1      -20.0,     20000.0,       10.0,  2003/                      B26  250
C                                                                       B26  260
C                                                                       B26  270
      DATA S0000/ 1.7750E-01, 1.7045E-01/                               B26  280
      DATA S0001/                                                       B26  290
     C 1.6457E-01, 1.7045E-01, 1.7750E-01, 2.0036E-01, 2.1347E-01,      B26  300
     C 2.2454E-01, 2.3428E-01, 2.3399E-01, 2.3022E-01, 2.0724E-01,      B26  310
     C 1.9712E-01, 1.8317E-01, 1.6724E-01, 1.4780E-01, 1.2757E-01,      B26  320
     C 1.1626E-01, 1.0098E-01, 8.9033E-02, 7.9770E-02, 6.7416E-02,      B26  330
     C 5.9588E-02, 5.1117E-02, 4.6218E-02, 4.2179E-02, 3.4372E-02,      B26  340
     C 2.9863E-02, 2.5252E-02, 2.2075E-02, 1.9209E-02, 1.5816E-02,      B26  350
     C 1.3932E-02, 1.1943E-02, 1.0079E-02, 8.7667E-03, 7.4094E-03,      B26  360
     C 6.4967E-03, 5.5711E-03, 4.8444E-03, 4.2552E-03, 3.6953E-03,      B26  370
     C 3.2824E-03, 2.9124E-03, 2.6102E-03, 2.3370E-03, 2.1100E-03,      B26  380
     C 1.9008E-03, 1.7145E-03, 1.5573E-03, 1.4206E-03, 1.2931E-03/      B26  390
      DATA S0051/                                                       B26  400
     C 1.1803E-03, 1.0774E-03, 9.8616E-04, 9.0496E-04, 8.3071E-04,      B26  410
     C 7.6319E-04, 7.0149E-04, 6.4637E-04, 5.9566E-04, 5.4987E-04,      B26  420
     C 5.0768E-04, 4.6880E-04, 4.3317E-04, 4.0037E-04, 3.7064E-04,      B26  430
     C 3.4325E-04, 3.1809E-04, 2.9501E-04, 2.7382E-04, 2.5430E-04,      B26  440
     C 2.3630E-04, 2.1977E-04, 2.0452E-04, 1.9042E-04, 1.7740E-04,      B26  450
     C 1.6544E-04, 1.5442E-04, 1.4425E-04, 1.3486E-04, 1.2618E-04,      B26  460
     C 1.1817E-04, 1.1076E-04, 1.0391E-04, 9.7563E-05, 9.1696E-05,      B26  470
     C 8.6272E-05, 8.1253E-05, 7.6607E-05, 7.2302E-05, 6.8311E-05,      B26  480
     C 6.4613E-05, 6.1183E-05, 5.8001E-05, 5.5048E-05, 5.2307E-05,      B26  490
     C 4.9761E-05, 4.7395E-05, 4.5197E-05, 4.3155E-05, 4.1256E-05/      B26  500
      DATA S0101/                                                       B26  510
     C 3.9491E-05, 3.7849E-05, 3.6324E-05, 3.4908E-05, 3.3594E-05,      B26  520
     C 3.2374E-05, 3.1244E-05, 3.0201E-05, 2.9240E-05, 2.8356E-05,      B26  530
     C 2.7547E-05, 2.6814E-05, 2.6147E-05, 2.5551E-05, 2.5029E-05,      B26  540
     C 2.4582E-05, 2.4203E-05, 2.3891E-05, 2.3663E-05, 2.3531E-05,      B26  550
     C 2.3483E-05, 2.3516E-05, 2.3694E-05, 2.4032E-05, 2.4579E-05,      B26  560
     C 2.5234E-05, 2.6032E-05, 2.7119E-05, 2.8631E-05, 3.0848E-05,      B26  570
     C 3.3262E-05, 3.6635E-05, 4.0732E-05, 4.5923E-05, 5.3373E-05,      B26  580
     C 6.1875E-05, 7.2031E-05, 8.5980E-05, 9.8642E-05, 1.1469E-04,      B26  590
     C 1.3327E-04, 1.5390E-04, 1.7513E-04, 2.0665E-04, 2.3609E-04,      B26  600
     C 2.6220E-04, 2.8677E-04, 3.2590E-04, 3.8624E-04, 4.1570E-04/      B26  610
      DATA S0151/                                                       B26  620
     C 4.5207E-04, 4.9336E-04, 5.4500E-04, 5.8258E-04, 5.8086E-04,      B26  630
     C 5.6977E-04, 5.3085E-04, 4.8020E-04, 4.3915E-04, 4.0343E-04,      B26  640
     C 3.7853E-04, 3.7025E-04, 3.9637E-04, 4.4675E-04, 4.7072E-04,      B26  650
     C 4.9022E-04, 5.2076E-04, 5.3676E-04, 5.2755E-04, 4.8244E-04,      B26  660
     C 4.5473E-04, 4.3952E-04, 3.9614E-04, 3.4086E-04, 2.9733E-04,      B26  670
     C 2.6367E-04, 2.3767E-04, 2.0427E-04, 1.7595E-04, 1.5493E-04,      B26  680
     C 1.3851E-04, 1.1874E-04, 1.0735E-04, 9.0490E-05, 8.1149E-05,      B26  690
     C 7.4788E-05, 6.5438E-05, 5.8248E-05, 4.8076E-05, 4.3488E-05,      B26  700
     C 3.7856E-05, 3.3034E-05, 2.9592E-05, 2.6088E-05, 2.3497E-05,      B26  710
     C 2.0279E-05, 1.7526E-05, 1.5714E-05, 1.3553E-05, 1.2145E-05/      B26  720
      DATA S0201/                                                       B26  730
     C 1.0802E-05, 9.7681E-06, 8.8196E-06, 7.8291E-06, 7.1335E-06,      B26  740
     C 6.4234E-06, 5.8391E-06, 5.3532E-06, 4.9079E-06, 4.5378E-06,      B26  750
     C 4.1716E-06, 3.8649E-06, 3.5893E-06, 3.3406E-06, 3.1199E-06,      B26  760
     C 2.9172E-06, 2.7348E-06, 2.5644E-06, 2.4086E-06, 2.2664E-06,      B26  770
     C 2.1359E-06, 2.0159E-06, 1.9051E-06, 1.8031E-06, 1.7074E-06,      B26  780
     C 1.6185E-06, 1.5356E-06, 1.4584E-06, 1.3861E-06, 1.3179E-06,      B26  790
     C 1.2545E-06, 1.1951E-06, 1.1395E-06, 1.0873E-06, 1.0384E-06,      B26  800
     C 9.9250E-07, 9.4935E-07, 9.0873E-07, 8.7050E-07, 8.3446E-07,      B26  810
     C 8.0046E-07, 7.6834E-07, 7.3800E-07, 7.0931E-07, 6.8217E-07,      B26  820
     C 6.5648E-07, 6.3214E-07, 6.0909E-07, 5.8725E-07, 5.6655E-07/      B26  830
      DATA S0251/                                                       B26  840
     C 5.4693E-07, 5.2835E-07, 5.1077E-07, 4.9416E-07, 4.7853E-07,      B26  850
     C 4.6381E-07, 4.5007E-07, 4.3728E-07, 4.2550E-07, 4.1450E-07,      B26  860
     C 4.0459E-07, 3.9532E-07, 3.8662E-07, 3.7855E-07, 3.7041E-07,      B26  870
     C 3.6254E-07, 3.5420E-07, 3.4617E-07, 3.3838E-07, 3.3212E-07,      B26  880
     C 3.2655E-07, 3.1865E-07, 3.1203E-07, 3.0670E-07, 3.0252E-07,      B26  890
     C 2.9749E-07, 2.9184E-07, 2.8795E-07, 2.8501E-07, 2.8202E-07,      B26  900
     C 2.7856E-07, 2.7509E-07, 2.7152E-07, 2.6844E-07, 2.6642E-07,      B26  910
     C 2.6548E-07, 2.6617E-07, 2.6916E-07, 2.7372E-07, 2.8094E-07,      B26  920
     C 2.9236E-07, 3.1035E-07, 3.2854E-07, 3.5481E-07, 3.9377E-07,      B26  930
     C 4.4692E-07, 5.0761E-07, 5.7715E-07, 6.7725E-07, 8.0668E-07/      B26  940
      DATA S0301/                                                       B26  950
     C 9.3716E-07, 1.0797E-06, 1.1689E-06, 1.3217E-06, 1.4814E-06,      B26  960
     C 1.5627E-06, 1.6519E-06, 1.7601E-06, 1.9060E-06, 2.0474E-06,      B26  970
     C 2.0716E-06, 2.0433E-06, 1.9752E-06, 1.8466E-06, 1.7526E-06,      B26  980
     C 1.6657E-06, 1.5870E-06, 1.5633E-06, 1.6520E-06, 1.8471E-06,      B26  990
     C 1.9953E-06, 2.0975E-06, 2.2016E-06, 2.2542E-06, 2.3081E-06,      B26 1000
     C 2.3209E-06, 2.2998E-06, 2.3056E-06, 2.2757E-06, 2.2685E-06,      B26 1010
     C 2.2779E-06, 2.2348E-06, 2.2445E-06, 2.3174E-06, 2.4284E-06,      B26 1020
     C 2.5290E-06, 2.7340E-06, 2.9720E-06, 3.2332E-06, 3.5392E-06,      B26 1030
     C 3.9013E-06, 4.3334E-06, 4.9088E-06, 5.3428E-06, 5.9142E-06,      B26 1040
     C 6.6106E-06, 7.4709E-06, 8.5019E-06, 9.6835E-06, 1.0984E-05/      B26 1050
      DATA S0351/                                                       B26 1060
     C 1.2831E-05, 1.4664E-05, 1.7080E-05, 2.0103E-05, 2.4148E-05,      B26 1070
     C 2.7948E-05, 3.2855E-05, 3.9046E-05, 4.6429E-05, 5.6633E-05,      B26 1080
     C 6.6305E-05, 7.6048E-05, 8.7398E-05, 1.0034E-04, 1.1169E-04,      B26 1090
     C 1.2813E-04, 1.3354E-04, 1.3952E-04, 1.4204E-04, 1.4615E-04,      B26 1100
     C 1.5144E-04, 1.5475E-04, 1.6561E-04, 1.7135E-04, 1.6831E-04,      B26 1110
     C 1.6429E-04, 1.6353E-04, 1.6543E-04, 1.5944E-04, 1.5404E-04,      B26 1120
     C 1.5458E-04, 1.6287E-04, 1.7277E-04, 1.8387E-04, 1.7622E-04,      B26 1130
     C 1.6360E-04, 1.5273E-04, 1.3667E-04, 1.2364E-04, 9.7576E-05,      B26 1140
     C 7.9140E-05, 6.4241E-05, 5.1826E-05, 4.1415E-05, 3.1347E-05,      B26 1150
     C 2.5125E-05, 2.0027E-05, 1.6362E-05, 1.3364E-05, 1.1117E-05/      B26 1160
      DATA S0401/                                                       B26 1170
     C 9.4992E-06, 8.1581E-06, 7.1512E-06, 6.2692E-06, 5.5285E-06,      B26 1180
     C 4.9000E-06, 4.3447E-06, 3.8906E-06, 3.4679E-06, 3.1089E-06,      B26 1190
     C 2.8115E-06, 2.5496E-06, 2.2982E-06, 2.0861E-06, 1.8763E-06,      B26 1200
     C 1.7035E-06, 1.5548E-06, 1.4107E-06, 1.2839E-06, 1.1706E-06,      B26 1210
     C 1.0709E-06, 9.8099E-07, 8.9901E-07, 8.2394E-07, 7.5567E-07,      B26 1220
     C 6.9434E-07, 6.3867E-07, 5.8845E-07, 5.4263E-07, 5.0033E-07,      B26 1230
     C 4.6181E-07, 4.2652E-07, 3.9437E-07, 3.6497E-07, 3.3781E-07,      B26 1240
     C 3.1292E-07, 2.9011E-07, 2.6915E-07, 2.4989E-07, 2.3215E-07,      B26 1250
     C 2.1582E-07, 2.0081E-07, 1.8700E-07, 1.7432E-07, 1.6264E-07,      B26 1260
     C 1.5191E-07, 1.4207E-07, 1.3306E-07, 1.2484E-07, 1.1737E-07/      B26 1270
      DATA S0451/                                                       B26 1280
     C 1.1056E-07, 1.0451E-07, 9.9060E-08, 9.4135E-08, 8.9608E-08,      B26 1290
     C 8.5697E-08, 8.1945E-08, 7.8308E-08, 7.4808E-08, 7.1686E-08,      B26 1300
     C 6.8923E-08, 6.5869E-08, 6.3308E-08, 6.0840E-08, 5.8676E-08,      B26 1310
     C 5.6744E-08, 5.5016E-08, 5.3813E-08, 5.2792E-08, 5.2097E-08,      B26 1320
     C 5.1737E-08, 5.1603E-08, 5.1656E-08, 5.1989E-08, 5.2467E-08,      B26 1330
     C 5.2918E-08, 5.3589E-08, 5.4560E-08, 5.5869E-08, 5.7403E-08,      B26 1340
     C 5.8968E-08, 6.0973E-08, 6.3432E-08, 6.6245E-08, 6.9353E-08,      B26 1350
     C 7.2686E-08, 7.6541E-08, 8.0991E-08, 8.5950E-08, 9.1429E-08,      B26 1360
     C 9.7851E-08, 1.0516E-07, 1.1349E-07, 1.2295E-07, 1.3335E-07,      B26 1370
     C 1.4488E-07, 1.5864E-07, 1.7412E-07, 1.9140E-07, 2.1078E-07/      B26 1380
      DATA S0501/                                                       B26 1390
     C 2.3369E-07, 2.5996E-07, 2.8848E-07, 3.2169E-07, 3.5991E-07,      B26 1400
     C 4.0566E-07, 4.5969E-07, 5.3094E-07, 6.1458E-07, 7.1155E-07,      B26 1410
     C 8.3045E-07, 9.9021E-07, 1.2042E-06, 1.4914E-06, 1.8145E-06,      B26 1420
     C 2.2210E-06, 2.7831E-06, 3.4533E-06, 4.4446E-06, 5.1989E-06,      B26 1430
     C 6.2289E-06, 7.1167E-06, 8.3949E-06, 9.6417E-06, 1.0313E-05,      B26 1440
     C 1.0485E-05, 1.0641E-05, 1.0898E-05, 1.0763E-05, 1.0506E-05,      B26 1450
     C 1.0497E-05, 1.1696E-05, 1.2654E-05, 1.3029E-05, 1.3175E-05,      B26 1460
     C 1.4264E-05, 1.4985E-05, 1.4999E-05, 1.4317E-05, 1.4616E-05,      B26 1470
     C 1.4963E-05, 1.5208E-05, 1.4942E-05, 1.3879E-05, 1.3087E-05,      B26 1480
     C 1.1727E-05, 1.0515E-05, 9.0073E-06, 7.3133E-06, 6.1181E-06/      B26 1490
      DATA S0551/                                                       B26 1500
     C 5.0623E-06, 4.1105E-06, 3.3915E-06, 2.6711E-06, 2.1464E-06,      B26 1510
     C 1.7335E-06, 1.4302E-06, 1.1847E-06, 9.9434E-07, 8.2689E-07,      B26 1520
     C 7.0589E-07, 6.0750E-07, 5.3176E-07, 4.6936E-07, 4.1541E-07,      B26 1530
     C 3.6625E-07, 3.2509E-07, 2.9156E-07, 2.6308E-07, 2.3819E-07,      B26 1540
     C 2.1421E-07, 1.9366E-07, 1.7626E-07, 1.5982E-07, 1.4567E-07,      B26 1550
     C 1.3354E-07, 1.2097E-07, 1.1029E-07, 1.0063E-07, 9.2003E-08,      B26 1560
     C 8.4245E-08, 7.7004E-08, 7.0636E-08, 6.4923E-08, 5.9503E-08,      B26 1570
     C 5.4742E-08, 5.0450E-08, 4.6470E-08, 4.2881E-08, 3.9550E-08,      B26 1580
     C 3.6541E-08, 3.3803E-08, 3.1279E-08, 2.8955E-08, 2.6858E-08,      B26 1590
     C 2.4905E-08, 2.3146E-08, 2.1539E-08, 2.0079E-08, 1.8746E-08/      B26 1600
      DATA S0601/                                                       B26 1610
     C 1.7517E-08, 1.6396E-08, 1.5369E-08, 1.4426E-08, 1.3543E-08,      B26 1620
     C 1.2724E-08, 1.1965E-08, 1.1267E-08, 1.0617E-08, 1.0010E-08,      B26 1630
     C 9.4662E-09, 8.9553E-09, 8.4988E-09, 8.0807E-09, 7.7043E-09,      B26 1640
     C 7.3721E-09, 7.0707E-09, 6.8047E-09, 6.5702E-09, 6.3634E-09,      B26 1650
     C 6.1817E-09, 6.0239E-09, 5.8922E-09, 5.7824E-09, 5.7019E-09,      B26 1660
     C 5.6368E-09, 5.5940E-09, 5.5669E-09, 5.5583E-09, 5.5653E-09,      B26 1670
     C 5.5837E-09, 5.6243E-09, 5.6883E-09, 5.7800E-09, 5.8964E-09,      B26 1680
     C 6.0429E-09, 6.2211E-09, 6.4282E-09, 6.6634E-09, 6.9306E-09,      B26 1690
     C 7.2336E-09, 7.5739E-09, 7.9562E-09, 8.3779E-09, 8.8575E-09,      B26 1700
     C 9.3992E-09, 1.0004E-08, 1.0684E-08, 1.1450E-08, 1.2320E-08/      B26 1710
      DATA S0651/                                                       B26 1720
     C 1.3311E-08, 1.4455E-08, 1.5758E-08, 1.7254E-08, 1.8927E-08,      B26 1730
     C 2.0930E-08, 2.3348E-08, 2.6074E-08, 2.9221E-08, 3.2770E-08,      B26 1740
     C 3.7485E-08, 4.2569E-08, 4.8981E-08, 5.5606E-08, 6.2393E-08,      B26 1750
     C 7.1901E-08, 8.2921E-08, 9.5513E-08, 1.1111E-07, 1.3143E-07,      B26 1760
     C 1.5971E-07, 1.8927E-07, 2.2643E-07, 2.7860E-07, 3.2591E-07,      B26 1770
     C 3.7024E-07, 4.2059E-07, 4.9432E-07, 5.5543E-07, 5.7498E-07,      B26 1780
     C 5.9210E-07, 6.1005E-07, 6.1577E-07, 5.9193E-07, 5.6602E-07,      B26 1790
     C 5.7403E-07, 6.0050E-07, 6.4723E-07, 6.7073E-07, 7.5415E-07,      B26 1800
     C 8.0982E-07, 8.7658E-07, 9.1430E-07, 9.4459E-07, 9.8347E-07,      B26 1810
     C 9.8768E-07, 1.0153E-06, 1.0066E-06, 1.0353E-06, 1.0353E-06/      B26 1820
      DATA S0701/                                                       B26 1830
     C 1.0722E-06, 1.1138E-06, 1.1923E-06, 1.2947E-06, 1.4431E-06,      B26 1840
     C 1.6537E-06, 1.8662E-06, 2.2473E-06, 2.6464E-06, 3.1041E-06,      B26 1850
     C 3.4858E-06, 4.0167E-06, 4.6675E-06, 5.0983E-06, 5.7997E-06,      B26 1860
     C 6.0503E-06, 6.4687E-06, 6.5396E-06, 6.7986E-06, 7.0244E-06,      B26 1870
     C 7.2305E-06, 7.6732E-06, 7.9783E-06, 7.9846E-06, 7.7617E-06,      B26 1880
     C 7.7657E-06, 7.7411E-06, 7.8816E-06, 7.8136E-06, 8.0051E-06,      B26 1890
     C 8.5799E-06, 9.1659E-06, 9.8646E-06, 9.4920E-06, 8.7670E-06,      B26 1900
     C 8.2034E-06, 7.2297E-06, 6.2324E-06, 4.9315E-06, 3.9128E-06,      B26 1910
     C 3.1517E-06, 2.4469E-06, 1.8815E-06, 1.4627E-06, 1.1698E-06,      B26 1920
     C 9.4686E-07, 7.8486E-07, 6.6970E-07, 5.8811E-07, 5.2198E-07/      B26 1930
      DATA S0751/                                                       B26 1940
     C 4.6809E-07, 4.1671E-07, 3.7006E-07, 3.3066E-07, 2.9387E-07,      B26 1950
     C 2.6415E-07, 2.3409E-07, 2.0991E-07, 1.9132E-07, 1.7519E-07,      B26 1960
     C 1.5939E-07, 1.4368E-07, 1.3050E-07, 1.1883E-07, 1.0772E-07,      B26 1970
     C 9.6884E-08, 8.7888E-08, 7.8956E-08, 7.1024E-08, 6.3824E-08,      B26 1980
     C 5.7256E-08, 5.1769E-08, 4.7037E-08, 4.2901E-08, 3.8970E-08,      B26 1990
     C 3.5467E-08, 3.2502E-08, 2.9827E-08, 2.7389E-08, 2.5111E-08,      B26 2000
     C 2.3056E-08, 2.1267E-08, 1.9610E-08, 1.8133E-08, 1.6775E-08,      B26 2010
     C 1.5491E-08, 1.4329E-08, 1.3265E-08, 1.2300E-08, 1.1420E-08,      B26 2020
     C 1.0593E-08, 9.8475E-09, 9.1585E-09, 8.5256E-09, 7.9525E-09,      B26 2030
     C 7.4226E-09, 6.9379E-09, 6.4950E-09, 6.0911E-09, 5.7242E-09/      B26 2040
      DATA S0801/                                                       B26 2050
     C 5.3877E-09, 5.0821E-09, 4.8051E-09, 4.5554E-09, 4.3315E-09,      B26 2060
     C 4.1336E-09, 3.9632E-09, 3.8185E-09, 3.7080E-09, 3.6296E-09,      B26 2070
     C 3.5804E-09, 3.5776E-09, 3.6253E-09, 3.7115E-09, 3.8151E-09,      B26 2080
     C 3.9804E-09, 4.1742E-09, 4.3581E-09, 4.5306E-09, 4.7736E-09,      B26 2090
     C 5.1297E-09, 5.5291E-09, 5.9125E-09, 6.4956E-09, 7.0362E-09,      B26 2100
     C 7.5318E-09, 7.9947E-09, 8.6438E-09, 9.7227E-09, 1.0130E-08,      B26 2110
     C 1.0549E-08, 1.1064E-08, 1.1702E-08, 1.2043E-08, 1.1781E-08,      B26 2120
     C 1.1838E-08, 1.1917E-08, 1.2131E-08, 1.2476E-08, 1.3611E-08,      B26 2130
     C 1.4360E-08, 1.5057E-08, 1.6247E-08, 1.7284E-08, 1.8420E-08,      B26 2140
     C 1.8352E-08, 1.8722E-08, 1.9112E-08, 1.9092E-08, 1.9311E-08/      B26 2150
      DATA S0851/                                                       B26 2160
     C 1.9411E-08, 1.9884E-08, 2.0508E-08, 2.1510E-08, 2.3143E-08,      B26 2170
     C 2.5050E-08, 2.7596E-08, 3.1231E-08, 3.6260E-08, 4.3410E-08,      B26 2180
     C 5.2240E-08, 6.3236E-08, 7.7522E-08, 9.8688E-08, 1.1859E-07,      B26 2190
     C 1.4341E-07, 1.6798E-07, 1.9825E-07, 2.2898E-07, 2.6257E-07,      B26 2200
     C 2.9884E-07, 3.3247E-07, 3.4936E-07, 3.5583E-07, 3.7150E-07,      B26 2210
     C 3.6580E-07, 3.7124E-07, 3.7030E-07, 4.1536E-07, 4.6656E-07,      B26 2220
     C 4.6677E-07, 4.7507E-07, 4.9653E-07, 5.3795E-07, 5.4957E-07,      B26 2230
     C 5.2238E-07, 5.4690E-07, 5.6569E-07, 5.9844E-07, 5.9835E-07,      B26 2240
     C 5.6522E-07, 5.4123E-07, 4.7904E-07, 4.2851E-07, 3.5603E-07,      B26 2250
     C 2.8932E-07, 2.3655E-07, 1.8592E-07, 1.4943E-07, 1.1971E-07/      B26 2260
      DATA S0901/                                                       B26 2270
     C 9.8482E-08, 8.3675E-08, 7.1270E-08, 6.2496E-08, 5.4999E-08,      B26 2280
     C 4.9821E-08, 4.5387E-08, 4.1340E-08, 3.7453E-08, 3.3298E-08,      B26 2290
     C 3.0120E-08, 2.7032E-08, 2.4236E-08, 2.1500E-08, 1.8988E-08,      B26 2300
     C 1.7414E-08, 1.5706E-08, 1.4192E-08, 1.3204E-08, 1.1759E-08,      B26 2310
     C 1.0737E-08, 9.6309E-09, 8.8179E-09, 8.2619E-09, 7.2264E-09,      B26 2320
     C 6.4856E-09, 5.8037E-09, 5.2093E-09, 4.7205E-09, 4.1749E-09,      B26 2330
     C 3.7852E-09, 3.3915E-09, 3.0089E-09, 2.7335E-09, 2.4398E-09,      B26 2340
     C 2.2031E-09, 1.9786E-09, 1.7890E-09, 1.6266E-09, 1.4830E-09,      B26 2350
     C 1.3576E-09, 1.2518E-09, 1.1587E-09, 1.0726E-09, 9.9106E-10,      B26 2360
     C 9.1673E-10, 8.5084E-10, 7.9147E-10, 7.2882E-10, 6.7342E-10/      B26 2370
      DATA S0951/                                                       B26 2380
     C 6.2593E-10, 5.8294E-10, 5.4435E-10, 5.0997E-10, 4.7806E-10,      B26 2390
     C 4.4931E-10, 4.2357E-10, 4.0023E-10, 3.7909E-10, 3.5999E-10,      B26 2400
     C 3.4285E-10, 3.2776E-10, 3.1468E-10, 3.0377E-10, 2.9479E-10,      B26 2410
     C 2.8877E-10, 2.8512E-10, 2.8617E-10, 2.8976E-10, 3.0001E-10,      B26 2420
     C 3.1718E-10, 3.3898E-10, 3.5857E-10, 3.8358E-10, 4.3131E-10,      B26 2430
     C 4.5741E-10, 4.6948E-10, 4.7594E-10, 4.9529E-10, 5.1563E-10,      B26 2440
     C 4.9475E-10, 4.8369E-10, 4.8829E-10, 5.0047E-10, 5.0203E-10,      B26 2450
     C 5.1954E-10, 5.5352E-10, 5.9928E-10, 6.7148E-10, 7.1121E-10,      B26 2460
     C 7.4317E-10, 7.6039E-10, 7.8313E-10, 8.0684E-10, 7.8553E-10,      B26 2470
     C 7.8312E-10, 7.8537E-10, 7.8872E-10, 8.0185E-10, 8.1004E-10/      B26 2480
      DATA S1001/                                                       B26 2490
     C 8.2608E-10, 8.2525E-10, 8.3857E-10, 8.7920E-10, 9.2451E-10,      B26 2500
     C 9.8661E-10, 1.0629E-09, 1.1659E-09, 1.2922E-09, 1.4387E-09,      B26 2510
     C 1.6254E-09, 1.8425E-09, 2.1428E-09, 2.5477E-09, 3.0379E-09,      B26 2520
     C 3.7570E-09, 4.4354E-09, 5.1802E-09, 6.2769E-09, 7.4894E-09,      B26 2530
     C 8.7474E-09, 9.8037E-09, 1.1582E-08, 1.3293E-08, 1.4471E-08,      B26 2540
     C 1.5025E-08, 1.5580E-08, 1.6228E-08, 1.6413E-08, 1.6020E-08,      B26 2550
     C 1.6393E-08, 1.7545E-08, 1.9590E-08, 2.1449E-08, 2.3856E-08,      B26 2560
     C 2.7050E-08, 3.0214E-08, 3.3733E-08, 3.6487E-08, 3.9353E-08,      B26 2570
     C 4.2660E-08, 4.6385E-08, 4.9955E-08, 5.5313E-08, 6.0923E-08,      B26 2580
     C 6.8948E-08, 7.3649E-08, 8.2602E-08, 9.2212E-08, 9.9080E-08/      B26 2590
      DATA S1051/                                                       B26 2600
     C 1.1319E-07, 1.1790E-07, 1.2941E-07, 1.3199E-07, 1.3914E-07,      B26 2610
     C 1.4843E-07, 1.5300E-07, 1.6419E-07, 1.7095E-07, 1.6988E-07,      B26 2620
     C 1.6494E-07, 1.6327E-07, 1.6067E-07, 1.6909E-07, 1.7118E-07,      B26 2630
     C 1.8106E-07, 1.9857E-07, 2.1696E-07, 2.3385E-07, 2.2776E-07,      B26 2640
     C 2.1402E-07, 1.9882E-07, 1.7362E-07, 1.4308E-07, 1.1158E-07,      B26 2650
     C 8.8781E-08, 6.8689E-08, 5.2062E-08, 4.0427E-08, 3.2669E-08,      B26 2660
     C 2.7354E-08, 2.3200E-08, 2.0580E-08, 1.8676E-08, 1.7329E-08,      B26 2670
     C 1.6621E-08, 1.6433E-08, 1.6953E-08, 1.7134E-08, 1.7948E-08,      B26 2680
     C 1.9107E-08, 1.9875E-08, 2.1416E-08, 2.1556E-08, 2.2265E-08,      B26 2690
     C 2.2171E-08, 2.2534E-08, 2.3029E-08, 2.2828E-08, 2.3143E-08/      B26 2700
      DATA S1101/                                                       B26 2710
     C 2.2965E-08, 2.2223E-08, 2.1108E-08, 2.0265E-08, 1.9516E-08,      B26 2720
     C 1.9941E-08, 2.0312E-08, 2.1080E-08, 2.2611E-08, 2.4210E-08,      B26 2730
     C 2.6069E-08, 2.5097E-08, 2.3318E-08, 2.1543E-08, 1.8942E-08,      B26 2740
     C 1.5960E-08, 1.2386E-08, 9.9340E-09, 7.7502E-09, 5.9462E-09,      B26 2750
     C 4.5113E-09, 3.5523E-09, 2.8844E-09, 2.3394E-09, 1.9584E-09,      B26 2760
     C 1.6749E-09, 1.4624E-09, 1.2809E-09, 1.1359E-09, 1.0087E-09,      B26 2770
     C 9.0166E-10, 8.1079E-10, 7.2219E-10, 6.4922E-10, 5.8803E-10,      B26 2780
     C 5.3290E-10, 4.8590E-10, 4.4111E-10, 4.0184E-10, 3.6644E-10,      B26 2790
     C 3.3529E-10, 3.0789E-10, 2.8286E-10, 2.6089E-10, 2.4125E-10,      B26 2800
     C 2.2355E-10, 2.0783E-10, 1.9370E-10, 1.8088E-10, 1.6948E-10/      B26 2810
      DATA S1151/                                                       B26 2820
     C 1.5929E-10, 1.5013E-10, 1.4193E-10, 1.3470E-10, 1.2841E-10,      B26 2830
     C 1.2307E-10, 1.1865E-10, 1.1502E-10, 1.1243E-10, 1.1099E-10,      B26 2840
     C 1.1066E-10, 1.1216E-10, 1.1529E-10, 1.2171E-10, 1.3128E-10,      B26 2850
     C 1.4153E-10, 1.5962E-10, 1.8048E-10, 2.0936E-10, 2.3165E-10,      B26 2860
     C 2.5746E-10, 2.9600E-10, 3.3707E-10, 3.5267E-10, 3.5953E-10,      B26 2870
     C 3.6822E-10, 3.8363E-10, 3.8286E-10, 3.5883E-10, 3.6154E-10,      B26 2880
     C 3.6653E-10, 3.8507E-10, 4.0250E-10, 4.4435E-10, 4.9889E-10,      B26 2890
     C 5.6932E-10, 6.3599E-10, 7.0281E-10, 7.5777E-10, 8.1279E-10,      B26 2900
     C 8.8910E-10, 9.3400E-10, 1.0076E-09, 1.0945E-09, 1.1898E-09,      B26 2910
     C 1.3108E-09, 1.4725E-09, 1.7028E-09, 1.9619E-09, 2.3527E-09/      B26 2920
      DATA S1201/                                                       B26 2930
     C 2.6488E-09, 3.0327E-09, 3.4396E-09, 3.8797E-09, 4.4115E-09,      B26 2940
     C 4.6853E-09, 4.9553E-09, 4.9551E-09, 5.1062E-09, 5.0996E-09,      B26 2950
     C 5.1119E-09, 5.2283E-09, 5.8297E-09, 6.3439E-09, 6.2675E-09,      B26 2960
     C 6.3296E-09, 6.5173E-09, 7.1685E-09, 7.0528E-09, 6.8856E-09,      B26 2970
     C 7.3182E-09, 7.6990E-09, 8.3461E-09, 8.1946E-09, 7.7153E-09,      B26 2980
     C 7.2411E-09, 6.4511E-09, 5.7336E-09, 4.6105E-09, 3.6962E-09,      B26 2990
     C 2.9944E-09, 2.4317E-09, 1.9399E-09, 1.5331E-09, 1.2633E-09,      B26 3000
     C 1.0613E-09, 9.0136E-10, 7.9313E-10, 7.1543E-10, 6.6485E-10,      B26 3010
     C 6.4225E-10, 6.3980E-10, 6.4598E-10, 6.7428E-10, 7.0270E-10,      B26 3020
     C 7.4694E-10, 7.7946E-10, 7.9395E-10, 7.8716E-10, 7.6933E-10/      B26 3030
      DATA S1251/                                                       B26 3040
     C 7.6220E-10, 7.4825E-10, 7.4805E-10, 7.6511E-10, 7.6492E-10,      B26 3050
     C 7.4103E-10, 7.1979E-10, 7.1686E-10, 7.3403E-10, 7.1142E-10,      B26 3060
     C 7.0212E-10, 7.1548E-10, 7.5253E-10, 8.0444E-10, 8.2378E-10,      B26 3070
     C 7.8004E-10, 7.1712E-10, 6.4978E-10, 5.7573E-10, 4.8675E-10,      B26 3080
     C 3.7945E-10, 3.0118E-10, 2.4241E-10, 1.9100E-10, 1.4816E-10,      B26 3090
     C 1.1567E-10, 9.4183E-11, 7.7660E-11, 6.5270E-11, 5.6616E-11,      B26 3100
     C 4.9576E-11, 4.4137E-11, 3.9459E-11, 3.5759E-11, 3.2478E-11,      B26 3110
     C 2.9419E-11, 2.6703E-11, 2.4365E-11, 2.2412E-11, 2.0606E-11,      B26 3120
     C 1.9067E-11, 1.7800E-11, 1.6695E-11, 1.5729E-11, 1.4887E-11,      B26 3130
     C 1.4135E-11, 1.3519E-11, 1.2992E-11, 1.2563E-11, 1.2223E-11/      B26 3140
      DATA S1301/                                                       B26 3150
     C 1.1962E-11, 1.1775E-11, 1.1657E-11, 1.1605E-11, 1.1619E-11,      B26 3160
     C 1.1697E-11, 1.1839E-11, 1.2046E-11, 1.2319E-11, 1.2659E-11,      B26 3170
     C 1.3070E-11, 1.3553E-11, 1.4113E-11, 1.4754E-11, 1.5480E-11,      B26 3180
     C 1.6298E-11, 1.7214E-11, 1.8236E-11, 1.9372E-11, 2.0635E-11,      B26 3190
     C 2.2036E-11, 2.3590E-11, 2.5317E-11, 2.7242E-11, 2.9400E-11,      B26 3200
     C 3.1849E-11, 3.4654E-11, 3.7923E-11, 4.1695E-11, 4.6055E-11,      B26 3210
     C 5.0940E-11, 5.5624E-11, 6.0667E-11, 6.6261E-11, 7.2692E-11,      B26 3220
     C 7.9711E-11, 8.7976E-11, 9.6884E-11, 1.0775E-10, 1.2093E-10,      B26 3230
     C 1.3531E-10, 1.5404E-10, 1.7315E-10, 1.9862E-10, 2.3341E-10,      B26 3240
     C 2.7014E-10, 3.1716E-10, 3.6957E-10, 4.3233E-10, 5.2566E-10/      B26 3250
      DATA S1351/                                                       B26 3260
     C 6.2251E-10, 7.2149E-10, 8.3958E-10, 9.5931E-10, 1.1388E-09,      B26 3270
     C 1.2973E-09, 1.4442E-09, 1.5638E-09, 1.6974E-09, 1.8489E-09,      B26 3280
     C 1.9830E-09, 2.1720E-09, 2.3662E-09, 2.6987E-09, 3.1697E-09,      B26 3290
     C 3.6907E-09, 4.2625E-09, 4.7946E-09, 5.3848E-09, 6.0897E-09,      B26 3300
     C 6.4730E-09, 7.1483E-09, 7.7432E-09, 8.0851E-09, 8.5013E-09,      B26 3310
     C 8.5909E-09, 9.1890E-09, 9.3124E-09, 9.5936E-09, 9.8787E-09,      B26 3320
     C 9.9036E-09, 9.6712E-09, 9.2036E-09, 9.0466E-09, 8.9380E-09,      B26 3330
     C 9.1815E-09, 9.5092E-09, 1.0027E-08, 1.0876E-08, 1.1744E-08,      B26 3340
     C 1.1853E-08, 1.1296E-08, 1.0134E-08, 8.8245E-09, 7.3930E-09,      B26 3350
     C 5.7150E-09, 4.4884E-09, 3.4027E-09, 2.6054E-09, 2.0790E-09/      B26 3360
      DATA S1401/                                                       B26 3370
     C 1.7267E-09, 1.4724E-09, 1.2722E-09, 1.1234E-09, 1.0186E-09,      B26 3380
     C 9.4680E-10, 8.8854E-10, 8.5127E-10, 8.3157E-10, 8.2226E-10,      B26 3390
     C 8.3395E-10, 8.3294E-10, 8.4725E-10, 8.8814E-10, 9.3697E-10,      B26 3400
     C 1.0112E-09, 1.0412E-09, 1.0948E-09, 1.1810E-09, 1.2267E-09,      B26 3410
     C 1.3690E-09, 1.4512E-09, 1.5568E-09, 1.6552E-09, 1.7321E-09,      B26 3420
     C 1.8797E-09, 1.9210E-09, 1.9686E-09, 1.9917E-09, 1.9357E-09,      B26 3430
     C 1.8486E-09, 1.7575E-09, 1.7113E-09, 1.7163E-09, 1.7623E-09,      B26 3440
     C 1.8536E-09, 1.9765E-09, 2.1334E-09, 2.3237E-09, 2.3259E-09,      B26 3450
     C 2.1833E-09, 1.9785E-09, 1.7308E-09, 1.4596E-09, 1.1198E-09,      B26 3460
     C 8.7375E-10, 6.5381E-10, 4.8677E-10, 3.6756E-10, 2.9155E-10/      B26 3470
      DATA S1451/                                                       B26 3480
     C 2.3735E-10, 1.9590E-10, 1.6638E-10, 1.4549E-10, 1.2947E-10,      B26 3490
     C 1.1511E-10, 1.0548E-10, 9.6511E-11, 9.0469E-11, 8.5170E-11,      B26 3500
     C 7.7804E-11, 7.1971E-11, 6.6213E-11, 6.1063E-11, 5.5881E-11,      B26 3510
     C 5.0508E-11, 4.5932E-11, 4.1997E-11, 3.7672E-11, 3.3972E-11,      B26 3520
     C 3.0318E-11, 2.6769E-11, 2.3874E-11, 2.1336E-11, 1.9073E-11,      B26 3530
     C 1.7313E-11, 1.5904E-11, 1.4684E-11, 1.3698E-11, 1.2873E-11,      B26 3540
     C 1.2175E-11, 1.1542E-11, 1.1024E-11, 1.0602E-11, 1.0267E-11,      B26 3550
     C 1.0012E-11, 9.8379E-12, 9.7482E-12, 9.7564E-12, 9.8613E-12,      B26 3560
     C 1.0092E-11, 1.0418E-11, 1.0868E-11, 1.1585E-11, 1.2351E-11,      B26 3570
     C 1.3372E-11, 1.4841E-11, 1.6457E-11, 1.8681E-11, 2.0550E-11/      B26 3580
      DATA S1501/                                                       B26 3590
     C 2.2912E-11, 2.5958E-11, 2.9137E-11, 3.2368E-11, 3.4848E-11,      B26 3600
     C 3.8462E-11, 4.2190E-11, 4.5629E-11, 4.9022E-11, 5.4232E-11,      B26 3610
     C 6.1900E-11, 7.1953E-11, 8.5368E-11, 9.9699E-11, 1.1734E-10,      B26 3620
     C 1.4185E-10, 1.7017E-10, 1.9813E-10, 2.3859E-10, 2.7304E-10,      B26 3630
     C 3.0971E-10, 3.5129E-10, 3.9405E-10, 4.5194E-10, 4.8932E-10,      B26 3640
     C 5.2436E-10, 5.4098E-10, 5.5542E-10, 5.7794E-10, 5.6992E-10,      B26 3650
     C 5.8790E-10, 6.1526E-10, 6.8034E-10, 6.7956E-10, 6.6864E-10,      B26 3660
     C 6.9329E-10, 7.2971E-10, 7.6546E-10, 7.5078E-10, 7.8406E-10,      B26 3670
     C 8.3896E-10, 9.0111E-10, 9.1994E-10, 8.7189E-10, 8.1426E-10,      B26 3680
     C 7.3097E-10, 6.3357E-10, 5.1371E-10, 4.0936E-10, 3.2918E-10/      B26 3690
      DATA S1551/                                                       B26 3700
     C 2.6255E-10, 2.0724E-10, 1.6879E-10, 1.4165E-10, 1.1989E-10,      B26 3710
     C 1.0125E-10, 8.9629E-11, 7.8458E-11, 6.8826E-11, 6.0935E-11,      B26 3720
     C 5.5208E-11, 5.2262E-11, 5.0260E-11, 4.8457E-11, 4.7888E-11,      B26 3730
     C 4.8032E-11, 5.0838E-11, 5.4668E-11, 5.5790E-11, 6.0056E-11,      B26 3740
     C 6.3811E-11, 6.8848E-11, 7.4590E-11, 7.8249E-11, 8.3371E-11,      B26 3750
     C 8.3641E-11, 8.6591E-11, 8.9599E-11, 9.3487E-11, 1.0066E-10,      B26 3760
     C 1.0765E-10, 1.0851E-10, 1.0619E-10, 1.0557E-10, 1.0460E-10,      B26 3770
     C 1.0796E-10, 1.0523E-10, 1.0674E-10, 1.1261E-10, 1.1431E-10,      B26 3780
     C 1.1408E-10, 1.0901E-10, 9.9105E-11, 8.8077E-11, 6.9928E-11,      B26 3790
     C 5.4595E-11, 4.5401E-11, 3.6313E-11, 2.6986E-11, 1.9463E-11/      B26 3800
      DATA S1601/                                                       B26 3810
     C 1.4577E-11, 1.1583E-11, 9.5492E-12, 8.0770E-12, 6.9642E-12,      B26 3820
     C 6.0966E-12, 5.4046E-12, 4.8431E-12, 4.3815E-12, 3.9987E-12,      B26 3830
     C 3.6790E-12, 3.4113E-12, 3.1868E-12, 2.9992E-12, 2.8434E-12,      B26 3840
     C 2.7153E-12, 2.6120E-12, 2.5311E-12, 2.4705E-12, 2.4290E-12,      B26 3850
     C 2.4053E-12, 2.3988E-12, 2.4087E-12, 2.4349E-12, 2.4771E-12,      B26 3860
     C 2.5355E-12, 2.6103E-12, 2.7019E-12, 2.8110E-12, 2.9383E-12,      B26 3870
     C 3.0848E-12, 3.2518E-12, 3.4405E-12, 3.6527E-12, 3.8902E-12,      B26 3880
     C 4.1555E-12, 4.4510E-12, 4.7801E-12, 5.1462E-12, 5.5539E-12,      B26 3890
     C 6.0086E-12, 6.5171E-12, 7.0884E-12, 7.7357E-12, 8.4831E-12,      B26 3900
     C 9.3096E-12, 1.0282E-11, 1.1407E-11, 1.2690E-11, 1.4148E-11/      B26 3910
      DATA S1651/                                                       B26 3920
     C 1.5888E-11, 1.7992E-11, 2.0523E-11, 2.3342E-11, 2.6578E-11,      B26 3930
     C 3.0909E-11, 3.6228E-11, 4.2053E-11, 4.9059E-11, 5.9273E-11,      B26 3940
     C 7.0166E-11, 8.2298E-11, 9.7071E-11, 1.1673E-10, 1.4010E-10,      B26 3950
     C 1.6621E-10, 2.0127E-10, 2.3586E-10, 2.7050E-10, 3.0950E-10,      B26 3960
     C 3.6584E-10, 4.1278E-10, 4.6591E-10, 5.2220E-10, 5.5246E-10,      B26 3970
     C 6.1500E-10, 6.5878E-10, 7.1167E-10, 7.9372E-10, 8.6975E-10,      B26 3980
     C 9.6459E-10, 9.7368E-10, 9.8142E-10, 1.0202E-09, 1.0200E-09,      B26 3990
     C 1.0356E-09, 1.0092E-09, 1.0269E-09, 1.0366E-09, 1.0490E-09,      B26 4000
     C 1.0717E-09, 1.0792E-09, 1.1016E-09, 1.0849E-09, 1.0929E-09,      B26 4010
     C 1.0971E-09, 1.0969E-09, 1.0460E-09, 9.2026E-10, 8.1113E-10/      B26 4020
      DATA S1701/                                                       B26 4030
     C 6.8635E-10, 5.5369E-10, 4.2908E-10, 3.3384E-10, 2.6480E-10,      B26 4040
     C 2.0810E-10, 1.6915E-10, 1.4051E-10, 1.1867E-10, 1.0158E-10,      B26 4050
     C 8.8990E-11, 7.9175E-11, 7.0440E-11, 6.3453E-11, 5.7009E-11,      B26 4060
     C 5.1662E-11, 4.7219E-11, 4.3454E-11, 4.0229E-11, 3.7689E-11,      B26 4070
     C 3.6567E-11, 3.5865E-11, 3.5955E-11, 3.5928E-11, 3.6298E-11,      B26 4080
     C 3.7629E-11, 3.9300E-11, 4.1829E-11, 4.4806E-11, 5.0534E-11,      B26 4090
     C 5.6672E-11, 6.2138E-11, 6.8678E-11, 7.6111E-11, 8.4591E-11,      B26 4100
     C 9.2634E-11, 9.8085E-11, 1.0830E-10, 1.1949E-10, 1.2511E-10,      B26 4110
     C 1.3394E-10, 1.3505E-10, 1.4342E-10, 1.4874E-10, 1.4920E-10,      B26 4120
     C 1.5872E-10, 1.5972E-10, 1.5821E-10, 1.5425E-10, 1.4937E-10/      B26 4130
      DATA S1751/                                                       B26 4140
     C 1.5089E-10, 1.5521E-10, 1.6325E-10, 1.6924E-10, 1.8265E-10,      B26 4150
     C 1.9612E-10, 2.0176E-10, 1.9359E-10, 1.7085E-10, 1.5197E-10,      B26 4160
     C 1.2646E-10, 9.8552E-11, 7.4530E-11, 5.5052E-11, 4.2315E-11,      B26 4170
     C 3.2736E-11, 2.6171E-11, 2.1909E-11, 1.8286E-11, 1.5752E-11,      B26 4180
     C 1.3859E-11, 1.2288E-11, 1.1002E-11, 9.7534E-12, 8.8412E-12,      B26 4190
     C 8.0169E-12, 7.2855E-12, 6.8734E-12, 6.4121E-12, 6.1471E-12,      B26 4200
     C 5.7780E-12, 5.3478E-12, 4.9652E-12, 4.4043E-12, 3.9862E-12,      B26 4210
     C 3.4684E-12, 2.9681E-12, 2.5791E-12, 2.2339E-12, 1.9247E-12,      B26 4220
     C 1.6849E-12, 1.4863E-12, 1.3291E-12, 1.2021E-12, 1.0947E-12,      B26 4230
     C 1.0015E-12, 9.1935E-13, 8.4612E-13, 7.8036E-13, 7.2100E-13/      B26 4240
      DATA S1801/                                                       B26 4250
     C 6.6718E-13, 6.1821E-13, 5.7353E-13, 5.3269E-13, 4.9526E-13,      B26 4260
     C 4.6093E-13, 4.2937E-13, 4.0034E-13, 3.7361E-13, 3.4895E-13,      B26 4270
     C 3.2621E-13, 3.0520E-13, 2.8578E-13, 2.6782E-13, 2.5120E-13,      B26 4280
     C 2.3581E-13, 2.2154E-13, 2.0832E-13, 1.9605E-13, 1.8466E-13,      B26 4290
     C 1.7408E-13, 1.6425E-13, 1.5511E-13, 1.4661E-13, 1.3869E-13,      B26 4300
     C 1.3131E-13, 1.2444E-13, 1.1803E-13, 1.1205E-13, 1.0646E-13,      B26 4310
     C 1.0124E-13, 9.6358E-14, 9.1789E-14, 8.7509E-14, 8.3498E-14,      B26 4320
     C 7.9735E-14, 7.6202E-14, 7.2882E-14, 6.9760E-14, 6.6822E-14,      B26 4330
     C 6.4053E-14, 6.1442E-14, 5.8978E-14, 5.6650E-14, 5.4448E-14,      B26 4340
     C 5.2364E-14, 5.0389E-14, 4.8516E-14, 4.6738E-14, 4.5048E-14/      B26 4350
      DATA S1851/                                                       B26 4360
     C 4.3441E-14, 4.1911E-14, 4.0453E-14, 3.9063E-14, 3.7735E-14,      B26 4370
     C 3.6467E-14, 3.5254E-14, 3.4093E-14, 3.2980E-14, 3.1914E-14,      B26 4380
     C 3.0891E-14, 2.9909E-14, 2.8965E-14, 2.8058E-14, 2.7185E-14,      B26 4390
     C 2.6344E-14, 2.5535E-14, 2.4755E-14, 2.4002E-14, 2.3276E-14,      B26 4400
     C 2.2576E-14, 2.1899E-14, 2.1245E-14, 2.0613E-14, 2.0002E-14,      B26 4410
     C 1.9411E-14, 1.8839E-14, 1.8285E-14, 1.7749E-14, 1.7230E-14,      B26 4420
     C 1.6727E-14, 1.6240E-14, 1.5768E-14, 1.5310E-14, 1.4867E-14,      B26 4430
     C 1.4436E-14, 1.4019E-14, 1.3614E-14, 1.3221E-14, 1.2840E-14,      B26 4440
     C 1.2471E-14, 1.2112E-14, 1.1764E-14, 1.1425E-14, 1.1097E-14,      B26 4450
     C 1.0779E-14, 1.0469E-14, 1.0169E-14, 9.8775E-15, 9.5943E-15/      B26 4460
      DATA S1901/                                                       B26 4470
     C 9.3193E-15, 9.0522E-15, 8.7928E-15, 8.5409E-15, 8.2962E-15,      B26 4480
     C 8.0586E-15, 7.8278E-15, 7.6036E-15, 7.3858E-15, 7.1742E-15,      B26 4490
     C 6.9687E-15, 6.7691E-15, 6.5752E-15, 6.3868E-15, 6.2038E-15,      B26 4500
     C 6.0260E-15, 5.8533E-15, 5.6856E-15, 5.5226E-15, 5.3642E-15,      B26 4510
     C 5.2104E-15, 5.0610E-15, 4.9158E-15, 4.7748E-15, 4.6378E-15,      B26 4520
     C 4.5047E-15, 4.3753E-15, 4.2497E-15, 4.1277E-15, 4.0091E-15,      B26 4530
     C 3.8939E-15, 3.7820E-15, 3.6733E-15, 3.5677E-15, 3.4651E-15,      B26 4540
     C 3.3655E-15, 3.2686E-15, 3.1746E-15, 3.0832E-15, 2.9944E-15,      B26 4550
     C 2.9082E-15, 2.8244E-15, 2.7431E-15, 2.6640E-15, 2.5872E-15,      B26 4560
     C 2.5126E-15, 2.4401E-15, 2.3697E-15, 2.3014E-15, 2.2349E-15/      B26 4570
      DATA S1951/                                                       B26 4580
     C 2.1704E-15, 2.1077E-15, 2.0468E-15, 1.9877E-15, 1.9302E-15,      B26 4590
     C 1.8744E-15, 1.8202E-15, 1.7675E-15, 1.7164E-15, 1.6667E-15,      B26 4600
     C 1.6184E-15, 1.5716E-15, 1.5260E-15, 1.4818E-15, 1.4389E-15,      B26 4610
     C 1.3971E-15, 1.3566E-15, 1.3172E-15, 1.2790E-15, 1.2419E-15,      B26 4620
     C 1.2058E-15, 1.1708E-15, 1.1368E-15, 1.1037E-15, 1.0716E-15,      B26 4630
     C 1.0405E-15, 1.0102E-15, 9.8079E-16, 9.5224E-16, 9.2451E-16,      B26 4640
     C 8.9758E-16, 8.7142E-16, 8.4602E-16, 8.2136E-16, 7.9740E-16,      B26 4650
     C 7.7414E-16, 7.5154E-16, 7.2961E-16, 7.0830E-16, 6.8761E-16,      B26 4660
     C 6.6752E-16, 6.4801E-16, 6.2906E-16, 6.1066E-16, 5.9280E-16,      B26 4670
     C 5.7545E-16, 5.5860E-16, 5.4224E-16, 5.2636E-16, 5.1094E-16/      B26 4680
      DATA S2001/                                                       B26 4690
     C 4.9596E-16/                                                      B26 4700
C                                                                       B26 4710
      END                                                               B26 4720
      BLOCK DATA SF296                                                  SLF  100
C>    BLOCK DATA                                                        SLF  110
C               06/28/82                                                SLF  120
C               UNITS OF (CM**3/MOL) * 1.E-20                           SLF  130
      COMMON /SH2O/ V1,V2,DV,NPT,S0000(2),                              SLF  140
     1      S0001(50),S0051(50),S0101(50),S0151(50),S0201(50),S0251(50),SLF  150
     2      S0301(50),S0351(50),S0401(50),S0451(50),S0501(50),S0551(50),SLF  160
     3      S0601(50),S0651(50),S0701(50),S0751(50),S0801(50),S0851(50),SLF  170
     4      S0901(50),S0951(50),S1001(50),S1051(50),S1101(50),S1151(50),SLF  180
     5      S1201(50),S1251(50),S1301(50),S1351(50),S1401(50),S1451(50),SLF  190
     6      S1501(50),S1551(50),S1601(50),S1651(50),S1701(50),S1751(50),SLF  200
     7      S1801(50),S1851(50),S1901(50),S1951(50),S2001(1)            SLF  210
C                                                                       SLF  220
C                                                                       SLF  230
       DATA V1,V2,DV,NPT /                                              SLF  240
     1      -20.0,     20000.0,       10.0,  2003/                      SLF  250
C                                                                       SLF  260
C                                                                       SLF  270
      DATA S0000/ 1.1109E-01 ,1.0573E-01/                               SLF  280
      DATA S0001/                                                       SLF  290
     C 1.0162E-01, 1.0573E-01, 1.1109E-01, 1.2574E-01, 1.3499E-01,      SLF  300
     C 1.4327E-01, 1.5065E-01, 1.5164E-01, 1.5022E-01, 1.3677E-01,      SLF  310
     C 1.3115E-01, 1.2253E-01, 1.1271E-01, 1.0070E-01, 8.7495E-02,      SLF  320
     C 8.0118E-02, 6.9940E-02, 6.2034E-02, 5.6051E-02, 4.7663E-02,      SLF  330
     C 4.2450E-02, 3.6690E-02, 3.3441E-02, 3.0711E-02, 2.5205E-02,      SLF  340
     C 2.2113E-02, 1.8880E-02, 1.6653E-02, 1.4626E-02, 1.2065E-02,      SLF  350
     C 1.0709E-02, 9.1783E-03, 7.7274E-03, 6.7302E-03, 5.6164E-03,      SLF  360
     C 4.9089E-03, 4.1497E-03, 3.5823E-03, 3.1124E-03, 2.6414E-03,      SLF  370
     C 2.3167E-03, 2.0156E-03, 1.7829E-03, 1.5666E-03, 1.3928E-03,      SLF  380
     C 1.2338E-03, 1.0932E-03, 9.7939E-04, 8.8241E-04, 7.9173E-04/      SLF  390
      DATA S0051/                                                       SLF  400
     C 7.1296E-04, 6.4179E-04, 5.8031E-04, 5.2647E-04, 4.7762E-04,      SLF  410
     C 4.3349E-04, 3.9355E-04, 3.5887E-04, 3.2723E-04, 2.9919E-04,      SLF  420
     C 2.7363E-04, 2.5013E-04, 2.2876E-04, 2.0924E-04, 1.9193E-04,      SLF  430
     C 1.7618E-04, 1.6188E-04, 1.4891E-04, 1.3717E-04, 1.2647E-04,      SLF  440
     C 1.1671E-04, 1.0786E-04, 9.9785E-05, 9.2350E-05, 8.5539E-05,      SLF  450
     C 7.9377E-05, 7.3781E-05, 6.8677E-05, 6.3993E-05, 5.9705E-05,      SLF  460
     C 5.5788E-05, 5.2196E-05, 4.8899E-05, 4.5865E-05, 4.3079E-05,      SLF  470
     C 4.0526E-05, 3.8182E-05, 3.6025E-05, 3.4038E-05, 3.2203E-05,      SLF  480
     C 3.0511E-05, 2.8949E-05, 2.7505E-05, 2.6170E-05, 2.4933E-05,      SLF  490
     C 2.3786E-05, 2.2722E-05, 2.1736E-05, 2.0819E-05, 1.9968E-05/      SLF  500
      DATA S0101/                                                       SLF  510
     C 1.9178E-05, 1.8442E-05, 1.7760E-05, 1.7127E-05, 1.6541E-05,      SLF  520
     C 1.5997E-05, 1.5495E-05, 1.5034E-05, 1.4614E-05, 1.4230E-05,      SLF  530
     C 1.3883E-05, 1.3578E-05, 1.3304E-05, 1.3069E-05, 1.2876E-05,      SLF  540
     C 1.2732E-05, 1.2626E-05, 1.2556E-05, 1.2544E-05, 1.2604E-05,      SLF  550
     C 1.2719E-05, 1.2883E-05, 1.3164E-05, 1.3581E-05, 1.4187E-05,      SLF  560
     C 1.4866E-05, 1.5669E-05, 1.6717E-05, 1.8148E-05, 2.0268E-05,      SLF  570
     C 2.2456E-05, 2.5582E-05, 2.9183E-05, 3.3612E-05, 3.9996E-05,      SLF  580
     C 4.6829E-05, 5.5055E-05, 6.5897E-05, 7.5360E-05, 8.7213E-05,      SLF  590
     C 1.0046E-04, 1.1496E-04, 1.2943E-04, 1.5049E-04, 1.6973E-04,      SLF  600
     C 1.8711E-04, 2.0286E-04, 2.2823E-04, 2.6780E-04, 2.8766E-04/      SLF  610
      DATA S0151/                                                       SLF  620
     C 3.1164E-04, 3.3640E-04, 3.6884E-04, 3.9159E-04, 3.8712E-04,      SLF  630
     C 3.7433E-04, 3.4503E-04, 3.1003E-04, 2.8027E-04, 2.5253E-04,      SLF  640
     C 2.3408E-04, 2.2836E-04, 2.4442E-04, 2.7521E-04, 2.9048E-04,      SLF  650
     C 3.0489E-04, 3.2646E-04, 3.3880E-04, 3.3492E-04, 3.0987E-04,      SLF  660
     C 2.9482E-04, 2.8711E-04, 2.6068E-04, 2.2683E-04, 1.9996E-04,      SLF  670
     C 1.7788E-04, 1.6101E-04, 1.3911E-04, 1.2013E-04, 1.0544E-04,      SLF  680
     C 9.4224E-05, 8.1256E-05, 7.3667E-05, 6.2233E-05, 5.5906E-05,      SLF  690
     C 5.1619E-05, 4.5140E-05, 4.0273E-05, 3.3268E-05, 3.0258E-05,      SLF  700
     C 2.6440E-05, 2.3103E-05, 2.0749E-05, 1.8258E-05, 1.6459E-05,      SLF  710
     C 1.4097E-05, 1.2052E-05, 1.0759E-05, 9.1400E-06, 8.1432E-06/      SLF  720
      DATA S0201/                                                       SLF  730
     C 7.1460E-06, 6.4006E-06, 5.6995E-06, 4.9372E-06, 4.4455E-06,      SLF  740
     C 3.9033E-06, 3.4740E-06, 3.1269E-06, 2.8059E-06, 2.5558E-06,      SLF  750
     C 2.2919E-06, 2.0846E-06, 1.8983E-06, 1.7329E-06, 1.5929E-06,      SLF  760
     C 1.4631E-06, 1.3513E-06, 1.2461E-06, 1.1519E-06, 1.0682E-06,      SLF  770
     C 9.9256E-07, 9.2505E-07, 8.6367E-07, 8.0857E-07, 7.5674E-07,      SLF  780
     C 7.0934E-07, 6.6580E-07, 6.2580E-07, 5.8853E-07, 5.5333E-07,      SLF  790
     C 5.2143E-07, 4.9169E-07, 4.6431E-07, 4.3898E-07, 4.1564E-07,      SLF  800
     C 3.9405E-07, 3.7403E-07, 3.5544E-07, 3.3819E-07, 3.2212E-07,      SLF  810
     C 3.0714E-07, 2.9313E-07, 2.8003E-07, 2.6777E-07, 2.5628E-07,      SLF  820
     C 2.4551E-07, 2.3540E-07, 2.2591E-07, 2.1701E-07, 2.0866E-07/      SLF  830
      DATA S0251/                                                       SLF  840
     C 2.0082E-07, 1.9349E-07, 1.8665E-07, 1.8027E-07, 1.7439E-07,      SLF  850
     C 1.6894E-07, 1.6400E-07, 1.5953E-07, 1.5557E-07, 1.5195E-07,      SLF  860
     C 1.4888E-07, 1.4603E-07, 1.4337E-07, 1.4093E-07, 1.3828E-07,      SLF  870
     C 1.3569E-07, 1.3270E-07, 1.2984E-07, 1.2714E-07, 1.2541E-07,      SLF  880
     C 1.2399E-07, 1.2102E-07, 1.1878E-07, 1.1728E-07, 1.1644E-07,      SLF  890
     C 1.1491E-07, 1.1305E-07, 1.1235E-07, 1.1228E-07, 1.1224E-07,      SLF  900
     C 1.1191E-07, 1.1151E-07, 1.1098E-07, 1.1068E-07, 1.1109E-07,      SLF  910
     C 1.1213E-07, 1.1431E-07, 1.1826E-07, 1.2322E-07, 1.3025E-07,      SLF  920
     C 1.4066E-07, 1.5657E-07, 1.7214E-07, 1.9449E-07, 2.2662E-07,      SLF  930
     C 2.6953E-07, 3.1723E-07, 3.7028E-07, 4.4482E-07, 5.3852E-07/      SLF  940
      DATA S0301/                                                       SLF  950
     C 6.2639E-07, 7.2175E-07, 7.7626E-07, 8.7248E-07, 9.6759E-07,      SLF  960
     C 1.0102E-06, 1.0620E-06, 1.1201E-06, 1.2107E-06, 1.2998E-06,      SLF  970
     C 1.3130E-06, 1.2856E-06, 1.2350E-06, 1.1489E-06, 1.0819E-06,      SLF  980
     C 1.0120E-06, 9.4795E-07, 9.2858E-07, 9.8060E-07, 1.0999E-06,      SLF  990
     C 1.1967E-06, 1.2672E-06, 1.3418E-06, 1.3864E-06, 1.4330E-06,      SLF 1000
     C 1.4592E-06, 1.4598E-06, 1.4774E-06, 1.4726E-06, 1.4820E-06,      SLF 1010
     C 1.5050E-06, 1.4984E-06, 1.5181E-06, 1.5888E-06, 1.6850E-06,      SLF 1020
     C 1.7690E-06, 1.9277E-06, 2.1107E-06, 2.3068E-06, 2.5347E-06,      SLF 1030
     C 2.8069E-06, 3.1345E-06, 3.5822E-06, 3.9051E-06, 4.3422E-06,      SLF 1040
     C 4.8704E-06, 5.5351E-06, 6.3454E-06, 7.2690E-06, 8.2974E-06/      SLF 1050
      DATA S0351/                                                       SLF 1060
     C 9.7609E-06, 1.1237E-05, 1.3187E-05, 1.5548E-05, 1.8784E-05,      SLF 1070
     C 2.1694E-05, 2.5487E-05, 3.0092E-05, 3.5385E-05, 4.2764E-05,      SLF 1080
     C 4.9313E-05, 5.5800E-05, 6.2968E-05, 7.1060E-05, 7.7699E-05,      SLF 1090
     C 8.7216E-05, 8.9335E-05, 9.2151E-05, 9.2779E-05, 9.4643E-05,      SLF 1100
     C 9.7978E-05, 1.0008E-04, 1.0702E-04, 1.1026E-04, 1.0828E-04,      SLF 1110
     C 1.0550E-04, 1.0432E-04, 1.0428E-04, 9.8980E-05, 9.4992E-05,      SLF 1120
     C 9.5159E-05, 1.0058E-04, 1.0738E-04, 1.1550E-04, 1.1229E-04,      SLF 1130
     C 1.0596E-04, 1.0062E-04, 9.1742E-05, 8.4492E-05, 6.8099E-05,      SLF 1140
     C 5.6295E-05, 4.6502E-05, 3.8071E-05, 3.0721E-05, 2.3297E-05,      SLF 1150
     C 1.8688E-05, 1.4830E-05, 1.2049E-05, 9.6754E-06, 7.9192E-06/      SLF 1160
      DATA S0401/                                                       SLF 1170
     C 6.6673E-06, 5.6468E-06, 4.8904E-06, 4.2289E-06, 3.6880E-06,      SLF 1180
     C 3.2396E-06, 2.8525E-06, 2.5363E-06, 2.2431E-06, 1.9949E-06,      SLF 1190
     C 1.7931E-06, 1.6164E-06, 1.4431E-06, 1.2997E-06, 1.1559E-06,      SLF 1200
     C 1.0404E-06, 9.4300E-07, 8.4597E-07, 7.6133E-07, 6.8623E-07,      SLF 1210
     C 6.2137E-07, 5.6345E-07, 5.1076E-07, 4.6246E-07, 4.1906E-07,      SLF 1220
     C 3.8063E-07, 3.4610E-07, 3.1554E-07, 2.8795E-07, 2.6252E-07,      SLF 1230
     C 2.3967E-07, 2.1901E-07, 2.0052E-07, 1.8384E-07, 1.6847E-07,      SLF 1240
     C 1.5459E-07, 1.4204E-07, 1.3068E-07, 1.2036E-07, 1.1095E-07,      SLF 1250
     C 1.0237E-07, 9.4592E-08, 8.7530E-08, 8.1121E-08, 7.5282E-08,      SLF 1260
     C 6.9985E-08, 6.5189E-08, 6.0874E-08, 5.6989E-08, 5.3530E-08/      SLF 1270
      DATA S0451/                                                       SLF 1280
     C 5.0418E-08, 4.7745E-08, 4.5367E-08, 4.3253E-08, 4.1309E-08,      SLF 1290
     C 3.9695E-08, 3.8094E-08, 3.6482E-08, 3.4897E-08, 3.3500E-08,      SLF 1300
     C 3.2302E-08, 3.0854E-08, 2.9698E-08, 2.8567E-08, 2.7600E-08,      SLF 1310
     C 2.6746E-08, 2.5982E-08, 2.5510E-08, 2.5121E-08, 2.4922E-08,      SLF 1320
     C 2.4909E-08, 2.5013E-08, 2.5216E-08, 2.5589E-08, 2.6049E-08,      SLF 1330
     C 2.6451E-08, 2.6978E-08, 2.7687E-08, 2.8600E-08, 2.9643E-08,      SLF 1340
     C 3.0701E-08, 3.2058E-08, 3.3695E-08, 3.5558E-08, 3.7634E-08,      SLF 1350
     C 3.9875E-08, 4.2458E-08, 4.5480E-08, 4.8858E-08, 5.2599E-08,      SLF 1360
     C 5.7030E-08, 6.2067E-08, 6.7911E-08, 7.4579E-08, 8.1902E-08,      SLF 1370
     C 8.9978E-08, 9.9870E-08, 1.1102E-07, 1.2343E-07, 1.3732E-07/      SLF 1380
      DATA S0501/                                                       SLF 1390
     C 1.5394E-07, 1.7318E-07, 1.9383E-07, 2.1819E-07, 2.4666E-07,      SLF 1400
     C 2.8109E-07, 3.2236E-07, 3.7760E-07, 4.4417E-07, 5.2422E-07,      SLF 1410
     C 6.1941E-07, 7.4897E-07, 9.2041E-07, 1.1574E-06, 1.4126E-06,      SLF 1420
     C 1.7197E-06, 2.1399E-06, 2.6266E-06, 3.3424E-06, 3.8418E-06,      SLF 1430
     C 4.5140E-06, 5.0653E-06, 5.8485E-06, 6.5856E-06, 6.8937E-06,      SLF 1440
     C 6.9121E-06, 6.9005E-06, 6.9861E-06, 6.8200E-06, 6.6089E-06,      SLF 1450
     C 6.5809E-06, 7.3496E-06, 8.0311E-06, 8.3186E-06, 8.4260E-06,      SLF 1460
     C 9.0644E-06, 9.4965E-06, 9.4909E-06, 9.0160E-06, 9.1494E-06,      SLF 1470
     C 9.3629E-06, 9.5944E-06, 9.5459E-06, 8.9919E-06, 8.6040E-06,      SLF 1480
     C 7.8613E-06, 7.1567E-06, 6.2677E-06, 5.1899E-06, 4.4188E-06/      SLF 1490
      DATA S0551/                                                       SLF 1500
     C 3.7167E-06, 3.0636E-06, 2.5573E-06, 2.0317E-06, 1.6371E-06,      SLF 1510
     C 1.3257E-06, 1.0928E-06, 8.9986E-07, 7.4653E-07, 6.1111E-07,      SLF 1520
     C 5.1395E-07, 4.3500E-07, 3.7584E-07, 3.2633E-07, 2.8413E-07,      SLF 1530
     C 2.4723E-07, 2.1709E-07, 1.9294E-07, 1.7258E-07, 1.5492E-07,      SLF 1540
     C 1.3820E-07, 1.2389E-07, 1.1189E-07, 1.0046E-07, 9.0832E-08,      SLF 1550
     C 8.2764E-08, 7.4191E-08, 6.7085E-08, 6.0708E-08, 5.4963E-08,      SLF 1560
     C 4.9851E-08, 4.5044E-08, 4.0916E-08, 3.7220E-08, 3.3678E-08,      SLF 1570
     C 3.0663E-08, 2.7979E-08, 2.5495E-08, 2.3286E-08, 2.1233E-08,      SLF 1580
     C 1.9409E-08, 1.7770E-08, 1.6260E-08, 1.4885E-08, 1.3674E-08,      SLF 1590
     C 1.2543E-08, 1.1551E-08, 1.0655E-08, 9.8585E-09, 9.1398E-09/      SLF 1600
      DATA S0601/                                                       SLF 1610
     C 8.4806E-09, 7.8899E-09, 7.3547E-09, 6.8670E-09, 6.4131E-09,      SLF 1620
     C 5.9930E-09, 5.6096E-09, 5.2592E-09, 4.9352E-09, 4.6354E-09,      SLF 1630
     C 4.3722E-09, 4.1250E-09, 3.9081E-09, 3.7118E-09, 3.5372E-09,      SLF 1640
     C 3.3862E-09, 3.2499E-09, 3.1324E-09, 3.0313E-09, 2.9438E-09,      SLF 1650
     C 2.8686E-09, 2.8050E-09, 2.7545E-09, 2.7149E-09, 2.6907E-09,      SLF 1660
     C 2.6724E-09, 2.6649E-09, 2.6642E-09, 2.6725E-09, 2.6871E-09,      SLF 1670
     C 2.7056E-09, 2.7357E-09, 2.7781E-09, 2.8358E-09, 2.9067E-09,      SLF 1680
     C 2.9952E-09, 3.1020E-09, 3.2253E-09, 3.3647E-09, 3.5232E-09,      SLF 1690
     C 3.7037E-09, 3.9076E-09, 4.1385E-09, 4.3927E-09, 4.6861E-09,      SLF 1700
     C 5.0238E-09, 5.4027E-09, 5.8303E-09, 6.3208E-09, 6.8878E-09/      SLF 1710
      DATA S0651/                                                       SLF 1720
     C 7.5419E-09, 8.3130E-09, 9.1952E-09, 1.0228E-08, 1.1386E-08,      SLF 1730
     C 1.2792E-08, 1.4521E-08, 1.6437E-08, 1.8674E-08, 2.1160E-08,      SLF 1740
     C 2.4506E-08, 2.8113E-08, 3.2636E-08, 3.7355E-08, 4.2234E-08,      SLF 1750
     C 4.9282E-08, 5.7358E-08, 6.6743E-08, 7.8821E-08, 9.4264E-08,      SLF 1760
     C 1.1542E-07, 1.3684E-07, 1.6337E-07, 2.0056E-07, 2.3252E-07,      SLF 1770
     C 2.6127E-07, 2.9211E-07, 3.3804E-07, 3.7397E-07, 3.8205E-07,      SLF 1780
     C 3.8810E-07, 3.9499E-07, 3.9508E-07, 3.7652E-07, 3.5859E-07,      SLF 1790
     C 3.6198E-07, 3.7871E-07, 4.0925E-07, 4.2717E-07, 4.8241E-07,      SLF 1800
     C 5.2008E-07, 5.6530E-07, 5.9531E-07, 6.1994E-07, 6.5080E-07,      SLF 1810
     C 6.6355E-07, 6.9193E-07, 6.9930E-07, 7.3058E-07, 7.4678E-07/      SLF 1820
      DATA S0701/                                                       SLF 1830
     C 7.9193E-07, 8.3627E-07, 9.1267E-07, 1.0021E-06, 1.1218E-06,      SLF 1840
     C 1.2899E-06, 1.4447E-06, 1.7268E-06, 2.0025E-06, 2.3139E-06,      SLF 1850
     C 2.5599E-06, 2.8920E-06, 3.3059E-06, 3.5425E-06, 3.9522E-06,      SLF 1860
     C 4.0551E-06, 4.2818E-06, 4.2892E-06, 4.4210E-06, 4.5614E-06,      SLF 1870
     C 4.6739E-06, 4.9482E-06, 5.1118E-06, 5.0986E-06, 4.9417E-06,      SLF 1880
     C 4.9022E-06, 4.8449E-06, 4.8694E-06, 4.8111E-06, 4.9378E-06,      SLF 1890
     C 5.3231E-06, 5.7362E-06, 6.2350E-06, 6.0951E-06, 5.7281E-06,      SLF 1900
     C 5.4585E-06, 4.9032E-06, 4.3009E-06, 3.4776E-06, 2.8108E-06,      SLF 1910
     C 2.2993E-06, 1.7999E-06, 1.3870E-06, 1.0750E-06, 8.5191E-07,      SLF 1920
     C 6.7951E-07, 5.5336E-07, 4.6439E-07, 4.0243E-07, 3.5368E-07/      SLF 1930
      DATA S0751/                                                       SLF 1940
     C 3.1427E-07, 2.7775E-07, 2.4486E-07, 2.1788E-07, 1.9249E-07,      SLF 1950
     C 1.7162E-07, 1.5115E-07, 1.3478E-07, 1.2236E-07, 1.1139E-07,      SLF 1960
     C 1.0092E-07, 9.0795E-08, 8.2214E-08, 7.4691E-08, 6.7486E-08,      SLF 1970
     C 6.0414E-08, 5.4584E-08, 4.8754E-08, 4.3501E-08, 3.8767E-08,      SLF 1980
     C 3.4363E-08, 3.0703E-08, 2.7562E-08, 2.4831E-08, 2.2241E-08,      SLF 1990
     C 1.9939E-08, 1.8049E-08, 1.6368E-08, 1.4863E-08, 1.3460E-08,      SLF 2000
     C 1.2212E-08, 1.1155E-08, 1.0185E-08, 9.3417E-09, 8.5671E-09,      SLF 2010
     C 7.8292E-09, 7.1749E-09, 6.5856E-09, 6.0588E-09, 5.5835E-09,      SLF 2020
     C 5.1350E-09, 4.7395E-09, 4.3771E-09, 4.0476E-09, 3.7560E-09,      SLF 2030
     C 3.4861E-09, 3.2427E-09, 3.0240E-09, 2.8278E-09, 2.6531E-09/      SLF 2040
      DATA S0801/                                                       SLF 2050
     C 2.4937E-09, 2.3511E-09, 2.2245E-09, 2.1133E-09, 2.0159E-09,      SLF 2060
     C 1.9330E-09, 1.8669E-09, 1.8152E-09, 1.7852E-09, 1.7752E-09,      SLF 2070
     C 1.7823E-09, 1.8194E-09, 1.8866E-09, 1.9759E-09, 2.0736E-09,      SLF 2080
     C 2.2083E-09, 2.3587E-09, 2.4984E-09, 2.6333E-09, 2.8160E-09,      SLF 2090
     C 3.0759E-09, 3.3720E-09, 3.6457E-09, 4.0668E-09, 4.4541E-09,      SLF 2100
     C 4.7976E-09, 5.0908E-09, 5.4811E-09, 6.1394E-09, 6.3669E-09,      SLF 2110
     C 6.5714E-09, 6.8384E-09, 7.1918E-09, 7.3741E-09, 7.2079E-09,      SLF 2120
     C 7.2172E-09, 7.2572E-09, 7.3912E-09, 7.6188E-09, 8.3291E-09,      SLF 2130
     C 8.7885E-09, 9.2412E-09, 1.0021E-08, 1.0752E-08, 1.1546E-08,      SLF 2140
     C 1.1607E-08, 1.1949E-08, 1.2346E-08, 1.2516E-08, 1.2826E-08/      SLF 2150
      DATA S0851/                                                       SLF 2160
     C 1.3053E-08, 1.3556E-08, 1.4221E-08, 1.5201E-08, 1.6661E-08,      SLF 2170
     C 1.8385E-08, 2.0585E-08, 2.3674E-08, 2.7928E-08, 3.3901E-08,      SLF 2180
     C 4.1017E-08, 4.9595E-08, 6.0432E-08, 7.6304E-08, 9.0764E-08,      SLF 2190
     C 1.0798E-07, 1.2442E-07, 1.4404E-07, 1.6331E-07, 1.8339E-07,      SLF 2200
     C 2.0445E-07, 2.2288E-07, 2.3083E-07, 2.3196E-07, 2.3919E-07,      SLF 2210
     C 2.3339E-07, 2.3502E-07, 2.3444E-07, 2.6395E-07, 2.9928E-07,      SLF 2220
     C 3.0025E-07, 3.0496E-07, 3.1777E-07, 3.4198E-07, 3.4739E-07,      SLF 2230
     C 3.2696E-07, 3.4100E-07, 3.5405E-07, 3.7774E-07, 3.8285E-07,      SLF 2240
     C 3.6797E-07, 3.5800E-07, 3.2283E-07, 2.9361E-07, 2.4881E-07,      SLF 2250
     C 2.0599E-07, 1.7121E-07, 1.3641E-07, 1.1111E-07, 8.9413E-08/      SLF 2260
      DATA S0901/                                                       SLF 2270
     C 7.3455E-08, 6.2078E-08, 5.2538E-08, 4.5325E-08, 3.9005E-08,      SLF 2280
     C 3.4772E-08, 3.1203E-08, 2.8132E-08, 2.5250E-08, 2.2371E-08,      SLF 2290
     C 2.0131E-08, 1.7992E-08, 1.6076E-08, 1.4222E-08, 1.2490E-08,      SLF 2300
     C 1.1401E-08, 1.0249E-08, 9.2279E-09, 8.5654E-09, 7.6227E-09,      SLF 2310
     C 6.9648E-09, 6.2466E-09, 5.7252E-09, 5.3800E-09, 4.6960E-09,      SLF 2320
     C 4.2194E-09, 3.7746E-09, 3.3813E-09, 3.0656E-09, 2.6885E-09,      SLF 2330
     C 2.4311E-09, 2.1572E-09, 1.8892E-09, 1.7038E-09, 1.4914E-09,      SLF 2340
     C 1.3277E-09, 1.1694E-09, 1.0391E-09, 9.2779E-10, 8.3123E-10,      SLF 2350
     C 7.4968E-10, 6.8385E-10, 6.2915E-10, 5.7784E-10, 5.2838E-10,      SLF 2360
     C 4.8382E-10, 4.4543E-10, 4.1155E-10, 3.7158E-10, 3.3731E-10/      SLF 2370
      DATA S0951/                                                       SLF 2380
     C 3.0969E-10, 2.8535E-10, 2.6416E-10, 2.4583E-10, 2.2878E-10,      SLF 2390
     C 2.1379E-10, 2.0073E-10, 1.8907E-10, 1.7866E-10, 1.6936E-10,      SLF 2400
     C 1.6119E-10, 1.5424E-10, 1.4847E-10, 1.4401E-10, 1.4068E-10,      SLF 2410
     C 1.3937E-10, 1.3943E-10, 1.4281E-10, 1.4766E-10, 1.5701E-10,      SLF 2420
     C 1.7079E-10, 1.8691E-10, 2.0081E-10, 2.1740E-10, 2.4847E-10,      SLF 2430
     C 2.6463E-10, 2.7087E-10, 2.7313E-10, 2.8352E-10, 2.9511E-10,      SLF 2440
     C 2.8058E-10, 2.7227E-10, 2.7356E-10, 2.8012E-10, 2.8034E-10,      SLF 2450
     C 2.9031E-10, 3.1030E-10, 3.3745E-10, 3.8152E-10, 4.0622E-10,      SLF 2460
     C 4.2673E-10, 4.3879E-10, 4.5488E-10, 4.7179E-10, 4.6140E-10,      SLF 2470
     C 4.6339E-10, 4.6716E-10, 4.7024E-10, 4.7931E-10, 4.8503E-10/      SLF 2480
      DATA S1001/                                                       SLF 2490
     C 4.9589E-10, 4.9499E-10, 5.0363E-10, 5.3184E-10, 5.6451E-10,      SLF 2500
     C 6.0932E-10, 6.6469E-10, 7.4076E-10, 8.3605E-10, 9.4898E-10,      SLF 2510
     C 1.0935E-09, 1.2593E-09, 1.4913E-09, 1.8099E-09, 2.1842E-09,      SLF 2520
     C 2.7284E-09, 3.2159E-09, 3.7426E-09, 4.5226E-09, 5.3512E-09,      SLF 2530
     C 6.1787E-09, 6.8237E-09, 7.9421E-09, 9.0002E-09, 9.6841E-09,      SLF 2540
     C 9.9558E-09, 1.0232E-08, 1.0591E-08, 1.0657E-08, 1.0441E-08,      SLF 2550
     C 1.0719E-08, 1.1526E-08, 1.2962E-08, 1.4336E-08, 1.6150E-08,      SLF 2560
     C 1.8417E-08, 2.0725E-08, 2.3426E-08, 2.5619E-08, 2.7828E-08,      SLF 2570
     C 3.0563E-08, 3.3438E-08, 3.6317E-08, 4.0400E-08, 4.4556E-08,      SLF 2580
     C 5.0397E-08, 5.3315E-08, 5.9185E-08, 6.5311E-08, 6.9188E-08/      SLF 2590
      DATA S1051/                                                       SLF 2600
     C 7.7728E-08, 7.9789E-08, 8.6598E-08, 8.7768E-08, 9.1773E-08,      SLF 2610
     C 9.7533E-08, 1.0007E-07, 1.0650E-07, 1.0992E-07, 1.0864E-07,      SLF 2620
     C 1.0494E-07, 1.0303E-07, 1.0031E-07, 1.0436E-07, 1.0537E-07,      SLF 2630
     C 1.1184E-07, 1.2364E-07, 1.3651E-07, 1.4881E-07, 1.4723E-07,      SLF 2640
     C 1.4118E-07, 1.3371E-07, 1.1902E-07, 1.0007E-07, 7.9628E-08,      SLF 2650
     C 6.4362E-08, 5.0243E-08, 3.8133E-08, 2.9400E-08, 2.3443E-08,      SLF 2660
     C 1.9319E-08, 1.6196E-08, 1.4221E-08, 1.2817E-08, 1.1863E-08,      SLF 2670
     C 1.1383E-08, 1.1221E-08, 1.1574E-08, 1.1661E-08, 1.2157E-08,      SLF 2680
     C 1.2883E-08, 1.3295E-08, 1.4243E-08, 1.4240E-08, 1.4614E-08,      SLF 2690
     C 1.4529E-08, 1.4685E-08, 1.4974E-08, 1.4790E-08, 1.4890E-08/      SLF 2700
      DATA S1101/                                                       SLF 2710
     C 1.4704E-08, 1.4142E-08, 1.3374E-08, 1.2746E-08, 1.2172E-08,      SLF 2720
     C 1.2336E-08, 1.2546E-08, 1.3065E-08, 1.4090E-08, 1.5215E-08,      SLF 2730
     C 1.6540E-08, 1.6144E-08, 1.5282E-08, 1.4358E-08, 1.2849E-08,      SLF 2740
     C 1.0998E-08, 8.6956E-09, 7.0881E-09, 5.5767E-09, 4.2792E-09,      SLF 2750
     C 3.2233E-09, 2.5020E-09, 1.9985E-09, 1.5834E-09, 1.3015E-09,      SLF 2760
     C 1.0948E-09, 9.4141E-10, 8.1465E-10, 7.1517E-10, 6.2906E-10,      SLF 2770
     C 5.5756E-10, 4.9805E-10, 4.3961E-10, 3.9181E-10, 3.5227E-10,      SLF 2780
     C 3.1670E-10, 2.8667E-10, 2.5745E-10, 2.3212E-10, 2.0948E-10,      SLF 2790
     C 1.8970E-10, 1.7239E-10, 1.5659E-10, 1.4301E-10, 1.3104E-10,      SLF 2800
     C 1.2031E-10, 1.1095E-10, 1.0262E-10, 9.5130E-11, 8.8595E-11/      SLF 2810
      DATA S1151/                                                       SLF 2820
     C 8.2842E-11, 7.7727E-11, 7.3199E-11, 6.9286E-11, 6.5994E-11,      SLF 2830
     C 6.3316E-11, 6.1244E-11, 5.9669E-11, 5.8843E-11, 5.8832E-11,      SLF 2840
     C 5.9547E-11, 6.1635E-11, 6.4926E-11, 7.0745E-11, 7.8802E-11,      SLF 2850
     C 8.6724E-11, 1.0052E-10, 1.1575E-10, 1.3626E-10, 1.5126E-10,      SLF 2860
     C 1.6751E-10, 1.9239E-10, 2.1748E-10, 2.2654E-10, 2.2902E-10,      SLF 2870
     C 2.3240E-10, 2.4081E-10, 2.3930E-10, 2.2378E-10, 2.2476E-10,      SLF 2880
     C 2.2791E-10, 2.4047E-10, 2.5305E-10, 2.8073E-10, 3.1741E-10,      SLF 2890
     C 3.6592E-10, 4.1495E-10, 4.6565E-10, 5.0990E-10, 5.5607E-10,      SLF 2900
     C 6.1928E-10, 6.6779E-10, 7.3350E-10, 8.1434E-10, 8.9635E-10,      SLF 2910
     C 9.9678E-10, 1.1256E-09, 1.2999E-09, 1.4888E-09, 1.7642E-09/      SLF 2920
      DATA S1201/                                                       SLF 2930
     C 1.9606E-09, 2.2066E-09, 2.4601E-09, 2.7218E-09, 3.0375E-09,      SLF 2940
     C 3.1591E-09, 3.2852E-09, 3.2464E-09, 3.3046E-09, 3.2710E-09,      SLF 2950
     C 3.2601E-09, 3.3398E-09, 3.7446E-09, 4.0795E-09, 4.0284E-09,      SLF 2960
     C 4.0584E-09, 4.1677E-09, 4.5358E-09, 4.4097E-09, 4.2744E-09,      SLF 2970
     C 4.5449E-09, 4.8147E-09, 5.2656E-09, 5.2476E-09, 5.0275E-09,      SLF 2980
     C 4.7968E-09, 4.3654E-09, 3.9530E-09, 3.2447E-09, 2.6489E-09,      SLF 2990
     C 2.1795E-09, 1.7880E-09, 1.4309E-09, 1.1256E-09, 9.1903E-10,      SLF 3000
     C 7.6533E-10, 6.3989E-10, 5.5496E-10, 4.9581E-10, 4.5722E-10,      SLF 3010
     C 4.3898E-10, 4.3505E-10, 4.3671E-10, 4.5329E-10, 4.6827E-10,      SLF 3020
     C 4.9394E-10, 5.1122E-10, 5.1649E-10, 5.0965E-10, 4.9551E-10/      SLF 3030
      DATA S1251/                                                       SLF 3040
     C 4.8928E-10, 4.7947E-10, 4.7989E-10, 4.9071E-10, 4.8867E-10,      SLF 3050
     C 4.7260E-10, 4.5756E-10, 4.5400E-10, 4.5993E-10, 4.4042E-10,      SLF 3060
     C 4.3309E-10, 4.4182E-10, 4.6735E-10, 5.0378E-10, 5.2204E-10,      SLF 3070
     C 5.0166E-10, 4.6799E-10, 4.3119E-10, 3.8803E-10, 3.3291E-10,      SLF 3080
     C 2.6289E-10, 2.1029E-10, 1.7011E-10, 1.3345E-10, 1.0224E-10,      SLF 3090
     C 7.8207E-11, 6.2451E-11, 5.0481E-11, 4.1507E-11, 3.5419E-11,      SLF 3100
     C 3.0582E-11, 2.6900E-11, 2.3778E-11, 2.1343E-11, 1.9182E-11,      SLF 3110
     C 1.7162E-11, 1.5391E-11, 1.3877E-11, 1.2619E-11, 1.1450E-11,      SLF 3120
     C 1.0461E-11, 9.6578E-12, 8.9579E-12, 8.3463E-12, 7.8127E-12,      SLF 3130
     C 7.3322E-12, 6.9414E-12, 6.6037E-12, 6.3285E-12, 6.1095E-12/      SLF 3140
      DATA S1301/                                                       SLF 3150
     C 5.9387E-12, 5.8118E-12, 5.7260E-12, 5.6794E-12, 5.6711E-12,      SLF 3160
     C 5.7003E-12, 5.7670E-12, 5.8717E-12, 6.0151E-12, 6.1984E-12,      SLF 3170
     C 6.4232E-12, 6.6918E-12, 7.0065E-12, 7.3705E-12, 7.7873E-12,      SLF 3180
     C 8.2612E-12, 8.7972E-12, 9.4009E-12, 1.0079E-11, 1.0840E-11,      SLF 3190
     C 1.1692E-11, 1.2648E-11, 1.3723E-11, 1.4935E-11, 1.6313E-11,      SLF 3200
     C 1.7905E-11, 1.9740E-11, 2.1898E-11, 2.4419E-11, 2.7426E-11,      SLF 3210
     C 3.0869E-11, 3.4235E-11, 3.7841E-11, 4.1929E-11, 4.6776E-11,      SLF 3220
     C 5.2123E-11, 5.8497E-11, 6.5294E-11, 7.4038E-11, 8.4793E-11,      SLF 3230
     C 9.6453E-11, 1.1223E-10, 1.2786E-10, 1.4882E-10, 1.7799E-10,      SLF 3240
     C 2.0766E-10, 2.4523E-10, 2.8591E-10, 3.3386E-10, 4.0531E-10/      SLF 3250
      DATA S1351/                                                       SLF 3260
     C 4.7663E-10, 5.4858E-10, 6.3377E-10, 7.1688E-10, 8.4184E-10,      SLF 3270
     C 9.5144E-10, 1.0481E-09, 1.1356E-09, 1.2339E-09, 1.3396E-09,      SLF 3280
     C 1.4375E-09, 1.5831E-09, 1.7323E-09, 1.9671E-09, 2.2976E-09,      SLF 3290
     C 2.6679E-09, 3.0777E-09, 3.4321E-09, 3.8192E-09, 4.2711E-09,      SLF 3300
     C 4.4903E-09, 4.8931E-09, 5.2253E-09, 5.4040E-09, 5.6387E-09,      SLF 3310
     C 5.6704E-09, 6.0345E-09, 6.1079E-09, 6.2576E-09, 6.4039E-09,      SLF 3320
     C 6.3776E-09, 6.1878E-09, 5.8616E-09, 5.7036E-09, 5.5840E-09,      SLF 3330
     C 5.6905E-09, 5.8931E-09, 6.2478E-09, 6.8291E-09, 7.4528E-09,      SLF 3340
     C 7.6078E-09, 7.3898E-09, 6.7573E-09, 5.9827E-09, 5.0927E-09,      SLF 3350
     C 4.0099E-09, 3.1933E-09, 2.4296E-09, 1.8485E-09, 1.4595E-09/      SLF 3360
      DATA S1401/                                                       SLF 3370
     C 1.2017E-09, 1.0164E-09, 8.7433E-10, 7.7108E-10, 7.0049E-10,      SLF 3380
     C 6.5291E-10, 6.1477E-10, 5.9254E-10, 5.8150E-10, 5.7591E-10,      SLF 3390
     C 5.8490E-10, 5.8587E-10, 5.9636E-10, 6.2408E-10, 6.5479E-10,      SLF 3400
     C 7.0480E-10, 7.2313E-10, 7.5524E-10, 8.0863E-10, 8.3386E-10,      SLF 3410
     C 9.2342E-10, 9.6754E-10, 1.0293E-09, 1.0895E-09, 1.1330E-09,      SLF 3420
     C 1.2210E-09, 1.2413E-09, 1.2613E-09, 1.2671E-09, 1.2225E-09,      SLF 3430
     C 1.1609E-09, 1.0991E-09, 1.0600E-09, 1.0570E-09, 1.0818E-09,      SLF 3440
     C 1.1421E-09, 1.2270E-09, 1.3370E-09, 1.4742E-09, 1.4946E-09,      SLF 3450
     C 1.4322E-09, 1.3210E-09, 1.1749E-09, 1.0051E-09, 7.8387E-10,      SLF 3460
     C 6.1844E-10, 4.6288E-10, 3.4164E-10, 2.5412E-10, 1.9857E-10/      SLF 3470
      DATA S1451/                                                       SLF 3480
     C 1.5876E-10, 1.2966E-10, 1.0920E-10, 9.4811E-11, 8.3733E-11,      SLF 3490
     C 7.3906E-11, 6.7259E-11, 6.1146E-11, 5.7119E-11, 5.3546E-11,      SLF 3500
     C 4.8625E-11, 4.4749E-11, 4.1089E-11, 3.7825E-11, 3.4465E-11,      SLF 3510
     C 3.1018E-11, 2.8109E-11, 2.5610E-11, 2.2859E-11, 2.0490E-11,      SLF 3520
     C 1.8133E-11, 1.5835E-11, 1.3949E-11, 1.2295E-11, 1.0799E-11,      SLF 3530
     C 9.6544E-12, 8.7597E-12, 7.9990E-12, 7.3973E-12, 6.9035E-12,      SLF 3540
     C 6.4935E-12, 6.1195E-12, 5.8235E-12, 5.5928E-12, 5.4191E-12,      SLF 3550
     C 5.2993E-12, 5.2338E-12, 5.2272E-12, 5.2923E-12, 5.4252E-12,      SLF 3560
     C 5.6523E-12, 5.9433E-12, 6.3197E-12, 6.9016E-12, 7.5016E-12,      SLF 3570
     C 8.2885E-12, 9.4050E-12, 1.0605E-11, 1.2257E-11, 1.3622E-11/      SLF 3580
      DATA S1501/                                                       SLF 3590
     C 1.5353E-11, 1.7543E-11, 1.9809E-11, 2.2197E-11, 2.4065E-11,      SLF 3600
     C 2.6777E-11, 2.9751E-11, 3.2543E-11, 3.5536E-11, 3.9942E-11,      SLF 3610
     C 4.6283E-11, 5.4556E-11, 6.5490E-11, 7.6803E-11, 9.0053E-11,      SLF 3620
     C 1.0852E-10, 1.2946E-10, 1.4916E-10, 1.7748E-10, 2.0073E-10,      SLF 3630
     C 2.2485E-10, 2.5114E-10, 2.7715E-10, 3.1319E-10, 3.3305E-10,      SLF 3640
     C 3.5059E-10, 3.5746E-10, 3.6311E-10, 3.7344E-10, 3.6574E-10,      SLF 3650
     C 3.7539E-10, 3.9434E-10, 4.3510E-10, 4.3340E-10, 4.2588E-10,      SLF 3660
     C 4.3977E-10, 4.6062E-10, 4.7687E-10, 4.6457E-10, 4.8578E-10,      SLF 3670
     C 5.2344E-10, 5.6752E-10, 5.8702E-10, 5.6603E-10, 5.3784E-10,      SLF 3680
     C 4.9181E-10, 4.3272E-10, 3.5681E-10, 2.8814E-10, 2.3320E-10/      SLF 3690
      DATA S1551/                                                       SLF 3700
     C 1.8631E-10, 1.4587E-10, 1.1782E-10, 9.8132E-11, 8.2528E-11,      SLF 3710
     C 6.9174E-11, 6.1056E-11, 5.3459E-11, 4.7116E-11, 4.1878E-11,      SLF 3720
     C 3.8125E-11, 3.6347E-11, 3.5071E-11, 3.3897E-11, 3.3541E-11,      SLF 3730
     C 3.3563E-11, 3.5469E-11, 3.8111E-11, 3.8675E-11, 4.1333E-11,      SLF 3740
     C 4.3475E-11, 4.6476E-11, 4.9761E-11, 5.1380E-11, 5.4135E-11,      SLF 3750
     C 5.3802E-11, 5.5158E-11, 5.6864E-11, 5.9311E-11, 6.3827E-11,      SLF 3760
     C 6.7893E-11, 6.8230E-11, 6.6694E-11, 6.6018E-11, 6.4863E-11,      SLF 3770
     C 6.5893E-11, 6.3813E-11, 6.4741E-11, 6.8630E-11, 7.0255E-11,      SLF 3780
     C 7.0667E-11, 6.8810E-11, 6.4104E-11, 5.8136E-11, 4.7242E-11,      SLF 3790
     C 3.7625E-11, 3.1742E-11, 2.5581E-11, 1.8824E-11, 1.3303E-11/      SLF 3800
      DATA S1601/                                                       SLF 3810
     C 9.6919E-12, 7.5353E-12, 6.0986E-12, 5.0742E-12, 4.3094E-12,      SLF 3820
     C 3.7190E-12, 3.2520E-12, 2.8756E-12, 2.5680E-12, 2.3139E-12,      SLF 3830
     C 2.1025E-12, 1.9257E-12, 1.7777E-12, 1.6539E-12, 1.5508E-12,      SLF 3840
     C 1.4657E-12, 1.3966E-12, 1.3417E-12, 1.2998E-12, 1.2700E-12,      SLF 3850
     C 1.2514E-12, 1.2437E-12, 1.2463E-12, 1.2592E-12, 1.2823E-12,      SLF 3860
     C 1.3157E-12, 1.3596E-12, 1.4144E-12, 1.4806E-12, 1.5588E-12,      SLF 3870
     C 1.6497E-12, 1.7544E-12, 1.8738E-12, 2.0094E-12, 2.1626E-12,      SLF 3880
     C 2.3354E-12, 2.5297E-12, 2.7483E-12, 2.9941E-12, 3.2708E-12,      SLF 3890
     C 3.5833E-12, 3.9374E-12, 4.3415E-12, 4.8079E-12, 5.3602E-12,      SLF 3900
     C 5.9816E-12, 6.7436E-12, 7.6368E-12, 8.6812E-12, 9.8747E-12/      SLF 3910
      DATA S1651/                                                       SLF 3920
     C 1.1350E-11, 1.3181E-11, 1.5406E-11, 1.7868E-11, 2.0651E-11,      SLF 3930
     C 2.4504E-11, 2.9184E-11, 3.4159E-11, 3.9979E-11, 4.8704E-11,      SLF 3940
     C 5.7856E-11, 6.7576E-11, 7.9103E-11, 9.4370E-11, 1.1224E-10,      SLF 3950
     C 1.3112E-10, 1.5674E-10, 1.8206E-10, 2.0576E-10, 2.3187E-10,      SLF 3960
     C 2.7005E-10, 3.0055E-10, 3.3423E-10, 3.6956E-10, 3.8737E-10,      SLF 3970
     C 4.2630E-10, 4.5154E-10, 4.8383E-10, 5.3582E-10, 5.8109E-10,      SLF 3980
     C 6.3741E-10, 6.3874E-10, 6.3870E-10, 6.5818E-10, 6.5056E-10,      SLF 3990
     C 6.5291E-10, 6.3159E-10, 6.3984E-10, 6.4549E-10, 6.5444E-10,      SLF 4000
     C 6.7035E-10, 6.7665E-10, 6.9124E-10, 6.8451E-10, 6.9255E-10,      SLF 4010
     C 6.9923E-10, 7.0396E-10, 6.7715E-10, 6.0371E-10, 5.3774E-10/      SLF 4020
      DATA S1701/                                                       SLF 4030
     C 4.6043E-10, 3.7635E-10, 2.9484E-10, 2.2968E-10, 1.8185E-10,      SLF 4040
     C 1.4191E-10, 1.1471E-10, 9.4790E-11, 7.9613E-11, 6.7989E-11,      SLF 4050
     C 5.9391E-11, 5.2810E-11, 4.7136E-11, 4.2618E-11, 3.8313E-11,      SLF 4060
     C 3.4686E-11, 3.1669E-11, 2.9110E-11, 2.6871E-11, 2.5074E-11,      SLF 4070
     C 2.4368E-11, 2.3925E-11, 2.4067E-11, 2.4336E-11, 2.4704E-11,      SLF 4080
     C 2.5823E-11, 2.7177E-11, 2.9227E-11, 3.1593E-11, 3.5730E-11,      SLF 4090
     C 4.0221E-11, 4.3994E-11, 4.8448E-11, 5.3191E-11, 5.8552E-11,      SLF 4100
     C 6.3458E-11, 6.6335E-11, 7.2457E-11, 7.9091E-11, 8.2234E-11,      SLF 4110
     C 8.7668E-11, 8.7951E-11, 9.2952E-11, 9.6157E-11, 9.5926E-11,      SLF 4120
     C 1.0120E-10, 1.0115E-10, 9.9577E-11, 9.6633E-11, 9.2891E-11/      SLF 4130
      DATA S1751/                                                       SLF 4140
     C 9.3315E-11, 9.5584E-11, 1.0064E-10, 1.0509E-10, 1.1455E-10,      SLF 4150
     C 1.2443E-10, 1.2963E-10, 1.2632E-10, 1.1308E-10, 1.0186E-10,      SLF 4160
     C 8.5880E-11, 6.7863E-11, 5.1521E-11, 3.7780E-11, 2.8842E-11,      SLF 4170
     C 2.2052E-11, 1.7402E-11, 1.4406E-11, 1.1934E-11, 1.0223E-11,      SLF 4180
     C 8.9544E-12, 7.9088E-12, 7.0675E-12, 6.2222E-12, 5.6051E-12,      SLF 4190
     C 5.0502E-12, 4.5578E-12, 4.2636E-12, 3.9461E-12, 3.7599E-12,      SLF 4200
     C 3.5215E-12, 3.2467E-12, 3.0018E-12, 2.6558E-12, 2.3928E-12,      SLF 4210
     C 2.0707E-12, 1.7575E-12, 1.5114E-12, 1.2941E-12, 1.1004E-12,      SLF 4220
     C 9.5175E-13, 8.2894E-13, 7.3253E-13, 6.5551E-13, 5.9098E-13,      SLF 4230
     C 5.3548E-13, 4.8697E-13, 4.4413E-13, 4.0600E-13, 3.7188E-13/      SLF 4240
      DATA S1801/                                                       SLF 4250
     C 3.4121E-13, 3.1356E-13, 2.8856E-13, 2.6590E-13, 2.4533E-13,      SLF 4260
     C 2.2663E-13, 2.0960E-13, 1.9407E-13, 1.7990E-13, 1.6695E-13,      SLF 4270
     C 1.5512E-13, 1.4429E-13, 1.3437E-13, 1.2527E-13, 1.1693E-13,      SLF 4280
     C 1.0927E-13, 1.0224E-13, 9.5767E-14, 8.9816E-14, 8.4335E-14,      SLF 4290
     C 7.9285E-14, 7.4626E-14, 7.0325E-14, 6.6352E-14, 6.2676E-14,      SLF 4300
     C 5.9274E-14, 5.6121E-14, 5.3195E-14, 5.0479E-14, 4.7953E-14,      SLF 4310
     C 4.5602E-14, 4.3411E-14, 4.1367E-14, 3.9456E-14, 3.7670E-14,      SLF 4320
     C 3.5996E-14, 3.4427E-14, 3.2952E-14, 3.1566E-14, 3.0261E-14,      SLF 4330
     C 2.9030E-14, 2.7868E-14, 2.6770E-14, 2.5730E-14, 2.4745E-14,      SLF 4340
     C 2.3809E-14, 2.2921E-14, 2.2076E-14, 2.1271E-14, 2.0504E-14/      SLF 4350
      DATA S1851/                                                       SLF 4360
     C 1.9772E-14, 1.9073E-14, 1.8404E-14, 1.7764E-14, 1.7151E-14,      SLF 4370
     C 1.6564E-14, 1.6000E-14, 1.5459E-14, 1.4939E-14, 1.4439E-14,      SLF 4380
     C 1.3958E-14, 1.3495E-14, 1.3049E-14, 1.2620E-14, 1.2206E-14,      SLF 4390
     C 1.1807E-14, 1.1422E-14, 1.1050E-14, 1.0691E-14, 1.0345E-14,      SLF 4400
     C 1.0010E-14, 9.6870E-15, 9.3747E-15, 9.0727E-15, 8.7808E-15,      SLF 4410
     C 8.4986E-15, 8.2257E-15, 7.9617E-15, 7.7064E-15, 7.4594E-15,      SLF 4420
     C 7.2204E-15, 6.9891E-15, 6.7653E-15, 6.5488E-15, 6.3392E-15,      SLF 4430
     C 6.1363E-15, 5.9399E-15, 5.7499E-15, 5.5659E-15, 5.3878E-15,      SLF 4440
     C 5.2153E-15, 5.0484E-15, 4.8868E-15, 4.7303E-15, 4.5788E-15,      SLF 4450
     C 4.4322E-15, 4.2902E-15, 4.1527E-15, 4.0196E-15, 3.8907E-15/      SLF 4460
      DATA S1901/                                                       SLF 4470
     C 3.7659E-15, 3.6451E-15, 3.5281E-15, 3.4149E-15, 3.3052E-15,      SLF 4480
     C 3.1991E-15, 3.0963E-15, 2.9967E-15, 2.9004E-15, 2.8071E-15,      SLF 4490
     C 2.7167E-15, 2.6293E-15, 2.5446E-15, 2.4626E-15, 2.3833E-15,      SLF 4500
     C 2.3064E-15, 2.2320E-15, 2.1600E-15, 2.0903E-15, 2.0228E-15,      SLF 4510
     C 1.9574E-15, 1.8942E-15, 1.8329E-15, 1.7736E-15, 1.7163E-15,      SLF 4520
     C 1.6607E-15, 1.6069E-15, 1.5548E-15, 1.5044E-15, 1.4557E-15,      SLF 4530
     C 1.4084E-15, 1.3627E-15, 1.3185E-15, 1.2757E-15, 1.2342E-15,      SLF 4540
     C 1.1941E-15, 1.1552E-15, 1.1177E-15, 1.0813E-15, 1.0461E-15,      SLF 4550
     C 1.0120E-15, 9.7900E-16, 9.4707E-16, 9.1618E-16, 8.8628E-16,      SLF 4560
     C 8.5734E-16, 8.2933E-16, 8.0223E-16, 7.7600E-16, 7.5062E-16/      SLF 4570
      DATA S1951/                                                       SLF 4580
     C 7.2606E-16, 7.0229E-16, 6.7929E-16, 6.5703E-16, 6.3550E-16,      SLF 4590
     C 6.1466E-16, 5.9449E-16, 5.7498E-16, 5.5610E-16, 5.3783E-16,      SLF 4600
     C 5.2015E-16, 5.0305E-16, 4.8650E-16, 4.7049E-16, 4.5500E-16,      SLF 4610
     C 4.4002E-16, 4.2552E-16, 4.1149E-16, 3.9792E-16, 3.8479E-16,      SLF 4620
     C 3.7209E-16, 3.5981E-16, 3.4792E-16, 3.3642E-16, 3.2530E-16,      SLF 4630
     C 3.1454E-16, 3.0413E-16, 2.9406E-16, 2.8432E-16, 2.7490E-16,      SLF 4640
     C 2.6579E-16, 2.5697E-16, 2.4845E-16, 2.4020E-16, 2.3223E-16,      SLF 4650
     C 2.2451E-16, 2.1705E-16, 2.0984E-16, 2.0286E-16, 1.9611E-16,      SLF 4660
     C 1.8958E-16, 1.8327E-16, 1.7716E-16, 1.7126E-16, 1.6555E-16,      SLF 4670
     C 1.6003E-16, 1.5469E-16, 1.4952E-16, 1.4453E-16, 1.3970E-16/      SLF 4680
      DATA S2001/                                                       SLF 4690
     C 1.3503E-16/                                                      SLF 4700
C                                                                       SLF 4710
      END                                                               SLF 4720
      BLOCK DATA SHUMG                                                  SHM  100
C>    BLOCK DATA                                                        SHM  110
C                                                                       SHM  120
C     SCHUMANN-RUNGE O2 BAND MODEL - SAMPLE CODING                      SHM  130
C                                                                       SHM  140
       COMMON /SHUR/ SHN001(70),SHN076(75),SHN151(75),                  SHM  150
     X  SHN226(75),SHN301(75),SHN376(54),SHDUM(6)                       SHM  160
       DATA SHN001/                                                     SHM  170
     X  -8.00000,  -8.00000,  -8.00000,  -6.30103,  -6.00000,           SHM  180
     X  -5.94896,  -5.94896,  -5.55139,  -5.17613,  -4.90612,           SHM  190
     X  -4.56059,  -4.30010,  -4.30739,  -4.34455,  -4.35231,           SHM  200
     X  -4.50777,  -4.41705,  -3.93569,  -3.70298,  -3.84254,           SHM  210
     X  -4.01007,  -4.13821,  -3.92122,  -3.55006,  -3.22681,           SHM  220
     X  -3.17363,  -3.55224,  -3.66208,  -3.32331,  -3.00804,           SHM  230
     X  -2.99732,  -3.30951,  -3.20867,  -2.69141,  -2.49670,           SHM  240
     X  -2.74355,  -2.69834,  -2.67293,  -2.67371,  -2.89603,           SHM  250
     X  -3.13808,  -3.45473,  -3.54812,  -3.00636,  -2.72446,           SHM  260
     X  -2.90208,  -2.93847,  -3.03693,  -3.15944,  -3.43764,           SHM  270
     X  -3.67262,  -3.53970,  -2.84182,  -2.51909,  -2.50557,           SHM  280
     X  -2.44459,  -2.72040,  -2.95979,  -3.02842,  -2.92391,           SHM  290
     X  -2.61329,  -2.24839,  -2.03988,  -1.98147,  -1.97078,           SHM  300
     X  -2.14548,  -2.51734,  -2.47024,  -2.02579,  -1.70360/           SHM  310
       DATA SHN076/                                                     SHM  320
     X  -1.64178,  -2.05789,  -2.41111,  -2.30034,  -1.91818,           SHM  330
     X  -1.50450,  -1.32084,  -1.80380,  -2.13878,  -1.94658,           SHM  340
     X  -1.61627,  -1.55771,  -1.88813,  -1.64415,  -1.43970,           SHM  350
     X  -1.72633,  -1.50064,  -1.29499,  -1.47224,  -1.42286,           SHM  360
     X  -1.84903,  -2.42249,  -2.95877,  -3.43342,  -3.85023,           SHM  370
     X  -4.92183,  -4.92959,  -4.80852,  -4.67030,  -4.72573,           SHM  380
     X  -4.84445,  -4.86951,  -4.90354,  -4.80891,  -4.61211,           SHM  390
     X  -4.48205,  -4.51391,  -4.66502,  -4.84670,  -4.88606,           SHM  400
     X  -4.82391,  -4.69897,  -4.51203,  -4.13960,  -3.87805,           SHM  410
     X  -3.80311,  -3.77114,  -3.88260,  -4.14615,  -4.39649,           SHM  420
     X  -4.62899,  -4.78494,  -4.69514,  -4.27200,  -3.92731,           SHM  430
     X  -3.72681,  -3.60335,  -3.49142,  -3.38223,  -3.52349,           SHM  440
     X  -3.64037,  -3.58526,  -3.48978,  -3.36320,  -3.37270,           SHM  450
     X  -3.58359,  -3.83908,  -4.06157,  -3.96920,  -3.24875,           SHM  460
     X  -2.78627,  -2.54861,  -2.56192,  -2.79838,  -2.89008/           SHM  470
       DATA SHN151/                                                     SHM  480
     X  -2.97200,  -2.91496,  -2.85783,  -3.00554,  -3.22285,           SHM  490
     X  -3.17575,  -2.82405,  -2.44375,  -2.24512,  -2.13519,           SHM  500
     X  -2.17638,  -2.12548,  -2.24833,  -2.42286,  -2.48889,           SHM  510
     X  -2.57284,  -2.67481,  -2.84576,  -2.57849,  -2.23621,           SHM  520
     X  -1.97914,  -2.01655,  -2.08918,  -2.25852,  -2.60669,           SHM  530
     X  -2.91101,  -3.24343,  -3.54870,  -3.05507,  -2.41260,           SHM  540
     X  -1.97192,  -1.74591,  -1.70757,  -1.86170,  -2.21955,           SHM  550
     X  -2.52520,  -2.86220,  -2.96082,  -2.42138,  -1.96791,           SHM  560
     X  -1.71099,  -1.68871,  -1.86617,  -2.21148,  -2.51694,           SHM  570
     X  -2.77760,  -2.37949,  -1.89083,  -1.58900,  -1.52710,           SHM  580
     X  -1.68850,  -2.03635,  -2.31319,  -2.17366,  -1.60655,           SHM  590
     X  -1.27097,  -1.14262,  -1.34089,  -1.68119,  -1.78236,           SHM  600
     X  -1.45853,  -1.19063,  -1.11210,  -1.38628,  -1.48342,           SHM  610
     X  -1.12039,   -.85543,   -.77060,  -1.05684,  -1.05423,           SHM  620
     X   -.93689,   -.86922,   -.94306,   -.76850,   -.59062/           SHM  630
       DATA SHN226/                                                     SHM  640
     X   -.50208,   -.53499,   -.88884,  -1.18360,  -1.52243,           SHM  650
     X  -1.84564,  -2.17740,  -2.50559,  -2.83351,  -3.15308,           SHM  660
     X  -3.41587,  -3.41025,  -3.23752,  -3.13656,  -3.30149,           SHM  670
     X  -3.55280,  -3.77885,  -3.71929,  -3.36467,  -3.06275,           SHM  680
     X  -2.83782,  -2.68294,  -2.55793,  -2.63001,  -2.90714,           SHM  690
     X  -3.18561,  -3.46714,  -3.70067,  -3.62895,  -3.02605,           SHM  700
     X  -2.65584,  -2.46195,  -2.48991,  -2.44044,  -2.29494,           SHM  710
     X  -2.28839,  -2.29827,  -2.22063,  -2.12801,  -2.18940,           SHM  720
     X  -2.48029,  -2.74669,  -2.83833,  -2.45937,  -2.16507,           SHM  730
     X  -2.02067,  -2.03314,  -1.80888,  -1.51479,  -1.38580,           SHM  740
     X  -1.37993,  -1.63534,  -1.83905,  -1.87999,  -1.82492,           SHM  750
     X  -1.89398,  -1.90149,  -1.78545,  -1.65285,  -1.40144,           SHM  760
     X  -1.17488,  -1.07228,  -1.15343,  -1.37759,  -1.70025,           SHM  770
     X  -2.01075,  -2.33004,  -2.62771,  -2.87105,  -2.84082,           SHM  780
     X  -2.00293,  -1.31932,   -.92860,   -.76253,   -.84790/           SHM  790
       DATA SHN301/                                                     SHM  800
     X  -1.16306,  -1.46677,  -1.79051,  -2.09491,  -2.34556,           SHM  810
     X  -2.13867,  -1.37321,   -.82048,   -.53990,   -.47636,           SHM  820
     X   -.72816,  -1.03484,  -1.33688,  -1.61955,  -1.78843,           SHM  830
     X  -1.43388,   -.81369,   -.44878,   -.28512,   -.40431,           SHM  840
     X   -.72200,  -1.00945,  -1.28895,  -1.31856,   -.85686,           SHM  850
     X   -.42072,   -.19421,   -.18317,   -.46858,   -.73309,           SHM  860
     X   -.93390,   -.77552,   -.37922,   -.12965,   -.05480,           SHM  870
     X   -.26659,   -.48423,   -.50987,   -.24666,   -.01742,           SHM  880
     X    .07660,   -.06367,   -.20185,   -.11253,    .06726,           SHM  890
     X    .17955,    .14879,    .15975,    .28769,    .41632,           SHM  900
     X    .49995,    .61664,    .76706,    .82624,    .76615,           SHM  910
     X    .43165,    .13821,   -.18926,   -.48784,   -.77913,           SHM  920
     X  -1.08972,  -1.39948,  -1.70006,  -1.94700,  -1.96249,           SHM  930
     X  -1.67500,  -1.41241,  -1.29981,  -1.40100,  -1.69529,           SHM  940
     X  -1.96904,  -2.25253,  -2.44942,  -2.13985,  -1.80460/           SHM  950
       DATA SHN376/                                                     SHM  960
     X  -1.60216,  -1.72517,  -1.98472,  -2.08115,  -1.62632,           SHM  970
     X  -1.12971,   -.86160,   -.81141,  -1.07504,  -1.34407,           SHM  980
     X  -1.50074,  -1.47345,  -1.41077,  -1.59810,  -1.67103,           SHM  990
     X  -1.53208,  -1.36215,  -1.26724,   -.91307,   -.50826,           SHM 1000
     X   -.27840,   -.24468,   -.46373,   -.76619,  -1.07304,           SHM 1010
     X  -1.37968,  -1.66148,  -1.89046,  -2.02811,  -1.97679,           SHM 1020
     X  -1.55840,   -.94089,   -.46463,   -.21757,   -.16985,           SHM 1030
     X   -.41642,   -.69469,   -.98624,  -1.26028,  -1.48661,           SHM 1040
     X  -1.58100,  -1.42675,  -1.01563,   -.52312,   -.13686,           SHM 1050
     X    .06300,    .07682,   -.16825,   -.42809,   -.69506,           SHM 1060
     X   -.91898,  -1.03253,   -.90609,   -.42809           /           SHM 1070
      END                                                               SHM 1080
      SUBROUTINE SINT(V1,V1C,DV,NPT,CONTI,CONTO)                        SIN  100
C                                                                       SIN  110
C     INTERPOLATION  FOR CONTINUUM WITH LOWTRAN                         SIN  120
C                                                                       SIN  130
      DIMENSION CONTI(2003)                                             SIN  140
      CONTO=0.                                                          SIN  150
      I=(V1C-V1)/DV+1.00001                                             SIN  160
      IF(I.GE.NPT)GO TO 10                                              SIN  170
      CONTO=CONTI(I)                                                    SIN  180
      IMOD=AMOD(V1C,10.)                                                SIN  190
      IF(IMOD.GT.0) CONTO=(CONTI(I)+CONTI(I+1))/2.                      SIN  200
10    CONTINUE                                                          SIN  210
      RETURN                                                            SIN  220
      END                                                               SIN  230
      SUBROUTINE SLF260(V1C,SH2OT1)                                     S26  100
C     LOADS SELF CONTINUUM  260K                                        S26  110
      COMMON /S260/ V1,V2,DV,NPT,S260(2003)                             S26  120
      CALL SINT(V1,V1C,DV,NPT,S260,SH2OT1)                              S26  130
      RETURN                                                            S26  140
      END                                                               S26  150
      SUBROUTINE SLF296(V1C,SH2OT0)                                     SLF  100
C     LOADS SELF CONTINUUM  296K                                        SLF  110
      COMMON /SH2O/ V1,V2,DV,NPT,S296(2003)                             SLF  120
      CALL SINT(V1,V1C,DV,NPT,S296,SH2OT0)                              SLF  130
      RETURN                                                            SLF  140
      END                                                               SLF  150
      BLOCK DATA SOLAR                                                  SOL  100
C>    BLOCK DATA                                                        SOL  110
C                                                                       SOL  120
C                                                                       SOL  130
C     COMMON /SUNDAT/   SOLARA(1440), SOLARB(2910)                      SOL  140
      COMMON /SUNDAT/   SUNA01( 41),SUNA02(144),SUNA03(144),SUNA04(144),SOL  150
     A      SUNA05(144),SUNA06(144),SUNA07(144),SUNA08(144),SUNA09(144),SOL  160
     B      SUNA10(144),SUNA11(103),SUNB01(144),SUNB02(144),SUNB03(144),SOL  170
     C      SUNB04(144),SUNB05(144),SUNB06(144),SUNB07(144),SUNB08(144),SOL  180
     D      SUNB09(144),SUNB10(144),SUNB11(144),SUNB12(144),SUNB13(144),SOL  190
     E      SUNB14(144),SUNB15(144),SUNB16(144),SUNB17(144),SUNB18(144),SOL  200
     F      SUNB19(144),SUNB20(144),SUNB21( 30)                         SOL  210
C                                                                       SOL  220
C         SOLAR SPECTRUM FROM      0 TO    800 CM-1,  IN STEPS OF 20 CM-SOL  230
      DATA SUNA01  /                                                    SOL  240
     A 0.0000E+00, 4.5756E-08, 7.0100E-07, 3.4580E-06, 1.0728E-05,      SOL  250
     B 2.5700E-05, 5.2496E-05, 9.6003E-05, 1.6193E-04, 2.5766E-04,      SOL  260
     C 3.9100E-04, 5.6923E-04, 8.0203E-04, 1.1006E-03, 1.4768E-03,      SOL  270
     D 1.9460E-03, 2.5213E-03, 3.2155E-03, 4.0438E-03, 5.0229E-03,      SOL  280
     E 6.1700E-03, 7.5145E-03, 9.0684E-03, 1.0853E-02, 1.2889E-02,      SOL  290
     F 1.5213E-02, 1.7762E-02, 2.0636E-02, 2.3888E-02, 2.7524E-02,      SOL  300
     G 3.1539E-02, 3.5963E-02, 4.0852E-02, 4.6236E-02, 5.2126E-02,      SOL  310
     H 5.8537E-02, 6.5490E-02, 7.3017E-02, 8.1169E-02, 9.0001E-02,      SOL  320
     I 9.9540E-02 /                                                     SOL  330
C         SOLAR SPECTRUM FROM    820 TO   3680 CM-1,  IN STEPS OF 20 CM-SOL  340
      DATA SUNA02  /                                                    SOL  350
     A .10980, .12080, .13260, .14520, .15860, .17310, .18850, .20490,  SOL  360
     B .22240, .24110, .26090, .28200, .30430, .32790, .35270, .37890,  SOL  370
     C .40650, .43550, .46600, .49800, .53160, .56690, .60390, .64260,  SOL  380
     D .68320, .72560, .76990, .81620, .86440, .91470, .96710, 1.0220,  SOL  390
     E 1.0780, 1.1370, 1.1990, 1.2630, 1.3290, 1.3990, 1.4710, 1.5460,  SOL  400
     F 1.6250, 1.7060, 1.7910, 1.8800, 1.9710, 2.0670, 2.1660, 2.2680,  SOL  410
     G 2.3740, 2.4840, 2.5970, 2.7140, 2.8350, 2.9600, 3.0890, 3.2210,  SOL  420
     H 3.3570, 3.4980, 3.6420, 3.7900, 3.9440, 4.1040, 4.2730, 4.4450,  SOL  430
     I 4.6150, 4.7910, 4.9830, 5.1950, 5.4210, 5.6560, 5.8930, 6.1270,  SOL  440
     J 6.3560, 6.5820, 6.8080, 7.0360, 7.2700, 7.5170, 7.7890, 8.0910,  SOL  450
     K 8.4070, 8.7120, 8.9900, 9.2490, 9.5000, 9.7550, 10.010, 10.250,  SOL  460
     L 10.480, 10.700, 10.950, 11.230, 11.550, 11.900, 12.250, 12.600,  SOL  470
     M 12.930, 13.250, 13.530, 13.780, 14.040, 14.320, 14.660, 15.070,  SOL  480
     N 15.530, 16.011, 16.433, 16.771, 17.077, 17.473, 17.964, 18.428,  SOL  490
     O 18.726, 18.906, 19.141, 19.485, 19.837, 20.160, 20.509, 21.024,  SOL  500
     P 21.766, 22.568, 23.190, 23.577, 23.904, 24.335, 24.826, 25.236,  SOL  510
     Q 25.650, 26.312, 27.208, 27.980, 28.418, 28.818, 29.565, 30.533,  SOL  520
     R 31.247, 31.667, 32.221, 33.089, 33.975, 34.597, 35.004, 35.395 / SOL  530
C         SOLAR SPECTRUM FROM   3700 TO   6560 CM-1,  IN STEPS OF 20 CM-SOL  540
      DATA SUNA03  /                                                    SOL  550
     A 36.026, 36.985, 37.890, 38.401, 38.894, 39.857, 40.926, 41.570,  SOL  560
     B 42.135, 43.083, 44.352, 45.520, 45.982, 46.281, 48.335, 51.987,  SOL  570
     C 54.367, 54.076, 52.174, 50.708, 52.153, 55.707, 56.549, 54.406,  SOL  580
     D 53.267, 56.084, 61.974, 64.406, 60.648, 55.146, 53.067, 57.476,  SOL  590
     E 64.645, 68.348, 69.055, 69.869, 70.943, 71.662, 72.769, 74.326,  SOL  600
     F 75.257, 74.883, 73.610, 73.210, 74.886, 78.042, 80.204, 80.876,  SOL  610
     G 82.668, 84.978, 86.244, 88.361, 91.998, 95.383, 98.121, 100.29,  SOL  620
     H 100.64, 99.997, 101.82, 105.06, 107.50, 109.99, 112.45, 113.90,  SOL  630
     I 113.79, 119.23, 121.96, 124.58, 127.14, 125.19, 124.37, 125.00,  SOL  640
     J 127.88, 130.67, 131.98, 133.74, 136.69, 136.18, 135.02, 137.44,  SOL  650
     K 138.44, 137.25, 136.35, 142.60, 144.54, 148.37, 151.90, 151.55,  SOL  660
     L 155.35, 157.59, 159.70, 162.28, 168.44, 171.43, 169.82, 170.33,  SOL  670
     M 172.28, 176.68, 181.92, 186.06, 187.85, 186.00, 189.82, 189.35,  SOL  680
     N 192.86, 202.00, 209.63, 205.76, 212.88, 215.63, 216.51, 219.20,  SOL  690
     O 220.29, 221.12, 227.12, 229.97, 233.23, 233.95, 234.52, 234.45,  SOL  700
     P 235.77, 239.80, 243.11, 241.19, 242.34, 243.69, 242.84, 246.19,  SOL  710
     Q 246.11, 246.76, 251.75, 255.38, 258.74, 260.26, 263.40, 268.68,  SOL  720
     R 271.81, 272.95, 273.93, 274.74, 274.43, 279.69, 287.76, 287.72 / SOL  730
C         SOLAR SPECTRUM FROM   6580 TO   9440 CM-1,  IN STEPS OF 20 CM-SOL  740
      DATA SUNA04  /                                                    SOL  750
     A 287.96, 290.01, 291.92, 295.28, 296.78, 300.46, 302.19, 299.14,  SOL  760
     B 301.43, 305.68, 309.29, 310.63, 313.24, 314.61, 309.58, 318.81,  SOL  770
     C 320.54, 321.62, 328.58, 331.66, 337.20, 345.62, 345.54, 342.96,  SOL  780
     D 344.38, 346.23, 349.17, 351.79, 354.71, 356.97, 358.29, 362.29,  SOL  790
     E 364.15, 364.97, 367.81, 368.98, 369.07, 372.17, 377.79, 381.25,  SOL  800
     F 384.22, 388.66, 393.58, 396.98, 398.72, 400.61, 404.06, 408.23,  SOL  810
     G 412.47, 415.58, 416.17, 416.53, 419.55, 425.88, 433.30, 437.73,  SOL  820
     H 438.13, 439.79, 441.51, 438.71, 434.25, 437.54, 448.95, 448.86,  SOL  830
     I 439.46, 437.10, 439.34, 444.33, 455.00, 467.05, 473.04, 469.64,  SOL  840
     J 467.53, 473.78, 477.50, 477.50, 480.96, 483.94, 482.19, 479.08,  SOL  850
     K 482.09, 493.43, 498.40, 492.05, 489.53, 493.34, 495.51, 496.52,  SOL  860
     L 499.57, 504.65, 509.68, 512.00, 512.05, 512.31, 515.00, 520.70,  SOL  870
     M 527.30, 531.88, 532.16, 530.48, 532.33, 539.26, 548.57, 553.00,  SOL  880
     N 548.96, 546.05, 551.00, 556.41, 557.21, 557.85, 560.95, 564.02,  SOL  890
     O 565.57, 566.38, 567.88, 571.48, 576.68, 581.54, 586.51, 593.62,  SOL  900
     P 600.70, 602.79, 601.39, 603.00, 606.88, 605.95, 600.97, 600.79,  SOL  910
     Q 607.21, 612.87, 614.13, 614.39, 616.61, 620.53, 625.19, 629.78,  SOL  920
     R 633.79, 637.31, 640.47, 642.53, 642.62, 641.93, 643.11, 646.68 / SOL  930
C         SOLAR SPECTRUM FROM   9460 TO  12320 CM-1,  IN STEPS OF 20 CM-SOL  940
       DATA SUNA05  /                                                   SOL  950
     A 650.57, 654.30, 660.95, 672.10, 682.31, 684.89, 682.20, 682.53,  SOL  960
     B 687.79, 691.42, 689.62, 688.14, 693.71, 703.25, 708.07, 706.22,  SOL  970
     C 704.64, 708.97, 717.35, 725.43, 731.08, 734.17, 735.41, 736.60,  SOL  980
     D 739.34, 742.90, 745.04, 744.29, 742.44, 749.53, 755.70, 758.82,  SOL  990
     E 766.31, 761.53, 762.09, 769.68, 764.18, 763.75, 768.88, 762.69,  SOL 1000
     F 753.93, 762.38, 765.79, 772.19, 760.67, 762.10, 766.76, 766.98,  SOL 1010
     G 769.35, 773.50, 766.84, 763.60, 773.82, 777.18, 779.61, 792.48,  SOL 1020
     H 797.54, 787.81, 793.75, 805.96, 804.77, 806.62, 821.72, 830.28,  SOL 1030
     I 827.54, 831.06, 830.20, 826.22, 823.28, 822.18, 833.92, 854.58,  SOL 1040
     J 859.80, 862.56, 871.16, 875.16, 867.67, 863.87, 883.30, 893.40,  SOL 1050
     K 897.74, 905.24, 905.38, 911.07, 930.21, 939.24, 934.74, 935.15,  SOL 1060
     L 942.38, 948.13, 947.00, 951.88, 960.12, 951.88, 954.22, 959.07,  SOL 1070
     M 963.36, 980.16, 983.66, 978.76, 979.38, 985.24, 977.08, 919.94,  SOL 1080
     N 899.68, 962.91, 997.17, 999.93, 995.65, 999.93, 1014.9, 951.57,  SOL 1090
     O 893.52, 955.14, 1003.1, 990.13, 978.79, 1011.2, 1034.7, 1031.9,  SOL 1100
     P 1029.9, 1039.7, 1045.5, 1044.1, 1049.6, 1056.1, 1049.8, 1038.0,  SOL 1110
     Q 1051.9, 1072.2, 1075.5, 1077.0, 1079.3, 1078.0, 1075.7, 1079.7,  SOL 1120
     R 1081.0, 1069.8, 1078.4, 1104.3, 1111.4, 1111.7, 1117.6, 1119.6 / SOL 1130
C         SOLAR SPECTRUM FROM  12340 TO  15200 CM-1,  IN STEPS OF 20 CM-SOL 1140
       DATA SUNA06  /                                                   SOL 1150
     A 1109.3, 1100.6, 1112.9, 1122.7, 1119.5, 1123.9, 1136.1, 1143.7,  SOL 1160
     B 1140.5, 1141.2, 1151.5, 1148.7, 1138.3, 1141.0, 1150.6, 1160.1,  SOL 1170
     C 1170.6, 1177.7, 1179.8, 1181.7, 1182.4, 1179.8, 1181.8, 1188.3,  SOL 1180
     D 1190.0, 1191.4, 1197.0, 1196.0, 1192.2, 1200.6, 1210.4, 1209.1,  SOL 1190
     E 1207.5, 1205.3, 1193.3, 1192.9, 1220.0, 1243.3, 1245.4, 1241.5,  SOL 1200
     F 1240.2, 1241.1, 1244.0, 1248.5, 1253.2, 1257.1, 1259.9, 1261.9,  SOL 1210
     G 1263.6, 1265.7, 1269.6, 1277.0, 1284.2, 1284.4, 1282.7, 1287.2,  SOL 1220
     H 1286.8, 1272.3, 1262.2, 1270.7, 1288.8, 1304.8, 1311.8, 1312.2,  SOL 1230
     I 1314.4, 1320.2, 1326.2, 1328.4, 1325.3, 1322.5, 1325.4, 1334.6,  SOL 1240
     J 1346.4, 1354.0, 1353.7, 1347.3, 1338.3, 1331.0, 1329.7, 1338.0,  SOL 1250
     K 1351.9, 1363.0, 1368.8, 1372.0, 1375.9, 1382.1, 1387.8, 1388.8,  SOL 1260
     L 1388.2, 1392.2, 1401.7, 1412.9, 1418.2, 1410.7, 1395.9, 1385.7,  SOL 1270
     M 1388.1, 1405.0, 1424.0, 1428.1, 1422.2, 1423.6, 1434.5, 1445.2,  SOL 1280
     N 1450.7, 1451.8, 1451.5, 1453.9, 1459.9, 1466.9, 1471.3, 1469.4,  SOL 1290
     O 1462.5, 1460.4, 1468.9, 1481.8, 1490.8, 1495.3, 1497.9, 1500.7,  SOL 1300
     P 1505.2, 1510.0, 1512.3, 1512.7, 1515.6, 1521.6, 1524.2, 1520.7,  SOL 1310
     Q 1520.3, 1531.6, 1545.7, 1548.2, 1541.7, 1542.2, 1553.6, 1563.6,  SOL 1320
     R 1563.6, 1559.9, 1561.3, 1569.9, 1581.6, 1577.6, 1529.7, 1447.0 / SOL 1330
C         SOLAR SPECTRUM FROM  15220 TO  18080 CM-1,  IN STEPS OF 20 CM-SOL 1340
      DATA SUNA07  /                                                    SOL 1350
     A 1396.9, 1428.7, 1506.4, 1567.1, 1594.0, 1606.1, 1613.5, 1609.0,  SOL 1360
     B 1588.6, 1567.8, 1567.3, 1587.2, 1610.2, 1624.4, 1630.2, 1630.9,  SOL 1370
     C 1628.1, 1622.3, 1616.9, 1618.9, 1631.6, 1648.1, 1658.2, 1659.7,  SOL 1380
     D 1658.1, 1658.0, 1659.4, 1660.4, 1659.2, 1653.7, 1645.3, 1642.1,  SOL 1390
     E 1652.7, 1674.2, 1694.1, 1700.6, 1703.4, 1697.6, 1654.5, 1644.4,  SOL 1400
     F 1661.6, 1676.3, 1707.7, 1703.1, 1710.8, 1732.3, 1716.5, 1719.6,  SOL 1410
     G 1729.6, 1683.1, 1628.5, 1683.5, 1727.0, 1707.8, 1689.4, 1698.4,  SOL 1420
     H 1733.1, 1737.8, 1714.1, 1734.6, 1750.1, 1750.1, 1760.3, 1764.3,  SOL 1430
     I 1765.3, 1769.4, 1779.9, 1793.0, 1765.1, 1729.4, 1745.9, 1753.4,  SOL 1440
     J 1758.1, 1775.0, 1768.4, 1767.9, 1789.5, 1806.6, 1799.3, 1782.6,  SOL 1450
     K 1779.3, 1792.1, 1809.7, 1808.0, 1794.4, 1818.6, 1774.2, 1648.5,  SOL 1460
     L 1674.3, 1789.3, 1847.2, 1848.3, 1812.9, 1796.4, 1840.3, 1868.3,  SOL 1470
     M 1864.6, 1873.2, 1872.2, 1856.0, 1845.0, 1842.4, 1823.9, 1795.1,  SOL 1480
     N 1819.6, 1861.5, 1857.7, 1838.6, 1840.5, 1863.5, 1876.8, 1884.4,  SOL 1490
     O 1894.9, 1875.2, 1821.2, 1779.4, 1810.2, 1855.3, 1831.8, 1837.3,  SOL 1500
     P 1882.3, 1866.4, 1819.6, 1804.8, 1831.4, 1861.6, 1867.1, 1862.9,  SOL 1510
     Q 1851.9, 1834.7, 1835.2, 1845.1, 1831.9, 1803.6, 1792.5, 1821.8,  SOL 1520
     R 1845.8, 1832.3, 1847.6, 1894.2, 1909.2, 1901.0, 1891.2, 1869.9 / SOL 1530
C         SOLAR SPECTRUM FROM  18100 TO  20960 CM-1,  IN STEPS OF 20 CM-SOL 1540
      DATA SUNA08  /                                                    SOL 1550
     A 1854.4, 1865.8, 1873.7, 1868.8, 1881.7, 1897.1, 1884.2, 1856.2,  SOL 1560
     B 1840.6, 1855.1, 1885.3, 1903.6, 1900.1, 1887.4, 1887.7, 1879.0,  SOL 1570
     C 1844.5, 1844.1, 1877.1, 1847.3, 1785.1, 1792.6, 1848.7, 1894.4,  SOL 1580
     D 1908.8, 1892.8, 1867.4, 1885.6, 1959.9, 1971.9, 1895.8, 1883.5,  SOL 1590
     E 1917.6, 1853.8, 1793.0, 1875.6, 1974.0, 1975.7, 1943.9, 1926.4,  SOL 1600
     F 1914.4, 1902.7, 1882.5, 1813.3, 1710.8, 1717.9, 1859.7, 1965.1,  SOL 1610
     G 1970.1, 1941.4, 1902.5, 1852.0, 1836.3, 1879.3, 1901.6, 1862.9,  SOL 1620
     H 1839.1, 1840.9, 1780.0, 1684.9, 1677.3, 1718.7, 1697.3, 1684.3,  SOL 1630
     I 1784.5, 1898.0, 1910.3, 1877.2, 1866.6, 1862.6, 1860.3, 1899.7,  SOL 1640
     J 1971.0, 1999.9, 1970.9, 1936.5, 1922.8, 1922.8, 1924.0, 1917.2,  SOL 1650
     K 1912.0, 1926.2, 1959.7, 1995.4, 1995.9, 1938.8, 1883.5, 1894.7,  SOL 1660
     L 1933.3, 1935.1, 1899.3, 1852.7, 1820.2, 1821.5, 1865.2, 1935.5,  SOL 1670
     M 1966.1, 1919.6, 1881.2, 1931.5, 2015.6, 2050.0, 2021.4, 1960.8,  SOL 1680
     N 1938.2, 1997.0, 2051.0, 2003.4, 1912.1, 1880.2, 1895.2, 1898.0,  SOL 1690
     O 1898.8, 1938.3, 1994.2, 2010.0, 1982.4, 1948.8, 1927.3, 1911.6,  SOL 1700
     P 1877.7, 1791.6, 1679.8, 1645.0, 1727.3, 1845.2, 1926.2, 1973.4,  SOL 1710
     Q 2005.2, 2021.6, 2021.8, 2025.7, 2054.3, 2086.5, 2082.6, 2052.9,  SOL 1720
     R 2047.1, 2070.2, 2072.4, 2038.1, 2020.2, 2049.9, 2074.0, 2038.1 / SOL 1730
C         SOLAR SPECTRUM FROM  20980 TO  23840 CM-1,  IN STEPS OF 20 CM-SOL 1740
       DATA SUNA09  /                                                   SOL 1750
     A 1978.6, 1963.5, 1996.8, 2037.5, 2057.5, 2048.2, 2018.4, 1999.2,  SOL 1760
     B 2011.4, 2039.5, 2056.0, 2040.2, 1981.8, 1911.4, 1891.8, 1938.3,  SOL 1770
     C 1991.7, 2005.5, 2000.8, 2011.3, 2022.7, 1997.5, 1947.7, 1936.3,  SOL 1780
     D 1986.6, 2037.9, 2032.8, 1995.7, 1984.0, 2012.0, 2055.5, 2091.6,  SOL 1790
     E 2106.5, 2094.9, 2070.4, 2052.8, 2046.7, 2043.8, 2035.5, 2016.6,  SOL 1800
     F 1988.4, 1973.3, 1999.0, 2057.4, 2103.8, 2109.4, 2089.4, 2068.5,  SOL 1810
     G 2051.8, 2031.2, 2005.9, 1986.7, 1981.5, 1979.4, 1964.1, 1943.6,  SOL 1820
     H 1951.8, 2007.3, 2083.2, 2139.1, 2158.0, 2143.3, 2103.2, 2050.9,  SOL 1830
     I 2001.9, 1974.5, 1988.0, 2037.8, 2075.1, 2050.6, 1971.5, 1884.5,  SOL 1840
     J 1828.5, 1820.9, 1866.4, 1935.3, 1974.2, 1958.7, 1925.1, 1920.2,  SOL 1850
     K 1949.7, 1984.6, 1996.4, 1966.4, 1884.8, 1781.9, 1726.8, 1759.4,  SOL 1860
     L 1817.4, 1800.4, 1692.6, 1593.2, 1598.6, 1700.3, 1823.8, 1909.7,  SOL 1870
     M 1937.7, 1902.5, 1822.4, 1737.8, 1683.2, 1666.8, 1682.7, 1715.3,  SOL 1880
     N 1734.1, 1712.4, 1668.2, 1655.0, 1698.1, 1727.2, 1636.9, 1415.7,  SOL 1890
     O 1204.2, 1155.8, 1278.4, 1450.0, 1560.5, 1595.1, 1587.8, 1570.6,  SOL 1900
     P 1565.8, 1590.3, 1640.5, 1688.4, 1708.1, 1703.6, 1700.7, 1718.5,  SOL 1910
     Q 1749.0, 1772.2, 1772.5, 1745.2, 1690.2, 1624.9, 1589.0, 1618.5,  SOL 1920
     R 1701.3, 1783.2, 1816.4, 1800.7, 1765.0, 1734.1, 1714.6, 1705.0 / SOL 1930
C         SOLAR SPECTRUM FROM  23860 TO  26720 CM-1,  IN STEPS OF 20 CM-SOL 1940
       DATA SUNA10  /                                                   SOL 1950
     A 1701.6, 1696.6, 1682.0, 1661.4, 1657.2, 1693.0, 1763.2, 1826.5,  SOL 1960
     B 1841.6, 1806.1, 1755.6, 1725.8, 1724.2, 1736.8, 1749.0, 1756.1,  SOL 1970
     C 1759.5, 1762.1, 1770.2, 1791.7, 1826.8, 1848.9, 1819.6, 1720.7,  SOL 1980
     D 1595.5, 1513.9, 1522.5, 1602.0, 1706.2, 1793.4, 1837.9, 1820.3,  SOL 1990
     E 1738.3, 1631.1, 1553.1, 1539.2, 1574.3, 1623.9, 1660.6, 1676.8,  SOL 2000
     F 1673.1, 1652.9, 1626.4, 1606.7, 1604.2, 1620.9, 1654.5, 1701.2,  SOL 2010
     G 1752.2, 1796.2, 1822.8, 1827.4, 1808.5, 1767.0, 1713.9, 1667.3,  SOL 2020
     H 1643.7, 1643.5, 1652.5, 1655.3, 1638.7, 1592.2, 1506.4, 1377.3,  SOL 2030
     I 1209.5, 1010.5, 807.59, 666.84, 664.53, 835.23, 1099.6, 1330.7,  SOL 2040
     J 1423.2, 1363.7, 1194.1, 961.77, 725.04, 551.29, 504.01, 596.30,  SOL 2050
     K 775.15, 975.62, 1150.2, 1287.2, 1386.1, 1447.5, 1473.7, 1468.5,  SOL 2060
     L 1435.2, 1376.9, 1296.0, 1195.5, 1085.3, 985.40, 917.25, 894.59,  SOL 2070
     M 910.86, 951.53, 1001.7, 1046.4, 1070.7, 1061.2, 1021.2, 977.16,  SOL 2080
     N 959.15, 982.06, 1020.5, 1032.6, 983.44, 879.83, 762.66, 675.28,  SOL 2090
     O 643.33, 662.65, 721.49, 808.35, 913.24, 1027.0, 1139.9, 1236.2,  SOL 2100
     P 1293.2, 1287.1, 1210.4, 1102.1, 1021.6, 1022.8, 1109.3, 1232.6,  SOL 2110
     Q 1337.0, 1383.1, 1372.8, 1324.7, 1257.7, 1188.8, 1133.5, 1106.5,  SOL 2120
     R 1113.7, 1136.8, 1147.9, 1121.4, 1054.1, 968.10, 889.19, 837.87 / SOL 2130
C         SOLAR SPECTRUM FROM  26740 TO  28780 CM-1,  IN STEPS OF 20 CM-SOL 2140
      DATA SUNA11  /                                                    SOL 2150
     A 817.64, 823.72, 851.04, 896.53, 959.85, 1041.2, 1137.6, 1231.2,  SOL 2160
     B 1294.4, 1299.9, 1241.2, 1155.0, 1092.0, 1097.1, 1170.2, 1263.5,  SOL 2170
     C 1322.4, 1307.4, 1233.6, 1146.1, 1090.8, 1092.5, 1134.6, 1188.9,  SOL 2180
     D 1228.9, 1245.5, 1248.5, 1250.3, 1260.5, 1274.6, 1279.5, 1261.8,  SOL 2190
     E 1214.3, 1145.4, 1069.6, 1001.4, 952.52, 930.48, 941.68, 990.34,  SOL 2200
     F 1064.4, 1135.2, 1171.5, 1149.1, 1076.3, 984.35, 906.25, 868.17,  SOL 2210
     G 873.75, 915.33, 984.41, 1067.2, 1137.1, 1163.1, 1115.5, 990.55,  SOL 2220
     H 830.93, 692.29, 627.44, 654.10, 739.24, 838.88, 911.69, 941.90,  SOL 2230
     I 944.42, 939.58, 946.10, 970.23, 1005.2, 1042.4, 1073.8, 1097.0,  SOL 2240
     J 1114.3, 1128.8, 1142.9, 1153.4, 1152.4, 1131.5, 1084.2, 1016.7,  SOL 2250
     K 945.95, 890.37, 866.15, 876.54, 913.13, 966.10, 1025.4, 1080.2,  SOL 2260
     L 1119.0, 1102.7, 1243.5, 1209.9, 1079.2, 852.20, 956.80, 842.31,  SOL 2270
     M 897.44, 1081.8, 914.23, 993.09, 1049.8, 844.95, 839.16/          SOL 2280
C         SOLAR SPECTRUM FROM  28400 TO  29830 CM-1,  IN STEPS OF 10 CM-SOL 2290
      DATA SUNB01  /                                                    SOL 2300
     A 876.54, 892.17, 913.13, 938.18, 966.10, 995.62, 1025.4, 1054.1,  SOL 2310
     B 1080.2, 1102.1, 1119.0, 1132.2, 1102.7, 1159.3, 1243.5, 1238.3,  SOL 2320
     C 1209.9, 1196.2, 1079.2, 895.60, 852.20, 935.59, 956.80, 897.09,  SOL 2330
     D 842.31, 821.15, 897.44, 1042.7, 1081.8, 988.79, 914.23, 929.38,  SOL 2340
     E 993.09, 1041.9, 1049.8, 984.33, 844.95, 770.76, 839.16, 939.65,  SOL 2350
     F 1026.1, 1121.1, 1162.6, 1142.6, 1077.9, 1027.3, 1078.2, 1094.3,  SOL 2360
     G 969.83, 853.72, 849.91, 909.12, 995.68, 1095.0, 1146.9, 1086.3,  SOL 2370
     H 1010.4, 1065.4, 1128.9, 1080.6, 987.93, 898.18, 835.20, 771.63,  SOL 2380
     I 687.12, 614.52, 606.14, 737.09, 908.13, 997.64, 1080.6, 1126.3,  SOL 2390
     J 1056.7, 1028.4, 1141.7, 1252.6, 1225.3, 1103.2, 1038.6, 1043.4,  SOL 2400
     K 1002.9, 965.51, 1035.0, 1150.7, 1200.9, 1152.0, 1068.5, 995.84,  SOL 2410
     L 889.52, 818.48, 907.01, 1042.2, 1055.6, 1000.6, 972.00, 985.72,  SOL 2420
     M 1027.2, 1054.8, 1078.0, 1126.6, 1205.3, 1245.7, 1201.0, 1144.7,  SOL 2430
     N 1097.5, 1030.1, 926.85, 836.71, 864.11, 993.50, 1075.3, 1032.6,  SOL 2440
     O 1008.9, 1066.1, 1067.4, 1004.8, 971.54, 923.18, 815.71, 799.70,  SOL 2450
     P 946.19, 1100.1, 1126.4, 1032.2, 895.14, 784.30, 734.77, 726.53,  SOL 2460
     Q 726.88, 765.54, 863.90, 992.24, 1070.9, 1028.1, 858.78, 647.15,  SOL 2470
     R 563.18, 679.98, 906.40, 1094.3, 1155.3, 1124.3, 1098.4, 1109.5 / SOL 2480
C         SOLAR SPECTRUM FROM  29840 TO  31270 CM-1,  IN STEPS OF 10 CM-SOL 2490
      DATA SUNB02  /                                                    SOL 2500
     A 1076.2, 944.17, 849.20, 928.54, 1062.0, 1118.9, 1119.2, 1074.6,  SOL 2510
     B 1005.8, 980.02, 999.11, 1002.4, 939.78, 838.12, 816.13, 908.73,  SOL 2520
     C 1014.9, 1058.3, 1043.7, 987.54, 946.35, 981.40, 1055.8, 1094.3,  SOL 2530
     D 1028.3, 916.41, 908.99, 991.83, 1049.6, 1076.2, 1093.5, 1076.3,  SOL 2540
     E 1014.5, 949.61, 947.26, 1001.2, 1051.5, 1072.8, 1068.0, 1012.5,  SOL 2550
     F 907.81, 866.30, 950.89, 1037.5, 1079.5, 1183.9, 1291.3, 1268.6,  SOL 2560
     G 1199.3, 1188.6, 1188.0, 1186.6, 1198.2, 1171.3, 1132.6, 1131.6,  SOL 2570
     H 1096.0, 971.10, 847.07, 836.62, 922.78, 990.99, 987.51, 969.24,  SOL 2580
     I 981.46, 981.36, 971.95, 985.34, 1003.0, 1037.2, 1071.2, 1065.7,  SOL 2590
     J 1026.7, 984.84, 1002.7, 1070.3, 1117.5, 1116.0, 1048.9, 965.34,  SOL 2600
     K 972.27, 1045.7, 1096.6, 1127.5, 1133.5, 1099.6, 1079.3, 1082.9,  SOL 2610
     L 1026.8, 927.50, 879.08, 858.83, 831.01, 807.82, 789.56, 813.75,  SOL 2620
     M 893.46, 937.62, 901.56, 864.46, 873.35, 891.03, 862.46, 810.30,  SOL 2630
     N 787.36, 752.93, 715.34, 708.07, 728.93, 786.79, 807.73, 736.28,  SOL 2640
     O 645.08, 616.90, 649.17, 691.77, 749.18, 820.21, 820.68, 791.26,  SOL 2650
     P 854.27, 940.56, 956.38, 909.42, 824.18, 767.17, 722.06, 653.42,  SOL 2660
     Q 624.67, 633.73, 655.14, 707.93, 784.94, 880.79, 961.15, 985.60,  SOL 2670
     R 986.18, 966.53, 921.47, 888.89, 855.85, 851.66, 886.78, 850.97 / SOL 2680
C         SOLAR SPECTRUM FROM  31280 TO  32710 CM-1,  IN STEPS OF 10 CM-SOL 2690
      DATA SUNB03  /                                                    SOL 2700
     A 766.97, 738.95, 724.53, 657.61, 587.77, 616.86, 760.61, 903.23,  SOL 2710
     B 917.27, 838.49, 784.80, 759.41, 719.61, 671.48, 624.63, 588.57,  SOL 2720
     C 574.70, 596.68, 698.02, 866.39, 974.82, 960.37, 930.10, 962.65,  SOL 2730
     D 1007.1, 1001.9, 926.29, 816.64, 763.25, 772.93, 762.66, 729.39,  SOL 2740
     E 725.01, 727.16, 672.73, 581.42, 520.97, 488.80, 478.60, 542.08,  SOL 2750
     F 663.71, 749.48, 785.87, 811.05, 818.19, 813.80, 824.54, 836.62,  SOL 2760
     G 799.66, 728.00, 660.36, 559.28, 473.28, 550.16, 752.04, 885.84,  SOL 2770
     H 906.80, 912.21, 929.32, 899.72, 830.20, 774.56, 736.42, 724.09,  SOL 2780
     I 740.12, 754.11, 764.96, 780.76, 788.94, 784.87, 758.80, 725.91,  SOL 2790
     J 751.84, 804.24, 777.73, 703.36, 665.27, 663.99, 679.36, 706.09,  SOL 2800
     K 757.57, 836.09, 880.02, 881.18, 907.91, 929.26, 894.32, 874.01,  SOL 2810
     L 918.56, 953.50, 922.32, 866.61, 836.54, 825.28, 752.54, 586.02,  SOL 2820
     M 427.46, 374.05, 437.23, 534.32, 556.74, 563.11, 629.31, 631.26,  SOL 2830
     N 518.76, 438.31, 460.31, 530.45, 608.50, 657.99, 662.08, 686.17,  SOL 2840
     O 775.18, 843.11, 797.46, 685.33, 611.33, 628.74, 711.36, 754.94,  SOL 2850
     P 728.80, 722.79, 726.38, 679.68, 665.83, 710.48, 723.10, 724.09,  SOL 2860
     Q 760.18, 784.01, 742.78, 634.33, 546.55, 563.54, 611.03, 623.16,  SOL 2870
     R 665.36, 743.55, 764.46, 671.14, 513.18, 401.86, 405.77, 515.72 / SOL 2880
C         SOLAR SPECTRUM FROM  32720 TO  34150 CM-1,  IN STEPS OF 10 CM-SOL 2890
      DATA SUNB04  /                                                    SOL 2900
     A 639.90, 677.85, 679.55, 759.33, 848.11, 819.89, 751.75, 710.50,  SOL 2910
     B 615.33, 525.09, 583.35, 715.23, 767.53, 739.10, 664.05, 580.57,  SOL 2920
     C 572.85, 634.13, 648.77, 561.27, 497.72, 591.71, 737.83, 794.19,  SOL 2930
     D 802.51, 799.33, 735.79, 658.41, 659.47, 718.18, 761.67, 697.24,  SOL 2940
     E 545.14, 474.47, 526.96, 597.65, 584.74, 447.28, 291.35, 261.28,  SOL 2950
     F 330.26, 401.96, 466.32, 531.26, 572.34, 584.86, 585.17, 569.46,  SOL 2960
     G 558.27, 559.41, 512.02, 426.37, 378.14, 398.26, 473.49, 542.18,  SOL 2970
     H 531.76, 437.48, 341.85, 305.82, 299.88, 328.12, 440.04, 586.46,  SOL 2980
     I 660.32, 625.22, 510.26, 418.85, 447.36, 534.89, 605.86, 667.07,  SOL 2990
     J 687.31, 636.79, 549.63, 472.88, 419.53, 370.06, 327.98, 320.49,  SOL 3000
     K 354.00, 399.17, 450.98, 528.34, 608.25, 696.07, 774.28, 760.75,  SOL 3010
     L 690.58, 648.20, 580.63, 477.96, 453.91, 488.74, 464.02, 421.59,  SOL 3020
     M 444.32, 446.59, 375.95, 342.13, 397.49, 510.97, 646.38, 725.14,  SOL 3030
     N 703.06, 639.06, 619.10, 654.66, 665.99, 611.40, 580.22, 607.29,  SOL 3040
     O 591.05, 542.30, 583.82, 673.02, 673.21, 582.44, 465.73, 377.25,  SOL 3050
     P 377.04, 487.27, 607.93, 617.52, 583.46, 601.68, 615.94, 575.47,  SOL 3060
     Q 541.63, 542.06, 522.28, 472.49, 423.29, 438.09, 556.72, 664.34,  SOL 3070
     R 669.88, 657.45, 684.71, 705.70, 683.11, 600.81, 509.90, 497.64 / SOL 3080
C         SOLAR SPECTRUM FROM  34160 TO  35590 CM-1,  IN STEPS OF 10 CM-SOL 3090
      DATA SUNB05  /                                                    SOL 3100
     A 511.07, 496.07, 500.32, 518.70, 529.91, 563.00, 609.20, 626.49,  SOL 3110
     B 622.11, 615.72, 600.44, 591.26, 598.12, 593.07, 590.94, 631.58,  SOL 3120
     C 696.48, 718.48, 676.11, 631.56, 619.64, 620.53, 624.10, 636.56,  SOL 3130
     D 658.02, 688.78, 724.81, 742.60, 722.31, 675.86, 665.96, 704.73,  SOL 3140
     E 703.70, 645.00, 598.26, 587.77, 590.94, 575.93, 528.03, 477.92,  SOL 3150
     F 457.52, 456.80, 454.91, 448.65, 445.47, 445.38, 444.43, 446.04,  SOL 3160
     G 455.91, 468.02, 454.34, 393.32, 301.22, 211.44, 167.11, 193.99,  SOL 3170
     H 254.01, 305.35, 353.03, 385.08, 387.03, 391.60, 406.20, 415.34,  SOL 3180
     I 435.34, 469.77, 492.15, 472.73, 409.86, 353.25, 340.68, 355.27,  SOL 3190
     J 379.77, 401.81, 409.67, 406.89, 393.16, 378.89, 375.20, 373.52,  SOL 3200
     K 360.19, 322.79, 273.55, 237.76, 212.33, 184.80, 156.20, 127.75,  SOL 3210
     L 96.269, 68.806, 62.047, 77.143, 100.47, 127.56, 159.88, 194.05,  SOL 3220
     M 225.20, 254.64, 285.75, 300.14, 294.40, 308.92, 340.83, 346.26,  SOL 3230
     N 336.29, 347.54, 373.81, 388.78, 372.68, 325.29, 294.40, 317.56,  SOL 3240
     O 360.30, 378.08, 374.22, 374.03, 383.34, 387.88, 377.55, 356.96,  SOL 3250
     P 340.67, 328.71, 314.00, 316.91, 344.51, 355.54, 335.66, 318.68,  SOL 3260
     Q 318.65, 322.43, 318.61, 304.92, 284.84, 268.13, 265.80, 273.55,  SOL 3270
     R 274.18, 252.38, 215.04, 188.60, 181.31, 181.31, 180.78, 175.24 / SOL 3280
C         SOLAR SPECTRUM FROM  35600 TO  37030 CM-1,  IN STEPS OF 10 CM-SOL 3290
      DATA SUNB06  /                                                    SOL 3300
     A 162.06, 145.08, 128.76, 113.76, 98.078, 83.072, 76.222, 78.359,  SOL 3310
     B 78.434, 74.235, 75.843, 80.321, 77.859, 70.298, 64.651, 67.049,  SOL 3320
     C 77.810, 83.167, 75.286, 71.202, 80.549, 92.008, 100.17, 108.63,  SOL 3330
     D 119.44, 130.78, 142.31, 158.94, 177.12, 186.40, 186.60, 181.47,  SOL 3340
     E 175.30, 175.54, 179.00, 177.04, 172.60, 172.67, 178.98, 193.77,  SOL 3350
     F 215.13, 233.62, 252.05, 277.68, 298.91, 298.40, 280.81, 274.21,  SOL 3360
     G 286.52, 285.46, 259.71, 241.39, 246.98, 259.87, 274.27, 298.47,  SOL 3370
     H 316.85, 303.19, 263.69, 229.31, 227.90, 256.12, 281.58, 300.19,  SOL 3380
     I 310.56, 279.54, 211.93, 152.18, 129.94, 147.47, 181.62, 215.37,  SOL 3390
     J 239.50, 233.12, 191.55, 139.41, 110.51, 118.93, 134.79, 129.05,  SOL 3400
     K 124.39, 143.53, 158.29, 141.84, 116.32, 111.59, 128.93, 149.17,  SOL 3410
     L 153.44, 145.63, 148.52, 159.25, 155.84, 154.17, 177.28, 203.40,  SOL 3420
     M 207.35, 205.27, 222.85, 253.18, 271.28, 279.27, 302.17, 321.47,  SOL 3430
     N 288.83, 230.14, 206.40, 213.22, 216.49, 207.46, 196.20, 195.21,  SOL 3440
     O 202.03, 194.33, 164.86, 136.65, 123.87, 128.14, 161.89, 216.99,  SOL 3450
     P 253.68, 249.26, 222.89, 213.11, 243.64, 293.10, 309.42, 286.40,  SOL 3460
     Q 269.61, 272.23, 271.67, 265.84, 265.61, 264.77, 266.03, 289.51,  SOL 3470
     R 325.67, 337.34, 321.17, 300.30, 282.60, 287.14, 322.06, 335.79 / SOL 3480
C         SOLAR SPECTRUM FROM  37040 TO  38470 CM-1,  IN STEPS OF 10 CM-SOL 3490
       DATA SUNB07  /                                                   SOL 3500
     A 297.22, 254.10, 243.47, 239.49, 219.32, 211.94, 239.28, 271.43,  SOL 3510
     B 279.37, 272.26, 264.77, 250.52, 229.93, 222.15, 235.30, 256.79,  SOL 3520
     C 275.28, 286.92, 284.85, 269.52, 255.05, 253.46, 263.22, 274.78,  SOL 3530
     D 279.19, 270.17, 249.41, 229.04, 221.64, 231.38, 252.70, 280.64,  SOL 3540
     E 310.06, 328.33, 325.01, 290.26, 238.97, 223.38, 257.24, 282.60,  SOL 3550
     F 264.32, 243.34, 253.18, 272.89, 271.32, 256.12, 260.24, 271.35,  SOL 3560
     G 257.11, 236.61, 238.72, 248.92, 255.90, 272.04, 291.78, 297.40,  SOL 3570
     H 288.09, 283.28, 292.92, 301.74, 309.07, 322.05, 320.42, 295.43,  SOL 3580
     I 269.65, 254.41, 240.88, 228.18, 221.23, 213.72, 201.23, 197.17,  SOL 3590
     J 212.29, 233.39, 247.65, 261.74, 286.17, 322.49, 349.47, 338.28,  SOL 3600
     K 297.06, 261.55, 252.28, 264.65, 286.92, 298.94, 280.45, 244.37,  SOL 3610
     L 213.47, 193.03, 182.07, 168.54, 143.12, 114.10, 89.615, 73.589,  SOL 3620
     M 73.990, 87.912, 96.265, 94.813, 96.604, 102.30, 102.15, 103.07,  SOL 3630
     N 117.81, 137.41, 146.09, 144.28, 137.89, 128.11, 122.82, 128.19,  SOL 3640
     O 130.66, 117.31, 98.912, 93.397, 105.63, 122.73, 126.39, 113.05,  SOL 3650
     P 92.317, 76.340, 69.032, 66.324, 71.280, 87.431, 105.94, 114.02,  SOL 3660
     Q 107.91, 91.872, 75.208, 69.123, 75.930, 90.928, 109.71, 125.70,  SOL 3670
     R 135.79, 141.14, 138.14, 121.33, 91.806, 63.497, 52.106, 59.555 / SOL 3680
C         SOLAR SPECTRUM FROM  38480 TO  39910 CM-1,  IN STEPS OF 10 CM-SOL 3690
      DATA SUNB08  /                                                    SOL 3700
     A 81.015, 106.67, 118.97, 116.36, 110.82, 100.88, 89.056, 90.431,  SOL 3710
     B 104.41, 114.95, 124.85, 148.87, 171.72, 167.22, 142.25, 118.42,  SOL 3720
     C 98.653, 78.908, 68.133, 77.286, 100.93, 120.08, 125.49, 131.79,  SOL 3730
     D 155.69, 180.75, 181.81, 166.77, 150.06, 133.24, 116.14, 97.728,  SOL 3740
     E 81.629, 76.695, 87.607, 110.23, 134.88, 149.13, 147.64, 139.88,  SOL 3750
     F 135.19, 135.07, 138.00, 136.73, 128.84, 122.22, 120.48, 121.98,  SOL 3760
     G 123.08, 116.30, 101.43, 86.303, 74.719, 68.800, 71.327, 80.626,  SOL 3770
     H 90.485, 96.739, 100.69, 100.81, 93.677, 84.740, 81.532, 82.893,  SOL 3780
     I 84.564, 87.584, 91.780, 91.272, 87.014, 87.386, 90.149, 84.917,  SOL 3790
     J 71.266, 57.873, 51.863, 53.876, 57.909, 58.508, 57.020, 57.432,  SOL 3800
     K 60.671, 64.667, 67.362, 67.511, 64.233, 59.035, 55.697, 56.636,  SOL 3810
     L 59.400, 59.070, 56.522, 55.834, 55.860, 54.039, 51.976, 52.344,  SOL 3820
     M 54.667, 56.450, 56.751, 56.769, 58.002, 60.029, 59.602, 53.134,  SOL 3830
     N 42.926, 35.588, 33.447, 35.171, 39.379, 44.371, 47.745, 46.933,  SOL 3840
     O 42.441, 37.879, 35.595, 36.458, 41.048, 47.300, 51.098, 50.024,  SOL 3850
     P 45.331, 41.282, 40.082, 40.000, 39.104, 37.329, 36.632, 37.792,  SOL 3860
     Q 39.189, 41.058, 45.214, 50.737, 54.281, 55.015, 56.138, 60.931,  SOL 3870
     R 67.383, 69.534, 65.159, 56.372, 47.326, 44.322, 49.944, 59.696 / SOL 3880
C         SOLAR SPECTRUM FROM  39920 TO  41350 CM-1,  IN STEPS OF 10 CM-SOL 3890
       DATA SUNB09  /                                                   SOL 3900
     A 67.929, 71.334, 69.905, 65.620, 59.303, 54.016, 55.880, 65.155,  SOL 3910
     B 74.065, 76.217, 73.506, 71.406, 70.849, 69.749, 69.268, 71.380,  SOL 3920
     C 72.721, 68.929, 61.665, 54.896, 47.420, 38.325, 32.219, 31.243,  SOL 3930
     D 33.310, 35.358, 35.623, 36.840, 41.551, 47.499, 51.176, 50.344,  SOL 3940
     E 45.362, 38.341, 33.130, 33.801, 40.140, 49.121, 55.385, 55.174,  SOL 3950
     F 50.450, 46.511, 47.495, 51.883, 56.354, 59.603, 61.584, 63.215,  SOL 3960
     G 64.603, 64.101, 59.027, 50.956, 47.633, 52.543, 58.883, 59.829,  SOL 3970
     H 57.617, 56.727, 57.371, 57.898, 57.177, 55.129, 52.952, 52.018,  SOL 3980
     I 52.186, 52.044, 50.269, 46.592, 42.515, 40.755, 41.887, 44.119,  SOL 3990
     J 46.536, 48.858, 50.490, 51.919, 54.085, 54.707, 51.927, 49.449,  SOL 4000
     K 49.865, 50.933, 50.496, 48.616, 46.717, 46.070, 46.263, 46.733,  SOL 4010
     L 48.009, 50.187, 52.420, 53.536, 52.507, 51.380, 53.214, 56.985,  SOL 4020
     M 60.614, 63.139, 63.999, 63.869, 65.100, 69.385, 74.743, 78.184,  SOL 4030
     N 78.103, 74.113, 67.371, 60.849, 58.924, 62.682, 68.032, 69.117,  SOL 4040
     O 64.604, 59.110, 55.998, 56.838, 61.778, 65.874, 65.079, 63.038,  SOL 4050
     P 64.809, 69.911, 74.841, 76.439, 73.587, 68.853, 67.497, 72.675,  SOL 4060
     Q 80.602, 83.422, 78.957, 72.228, 66.737, 62.842, 61.535, 63.574,  SOL 4070
     R 69.248, 76.577, 79.922, 77.755, 73.938, 70.518, 68.003, 66.339 / SOL 4080
C         SOLAR SPECTRUM FROM  41360 TO  42790 CM-1,  IN STEPS OF 10 CM-SOL 4090
      DATA SUNB10  /                                                    SOL 4100
     A 63.979, 61.098, 59.421, 58.103, 55.741, 52.549, 48.079, 42.578,  SOL 4110
     B 38.373, 37.297, 37.455, 34.861, 30.483, 29.634, 34.734, 42.460,  SOL 4120
     C 47.066, 45.848, 40.157, 34.290, 31.584, 30.650, 29.054, 27.788,  SOL 4130
     D 30.427, 37.570, 44.196, 46.880, 47.848, 49.166, 49.180, 45.002,  SOL 4140
     E 38.135, 35.055, 38.095, 41.750, 40.899, 35.722, 28.884, 24.835,  SOL 4150
     F 28.670, 39.646, 50.310, 55.725, 57.401, 58.110, 59.406, 59.360,  SOL 4160
     G 53.420, 43.004, 34.787, 33.697, 39.682, 47.554, 52.605, 53.632,  SOL 4170
     H 51.001, 45.266, 37.844, 31.030, 25.936, 22.799, 21.882, 23.484,  SOL 4180
     I 27.857, 33.447, 37.319, 39.195, 42.826, 50.398, 58.752, 63.301,  SOL 4190
     J 61.094, 53.532, 46.046, 41.118, 37.646, 36.304, 40.426, 50.893,  SOL 4200
     K 61.553, 65.395, 62.680, 58.087, 54.622, 51.330, 46.874, 42.870,  SOL 4210
     L 40.547, 39.760, 40.217, 40.359, 39.559, 40.667, 46.260, 53.413,  SOL 4220
     M 56.041, 52.566, 46.674, 41.073, 35.511, 31.231, 31.082, 35.955,  SOL 4230
     N 45.199, 55.464, 61.802, 63.505, 61.850, 56.412, 49.388, 46.369,  SOL 4240
     O 50.058, 56.694, 60.884, 61.030, 58.107, 54.303, 51.940, 50.508,  SOL 4250
     P 46.749, 39.155, 31.535, 28.959, 30.973, 32.670, 31.567, 29.340,  SOL 4260
     Q 27.275, 25.184, 24.264, 27.068, 34.296, 42.475, 47.230, 47.425,  SOL 4270
     R 44.435, 40.538, 36.868, 33.020, 29.405, 28.753, 34.079, 44.246 / SOL 4280
C         SOLAR SPECTRUM FROM  42800 TO  44230 CM-1,  IN STEPS OF 10 CM-SOL 4290
      DATA SUNB11  /                                                    SOL 4300
     A 53.780, 57.974, 56.376, 51.200, 45.308, 40.273, 35.900, 33.344,  SOL 4310
     B 34.011, 36.858, 41.283, 47.374, 53.088, 56.201, 55.633, 50.843,  SOL 4320
     C 43.997, 38.767, 36.248, 36.380, 40.762, 50.700, 63.371, 73.432,  SOL 4330
     D 76.418, 70.373, 58.741, 47.034, 38.598, 34.664, 35.794, 42.084,  SOL 4340
     E 49.973, 54.338, 53.956, 52.287, 52.778, 55.571, 59.034, 60.268,  SOL 4350
     F 56.247, 47.362, 38.056, 32.889, 31.739, 31.734, 32.476, 35.060,  SOL 4360
     G 39.091, 43.398, 48.131, 53.574, 58.749, 63.599, 68.971, 73.421,  SOL 4370
     H 73.861, 69.003, 60.557, 51.865, 44.879, 42.060, 44.802, 47.950,  SOL 4380
     I 46.882, 42.973, 39.293, 37.711, 37.137, 35.222, 32.243, 30.488,  SOL 4390
     J 32.605, 40.429, 51.099, 57.710, 57.150, 52.992, 50.275, 49.986,  SOL 4400
     K 49.778, 48.371, 46.421, 44.604, 42.730, 41.244, 41.565, 43.805,  SOL 4410
     L 47.013, 48.992, 46.428, 40.595, 37.840, 42.353, 52.248, 60.529,  SOL 4420
     M 61.566, 56.800, 52.041, 52.260, 57.077, 61.019, 60.712, 57.048,  SOL 4430
     N 51.481, 46.352, 44.366, 44.947, 45.478, 44.944, 43.825, 42.105,  SOL 4440
     O 39.466, 36.826, 35.907, 36.357, 35.661, 33.947, 33.690, 34.429,  SOL 4450
     P 34.000, 32.645, 31.410, 30.281, 29.409, 29.127, 29.326, 29.869,  SOL 4460
     Q 30.601, 31.311, 32.099, 32.779, 32.757, 32.098, 31.975, 33.484,  SOL 4470
     R 36.048, 39.169, 43.365, 47.244, 48.214, 45.786, 41.586, 38.775 / SOL 4480
C         SOLAR SPECTRUM FROM  44240 TO  45670 CM-1,  IN STEPS OF 10 CM-SOL 4490
      DATA SUNB12  /                                                    SOL 4500
     A 40.753, 46.752, 51.684, 52.597, 51.449, 50.684, 49.450, 46.747,  SOL 4510
     B 45.369, 47.685, 50.240, 48.961, 46.693, 48.600, 53.694, 56.465,  SOL 4520
     C 54.341, 50.722, 49.877, 51.246, 52.088, 52.765, 56.254, 63.326,  SOL 4530
     D 69.744, 71.066, 68.349, 65.123, 62.551, 59.195, 53.705, 48.161,  SOL 4540
     E 46.236, 47.710, 49.660, 50.799, 51.836, 54.537, 59.647, 64.707,  SOL 4550
     F 65.844, 61.634, 55.570, 54.083, 58.781, 64.888, 69.777, 74.008,  SOL 4560
     G 76.492, 76.226, 74.746, 74.941, 77.801, 79.619, 76.190, 67.190,  SOL 4570
     H 55.231, 45.813, 43.141, 45.647, 49.466, 52.231, 52.221, 48.886,  SOL 4580
     I 44.716, 42.613, 43.385, 45.968, 48.121, 48.998, 49.885, 50.707,  SOL 4590
     J 49.893, 48.319, 48.198, 50.280, 53.830, 55.914, 54.822, 52.939,  SOL 4600
     K 51.944, 49.438, 42.956, 34.614, 28.100, 24.503, 24.203, 27.839,  SOL 4610
     L 34.604, 41.615, 45.324, 45.444, 45.527, 47.179, 45.756, 36.862,  SOL 4620
     M 26.037, 20.569, 20.329, 24.263, 30.863, 35.939, 36.711, 35.693,  SOL 4630
     N 37.256, 40.862, 44.416, 48.800, 54.182, 57.655, 58.427, 59.965,  SOL 4640
     O 63.940, 66.820, 65.465, 59.482, 49.396, 39.422, 34.182, 35.388,  SOL 4650
     P 42.875, 52.034, 57.595, 59.093, 57.272, 52.172, 45.493, 39.419,  SOL 4660
     Q 35.581, 35.902, 40.354, 46.732, 53.309, 58.781, 61.785, 59.255,  SOL 4670
     R 50.030, 41.567, 40.523, 43.584, 44.875, 42.754, 40.077, 39.941 / SOL 4680
C         SOLAR SPECTRUM FROM  45680 TO  47110 CM-1,  IN STEPS OF 10 CM-SOL 4690
      DATA SUNB13  /                                                    SOL 4700
     A 40.977, 39.567, 34.955, 30.424, 31.039, 38.687, 47.480, 49.830,  SOL 4710
     B 46.790, 44.829, 46.546, 50.415, 54.602, 57.656, 58.463, 57.276,  SOL 4720
     C 55.621, 54.514, 53.338, 50.026, 42.817, 33.636, 27.134, 25.516,  SOL 4730
     D 27.897, 31.392, 32.125, 29.463, 26.581, 25.956, 27.737, 31.175,  SOL 4740
     E 34.959, 37.671, 38.641, 37.958, 36.733, 35.681, 33.877, 30.849,  SOL 4750
     F 28.059, 27.615, 29.319, 29.375, 25.390, 20.659, 19.484, 22.297,  SOL 4760
     G 27.282, 32.467, 35.906, 37.137, 37.895, 39.130, 39.777, 39.872,  SOL 4770
     H 40.778, 42.317, 42.934, 40.430, 34.227, 27.701, 23.880, 22.174,  SOL 4780
     I 21.639, 22.589, 25.184, 29.017, 32.981, 36.110, 38.580, 41.239,  SOL 4790
     J 44.426, 46.939, 47.010, 44.165, 39.659, 35.556, 32.838, 31.546,  SOL 4800
     K 32.676, 36.963, 42.333, 44.931, 43.704, 40.943, 37.973, 35.199,  SOL 4810
     L 33.574, 33.339, 34.185, 36.347, 39.963, 43.964, 47.162, 48.987,  SOL 4820
     M 48.976, 47.948, 48.004, 49.892, 51.065, 47.834, 40.489, 32.665,  SOL 4830
     N 26.795, 24.461, 26.655, 31.928, 37.634, 41.345, 40.956, 36.827,  SOL 4840
     O 32.110, 28.612, 26.482, 26.602, 28.831, 30.877, 30.976, 30.063,  SOL 4850
     P 29.887, 30.305, 29.974, 28.265, 26.517, 27.066, 30.403, 34.539,  SOL 4860
     Q 37.104, 37.598, 37.252, 37.060, 36.498, 34.167, 29.814, 24.192,  SOL 4870
     R 18.515, 15.086, 15.040, 17.158, 20.807, 25.682, 30.352, 34.203 / SOL 4880
C         SOLAR SPECTRUM FROM  47120 TO  48550 CM-1,  IN STEPS OF 10 CM-SOL 4890
      DATA SUNB14  /                                                    SOL 4900
     A 37.902, 42.531, 47.832, 50.509, 48.019, 42.616, 38.321, 37.370,  SOL 4910
     B 40.172, 44.395, 46.132, 43.911, 38.396, 31.379, 26.275, 25.075,  SOL 4920
     C 26.652, 28.963, 31.168, 34.168, 38.050, 40.231, 38.347, 32.741,  SOL 4930
     D 26.199, 21.863, 20.249, 20.185, 21.726, 25.562, 30.318, 33.431,  SOL 4940
     E 34.453, 34.959, 36.374, 37.870, 36.655, 31.966, 25.920, 21.264,  SOL 4950
     F 20.663, 24.658, 30.263, 34.021, 34.336, 31.356, 26.926, 23.109,  SOL 4960
     G 20.867, 20.684, 22.416, 24.878, 26.779, 27.334, 26.537, 25.210,  SOL 4970
     H 24.013, 22.944, 21.800, 20.449, 19.290, 19.528, 21.742, 24.125,  SOL 4980
     I 23.994, 21.559, 19.555, 18.915, 18.342, 17.335, 16.549, 16.479,  SOL 4990
     J 17.211, 18.445, 19.294, 18.980, 17.912, 17.156, 17.103, 17.256,  SOL 5000
     K 16.925, 15.842, 14.485, 13.683, 13.647, 13.914, 14.009, 13.770,  SOL 5010
     L 13.456, 13.399, 13.547, 13.760, 14.060, 14.427, 14.644, 14.438,  SOL 5020
     M 13.986, 13.749, 13.927, 14.390, 14.759, 14.822, 14.679, 14.448,  SOL 5030
     N 14.186, 13.937, 13.754, 13.657, 13.540, 13.308, 13.053, 12.841,  SOL 5040
     O 12.704, 12.742, 12.811, 12.662, 12.355, 12.100, 12.003, 12.014,  SOL 5050
     P 12.067, 12.223, 12.444, 12.472, 12.164, 11.732, 11.515, 11.619,  SOL 5060
     Q 11.873, 12.028, 11.947, 11.722, 11.399, 10.930, 10.473, 10.205,  SOL 5070
     R 10.224, 10.694, 11.468, 12.007, 12.083, 11.905, 11.498, 10.891 / SOL 5080
C         SOLAR SPECTRUM FROM  48560 TO  49990 CM-1,  IN STEPS OF 10 CM-SOL 5090
      DATA SUNB15  /                                                    SOL 5100
     A 10.575, 10.846, 11.353, 11.612, 11.411, 10.876, 10.383, 10.305,  SOL 5110
     B 10.695, 11.245, 11.636, 11.828, 11.918, 11.865, 11.674, 11.510,  SOL 5120
     C 11.407, 11.303, 11.216, 11.143, 11.039, 10.983, 11.004, 10.900,  SOL 5130
     D 10.653, 10.562, 10.781, 11.186, 11.605, 11.806, 11.582, 11.056,  SOL 5140
     E 10.567, 10.335, 10.408, 10.729, 11.165, 11.540, 11.646, 11.372,  SOL 5150
     F 10.933, 10.524, 9.9973, 9.3783, 8.9883, 9.0163, 9.4125, 9.9179,  SOL 5160
     G 10.278, 10.472, 10.553, 10.575, 10.519, 10.216, 9.6821, 9.1499,  SOL 5170
     H 8.7057, 8.3894, 8.3442, 8.6241, 9.1371, 9.7184, 10.191, 10.443,  SOL 5180
     I 10.458, 10.289, 9.9772, 9.5829, 9.3097, 9.3195, 9.4694, 9.5182,  SOL 5190
     J 9.4326, 9.2478, 8.8197, 7.9809, 6.9996, 6.4856, 6.7462, 7.5406,  SOL 5200
     K 8.2813, 8.7258, 9.0682, 9.1665, 8.8637, 8.4638, 8.2393, 8.1656,  SOL 5210
     L 8.1880, 8.3578, 8.6488, 8.8980, 9.0117, 9.0659, 9.1955, 9.4207,  SOL 5220
     M 9.5526, 9.4237, 9.1290, 8.8441, 8.6138, 8.4237, 8.2979, 8.2598,  SOL 5230
     N 8.2859, 8.3475, 8.4533, 8.6285, 8.8310, 8.8866, 8.6750, 8.3312,  SOL 5240
     O 8.0091, 7.7296, 7.6239, 7.8692, 8.2725, 8.4086, 8.2515, 8.0914,  SOL 5250
     P 8.0003, 7.9367, 7.9266, 7.9580, 8.0492, 8.2376, 8.4263, 8.4811,  SOL 5260
     Q 8.3309, 8.0263, 7.7632, 7.6987, 7.8124, 7.9390, 8.0183, 8.0816,  SOL 5270
     R 8.0428, 7.8923, 7.6963, 7.4969, 7.4013, 7.4289, 7.4489, 7.4059 / SOL 5280
C         SOLAR SPECTRUM FROM  50000 TO  51430 CM-1,  IN STEPS OF 10 CM-SOL 5290
      DATA SUNB16  /                                                    SOL 5300
     A 7.4198, 7.5261, 7.5252, 7.3239, 7.1263, 7.1423, 7.3340, 7.5049,  SOL 5310
     B 7.5484, 7.5319, 7.5163, 7.4995, 7.5728, 7.8104, 8.0588, 8.0948,  SOL 5320
     C 7.9140, 7.6978, 7.5116, 7.2138, 6.8063, 6.5430, 6.5232, 6.5869,  SOL 5330
     D 6.5610, 6.3984, 6.1889, 6.0587, 6.0676, 6.1988, 6.3140, 6.2527,  SOL 5340
     E 6.0929, 6.0277, 6.0941, 6.3031, 6.6594, 6.9398, 6.9566, 6.8310,  SOL 5350
     F 6.7374, 6.6812, 6.6558, 6.8336, 7.2020, 7.4012, 7.2950, 7.0488,  SOL 5360
     G 6.7966, 6.6293, 6.5868, 6.5980, 6.6007, 6.6501, 6.7627, 6.7853,  SOL 5370
     H 6.6321, 6.4856, 6.5198, 6.6486, 6.7271, 6.7227, 6.6696, 6.6189,  SOL 5380
     I 6.5979, 6.6188, 6.7110, 6.8343, 6.8750, 6.8250, 6.7885, 6.8266,  SOL 5390
     J 6.8556, 6.8068, 6.8377, 7.0467, 7.2779, 7.4139, 7.4712, 7.4621,  SOL 5400
     K 7.4071, 7.3592, 7.3372, 7.3220, 7.2938, 7.2531, 7.2052, 7.1335,  SOL 5410
     L 7.0298, 6.8533, 6.5535, 6.2227, 6.0139, 5.9384, 5.9038, 5.8568,  SOL 5420
     M 5.7909, 5.7326, 5.7745, 5.9608, 6.1865, 6.3681, 6.4997, 6.5437,  SOL 5430
     N 6.4637, 6.2708, 6.0451, 5.9557, 6.0855, 6.2542, 6.2454, 6.0795,  SOL 5440
     O 5.9102, 5.8447, 5.9218, 6.1063, 6.2895, 6.3271, 6.1097, 5.7421,  SOL 5450
     P 5.4452, 5.2981, 5.3256, 5.4935, 5.6819, 5.8245, 5.8933, 5.9630,  SOL 5460
     Q 6.1703, 6.4525, 6.6325, 6.6965, 6.7185, 6.6238, 6.3107, 5.9241,  SOL 5470
     R 5.6987, 5.6651, 5.7428, 5.8790, 5.9715, 5.9618, 5.9674, 6.0754 / SOL 5480
C         SOLAR SPECTRUM FROM  51440 TO  52870 CM-1,  IN STEPS OF 10 CM-SOL 5490
      DATA SUNB17  /                                                    SOL 5500
     A 6.2541, 6.4300, 6.4968, 6.4564, 6.4082, 6.3024, 6.0135, 5.6431,  SOL 5510
     B 5.3963, 5.2989, 5.2635, 5.2227, 5.1279, 4.9315, 4.6348, 4.3168,  SOL 5520
     C 4.0151, 3.6625, 3.2906, 3.1028, 3.1349, 3.1994, 3.2596, 3.4144,  SOL 5530
     D 3.5949, 3.6534, 3.6296, 3.6281, 3.5876, 3.4292, 3.2659, 3.2284,  SOL 5540
     E 3.2576, 3.3002, 3.4535, 3.7372, 4.0573, 4.3558, 4.5999, 4.7781,  SOL 5550
     F 4.8855, 4.8999, 4.8392, 4.7624, 4.7059, 4.6981, 4.7666, 4.8453,  SOL 5560
     G 4.8236, 4.7293, 4.6861, 4.7132, 4.7725, 4.8713, 4.9596, 4.9527,  SOL 5570
     H 4.8957, 4.9252, 5.0736, 5.2229, 5.2505, 5.1537, 5.0156, 4.8880,  SOL 5580
     I 4.7686, 4.6549, 4.5534, 4.4828, 4.4661, 4.5040, 4.5905, 4.7033,  SOL 5590
     J 4.7858, 4.8334, 4.9283, 5.0377, 5.0065, 4.8471, 4.6828, 4.5586,  SOL 5600
     K 4.4812, 4.4314, 4.3903, 4.3830, 4.4066, 4.3900, 4.2973, 4.1978,  SOL 5610
     L 4.1462, 4.1084, 4.1495, 4.3897, 4.6859, 4.8206, 4.7938, 4.6781,  SOL 5620
     M 4.5222, 4.3959, 4.3358, 4.2947, 4.2259, 4.1452, 4.1060, 4.1462,  SOL 5630
     N 4.2149, 4.2549, 4.3061, 4.3742, 4.3738, 4.2718, 4.1389, 4.0405,  SOL 5640
     O 3.9457, 3.8127, 3.7099, 3.7344, 3.8589, 3.9598, 3.9525, 3.8377,  SOL 5650
     P 3.6708, 3.5357, 3.4929, 3.5375, 3.6381, 3.7890, 3.9671, 4.0995,  SOL 5660
     Q 4.1421, 4.1302, 4.1235, 4.1623, 4.2506, 4.2948, 4.2231, 4.0993,  SOL 5670
     R 3.9680, 3.9475, 4.1958, 4.5131, 4.6101, 4.5130, 4.3474, 4.1749 / SOL 5680
C         SOLAR SPECTRUM FROM  52880 TO  54310 CM-1,  IN STEPS OF 10 CM-SOL 5690
      DATA SUNB18  /                                                    SOL 5700
     A 4.0467, 3.9956, 4.0078, 4.0374, 4.0255, 3.9379, 3.8192, 3.7529,  SOL 5710
     B 3.7675, 3.8260, 3.8654, 3.8518, 3.8148, 3.8028, 3.8098, 3.7934,  SOL 5720
     C 3.7660, 3.7944, 3.8689, 3.8978, 3.8856, 3.8923, 3.8570, 3.6940,  SOL 5730
     D 3.4693, 3.3222, 3.2824, 3.2887, 3.3039, 3.3222, 3.3313, 3.3326,  SOL 5740
     E 3.3482, 3.3807, 3.4188, 3.4602, 3.4972, 3.5151, 3.5155, 3.5165,  SOL 5750
     F 3.5258, 3.5406, 3.5478, 3.5345, 3.5339, 3.5820, 3.6396, 3.6448,  SOL 5760
     G 3.5872, 3.5112, 3.4804, 3.5257, 3.6238, 3.7290, 3.8023, 3.8024,  SOL 5770
     H 3.7268, 3.6578, 3.6439, 3.6422, 3.6373, 3.6397, 3.6410, 3.6494,  SOL 5780
     I 3.6608, 3.6251, 3.5212, 3.4020, 3.2845, 3.1230, 2.9483, 2.8515,  SOL 5790
     J 2.8432, 2.8638, 2.8967, 2.9505, 3.0025, 3.0552, 3.1106, 3.1178,  SOL 5800
     K 3.0596, 2.9854, 2.9316, 2.8903, 2.8590, 2.8500, 2.8450, 2.8121,  SOL 5810
     L 2.7626, 2.7424, 2.7667, 2.8024, 2.8165, 2.8111, 2.8128, 2.8569,  SOL 5820
     M 2.9659, 3.1062, 3.1990, 3.2128, 3.2088, 3.2391, 3.2661, 3.2364,  SOL 5830
     N 3.1173, 2.9094, 2.6952, 2.5324, 2.3959, 2.2953, 2.2510, 2.2245,  SOL 5840
     O 2.1811, 2.1301, 2.1482, 2.3257, 2.5856, 2.7226, 2.6495, 2.4508,  SOL 5850
     P 2.2444, 2.0850, 1.9891, 1.9843, 2.0816, 2.2233, 2.3248, 2.3551,  SOL 5860
     Q 2.3479, 2.3606, 2.4296, 2.5361, 2.6128, 2.6216, 2.6069, 2.6196,  SOL 5870
     R 2.6464, 2.6427, 2.5823, 2.4682, 2.3320, 2.2405, 2.2637, 2.3973 / SOL 5880
C         SOLAR SPECTRUM FROM  54320 TO  55750 CM-1,  IN STEPS OF 10 CM-SOL 5890
      DATA SUNB19  /                                                    SOL 5900
     A 2.5524, 2.6891, 2.8508, 3.0103, 3.0681, 3.0064, 2.9114, 2.8609,  SOL 5910
     B 2.8517, 2.8374, 2.7894, 2.7288, 2.7138, 2.7729, 2.8707, 2.9536,  SOL 5920
     C 2.9953, 2.9911, 2.9398, 2.8550, 2.7732, 2.7303, 2.7366, 2.7650,  SOL 5930
     D 2.7705, 2.7374, 2.6830, 2.6218, 2.5663, 2.5341, 2.5351, 2.5681,  SOL 5940
     E 2.6124, 2.6305, 2.6024, 2.5431, 2.4840, 2.4546, 2.4684, 2.5100,  SOL 5950
     F 2.5445, 2.5532, 2.5564, 2.5889, 2.6616, 2.7553, 2.8466, 2.9290,  SOL 5960
     G 2.9958, 3.0175, 2.9774, 2.8990, 2.8001, 2.6927, 2.6171, 2.5931,  SOL 5970
     H 2.5809, 2.5276, 2.4284, 2.3365, 2.3162, 2.3855, 2.4872, 2.5455,  SOL 5980
     I 2.5773, 2.6809, 2.9720, 3.5757, 4.4006, 5.0044, 5.0295, 4.5135,  SOL 5990
     J 3.7071, 2.9059, 2.3600, 2.1418, 2.1119, 2.0871, 2.0301, 2.0043,  SOL 6000
     K 2.0361, 2.0963, 2.1520, 2.1878, 2.1955, 2.1864, 2.1899, 2.2170,  SOL 6010
     L 2.2574, 2.2895, 2.2783, 2.2148, 2.1641, 2.2343, 2.4726, 2.8119,  SOL 6020
     M 3.1288, 3.2984, 3.2206, 2.8859, 2.4473, 2.1436, 2.0729, 2.1391,  SOL 6030
     N 2.2171, 2.2580, 2.2654, 2.2481, 2.2103, 2.1657, 2.1356, 2.1321,  SOL 6040
     O 2.1438, 2.1461, 2.1396, 2.1460, 2.1588, 2.1581, 2.1481, 2.1343,  SOL 6050
     P 2.1101, 2.0754, 2.0400, 2.0121, 1.9930, 1.9799, 1.9699, 1.9613,  SOL 6060
     Q 1.9537, 1.9454, 1.9312, 1.9058, 1.8726, 1.8470, 1.8465, 1.8693,  SOL 6070
     R 1.8844, 1.8635, 1.8143, 1.7618, 1.7188, 1.6853, 1.6656, 1.6708 / SOL 6080
C         SOLAR SPECTRUM FROM  55760 TO  57190 CM-1,  IN STEPS OF 10 CM-SOL 6090
      DATA SUNB20  /                                                    SOL 6100
     A 1.7036, 1.7519, 1.8120, 1.9015, 2.0124, 2.0980, 2.1385, 2.1481,  SOL 6110
     B 2.1347, 2.1086, 2.0953, 2.1062, 2.1095, 2.0685, 2.0001, 1.9461,  SOL 6120
     C 1.9194, 1.9088, 1.9023, 1.8977, 1.9049, 1.9300, 1.9588, 1.9635,  SOL 6130
     D 1.9357, 1.9019, 1.8887, 1.8939, 1.9018, 1.9038, 1.8975, 1.8747,  SOL 6140
     E 1.8289, 1.7716, 1.7303, 1.7330, 1.7900, 1.8782, 1.9548, 1.9907,  SOL 6150
     F 1.9807, 1.9430, 1.9173, 1.9218, 1.9203, 1.8717, 1.7832, 1.6965,  SOL 6160
     G 1.6389, 1.6077, 1.5924, 1.5818, 1.5583, 1.5142, 1.4616, 1.4237,  SOL 6170
     H 1.4252, 1.4834, 1.5970, 1.7410, 1.8771, 1.9784, 2.0451, 2.0872,  SOL 6180
     I 2.0909, 2.0384, 1.9573, 1.9002, 1.8824, 1.8663, 1.8193, 1.7540,  SOL 6190
     J 1.6874, 1.6222, 1.5726, 1.5450, 1.5290, 1.5312, 1.5699, 1.6411,  SOL 6200
     K 1.7186, 1.7678, 1.7546, 1.6623, 1.5115, 1.3588, 1.2605, 1.2348,  SOL 6210
     L 1.2611, 1.3091, 1.3588, 1.3884, 1.3800, 1.3482, 1.3224, 1.3159,  SOL 6220
     M 1.3437, 1.4142, 1.4950, 1.5443, 1.5521, 1.5282, 1.4902, 1.4606,  SOL 6230
     N 1.4465, 1.4398, 1.4399, 1.4544, 1.4760, 1.4781, 1.4506, 1.4229,  SOL 6240
     O 1.4185, 1.4221, 1.4119, 1.3908, 1.3779, 1.3813, 1.3933, 1.4087,  SOL 6250
     P 1.4268, 1.4417, 1.4408, 1.4188, 1.3861, 1.3548, 1.3261, 1.2980,  SOL 6260
     Q 1.2769, 1.2731, 1.2856, 1.3002, 1.3056, 1.2987, 1.2817, 1.2590,  SOL 6270
     R 1.2291, 1.1868, 1.1428, 1.1183, 1.1141, 1.1120, 1.1009, 1.0797 / SOL 6280
C         SOLAR SPECTRUM FROM  57200 TO  57490 CM-1,  IN STEPS OF 10 CM-SOL 6290
      DATA SUNB21  /                                                    SOL 6300
     A 1.0523, 1.0284, 1.0251, 1.0577, 1.1195, 1.1791, 1.2061, 1.2013,  SOL 6310
     B 1.1936, 1.2000, 1.2040, 1.1824, 1.1489, 1.1400, 1.1539, 1.1629,  SOL 6320
     C 1.1617, 1.1586, 1.1564, 1.1572, 1.1565, 1.1399, 1.1037, 1.0627,  SOL 6330
     D 1.0341, 1.0223, 1.0199, 1.0188, 1.0174, 1.0163  /                SOL 6340
      END                                                               SOL 6350
      SUBROUTINE SOURCE(VV,ISOURC,IDAY,ANGLE,SS)                        SOR  100
      COMMON /ICLL/ ICALL,FPHS,FALB,FORBIT                              SOR  110
C     SUBROUITNE SOURCE CONTAINS THE SOLAR INTENSITY DATA AS A          SOR  120
C     FUNTION OF WAVELENGTH. THIS ROUTINE IS ALSO CAPABLE OF CALCULATINGSOR  130
C     LUNAR INTENSITY BASED ON THE PHASE ANGLE BETWEEN THE SUN, MOON ANDSOR  140
C     EARTH. CORRECTIONS ARE MADE FOR THE SUN'S ELLIPTIC ORBIT.         SOR  150
C                                                                       SOR  160
      DIMENSION NDAY(13),RAT(13),PHS(17),ALB(29)                        SOR  170
      DATA NDAY/1,32,60,91,121,152,182,213,244,274,305,335,366/         SOR  180
      DATA RAT/1.034,1.030,1.019,1.001,.985,.972,.967,.971,.982,        SOR  190
     1    .998,1.015,1.029,1.034/                                       SOR  200
      DATA PHS/100.,73.2,57.8,42.3,32.0,23.3,16.7,12.4,8.7,6.7,         SOR  210
     1    4.7,3.6,2.4,1.2,0.9,0.4,.002/                                 SOR  220
      DATA ALB/.001,.01,.03,.075,.1,.13,.155,.17,.178,.185,.2,.211,     SOR  230
     1    .231,.25,.275,.289,.285,.287,.3,.29,.3,.31,.313,.319,.329     SOR  240
     1    ,.339,.345,.350,.4/                                           SOR  250
      IF(VV.LE.0.) THEN
           V = 1.0E+38
      ELSE
           V=10000./VV
      ENDIF
      IF(ISOURC.NE.1) GO TO 50                                          SOR  280
      IF(ICALL.EQ.1) GO TO 20                                           SOR  290
C                                                                       SOR  300
C     MOON PHASE ANGLE FACTOR                                           SOR  310
C                                                                       SOR  320
      FPHS=0.0                                                          SOR  330
      IF(ANGLE.GT.160.) GO TO 20                                        SOR  340
      IP=ANGLE/10.                                                      SOR  350
      IF(FLOAT(IP*10).EQ.ANGLE) GO TO 10                                SOR  360
      FPHS=PHS(IP+1)+(ANGLE-10.*IP)*(PHS(IP+2)-PHS(IP+1))/10.           SOR  370
      GO TO 20                                                          SOR  380
10    FPHS=PHS(IP+1)                                                    SOR  390
C                                                                       SOR  400
C     GEOMETRICAL ALBEDO OF THE MOON                                    SOR  410
C                                                                       SOR  420
20    FALB=0.4                                                          SOR  430
      IF(V.GE.5.) GO TO 40                                              SOR  440
      IF(V.GT.2.8) GO TO 30                                             SOR  450
      I1=V*10                                                           SOR  460
      FALB=ALB(I1)+(ALB(I1+1)-ALB(I1))*(V-I1*0.1)*10.                   SOR  470
      GO TO 40                                                          SOR  480
30    FALB=ALB(28)+(ALB(29)-ALB(28))*(V-2.8)/2.2                        SOR  490
40    CONTINUE                                                          SOR  500
C                                                                       SOR  510
C     SUN ELLIPTIC ORBIT FACTOR                                         SOR  520
C                                                                       SOR  530
50    IF(ICALL.EQ.1) GO TO 90                                           SOR  540
      FORBIT=0.0                                                        SOR  550
      IF(IDAY.GT.0 .AND. IDAY.LT.367) GO TO 55                          SOR  560
      FORBIT = 1.0                                                      SOR  570
      GO TO 90                                                          SOR  580
55    CONTINUE                                                          SOR  590
      DO 60 I=1,13                                                      SOR  600
      IF(NDAY(I).EQ.IDAY) GO TO 80                                      SOR  610
      IF(NDAY(I).GT.IDAY) GO TO 70                                      SOR  620
60    CONTINUE                                                          SOR  630
70    FORBIT=RAT(I-1)+(IDAY-NDAY(I-1))*(RAT(I)-RAT(I-1))/(NDAY(I)       SOR  640
     1   -NDAY(I-1))                                                    SOR  650
      GO TO 90                                                          SOR  660
80    FORBIT=RAT(I)                                                     SOR  670
90    CONTINUE                                                          SOR  680
      ICALL=1                                                           SOR  690
C                                                                       SOR  700
C     SOLAR INTENSITY                                                   SOR  710
C                                                                       SOR  720
      SS = SUN(VV)*FORBIT                                               SOR  730
C     CONVERT W/M-2-MICRON TO W/CM-2-MICRON                             SOR  740
      IF(ISOURC. EQ. 1) SS = SS * FPHS * FALB * 2.04472E-7              SOR  750
      SS=SS*.0001                                                       SOR  760
      RETURN                                                            SOR  770
      END                                                               SOR  780
      SUBROUTINE SSGEO(IERROR,IPH,IPARM,PARM1,PARM2,PARM3,PARM4,PSIPO,G,SSG  100
C    X MAXGEO)                                                          SSG -110
     1  MAXGEO,MSOFF)                                                   SSG 110A
C                                                                       SSG  120
C     THIS ROUTINE DRIVES THE LOWTRAN GEOMETRY ROUTINES REPEATEDLY      SSG  130
C     TO OBTAIN THE ABSORBER AMOUNTS FROM THE SCATTERING POINTS ON      SSG  140
C     THE OPTICAL PATH TO THE EXTRATERRESTRIAL SOURCE, NECESSARY        SSG  150
C     TO DO THE LAYER BY LAYER SINGLE SCATTERING RADIANCE CALCULATION.  SSG  160
C                                                                       SSG  170
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            SSG  180
C     COMMON             WPATH(68, 63),TBBY(68)                         SSG -190
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   SSG 190A
      COMMON ABSC(5,47),EXTC(5,47),ASYC(5,47),VX2(47),AWCCON(5)         SSG  200
      COMMON /SOLS/ AH1(68),ARH(68),                                    SSG  210
C    X   WPATHS(68,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),JTURN,SSG -220
C    X ANGSUN,CSZEN(68)                                                 SSG -230
     1  WPATHS(102,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),      SSG 220A
     2  JTURN,ANGSUN,CSZEN(68),TBBYS(102,12),PATMS(102,12)              SSG 220B
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                SSG  240
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  SSG  250
     1  ,MODTRN                                                         SSG 250A
      LOGICAL MODTRN                                                    SSG 250B
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   SSG  260
     1    RAINRT                                                        SSG  270
      COMMON /CARD3/ H1,H2,ANGLE,RANGE,BETA,REE,LEN                     SSG  280
C     COMMON /CARD4/ V1,V2,DV                                           SSG -290
      COMMON /CNTRL/ KMAX,MM,IKMAX,NL,ML,IKLO,ISSGEO,IMULT              SSG  300
      COMMON /MODEL/ ZM(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),      SSG  310
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         SSG  320
      COMMON /PARMTR/ RE,DELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATH              SSG  330
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     SSG  340
      COMMON /RFRPTH/ ZP(35),PP(35),TP(35),RFNDXP(35),SP(35),           SSG  350
     1    PPSUM(35),TPSUM(35),RHOPSM(35),DENP(63,35),AMTP(63,35)        SSG* 360
      COMMON /USRDTA/ NANGLS,ANGF(50),F(4,50)                           SSG  370
      DIMENSION WPDUM(68,63),TBDUM(68),LJD(68),AZ(35),RHD(35)           SSG  380
      DIMENSION PDUM(68),WDUM(63)                                       SSG 380A
C     MOLECULAR AND HENYEY-GREENSTEIN PHASE FUNCTIONS                   SSG  390
C     NOTE; UNITS ARE (STER-1), X=COS(SCATTERING ANGLE)                 SSG  400
      PFMOL(X)=.06050402+.0572197*X**2                                  SSG  410
      PFHG(GG,X)=(1.0-GG**2)/(4.*PI*(1.0+GG**2-2.0*GG*X)**1.5)          SSG  420
      IKLO=1                                                            SSG  430
C     NPR = 1                                                           SSG  440
      NPR = 2                                                           SSG  440
      ISSGEO=1                                                          SSG  450
C     SPECIFY THE GEOMETRICAL CONFIGURATION                             SSG  460
      IF(IPARM.EQ.2) GO TO 1                                            SSG  470
      THETAO=PARM1                                                      SSG  480
      PHIO=PARM2                                                        SSG  490
      THETAS=PARM3                                                      SSG  500
      PHIS=PARM4                                                        SSG  510
      GO TO 2                                                           SSG  520
1     CONTINUE                                                          SSG  530
      PSIO=PARM1                                                        SSG  540
      DELO=PARM2                                                        SSG  550
2     IF(IPARM.NE.0) GO TO 5                                            SSG  560
      IF(ABS(THETAO).LT.89.5) GO TO 5                                   SSG  570
      IF(THETAO.GT.0.0) GO TO 4                                         SSG  580
C     OBSERVER IS AT OR NEAR THE SOUTH POLE, REMAP TO EQUATOR           SSG  590
      WRITE(IPR,960)                                                    SSG  600
      PSIPO=PSIPO-PHIS                                                  SSG  610
      THETAO=0.0                                                        SSG  620
      PHIO=0.0                                                          SSG  630
      THETAS=0.0                                                        SSG  640
      PHIS=90.+THETAS                                                   SSG  650
      GO TO 5                                                           SSG  660
4     CONTINUE                                                          SSG  670
C     OBSERVER IS AT OR NEAR THE NORTH POLE, REMAP TO EQUATOR           SSG  680
      WRITE(IPR,961)                                                    SSG  690
      PSIPO=PHIS-PSIPO                                                  SSG  700
      THETAO=0.0                                                        SSG  710
      PHIO=0.0                                                          SSG  720
      THETAS=0.0                                                        SSG  730
      PHIS=90.-THETAS                                                   SSG  740
5     CONTINUE                                                          SSG  750
      WRITE(IPR,900)                                                    SSG  760
C                                                                       SSG  770
C     SAVE OPTICAL PATH PARAMETERS AND AMOUNTS                          SSG  780
C                                                                       SSG  790
      JTURND=JTURN                                                      SSG  800
      IKMAXD=IKMAX+1                                                    SSG  810
      H1D=H1                                                            SSG  820
      H2D=H2                                                            SSG  830
      ANGD=ANGLE                                                        SSG  840
      RNGD=RANGE                                                        SSG  850
      BETD=BETA                                                         SSG  860
      BETA=0.                                                           SSG  870
      LEND=LEN                                                          SSG  880
      ITD=ITYPE                                                         SSG  890
      IMAX=ML                                                           SSG  900
      DO 10 J=1,IMAX                                                    SSG  910
      AZ(J)=ZP(J)                                                       SSG  920
10    RHD(J)=RELHUM(J)                                                  SSG  930
      DO 11 J=1,IKMAXD                                                  SSG  940
C     TBDUM(J)=TBBY(J)                                                  SSG -950
      MSOFFJ=MSOFF+J                                                    SSG 950A
      TBDUM(J)=TBBY(MSOFFJ)                                             SSG 950B
      PDUM(J)=PATM(MSOFFJ)                                              SSG 950C
      LJD(J)=LJ(J)                                                      SSG  960
      IF(LJD(J).GT.IMAX)LJD(J)=IMAX                                     SSG  970
      DO 11 K=1,KMAX                                                    SSG  980
C  11 WPDUM(J,K)=WPATH(J,K)                                             SSG -990
   11 WPDUM(J,K)=WPATH(MSOFFJ,K)                                        SSG 990A
      DO 12 K=1,KMAX                                                    SSG 990B
   12 WDUM(K)=W(K)                                                      SSG 990C
      IMAX=IMAX-1                                                       SSG 1000
C                                                                       SSG 1010
C     ESTABLISH PSIO AND DELO                                           SSG 1020
      IARBO=0                                                           SSG 1030
      IF(ANGLE.LT.0.01.OR.ANGLE.GT.179.99) IARBO=1                      SSG 1040
C                                                                       SSG 1050
      IF(IPARM.NE.2)                                                    SSG 1060
     1CALL PSIDEL(THETAS,PHIS,THETAO,PHIO,PSIPO,PSIO,DELO,IARBO)        SSG 1070
C     INITIAL CONDITIONS AT THE OBSERVER                                SSG 1080
      IARB=IARBO                                                        SSG 1090
      BETAST=0.0                                                        SSG 1100
      IF(IARBO.EQ.0) PSIST=PSIO                                         SSG 1110
      ANGL0=DELO                                                        SSG 1120
C                                                                       SSG 1130
C     LOOP OVER THE POINT TO SUN PATHS TO OBTAIN AMOUNTS                SSG 1140
C                                                                       SSG 1150
      WRITE(IPR,950)                                                    SSG 1160
      WRITE(IPR,952)                                                    SSG 1170
950   FORMAT(' SCTTR SCTTR SUBTENDED  SOLAR   PATH  RELATIVE  SCTTR   MOSSG 1180
     1LECULAR  ')                                                       SSG 1190
952   FORMAT(' POINT  ALT    ANGLE   ZENITH  ZENITH AZIMUTH   ANGLE   PHSSG 1200
     1ASE F    '/)                                                      SSG 1210
      DO 130 L=IKLO,IKMAXD                                              SSG 1220
      IF(LEND.EQ.1.OR.JTURND.NE.0) GO TO 20                             SSG 1230
C     SHORT PATH, UP                                                    SSG 1240
      H1=AZ(L)                                                          SSG 1250
      RELH=RHD(L)                                                       SSG 1260
      THTST=ATHETA(L)                                                   SSG 1270
      IF(L.GE.2) BETAST=BETAST+ADBETA(L-1)                              SSG 1280
      GO TO 30                                                          SSG 1290
20    CONTINUE                                                          SSG 1300
C     LONG PATH, OR SHORT PATH DOWN                                     SSG 1310
      IF(L.GE.2) BETAST=BETAST+ADBETA(LJD(L-1))                         SSG 1320
      IF(L.GE.JTURND) GO TO 25                                          SSG 1330
      LJP1=LJD(L)+1                                                     SSG 1340
      H1=AZ(LJP1)                                                       SSG 1350
      RELH=RHD(LJP1)                                                    SSG 1360
      THTST=180.-ATHETA(LJP1)                                           SSG 1370
      GO TO 30                                                          SSG 1380
25    LJDL=LJD(L)                                                       SSG 1390
      H1=AZ(LJDL)                                                       SSG 1400
      RELH=RHD(LJDL)                                                    SSG 1410
      THTST=ATHETA(LJDL)                                                SSG 1420
      IF(L.EQ.JTURND)THTST=180.-ATHETA(LJDL)                            SSG 1430
30    CONTINUE                                                          SSG 1440
      AH1(L)=H1                                                         SSG 1450
      ARH(L)=RELH                                                       SSG 1460
      IF(L.LT.2) GO TO 35                                               SSG 1470
      PSIST=PSI(PSIO,DELO,BETAST,IARB,IARBO)                            SSG 1480
      ANGL0=DEL(PSIO,DELO,BETAST,IARBO)                                 SSG 1490
35    CORR=0.0                                                          SSG 1500
C     RANGE=UNKNOWN                                                     SSG 1510
      ITYPE=3                                                           SSG 1520
      DO 90 JITER=1,4                                                   SSG 1530
      H2 = 0.0                                                          SSG 1540
      ANGLE=ANGL0-CORR                                                  SSG 1550
      LEN=0                                                             SSG 1560
      IF(ANGLE.LE.90.0) GO TO 40                                        SSG 1570
      LEN=1                                                             SSG 1580
      WRITE(IPR,955) L                                                  SSG 1590
955   FORMAT('  SUN PATH ',I3,' PASSES THROUGH A TANGENT HEIGHT')       SSG 1600
40    CONTINUE                                                          SSG 1610
      HTOP=ZMAX                                                         SSG 1620
      IF(H1.LT.HTOP.OR.LEN.EQ.1) GO TO 60                               SSG 1630
C     SCATTERING POINT IS AT OR ABOVE HTOP AND LEN=0,                   SSG 1640
C     SET W(K)=0.0 AND CONTINUE                                         SSG 1650
      DO 50 K=1,KMAX                                                    SSG 1660
50    W(K)=0.0                                                          SSG 1670
      GO TO 100                                                         SSG 1680
C                                                                       SSG 1690
C  60 CALL GEO(IERROR,BENDNG,MAXGEO)                                    SSG-1700
   60 CALL GEO(IERROR,BENDNG,MAXGEO,MSOFF)                              SSG1700A
C                                                                       SSG 1710
C     IERROR=-5 IF SCATTERING POINT IS IN THE SHADE, ALSO SET W(K)=-5.0 SSG 1720
      IF(IERROR.NE.-5) GO TO 80                                         SSG 1730
      WRITE(IPR,970) L                                                  SSG 1740
970   FORMAT('  SCATTERING POINT ',I3,' IS IN THE SHADE')               SSG 1750
      DO 70 K=1,KMAX                                                    SSG 1760
70    W(K)=-5.0                                                         SSG 1770
      IERROR=0                                                          SSG 1780
      GO TO 100                                                         SSG 1790
  80  CONTINUE                                                          SSG 1800
C     SOLAR ZENITH BENDING CORRECTION                                   SSG 1810
      IF(JITER.GT.1) WRITE(IPR,917) CORR                                SSG 1820
      IF(ABS(CORR-BENDNG).LT..1) GO TO 100                              SSG 1830
90    CORR=BENDNG                                                       SSG 1840
100   CONTINUE                                                          SSG 1850
      SANGLE=SCTANG(ANGLE,THTST,PSIST,IARB)                             SSG 1860
      COSANG=COS(CA*SANGLE)                                             SSG 1870
C     LOAD MOLECULAR PHASE FUNCTION ARRAY                               SSG 1880
      PR(L)=PFMOL(COSANG)                                               SSG 1890
C     LOAD AEROSOL PHASE FUNCTION ARRAY                                 SSG 1900
C     HENYEY-GREENSTEIN                                                 SSG 1910
      IF(IPH.NE.0) GO TO 105                                            SSG 1920
      PA(L)=PFHG(G,COSANG)                                              SSG 1930
      GO TO 115                                                         SSG 1940
105   CONTINUE                                                          SSG 1950
      IF(IPH.NE.1) GO TO 110                                            SSG 1960
C     USER SUPPLIED PHASE FUNCTION                                      SSG 1970
C     DETERMINE ALTITUDE AND ANGLE INDICES                              SSG 1980
      M=4                                                               SSG 1990
      IF(H1.LE.30.) M=3                                                 SSG 2000
      IF(H1.LE.10.) M=2                                                 SSG 2010
      IF(H1.LE.2.) M=1                                                  SSG 2020
      DO 106 LL=1,NANGLS                                                SSG 2030
C                                                                       SSG 2040
C    INTERPOLATION CORRECTION FOR ANGLE = TO ANGLES READ IN             SSG 2050
C                                                                       SSG 2060
      IF(ANGF(LL).EQ.SANGLE) THEN                                       SSG 2070
      PA(L)=F(M,LL)                                                     SSG 2080
      GO TO 115                                                         SSG 2090
      END IF                                                            SSG 2100
      IF(ANGF(LL).GT.SANGLE) GO TO 107                                  SSG 2110
106   CONTINUE                                                          SSG 2120
107   LP1=LL                                                            SSG 2130
      LL=LL-1                                                           SSG 2140
      CALL INTERP(2,SANGLE,ANGF(LL),ANGF(LP1),PA(L),F(M,LL),F(M,LP1))   SSG 2150
      GO TO 115                                                         SSG 2160
110   CONTINUE                                                          SSG 2170
C     V DEPENDENT MIE DATA BASE, SAVE SCATTERING ANGLE INSTEAD          SSG 2180
      PA(L)=SANGLE                                                      SSG 2190
115   CONTINUE                                                          SSG 2200
C     LOAD AMOUNTS FROM W(K) INTO WPATHS(L,K)                           SSG 2210
      MSOFFL=MSOFF+L                                                    SSG2210A
      DO 120 K=1,KMAX                                                   SSG 2220
C 120 WPATHS(L,K)=W(K)                                                  SSG-2230
  120 WPATHS(MSOFFL,K)=W(K)                                             SSG2240A
C         WHEN THE MODERATE RESOLUTION OPTION IS USED, A CURTIS-GODSON  SSG2240B
C         AVERAGE PRESSURE, PATMS, AND TEMPERATURE, TBBYS, IS DEFINED   SSG2240C
C         FOR THE SCATTERING POINT TO EXTRATERRESTRIAL SOURCE "LAYER"   SSG2240D
          IF(MODTRN)THEN                                                SSG2240E
              DO 126 K=1,NSPEC                                          SSG2240F
                  PNUM=0.                                               SSG2240G
                  TNUM=0.                                               SSG2240H
                  DEN=0.                                                SSG2240I
                  KP=KPOINT(K)                                          SSG2240J
                  DO 123 IK=1,IKMAX                                     SSG2240K
                      MSOFFK=MSOFF+IK                                   SSG2240L
                      WPTH=WPATH(MSOFFK,KP)                             SSG2240M
                      IF(WPTH.LE.0)GOTO123                              SSG2240N
                      PNUM=PNUM+PATM(MSOFFK)*WPTH                       SSG2240O
                      TNUM=TNUM+TBBY(MSOFFK)*WPTH                       SSG2240P
                      DEN=DEN+WPTH                                      SSG2240Q
  123             CONTINUE                                              SSG2240R
                  PATMS(MSOFFL,K)=PNUM/DEN                              SSG2240S
  126         TBBYS(MSOFFL,K)=TNUM/DEN                                  SSG2240T
          ENDIF                                                         SSG2240U
C     REVERSE SIGN CONVENTION (TO + E OF N) FOR PRINTED OUTPUT          SSG 2240
      PSIST2=-PSIST                                                     SSG 2250
C                                                                       SSG 2260
C    CSZEN IS COSINE OF SOLAR ZENTIH FOR EACH LAYER                     SSG 2270
C                                                                       SSG 2280
      CSZEN(L)=COS(ANGLE*CA)                                            SSG 2290
      WRITE(IPR,951)L,H1,BETAST,ANGLE,THTST,PSIST2,SANGLE,PR(L)         SSG 2300
951   FORMAT(1X,I3,6(1X,F7.2), (1X,E10.3))                              SSG 2310
130   CONTINUE                                                          SSG 2320
C                                                                       SSG 2330
C     RESTORE OPTICAL PATH AMOUNTS                                      SSG 2340
C                                                                       SSG 2350
      IKMAX=IKMAXD-1                                                    SSG 2360
      H1=H1D                                                            SSG 2370
      H2=H2D                                                            SSG 2380
      ANGSUN=ANGLE                                                      SSG 2390
      ANGLE=ANGD                                                        SSG 2400
      RANGE=RNGD                                                        SSG 2410
      BETA=BETD                                                         SSG 2420
      LEN=LEND                                                          SSG 2430
      ITYPE=ITD                                                         SSG 2440
      DO 160 J=1,IKMAXD                                                 SSG 2450
C     TBBY(J)=TBDUM(J)                                                  SSG-2460
      MSOFFJ=MSOFF+J                                                    SSG2460A
      TBBY(MSOFFJ)=TBDUM(J)                                             SSG2460B
      PATM(MSOFFJ)=PDUM(J)                                              SSG2460C
      LJ(J)=LJD(J)                                                      SSG 2470
      DO 160 K=1,KMAX                                                   SSG 2480
C 160 WPATH(J,K)=WPDUM(J,K)                                             SSG-2490
  160 WPATH(MSOFFJ,K)=WPDUM(J,K)                                        SSG2490A
      DO 170 K=1,KMAX                                                   SSG2490B
  170 W(K)=WDUM(K)                                                      SSG2490C
      NPR = NOPRNT                                                      SSG 2500
C                                                                       SSG 2510
C     FORMATS                                                           SSG 2520
C                                                                       SSG 2530
900   FORMAT(2X,//,' SINGLE SCATTERING POINT TO SOURCE PATHS ')         SSG 2540
917   FORMAT('  SOLAR ZENITH CORRECTION FOR BENDING = ',F10.3)          SSG 2550
920   FORMAT(2X,'*** CUMMULATIVE POINT-TO-SOURCE AMOUNTS ***')          SSG 2560
925   FORMAT(/,2X,'L                 WPATHS(L,K) K=1,7')                SSG 2570
930   FORMAT(1X,I2,7(2X,E10.3))                                         SSG 2580
931   FORMAT(8E10.3)                                                    SSG 2590
940   FORMAT(2X,'L                 WPATHS(L,K) K=8,15')                 SSG 2600
960   FORMAT(2X,'THETAO < 89.5, OBSERVER ASSUMED TO BE AT THE SOUTH     SSG 2610
     1POLE, PROBLEM HAS BEEN REMAPPED TO THE EQUATOR')                  SSG 2620
961   FORMAT(2X,'THETAO > 89.5, OBSERVER ASSUMED TO BE AT THE NORTH     SSG 2630
     1POLE, PROBLEM HAS BEEN REMAPPED TO THE EQUATOR')                  SSG 2640
      RETURN                                                            SSG 2650
      END                                                               SSG 2660
      SUBROUTINE SSRAD(IPH,IK,ITZERO,IPATH,V,SUMSSR)                    SSR  100
C                                                                       SSR  110
C     SUBROUTINE SSRAD PERFORMS THE LAYER BY LAYER SINGLE SCATTERING    SSR  120
C     RADIANCE SUM.                                                     SSR  130
C                                                                       SSR  140
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  SSR  150
     1  ,MODTRN                                                         SSR 150A
      LOGICAL MODTRN                                                    SSR 150B
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   SSR  160
     1    RAINRT                                                        SSR  170
      COMMON /CARD3/ H1,H2,ANGLE,RANGE,BETA,RE,LEN                      SSR  180
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            SSR  190
C     COMMON             WPATH(68, 63),TBBY(68)                         SSR -200
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   SSR 200A
      COMMON ABSC(5,47),EXTC(5,47),ASYC(5,47),VX2(47),AWCCON(5)         SSR  210
      COMMON /SOLS/ AH1(68),ARH(68),                                    SSR  220
C    X   WPATHS(68,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),JTURN,SSR -230
C    X ANGSUN,CSZEN(68)                                                 SSR -240
     1  WPATHS(102,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),      SSR 230A
     2  JTURN,ANGSUN,CSZEN(68),TBBYS(102,12),PATMS(102,12)              SSR 230B
      COMMON /SRAD/ TEB1,TEB2,TASP1,TASP2,TMSP1,TMSP2,TEB2SV            SSR  250
      COMMON /SRADS/ PMOL1,PMOL2,PAER1,PAER2
      IF(ITZERO.EQ.1) GO TO 60                                          SSR  260
      TX6=TX(6)                                                         SSR  270
      TX7=TX(7)                                                         SSR  280
      TX9=TX(9)                                                         SSR  290
      TX10=TX(10)                                                       SSR  300
      IF(IPATH-2) 10,20,30                                              SSR  310
10    CONTINUE                                                          SSR  320
CC    ISKIP = 0                                                         SSR  330
C     INITIAL CONDITIONS                                                SSR  340
C     SINGLE SCATTERING RADIANCE SUM                                    SSR  350
      SUMSSR=0.0                                                        SSR  360
C     OPTICAL PATH TRANSMITTANCES                                       SSR  370
      TASP2=1.0                                                         SSR  380
      TMSP2=1.0                                                         SSR  390
C     L PATH TRANSMITTANCE                                              SSR  400
      TEB2=TX9                                                          SSR  410
C     MOLECULAR AND AEROSOL PHASE FUNCTIONS                             SSR  420
      PMOL2=PR(IK)                                                      SSR  430
      PAER2=PA(IK)                                                      SSR  440
      IF(IPH.EQ.2)                                                      SSR  450
     1 CALL PHASEF(V,IK,AH1(IK),PA(IK),ARH(IK),PAER2)                   SSR  460
      RETURN                                                            SSR  470
20    CONTINUE                                                          SSR  480
C     CURRENT L PATH TRANSMITTANCE                                      SSR  490
      TEB1=TX9                                                          SSR  500
C     CURRENT MOLECULAR AND AEROSOL PHASE FUNCTIONS                     SSR  510
      PMOL1=PR(IK+1)                                                    SSR  520
      PAER1=PA(IK+1)                                                    SSR  530
      IKK = IK + 1                                                      SSR  540
      IF(IPH.EQ.2)                                                      SSR  550
     1 CALL PHASEF(V,IKK,AH1(IKK),PA(IKK),ARH(IKK),PAER1)               SSR  560
      RETURN                                                            SSR  570
30    CONTINUE                                                          SSR  580
C     CURRENT OPTICAL PATH TRANSMITTANCES                               SSR  590
      IF(TX7.GT.0.)THEN
         TASP1=TX7 /TX10                                                SSR  600
      ELSE
         TASP1 = 0.
      ENDIF
      TMSP1=TX6                                                         SSR  610
C     SINGLE SCATTERING RADIANCE CALCULATION                            SSR  620
      IF(TASP1.EQ.0.0 .OR. TMSP1.EQ.0.0 .OR.TMSP2.EQ.0.0 .OR.           SSR  630
     1    TASP2.EQ.0.0) GO TO 50                                        SSR  640
      XA1=PAER1*TEB1/TASP1                                              SSR  650
      XA2=PAER2*TEB2/TASP2                                              SSR  660
      XM1=PMOL1*TEB1/TMSP1                                              SSR  670
      XM2=PMOL2*TEB2/TMSP2                                              SSR  680
      DTASP=TASP2-TASP1                                                 SSR  690
      DTMSP=TMSP2-TMSP1                                                 SSR  700
C     COULD ADD A CHECK FOR SMALL DTMSP,DTASP AND BYPASS CALCULATION    SSR  710
      SUMSSR=SUMSSR+.5*(DTASP*(XA1+XA2)+DTMSP*(XM1+XM2))                SSR  720
C     RESET L AND OPTICAL PATH  TRANSMITTANCES                          SSR  730
   50 CONTINUE                                                          SSR  740
      TASP2=TASP1                                                       SSR  750
      TEB2SV=TEB2                                                       SSR  760
      TMSP2=TMSP1                                                       SSR  770
      TEB2=TEB1                                                         SSR  780
C     RESET PHASE FUNTION VALUES                                        SSR  790
      PAER2=PAER1                                                       SSR  800
      PMOL2=PMOL1                                                       SSR  810
60    CONTINUE                                                          SSR  820
      RETURN                                                            SSR  830
      END                                                               SSR  840
      SUBROUTINE STDMDL                                                 STD  100
C***********************************************************************STD  110
C     THIS SUBROUTINE LOADS ONE OF THE 6 STANDARD ATMOSPHERIC PROFILES  STD  120
C     INTO COMMON/MODEL/ AND CALCULATES THE DENSITIES OF THE            STD  130
C     VARIOUS ABSORBING GASES AND AEROSOLS                              STD  140
C***********************************************************************STD  150
      COMMON /IFIL/IRD,IPR,IPU,NPR,IPR1                                 STD  160
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  STD  170
     1  ,MODTRN                                                         STD 170A
      LOGICAL MODTRN                                                    STD 170B
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,   STD  180
     1    RAINRT                                                        STD  190
      COMMON /CARD3/ H1,H2,ANGLE,RANGE,BETA,RE,LEN                      STD  200
C     COMMON /CARD4/ V1,V2,DV                                           STD -210
      COMMON/CARD4/IV1,IV2,IDV,IFWHM                                    STD 210A
       COMMON /MDATA/  Z(50),P(50),T(50),WH(50),WCO2(50),WO(50),        STD  220
     X WN2O(50),WCO(50),WCH4(50),WO2(50),                               STD  230
     X CLD(50,7),RR(50,7)                                               STD  240
      COMMON /MDATA1/ WNO(50),WSO2(50),WNO2(50),WNH3(50),WAIR(50)       STD  250
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     STD  260
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               STD  270
      COMMON/MODEL/   ZM(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),     STD  280
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         STD  290
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            STD  300
C     COMMON             WPATH(68, 63),TBBY(68)                         STD -310
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   STD 310A
      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),VX2(47),AWCCON(5)         STD  320
C     XLOSCH = LOSCHMIDT'S NUMBER,MOLECULES CM-2,KM-1                   STD  330
      DATA PZERO /1013.25/,TZERO/273.15/,XLOSCH/2.6868E24/              STD  340
C     RV GAS CONSTANT FOR WATER IN MB/(GM M-3 K)                        STD  350
C     CON CONVERTS WATER VAPOR FROM GM M-3 TO MOLECULES CM-2 KM-1       STD  360
      DATA RV/4.6152E-3/,CON/3.3429E21/                                 STD  370
C     CONSTANTS FOR INDEX OF REFRACTION, AFTER EDLEN, 1965              STD  380
      DATA A0/83.42/,A1/185.08/,A2/4.11/,                               STD  390
     X     B1/1.140E5/,B2/6.24E4/,C0/43.49/,C1/1.70E4/                  STD  400
C                                                                       STD  410
C     F(A) IS SATURATED WATER WAPOR DENSITY AT TEMP T,A=TZERO/T         STD  420
      F(A)=EXP(18.9766-14.9595*A-2.43882*A*A)*A                         STD  430
C                                                                       STD  440
C     CONJOE=(1/XLOSCH)*1.E5*1.E-6 WITH                                 STD  450
C        1.E5 ARISING FROM CM TO KM CONVERSION AND                      STD  460
C        1.E-6  "       "  PPMV                                         STD  470
C                                                                       STD  480
      CONJOE = 3.7194E-21                                               STD  490
C                                                                       STD  500
C     H20 CONTINUUM IS STORED AT 296 K RHZERO IS AIR DENSITY AT 296 K   STD  510
C     IN UNITS OF LOSCHMIDT'S                                           STD  520
C                                                                       STD  530
      RHZERO=(273.15/296.0)                                             STD  540
C                                                                       STD  550
C     LOAD ATMOSPHERE PROFILE INTO /MODEL/                              STD  560
      DO 25 I=1,ML                                                      STD  570
      PM(I)=P(I)                                                        STD  580
      TM(I)=T(I)                                                        STD  590
      PP=PM(I)                                                          STD  600
      TT=TM(I)                                                          STD  610
      PSS=PP/PZERO                                                      STD  620
      TSS=TZERO/TT                                                      STD  630
      F1=(PP/PZERO)/(TT/TZERO)                                          STD  640
      F2=(PP/PZERO)*SQRT(TZERO/TT)                                      STD  650
      WTEMP=WH(I)                                                       STD  660
C     SCALED H2O DENSITY                                                STD  670
      IF (ZM(I).GT.2.0) GO TO 15                                        STD  680
      TS = TZERO / TT                                                   STD  690
15    CONTINUE                                                          STD  700
C     UNIFORMALLY MIXED GASES DENSITIES                                 STD  710
C     ORIGINAL TRANSMITTANCE MODEL FOR CO2+ HAS BEEN REPLACED.          STD  720
C     DENSTY(2,I)=F1*F2**0.75                                           STD  730
C     UV OZONE                                                          STD  740
C     THE UNIT FOR O3 HAS BEEN CHANGED FROM G/M**3 TO PPMV.             STD  750
      DENSTY(8,I)= CONJOE   *WAIR(I)    *WO(I)                          STD  760
C     IR OZONE                                                          STD  770
C     ORIGINAL TRANSMITTANCE MODEL HAS BEEN REPLACED.                   STD  780
C     DENSTY(3,I)= DENSTY(8,I)*F2**0.4                                  STD  790
C     N2 CONTINUUM                                                      STD  800
      DENSTY(4,I)=0.781*F1*F2                                           STD  810
C     SELF BROADENED WATER                                              STD  820
      RHOAIR = F1                                                       STD  830
      RHOH2O = CON *WTEMP/XLOSCH                                        STD  840
      RHOFRN = RHOAIR - RHOH2O                                          STD  850
      DENSTY(5,I)= XLOSCH*RHOH2O**2/RHZERO                              STD  860
C     FOREIGN BROADENED                                                 STD  870
      DENSTY(10,I)= XLOSCH*RHOH2O*RHOFRN/RHZERO                         STD  880
C     MOLECULAR SCATTERING                                              STD  890
      DENSTY(6,I) = F1                                                  STD  900
C     RELITIVE HUMIDITY WEIGHTED BY BOUNDRY LAYER AEROSOL (0 TO 2 KM)   STD  910
C                                                                       STD  920
C     LOG WEIGHTING OF REL HUMIDITY                                     STD  930
C                                                                       STD  940
      RELH = RELHUM(I)                                                  STD  950
      IF(RELHUM(I). GT.99.) RELH = 99.                                  STD  960
      RHLOG = ALOG(100. - RELH)                                         STD  970
C     DENSTY(15,I)=RELHUM(I)*DENSTY(7,I)                                STD  980
      DENSTY(15,I)=RHLOG    *DENSTY(7,I)                                STD  990
C     DENSITY (9,I) TEMP DEP OF WATER SET IN GEO                        STD 1000
      DENSTY(9,I)=0.                                                    STD 1010
C     IF(ICH(1).GT.7) DENSTY(15,I)=RELHUM(I)*DENSTY(12,I)               STD 1020
      IF(ICH(1).GT.7) DENSTY(15,I)=RHLOG    *DENSTY(12,I)               STD 1030
C     HNO3 IN ATM * CM /KM                                              STD 1040
C     NEW PROFILE IS IN UNIT OF PART PER 10**6 BY VOLUME                STD 1050
C     DENSTY(11,I)= F1* HMIX(I)*1.0E-4                                  STD 1060
C     IF(MODEL.EQ.7) DENSTY(11,I)=F1*HSTOR(I)*1.0E-4                    STD 1070
                     DENSTY(11,I)=F1*HSTOR(I)*1.0E-4                    STD 1080
C                                                                       STD 1090
C      O2 TEMP DEP                                                      STD 1100
C                                                                       STD 1110
      DT = TT  - 220.                                                   STD 1120
      WO2D       = CONJOE   *WAIR(I)    *WO2(I)  * PSS                  STD 1130
C                                                                       STD 1140
C     DT CAN BE NEGATIVE                                                STD 1150
C     EFFECTIVE DT CALCULATED IN TRANS                                  STD 1160
C                                                                       STD 1170
      DENSTY(1,I)  = WO2D * TT                                          STD 1180
      DENSTY(2,I)  = WO2D * DT * DT                                     STD 1190
      DENSTY(63,I) = WO2D                                               STD 1200
C                                                                       STD 1210
C   NEW  MICROWAVE TEMP  RAIN                                           STD 1220
C                                                                       STD 1230
      DENSTY(3,I) = 0.                                                  STD 1240
      DENSTY(61,I)= 0.                                                  STD 1250
      DENSTY(62,I)= 0.                                                  STD 1260
      IF(RRAMT(I) .NE. 0.) THEN                                         STD 1270
           DENSTY(3,I) = RRAMT(I)**(.63)                                STD 1280
           DENSTY(61,I)= DENSTY(3,I) * T(I)                             STD 1290
           DENSTY(62,I)= 1.                                             STD 1300
      ENDIF                                                             STD 1310
C                                                                       STD 1320
C       CIRRIUS CLOUD                                                   STD 1330
       IF(ICLD.LT.18) DENSTY(16,I) = 0.                                 STD 1340
C                                                                       STD1340A
C     WHEN MODERATE RESOLUTION OPTION IS USED, ACTUAL DENSITIES ARE     STD1340B
C     NEEDED.  FOR ALL SPECIES, DENSITIES ARE STORED IN AMAGATS-CM/KM   STD1340C
C     WHERE 1 AMAGAT = 1 ATM AT STP.  FOR WATER, THE G/CM2 VALUE,       STD1340D
C     .1*WH(I), IS CONVERTED TO AMAGAT-CM BY MULTIPLYING BY             STD1340E
C     RT/(MOL WT), WHICH EQUALS 1244.2 CM3-ATM/GM/K.                    STD1340F
C                                                                       STD1340G
      CONO2 = CONJOE   *WAIR(I)  *WO2 (I)
      IF(MODTRN)THEN                                                    STD1340H
          DENSTY(17,I)=WH(I)*124.42                                     STD1340I
          DENSTY(18,I) =0
          DENSTY(19,I) =0
          DENSTY(20,I) =0
          DENSTY(21,I) =0
          DENSTY(22,I) =0
          DENSTY(23,I) =0
          DENSTY(24,I) =0
          DENSTY(25,I) =0
          DENSTY(26,I) =0
          DENSTY(27,I) =0
          DENSTY(28,I) =0
          DENSTY(29,I) =0
          DENSTY(30,I) =0
          STORE=CONJOE*WAIR(I)                                          STD1340J
          DENSTY(31,I)=STORE*WO(I)                                      STD1340K
          DENSTY(32,I) =0
          DENSTY(33,I) =0
          DENSTY(34,I) =0
          DENSTY(35,I) =0
          DENSTY(36,I)=STORE*WCO2(I)                                    STD1340L
          DENSTY(37,I) =0
          DENSTY(38,I) =0
          DENSTY(39,I) =0
          DENSTY(40,I) =0
          DENSTY(41,I) =0
          DENSTY(42,I) =0
          DENSTY(43,I) =0
          DENSTY(44,I)=STORE*WCO(I)                                     STD1340M
          DENSTY(45,I) =0
          DENSTY(46,I)=STORE*WCH4(I)                                    STD1340N
          DENSTY(47,I)=STORE*WN2O(I)                                    STD1340O
          DENSTY(48,I) =0
          DENSTY(49,I) =0
          DENSTY(50,I)=STORE*WO2(I)                                     STD1340P
          DENSTY(51,I) =0
          DENSTY(52,I)=STORE*WNH3(I)                                    STD1340Q
          DENSTY(53,I) =0
          DENSTY(54,I)=STORE*WNO(I)                                     STD1340R
          DENSTY(55,I)=STORE*WNO2(I)                                    STD1340S
          DENSTY(56,I)=STORE*WSO2(I)                                    STD1340T
          DENSTY(57,I) =0
      ELSE                                                              STD1340U
C  --- FOR H2O -----                                                    STD 1350
      CONH2O=WH(I)  *.1                                                 STD 1360
      DENSTY(17,I)=CONH2O*PSS**0.9810*TSS**( 0.3324)                    STD 1370
      DENSTY(18,I)=CONH2O*PSS**1.1406*TSS**(-2.6343)                    STD 1380
      DENSTY(19,I)=CONH2O*PSS**0.9834*TSS**(-2.5294)                    STD 1390
      DENSTY(20,I)=CONH2O*PSS**1.0443*TSS**(-2.4359)                    STD 1400
      DENSTY(21,I)=CONH2O*PSS**0.9681*TSS**(-1.9537)                    STD*1410
      DENSTY(22,I)=CONH2O*PSS**0.9555*TSS**(-1.5378)                    STD 1420
      DENSTY(23,I)=CONH2O*PSS**0.9362*TSS**(-1.6338)                    STD 1430
      DENSTY(24,I)=CONH2O*PSS**0.9233*TSS**(-0.9398)                    STD 1440
      DENSTY(25,I)=CONH2O*PSS**0.8658*TSS**(-0.1034)                    STD 1450
      DENSTY(26,I)=CONH2O*PSS**0.8874*TSS**(-0.2576)                    STD 1460
      DENSTY(27,I)=CONH2O*PSS**0.7982*TSS**( 0.0588)                    STD 1470
      DENSTY(28,I)=CONH2O*PSS**0.8088*TSS**( 0.2816)                    STD 1480
      DENSTY(29,I)=CONH2O*PSS**0.6642*TSS**( 0.2764)                    STD 1490
      DENSTY(30,I)=CONH2O*PSS**0.6656*TSS**( 0.5061)                    STD 1500
C  --- FOR O3                                                           STD 1510
      CONO3 = CONJOE   *WAIR(I)    *WO(I)                               STD 1520
      DENSTY(31,I)=CONO3 *PSS**0.4200*TSS**( 1.3909)                    STD 1530
      DENSTY(32,I)=CONO3 *PSS**0.4221*TSS**( 0.7678)                    STD 1540
      DENSTY(33,I)=CONO3 *PSS**0.3739*TSS**( 0.1225)                    STD 1550
      DENSTY(34,I)=CONO3 *PSS**0.1770*TSS**( 0.9827)                    STD 1560
      DENSTY(35,I)=CONO3 *PSS**0.3921*TSS**( 0.1942)                    STD 1570
C  --- FOR CO2                                                          STD 1580
      CONCO2= CONJOE   *WAIR(I)  *WCO2(I)                               STD 1590
      DENSTY(36,I)=CONCO2*PSS**0.6705*TSS**(-2.2560)                    STD 1600
      DENSTY(37,I)=CONCO2*PSS**0.7038*TSS**(-5.0768)                    STD 1610
      DENSTY(38,I)=CONCO2*PSS**0.7258*TSS**(-1.6740)                    STD 1620
      DENSTY(39,I)=CONCO2*PSS**0.6982*TSS**(-1.8107)                    STD 1630
      DENSTY(40,I)=CONCO2*PSS**0.8867*TSS**(-0.5327)                    STD 1640
      DENSTY(41,I)=CONCO2*PSS**0.7883*TSS**(-1.3244)                    STD 1650
      DENSTY(42,I)=CONCO2*PSS**0.6899*TSS**(-0.8152)                    STD 1660
      DENSTY(43,I)=CONCO2*PSS**0.6035*TSS**( 0.6026)                    STD 1670
C  --- FOR CO                                                           STD 1680
      CONCO = CONJOE   *WAIR(I)  *WCO (I)                               STD 1690
      DENSTY(44,I)=CONCO *PSS**0.7589*TSS**( 0.6911)                    STD 1700
      DENSTY(45,I)=CONCO *PSS**0.9267*TSS**( 0.1716)                    STD 1710
C  --- FOR CH4                                                          STD 1720
      CONCH4= CONJOE   *WAIR(I)  *WCH4(I)                               STD 1730
      DENSTY(46,I)=CONCH4*PSS**0.7139*TSS**(-0.4185)                    STD 1740
C  --- FOR N2O                                                          STD 1750
      CONN2O= CONJOE   *WAIR(I)  *WN2O(I)                               STD 1760
      DENSTY(47,I)=CONN2O*PSS**0.3783*TSS**( 0.9399)                    STD 1770
      DENSTY(48,I)=CONN2O*PSS**0.7203*TSS**(-0.1836)                    STD 1780
      DENSTY(49,I)=CONN2O*PSS**0.7764*TSS**( 1.1931)                    STD 1790
C  --- FOR O2                                                           STD 1800
      CONO2 = CONJOE   *WAIR(I)  *WO2 (I)                               STD 1810
      DENSTY(50,I)=CONO2 *PSS**1.1879*TSS**( 2.9738)                    STD 1820
      DENSTY(51,I)=CONO2 *PSS**0.9353*TSS**( 0.1936)                    STD 1830
C  --- FOR NH3                                                          STD 1840
      CONNH3= CONJOE   *WAIR(I)  *WNH3(I)                               STD 1850
      DENSTY(52,I)=CONNH3*PSS**0.8023*TSS**(-0.9111)                    STD 1860
      DENSTY(53,I)=CONNH3*PSS**0.6968*TSS**( 0.3377)                    STD 1870
C  --- FOR NO                                                           STD 1880
      CONNO = CONJOE   *WAIR(I)  *WNO (I)                               STD 1890
      DENSTY(54,I)=CONNO *PSS**0.5265*TSS**(-0.4702)                    STD 1900
C  --- FOR NO2                                                          STD 1910
      CONNO2= CONJOE   *WAIR(I)  *WNO2(I)                               STD 1920
      DENSTY(55,I)=CONNO2*PSS**0.3956*TSS**(-0.0545)                    STD 1930
C  --- FOR SO2                                                          STD 1940
      CONSO2= CONJOE   *WAIR(I)  *WSO2(I)                               STD 1950
      DENSTY(56,I)=CONSO2*PSS**0.2943*TSS**( 1.2316)                    STD 1960
      DENSTY(57,I)=CONSO2*PSS**0.2135*TSS**( 0.0733)                    STD 1970
      ENDIF                                                             STD1970A
C***********************************************************************STD 1980
C   HERZBERG CONTINUUM PRESSURE DEPENDENCE CALCULATION, SHARDANAND 1977 STD 1990
C      AND   YOSHINO ET AL 1988                                         STD 2000
C                                                                       STD 2010
C     OXYGEN                                                            STD 2020
C                                                                       STD 2030
C      ********       ERRATA JULY 25
C     DENSTY(58,I)=(1.+.73*F1)*CONO2                                    STD*2040
      DENSTY(58,I)=(1.+.83*F1)*CONO2                                    STD*2042
C       ********      END  ERRATA
      DENSTY(59,I) = 0.                                                 STD 2050
      DENSTY(60,I) = 0.                                                 STD 2060
C***********************************************************************STD 2070
C                                                                       STD 2080
C     RFNDX = REFRAXTIVITY 1-INDEX OF REFRACTION                        STD 2090
C     FROM EDLEN, 1966                                                  STD 2100
      PPW=RV*WTEMP*TT                                                   STD 2110
C     AVW=0.5*(V1+V2)                                                   STD-2120
      AVW=0.5*(IV1+IV2)                                                 STD2120A
      RFNDX(I)=((A0+A1/(1.-(AVW/B1)**2) +A2/(1.0-(AVW/B2)**2))*         STD 2130
     X (PP/PZERO)*(TZERO+15.0)/TT-(C0-(AVW/C1)**2)*PPW/PZERO)*1.E-6     STD 2140
25    CONTINUE                                                          STD 2150
      IF(NPR.EQ.1) GO TO 40                                             STD 2160
      WRITE(IPR,910)                                                    STD 2170
      DO 30 I=1,ML                                                      STD 2180
       WRITE(IPR,905) I,ZM(I),PM(I),TM(I),(DENSTY(K,I),K=4,6),RFNDX(I), STD 2190
     X DENSTY(8,I),DENSTY(58,I)                                         STD 2200
30    CONTINUE                                                          STD 2210
      WRITE (IPR,915)                                                   STD 2220
      DO 35 I=1,ML                                                      STD 2230
      WRITE(IPR,905) I,ZM(I),PM(I),TM(I),(DENSTY(K,I),K=10,11),         STD 2240
     X DENSTY(7,I),DENSTY(12,I),DENSTY(13,I),DENSTY(14,I),DENSTY(15,I), STD 2250
     X DENSTY(16,I),RELHUM(I)                                           STD 2260
35    CONTINUE                                                          STD 2270
      IF(MODTRN)THEN                                                    STD2270A
          WRITE(IPR,'(1H1,/22H  ATMOSPHERIC PROFILES,//11H   I      Z,  STD2270B
     1      51H       P       T      H2O      O3       CO2      CO,     STD2270C
     2      55H       CH4      N2O      O2       NH3      NO       NO2, STD2270D
     3      9H      SO2,/42H         (KM)    (MB)    (K)  (           , STD2270E
     4      55H                      ATM CM/KM                        , STD2270F
     5      30H                             ))')                        STD2270G
      ELSE                                                              STD2270H
      WRITE(IPR,920)                                                    STD 2280
      ENDIF                                                             STD2280A
      DO 39 I = 1,ML                                                    STD 2290
      WRITE(IPR,906)I,ZM(I),PM(I),TM(I),DENSTY(17,I),DENSTY(31,I),      STD 2300
     + DENSTY(36,I),DENSTY(44,I),DENSTY(46,I),DENSTY(47,I),             STD 2310
     + DENSTY(50,I),DENSTY(52,I),DENSTY(54,I),DENSTY(55,I),DENSTY(56,I) STD 2320
   39 CONTINUE                                                          STD 2330
40    CONTINUE                                                          STD 2340
      RETURN                                                            STD 2350
  905 FORMAT (I4,0PF9.2,F9.3,F7.1,1X,1P9E10.3)                          STD 2360
  906 FORMAT (I4,0PF9.2,F9.3,F7.1,1X,1P11E9.2)                          STD 2370
910   FORMAT('1',/,'  ATMOSPHERIC PROFILES',//,                         STD 2380
     1 3X,'I',T10,'Z',T18,'P',T26,'T',                                  STD 2390
     2 T35,'N2',T44,'CNTMSLF',T52,'MOL SCAT',T65,'N-1', T73,            STD 2400
     3 'O3 (UV)',T82,'O2 (UV)',/,                                       STD 2410
     4 T9,'(KM)',T17,'(MB)',T25,'(K)',                                  STD 2420
     5 T40,'(MOL/CM2 KM)',T55,'(-)',T65,'(-)',T 70,                     STD 2430
     6 '(ATM CM/KM)',T82,'(ATM CM/KM)',/)                               STD 2440
915   FORMAT('1',/,'  ATMOSPHERIC PROFILES',//,                         STD 2450
     1 3X,'I',T10,'Z',T18,'P',T26,'T',T33,'CNTMFRN',T45,'HNO3',         STD 2460
     2 T53,'AEROSOL 1',T63,'AEROSOL 2', T73,'AEROSOL 3',T83,            STD 2470
     3 'AEROSOL 4',T93,'AER1*RH',T103,'CIRRUS',T118,'RH'/,              STD 2480
     4 T9,'(KM)',T17,'(MB)',T25,'(K)',T31,'MOL/CM2 KM',T42,             STD 2490
     5 'ATM CM/KM',T54,'(-)',T64,'(-)',T74,'(-)',T84,'(-)',T94,         STD 2500
     6 '(-)',T104,'(-)',T113,'(PERCNT)',/)                              STD 2510
  920 FORMAT('1',/,'  ATMOSPHERIC PROFILES',//,                         STD 2520
     + '  (IF A MOLECULE HAS MORE THAN ONE BAND, THEN THE DATA FOR THE',STD 2530
     + ' FIRST BAND ARE SHOWN.)'//                                      STD 2540
     1 '   I      Z       P       T      H2O      O3       CO2',        STD 2550
     2 '      CO       CH4      N2O      O2       NH3      NO ',        STD 2560
     3 '      NO2      SO2'/                                            STD 2570
     4 '         (KM)    (MB)    (K) G/CM**2/KM  (            ',        STD 2580
     5 '          ATM CM/KM                                   ',        STD 2590
     6 '                  )')                                           STD 2600
      END                                                               STD 2610
      SUBROUTINE SUBSOL(THETAS,PHIS,TIME,IDAY)                          SUB  100
C                                                                       SUB  110
C     SUBROUTINE SUBSOL CALCULATES THE SUBSOLAR POINT ANGLES            SUB  120
C     THETAS AND PHIS BASED UPON IDAY AND TIME. SINCE EACH              SUB  130
C     YEAR IS 365.25 DAYS LONG THE EXACT VALUE OF THE DECLINATION       SUB  140
C     ANGLE CHANGES FROM YEAR TO YEAR.  FOR PRECISE VALUES CONSULT      SUB  150
C     ' THE AMERICAN EPHEMERIS AND NAUTICAL ALMANAC' PUBLISHED YEARLY   SUB  160
C     BY THE U.S. GOVT. PRINTING OFFICE.  ALSO, THE SOLAR POSITION      SUB  170
C     IS CHARACTERIZED BY 25 POINTS BELOW; THIS SHOULD PREDICT THE SUBSOSUB  180
C     ANGLES WITHIN ONE DEGREE.  FOR INCREASED ACCURACY ADD MORE DATA   SUB  190
C     POINTS                                                            SUB  200
C                                                                       SUB  210
C     THE EQUATION OF TIME, EQT, IS IN MINUTES                          SUB  220
C     THE DECLINATION ANGLE, DEC IS IN DEGREES                          SUB  230
C                                                                       SUB  240
      COMMON /MODEL/ ZM(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),      SUB  250
     1 CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                         SUB  260
      COMMON /IFIL/ IRD,IPR,IPU,NPR,IPR1                                SUB  270
      DIMENSION NDAY(25),EQT(25),DEC(25)                                SUB  280
      DATA NDAY /1,9,21,32,44,60,91,121,141,152,160,172,182,            SUB  290
     1 190,202,213,244,274,305,309,325,335,343,355,366/                 SUB  300
      DATA DEC /-23.07,-22.22,-20.08,-17.32,-13.62,-7.88,4.23,          SUB  310
     1 14.83, 20.03,21.95,22.87,23.45,23.17,22.47,20.63,18.23,8.58,     SUB  320
     2 -2.88,-14.18,-15.45,-19.75,-21.68,-22.75,-23.43,-23.07/          SUB  330
      DATA EQT /-3.23,-6.83,-11.17,-13.57,-14.33,-12.63,-4.2,           SUB  340
     1 2.83,3.57,2.45,1.10,-1.42,-3.52,-4.93,-6.25,-6.28,-0.25,         SUB  350
     2 10.02,16.35,16.38,14.3,11.27,8.02,2.32,-3.23/                    SUB  360
      IF(IDAY.LT.1.OR.IDAY.GT.366)  GO TO 900                           SUB  370
      IF(TIME.LT.0.0.OR.TIME.GT.24.0)  GO TO 910                        SUB  380
      DO 10 I=1,25                                                      SUB  390
      IF(NDAY(I).EQ.IDAY) GO TO 30                                      SUB  400
10    IF(NDAY(I).GT.IDAY) GO TO 20                                      SUB  410
20    I=I-1                                                             SUB  420
      EQTIME=EQT(I)+(EQT(I+1)-EQT(I))*(IDAY-NDAY(I))/(NDAY(I+1)-NDAY(I))SUB  430
      DECANG=DEC(I)+(DEC(I+1)-DEC(I))*(IDAY-NDAY(I))/(NDAY(I+1)-NDAY(I))SUB  440
      GO TO 40                                                          SUB  450
30    EQTIME=EQT(I)                                                     SUB  460
      DECANG=DEC(I)                                                     SUB  470
40    THETAS=DECANG                                                     SUB  480
      EQTIME=EQTIME/60.0                                                SUB  490
      PHIS=15.0*(TIME+EQTIME)-180.0                                     SUB  500
      IF(PHIS.LT.0.0) PHIS=PHIS+360.0                                   SUB  510
      RETURN                                                            SUB  520
900   WRITE(IPR,901) IDAY                                               SUB  530
901   FORMAT(' FROM SUBSOL - IDAY OUT OF RANGE, IDAY=',I6)              SUB  540
      STOP                                                              SUB  550
910   WRITE(IPR,902) TIME                                               SUB  560
902   FORMAT(' FROM SUBSOL - TIME OUT OF RANGE, TIME=',E12.5)           SUB  570
      STOP                                                              SUB  580
      END                                                               SUB  590
      FUNCTION   SUN(V)                                                 SUN  100
C                                                                       SUN  110
C        EVALUATES THE EXTRA-TERRESTRIAL SOLAR IRRADIANCE               SUN  120
C                                                                       SUN  130
C        INPUT:  V  =  FREQUENCY   (CM-1)                               SUN  140
C                VALID RANGE   0 TO 57490 (CM-1)                        SUN  150
C                    (EQUIVALENT TO WAVELENGTHS > 0.174 MICROMETERS)    SUN  160
C                                                                       SUN  170
C        OUTPUT:  SUN  =  SOLAR IRRADIANCE  (WATTS M-2 MICROMETER-1)    SUN  180
C                                                                       SUN  190
C        WRITES A WARNING MESSAGE TO TAPE6  &  RETURNS  SUN = 0         SUN  200
C            IF THE INPUT FREQUENCY IS OUT OF RANGE                     SUN  210
C                                                                       SUN  220
C       USES  BLOCK DATA SOLAR   WHICH CONTAINS THE VALUES FOR SOLARA + SUN  230
C                                                                       SUN  240
      COMMON /SUNDAT/ SOLARA(1440), SOLARB(2910)                        SUN  250
      DATA  A, B / 3.50187E-13, 3.93281 /                               SUN  260
C                                                                       SUN  270
C       WM, W0, W1, W2  ARE STATEMENT FUNCTIONS USED BY                 SUN  280
C            THE 4 POINT LAGRANGE INTERPOLATION                         SUN  290
      WM(P) = P*(P - 1)*(P - 2)                                         SUN  300
      W0(P) = 3*(P**2 - 1)*(P - 2)                                      SUN  310
      W1(P) = 3*P*(P + 1)*(P - 2)                                       SUN  320
      W2(P) = P*(P**2 - 1)                                              SUN  330
C                                                                       SUN  340
C           IF  V  IS TOO SMALL,  WRITE WARNING  +  RETURN SUN = 0      SUN  350
      IF(V .LT. 0.0) THEN                                               SUN  360
        SUN = 0.0                                                       SUN  370
        WRITE(6, 900) V                                                 SUN  380
        RETURN                                                          SUN  390
C                                                                       SUN  400
      ELSEIF( V .GE. 0.0  .AND.  V .LT. 100.0 ) THEN                    SUN  410
C         FOR LOW FREQUENCIES USE A POWER LAW APPROXIMATION             SUN  420
        SUN = A*V**B                                                    SUN  430
        RETURN                                                          SUN  440
C                                                                       SUN  450
      ELSEIF( V .GE. 100.0  .AND.  V .LT. 28420.0 ) THEN                SUN  460
C         USE  4 POINT INTERPOLATION  ON  ARRAY  SOLARA                 SUN  470
C               WHICH IS AT  20 CM-1  SPACING  FROM 0 TO 28720 CM-1     SUN  480
        I = 1 + INT(V/20.0)                                             SUN  490
        P = MOD(V, 20.0)/20.0                                           SUN  500
        SUN = ( W2(P)*SOLARA(I+2) - W1(P)*SOLARA(I+1) +                 SUN  510
     +              W0(P)*SOLARA(I) - WM(P)*SOLARA(I-1) ) / 6           SUN  520
        RETURN                                                          SUN  530
C                                                                       SUN  540
      ELSEIF( V .GE. 28420.0  .AND.  V .LE. 57470.0 ) THEN              SUN  550
C         USE  4 POINT INTERPOLATION  ON  ARRAY  SOLARB                 SUN  560
C             WHICH IS AT  10 CM-1  SPACING  FROM 28400 TO 57490 CM-1   SUN  570
        I = INT(V/10.0) - 2839                                          SUN  580
        P = MOD(V, 10.0)/10.0                                           SUN  590
        SUN = ( W2(P)*SOLARB(I+2) - W1(P)*SOLARB(I+1) +                 SUN  600
     +              W0(P)*SOLARB(I) - WM(P)*SOLARB(I-1) ) / 6           SUN  610
        RETURN                                                          SUN  620
C                                                                       SUN  630
      ELSEIF( V .GT. 57470.0 ) THEN                                     SUN  640
C           IF  V  IS TOO LARGE,  WRITE WARNING  +  RETURN SUN = 0      SUN  650
        SUN = 0.0                                                       SUN  660
        WRITE(6, 900) V                                                 SUN  670
        RETURN                                                          SUN  680
C                                                                       SUN  690
      ENDIF                                                             SUN  700
C                                                                       SUN  710
      RETURN                                                            SUN  720
  900 FORMAT('0 *****  WARNING - INPUT FREQUENCY = ', 1PG12.5, 'CM-1',  SUN  730
     +  /, '   OUTSIDE VALID RANGE OF 0 TO 57470 CM-1    *******', / )  SUN  740
      END                                                               SUN  750
      FUNCTION   TAB(I,J,K,WC)                                          TAB  100
C********************************************************************** TAB  110
C                                                                       TAB  120
C          THE INTERNAL DATA:                                           TAB  130
C                                                                       TAB  140
      DIMENSION A(9,6,9),ALPHA(9,6,9),A1(5),A2(5),ALPHA1(5),            TAB  150
     *    MAXI(6,9)                                                     TAB  160
C                                                                       TAB  170
C          A(1,J,K),J=1,3 = POWER LAW COEFFICIENT FOR THE ABSORPTION    TAB  180
C            COEFICIENT FOR THE MARSHALL-PALMER WATER DROP SIZE         TAB  190
C            DISTRIBUTION FOR TEMPERATURE=10.*(J-2) AND FREQUENCY=FR(K) TAB  200
C          A(2,J,K),J=1,3 = THE SAME FOR THE EXTINCTION COEFFICIENT     TAB  210
C          A(I,J,K),J=1,3,I=3,9 = THE SAME FOR THE LEGENDRE             TAB  220
C                                      COEFFICIENT #I-2                 TAB  230
C          A(I,4,K),I=1,9 = THE SAME AS A(I,2,K), BUT FOR ICE           TAB  240
C                             (NO TEMPERATURE DEPENDENCE)               TAB  250
C          A(I,5,K),I=1,9 = THE SAME AS A(I,2,K), BUT FOR THE BEST DROP TAB  260
C            SIZE DISTRIBUTION (NO TEMPRATURE DEPENDENCE)               TAB  270
C          A(I,6,K),I=1,9 = THE SAME AS A(I,5,K), BUT FOR ICE           TAB  280
C          ALPHA(I,J,K) = THE POWER EXPONENET CORRESPONDING TO A(I,J,K) TAB  290
C          MAXI(J,K): TAB(I,J,K,WC)=0. IF I.GT.MAXI(J,K)                TAB  300
C          A1, A2 AND ALPHA1 = THE POWER-LINEAR LAW COEFFICIENTS AND    TAB  310
C                 EXPONENT FOR THE EXCEPTIONAL CASES                    TAB  320
C                                                                       TAB  330
C          THE FORMULA:                                                 TAB  340
C                                                                       TAB  350
C          SC=A*WC**ALPHA IF ABS(A).GT.10.**-8,                         TAB  360
C          SC=A1*WC**ALPHA1+A2*WC IF ABS(A).LE.10.**-8,                 TAB  370
C                    A1, A2 AND ALPHA1 ARE INDEXED BY INT(ALPHA)        TAB  380
C                                                                       TAB  390
C          THE BLOCK-DATA SECTION                                       TAB  400
C                                                                       TAB  410
      DATA ((MAXI(J,K),J=1,6),K=1,9)/4*6,14*7,36*9/                     TAB  420
      DATA (A1(I),A2(I),ALPHA1(I),I=1,5)/.611,-.807,1.18,.655,-.772,1.08TAB  430
     * ,.958,-1.,.99,.538,-.696,1.27,1.58,-1.50,1.02/                   TAB  440
      DATA ((A(I,J,1),J=1,6),I=1,7)/.284,.285,.294,.001336,.36,.00146,  TAB  450
     *.363,.365,.375,.0148,.528,.0317,3*0.,.3147,0.,.438,               TAB  460
     *.4908,.487,.482,.528,.478,.538,3*.0350,.0470,.0482,.0647,         TAB  470
     *.002,.00205,.00208,.00285,.0037,.0048,4*0.,.00021,.00016/         TAB  480
      DATA ((ALPHA(I,J,1),J=1,6),I=1,7)/1.214,1.233,1.25,1.035,1.22,    TAB  490
     *1.076,1.291,1.31,1.323,1.63,1.334,1.74,3.1,2.1,1.1,5.005,4.1,.555,TAB  500
     *-.009,-.013,-.016,.028,-.019,.031,.398,.399,.4,.473,.461,.525,    TAB  510
     *1.06,.97,1.03,1.03,1.18,1.16,4*0.,1.3,1.3/                        TAB  520
      DATA ((A(I,J,2),J=1,6),I=1,7)/.8,.77,.73,.00344,.76,.0043,        TAB  530
     *1.28,1.27,1.24,.162,1.43,.332,.254,.172,0.,.93,.32,1.29,          TAB  540
     *.5,.486,.4706,.69,.481,.8,.0965,.0936,.09,.159,.151,.234,         TAB  550
     *.0234,.0228,.0221,.034,.057,.065,2*.0037,.0035,.005,.011,.0106/   TAB  560
      DATA ((ALPHA(I,J,2),J=1,6),I=1,7)/2*1.1,1.09,1.13,1.02,1.19,      TAB  570
     *2*1.20,1.15,1.66,1.14,1.7,.29,.42,5.1,.39,.66,.44,                TAB  580
     *0.,-.01,-.0199,.12,-.01,.17,.386,.378,.2,.48,.485,.56,            TAB  590
     *.92,.91,.90,.97,1.15,1.13,1.32,1.26,1.32,1.41,1.69,1.67/          TAB  600
      DATA ((A(I,J,3),J=1,6),I=1,7)/1.11,1.07,1.02,.0059,.92,.00775,    TAB  610
     *1.88,1.89,1.87,.43,1.80,.77,.512,.425,.336,1.25,.677,1.55,        TAB  620
     *.561,.534,.506,.867,.6,1.07,.175,.165,.156,.300,.292,.49,         TAB  630
     *.066,.064,.061,.105,.16,.22,                                      TAB  640
     *.0169,.0162,.0156,.023,.055,.056/                                 TAB  650
      DATA ((ALPHA(I,J,3),J=1,6),I=1,7)/2*1.01,1.,1.18,.92,1.23,        TAB  660
     *3*1.1,1.58,1.,1.57,.264,.320,.445,.27,.416,.27,                   TAB  670
     *.048,.033,.018,.168,.09,.224,.429,.417,.402,.501,.528,.62,        TAB  680
     *2*.83,.82,.9,1.01,1.11,1.22,1.21,1.2,1.23,1.51,1.53/              TAB  690
      DATA ((A(I,J,4),J=1,6),I=1,9)/1.51,1.49,1.44,.0163,1.12,.0194,    TAB  700
     *2.73,2.77,2.79,1.61,2.18,1.9,1.14,1.054,.961,1.57,1.36,1.66,      TAB  710
     *.99,.93,.87,1.31,1.33,1.63,.594,.557,.516,.77,1.02,1.16,          TAB  720
     *.352,.334,.315,.43,.73,.8,.171,.163,.154,.18,.47,.43,             TAB  730
     *.084,.081,.077,.106,.29,.32,.037,.036,.034,.029,.16,.11/          TAB  740
      DATA ((ALPHA(I,J,4),J=1,6),I=1,9)/.87,.86,.85,1.181,.79,1.16,     TAB  750
     *.93,.92,.91,1.3,.84,1.18,.188,.21,.24,.09,.21,.06,                TAB  760
     *2*.2,.19,.175,.275,.2,2*.461,.459,.39,.51,.41,                    TAB  770
     *2*.66,.65,.58,.70,.64,2*.94,.93,.84,1.03,1.01,                    TAB  780
     *3*1.22,1.09,1.37,1.4,1.58,1.56,1.54,1.5,1.8,1.9/                  TAB  790
      DATA ((A(I,J,5),J=1,6),I=1,9)/1.55,1.53,1.49,.0194,1.14,.0225,    TAB  800
     *2.82,2.87,2.90,1.91,2.22,2.,1.266,1.184,1.093,1.60,1.48,1.65,     TAB  810
     *1.13,1.07,1.,1.4,1.51,1.69,.74,.698,.649,.87,1.24,1.23,           TAB  820
     *.465,.444,.418,.52,.94,.91,.248,.238,.225,.24,.65,.53,            TAB  830
     *.132,.128,.122,.15,.43,.47,.065,.063,.06,.045,.26,.16/            TAB  840
      DATA ((ALPHA(I,J,5),J=1,6),I=1,9)/.85,.84,.83,1.168,.78,1.15,     TAB  850
     *.9,.89,.88,1.23,.82,1.11,.172,.191,.216,.071,.181,.04,            TAB  860
     *.222,.221,.22,.165,.274,.17,.452,.454,.456,.35,.48,.33,           TAB  870
     *.63,.68,.63,.52,.66,.55,3*.89,.76,.94,.86,                        TAB  880
     *1.14,1.13,1.12,.96,1.24,1.1,1.44,1.41,1.43,1.31,1.6,1.6/          TAB  890
      DATA ((A(I,J,6),J=1,6),I=1,9)/2*1.58,1.54,.0248,1.15,.0279,       TAB  900
     *2.94,2.97,3.,2.34,2.25,2.2,1.447,1.374,1.288,1.62,1.64,1.63,      TAB  910
     *1.37,1.31,1.234,1.52,1.8,1.77,1.,.96,.898,1.01,1.6,1.3,           TAB  920
     *.68,.66,.62,.66,1.31,1.07,.41,.4,.38,.33,.99,.66,                 TAB  930
     *.25,.24,.23,.23,.71,.56,.136,.133,.127,.081,.49,.26/              TAB  940
      DATA ((ALPHA(I,J,6),J=1,6),I=1,9)/.83,.81,.8,1.145,.762,1.120,    TAB  950
     *.87,.86,.85,1.14,.799,1.,.149,.165,.184,.046,.148,.014,           TAB  960
     *.232,.236,.238,.146,.255,.13,.428,.433,.438,.28,.44,.23,          TAB  970
     *3*.59,.44,.59,.43,3*.81,.64,.83,.66,                              TAB  980
     *1.02,2*1.01,.81,1.06,.89,2*1.25,1.24,1.07,1.36,1.3/               TAB  990
      DATA ((A(I,J,7),J=1,6),I=1,9)/1.60,1.59,1.56,.0285,1.16,.0314,    TAB 1000
     *2.98,3.02,3.05,2.6,2.26,2.3,1.546,1.481,1.4,1.63,1.72,1.62,       TAB 1010
     *1.52,1.464,1.388,1.58,1.97,1.8,1.18,1.13,1.07,1.08,1.82,1.33,     TAB 1020
     *.84,.82,.78,.75,1.55,1.16,.54,.53,.5,.4,1.22,.74,                 TAB 1030
     *.34,.33,.32,.3,.93,.67,2*.2,.19,.112,.67,.33/                     TAB 1040
      DATA ((ALPHA(I,J,7),J=1,6),I=1,9)/.81,.80,.788,1.132,.753,1.105,  TAB 1050
     *.85,.84,.83,1.09,.788,.95,.136,.153,.167,.033,.131,.004,          TAB 1060
     *.232,.236,.241,.133,.24,.11,.411,.416,.422,.25,.40,.19,           TAB 1070
     *3*.56,.4,.55,.38,2*.77,.76,.58,.76,.56,                           TAB 1080
     *3*.95,.74,.97,.78,1.17,2*1.16,.98,1.23,1.11/                      TAB 1090
      DATA ((A(I,J,8),J=1,6),I=1,9)/2*1.60,1.58,.045,1.15,.0461,        TAB 1100
     *3.08,3.09,3.1,3.3,2.27,2.32,1.849,1.81,1.75,1.628,1.98,1.606,     TAB 1110
     *2.07,2.04,1.98,1.78,2.5,1.946,1.89,1.86,1.81,1.30,2.6,1.508,      TAB 1120
     *1.58,1.56,1.52,1.11,2.49,1.57,1.22,1.21,1.18,.68,2.2,1.11,        TAB 1130
     *2*.91,.89,.61,2.,1.18,2*.65,.64,.299,1.6,.73/                     TAB 1140
      DATA ((ALPHA(I,J,8),J=1,6),I=1,9)/.777,.764,.752,1.092,.729,1.057,TAB 1150
     *.796,.79,.784,.96,.756,.81,.1,.108,.117,.004,.089,-.006,          TAB 1160
     *.207,.210,.215,.093,.182,.075,2*.34,.35,.15,.30,.122,             TAB 1170
     *3*.46,.3,.41,.28,3*.61,.42,.55,.394,                              TAB 1180
     *3*.75,.56,.7,.55,2*.91,.9,.76,.87,.79/                            TAB 1190
      DATA ((A(I,J,9),J=1,6),I=1,9)/2*1.58,1.56,.0587,1.13,.0579,       TAB 1200
     *3.09,2*3.08,3.39,2.26,2.33,2.009,1.99,1.95,1.624,2.11,1.64,       TAB 1210
     *2.43,2.42,2.38,1.902,2.80,2.078,2*2.42,2.38,1.454,3.09,1.7,       TAB 1220
     *2*2.2,2.17,1.4,3.1,1.91,1.87,1.88,1.85,.94,3.,1.46,               TAB 1230
     *2*1.54,1.52,.93,2.8,1.64,2*1.22,1.21,.53,2.5,1.17/                TAB 1240
      DATA ((ALPHA(I,J,9),J=1,6),I=1,9)/.757,.746,.736,1.06,.717,1.024, TAB 1250
     *.766,.764,.761,.86,.74,.763,.084,.087,.092,-.0018,.069,.007,      TAB 1260
     *.183,.182,.184,.078,.148,.075,3*.29,.128,.24,.13,                 TAB 1270
     *.4,2*.39,.264,.33,.256,2*.52,.51,.367,.44,.360,                   TAB 1280
     *2*.63,.62,.49,.55,.47,.76,2*.75,.67,.67,.66/                      TAB 1290
C                                                                       TAB 1300
C                                                                       TAB 1310
      IF(I.GT.MAXI(J,K)) THEN                                           TAB 1320
      TAB=0.                                                            TAB 1330
      RETURN                                                            TAB 1340
      END IF                                                            TAB 1350
      IF(ABS(A(I,J,K)).GT.1.E-8) THEN                                   TAB 1360
      TAB=A(I,J,K)*WC**ALPHA(I,J,K)                                     TAB 1370
      ELSE                                                              TAB 1380
      L=ALPHA(I,J,K)                                                    TAB 1390
      TAB=A1(L)*WC**ALPHA1(L)+A2(L)*WC                                  TAB 1400
      END IF                                                            TAB 1410
      RETURN                                                            TAB 1420
      END                                                               TAB 1430
      BLOCK DATA TITLE                                                  BTI  100
C>    BLOCK DATA                                                        BTI  110
C     TITLE INFORMATION                                                 BTI  120
      CHARACTER*4  HHAZE      ,HSEASN     ,HVULCN     ,BLANK,           BTI  125
     X            HMET        ,HMODEL     ,HTRRAD                       BTI  127
      COMMON /TITL/ HHAZE(5,16),HSEASN(5,2),HVULCN(5,8),BLANK,          BTI  130
     X HMET(5,2),HMODEL(5,8),HTRRAD(6,4)                                BTI  140
      COMMON /VSBD/ VSB(10)                                             BTI  145
      DATA VSB /23.,5.,0.,23.,5.,50.,23.,0.2,0.5,0./                    BTI  150
      DATA BLANK/'    '/                                                BTI  160
      DATA HHAZE /                                                      BTI  170
     1 'RURA','L   ','    ','    ','    ',                              BTI  180
     2 'RURA','L   ','    ','    ','    ',                              BTI  190
     3 'NAVY',' MAR','ITIM','E   ','    ',                              BTI  200
     4 'MARI','TIME','    ','    ','    ',                              BTI  210
     5 'URBA','N   ','    ','    ','    ',                              BTI  220
     6 'TROP','OSPH','ERIC','    ','    ',                              BTI  230
     7 'USER',' DEF','INED','    ','    ',                              BTI  240
     8 'FOG1',' (AD','VECT','TION',')   ',                              BTI  250
     9 'FOG2','(RAD','IATI','0N) ','    ',                              BTI  260
     X 'DESE','RT A','EROS','OL  ','    ',                              BTI  270
     A 'BACK','GROU','ND S','TRAT','O   ',                              BTI  280
     B 'AGED',' VOL','CANI','C   ','    ',                              BTI  290
     C 'FRES','H VO','LCAN','IC  ','    ',                              BTI  300
     D 'AGED',' VOL','CANI','C   ','    ',                              BTI  310
     E 'FRES','H VO','LCAN','IC  ','    ',                              BTI  320
     F 'METE','ORIC',' DUS','T   ','    '/                              BTI  330
      DATA HSEASN /                                                     BTI  340
     1 'SPRI','NG-S','UMME','R   ','    ',                              BTI  350
     2 'FALL','-WIN','TER ','    ','    ' /                             BTI  360
      DATA HVULCN /                                                     BTI  370
     1 'BACK','GROU','ND S','TRAT','O   ',                              BTI  380
     2 'MODE','RATE',' VOL','CANI','C   ',                              BTI  390
     3 'HIGH','    ',' VOL','CANI','C   ',                              BTI  400
     4 'HIGH','    ',' VOL','CANI','C   ',                              BTI  410
     5 'MODE','RATE',' VOL','CANI','C   ',                              BTI  420
     6 'MODE','RATE',' VOL','CANI','C   ',                              BTI  430
     7 'HIGH','    ',' VOL','CANI','C   ',                              BTI  440
     8 'EXTR','EME ',' VOL','CANI','C   '/                              BTI  450
      DATA HMET/                                                        BTI  460
     1 'NORM','AL  ','    ','    ','    ',                              BTI  470
     2 'TRAN','SITI','ON  ','    ','    '/                              BTI  480
      DATA HMODEL /                                                     BTI  490
     1 'TROP','ICAL',' MOD','EL  ','    ',                              BTI  500
     2 'MIDL','ATIT','UDE ','SUMM','ER  ',                              BTI  510
     3 'MIDL','ATIT','UDE ','WINT','ER  ',                              BTI  520
     4 'SUBA','RCTI','C   ','SUMM','ER  ',                              BTI  530
     5 'SUBA','RCTI','C   ','WINT','ER  ',                              BTI  540
     6 '1976',' U S',' STA','NDAR','D   ',                              BTI  550
     7 '   ','    ','    ','    ','    ',                               BTI  560
     8 'MODE','L =0','HORI','ZONT','AL  '/                              BTI  570
      DATA HTRRAD/                                                      BTI  580
     1 'TRAN','SMIT','TANC','E   ','    ','    ',                       BTI  590
     2 'RADI','ANCE','    ','    ','    ','    ',                       BTI  600
     3 'RADI','ANCE','+SOL','AR S','CATT','ERNG',                       BTI  610
     4 'TRAN','SMIT','TED ','SOLA','R IR','RAD.'/                       BTI  620
      END                                                               BTI  630
      FUNCTION   TNRAIN(RR,V,TM,RADFLD)                                 TNR  100
CCC                                                                     TNR  110
      COMMON /CNSTNS/ PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                     TNR  120
      COMMON /CARD3/ H1,H2,ANGLE,RANGE,BETA,RE,LEN                      TNR  130
CCC   CALCULATES TRANSMISSION DUE TO RAIN AS A FUNCTION OF              TNR  140
CCC   RR=RAIN RATE IN MM/HR                                             TNR  150
CCC   OR WITHIN 350CM-1 USES THE MICROWAVE TABLE ROUTINE TO             TNR  160
CCC   OBTAIN THE EXTINCTION DUE TO RAIN                                 TNR  170
CCC   RANGE=SLANT RANGE KM                                              TNR  180
CCC                                                                     TNR  190
CCC   ASSUMES A MARSHALL-PALMER RAIN DROP SIZE DISTRIBUTION             TNR  200
CCC   N(D)=NZERO*EXP(-A*D)                                              TNR  210
CCC   NZERO=8.E3 (MM-1)  (M-3)                                          TNR  220
CCC   A=41.*RR**(-0.21)                                                 TNR  230
CCC   D=DROP DIAMETER (CM)                                              TNR  240
CCC                                                                     TNR  250
      REAL NZERO                                                        TNR  260
      DATA NZERO /8000./                                                TNR  270
CCC                                                                     TNR  280
      A=41./RR**0.21                                                    TNR  290
CCC                                                                     TNR  300
      IF(RR.LE.0)TNRAIN=1.                                              TNR  310
      IF(RR.LE.0)RETURN                                                 TNR  320
CCC                                                                     TNR  330
      IF(V.GE.350.0) THEN                                               TNR  340
       TNRAIN=PI*NZERO/A**3                                             TNR  350
      ELSE                                                              TNR  360
       TNRAIN=GMRAIN(V,TM,RR)                                           TNR  370
       TNRAIN = TNRAIN * RADFLD                                         TNR  380
      END IF                                                            TNR  390
      RETURN                                                            TNR  400
      END                                                               TNR  410
      SUBROUTINE TRANS(IPH,ISOURC,IDAY,ANGLEM,IRPT)                     TRA   10
C***********************************************************************TRA   20
C     CALCULATES TRANSMITTANCE AND RADIANCE VALUES BETWEEN IV1 AND IV2  TRA   30
C     FOR A GIVEN ATMOSPHERIC SLANT PATH                                TRA   40
C                                                                       TRA   50
C     K                                                                 TRA   60
C     1-2  TEMP DEP O2 1395 CM-1 TO 1760 CM-1                           TRA   70
C     3    RAIN                                                         TRA   80
C     4    N2 CONTINUUM                                                 TRA   90
C     5    H2O SELF BROADENED CONTINUUM AT 296                          TRA  100
C     6    MOLECULAR (RAYLEIGH) SCATTERING                              TRA  110
C     7    BOUNDARY (0-2 KM) LAYER AEROSOL (TX(7) = TOTAL AEROSOL TRANS)TRA  120
C     8    ULTRAVIOLET OZONE                                            TRA  130
C     9    H2O SELF CONTINUUM 296-260 (TX(9) = TOTAL TRANS)             TRA  140
C    10    H2O FOREIGN CONTINUUM (TX(10) = AEROSOL ABSORPTION)          TRA  150
C    11    HNO3 (NITRIC ACID)                                           TRA  160
C    12    TROPOSPHERIC AEROSOL (2-10 KM)                               TRA  170
C    13    STRATOSPHERIC AEROSOL (10-30 KM)                             TRA  180
C    14    UPPER STRATOSPHERIC (ABOVE 30 KM)                            TRA  190
C    15    AEROSOL WEIGHTED RELATIVE HUMIDITY (0-2 KM)                  TRA  200
C    16    CIRRUS CLOUDS                                                TRA  210
C    17-30 H2O (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                TRA  220
C    31-35 O3  (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                TRA  230
C    36-43 CO2 (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                TRA  240
C    44-45 CO  (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                TRA  250
C    46    CH4 (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                TRA  260
C    47    N2O (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                TRA  270
C    50-51 O2  (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                TRA  280
C    52-53 NH3 (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                TRA  290
C    54    NO  (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                TRA  300
C    55    NO2 (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                TRA  310
C    56-57 SO2 (ALL REGIONS) (DOUBLE EXPONENTIAL MODELS)                TRA  320
C    58     O2  UV                                                      TRA  330
C    59-60  TEMP DEP O3                                                 TRA  340
C    61-62  TEMP DEP RAIN                                               TRA  350
C    63     O2  1395 TO 1760                                            TRA  360
C***********************************************************************TRA  370
C                                                                       TRA  380
C      MODIFIED TO ACCOMODATE MULTIPLE SCATTERING CALCULATION           TRA  390
C      AS DESCRIBED IN ISAACS ET AL 1986,      A.E.R. INC.              TRA  400
C                                                                       TRA  410
C      MODIFICATIONS TO SET UP EVALUATION OF VERTICAL OPTICAL           TRA  420
C      QUANTITIES PROFILES (I.E. OPTICAL DEPTH, SINGLE SCATTERING       TRA  430
C      ALBEDO, ASYMMETRY FACTORS) FOR FLUX ADDING AND MULTIPLE          TRA  440
C      SCATTERING (MS) SOURCE FUNCTION.                                 TRA  450
C                                                                       TRA  460
C      SUBROUTINE MSRAD                                                 TRA  470
C                                                                       TRA  480
C      SUBROUTINE MSRAD:                                                TRA  490
C         (1) SETS UP OPTICAL PROPERTIES PROFILES FOR VERTICAL          TRA  500
C             PATH                                                      TRA  510
C         (2) CALLS FLXADD WHICH RETURNS MS SOURCE FUNCTION, J,         TRA  520
C             FOR PATH                                                  TRA  530
C                                                                       TRA  540
C      SUBROUTINE    FLXADD:                                            TRA  550
C         (1) CALCULATES UPWARD, F+ (UPF), AND DOWNWARD, F- (DNF),      TRA  560
C             FLUX PROFILES USING ADDING METHOD                         TRA  570
C         (2) MS SOURCE FUNCTION EVALUATED FROM LEVEL FLUXES VIA        TRA  580
C             STREAM APPROXIMATION (SEE EQN     , ISAACS ET AL, 1986)   TRA  590
C         (3) BACKSCATTER FOR SOURCE FUNCTION FOR GIVEN G FACTOR        TRA  600
C             AND ZENITH ANGLE OBTAINED USING FUNCTION BETABS           TRA  610
C                                                                       TRA  620
C***********************************************************************TRA  630
C                                                                       TRA  640
      COMMON/IFIL/IRD,IPR,IPU,NPR,IPR1                                  TRA  650
      COMMON/CARD1/MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB,   TRA  660
     1  MODTRN                                                          TRA  670
      COMMON/CARD2/IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,     TRA  680
     1    RAINRT                                                        TRA  690
      COMMON/CARD3/H1,H2,ANGLE,RANGE,BETA,RE,LEN                        TRA  700
      COMMON/CARD4/IV1,IV2,IDV,IFWHM                                    TRA  710
      COMMON/CNSTNS/PI,CA,DEG,GCAIR,BIGNUM,BIGEXP                       TRA  720
      COMMON/CNTRL/KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT                 TRA  730
      COMMON RELHUM(34),HSTOR(34),ICH(4),VH(17),TX(63),W(63)            TRA  740
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   TRA  750
      COMMON ABSC(5,47),EXTC(5,47),ASYC(5,47),VX2(47),AWCCON(5)         TRA  760
      COMMON/AER/XX1,XX2,XX3,XX4,XX5,                                   TRA  770
     1  YY1,YY2,YY3,YY4,YY5,ZZ1,ZZ2,ZZ3,ZZ4,ZZ5                         TRA  780
      COMMON/SOLS/AH1(68),ARH(68),                                      TRA  790
     1  WPATHS(102,63),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),      TRA  800
     2  JTURN,ANGSUN,CSZEN(68),TBBYS(102,12),PATMS(102,12)              TRA  810
      COMMON/SRAD/TEB1,TEB2,TASP1,TASP2,TMSP1,TMSP2,TEB2SV              TRA  820
      COMMON/MODEL/ZM(34),PM(34),TM(34),RFNDX(34),DENSTY(63,34),        TRA  830
     1  CLDAMT(34),RRAMT(34),EQLWC(34),HAZEC(34)                        TRA  840
      COMMON/PATH/PL(68),QTHETA(68),ITEST,HI,HF,AHT(68)                 TRA  850
      COMMON/TRAN/BTOP(50),TMOLS(34),TAERS(34),TCONT(34),DCONT(68)      TRA  860
      COMMON/MSRD/TLE(34),COSBAR(34),OMEGA0(68),UPF(10,34),DNF(10,34),  TRA  870
     1  TAER(50),DTX7(68),DAERS(68),ASYIK(68),ASYDM(68),STRN(0:34),     TRA  880
     2  DMOLS(68),DSTRN(0:68),FDNSRF,FDNSRT,IKDM,FDNTRF,FDNTRT,TAUT(34) TRA  890
      COMMON/ICLL/ICALL,FPHS,FALB,FORBIT                                TRA  900
      COMMON/H2O/CPH2O(3515)                                            TRA  910
      COMMON/O3/CPO3(447)                                               TRA  920
      COMMON/UFMIX1/CPCO2(1219)                                         TRA  930
      COMMON/UFMIX2/CPCO(173),CPCH4(493),CPN2O(704),CPO2(382)           TRA  940
      COMMON/TRACEG/CPNH3(431),CPNO(62),CPNO2(142),CPSO2(226)           TRA  950
      COMMON/WNLOHI/IWLH2O(15),IWLO3(6),IWLCO2(11),IWLCO(4),IWLCH4(5),  TRA  960
     1  IWLN2O(12),IWLO2(7),IWLNH3(3),IWLNO(2),IWLNO2(4),IWLSO2(5),     TRA  970
     2              IWHH2O(15),IWHO3(6),IWHCO2(11),IWHCO(4),IWHCH4(5),  TRA  980
     3  IWHN2O(12),IWHO2(7),IWHNH3(3),IWHNO(2),IWHNO2(4),IWHSO2(5)      TRA  990
      COMMON/AABBCC/A1(11),B1(11),C1(11),IBND(11),A(11),CPS(11)         TRA 1000
      COMMON/DIRST/SUN,UMB(34),DMB(34),UMBS(34),DMBS(34)                TRA 1010
      DIMENSION IMAP(68),BET(68),DMF(34),DMFS(34),UMF(34),UMFS(34)      TRA 1020
     1  ,ABB(19),WGT(99),SLIT(58,99),TXNEW(16,102,3),TXOLD(16,102,3)    TRA 1030
      LOGICAL MODTRN,IVTEST                                             TRA 1040
      INTEGER PHASE,DIST                                                TRA 1050
      DATA CF1/3.159E-08/,CF2/2.75E-04/                                 TRA 1060
      DO 1 I=1,16
      DO 1 J = 1,102
      DO 1 K = 1,3
      TXNEW(I,J,K) =0.
      TXOLD(I,J,K)=0.
1     CONTINUE
      DO 2 I = 1,63
2     TX(I) = 0.
      DO 3 I = 1,58
      DO 3 J = 1,99
3     SLIT(I,J) =0.
      ALPHA2=200.**2                                                    TRA 1070
      IOFF=0                                                            TRA 1080
      IF(H1.GE.H2 .OR. ANGLE.GT.90.)IOFF=1                              TRA 1090
C                                                                       TRA 1100
C     SET UP LAYER EDGE AND MIDPOINT TEMPERATURES FOR USE IN            TRA 1110
C     MS FLUX ADDING                                                    TRA 1120
C                                                                       TRA 1130
      IF(IMULT.EQ.1)THEN                                                TRA 1140
          CALL MAPMS(ML,IKMAX,ZM,AHT,IMAP)                              TRA 1150
          DO 10 IK=1,ML                                                 TRA 1160
   10     TLE(IK)=TM(ML-IK+1)                                           TRA 1170
          TLE(ML+1)=TLE(ML)                                             TRA 1180
      ENDIF                                                             TRA 1190
      RADMIN=1.E+30                                                     TRA 1200
      RADMAX=0.                                                         TRA 1210
      IENT=0                                                            TRA 1220
      EMISS=1.-SALB                                                     TRA 1230
      VRMIN=0.                                                          TRA 1240
      VRMAX=0.                                                          TRA 1250
C                                                                       TRA 1260
C  SAVE IKMAX AND IMULT                                                 TRA 1270
C                                                                       TRA 1280
      IKMX=IKMAX                                                        TRA 1290
      SUMA=0.                                                           TRA 1300
      SUMS=-99.                                                         TRA 1310
      SUMSSR=-99.                                                       TRA 1320
      RFLS=-99.                                                         TRA 1330
      RFLSOL=-99.                                                       TRA 1340
      RADSUM=0.                                                         TRA 1350
      STSOL=0.                                                          TRA 1360
      SSOL=0.                                                           TRA 1370
      FACTOR=.5                                                         TRA 1380
      IKLO=1                                                            TRA 1390
      ICOUNT=50                                                         TRA 1400
      IF(IV1 .GE. 17905)MODTRN = .FALSE.
      IF(MODTRN)THEN                                                    TRA 1410
C                                                                       TRA 1420
C         WHEN THE MODERATE RESOLUTION OPTION IS USED, CALL BMDATA TO   TRA 1430
C         INITIALIZE PARAMETERS FOR THE 1 CM-1 OPTION AND TO SET THE    TRA 1440
C         FREQUENCY STEP SIZE "IDVX" TO THE BAND WIDTH.                 TRA 1450
C                                                                       TRA 1460
          IDV5=5                                                        TRA 1470
          CALL BMDATA(IV1,IFWHM,IDVX,IKMX,MXFREQ)                       TRA 1480
          IWIDM1=IFWHM/IDVX-1                                           TRA 1490
          IV=5*((IV1-IWIDM1)/5)                                         TRA 1500
          IF(IV.LT.0)IV=0                                               TRA 1510
CC        IF(IV.GT.MXFREQ)THEN                                          TRA 1520
CC            IRPT=-4                                                   TRA 1530
CC            RETURN                                                    TRA 1540
CC        ENDIF                                                         TRA 1550
          IVX=IV-IDVX                                                   TRA 1560
          IV=IV-5                                                       TRA 1570
          IVXMAX=IV2+IWIDM1                                             TRA 1580
CC        IF(IV2.GT.MXFREQ)IVXMAX=MXFREQ+IWIDM1                         TRA 1590
      ELSE                                                              TRA 1600
          IDV5=IDV                                                      TRA 1610
          IDVX=IDV5                                                     TRA 1620
          IWIDM1=0                                                      TRA 1630
          IV=IV1-IDV5                                                   TRA 1640
          IVX=IV                                                        TRA 1650
          IVXMAX=IV2+IWIDM1                                             TRA 1660
          IF(IVXMAX.GT.50000)IVXMAX=50000                               TRA 1670
          IF(IDV .LT. 5)IDV = 5
      ENDIF                                                             TRA 1680
      IWRITE=IV1+IWIDM1                                                 TRA 1690
      IWIDTH=IWIDM1+1                                                   TRA 1700
C                                                                       TRA 1710
C     PERFORM TRIANGULAR SLIT INITIALIZATION.  TRANSMITTANCES AT A      TRA 1720
C     GIVEN FREQUENCY CONTRIBUTE TO 2*IWIDTH-1 TRIANGULAR SLITS.  THESE TRA 1730
C     CONTRIBUTIONS ARE STORED IN SLIT.  WGT IS THE NORMALIZED WEIGHT   TRA 1740
C     USED TO DEFINE THE TRIANGLE.                                      TRA 1750
C                                                                       TRA 1760
      NWGT=2*IWIDTH                                                     TRA 1770
      WNORM=1./(IWIDTH*IWIDTH)                                          TRA 1780
      DO 20 I=1,IWIDTH                                                  TRA 1790
          WGT(I)=I*WNORM                                                TRA 1800
   20 WGT(NWGT-I)=I*WNORM                                               TRA 1810
      NWGT=NWGT-1                                                       TRA 1820
      NWGTM1=NWGT-1                                                     TRA 1830
      ICALL=0                                                           TRA 1840
      IEMISS=0                                                          TRA 1850
      IF(IEMSCT.EQ.1 .OR. IEMSCT.EQ.2)IEMISS=1                          TRA 1860
      WCRRIS=WPATH(IKMAX,16)*2.                                         TRA 1870
      TCRRIS=1.                                                         TRA 1880
      IF(ICLD.EQ.20)THEN                                                TRA 1890
          IF(WCRRIS.LE.BIGEXP)THEN                                      TRA 1900
              TCRRIS=EXP(-WCRRIS)                                       TRA 1910
          ELSE                                                          TRA 1920
              TCRRIS=0.                                                 TRA 1930
          ENDIF                                                         TRA 1940
      ENDIF                                                             TRA 1950
      IF(IEMSCT.EQ.0)THEN                                               TRA 1960
          WRITE(IPU,'(46H  FREQ   TOTAL     H2O     CO2+ OZONE    TRACE,TRA 1970
     1      49H  N2 CON  H2O CON MOL SCAT AER-HYD HNO3   AER-HYD)')     TRA 1980
          WRITE(IPR1,'(45H   FREQ  H2O     O3       CO2    CO       CH4,TRA 1990
     1      47H     N2O    O2     NH3      NO     NO2      SO2,/        TRA 2000
     2      55H   1/CM  TRANS   TRANS    TRANS  TRANS    TRANS   TRANS, TRA 2010
     3      39H  TRANS  TRANS    TRANS  TRANS    TRANS)')               TRA 2020
      ELSEIF(IEMSCT.EQ.3)THEN                                           TRA 2030
          WRITE(IPU,'(32H  FREQ   TRANS     SOL TR  SOLAR)')            TRA 2040
      ELSE                                                              TRA 2050
          WRITE(IPU,'(42H  FREQ   TRANS     ATMOS   PATH     SINGLE,    TRA 2060
     1      28H   GROUND DIRECT   TOTAL RAD)')                          TRA 2070
      ENDIF                                                             TRA 2080
      IF(NOPRNT.EQ.-1)THEN                                              TRA 2090
          IF(IMULT.EQ.1)THEN                                            TRA 2100
              WRITE(IPR1,'(37H        V   ALT1    UFLX        UFLXS,    TRA 2110
     1          50H       DFLX        DFLXS       DIRS          TRANS)')TRA 2120
          ELSE                                                          TRA 2130
              IF(IEMSCT.GT.0)WRITE(IPR1,'(23H        V   ALT1   ALT2,   TRA 2140
     1          30H    B(V,T)     DTAU        TAU)')                    TRA 2150
          ENDIF                                                         TRA 2160
      ENDIF                                                             TRA 2170
      INDH2O=1                                                          TRA 2180
      INDO3 =1                                                          TRA 2190
      INDCO2=1                                                          TRA 2200
      INDCO =1                                                          TRA 2210
      INDCH4=1                                                          TRA 2220
      INDN2O=1                                                          TRA 2230
      INDO2 =1                                                          TRA 2240
      INDNH3=1                                                          TRA 2250
      INDNO =1                                                          TRA 2260
      INDNO2=1                                                          TRA 2270
      INDSO2=1                                                          TRA 2280
C                                                                       TRA 2290
C     BEGINNING OF FREQUENCY LOOP                                       TRA 2300
C                                                                       TRA 2310
C     "IVX" IS THE FREQUENCY AT WHICH TRANSMITTANCE WILL BE CALCULATED. TRA 2320
C     DURING THE FIRST PASS, "IVX" AND "IV" MUST BE EQUAL.              TRA 2330
C                                                                       TRA 2340
   30 IVX=IVX+IDVX                                                      TRA 2350
      IF(IV.LT.IVX)THEN                                                 TRA 2360
          IV=IV+IDV5                                                    TRA 2370
          IVTEST=.TRUE.                                                 TRA 2380
      ELSE                                                              TRA 2390
          IVTEST=.FALSE.                                                TRA 2400
      ENDIF                                                             TRA 2410
C                                                                       TRA 2420
C     SET INTERPOLATION FRACTION.                                       TRA 2430
C                                                                       TRA 2440
      FRAC=FLOAT(IV-IVX)/IDV5                                           TRA 2450
      INIT=0                                                            TRA 2460
      IKLO=1                                                            TRA 2470
      IF(IEMISS.EQ.0)THEN                                               TRA 2480
          IKMAX=IKLO                                                    TRA 2490
      ELSEIF(IMULT.EQ.1)THEN                                            TRA 2500
C         FOR MULTIPLE SCATTERING SET IKMAX TO IMSMX                    TRA 2510
          IKMAX=IMSMX                                                   TRA 2520
      ELSE                                                              TRA 2530
C         IF NOT MULTIPLE SCATTERING, RESET IKMAX TO ORIGINAL VALUE     TRA 2540
          IKMAX=IKMX                                                    TRA 2550
      ENDIF                                                             TRA 2560
      ITZERO=0                                                          TRA 2570
      IPATH=1                                                           TRA 2580
      SUMV=0.                                                           TRA 2590
      TLOLD=1.                                                          TRA 2600
      IF(ICOUNT.EQ.50)THEN                                              TRA 2610
          ICOUNT=0                                                      TRA 2620
          IF(IEMSCT.EQ.0)THEN                                           TRA 2630
              WRITE(IPR,'(1H1,/33H   FREQ WAVELENGTH  TOTAL     H2O,    TRA 2640
     1          51H     CO2+     OZONE    TRACE  N2 CONT  H2O CONT MOL, TRA 2650
     2          43H SCAT  AER-HYD  HNO3    AER-HYD  INTEGRATED,//       TRA 2660
     3          52H   1/CM  MICRONS    TRANS    TRANS    TRANS    TRANS,TRA 2670
     4          45H    TRANS   TRANS    TRANS    TRANS     TRANS,       TRA 2680
     5          30H   TRANS    ABS     ABSORPTION,/)')                  TRA 2690
          ELSEIF(IEMSCT.EQ.1)THEN                                       TRA 2700
              WRITE(IPR,'(1H1,20X,28HRADIANCE(WATTS/CM2-STER-XXX),/     TRA 2710
     1          8H0   FREQ,T10,6HWAVLEN,T19,14HATMOS RADIANCE,T39,      TRA 2720
     2          9H INTEGRAL,T49,5HTOTAL,/2X,6H(CM-1),T10,7H(MICRN),T19, TRA 2730
     3          6H(CM-1),T29,7H(MICRN),T39,6H(CM-1),T49,5HTRANS,/)')    TRA 2740
          ELSEIF(IEMSCT.EQ.3)THEN                                       TRA 2750
              WRITE(IPR,'(1H1,22X,27HIRRADIANCE (WATTS/CM2-XXXX),/      TRA 2760
     1          7H0  FREQ,T11,6HWAVLEN,T23,11HTRANSMITTED,T45,5HSOLAR,  TRA 2770
     2          T61,10HINTEGRATED,T80,5HTOTAL,/2X,6H(CM-1),T10,         TRA 2780
     3          7H(MICRN),T20,6H(CM-1),T30,7H(MICRN),T40,6H(CM-1),T50,  TRA 2790
     4          7H(MICRN),T60,6HTRANS.,T70,5HSOLAR,T80,5HTRANS)')       TRA 2800
          ELSEIF(IMULT.EQ.0)THEN                                        TRA 2810
              WRITE(IPR,'(1H1,45X,28HRADIANCE(WATTS/CM2-STER-XXX),/     TRA 2820
     1          7H0  FREQ,T11,6HWAVLEN,T21,14HATMOS RADIANCE,T41,       TRA 2830
     2          14HPATH SCATTERED,T61,16HGROUND REFLECTED,T85,5HTOTAL,  TRA 2840
     3          T99,8HINTEGRAL,T110,5HTOTAL,/2X,6H(CM-1),T10,7H(MICRN), TRA 2850
     4          T20,6H(CM-1),T30,7H(MICRN),T40,6H(CM-1),T50,7H(MICRN),  TRA 2860
     5          T60,6H(CM-1),T70,7H(MICRN),T80,6H(CM-1),T90,7H(MICRN),  TRA 2870
     6          T100,6H(CM-1),T110,5HTRANS,/)')                         TRA 2880
          ELSE                                                          TRA 2890
              WRITE(IPR,'(1H1,45X,28HRADIANCE(WATTS/CM2-STER-XXX),//    TRA 2900
     1          6H0 FREQ,T10,6HWAVLEN,T20,14HATMOS RADIANCE,T40,4HPATH, TRA 2910
     2          19H SCATTERED RADIANCE,T69,25HGROUND REFLECTED RADIANCE,TRA 2920
     3          T100,14HTOTAL RADIANCE,T118,8HINTEGRAL,T127,5HTOTAL,/   TRA 2930
     4          T45,5HTOTAL,T59,6HS SCAT,T75,5HTOTAL,T89,6HDIRECT,/1X,  TRA 2940
     5          6H(CM-1),T9,7H(MICRN),T19,6H(CM-1),T29,7H(MICRN),T39,   TRA 2950
     6          6H(CM-1),T49,7H(MICRN),T59,6H(CM-1),T69,6H(CM-1),T79,   TRA 2960
     7          7H(MICRN),T89,6H(CM-1),T99,6H(CM-1),T109,7H(MICRN),T119,TRA 2970
     8          6H(CM-1),T127,5HTRANS,/)')                              TRA 2980
          ENDIF                                                         TRA 2990
      ENDIF                                                             TRA 3000
      TX(1)=1.                                                          TRA 3010
      TX(2)=1.                                                          TRA 3020
      TX(3)=1.                                                          TRA 3030
      DO 40 K=4,KMAX                                                    TRA 3040
   40 TX(K)=0.                                                          TRA 3050
C                                                                       TRA 3060
C     WHEN THE MODERATE RESOLUTION OPTION IS USED AND THE FWHM IS       TRA 3070
C     GREATER THAN THE BAND WIDTH, OUTPUT IS NOT GENERATED IN EVERY     TRA 3080
C     PASS THROUGH THE FREQUENCY LOOP.  THE COUNTER, "ICOUNT" IS        TRA 3090
C     INCREMENTED ONLY WHEN PRINTING IS ASSURED.                        TRA 3100
C                                                                       TRA 3110
      IF(IVTEST)THEN                                                    TRA 3120
          V=FLOAT(IV)                                                   TRA 3130
          IF(.NOT.MODTRN)THEN                                           TRA 3140
              CALL CXDTA(CP,V,IWLH2O,IWHH2O,CPH2O,INDH2O)               TRA 3150
              CPS(1)=CP                                                 TRA 3160
              CALL CXDTA(CP,V,IWLCO2,IWHCO2,CPCO2,INDCO2)               TRA 3170
              CPS(2)=CP                                                 TRA 3180
              CALL CXDTA(CP,V,IWLO3, IWHO3, CPO3, INDO3 )               TRA 3190
              CPS(3)=CP                                                 TRA 3200
              CALL CXDTA(CP,V,IWLN2O,IWHN2O,CPN2O,INDN2O)               TRA 3210
              CPS(4)=CP                                                 TRA 3220
              CALL CXDTA(CP,V,IWLCO, IWHCO, CPCO, INDCO )               TRA 3230
              CPS(5)=CP                                                 TRA 3240
              CALL CXDTA(CP,V,IWLCH4,IWHCH4,CPCH4,INDCH4)               TRA 3250
              CPS(6)=CP                                                 TRA 3260
              CALL CXDTA(CP,V,IWLO2, IWHO2, CPO2, INDO2 )               TRA 3270
              CPS(7)=CP                                                 TRA 3280
              CALL CXDTA(CP,V,IWLNO, IWHNO, CPNO, INDNO )               TRA 3290
              CPS(8)=CP                                                 TRA 3300
              CALL CXDTA(CP,V,IWLSO2,IWHSO2,CPSO2,INDSO2)               TRA 3310
              CPS(9)=CP                                                 TRA 3320
              CALL CXDTA(CP,V,IWLNO2,IWHNO2,CPNO2,INDNO2)               TRA 3330
              CPS(10)=CP                                                TRA 3340
              CALL CXDTA(CP,V,IWLNH3,IWHNH3,CPNH3,INDNH3)               TRA 3350
              CPS(11)=CP                                                TRA 3360
          ENDIF                                                         TRA 3370
C                                                                       TRA 3380
C         N2 CONTINUUM                                                  TRA 3390
C                                                                       TRA 3400
          CALL C4DTA(ABB(4),V)                                          TRA 3410
          CALL ABCDTA(IV)                                               TRA 3420
C                                                                       TRA 3430
C         WATER CONTINUUM                                               TRA 3440
C                                                                       TRA 3450
          CALL  SLF296(V,SH2OT0)                                        TRA 3460
          CALL  SLF260(V,SH2OT1)                                        TRA 3470
          CALL  FRN296(V,FH2O)                                          TRA 3480
          T0=296.                                                       TRA 3490
          T1=260.                                                       TRA 3500
          IF(SH2OT0.GT.0.)THEN                                          TRA 3510
C             CORRECTION TO SELF CONTINUUM (1 SEPT 85)                  TRA 3520
C             FACTOR OF 0.78 @ 1000                                     TRA 3530
              XH2O=1.-.2333*ALPHA2/((V-1050.)**2+ALPHA2)                TRA 3540
              SH2OT0=SH2OT0*XH2O                                        TRA 3550
              SH2OT1=SH2OT1*XH2O                                        TRA 3560
          ENDIF                                                         TRA 3570
C         PROTECT AGAINST EXPONENTIAL UNDERFLOW AT HIGH FREQUENCY       TRA 3580
          VTEMP=V/.6952                                                 TRA 3590
          IF(VTEMP/T1.GT.BIGEXP)THEN                                    TRA 3600
              RADFN0=V                                                  TRA 3610
              RADFN1=V                                                  TRA 3620
              FDG=0.                                                    TRA 3630
          ELSE                                                          TRA 3640
              XD=EXP(-VTEMP/T0)                                         TRA 3650
              RADFN0=V*(1.-XD)/(1.+XD)                                  TRA 3660
              XD=EXP(-VTEMP/T1)                                         TRA 3670
              RADFN1=V*(1.-XD)/(1.+XD)                                  TRA 3680
          ENDIF                                                         TRA 3700
CC        FDG=CF1*EXP(-CF2*V)                                           TRA 3690
          CALL FUDGE(V,FDG)
          ABB(5)=SH2OT0*RADFN0                                          TRA 3710
          CALL C6DTA(ABB(6),V)                                          TRA 3720
          ABB(7)=0.                                                     TRA 3730
          CALL C8DTA(ABB(8),V)                                          TRA 3740
          ABB(9)=(SH2OT1*RADFN1)-(SH2OT0*RADFN0)                        TRA 3750
          ABB(10)=(FH2O+FDG)*RADFN0                                     TRA 3760
C                                                                       TRA 3770
C         HNO3 ABSORPTION CALCULATION                                   TRA 3780
C                                                                       TRA 3790
          IF(MODTRN)THEN                                                TRA 3800
              ABB(11)=0.                                                TRA 3810
          ELSE                                                          TRA 3820
              CALL HNO3(V,ABB(11))                                      TRA 3830
          ENDIF                                                         TRA 3840
          CALL AEREXT(V)                                                TRA 3850
          CALL HERTDA(ABB(17),V)                                        TRA 3860
          CALL O2CONT(V,SIGO20,SIGO2A,SIGO2B)                           TRA 3870
          IF(V.GT.49600.)CALL SCHRUN(V,CPS(7))                          TRA 3880
C                                                                       TRA 3890
C         DIFFUSE OZONE                                                 TRA 3900
C                                                                       TRA 3910
          ABBUV=0.                                                      TRA 3920
          IF(V.GE.40800.)THEN                                           TRA 3930
              CALL O3UV(V,C0)                                           TRA 3940
              ABB(8)=0.                                                 TRA 3950
          ELSEIF(V.GT.24370.)THEN                                       TRA 3960
              ABB(8)=0.                                                 TRA 3970
              CALL O3HHT0(V,C0)                                         TRA 3980
              CALL O3HHT1(V,CT1)                                        TRA 3990
              CALL O3HHT2(V,CT2)                                        TRA 4000
          ENDIF                                                         TRA 4010
      ENDIF                                                             TRA 4020
      V=IVX                                                             TRA 4030
C                                                                       TRA 4040
C     FOR EACH WAVENUMBER, AN INITIAL CALL (IK=0) TO BMOD IS REQUIRED.  TRA 4050
C                                                                       TRA 4060
      MSOFF=0                                                           TRA 4070
   50 IK=0                                                              TRA 4080
      IF(MODTRN)CALL BMOD(IK,IKMX,IPATH,IVX,MSOFF,MXFREQ)               TRA 4090
      TEB1=-99.                                                         TRA 4100
      IPATH=1                                                           TRA 4110
      TEB2SV=-99.                                                       TRA 4120
C                                                                       TRA 4130
C     BEGINNING OF LAYER LOOP                                           TRA 4140
C                                                                       TRA 4150
      TOTAL=1.                                                          TRA 4160
      DSTRN(0)=1.                                                       TRA 4170
      SUMMS=0.                                                          TRA 4180
C                                                                       TRA 4190
C     MSOFF IS A LAYER OFFSET PARAMETER EQUAL TO 0 FOR THE LINE OF      TRA 4200
C     SIGHT PATH AND EQUAL TO 68 FOR THE MULTIPLE SCATTERING VERTICAL   TRA 4210
C     PATH FROM GROUND TO SPACE.                                        TRA 4220
C                                                                       TRA 4230
      MSOFF=(IMULT-INIT)*68                                             TRA 4240
      DO 190 IK=IKLO,IKMAX                                              TRA 4250
          IKOFF=IK+MSOFF                                                TRA 4260
          IF(IEMISS.EQ.0)GOTO130                                        TRA 4270
C                                                                       TRA 4280
C         LOAD APPROPRIATE ABSORBER AMOUNTS INTO W(K)                   TRA 4290
C                                                                       TRA 4300
          IF(IEMSCT.NE.2)GOTO110                                        TRA 4310
   60     GOTO(70,90,110),IPATH                                         TRA 4320
C                                                                       TRA 4330
C         LOAD W(K) WITH THE FIRST SOLAR PATH ABSORBER AMOUNT           TRA 4340
C                                                                       TRA 4350
   70     MSOFF1=MSOFF+1                                                TRA 4360
          DO 80 K=1,KMAX                                                TRA 4370
   80     W(K)=WPATHS(MSOFF1,K)                                         TRA 4380
          IF(W(36).GE.0.)GOTO130                                        TRA 4390
C                                                                       TRA 4400
C         SUN CAN NOT BE SEEN                                           TRA 4410
C                                                                       TRA 4420
          TX(6)=0.                                                      TRA 4430
          TX(7)=0.                                                      TRA 4440
          TX(9)=0.                                                      TRA 4450
          TX(10)=0.                                                     TRA 4460
          IF(MSOFF.GT.0)THEN                                            TRA 4470
              IF(IK.GT.1)THEN                                           TRA 4480
                  ASYIK(IK-1)=0.                                        TRA 4490
                  ASYDM(IK-1)=1.                                        TRA 4500
              ENDIF                                                     TRA 4510
              ASYIK(IKMAX)=ASYIK(1)                                     TRA 4520
              ASYDM(IKMAX)=ASYDM(1)                                     TRA 4530
              DCONT(IK)=0.                                              TRA 4540
              DTX7(IK)=0.                                               TRA 4550
              DAERS(IK)=0.                                              TRA 4560
              DMOLS(IK)=0.                                              TRA 4570
              TAUT(IKMAX+1-IK)=0.                                       TRA 4580
              GOTO180                                                   TRA 4590
          ENDIF                                                         TRA 4600
C         TEST AGAINST ML INSERTED FOR ERRATA TO WORK                   TRA 4610
          IF(IK.LT.ML)CALL SSRAD(IPH,IK,ITZERO,IPATH,V,SUMSSR)          TRA 4620
          IPATH=2                                                       TRA 4630
   90     IKP1=IK+1                                                     TRA 4640
C                                                                       TRA 4650
C         LOAD W(K) WITH L PATH ABSORBER AMOUNT FOR MSOFF=0 AND WITH    TRA 4660
C         SOLAR PATH ABSORBER AMOUNT FOR MSOFF>0                        TRA 4670
C                                                                       TRA 4680
          IKOFF1=MSOFF+IKP1                                             TRA 4690
          DO 100 K=1,KMAX                                               TRA 4700
              W(K)=WPATHS(IKOFF1,K)                                     TRA 4710
              IF(MSOFF.EQ.0)W(K)=W(K)+WPATH(IK,K)                       TRA 4720
  100     CONTINUE                                                      TRA 4730
          IF(MSOFF.GT.0)THEN                                            TRA 4740
              IF(WPATHS(IKOFF1,36).GT.0.)GOTO130                        TRA 4750
              TX(6)=0.                                                  TRA 4760
              TX(7)=0.                                                  TRA 4770
              TX(9)=0.                                                  TRA 4780
              TX(10)=0.                                                 TRA 4790
              IF(IK.GT.1)THEN                                           TRA 4800
                  ASYIK(IK-1)=0.                                        TRA 4810
                  ASYDM(IK-1)=1.                                        TRA 4820
              ENDIF                                                     TRA 4830
              ASYIK(IKMAX)=ASYIK(1)                                     TRA 4840
              ASYDM(IKMAX)=ASYDM(1)                                     TRA 4850
              DCONT(IK)=0.                                              TRA 4860
              DTX7(IK)=0.                                               TRA 4870
              DAERS(IK)=0.                                              TRA 4880
              DMOLS(IK)=0.                                              TRA 4890
              TAUT(IKMAX+1-IK)=0.                                       TRA 4900
              GOTO180                                                   TRA 4910
          ENDIF                                                         TRA 4920
          IF(WPATHS(IKP1,36).GT.0.)GOTO130                              TRA 4930
C                                                                       TRA 4940
C         SUN CAN NOT BE SEEN                                           TRA 4950
C                                                                       TRA 4960
          TX(6)=0.                                                      TRA 4970
          TX(7)=0.                                                      TRA 4980
          TX(9)=0.                                                      TRA 4990
          TX(10)=0.                                                     TRA 5000
C         TEST AGAINST ML INSERTED FOR ERRATA TO WORK                   TRA 5010
          IF(IK.LT.ML)CALL SSRAD(IPH,IK,ITZERO,IPATH,V,SUMSSR)          TRA 5020
          IPATH=3                                                       TRA 5030
C                                                                       TRA 5040
C         LOAD W(K) WITH OPTICAL PATH ABSORBER AMOUNT                   TRA 5050
C                                                                       TRA 5060
  110     DO 120 K=1,KMAX                                               TRA 5070
  120     W(K)=WPATH(IKOFF,K)                                           TRA 5080
  130     CONTINUE                                                      TRA 5090
          IF(IVTEST)THEN                                                TRA 5100
              DO 140 K=3,16                                             TRA 5110
  140         TX(K)=0.                                                  TRA 5120
              EXT=XX1*W(7)+XX2*W(12)+XX3*W(13)+XX4*W(14)+XX5*W(16)      TRA 5130
              ABT=YY1*W(7)+YY2*W(12)+YY3*W(13)+YY4*W(14)+YY5*W(16)      TRA 5140
              IF(MSOFF.GT.0)THEN                                        TRA 5150
                  IF(IK.EQ.1)THEN                                       TRA 5160
                      W7D=WPATH(IKOFF,7)                                TRA 5170
                      W12D=WPATH(IKOFF,12)                              TRA 5180
                      W13D=WPATH(IKOFF,13)                              TRA 5190
                      W14D=WPATH(IKOFF,14)                              TRA 5200
                      W16D=WPATH(IKOFF,16)                              TRA 5210
                  ELSE                                                  TRA 5220
                      IKOFFM=IKOFF-1                                    TRA 5230
                      W7D=WPATH(IKOFF,7)-WPATH(IKOFFM,7)                TRA 5240
                      W12D=WPATH(IKOFF,12)-WPATH(IKOFFM,12)             TRA 5250
                      W13D=WPATH(IKOFF,13)-WPATH(IKOFFM,13)             TRA 5260
                      W14D=WPATH(IKOFF,14)-WPATH(IKOFFM,14)             TRA 5270
                      W16D=WPATH(IKOFF,16)-WPATH(IKOFFM,16)             TRA 5280
                  ENDIF                                                 TRA 5290
C                 ASYMMETRY FACTOR IS WEIGHTED AVERAGE                  TRA 5300
                  ASY=ZZ1*(XX1-YY1)*W7D+ZZ2*(XX2-YY2)*W12D+ZZ3*         TRA 5310
     1              (XX3-YY3)*W13D+ZZ4*(XX4-YY4)*W14D+ZZ5*(XX5-YY5)*W16DTRA 5320
              ENDIF                                                     TRA 5330
              SCT=EXT-ABT                                               TRA 5340
              TRAIN=1.                                                  TRA 5350
C                                                                       TRA 5360
C             ADD CONTRIBUTION OF CLOUDS AND RAIN                       TRA 5370
C                                                                       TRA 5380
              IF(W(3).NE.0.)THEN                                        TRA 5390
                  TMPRN=W(61)/W(3)                                      TRA 5400
                  IF(VTEMP.GE.TMPRN*BIGEXP)THEN                         TRA 5410
                      RFD=V                                             TRA 5420
                  ELSE                                                  TRA 5430
                      XD=EXP(-VTEMP/TMPRN)                              TRA 5440
                      RFD=V*(1.-XD)/(1.+XD)                             TRA 5450
                  ENDIF                                                 TRA 5460
                  RAINAV=(W(3)/W(62))**(1./.63)                         TRA 5470
                  TRAIN=TNRAIN(RAINAV,V,TMPRN,RFD)                      TRA 5480
                  IF(V.LT.250.)THEN                                     TRA 5490
                      PHASE=1                                           TRA 5500
                      IF(ICLD.GT.11)PHASE=2                             TRA 5510
                      DIST=1                                            TRA 5520
C                                                                       TRA 5530
C                     CALL SCATTERING ROUTINE TO OBTAIN ASYMMETRY       TRA 5540
C                     FACTOR AND RATIO OF ABSORPTION TO EXTINCTION DUE  TRA 5550
C                     TO RAIN WITHIN RANGE OF 19 TO 231 GHZ             TRA 5560
C                     EXTRAPOLATE ABOVE AND BELOW THAT FREQ RANGE       TRA 5570
C                                                                       TRA 5580
                      CALL RNSCAT(V,RAINAV,TMPRN,PHASE,DIST,IK1,CSSA,   TRA 5590
     1                  ASYMR,IENT)                                     TRA 5600
                      IENT=IENT+1                                       TRA 5610
                  ELSE                                                  TRA 5620
                      CSSA=.5                                           TRA 5630
                      ASYMR=.85                                         TRA 5640
                  ENDIF                                                 TRA 5650
                  RNEXPH=TRAIN*W(62)                                    TRA 5660
                  ABT=ABT+RNEXPH*CSSA                                   TRA 5670
                  SCT=SCT+RNEXPH*(1.-CSSA)                              TRA 5680
                  IF(MSOFF.GT.0)ASY=ASY+ASYMR*(1.-CSSA)*RNEXPH          TRA 5690
              ENDIF                                                     TRA 5700
C                                                                       TRA 5710
C             SET EXT DUE TO RAIN FOR LAYER                             TRA 5720
C                                                                       TRA 5730
              IF(MSOFF.GT.0)THEN                                        TRA 5740
                  DENOM=((XX1-YY1)*W7D+(XX2-YY2)*W12D+(XX3-YY3)*W13D+   TRA 5750
     1              (XX4-YY4)*W14D+(XX5-YY5)*W16D)                      TRA 5760
                  IF(W(3).NE.0.)DENOM = DENOM + (1.-CSSA)*RNEXPH
                  TXOLD(1,IKOFF,IPATH)=TXNEW(1,IKOFF,IPATH)             TRA 5770
                  TXNEW(1,IKOFF,IPATH)=ASY                              TRA 5780
                  TXOLD(2,IKOFF,IPATH)=TXNEW(2,IKOFF,IPATH)             TRA 5790
                  TXNEW(2,IKOFF,IPATH)=DENOM                            TRA 5800
              ENDIF                                                     TRA 5810
              EXT=SCT+ABT                                               TRA 5820
              WO3=W(8)*.269                                             TRA 5830
              IF(V.GE.40800)THEN                                        TRA 5840
                  ABBUV=C0*WO3                                          TRA 5850
              ELSEIF(V.GT.24370.)THEN                                   TRA 5860
                  ABBUV=C0*(WO3+CT1*W(59)+CT2*W(60))                    TRA 5870
              ENDIF                                                     TRA 5880
              TX(4)=ABB(4)*W(4)                                         TRA 5890
              TX(5)=1.E-20*ABB(5)*W(5)                                  TRA 5900
              TX(6)=ABB(6)*W(6)                                         TRA 5910
              TX(7)=ABB(7)*W(7)                                         TRA 5920
              TX(8)=ABB(8)*W(8)                                         TRA 5930
              TX(9)=1.E-20*ABB(9)*W(9)                                  TRA 5940
              TX(10)=1.E-20*ABB(10)*W(10)                               TRA 5950
              TX(11)=ABB(11)*W(11)                                      TRA 5960
              TX(5)=TX(5)+TX(10)+TX(9)                                  TRA 5970
              SUM=ABBUV+TX(4)+TX(5)+TX(6)+TX(7)+TX(8)+TX(11)+EXT        TRA 5980
              TX(8)=TX(8)+ABBUV                                         TRA 5990
C                                                                       TRA 6000
C             STORE CUMULATIVE AEROSOL PARAMETERS FOR DIFFERENT         TRA 6010
C             VERTICAL REGIONS                                          TRA 6020
C                                                                       TRA 6030
              TX(10)=ABT                                                TRA 6040
              TX(7)=EXT                                                 TRA 6050
              IF(ICLD.EQ.20)THEN                                        TRA 6060
                  TX(16)=2*W(16)                                        TRA 6070
                  SUM=SUM+TX(16)                                        TRA 6080
              ENDIF                                                     TRA 6090
C                                                                       TRA 6100
C             OXYGEN                                                    TRA 6110
C                                                                       TRA 6120
              TX(58)=SIGO20*(W(63)+SIGO2A*(W(1)-220.*W(63))+SIGO2B*W(2))TRA 6130
C                                                                       TRA 6140
C             UV O2 HERZBERG CONTINUUM ABSORPTION CALCULATION           TRA 6150
C                                                                       TRA 6160
              TX(58)=W(58)*ABB(17)+TX(58)                               TRA 6170
C     ***************  ERRATA JUNE 21 89 NEXT CARD                      TRA*6175
CC            SUM=SUM+TX(58)                                            TRA*6180
C     ***************  END ERRATA                                       ANS*6185
              TX(3)=TX(58)                                              TRA 6190
C                                                                       TRA 6200
C             STORE CUMULATIVE OPTICAL THICKNESS PARAMETERS             TRA 6210
C                                                                       TRA 6220
              TXOLD(12,IKOFF,IPATH)=TXNEW(12,IKOFF,IPATH)               TRA 6230
              TXNEW(12,IKOFF,IPATH)=TX(4)+TX(5)+TX(8)+TX(11)+TX(58)     TRA 6240
              TXOLD(13,IKOFF,IPATH)=TXNEW(13,IKOFF,IPATH)               TRA 6250
              TXNEW(13,IKOFF,IPATH)=TX(7)                               TRA 6260
              TXOLD(14,IKOFF,IPATH)=TXNEW(14,IKOFF,IPATH)               TRA 6270
              TXNEW(14,IKOFF,IPATH)=TX(7)-TX(10)                        TRA 6280
              TXOLD(15,IKOFF,IPATH)=TXNEW(15,IKOFF,IPATH)               TRA 6290
              TXNEW(15,IKOFF,IPATH)=TX(6)                               TRA 6300
              TX(9)=SUM                                                 TRA 6310
              DO 150 K=3,11                                             TRA 6320
                  TXOLD(K,IKOFF,IPATH)=TXNEW(K,IKOFF,IPATH)             TRA 6330
CC                IF(TX(K).GT.20.)THEN                                  TRA 6340
CC                    TXNEW(K,IKOFF,IPATH)=2.06E-09                     TRA 6350
                   IF (TX(K).LE.BIGEXP)THEN                             TRA 6360
                      TXNEW(K,IKOFF,IPATH)=EXP(-TX(K))                  TRA 6370
                  ELSE                                                  TRA 6380
                      TXNEW(K,IKOFF,IPATH)=1./BIGNUM                    TRA 6390
                  ENDIF                                                 TRA 6400
  150         CONTINUE                                                  TRA 6410
              TXOLD(16,IKOFF,IPATH)=TXNEW(16,IKOFF,IPATH)               TRA 6420
CC            IF(TX(16).GT.20.)THEN                                     TRA 6430
CC                TXNEW(16,IKOFF,IPATH)=2.06E-09                        TRA 6440
              IF    (TX(16).LE.BIGEXP)THEN                              TRA 6450
                  TXNEW(16,IKOFF,IPATH)=EXP(-TX(16))                    TRA 6460
              ELSE                                                      TRA 6470
                  TXNEW(16,IKOFF,IPATH)=1./BIGNUM                       TRA 6480
              ENDIF                                                     TRA 6490
              TX(58)=TX(3)                                              TRA 6500
              TX(3)=1.                                                  TRA 6510
              IF(.NOT.MODTRN)THEN                                       TRA 6520
C                                                                       TRA 6530
C                 MOLECULAR ABSORBERS                                   TRA 6540
C                                                                       TRA 6550
                  DO 160 IMOL=1,11                                      TRA 6560
                      KP=KPOINT(IMOL)                                   TRA 6570
                      IF(CPS(IMOL).EQ.-20.0)THEN                        TRA 6580
                          TX(KP)=1.                                     TRA 6590
                      ELSE                                              TRA 6600
                          TX(KP)=DBLTX(W(IBND(IMOL)),CPS(IMOL),A(IMOL)) TRA 6610
                      ENDIF                                             TRA 6620
  160             CONTINUE                                              TRA 6630
              ENDIF                                                     TRA 6640
          ENDIF                                                         TRA 6650
          DO 170 K=1,16                                                 TRA 6660
              STORE=TXNEW(K,IKOFF,IPATH)                                TRA 6670
  170     TX(K)=STORE+FRAC*(TXOLD(K,IKOFF,IPATH)-STORE)                 TRA 6680
          TX(58)=TX(3)                                                  TRA 6690
          TX(3)=1.                                                      TRA 6700
CC        IF(MODTRN)CALL BMOD(IK,IKMX,IPATH,IVX,MSOFF,MXFREQ)           TRA 6710
          IF(MODTRN)THEN
               CALL BMOD(IK,IKMX,IPATH,IVX,MSOFF,MXFREQ)
               TX(9) = TX(9)* TX(11)
          ENDIF
C                                                                       TRA 6720
C         UNIF=UNIFORMLY MIXED GASES TRANSMITTANCE (DOUBLE EXPONENTIAL) TRA 6730
C         TRACE=TRACE GASES TRANSMITTANCE (DOUBLE EXPONENTIAL MODELS)   TRA 6740
C                                                                       TRA 6750
          UNIF=TX(36)*TX(44)*TX(46)*TX(47)*TX(50)*TX(58)                TRA 6760
          TRACE=TX(52)*TX(54)*TX(55)*TX(56)                             TRA 6770
          IF(MSOFF.GT.0)THEN                                            TRA 6780
              IF(IK.GT.1)THEN                                           TRA 6790
                  ASYIK(IK-1)=TX(1)                                     TRA 6800
                  ASYDM(IK-1)=TX(2)                                     TRA 6810
              ENDIF                                                     TRA 6820
              ASYIK(IKMAX)=ASYIK(1)                                     TRA 6830
              ASYDM(IKMAX)=ASYDM(1)                                     TRA 6840
              DCONT(IK)=TX(12)                                          TRA 6850
              DTX7(IK)=TX(13)                                           TRA 6860
              DAERS(IK)=TX(14)                                          TRA 6870
              DMOLS(IK)=TX(15)                                          TRA 6880
              TAUT(IKMAX+1-IK)=UNIF*TRACE*TX(17)*TX(31)                 TRA 6890
          ENDIF                                                         TRA 6900
          TX(9)=TX(17)*UNIF*TX(31)*TX(9)*TRACE                          TRA 6910
          IF(IV.GE.13000)TX(31)=TX(8)                                   TRA 6920
C                                                                       TRA 6930
C         DSTRN IS CUMULATIVE SOLAR TRANSMISSION, USED IN CALCULATION   TRA 6940
C         OF SOLAR TRANSMISSION TO LAYER N                              TRA 6950
C                                                                       TRA 6960
  180     IF(IEMSCT.EQ.1)THEN                                           TRA 6970
              DSTRN(IK)=1.                                              TRA 6980
          ELSEIF(IPATH.EQ.1)THEN                                        TRA 6990
              DSTRN(0)=TX(9)                                            TRA 7000
          ELSEIF(IPATH.EQ.2)THEN                                        TRA 7010
              DSTRN(IK)=TX(9)                                           TRA 7020
          ENDIF                                                         TRA 7030
C                                                                       TRA 7040
C         INITIALIZE OMEGA0 FOR NO MULTIPLE SCATTERING CASES            TRA 7050
C                                                                       TRA 7060
          IF(IMULT.EQ.0)OMEGA0(IK)=0.                                   TRA 7070
          IF(IEMSCT.EQ.2)THEN                                           TRA 7080
C             TEST AGAINST ML INSERTED FOR ERRATA TO WORK               TRA 7090
              IF(MSOFF.EQ.0 .AND. IK.LT.ML)                             TRA 7100
     1          CALL SSRAD(IPH,IK,ITZERO,IPATH,V,SUMSSR)                TRA 7110
              IF(IPATH.NE.3)THEN                                        TRA 7120
                  IPATH=IPATH+1                                         TRA 7130
                  GOTO60                                                TRA 7140
              ENDIF                                                     TRA 7150
              IPATH=2                                                   TRA 7160
          ENDIF                                                         TRA 7170
          IF(IV.GE.13000)TX(3)=TX(8)                                    TRA 7180
          IF(IEMISS.EQ.0)GOTO200                                        TRA 7190
C                                                                       TRA 7200
C   FOR NO MULTIPLE SCATTERING, CALCULATE BLACK BODY FUNCTION,          TRA 7210
C   AS WELL AS RADIANCE ADDING FOR THERMAL                              TRA 7220
C                                                                       TRA 7230
          BBIK=BBFN(TBBY(IKOFF),V)                                      TRA 7240
          TLNEW=TX(9)                                                   TRA 7250
          DTAU=TLOLD-TLNEW                                              TRA 7260
          IF(IMULT.EQ.1)DTAU=TOTAL-TX(9)                                TRA 7270
          TOTAL=TX(9)                                                   TRA 7280
          IF(DTAU.LE.0.)DTAU=0.                                         TRA 7290
          IF(IMULT.EQ.0)THEN                                            TRA 7300
              IF(NOPRNT.EQ.-1)THEN                                      TRA 7310
                  WRITE(IPR1,'(F10.0,2F7.2,1P2E12.5,0PF12.9)')          TRA 7320
     1              V,AHT(IK),AHT(IK+1),BBIK,DTAU,TLNEW                 TRA 7330
              ENDIF                                                     TRA 7340
              IF(DTAU.LT.1.E-5 .AND. TLNEW.LT.1.E-5)THEN                TRA 7350
                  IF(NOPRNT.EQ.-1)                                      TRA 7360
     1              WRITE(IPR1,'(5X,5H-999.,T65,16HDTAU   EXIT LOOP)')  TRA 7370
                  GOTO200                                               TRA 7380
              ENDIF                                                     TRA 7390
              SUMV=SUMV+BBIK*DTAU                                       TRA 7400
C                                                                       TRA 7410
C             RADIANCE / CONSERVATIVE SCATTERING                        TRA 7420
C                                                                       TRA 7430
          ELSE                                                          TRA 7440
              IF(INIT.EQ.0)GOTO190                                      TRA 7450
              N1=ML-IMAP(IK)+IOFF                                       TRA 7460
C     ***************  ERRATA JUNE 21 89 NEXT CARD                      TRA*7465
CC            IF(N1.GE.ML)GOTO190                                       TRA*7470
              IF(N1.GE.ML)N1 = ML - 1                                   TRA*7472
C     ***************  END ERRATA                                       TRA*7474
              IF(NOPRNT.EQ.-1)THEN                                      TRA 7480
                  N=N1+1                                                TRA 7490
                  WRITE(IPR1,'(F10.0,F7.2,1P5E12.5,0PF10.5)')V,AHT(IK+1)TRA 7500
     1              ,UMB(N),UMBS(N),DMB(N),DMBS(N),SUN*TX(9),TX(9)      TRA 7510
              ENDIF                                                     TRA 7520
              IF(DTAU.LT.1.E-5 .AND. TX(9).LT.1.E-5)THEN                TRA 7530
                  IF(NOPRNT.EQ.-1)                                      TRA 7540
     1              WRITE(IPR1,'(5X,5H-999.,T65,16HDTAU   EXIT LOOP)')  TRA 7550
                  GOTO200                                               TRA 7560
              ENDIF                                                     TRA 7570
              IF(QTHETA(IK).LT..5*PI)THEN                               TRA 7580
C                 UP                                                    TRA 7590
                  SMS=BBIK*(1.-OMEGA0(N1))+OMEGA0(N1)/PI*               TRA 7600
     1              (DMF(N1)*(1.-BET(IK))+UMF(N1)*BET(IK))              TRA 7610
                  SMSS=OMEGA0(N1)/PI*                                   TRA 7620
     1              (DMFS(N1)*(1.-BET(IK))+UMFS(N1)*BET(IK))            TRA 7630
              ELSE                                                      TRA 7640
C                 DOWN                                                  TRA 7650
                  SMS=BBIK*(1.-OMEGA0(N1))+OMEGA0(N1)/PI*               TRA 7660
     1              (UMF(N1)*(1.-BET(IK))+DMF(N1)*BET(IK))              TRA 7670
                  SMSS=OMEGA0(N1)/PI*                                   TRA 7680
     1              (UMFS(N1)*(1.-BET(IK))+DMFS(N1)*BET(IK))            TRA 7690
              ENDIF                                                     TRA 7700
              SUMV=SUMV+SMS*DTAU                                        TRA 7710
              SUMMS=SUMMS+SMSS*DTAU                                     TRA 7720
          ENDIF                                                         TRA 7730
          TLOLD=TLNEW                                                   TRA 7740
  190 CONTINUE                                                          TRA 7750
C                                                                       TRA 7760
C     END OF LAYER LOOP                                                 TRA 7770
C                                                                       TRA 7780
  200 CONTINUE                                                          TRA 7790
      IF(MSOFF.GT.0)THEN                                                TRA 7800
C         MSRAD RETURNS SOLAR AND THERMAL CONTRIBUTIONS TO RADIANCE     TRA 7810
C         AND THERMAL (FDNTRT) DIFFUSE FLUX FOR SURFACE REFLECTION.     TRA 7820
C         (THESE QUANTITIES IN COMMON /MSRD/)                           TRA 7830
          CALL MSRAD(IVX,V,ISOURC,IDAY,ANGLEM,SS,DMF,DMFS,UMF,UMFS)     TRA 7840
          IF(NOPRNT.EQ.-1)WRITE(IPR1,'(F10.0,F7.2,1P5E12.5,0PF10.5)')   TRA 7850
     1      V,AHT(1),UMB(1),UMBS(1),DMB(1),DMBS(1),SUN,1.               TRA 7860
C                                                                       TRA 7870
C         IKMAX AND IKMAXP NEED BE DEFINED FOR VIEW TO SPACE            TRA 7880
C                                                                       TRA 7890
          IKMAX1=IKMAX-1                                                TRA 7900
          IKMAXP=IKMAX+1                                                TRA 7910
          COSBAR(IKMAX)=COSBAR(IKMAX1)                                  TRA 7920
          OMEGA0(IKMAX)=OMEGA0(IKMAX1)                                  TRA 7930
          UMF(IKMAX)=UMF(IKMAX1)                                        TRA 7940
          UMFS(IKMAX)=UMFS(IKMAX1)                                      TRA 7950
          DMFS(IKMAX)=DMFS(IKMAX1)                                      TRA 7960
          COSBAR(IKMAXP)=COSBAR(IKMAX1)                                 TRA 7970
          OMEGA0(IKMAXP)=OMEGA0(IKMAX1)                                 TRA 7980
          UMF(IKMAXP)=UMF(IKMAX1)                                       TRA 7990
          UMFS(IKMAXP)=UMFS(IKMAX1)                                     TRA 8000
          DMFS(IKMAXP)=DMFS(IKMAX1)                                     TRA 8010
          IKMAX=IKMX                                                    TRA 8020
          INIT=1                                                        TRA 8030
          DO 210 IK=1,IKMAX                                             TRA 8040
              N=ML-IMAP(IK)+IOFF                                        TRA 8050
C                                                                       TRA 8060
C             BET(N): BACKSCATTER FRACTION ALONG OPTICAL PATH AT LAYER NTRA 8070
C                                                                       TRA 8080
              COZEN=ABS(COS(QTHETA(IK)))                                TRA 8090
C                                                                       TRA 8100
C             CALCULATE BACKSCATTER PARAMETERS                          TRA 8110
C                                                                       TRA 8120
              IF(COSBAR(N).EQ.0.)THEN                                   TRA 8130
                  BET(IK)=.5                                            TRA 8140
              ELSE                                                      TRA 8150
                  BET(IK)=BETABS(COZEN,COSBAR(N))                       TRA 8160
              ENDIF                                                     TRA 8170
  210     CONTINUE                                                      TRA 8180
          BET(IKMAX+1)=.5                                               TRA 8190
C                                                                       TRA 8200
C         PERFORM ADDITIONAL LAYER LOOP FOR MULTIPLE SCATTERING         TRA 8210
C                                                                       TRA 8220
          GOTO50                                                        TRA 8230
      ENDIF                                                             TRA 8240
C                                                                       TRA 8250
C  THE VARIABLES "V", "UNIF", "TRACE", "SUMV", "SUMSSR", "SUMMS" AND    TRA 8260
C  "TEB1" ARE TEMPORARILY STORED IN "TX" SO THAT THEIR CONVOLUTION OVER TRA 8270
C  THE TRIANGULAR SLIT CAN BE CALCULATED.                               TRA 8280
C                                                                       TRA 8290
      TX(2)=UNIF                                                        TRA 8300
      TX(3)=TRACE                                                       TRA 8310
      TX(8)=SUMV                                                        TRA 8320
      TX(12)=SUMSSR                                                     TRA 8330
      TX(13)=SUMMS                                                      TRA 8340
      TX(14)=TEB1                                                       TRA 8350
      DO 230 K=2,58                                                     TRA 8360
          TXK=TX(K)                                                     TRA 8370
          IP1=NWGT                                                      TRA 8380
          DO 220 I=NWGTM1,1,-1                                          TRA 8390
              SLIT(K,IP1)=SLIT(K,I)+WGT(IP1)*TXK                        TRA 8400
  220     IP1=I                                                         TRA 8410
          SLIT(K,1)=WGT(1)*TXK                                          TRA 8420
  230 TX(K)=SLIT(K,NWGT)                                                TRA 8430
C                                                                       TRA 8440
C     CHECK IF VALUES ARE TO BE PRINTED                                 TRA 8450
C                                                                       TRA 8460
      IF(IVX.LT.IWRITE)GOTO30                                           TRA 8470
      IWRITE=IWRITE+IDV                                                 TRA 8480
      IF(IWRITE.GT.IVXMAX)FACTOR=.5                                     TRA 8490
      ICOUNT=ICOUNT+1                                                   TRA 8500
C                                                                       TRA 8510
C     RENORMALIZE IF TRIANGULAR SLIT OVERLAPS WITH NEGATIVE FREQUENCIES TRA 8520
C                                                                       TRA 8530
      IF(IVX.LT.NWGTM1)THEN                                             TRA 8540
          RENORM=1./(1.-.5*(NWGTM1-IVX)*(NWGTM1-IVX+1)*WNORM)           TRA 8550
          DO 240 K=2,58                                                 TRA 8560
  240     TX(K)=RENORM*TX(K)                                            TRA 8570
      ENDIF                                                             TRA 8580
      UNIF=TX(2)                                                        TRA 8590
      TRACE=TX(3)                                                       TRA 8600
      SUMV=TX(8)                                                        TRA 8610
      SUMSSR=TX(12)                                                     TRA 8620
      SUMMS=TX(13)                                                      TRA 8630
      TEB1=TX(14)                                                       TRA 8640
      V=FLOAT(IVX-IWIDM1)                                               TRA 8650
      ALAM=1.0E+04/(V+.000001)                                          TRA 8660
      SUMA=SUMA+FACTOR*IDV*(1.0-TX(9))                                  TRA 8670
      IIII=IEMSCT+1                                                     TRA 8680
      ALTX9=BIGNUM                                                      TRA 8690
      IF(TX(9).GT.0.)ALTX9=-LOG(TX(9))                                  TRA 8700
      GOTO(250,260,260,270),IIII                                        TRA 8710
C                                                                       TRA 8720
C     TRANSMITTANCE ONLY                                                TRA 8730
C                                                                       TRA 8740
  250 TX(10)=1.-TX(10)                                                  TRA 8750
      TX(7)=TX(7)*TX(16)                                                TRA 8760
      WRITE(IPR,'(1X,F7.0,F8.3,11F9.4,F12.3)')V,ALAM,TX(9),TX(17),UNIF, TRA 8770
     1  TX(31),TRACE,TX(4),TX(5),TX(6),TX(7),TX(11),TX(10),SUMA         TRA 8780
      TX(50)=TX(50)*TX(58)                                              TRA 8790
      WRITE(IPR1,'(F7.0,11F8.4,1PE10.3)')V,TX(17),TX(31),TX(36),TX(44), TRA 8800
     1  TX(46),TX(47),TX(50),TX(52),TX(54),TX(55),TX(56)                TRA 8810
      WRITE(IPU,'(F7.0,11F8.4,1PE10.3)')V,TX(9),TX(17),UNIF,TX(31),     TRA 8820
     1  TRACE,TX(4),TX(5),TX(6),TX(7),TX(11),TX(10),ALTX9               TRA 8830
      GOTO280                                                           TRA 8840
C                                                                       TRA 8850
C     ATMOSPHERIC RADIANCE INCLUDING EMISSION OF BOUNDARY ATTENUATED BY TRA 8860
C     TOTAL TRANSMISSION                                                TRA 8870
C                                                                       TRA 8880
C     CALCULATE THERMAL RADIANCE CONTRIBUTION OF BOUNDARY AND ADD THE   TRA 8890
C     SCATTERED CONTRIBUTION TO THE THERMAL RADIANCE IF THE PATH        TRA 8900
C     INTERSECTS THE SURFACE                                            TRA 8910
C                                                                       TRA 8920
  260 IF(TBOUND.LE.0.)THEN                                              TRA 8930
          BBG=0.                                                        TRA 8940
      ELSE                                                              TRA 8950
          BBG=BBFN(TBOUND,V)*TX(9)*EMISS                                TRA 8960
          IF(IMULT.EQ.1 .AND. H2.EQ.0.)BBG=BBG+SALB*FDNTRT*TX(9)/PI     TRA 8970
      ENDIF                                                             TRA 8980
C                                                                       TRA 8990
C   ADD THERMAL BOUNDARY AND MULTIPLE SCATTERED RADIANCE                TRA 9000
C                                                                       TRA 9010
      SUMV=SUMV+BBG                                                     TRA 9020
      SUMVV=SUMV                                                        TRA 9030
      IF(V.GT.0.)SUMV=(1.0E+04/V**2)*SUMV                               TRA 9040
      IF(IEMSCT.EQ.1)THEN                                               TRA 9050
          RADSUM=RADSUM+IDV*FACTOR*SUMV                                 TRA 9060
          WRITE(IPR,'(1X,F7.0,F8.3,1P3E10.2,0PF9.4)')                   TRA 9070
     1      V,ALAM,SUMV,SUMVV,RADSUM,TX(9)                              TRA 9080
          WRITE(IPU,'(F7.0,F8.4,1PE9.2,T96,E10.3)')V,TX(9),SUMV,ALTX9   TRA 9090
          SUMT=SUMV                                                     TRA 9100
          SUMTT=SUMVV                                                   TRA 9110
      ELSE                                                              TRA 9120
C                                                                       TRA 9130
C         SOLAR SCATTERED RADIANCE                                      TRA 9140
C                                                                       TRA 9150
          CALL SOURCE(V,ISOURC,IDAY,ANGLEM,SS)                          TRA 9160
C                                                                       TRA 9170
C         MULTIPLY SUMSSR BY THE EXTRATERRESTRIAL SOURCE STRENGTH SS    TRA 9180
C                                                                       TRA 9190
          SUMSSS=SUMSSR*SS                                              TRA 9200
C                                                                       TRA 9210
C         CALCULATE TOTAL SINGLE SCATTERED + MULTIPLE SCATTERED SOLAR   TRA 9220
C         RADIANCE FOR EACH FREQUENCY IN (W/CM2-STER-MICROMETER)        TRA 9230
C                                                                       TRA 9240
          SUMSSR=SUMSSS+SUMMS                                           TRA 9250
          SUMS=0.                                                       TRA 9260
          SUMSS=0.                                                      TRA 9270
          IF(V.GT.0.)SUMS=(1.0E4/V**2)*SUMSSR                           TRA 9280
          IF(V.GT.0.)SUMSSS=(1.0E4/V**2)*SUMSSS                         TRA 9290
C                                                                       TRA 9300
C         RFLSOL IS GROUND-REFLECTED DIRECT SOURCE RADIANCE AND         TRA 9310
C                                                                       TRA 9320
          RFLSOL=0.                                                     TRA 9330
          RFLS=0.                                                       TRA 9340
          RFLSS=0.                                                      TRA 9350
          RFLSSS=0.                                                     TRA 9360
          IF(H2.LE.ZM(1) .AND. TEB1.GT.0)THEN                           TRA 9370
              IF(ANGSUN.GE.0.)RFLSSS=SS*TEB1*SALB*COS(ANGSUN*CA)/PI     TRA 9380
              RFLSOL=RFLSSS                                             TRA 9390
              IF(IMULT.EQ.1)RFLSOL=RFLSOL+SALB*FDNSRT*TX(9)/PI          TRA 9400
              IF(V.GT.0.)THEN                                           TRA 9410
                  STORE=1.E4/V**2                                       TRA 9420
                  RFLS=STORE*RFLSOL                                     TRA 9430
                  RFLSS=STORE*RFLSSS                                    TRA 9440
              ENDIF                                                     TRA 9450
          ENDIF                                                         TRA 9460
          SUMT=SUMV+SUMS+RFLS                                           TRA 9470
          SUMTT=SUMVV+SUMSSR+RFLSOL                                     TRA 9480
          RADSUM=RADSUM+IDV*FACTOR*SUMT                                 TRA 9490
          IF(IMULT.NE.1)THEN                                            TRA 9500
              WRITE(IPR,'(1X,F7.0,F8.3,1P9E10.2,0PF9.4)')V,ALAM,SUMV,   TRA 9510
     1          SUMVV,SUMS,SUMSSR,RFLS,RFLSOL,SUMT,SUMTT,RADSUM,TX(9)   TRA 9520
          ELSE                                                          TRA 9530
              WRITE(IPR,'(1X,F6.0,F8.3,1P11E10.2,0PF7.4)')              TRA 9540
     1          V,ALAM,SUMV,SUMVV,SUMS,SUMSSR,SUMSSS,RFLS,              TRA 9550
     2          RFLSOL,RFLSS,SUMT,SUMTT,RADSUM,TX(9)                    TRA 9560
          ENDIF                                                         TRA 9570
          WRITE(IPU,'(F7.0,F8.4,1P6E9.2,0P2F8.4,T96,1PE10.3)')          TRA 9580
     1      V,TX(9),SUMV,SUMS,SUMSSS,RFLS,RFLSS,SUMT,TEB1,TEB2SV,ALTX9  TRA 9590
      ENDIF                                                             TRA 9600
      GOTO280                                                           TRA 9610
C                                                                       TRA 9620
C     DIRECTLY TRANSMITTED SOLAR IRRADIANCE IN WATTS/(CM2 MICROMETER)   TRA 9630
C                                                                       TRA 9640
  270 CALL SOURCE(V,ISOURC,IDAY,ANGLEM,SOLIL)                           TRA 9650
      SOLIV=0.                                                          TRA 9660
      IF(V.GT.0.)SOLIV=SOLIL*1.0E+4/V**2                                TRA 9670
      TSOLIV=SOLIV*TX(9)                                                TRA 9680
      TSOLIL=SOLIL*TX(9)                                                TRA 9690
      STSOL=STSOL+TSOLIV*IDV*FACTOR                                     TRA 9700
      SSOL=SSOL+SOLIV*IDV*FACTOR                                        TRA 9710
      WRITE(IPR,'(1X,F7.0,F8.3,1P6E10.2,0PF9.4)')                       TRA 9720
     1  V,ALAM,TSOLIV,TSOLIL,SOLIV,SOLIL,STSOL,SSOL,TX(9)               TRA 9730
      WRITE(IPU,'(F7.0,F8.4,1P2E9.2,T96,E10.3)')                        TRA 9740
     1  V,TX(9),TSOLIV,SOLIV,ALTX9                                      TRA 9750
      SUMT=TSOLIV                                                       TRA 9760
      RADSUM=STSOL                                                      TRA 9770
  280 IF(IEMSCT.NE.0)THEN                                               TRA 9780
          IF(SUMT.GE.RADMAX)THEN                                        TRA 9790
              VRMAX=V                                                   TRA 9800
              RADMAX=SUMT                                               TRA 9810
          ENDIF                                                         TRA 9820
          IF(SUMT.LE.RADMIN)THEN                                        TRA 9830
              VRMIN=V                                                   TRA 9840
              RADMIN=SUMT                                               TRA 9850
          ENDIF                                                         TRA 9860
      ENDIF                                                             TRA 9870
      FACTOR=1.                                                         TRA 9880
      IF(IWRITE.LE.IVXMAX)GOTO30                                        TRA 9890
C                                                                       TRA 9900
C     END OF FREQUENCY LOOP                                             TRA 9910
C                                                                       TRA 9920
      IVX=INT(V+.5)                                                     TRA 9930
      AB=1.-SUMA/(IVX-IV1)                                              TRA 9940
      WRITE(IPR,'(27H0INTEGRATED ABSORPTION FROM,I5,3H TO,I5,7H CM-1 =, TRA 9950
     1  F10.2,5H CM-1,/24H AVERAGE TRANSMITTANCE =,F6.4,/)')            TRA 9960
     2  IV1,IVX,SUMA,AB                                                 TRA 9970
      IF(IEMSCT.NE.0)THEN                                               TRA 9980
          IF(IEMSCT.EQ.3)THEN
        WRITE(IPR,755)RADSUM,RADMIN,VRMIN,RADMAX,VRMAX                  TR
755     FORMAT('0INTEGRATED IRRADIANCE =' ,1PE11.3,' WATTS CM-2',       TR
     1      /' MINIMUM IRRADIANCE    =',E11.3,' WATTS CM-2',            TR
     2      ' AT',0PF11.1,' CM-1 ',/,'  MAXIMUM ',                      TR
     3      ' RADIANCE    =',1PE11.3,' WATTS CM-2  (CM-1)-1 AT',        TR
     4      0PF11.1,5H CM-1)
          ELSE
          WRITE(IPR,'(22H0INTEGRATED RADIANCE =,1PE11.3,11H WATTS CM-2, TRA 9990
     1      7H STER-1,/22H MINIMUM RADIANCE    =,E11.3,11H WATTS CM-2,  TRA10000
     2      19H STER-1 (CM-1)-1 AT,0PF11.1,5H CM-1,/8H MAXIMUM          TRA10010
     3      14H RADIANCE    =,1PE11.3,30H WATTS CM-2 STER-1 (CM-1)-1 AT,TRA10020
     4      0PF11.1,5H CM-1)')RADSUM,RADMIN,VRMIN,RADMAX,VRMAX          TRA10030
          IF(IEMSCT.NE.3)WRITE(IPR,'(23H BOUNDARY TEMPERATURE =,F11.2,  TRA10040
     1      2H K,/22H BOUNDARY EMISSIVITY =,F12.3)')TBOUND,EMISS        TRA10050
            WRITE(IPR,'(23H BOUNDARY TEMPERATURE =,F11.2,               TRA10040
     1      2H K,/22H BOUNDARY EMISSIVITY =,F12.3)')TBOUND,EMISS        TRA10050
         ENDIF
      ENDIF                                                             TRA10060
      IF(MODTRN .AND. IV2.GT.MXFREQ)THEN                                TRA10070
          IRPT=-4                                                       TRA10080
          IV1=MXFREQ                                                    TRA10090
      ENDIF                                                             TRA10100
      RETURN                                                            TRA10110
      END                                                               TRA10120
      SUBROUTINE FUDGE(V,SUMY)
C
C     TO CALCULATE A NEW FUDGE FACTOR BASED ON THE SUMS OF EXPONENTIALS
C
C     THIS FUNCTION IS WITHIN 5% OF THE ORIGINAL "FUDGE" BETWEEN 0 AND
C     3000CM-1, PRESERVING THAT VALIDATION.
C     THE NEW FUNCTION IS 0.01 OF THE ORIGINAL NEAR 10000CM-1 (1.06NM),
C     IN ACCORDANCE WITH THE MEASUREMENTS OF JAYCOR, FUNDED BY SDIO.
C
      Y0(V)=EXP(ALOG(3.159E-8)-(2.75E-4)*V)
      Y1(V)=EXP(ALOG(1.025*3.159E-8)-(2.75E-4)*V)
      Y2(V)=EXP(ALOG(8.97E-6)-(1.300E-3)*V)
C
C     YO=Y0(V)
      YA=Y1(V)
      YB=Y2(V)
      YAINV=1/YA
      YBINV=1/YB
      SUMY=1./(1.*YAINV+1.*YBINV)
      RETURN
      END
      SUBROUTINE VSA(IHAZE,VIS,CEILHT,DEPTH,ZINVHT,Z,RH,AHAZE,IH)       VSA  100
C                                                                       VSA  110
C     VERTICAL STRUCTURE ALGORITHM                                      VSA  120
C                                                                       VSA  130
C     FROM U.S. ARMY ATMOSPHERIC SCIENCES LAB                           VSA  140
C     WHITE SANDS MISSILE RANGE, NM                                     VSA  150
C                                                                       VSA  160
C     CREATES A PROFILE OF AEROSOL DENSITY NEAR THE GROUND,INCLUDING    VSA  170
C     CLOUDS AND FOG                                                    VSA  180
C                                                                       VSA  190
C     THESE PROFILES ARE AT 9 HEIGHTS BETWEEN 0 KM AND 2 KM             VSA  200
C                                                                       VSA  210
C                                                                       VSA  220
C  ***VISIBILITY IS ASSUMED TO BE THE SURFACE VISIBILITY***             VSA  230
C                                                                       VSA  240
C     IHAZE  = THE TYPE OF AEROSOL                                      VSA  250
C     VIS    = VISIBILITY IN KM AT THE SURFACE                          VSA  260
C     CEILHT = THE CLOUD CEILING HEIGHT IN KM                           VSA  270
C     DEPTH  = THE CLOUD/FOG DEPTH IN KM                                VSA  280
C     ZINVHT = THE HEIGHT OF INVERSION OR BOUNDARY LAYER IN KM          VSA  290
C                                                                       VSA  300
C     VARIABLES USED IN VSA                                             VSA  310
C                                                                       VSA  320
C     ZC     = CLOUD CEILING HEIGHT IN M                                VSA  330
C     ZT     = CLOUD DEPTH IN M                                         VSA  340
C     ZINV   = INVERSION HEIGHT IN M                                    VSA  350
C           SEE BELOW FOR MORE INFORMATION ABOUT ZC, ZT, AND ZINV       VSA  360
C     D      = INITIAL EXTINCTION AT THE SURFACE (D=3.912/VIS-0.012)    VSA  370
C     ZALGO  = THE DEPTH OF THE LAYER FOR THE ALGORITHM                 VSA  380
C                                                                       VSA  390
C     OUTPUT FROM VSA:                                                  VSA  400
C                                                                       VSA  410
C     Z      = HEIGHT IN KM                                             VSA  420
C     RH     = RELATIVE HUMIDITY AT HEIGHT Z IN PERCENT                 VSA  430
C     AHAZE  = EXTINCTION AT HEIGHT Z IN KM**-1                         VSA  440
C     IH     = AEROSAL TYPE FOR HEIGHT Z                                VSA  450
C     HMAX   = MAXIMUM HEIGHT IN KM USED IN VSA, NOT NECESSARILY 2.0 KM VSA  460
C                                                                       VSA  470
C                                                                       VSA  480
C     THE SLANT PATH CALCULATION USES THE FOLLOWING FUNCTION:           VSA  490
C                                                                       VSA  500
C                 EXT55=A*EXP(B*EXP(C*Z))                               VSA  510
C                                                                       VSA  520
C     WHERE 'Z' IS THE HEIGHT IN KILOMETERS,                            VSA  530
C           'A' IS A FUNCTION OF EXT55 AT Z=0.0 AND IS ALWAYS POSITIVE, VSA  540
C           'B' AND 'C' ARE FUNCTIONS OF CLOUD CONDITIONS AND SURFACE   VSA  550
C               VISIBILITY (EITHER A OR B CAN BE POSITIVE OR NEGATIVE), VSA  560
C           'EXT55' IS THE VISIBILE EXTINCTION COEFFICIENT IN KM**-1.   VSA  570
C                                                                       VSA  580
C     THEREFORE, THERE ARE 4 CASES DEPENDING ON THE SIGNS OF 'B' AND 'C'VSA  590
C     CEILHT AND ZINVHT ARE USED AS SWITCHES TO DETERMINE WHICH CASE    VSA  600
C     TO USE.  THE SURFACE EXTINCTION 'D' IS CALCULATED FROM THE        VSA  610
C     VISIBILITY USING  D=3.912/VIS-0.012 AS FOLLOWS-                   VSA  620
C                                                                       VSA  630
C         CASE=1  FOG/CLOUD CONDITIONS                                  VSA  640
C                 'B' LT 0.0, 'C' LT 0.0                                VSA  650
C                 'D' GE 7.0   KM**-1                                   VSA  660
C                 FOR A CLOUD 7.    KM**-1 IS THE BOUNDARY VALUE AT     VSA  670
C                 THE CLOUD BASE AND 'Z' IS THE VERTICAL DISTANCE       VSA  680
C                 INTO THE CLOUD.                                       VSA  690
C                 VARIABLE USED:   DEPTH                                VSA  700
C                 ** DEFAULT:  DEPTH OF FOG/CLOUD IS 0.2 KM WHEN        VSA  710
C                              'DEPTH' IS 0.0                           VSA  720
C                                                                       VSA  730
C             =2  CLOUD CEILING PRESENT                                 VSA  740
C                 'B' GT 0.0, 'C' GT 0.0                                VSA  750
C                 VARIABLE USED:   CEILHT (MUST BE GE 0.0)              VSA  800
C                 ** DEFAULTS:  CASE 2 - CEILHT IS CALCULATED FROM      VSA  810
C                               SURFACE EXTINCTION                      VSA  820
C                                                                       VSA  850
C             =3  RADIATION FOG OR INVERSION OR BOUNDARY LAYER PRESENT  VSA  860
C                 'B' LT 0.0, 'C' GT 0.0                                VSA  870
C                 VIS LE 2.0 KM DEFAULTS TO A RADIATION FOG AT THE      VSA  880
C                     GROUND AND OVERRIDES INPUT BOUNDARY AEROSOL TYPE  VSA  890
C                 VIS GT 2.0 KM FOR AN INVERSION OR BOUNDARY LAYER      VSA  900
C                     WITH INPUT BOUNDARY AEROSOL TYPE                  VSA  910
C                 ** IHAZE=9 (RADIATION FOG) ALWAYS DEFAULTS TO A       VSA  920
C                    RADIATION FOG NO MATTER WHAT THE VISIBILITY IS.    VSA  930
C                 SWITCH VARIABLE: CEILHT (MUST BE LT 0.0)              VSA  940
C                 VARIABLE USED:   ZINVHT (MUST BE GE 0.0)              VSA  950
C                 ** CEILHT MUST BE LT 0.0 FOR ZINVHT TO BE USED **     VSA  960
C                    HOWEVER, IF DEPTH IS GT 0.0 AND ZINVHT IS EQ 0.0,  VSA  970
C                    THE PROGRAM WILL SUBSTITUTE DEPTH FOR ZINVHT.      VSA  980
C                 ** DEFAULT:  FOR A RADIATION FOG ZINVHT IS 0.05 K     VSA  990
C                              FOR AN INVERSION LAYER ZINVHT IS 2.0 KM  VSA 1000
C
C           NOTE: IF IHAZE = 9, BUT VIS GT 2.0 KM RECOMEND
C           THAT IHAZE DEFAULT TO RURAL AEROSOL
C                                                                       VSA 1010
C             =4  NO CLOUD CEILING, INVERSION LAYER, OR BOUNDARY        VSA 1020
C                 LAYER PRESENT, I.E. CLEAR SKIES                       VSA 1030
C                 EXTINCTION PROFILE CONSTANT WITH HEIGHT A SHORT       VSA 1040
C                 DISTANCE ABOVE THE SURFACE
C                                                                       VSA 1050
      COMMON /IFIL/IRD,IPR,IPU,NPR,IPR1                                 VSA 1060
      DIMENSION Z(10),RH(10),AHAZE(10),IH(10)                           VSA 1070
      DIMENSION AA(2),CC(3),EE(4),A(2),B(2),C(2),FAC1(9),FAC2(9)        VSA 1080
      REAL KMTOM                                                        VSA 1090
      DATA AA/92.1,0.3981/,CC/-0.014,0.0125,-0.03 /,KMTOM/1000.0/       VSA 1100
C     THE LAST 3 VALUES OF EE BELOW ARE EXTINCTIONS FOR VISIBILITIES    VSA 1110
C     EQUAL TO 5.0, 23.0, AND 50.0 KM, RESPECTIVELY.                    VSA 1120
      DATA EE/7.0  ,0.7824,0.17009,0.012  /                             VSA 1130
      DATA FAC1/0.0,0.03,0.05,0.075,0.1,0.18,0.3,0.45,1.0/              VSA 1140
      DATA FAC2/0.0,0.03,0.1,0.18,0.3,0.45,0.6,0.78,1.0/                VSA 1150
      WRITE(IPR,599)                                                    VSA 1160
C                                                                       VSA 1170
C     UPPER LIMIT ON VERTICAL DISTANCE - 2 KM                           VSA 1180
      ZHIGH=2000.                                                       VSA 1190
      HMAX=ZHIGH                                                        VSA 1200
      IF(VIS.GT.0.0)GO TO 5                                             VSA 1210
C     DEFAULT FOR VISIBILITY DEPENDS ON THE VALUE OF IHAZE.             VSA 1220
      IF(IHAZE.EQ.8)VIS=0.2                                             VSA 1230
      IF(IHAZE.EQ.9)VIS=0.5                                             VSA 1240
      IF(IHAZE.EQ.2.OR.IHAZE.EQ.5)VIS=5.0                               VSA 1250
      IF(IHAZE.EQ.1.OR.IHAZE.EQ.4.OR.IHAZE.EQ.7)VIS=23.0                VSA 1260
      IF(IHAZE.EQ.6)VIS=50.0                                            VSA 1270
C     IF(IHAZE.EQ.3)VIS= OR IHAZE = 10 VIS IS DETERMINED ELSEWHERE      VSA 1280
   5  D=3.912/VIS-0.012                                                 VSA 1290
C                                                                       VSA 1300
      ZC=CEILHT*KMTOM                                                   VSA 1310
      ZT=DEPTH*KMTOM                                                    VSA 1320
      ZINV=ZINVHT*KMTOM                                                 VSA 1330
C     IHAZE=9 (RADIATION FOG) IS ALWAYS CALCULATED AS A RADIATION FOG.  VSA 1340
      IF(IHAZE.EQ.9)ZC=-1.0                                             VSA 1350
C     ALSO, CHECK TO SEE IF THE FOG DEPTH FOR A RADIATION FOG           VSA 1360
C     WAS INPUT TO DEPTH INSTEAD OF THE CORRECT VARIABLE ZINVHT.        VSA 1370
      IF(IHAZE.EQ.9.AND.ZT.GT.0.0.AND.ZINV.EQ.0.0)ZINV=ZT               VSA 1380
C                                                                       VSA 1390
C     'IC' DEFINES WHICH CASE TO USE.                                   VSA 1400
      IC=2                                                              VSA 1410
      IF(D.GE.EE(1).AND.ZC.GE.0.0)IC=1                                  VSA 1420
C                                                                       VSA 1430
      IF(ZC.LT.0.0.AND.IC.EQ.2)IC=3                                     VSA 1440
      IF(ZINV.LT.0.0.AND.IC.EQ.3)IC=4                                   VSA 1450
      K=1                                                               VSA 1500
      GO TO (10,20,40,50),IC                                            VSA 1520
C                                                                       VSA 1530
C     CASE 1:  DEPTH FOG/CLOUD; INCREASING EXTINCTION WITH HEIGHT FROM  VSA 1540
C              CLOUD/FOG BASE TO CLOUD/FOG TOP.                         VSA 1550
 10   CONTINUE                                                          VSA 1560
      IF(ZC.LT.HMAX.AND.IC.EQ.2)K=2                                     VSA 1570
C     IC=-1 WHEN A CLOUD IS PRESENT AND THE PATH GOES INTO IT.          VSA 1580
C     USE CASE 2 OR 2' BELOW CLOUD AND CASE 1 INSIDE IT.                VSA 1590
      IF(K.EQ.2)IC=(-1)                                                 VSA 1600
C     THE BASE OF THE CLOUD HAS AN EXTINCTION COEFFICIENT OF 7.0   KM-1.VSA 1610
      IF(K.EQ.2)D=EE(1)                                                 VSA 1620
      A(K)=AA(1)                                                        VSA 1630
C     IF THE SURFACE EXTINCTION IS GREATER THAN THE UPPER LIMIT OF 92.1 VSA 1640
C     KM**-1, RUN THE ALGORITHM WITH AN UPPER LIMIT OF 'D+10'.          VSA 1650
      IF(D.GE.AA(1))A(K)=D+10.0                                         VSA 1660
      C(K)=CC(1)                                                        VSA 1670
      IF(ZT.LE.0.0)WRITE(IPR  ,603)                                     VSA 1680
      IF(ZT.LE.0.0)WRITE(IPR  ,604)                                     VSA 1690
      IF(ZT.GT.0.0)WRITE(IPR  ,611)ZT                                   VSA 1700
C     IF THE DISTANCE FROM THE GROUND TO THE CLOUD/FOG TOP IS LESS      VSA 1710
C     THAN 2.0 KM, VSA WILL ONLY CALCULATE UP TO THE CLOUD TOP.         VSA 1720
      IF(ZT.LE.0.0)ZT=200.                                              VSA 1730
      HMAX=AMIN1(ZT+ZC,HMAX)                                            VSA 1740
      GO TO 60                                                          VSA 1750
C                                                                       VSA 1760
C     CASE 2:  CLEAR/HAZY/LIGHTLY FOGGY; INCREASING EXTINCTION WITH HEIGHT    VSA 1770
C              UP TO THE CLOUD BASE.                                    VSA 1780
 20   A(K)=AA(2)                                                        VSA 1790
      E=EE(1)                                                           VSA 1800
      IF(ZC.EQ.0.0)WRITE(IPR  ,600)                                     VSA 1810
      IF(ZC.EQ.0.0)THEN                                                 VSA 1820
        EAK =  ALOG(E/A(K) )
        DAK =  ALOG(D/A(K) )
        ANUM = EAK / DAK
        IF(ANUM . GT. 0) THEN
              CEIL = ALOG(ANUM)/CC(2)
         ELSE
               CEIL = 2000.
          ENDIF
      ENDIF
CC    IF(ZC.EQ.0.0)CEIL=ALOG(ALOG(E/A(K))/(ALOG(D/A(K))))/CC(2)         VSA 1820
      IF(ZC.EQ.0.0)WRITE(IPR  ,602)CEIL                                 VSA 1830
      IF(ZC.GT.0.0)WRITE(IPR  ,610)ZC                                   VSA 1840
      IF(ZC.EQ.0.0)ZC=CEIL                                              VSA 1850
      F = (VIS * ZC/350.0)**2
C
C     F IS A SCALING FACTOR USED IN CASE 2
C
      DF = D/F
      IF(DF .LT. 1.0E-5) THEN
           A(K)=D - (D*D/(2.*F))
      ELSE
           A(K) = F*(1.0 - EXP(-D/F))
      ENDIF
C
C     THE COEFFICIENT A IS RECALCULATED BASED UPON THE SCALING FACTOR
C
      GO TO 60                                                          VSA 1860
C                                                                       VSA 1870
C                                                                       VSA 1970
C     CASE 3:  NO CLOUD CEILING BUT A RADIATION FOG OR AN INVERSION     VSA 1980
C              OR BOUNDARY LAYER PRESENT; DECREASING EXTINCTION WITH    VSA 1990
C              HEIGHT UP TO THE HEIGHT OF THE FOG OR LAYER.             VSA 2000
 40   A(K)=D*1.1                                                        VSA 2010
      E=EE(3)                                                           VSA 2020
      IF(IHAZE.EQ.2.OR.IHAZE.EQ.5)E=EE(2)                               VSA 2030
      IF(IHAZE.EQ.6.OR.(VIS.GT.2.0.AND.IHAZE.NE.9))E=EE(4)              VSA 2040
      IF(E.GT.D)E=D*0.99999                                             VSA 2050
      IF(ZT.GT.0.0.AND.ZINV.EQ.0.0.AND.VIS.LE.2.0)ZINV=ZT               VSA 2060
      IF(ZINV.EQ.0.0.AND.VIS.GT.2.0.AND.IHAZE.NE.9)WRITE(IPR  ,601)     VSA 2070
      IF(ZINV.EQ.0.0.AND.(VIS.LE.2.0.OR.IHAZE.EQ.9))WRITE(IPR  ,605)    VSA 2080
      IF(ZINV.EQ.0.0.AND.(VIS.LE.2.0.OR.IHAZE.EQ.9))WRITE(IPR  ,604)    VSA 2090
      IF(ZINV.GT.0.0.AND.VIS.GT.2.0.AND.IHAZE.NE.9)WRITE(IPR  ,612)ZINV VSA 2100
      IF(ZINV.GT.0.0.AND.(VIS.LE.2.0.OR.IHAZE.EQ.9))WRITE(IPR,614)ZINV  VSA 2110
      IF(ZINV.EQ.0.0.AND.VIS.GT.2.0.AND.IHAZE.NE.9)ZINV=2000            VSA 2120
      IF(ZINV.EQ.0.0.AND.(VIS.LE.2.0.OR.IHAZE.EQ.9))ZINV= 50            VSA 2130
      HMAX=AMIN1(ZINV,HMAX)                                             VSA 2140
      ZC=0.0                                                            VSA 2150
      GO TO 60
C                                                                       VSA 2160
C     CASE 4:  NO CLOUD CEILING OR INVERSION LAYER;                     VSA 2170
C              CONSTANT EXTINCTION WITH HEIGHT.                         VSA 2180
C
50     A(K) = EE(4)
       C(K) = CC(3)
C                                                                       VSA 2190
60               B(K)=ALOG(D/A(K))                                      VSA 2200
      IF(IC.EQ.2)C(K)=ALOG(ALOG(E/A(K))/B(K))/ZC                        VSA 2220
      IF(IC.EQ.3)C(K)=ALOG(ALOG(E/A(K))/B(K))/ZINV                      VSA 2230
      IF(ZC.LT.HMAX.AND.K.EQ.1.AND.IC.EQ.2)GO TO 10                     VSA 2240
      IF(IC.EQ.2)HMAX=AMIN1(ZC,HMAX)                                    VSA 2250
      ZALGO=HMAX                                                        VSA 2260
      IF(IC.LT.0)ZALGO=ZC                                               VSA 2270
      WRITE(IPR  ,619)                                                  VSA 2280
      IF(IC.LT.0)K=1                                                    VSA 2290
C                                                                       VSA 2300
      DO 70 I=1,9                                                       VSA 2310
      IF(IC.LT.0.AND.I.EQ.5)K=2                                         VSA 2320
      IF(IC.LT.0.AND.I.EQ.5)ZALGO=HMAX-ZC                               VSA 2330
      Z(I)=ZALGO*(1.0-FAC2(10-I))                                       VSA 2340
      IF(IC.EQ.1)Z(I)=ZALGO*FAC1(I)                                     VSA 2350
      IF(IC.EQ.4)Z(I)=ZALGO*FLOAT(I-1)/8.0                              VSA 2360
      IF(IC.LT.0.AND.I.LT.5)Z(I)=ZALGO*(1.0-FAC2(11-2*I))               VSA 2370
      IF(IC.LT.0.AND.I.GE.5)Z(I)=ZALGO*FAC1(2*I-9)                      VSA 2380
C     IF(IC.LT.0.AND.(I.EQ.7.OR.I.EQ.8))Z(I)=ZALGO*FAC1(2*I-10)         VSA 2390
                 AHAZE(I)=A(K)*EXP(B(K)*EXP(C(K)*Z(I)))                 VSA 2400
      IF(IC.LE.0.AND.I.GE.5)Z(I)=Z(I)+ZC                                VSA 2420
      Z(I)=Z(I)/KMTOM                                                   VSA 2430
      RH(I)=6.953*ALOG(AHAZE(I))+86.407                                 VSA 2440
      IF(AHAZE(I).GE.EE(1))RH(I)=100.0                                  VSA 2450
      VISIB=3.912/(AHAZE(I)+0.012)                                      VSA 2460
      IH(I)=IHAZE                                                       VSA 2470
C     IF A RADIATION FOG IS PRESENT (I.E. VIS<=2.0 KM AND IC=3),        VSA 2480
C     IH IS SET TO 9 FOR ALL LEVELS.                                    VSA 2490
      IF(VISIB.LE.2.0.AND.IC.EQ.3)IH(I)=9                               VSA 2500
C     FOR A DEPTH FOG/CLOUD CASE, IH=8 DENOTING AN ADVECTION FOG.       VSA 2510
      IF(IC.EQ.1.OR.(IC.LT.0.AND.I.GE.5))IH(I)=8                        VSA 2520
      WRITE(IPR  ,620)Z(I),RH(I),AHAZE(I),VISIB,IH(I)                   VSA 2530
   70 CONTINUE                                                          VSA 2540
      HMAX=HMAX/KMTOM                                                   VSA 2550
      RETURN                                                            VSA 2560
C                                                                       VSA 2570
599   FORMAT('0 VERTICAL STRUCTURE ALGORITHM (VSA) USED')               VSA 2580
600   FORMAT(1H ,50X,28HCLOUD CEILING HEIGHT UNKNOWN)                   VSA 2590
601   FORMAT(1H ,50X,42HINVERSION OR BOUNDARY LAYER HEIGHT UNKNOWN,/,   VSA 2600
     1  1H ,50X,39HVSA WILL USE A DEFAULT OF 2000.0 METERS,/)           VSA 2610
605   FORMAT(1H ,50X,27HRADIATION FOG DEPTH UNKNOWN)                    VSA 2620
619   FORMAT(5X,10HHEIGHT(KM),5X,7HR.H.(%),5X,16HEXTINCTION(KM-1),      VSA 2640
     1   5X,15HVIS(3.912/EXTN),5X,5HIHAZE,/)                            VSA 2650
620   FORMAT(7X,F7.4,7X,F5.1,8X,E12.4,11X,F7.4,10X,I2)                  VSA 2660
602   FORMAT(1H ,39X,35HVSA WILL USE A CALCULATED VALUE OF ,F7.1,       VSA 2670
     1       7H METERS,/)                                               VSA 2680
603   FORMAT(1H ,50X,19HCLOUD DEPTH UNKNOWN)                            VSA 2690
604   FORMAT(1H ,50X,38HVSA WILL USE A DEFAULT OF 200.0 METERS,/)       VSA 2700
610   FORMAT(1H ,50X,24HCLOUD CEILING HEIGHT IS ,F9.1,7H METERS,/)      VSA 2710
611   FORMAT(1H ,50X,15HCLOUD DEPTH IS ,F14.1,7H METERS,/)              VSA 2720
612   FORMAT(1H ,50X,38HINVERSION OR BOUNDARY LAYER HEIGHT IS ,F7.1,    VSA 2730
     1 7H METERS,/)                                                     VSA 2740
614   FORMAT(1H ,50X,26HDEPTH OF RADIATION FOG IS ,F7.1,7H METERS,/)    VSA 2750
613   FORMAT(1H ,50X,43HTHERE IS NO INVERSION OR BOUNDARY LAYER OR ,    VSA 2760
     1 13HCLOUD PRESENT,/)                                              VSA 2770
      END                                                               VSA 2780
      SUBROUTINE VSANSM(K,AHAZE,IHA1)                                   VSA  100
      COMMON RELHUM(34),WHNO3(34),ICH(4),VH(17),TX(63),W(63)            VSA  110
C     COMMON             WPATH(68, 63),TBBY(68)                         VSA -120
      COMMON IMSMX,WPATH(102,63),TBBY(102),PATM(102),NSPEC,KPOINT(12)   VSA 120A
      COMMON ABSC(5,47),EXTC(5,47),ASYM(5,47),VX2(47),AWCCON(5)         VSA  130
      COMMON /IFIL/IRD,IPR,IPU,NPR,IPR1                                 VSA  140
      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT               VSA  150
      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRNT,TBOUND,SALB  VSA  160
     1  ,MODTRN                                                         VSA 160A
      LOGICAL MODTRN                                                    VSA 160B
      COMMON /CARD1B/ JUNIT(15),WMOLI(12),WAIR1,JLOW                    VSA  170
      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICIR,IVSA,VIS,WSS,WHH,   VSA  180
     1    RAINRT                                                        VSA  190
      COMMON /ZVSALY/ ZVSA(10),RHVSA(10),AHVSA(10),IHVSA(10)            VSA  200
      COMMON /NSINP/ ZMDL(40),PM(40),TM(40),WMDL(40,13)                 VSA  210
C                                                                       VSA  220
      COMMON /MDATA/  Z(50),P(50),T(50),WH(50),WCO2(50),WO(50),         VSA  230
     X WN2O(50),WCO(50),WCH4(50),WO2(50),                               VSA  240
     X CLD(50,7),RR(50,7)                                               VSA  250
      COMMON /MDATA1/ WNO(50),WSO2(50),WNO2(50),WNH3(50),WAIR(50)       VSA  260
      DIMENSION WMOL(13)                                                VSA  270
C                                                                       VSA  280
C     OUTPUT COMMON MDATA AND MDATA1                                    VSA  290
C                                                                       VSA  300
C                                                                       VSA  310
C     MODEL 7 CODING                                                    VSA  320
C     OLD LAYERS  AEROSOL RETURNED                                      VSA  330
C     NEW LAYERS P,T,DP,AEROSOL                                         VSA  340
C                                                                       VSA  350
C                                                                       VSA  360
C                                                                       VSA  370
      JML=ML                                                            VSA  380
      J=1                                                               VSA  390
      KN=K                                                              VSA  400
110   IF(KN.GT.10)GO TO 140                                             VSA  410
      JL=J-1                                                            VSA  420
      IF(JL.LT.1)JL=1                                                   VSA  430
      JP=JL+1                                                           VSA  440
      JLS = JL                                                          VSA  450
      IF(ZVSA(KN).EQ.ZMDL  (JL))GO TO 140                               VSA  460
      JLS = JP                                                          VSA  470
      IF(ZVSA(KN).EQ.ZMDL  (JP))GO TO 140                               VSA  480
      IF(ZVSA(KN).GT.ZMDL  (JL).AND.ZVSA(KN).LT.ZMDL  (JP))GO TO 115    VSA  490
      IF(J. GE. JML) GO TO 115                                          VSA  500
      J = J + 1                                                         VSA  510
      GO TO 110                                                         VSA  520
115   Z(K)=ZVSA(KN)                                                     VSA  530
      DIF=ZMDL  (JP)-ZMDL  (JL)                                         VSA  540
      DZ=ZVSA(KN)-ZMDL  (JL)                                            VSA  550
      DLIN=DZ/DIF                                                       VSA  560
      P(K)  = (PM(JP)-PM(JL))*DLIN+PM(JL)                               VSA  570
      T(K)   =(TM(JP)-TM(JL))*DLIN+TM(JL)                               VSA  580
      DO 120 KM = 1,13                                                  VSA  590
      WMOL(KM)=(WMDL(JP,KM)-WMDL(JL,KM))*DLIN+WMDL(JL,KM)               VSA  600
120   CONTINUE                                                          VSA  610
      IHA1  =IHVSA(KN)                                                  VSA  620
      AHAZE  =AHVSA(KN)                                                 VSA  630
      FAC=(ZVSA(KN)-ZMDL  (JL))/DIF                                     VSA  640
      IF(PM(JP).GT.0.0.AND.PM(JL).GT.0.) THEN                           VSA  650
           P(K)  =PM(JL)*(PM(JP)/PM(JL))**FAC                           VSA  660
      ENDIF                                                             VSA  670
      IF(TM(JP).GT.0.0.AND.TM(JL).GT.0.) THEN                           VSA  680
           T(K)   =TM(JL)*(TM(JP)/TM(JL))**FAC                          VSA  690
      ENDIF                                                             VSA  700
      DO 130 KM = 1,13                                                  VSA  710
      IF(WMDL(JP,KM) .GT.0.0.AND.WMDL(JL,KM).GT.0.0) THEN               VSA  720
           WMOL(KM)=(WMDL(JL,KM)*(WMDL(JP,KM))/WMDL(JL,KM))**FAC        VSA  730
      ENDIF                                                             VSA  740
130   CONTINUE                                                          VSA  750
       WH(K)    = WMOL(1)                                               VSA  760
       WCO2(K)  = WMOL(2)                                               VSA  770
       WO(K)    = WMOL(3)                                               VSA  780
       WN2O(K)  = WMOL(4)                                               VSA  790
       WCO(K)   = WMOL(5)                                               VSA  800
       WCH4(K)  = WMOL(6)                                               VSA  810
       WO2(K)   = WMOL(7)                                               VSA  820
       WNO(K)   = WMOL(8)                                               VSA  830
       WSO2(K)  = WMOL(9)                                               VSA  840
       WNO2(K)  = WMOL(10)                                              VSA  850
       WNH3(K)  = WMOL(11)                                              VSA  860
       WHNO3(K) = WMOL(12)                                              VSA  870
       WAIR(K)  = WMOL(13)                                              VSA  880
      RETURN                                                            VSA  890
140   CONTINUE                                                          VSA  900
      J = JLS                                                           VSA  910
      IF(K.GT.10) THEN                                                  VSA  920
         J = K - 10 + JLOW                                              VSA  930
         IHA1  =0                                                       VSA  940
         AHAZE  =0.                                                     VSA  950
      ENDIF                                                             VSA  960
      Z(K) = ZMDL(J)                                                    VSA  970
      P(K)  =PM(J)                                                      VSA  980
      T(K) = TM(J)                                                      VSA  990
      DO 135 KM = 1,13                                                  VSA 1000
      WMOL(KM)= WMDL(J,KM)                                              VSA 1010
135   CONTINUE                                                          VSA 1020
       WH(K)    = WMOL(1)                                               VSA 1030
       WCO2(K)  = WMOL(2)                                               VSA 1040
       WO(K)    = WMOL(3)                                               VSA 1050
       WN2O(K)  = WMOL(4)                                               VSA 1060
       WCO(K)   = WMOL(5)                                               VSA 1070
       WCH4(K)  = WMOL(6)                                               VSA 1080
       WO2(K)   = WMOL(7)                                               VSA 1090
       WNO(K)   = WMOL(8)                                               VSA 1100
       WSO2(K)  = WMOL(9)                                               VSA 1110
       WNO2(K)  = WMOL(10)                                              VSA 1120
       WNH3(K)  = WMOL(11)                                              VSA 1130
       WHNO3(K) = WMOL(12)                                              VSA 1140
       WAIR(K)  = WMOL(13)                                              VSA 1150
      IF(KN.LE.9) IHA1  =IHVSA(KN)                                      VSA 1160
      IF(KN.LE.9)AHAZE  =AHVSA(KN)                                      VSA 1170
      RETURN                                                            VSA 1180
      END                                                               VSA 1190
      SUBROUTINE WATVAP(P,T)                                            WAT  100
C*************************************************************          WAT  110
C                                                                       WAT  120
C        WRITTEN APR, 1985 TO ACCOMMODATE 'JCHAR' DEFINITIONS FOR       WAT  130
C        UNIFORM DATA INPUT -                                           WAT  140
C                                                                       WAT  150
C     JCHAR    JUNIT                                                    WAT  160
C                                                                       WAT  170
C    " ",A       10    VOLUME MIXING RATIO (PPMV)                       WAT  180
C        B       11    NUMBER DENSITY (CM-3)                            WAT  190
C        C       12    MASS MIXING RATIO (GM(K)/KG(AIR))                WAT  200
C        D       13    MASS DENSITY (GM M-3)                            WAT  210
C        E       14    PARTIAL PRESSURE (MB)                            WAT  220
C        F       15    DEW POINT TEMP (TD IN T(K)) - H2O ONLY           WAT  230
C        G       16     "    "     "  (TD IN T(C)) - H2O ONLY           WAT  240
C        H       17    RELATIVE HUMIDITY (RH IN PERCENT) - H2O ONLY     WAT  250
C        I       18    AVAILABLE FOR USER DEFINITION                    WAT  260
C        J       19    REQUEST DEFAULT TO SPECIFIED MODEL ATMOSPHERE    WAT  270
C                                                                       WAT  280
C     THIS SUBROUTINE COMPUTES THE WATERVAPOR NUMBER DENSITY (MOL CM-3) WAT  290
C     GIVE HUMIDITY  # TD = DEW POINT TEMP(K,C), RH = RELATIVE          WAT  300
C     (PERCENT), PPH2O = WATER VAPOR PARTIAL PRESSURE (MB), DENH2O =    WAT  310
C     WATER VAPOR MASS DENSITY (GM M-3),AMSMIX = MASS MIXING RATIO      WAT  320
C     (GM/KG).                                                          WAT  330
C                     THE FUNCTION DENSAT FOR THE SATURATION            WAT  340
C     WATER VAPOR DENSITY OVER WATER IS ACCURATE TO BETTER THAN 1       WAT  350
C     PERCENT FROM -50 TO +50 DEG C. (SEE THE LOWTRAN3 OR 5 REPORT)     WAT  360
C                                                                       WAT  370
C       'JUNIT' GOVERNS CHOICE OF UNITS -                               WAT  380
C                                                                       WAT  390
C***********************************************************************WAT  400
      COMMON /IFIL/IRD,IPR,IPU,NPR,IPR1                                 WAT  410
      COMMON /CARD1B/ JUNITP,JUNITT,JUNIT1(13),WMOL1(12),WAIR,JLOW      WAT  420
      COMMON /CONSTN/ PZERO,TZERO,AVOGAD,ALOSMT,GASCON,PLANK,BOLTZ,     WAT  430
     1    CLIGHT,ADCON,ALZERO,AVMWT,AIRMWT,AMWT(35)                     WAT  440
      DATA C1/18.9766/,C2/-14.9595/,C3/-2.43882/                        WAT  450
      DATA XLOSCH/2.6868E19/                                            WAT  460
      DENSAT(ATEMP) = ATEMP*B*EXP(C1+C2*ATEMP+C3*ATEMP**2)*1.0E-6       WAT  470
C*****                                                                  WAT  480
      RHOAIR = ALOSMT*(P/PZERO)*(TZERO/T)                               WAT  490
      PSS = P/PZERO                                                     WAT  500
      A = TZERO/T                                                       WAT  510
      WAIR = XLOSCH * PSS * A                                           WAT  520
      B = AVOGAD/AMWT(1)                                                WAT  530
      R = AIRMWT/AMWT(1)                                                WAT  540
      JUNIT = JUNIT1(1)                                                 WAT  550
      WMOL  = WMOL1(1)                                                  WAT  560
      IF(JUNIT.NE.10) GO TO 110                                         WAT  570
C*****GIVEN VOL. MIXING RATIO                                           WAT  580
CC    WMOL1(1)=WMOL*RHOAIR*1.E-6                                        WAT  590
      GO TO 200                                                         WAT  600
110   IF(JUNIT.NE.11) GO TO 120                                         WAT  610
C*****GIVEN NUMBER DENSITY (CM-3)                                       WAT  620
      WMOL1(1) = WMOL/(RHOAIR*1.E-6)                                    WAT  630
      GO TO 200                                                         WAT  640
120   CONTINUE                                                          WAT  650
      IF(JUNIT.NE.12) GO TO 130                                         WAT  660
C*****GIVEN MASS MIXING RATIO (GM KG-1)                                 WAT  670
CC    WMOL1(1) = R*WMOL*1.0E-3*RHOAIR                                   WAT  680
      WMOL1(1) = R*WMOL*1.0E+3                                          WAT  690
      GO TO 200                                                         WAT  700
130   CONTINUE                                                          WAT  710
      IF(JUNIT.NE.13) GO TO 140                                         WAT  720
C*****GIVEN MASS DENSITY (GM M-3)                                       WAT  730
CC    WMOL1(1) = B*WMOL*1.0E-6                                          WAT  740
      WMOL1(1) = B*WMOL /RHOAIR                                         WAT  750
      GO TO 200                                                         WAT  760
140   CONTINUE                                                          WAT  770
      IF(JUNIT.NE.14) GO TO 150                                         WAT  780
C*****GIVEN WATER VAPOR PARTIAL PRESSURE (MB)                           WAT  790
CC    WMOL1(1) = ALOSMT*(WMOL/PZERO)*(TZERO/T)                          WAT  800
      WTEM     = ALOSMT*(WMOL/PZERO)*(TZERO/T)                          WAT  810
      WMOL1(1) = WTEM/(RHOAIR*1.E-6)                                    WAT  820
      GO TO 200                                                         WAT  830
150   CONTINUE                                                          WAT  840
      IF(JUNIT.NE.15) GO TO 160                                         WAT  850
C*****GIVEN DEWPOINT (DEG K)                                            WAT  860
      ATD = TZERO/(WMOL)                                                WAT  870
CC    WMOL1(1)= DENSAT(ATD)*(WMOL)/T                                    WAT  880
      WTEM    = DENSAT(ATD)*(WMOL)/T                                    WAT  890
      WMOL1(1) = WTEM/(RHOAIR*1.E-6)                                    WAT  900
      GO TO 200                                                         WAT  910
160   CONTINUE                                                          WAT  920
      IF(JUNIT.NE.16) GO TO 170                                         WAT  930
C*****GIVEN DEWPOINT (DEG C)                                            WAT  940
      ATD = TZERO/(TZERO+WMOL)                                          WAT  950
CC    WMOL1(1) = DENSAT(ATD)*(TZERO+WMOL)/T                             WAT  960
      WTEM     = DENSAT(ATD)*(TZERO+WMOL)/T                             WAT  970
      WMOL1(1) = WTEM/(RHOAIR*1.E-6)                                    WAT  980
      GO TO 200                                                         WAT  990
170   CONTINUE                                                          WAT 1000
      IF(JUNIT.NE.17) GO TO 199                                         WAT 1010
C*****GIVEN RELATIVE HUMIDITY (PERCENT)                                 WAT 1020
C     DENNUM = DENSAT(A)*(WMOL/100.0)/(1.0-(1.0-WMOL/100.0)*DENSAT(A)/  WAT 1030
C    1    RHOAIR)                                                       WAT 1040
CC    WMOL1(1) = DENSAT(A)*(WMOL/100.0)                                 WAT 1050
      WTEM     = DENSAT(A)*(WMOL/100.0)                                 WAT 1060
      WMOL1(1) = WTEM/(RHOAIR*1.E-6)                                    WAT 1070
      GO TO 200                                                         WAT 1080
 199   WRITE(IPR,951)JUNIT                                              WAT 1090
 951  FORMAT(/,'  **** ERROR IN WATVAP ****, JUNIT = ',I5)              WAT 1100
      STOP'JUNIT'                                                       WAT 1110
  200 CONTINUE                                                          WAT 1120
      WMOL1(1)=2.989E-23 *WMOL1(1) *WAIR                                WAT 1130
      DENST = DENSAT(A)                                                 WAT 1140
      DENNUM = WMOL1(1)                                                 WAT 1150
C     RHP = 100.0*(DENNUM/DENST)*((RHOAIR-DENST)/(RHOAIR-DENNUM))       WAT 1160
      RHP = 100.0*(DENNUM/DENST)                                        WAT 1170
   12 FORMAT(   8X,'RH = ',F6.2)                                        WAT 1180
      IF(RHP.LE.100.0) GO TO 230                                        WAT 1190
      WRITE(IPR,10) RHP                                                 WAT 1200
   10 FORMAT(/,' ********WARNING (FROM WATVAP) # RELATIVE HUMIDTY = ',  WAT 1210
     1    G10.3,' IS GREATER THAN 100 PERCENT')                         WAT 1220
  230 CONTINUE                                                          WAT 1230
      RETURN                                                            WAT 1240
      END                                                               WAT 1250
      BLOCK DATA WVBNRG                                                 WVB  100
C>    BLOCK DATA                                                        WVB  105
C     WAVENUMBER-LOW AND WAVENUMBER-HIGH SPECIFY A BAND REGION          WVB  110
C     FOR A MOLECULAR ABSORBER.                                         WVB  120
C     THE UNIT FOR WAVENUMBER IS 1/CM.                                  WVB  130
C     -999 IS AN INDICATOR TO INDICATE THE END OF ABSORPTION BANDS      WVB  140
C     FOR ANY SPECIFIC ABSORBER.                                        WVB  150
      COMMON /WNLOHI/                                                   WVB  160
     L   IWLH2O(15),IWLO3 ( 6),IWLCO2(11),IWLCO ( 4),IWLCH4( 5),        WVB  170
     L   IWLN2O(12),IWLO2 ( 7),IWLNH3( 3),IWLNO ( 2),IWLNO2( 4),        WVB  180
     L   IWLSO2( 5),                                                    WVB  190
     H   IWHH2O(15),IWHO3 ( 6),IWHCO2(11),IWHCO ( 4),IWHCH4( 5),        WVB  200
     H   IWHN2O(12),IWHO2 ( 7),IWHNH3( 3),IWHNO ( 2),IWHNO2( 4),        WVB  210
     H   IWHSO2( 5)                                                     WVB  220
C                                                                       WVB  230
      DATA IWLH2O/   0,    350,   1005,   1645,   2535,   3425,   4315, WVB  240
     L    6155,   8005,   9620,  11545,  13075,  14865,  16340,   -999/ WVB  250
      DATA IWHH2O/ 345,   1000,   1640,   2530,   3420,   4310,   6150, WVB  260
     H    8000,   9615,  11540,  13070,  14860,  16045,  17860,   -999/ WVB  270
C                                                                       WVB  280
      DATA IWLO3 /   0,    515,   1630,   2670,   2850,   -999/         WVB  290
      DATA IWHO3 / 200,   1275,   2295,   2845,   3260,   -999/         WVB  300
C                                                                       WVB  310
      DATA IWLCO2/ 425,    840,   1805,   3070,   3760,   4530,   5905, WVB  320
     L    7395,   8030,   9340,   -999/                                 WVB  330
      DATA IWHCO2/ 835,   1440,   2855,   3755,   4065,   5380,   7025, WVB  340
     H    7785,   8335,   9670,   -999/                                 WVB  350
C                                                                       WVB  360
      DATA IWLCO /   0,   1940,   4040,   -999/                         WVB  370
      DATA IWHCO / 175,   2285,   4370,   -999/                         WVB  380
C                                                                       WVB  390
      DATA IWLCH4/1065,   2345,   4110,   5865,   -999/                 WVB  400
      DATA IWHCH4/1775,   3230,   4690,   6135,   -999/                 WVB  410
C                                                                       WVB  420
      DATA IWLN2O/   0,    490,    865,   1065,   1545,   2090,   2705, WVB  430
     L    3245,   4260,   4540,   4910,   -999/                         WVB  440
      DATA IWHN2O/ 120,    775,    995,   1385,   2040,   2655,   2865, WVB  450
     H    3925,   4470,   4785,   5165,   -999/                         WVB  460
C                                                                       WVB  470
      DATA IWLO2 /   0,   7650,   9235,  12850,  14300,  15695,   -999/ WVB  480
      DATA IWHO2 / 265,   8080,   9490,  13220,  14600,  15955,   -999/ WVB  490
C                                                                       WVB  500
      DATA IWLNH3/   0,    390,   -999/                                 WVB  510
      DATA IWHNH3/ 385,   2150,   -999/                                 WVB  520
C                                                                       WVB  530
      DATA IWLNO /1700,   -999/                                         WVB  540
      DATA IWHNO /2005,   -999/                                         WVB  550
C                                                                       WVB  560
      DATA IWLNO2/ 580,   1515,   2800,   -999/                         WVB  570
      DATA IWHNO2/ 925,   1695,   2970,   -999/                         WVB  580
C                                                                       WVB  590
      DATA IWLSO2/   0,    400,    950,   2415,   -999/                 WVB  600
      DATA IWHSO2/ 185,    650,   1460,   2580,   -999/                 WVB  610
      END                                                               WVB  620




