                                                                        00010000
   THIS DATASET CONTAINS THE SOURCE CODE TO CALCULATE DOSAT.            00020000
                                                                        00030000
                                                                        00040000
 /*167700*/      IF IPOX^=99                                            17280000
 /*167800*/       THEN IF FC.VAL(IPOX) =.1E-20                          17290000
 /*167900*/          THEN IF WCEN^=.1E-20                               17300000
 /*168000*/            THEN                                             17310000
 /*168100*/   DOSAT:   DO;                                              17320000
 /*168200*/                  DCL SAT(50) FLOAT DEC(6) STATIC INIT(      17330000
 /*168300*/                     14.6,14.2,13.8,13.5,13.1,               17340000
 /*168400*/                       12.8,12.5,12.2,11.9,11.6,             17350000
 /*168500*/                       11.3,11.1,10.8,10.6,10.4,             17360000
 /*168600*/                       10.2,10.0,9.7,9.5,9.4,                17370000
 /*168700*/                        9.2,9.0,8.8,8.7,8.5,                 17380000
 /*168800*/                        8.4,8.2,8.1,7.9,7.8,                 17390000
 /*168900*/                        7.6,7.5,7.4,7.3,7.1,                 17400000
 /*169000*/                        7.0,6.9,6.8,6.7,6.6,                 17410000
 /*169100*/                        6.5,6.4,6.3,6.2,6.1,                 17420000
 /*169200*/                        6.0,5.9,5.8,5.7,5.6);                17430000
 /*169300*/                  DCL CR(31) FLOAT DEC(6) STATIC INIT (      17440000
 /*169400*/                       .00017,.00016,(2).00015,(3).00014,    17450000
 /*169500*/                       (2).00013,(2).00012,(3).00011,        17460000
 /*169600*/                       (4).00010,(4).00009,(9).00008);       17470000
 /*169700*/              DCL (WOX,WT,WSAL) STATIC FLOAT DEC(6);         17480000
 /*169800*/                       WOX=.1E-20;                           17490000
 /*169900*/                       DO I= 1 TO 2 WHILE(WOX=.1E-20);       17500000
 /*170000*/                        IF PARPOS(3,I)=99 THEN LEAVE;        17510000
 /*170100*/                        WOX=FC.VAL(PARPOS(3,I));             17520000
 /*170200*/                       END;                                  17530000
 /*170300*/                       IF WOX=.1E-20 THEN LEAVE;             17540000
 /*170400*/                       WSAL=.1E-20;                          17550000
 /*170500*/                       IF IS^=99 THEN WSAL=FC.VAL(IS);       17560000
 /*170600*/                       IF WCEN>48.4 THEN LEAVE;              17570000
 /*170700*/                       I=WCEN+1.5;                           17580000
 /*170800*/                       IF I<1 THEN LEAVE;                    17590000
 /*170900*/                       IF (I<31)&(WSAL^=.1E-20)              17600000
 /*171000*/                    THEN CORR =-WSAL * CR(I) + SAT(I); ELSE  17610000
     CORR=SAT(I);IF ALT>0 THEN CORR=CORR*(1E0-(.697E-5*ALT))**5.167E0;  17620000
 /*171200*/                     DCL CORR FLOAT DEC(6) STATIC;           17630000
 /*171300*/                        FC.VAL(IPOX)= 100*WOX/CORR;          17640000
 /*171400*/    END DOSAT;                                               17650000
