real(fp), dimension(59), parameter | crtm_fastem1::emc = Reshape( (/0.175350E+02_fp, -.617670E+00_fp, .894800E-02_fp, .318420E+01_fp, 0.191890E-01_fp, -.108730E-01_fp, .258180E-03_fp, .683960E+02_fp, -.406430E+00_fp, .228320E-01_fp, -.530610E-03_fp, .476290E+01_fp, 0.154100E+00_fp, -.337170E-01_fp, .844280E-03_fp, .782870E+02_fp, -.434630E-02_fp, .531250E+01_fp, -.114770E-01_fp, .314159E+01_fp, -.100000E+01_fp, .195000E-04_fp, .255000E+01_fp, -.637182E+01_fp, 0.253918E-01_fp, .357569E-04_fp, .942928E+01_fp, -.332839E-01_fp, -.647724E-04_fp, -.329282E+01_fp, .965450E-02_fp, .281588E-04_fp, 0.252676E+00_fp, .343867E-02_fp, -.156362E-04_fp, -.156669E-03_fp, 0.139485E-04_fp, -.407633E-07_fp, -.141316E+00_fp, -.356556E-02_fp, 0.142869E-04_fp, -.240701E+01_fp, -.563888E-01_fp, .325227E-03_fp, 0.296005E+01_fp, .704675E-01_fp, -.426440E-03_fp, -.751252E+00_fp, -.191934E-01_fp, .125937E-03_fp, -.288253E+00_fp, -.102655E-02_fp, 0.226701E-05_fp, -.119072E-02_fp, -.263165E-04_fp, .114597E-06_fp, 0.406300E+00_fp, .200031E-02_fp, -.781635E-05_fp/), (/59/) ) |