include file: C_CALCRS 1
CLL   COMDECK C_CALCRS HOLDS CONSTANTS FOR ROUTINE CALC_RS.                C_CALCRS.2      
CLL   COMDECK CONTAINS SOME LOCAL CONSTANTS.                               C_CALCRS.3      
*CALL C_A                                                                  C_CALCRS.4      
*CALL C_G                                                                  C_CALCRS.5      
*CALL C_R_CP                                                               C_CALCRS.6      
      REAL P0,TS0,HALF_R_OVER_G                                            C_CALCRS.7      
      PARAMETER(P0=101325.,TS0=288.15,HALF_R_OVER_G=.5*R/G)                MM240293.3      
CL    END OF COMDECK C_CALCRS                                              C_CALCRS.9