--- trunk/Sources/phylmd/Radlwsw/lwb.f 2015/07/08 17:03:45 155 +++ trunk/Sources/phylmd/Radlwsw/lwb.f 2016/03/11 18:47:26 178 @@ -102,8 +102,8 @@ DOUBLE PRECISION XP(6,6) SAVE XP ! - DATA TINTP / 187.5, 200., 212.5, 225., 237.5, 250., & - 262.5, 275., 287.5, 300., 312.5 / + DATA TINTP / 187.5d0, 200.d0, 212.5d0, 225.d0, 237.5d0, 250.d0, & + 262.5d0, 275.d0, 287.5d0, 300.d0, 312.5d0 / !----------------------------------------------------------------------- !-- WATER VAPOR -- INT.1 -- 0- 500 CM-1 -- FROM ABS225 ---------------- ! @@ -117,133 +117,133 @@ ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 1, 1,IC),IC=1,3) / & - 0.63499072E-02,-0.99506586E-03, 0.00000000E+00/ + 0.63499072D-02,-0.99506586D-03, 0.00000000D+00/ DATA (GB( 1, 1,IC),IC=1,3) / & - 0.63499072E-02, 0.97222852E-01, 0.10000000E+01/ + 0.63499072D-02, 0.97222852D-01, 0.10000000D+01/ DATA (GA( 1, 2,IC),IC=1,3) / & - 0.77266491E-02,-0.11661515E-02, 0.00000000E+00/ + 0.77266491D-02,-0.11661515D-02, 0.00000000D+00/ DATA (GB( 1, 2,IC),IC=1,3) / & - 0.77266491E-02, 0.10681591E+00, 0.10000000E+01/ + 0.77266491D-02, 0.10681591D+00, 0.10000000D+01/ ! !----- INTERVAL = 1 ----- T = 200.0 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 2, 1,IC),IC=1,3) / & - 0.65566348E-02,-0.10184169E-02, 0.00000000E+00/ + 0.65566348D-02,-0.10184169D-02, 0.00000000D+00/ DATA (GB( 2, 1,IC),IC=1,3) / & - 0.65566348E-02, 0.98862238E-01, 0.10000000E+01/ + 0.65566348D-02, 0.98862238D-01, 0.10000000D+01/ DATA (GA( 2, 2,IC),IC=1,3) / & - 0.81323287E-02,-0.11886130E-02, 0.00000000E+00/ + 0.81323287D-02,-0.11886130D-02, 0.00000000D+00/ DATA (GB( 2, 2,IC),IC=1,3) / & - 0.81323287E-02, 0.10921298E+00, 0.10000000E+01/ + 0.81323287D-02, 0.10921298D+00, 0.10000000D+01/ ! !----- INTERVAL = 1 ----- T = 212.5 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 3, 1,IC),IC=1,3) / & - 0.67849730E-02,-0.10404730E-02, 0.00000000E+00/ + 0.67849730D-02,-0.10404730D-02, 0.00000000D+00/ DATA (GB( 3, 1,IC),IC=1,3) / & - 0.67849730E-02, 0.10061504E+00, 0.10000000E+01/ + 0.67849730D-02, 0.10061504D+00, 0.10000000D+01/ DATA (GA( 3, 2,IC),IC=1,3) / & - 0.86507620E-02,-0.12139929E-02, 0.00000000E+00/ + 0.86507620D-02,-0.12139929D-02, 0.00000000D+00/ DATA (GB( 3, 2,IC),IC=1,3) / & - 0.86507620E-02, 0.11198225E+00, 0.10000000E+01/ + 0.86507620D-02, 0.11198225D+00, 0.10000000D+01/ ! !----- INTERVAL = 1 ----- T = 225.0 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 4, 1,IC),IC=1,3) / & - 0.70481947E-02,-0.10621792E-02, 0.00000000E+00/ + 0.70481947D-02,-0.10621792D-02, 0.00000000D+00/ DATA (GB( 4, 1,IC),IC=1,3) / & - 0.70481947E-02, 0.10256222E+00, 0.10000000E+01/ + 0.70481947D-02, 0.10256222D+00, 0.10000000D+01/ DATA (GA( 4, 2,IC),IC=1,3) / & - 0.92776391E-02,-0.12445811E-02, 0.00000000E+00/ + 0.92776391D-02,-0.12445811D-02, 0.00000000D+00/ DATA (GB( 4, 2,IC),IC=1,3) / & - 0.92776391E-02, 0.11487826E+00, 0.10000000E+01/ + 0.92776391D-02, 0.11487826D+00, 0.10000000D+01/ ! !----- INTERVAL = 1 ----- T = 237.5 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 5, 1,IC),IC=1,3) / & - 0.73585943E-02,-0.10847662E-02, 0.00000000E+00/ + 0.73585943D-02,-0.10847662D-02, 0.00000000D+00/ DATA (GB( 5, 1,IC),IC=1,3) / & - 0.73585943E-02, 0.10475952E+00, 0.10000000E+01/ + 0.73585943D-02, 0.10475952D+00, 0.10000000D+01/ DATA (GA( 5, 2,IC),IC=1,3) / & - 0.99806312E-02,-0.12807672E-02, 0.00000000E+00/ + 0.99806312D-02,-0.12807672D-02, 0.00000000D+00/ DATA (GB( 5, 2,IC),IC=1,3) / & - 0.99806312E-02, 0.11751113E+00, 0.10000000E+01/ + 0.99806312D-02, 0.11751113D+00, 0.10000000D+01/ ! !----- INTERVAL = 1 ----- T = 250.0 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 6, 1,IC),IC=1,3) / & - 0.77242818E-02,-0.11094726E-02, 0.00000000E+00/ + 0.77242818D-02,-0.11094726D-02, 0.00000000D+00/ DATA (GB( 6, 1,IC),IC=1,3) / & - 0.77242818E-02, 0.10720986E+00, 0.10000000E+01/ + 0.77242818D-02, 0.10720986D+00, 0.10000000D+01/ DATA (GA( 6, 2,IC),IC=1,3) / & - 0.10709803E-01,-0.13208251E-02, 0.00000000E+00/ + 0.10709803D-01,-0.13208251D-02, 0.00000000D+00/ DATA (GB( 6, 2,IC),IC=1,3) / & - 0.10709803E-01, 0.11951535E+00, 0.10000000E+01/ + 0.10709803D-01, 0.11951535D+00, 0.10000000D+01/ ! !----- INTERVAL = 1 ----- T = 262.5 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 7, 1,IC),IC=1,3) / & - 0.81472693E-02,-0.11372949E-02, 0.00000000E+00/ + 0.81472693D-02,-0.11372949D-02, 0.00000000D+00/ DATA (GB( 7, 1,IC),IC=1,3) / & - 0.81472693E-02, 0.10985370E+00, 0.10000000E+01/ + 0.81472693D-02, 0.10985370D+00, 0.10000000D+01/ DATA (GA( 7, 2,IC),IC=1,3) / & - 0.11414739E-01,-0.13619034E-02, 0.00000000E+00/ + 0.11414739D-01,-0.13619034D-02, 0.00000000D+00/ DATA (GB( 7, 2,IC),IC=1,3) / & - 0.11414739E-01, 0.12069945E+00, 0.10000000E+01/ + 0.11414739D-01, 0.12069945D+00, 0.10000000D+01/ ! !----- INTERVAL = 1 ----- T = 275.0 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 8, 1,IC),IC=1,3) / & - 0.86227527E-02,-0.11687683E-02, 0.00000000E+00/ + 0.86227527D-02,-0.11687683D-02, 0.00000000D+00/ DATA (GB( 8, 1,IC),IC=1,3) / & - 0.86227527E-02, 0.11257633E+00, 0.10000000E+01/ + 0.86227527D-02, 0.11257633D+00, 0.10000000D+01/ DATA (GA( 8, 2,IC),IC=1,3) / & - 0.12058772E-01,-0.14014165E-02, 0.00000000E+00/ + 0.12058772D-01,-0.14014165D-02, 0.00000000D+00/ DATA (GB( 8, 2,IC),IC=1,3) / & - 0.12058772E-01, 0.12108524E+00, 0.10000000E+01/ + 0.12058772D-01, 0.12108524D+00, 0.10000000D+01/ ! !----- INTERVAL = 1 ----- T = 287.5 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 9, 1,IC),IC=1,3) / & - 0.91396814E-02,-0.12038314E-02, 0.00000000E+00/ + 0.91396814D-02,-0.12038314D-02, 0.00000000D+00/ DATA (GB( 9, 1,IC),IC=1,3) / & - 0.91396814E-02, 0.11522980E+00, 0.10000000E+01/ + 0.91396814D-02, 0.11522980D+00, 0.10000000D+01/ DATA (GA( 9, 2,IC),IC=1,3) / & - 0.12623992E-01,-0.14378639E-02, 0.00000000E+00/ + 0.12623992D-01,-0.14378639D-02, 0.00000000D+00/ DATA (GB( 9, 2,IC),IC=1,3) / & - 0.12623992E-01, 0.12084229E+00, 0.10000000E+01/ + 0.12623992D-01, 0.12084229D+00, 0.10000000D+01/ ! !----- INTERVAL = 1 ----- T = 300.0 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA(10, 1,IC),IC=1,3) / & - 0.96825438E-02,-0.12418367E-02, 0.00000000E+00/ + 0.96825438D-02,-0.12418367D-02, 0.00000000D+00/ DATA (GB(10, 1,IC),IC=1,3) / & - 0.96825438E-02, 0.11766343E+00, 0.10000000E+01/ + 0.96825438D-02, 0.11766343D+00, 0.10000000D+01/ DATA (GA(10, 2,IC),IC=1,3) / & - 0.13108146E-01,-0.14708488E-02, 0.00000000E+00/ + 0.13108146D-01,-0.14708488D-02, 0.00000000D+00/ DATA (GB(10, 2,IC),IC=1,3) / & - 0.13108146E-01, 0.12019005E+00, 0.10000000E+01/ + 0.13108146D-01, 0.12019005D+00, 0.10000000D+01/ ! !----- INTERVAL = 1 ----- T = 312.5 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA(11, 1,IC),IC=1,3) / & - 0.10233955E-01,-0.12817135E-02, 0.00000000E+00/ + 0.10233955D-01,-0.12817135D-02, 0.00000000D+00/ DATA (GB(11, 1,IC),IC=1,3) / & - 0.10233955E-01, 0.11975320E+00, 0.10000000E+01/ + 0.10233955D-01, 0.11975320D+00, 0.10000000D+01/ DATA (GA(11, 2,IC),IC=1,3) / & - 0.13518390E-01,-0.15006791E-02, 0.00000000E+00/ + 0.13518390D-01,-0.15006791D-02, 0.00000000D+00/ DATA (GB(11, 2,IC),IC=1,3) / & - 0.13518390E-01, 0.11932684E+00, 0.10000000E+01/ + 0.13518390D-01, 0.11932684D+00, 0.10000000D+01/ ! ! ! @@ -259,133 +259,133 @@ ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 1, 3,IC),IC=1,3) / & - 0.11644593E+01, 0.41243390E+00, 0.00000000E+00/ + 0.11644593d+01, 0.41243390d+00, 0.00000000d+00/ DATA (GB( 1, 3,IC),IC=1,3) / & - 0.11644593E+01, 0.10346097E+01, 0.10000000E+01/ + 0.11644593d+01, 0.10346097d+01, 0.10000000d+01/ DATA (GA( 1, 4,IC),IC=1,3) / & - 0.12006968E+01, 0.48318936E+00, 0.00000000E+00/ + 0.12006968d+01, 0.48318936d+00, 0.00000000d+00/ DATA (GB( 1, 4,IC),IC=1,3) / & - 0.12006968E+01, 0.10626130E+01, 0.10000000E+01/ + 0.12006968d+01, 0.10626130d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 200.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 2, 3,IC),IC=1,3) / & - 0.11747203E+01, 0.43407282E+00, 0.00000000E+00/ + 0.11747203d+01, 0.43407282d+00, 0.00000000d+00/ DATA (GB( 2, 3,IC),IC=1,3) / & - 0.11747203E+01, 0.10433655E+01, 0.10000000E+01/ + 0.11747203d+01, 0.10433655d+01, 0.10000000d+01/ DATA (GA( 2, 4,IC),IC=1,3) / & - 0.12108196E+01, 0.50501827E+00, 0.00000000E+00/ + 0.12108196d+01, 0.50501827d+00, 0.00000000d+00/ DATA (GB( 2, 4,IC),IC=1,3) / & - 0.12108196E+01, 0.10716026E+01, 0.10000000E+01/ + 0.12108196d+01, 0.10716026d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 212.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 3, 3,IC),IC=1,3) / & - 0.11837872E+01, 0.45331413E+00, 0.00000000E+00/ + 0.11837872d+01, 0.45331413d+00, 0.00000000d+00/ DATA (GB( 3, 3,IC),IC=1,3) / & - 0.11837872E+01, 0.10511933E+01, 0.10000000E+01/ + 0.11837872d+01, 0.10511933d+01, 0.10000000d+01/ DATA (GA( 3, 4,IC),IC=1,3) / & - 0.12196717E+01, 0.52409502E+00, 0.00000000E+00/ + 0.12196717d+01, 0.52409502d+00, 0.00000000d+00/ DATA (GB( 3, 4,IC),IC=1,3) / & - 0.12196717E+01, 0.10795108E+01, 0.10000000E+01/ + 0.12196717d+01, 0.10795108d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 225.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 4, 3,IC),IC=1,3) / & - 0.11918561E+01, 0.47048604E+00, 0.00000000E+00/ + 0.11918561d+01, 0.47048604d+00, 0.00000000d+00/ DATA (GB( 4, 3,IC),IC=1,3) / & - 0.11918561E+01, 0.10582150E+01, 0.10000000E+01/ + 0.11918561d+01, 0.10582150d+01, 0.10000000d+01/ DATA (GA( 4, 4,IC),IC=1,3) / & - 0.12274493E+01, 0.54085277E+00, 0.00000000E+00/ + 0.12274493d+01, 0.54085277d+00, 0.00000000d+00/ DATA (GB( 4, 4,IC),IC=1,3) / & - 0.12274493E+01, 0.10865006E+01, 0.10000000E+01/ + 0.12274493d+01, 0.10865006d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 237.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 5, 3,IC),IC=1,3) / & - 0.11990757E+01, 0.48586286E+00, 0.00000000E+00/ + 0.11990757d+01, 0.48586286d+00, 0.00000000d+00/ DATA (GB( 5, 3,IC),IC=1,3) / & - 0.11990757E+01, 0.10645317E+01, 0.10000000E+01/ + 0.11990757d+01, 0.10645317d+01, 0.10000000d+01/ DATA (GA( 5, 4,IC),IC=1,3) / & - 0.12343189E+01, 0.55565422E+00, 0.00000000E+00/ + 0.12343189d+01, 0.55565422d+00, 0.00000000d+00/ DATA (GB( 5, 4,IC),IC=1,3) / & - 0.12343189E+01, 0.10927103E+01, 0.10000000E+01/ + 0.12343189d+01, 0.10927103d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 250.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 6, 3,IC),IC=1,3) / & - 0.12055643E+01, 0.49968044E+00, 0.00000000E+00/ + 0.12055643d+01, 0.49968044d+00, 0.00000000d+00/ DATA (GB( 6, 3,IC),IC=1,3) / & - 0.12055643E+01, 0.10702313E+01, 0.10000000E+01/ + 0.12055643d+01, 0.10702313d+01, 0.10000000d+01/ DATA (GA( 6, 4,IC),IC=1,3) / & - 0.12404147E+01, 0.56878618E+00, 0.00000000E+00/ + 0.12404147d+01, 0.56878618d+00, 0.00000000d+00/ DATA (GB( 6, 4,IC),IC=1,3) / & - 0.12404147E+01, 0.10982489E+01, 0.10000000E+01/ + 0.12404147d+01, 0.10982489d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 262.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 7, 3,IC),IC=1,3) / & - 0.12114186E+01, 0.51214132E+00, 0.00000000E+00/ + 0.12114186d+01, 0.51214132d+00, 0.00000000d+00/ DATA (GB( 7, 3,IC),IC=1,3) / & - 0.12114186E+01, 0.10753907E+01, 0.10000000E+01/ + 0.12114186d+01, 0.10753907d+01, 0.10000000d+01/ DATA (GA( 7, 4,IC),IC=1,3) / & - 0.12458431E+01, 0.58047395E+00, 0.00000000E+00/ + 0.12458431d+01, 0.58047395d+00, 0.00000000d+00/ DATA (GB( 7, 4,IC),IC=1,3) / & - 0.12458431E+01, 0.11032019E+01, 0.10000000E+01/ + 0.12458431d+01, 0.11032019d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 275.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 8, 3,IC),IC=1,3) / & - 0.12167192E+01, 0.52341830E+00, 0.00000000E+00/ + 0.12167192d+01, 0.52341830d+00, 0.00000000d+00/ DATA (GB( 8, 3,IC),IC=1,3) / & - 0.12167192E+01, 0.10800762E+01, 0.10000000E+01/ + 0.12167192d+01, 0.10800762d+01, 0.10000000d+01/ DATA (GA( 8, 4,IC),IC=1,3) / & - 0.12506907E+01, 0.59089894E+00, 0.00000000E+00/ + 0.12506907d+01, 0.59089894d+00, 0.00000000d+00/ DATA (GB( 8, 4,IC),IC=1,3) / & - 0.12506907E+01, 0.11076379E+01, 0.10000000E+01/ + 0.12506907d+01, 0.11076379d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 287.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 9, 3,IC),IC=1,3) / & - 0.12215344E+01, 0.53365803E+00, 0.00000000E+00/ + 0.12215344d+01, 0.53365803d+00, 0.00000000d+00/ DATA (GB( 9, 3,IC),IC=1,3) / & - 0.12215344E+01, 0.10843446E+01, 0.10000000E+01/ + 0.12215344d+01, 0.10843446d+01, 0.10000000d+01/ DATA (GA( 9, 4,IC),IC=1,3) / & - 0.12550299E+01, 0.60021475E+00, 0.00000000E+00/ + 0.12550299d+01, 0.60021475d+00, 0.00000000d+00/ DATA (GB( 9, 4,IC),IC=1,3) / & - 0.12550299E+01, 0.11116160E+01, 0.10000000E+01/ + 0.12550299d+01, 0.11116160d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 300.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA(10, 3,IC),IC=1,3) / & - 0.12259226E+01, 0.54298448E+00, 0.00000000E+00/ + 0.12259226d+01, 0.54298448d+00, 0.00000000d+00/ DATA (GB(10, 3,IC),IC=1,3) / & - 0.12259226E+01, 0.10882439E+01, 0.10000000E+01/ + 0.12259226d+01, 0.10882439d+01, 0.10000000d+01/ DATA (GA(10, 4,IC),IC=1,3) / & - 0.12589256E+01, 0.60856112E+00, 0.00000000E+00/ + 0.12589256d+01, 0.60856112d+00, 0.00000000d+00/ DATA (GB(10, 4,IC),IC=1,3) / & - 0.12589256E+01, 0.11151910E+01, 0.10000000E+01/ + 0.12589256d+01, 0.11151910d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 312.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA(11, 3,IC),IC=1,3) / & - 0.12299344E+01, 0.55150227E+00, 0.00000000E+00/ + 0.12299344d+01, 0.55150227d+00, 0.00000000d+00/ DATA (GB(11, 3,IC),IC=1,3) / & - 0.12299344E+01, 0.10918144E+01, 0.10000000E+01/ + 0.12299344d+01, 0.10918144d+01, 0.10000000d+01/ DATA (GA(11, 4,IC),IC=1,3) / & - 0.12624402E+01, 0.61607594E+00, 0.00000000E+00/ + 0.12624402d+01, 0.61607594d+00, 0.00000000d+00/ DATA (GB(11, 4,IC),IC=1,3) / & - 0.12624402E+01, 0.11184188E+01, 0.10000000E+01/ + 0.12624402d+01, 0.11184188d+01, 0.10000000d+01/ ! ! ! @@ -399,276 +399,276 @@ ! ! ! -!--- G = 3.875E-03 --------------- +!--- G = 3.875d-03 --------------- ! !----- INTERVAL = 3 ----- T = 187.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 1, 7,IC),IC=1,3) / & - 0.10192131E+02, 0.80737799E+01, 0.00000000E+00/ + 0.10192131d+02, 0.80737799d+01, 0.00000000d+00/ DATA (GB( 1, 7,IC),IC=1,3) / & - 0.10192131E+02, 0.82623280E+01, 0.10000000E+01/ + 0.10192131d+02, 0.82623280d+01, 0.10000000d+01/ DATA (GA( 1, 8,IC),IC=1,3) / & - 0.92439050E+01, 0.77425778E+01, 0.00000000E+00/ + 0.92439050d+01, 0.77425778d+01, 0.00000000d+00/ DATA (GB( 1, 8,IC),IC=1,3) / & - 0.92439050E+01, 0.79342219E+01, 0.10000000E+01/ + 0.92439050d+01, 0.79342219d+01, 0.10000000d+01/ ! !----- INTERVAL = 3 ----- T = 200.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 2, 7,IC),IC=1,3) / & - 0.97258602E+01, 0.79171158E+01, 0.00000000E+00/ + 0.97258602d+01, 0.79171158d+01, 0.00000000d+00/ DATA (GB( 2, 7,IC),IC=1,3) / & - 0.97258602E+01, 0.81072291E+01, 0.10000000E+01/ + 0.97258602d+01, 0.81072291d+01, 0.10000000d+01/ DATA (GA( 2, 8,IC),IC=1,3) / & - 0.87567422E+01, 0.75443460E+01, 0.00000000E+00/ + 0.87567422d+01, 0.75443460d+01, 0.00000000d+00/ DATA (GB( 2, 8,IC),IC=1,3) / & - 0.87567422E+01, 0.77373458E+01, 0.10000000E+01/ + 0.87567422d+01, 0.77373458d+01, 0.10000000d+01/ ! !----- INTERVAL = 3 ----- T = 212.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 3, 7,IC),IC=1,3) / & - 0.92992890E+01, 0.77609605E+01, 0.00000000E+00/ + 0.92992890d+01, 0.77609605d+01, 0.00000000d+00/ DATA (GB( 3, 7,IC),IC=1,3) / & - 0.92992890E+01, 0.79523834E+01, 0.10000000E+01/ + 0.92992890d+01, 0.79523834d+01, 0.10000000d+01/ DATA (GA( 3, 8,IC),IC=1,3) / & - 0.83270144E+01, 0.73526151E+01, 0.00000000E+00/ + 0.83270144d+01, 0.73526151d+01, 0.00000000d+00/ DATA (GB( 3, 8,IC),IC=1,3) / & - 0.83270144E+01, 0.75467334E+01, 0.10000000E+01/ + 0.83270144d+01, 0.75467334d+01, 0.10000000d+01/ ! !----- INTERVAL = 3 ----- T = 225.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 4, 7,IC),IC=1,3) / & - 0.89154021E+01, 0.76087371E+01, 0.00000000E+00/ + 0.89154021d+01, 0.76087371d+01, 0.00000000d+00/ DATA (GB( 4, 7,IC),IC=1,3) / & - 0.89154021E+01, 0.78012527E+01, 0.10000000E+01/ + 0.89154021d+01, 0.78012527d+01, 0.10000000d+01/ DATA (GA( 4, 8,IC),IC=1,3) / & - 0.79528337E+01, 0.71711188E+01, 0.00000000E+00/ + 0.79528337d+01, 0.71711188d+01, 0.00000000d+00/ DATA (GB( 4, 8,IC),IC=1,3) / & - 0.79528337E+01, 0.73661786E+01, 0.10000000E+01/ + 0.79528337d+01, 0.73661786d+01, 0.10000000d+01/ ! !----- INTERVAL = 3 ----- T = 237.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 5, 7,IC),IC=1,3) / & - 0.85730084E+01, 0.74627112E+01, 0.00000000E+00/ + 0.85730084d+01, 0.74627112d+01, 0.00000000d+00/ DATA (GB( 5, 7,IC),IC=1,3) / & - 0.85730084E+01, 0.76561458E+01, 0.10000000E+01/ + 0.85730084d+01, 0.76561458d+01, 0.10000000d+01/ DATA (GA( 5, 8,IC),IC=1,3) / & - 0.76286839E+01, 0.70015571E+01, 0.00000000E+00/ + 0.76286839d+01, 0.70015571d+01, 0.00000000d+00/ DATA (GB( 5, 8,IC),IC=1,3) / & - 0.76286839E+01, 0.71974319E+01, 0.10000000E+01/ + 0.76286839d+01, 0.71974319d+01, 0.10000000d+01/ ! !----- INTERVAL = 3 ----- T = 250.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 6, 7,IC),IC=1,3) / & - 0.82685838E+01, 0.73239981E+01, 0.00000000E+00/ + 0.82685838d+01, 0.73239981d+01, 0.00000000d+00/ DATA (GB( 6, 7,IC),IC=1,3) / & - 0.82685838E+01, 0.75182174E+01, 0.10000000E+01/ + 0.82685838d+01, 0.75182174d+01, 0.10000000d+01/ DATA (GA( 6, 8,IC),IC=1,3) / & - 0.73477879E+01, 0.68442532E+01, 0.00000000E+00/ + 0.73477879d+01, 0.68442532d+01, 0.00000000d+00/ DATA (GB( 6, 8,IC),IC=1,3) / & - 0.73477879E+01, 0.70408543E+01, 0.10000000E+01/ + 0.73477879d+01, 0.70408543d+01, 0.10000000d+01/ ! !----- INTERVAL = 3 ----- T = 262.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 7, 7,IC),IC=1,3) / & - 0.79978921E+01, 0.71929934E+01, 0.00000000E+00/ + 0.79978921d+01, 0.71929934d+01, 0.00000000d+00/ DATA (GB( 7, 7,IC),IC=1,3) / & - 0.79978921E+01, 0.73878952E+01, 0.10000000E+01/ + 0.79978921d+01, 0.73878952d+01, 0.10000000d+01/ DATA (GA( 7, 8,IC),IC=1,3) / & - 0.71035818E+01, 0.66987996E+01, 0.00000000E+00/ + 0.71035818d+01, 0.66987996d+01, 0.00000000d+00/ DATA (GB( 7, 8,IC),IC=1,3) / & - 0.71035818E+01, 0.68960649E+01, 0.10000000E+01/ + 0.71035818d+01, 0.68960649d+01, 0.10000000d+01/ ! !----- INTERVAL = 3 ----- T = 275.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 8, 7,IC),IC=1,3) / & - 0.77568055E+01, 0.70697065E+01, 0.00000000E+00/ + 0.77568055d+01, 0.70697065d+01, 0.00000000d+00/ DATA (GB( 8, 7,IC),IC=1,3) / & - 0.77568055E+01, 0.72652133E+01, 0.10000000E+01/ + 0.77568055d+01, 0.72652133d+01, 0.10000000d+01/ DATA (GA( 8, 8,IC),IC=1,3) / & - 0.68903312E+01, 0.65644820E+01, 0.00000000E+00/ + 0.68903312d+01, 0.65644820d+01, 0.00000000d+00/ DATA (GB( 8, 8,IC),IC=1,3) / & - 0.68903312E+01, 0.67623672E+01, 0.10000000E+01/ + 0.68903312d+01, 0.67623672d+01, 0.10000000d+01/ ! !----- INTERVAL = 3 ----- T = 287.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 9, 7,IC),IC=1,3) / & - 0.75416266E+01, 0.69539626E+01, 0.00000000E+00/ + 0.75416266d+01, 0.69539626d+01, 0.00000000d+00/ DATA (GB( 9, 7,IC),IC=1,3) / & - 0.75416266E+01, 0.71500151E+01, 0.10000000E+01/ + 0.75416266d+01, 0.71500151d+01, 0.10000000d+01/ DATA (GA( 9, 8,IC),IC=1,3) / & - 0.67032875E+01, 0.64405267E+01, 0.00000000E+00/ + 0.67032875d+01, 0.64405267d+01, 0.00000000d+00/ DATA (GB( 9, 8,IC),IC=1,3) / & - 0.67032875E+01, 0.66389989E+01, 0.10000000E+01/ + 0.67032875d+01, 0.66389989d+01, 0.10000000d+01/ ! !----- INTERVAL = 3 ----- T = 300.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA(10, 7,IC),IC=1,3) / & - 0.73491694E+01, 0.68455144E+01, 0.00000000E+00/ + 0.73491694d+01, 0.68455144d+01, 0.00000000d+00/ DATA (GB(10, 7,IC),IC=1,3) / & - 0.73491694E+01, 0.70420667E+01, 0.10000000E+01/ + 0.73491694d+01, 0.70420667d+01, 0.10000000d+01/ DATA (GA(10, 8,IC),IC=1,3) / & - 0.65386461E+01, 0.63262376E+01, 0.00000000E+00/ + 0.65386461d+01, 0.63262376d+01, 0.00000000d+00/ DATA (GB(10, 8,IC),IC=1,3) / & - 0.65386461E+01, 0.65252707E+01, 0.10000000E+01/ + 0.65386461d+01, 0.65252707d+01, 0.10000000d+01/ ! !----- INTERVAL = 3 ----- T = 312.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA(11, 7,IC),IC=1,3) / & - 0.71767400E+01, 0.67441020E+01, 0.00000000E+00/ + 0.71767400d+01, 0.67441020d+01, 0.00000000d+00/ DATA (GB(11, 7,IC),IC=1,3) / & - 0.71767400E+01, 0.69411177E+01, 0.10000000E+01/ + 0.71767400d+01, 0.69411177d+01, 0.10000000d+01/ DATA (GA(11, 8,IC),IC=1,3) / & - 0.63934377E+01, 0.62210701E+01, 0.00000000E+00/ + 0.63934377d+01, 0.62210701d+01, 0.00000000d+00/ DATA (GB(11, 8,IC),IC=1,3) / & - 0.63934377E+01, 0.64206412E+01, 0.10000000E+01/ + 0.63934377d+01, 0.64206412d+01, 0.10000000d+01/ ! ! !-- WATER VAPOR -- 970-1110 CM-1 ---------------------------------------- ! -!-- G = 3.6E-03 +!-- G = 3.6d-03 ! !----- INTERVAL = 4 ----- T = 187.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 1, 9,IC),IC=1,3) / & - 0.24870635E+02, 0.10542131E+02, 0.00000000E+00/ + 0.24870635d+02, 0.10542131d+02, 0.00000000d+00/ DATA (GB( 1, 9,IC),IC=1,3) / & - 0.24870635E+02, 0.10656640E+02, 0.10000000E+01/ + 0.24870635d+02, 0.10656640d+02, 0.10000000d+01/ DATA (GA( 1,10,IC),IC=1,3) / & - 0.24586283E+02, 0.10490353E+02, 0.00000000E+00/ + 0.24586283d+02, 0.10490353d+02, 0.00000000d+00/ DATA (GB( 1,10,IC),IC=1,3) / & - 0.24586283E+02, 0.10605856E+02, 0.10000000E+01/ + 0.24586283d+02, 0.10605856d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 200.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 2, 9,IC),IC=1,3) / & - 0.24725591E+02, 0.10515895E+02, 0.00000000E+00/ + 0.24725591d+02, 0.10515895d+02, 0.00000000d+00/ DATA (GB( 2, 9,IC),IC=1,3) / & - 0.24725591E+02, 0.10630910E+02, 0.10000000E+01/ + 0.24725591d+02, 0.10630910d+02, 0.10000000d+01/ DATA (GA( 2,10,IC),IC=1,3) / & - 0.24441465E+02, 0.10463512E+02, 0.00000000E+00/ + 0.24441465d+02, 0.10463512d+02, 0.00000000d+00/ DATA (GB( 2,10,IC),IC=1,3) / & - 0.24441465E+02, 0.10579514E+02, 0.10000000E+01/ + 0.24441465d+02, 0.10579514d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 212.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 3, 9,IC),IC=1,3) / & - 0.24600320E+02, 0.10492949E+02, 0.00000000E+00/ + 0.24600320d+02, 0.10492949d+02, 0.00000000d+00/ DATA (GB( 3, 9,IC),IC=1,3) / & - 0.24600320E+02, 0.10608399E+02, 0.10000000E+01/ + 0.24600320d+02, 0.10608399d+02, 0.10000000d+01/ DATA (GA( 3,10,IC),IC=1,3) / & - 0.24311657E+02, 0.10439183E+02, 0.00000000E+00/ + 0.24311657d+02, 0.10439183d+02, 0.00000000d+00/ DATA (GB( 3,10,IC),IC=1,3) / & - 0.24311657E+02, 0.10555632E+02, 0.10000000E+01/ + 0.24311657d+02, 0.10555632d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 225.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 4, 9,IC),IC=1,3) / & - 0.24487300E+02, 0.10472049E+02, 0.00000000E+00/ + 0.24487300d+02, 0.10472049d+02, 0.00000000d+00/ DATA (GB( 4, 9,IC),IC=1,3) / & - 0.24487300E+02, 0.10587891E+02, 0.10000000E+01/ + 0.24487300d+02, 0.10587891d+02, 0.10000000d+01/ DATA (GA( 4,10,IC),IC=1,3) / & - 0.24196167E+02, 0.10417324E+02, 0.00000000E+00/ + 0.24196167d+02, 0.10417324d+02, 0.00000000d+00/ DATA (GB( 4,10,IC),IC=1,3) / & - 0.24196167E+02, 0.10534169E+02, 0.10000000E+01/ + 0.24196167d+02, 0.10534169d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 237.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 5, 9,IC),IC=1,3) / & - 0.24384935E+02, 0.10452961E+02, 0.00000000E+00/ + 0.24384935d+02, 0.10452961d+02, 0.00000000d+00/ DATA (GB( 5, 9,IC),IC=1,3) / & - 0.24384935E+02, 0.10569156E+02, 0.10000000E+01/ + 0.24384935d+02, 0.10569156d+02, 0.10000000d+01/ DATA (GA( 5,10,IC),IC=1,3) / & - 0.24093406E+02, 0.10397704E+02, 0.00000000E+00/ + 0.24093406d+02, 0.10397704d+02, 0.00000000d+00/ DATA (GB( 5,10,IC),IC=1,3) / & - 0.24093406E+02, 0.10514900E+02, 0.10000000E+01/ + 0.24093406d+02, 0.10514900d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 250.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 6, 9,IC),IC=1,3) / & - 0.24292341E+02, 0.10435562E+02, 0.00000000E+00/ + 0.24292341d+02, 0.10435562d+02, 0.00000000d+00/ DATA (GB( 6, 9,IC),IC=1,3) / & - 0.24292341E+02, 0.10552075E+02, 0.10000000E+01/ + 0.24292341d+02, 0.10552075d+02, 0.10000000d+01/ DATA (GA( 6,10,IC),IC=1,3) / & - 0.24001597E+02, 0.10380038E+02, 0.00000000E+00/ + 0.24001597d+02, 0.10380038d+02, 0.00000000d+00/ DATA (GB( 6,10,IC),IC=1,3) / & - 0.24001597E+02, 0.10497547E+02, 0.10000000E+01/ + 0.24001597d+02, 0.10497547d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 262.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 7, 9,IC),IC=1,3) / & - 0.24208572E+02, 0.10419710E+02, 0.00000000E+00/ + 0.24208572d+02, 0.10419710d+02, 0.00000000d+00/ DATA (GB( 7, 9,IC),IC=1,3) / & - 0.24208572E+02, 0.10536510E+02, 0.10000000E+01/ + 0.24208572d+02, 0.10536510d+02, 0.10000000d+01/ DATA (GA( 7,10,IC),IC=1,3) / & - 0.23919098E+02, 0.10364052E+02, 0.00000000E+00/ + 0.23919098d+02, 0.10364052d+02, 0.00000000d+00/ DATA (GB( 7,10,IC),IC=1,3) / & - 0.23919098E+02, 0.10481842E+02, 0.10000000E+01/ + 0.23919098d+02, 0.10481842d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 275.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 8, 9,IC),IC=1,3) / & - 0.24132642E+02, 0.10405247E+02, 0.00000000E+00/ + 0.24132642d+02, 0.10405247d+02, 0.00000000d+00/ DATA (GB( 8, 9,IC),IC=1,3) / & - 0.24132642E+02, 0.10522307E+02, 0.10000000E+01/ + 0.24132642d+02, 0.10522307d+02, 0.10000000d+01/ DATA (GA( 8,10,IC),IC=1,3) / & - 0.23844511E+02, 0.10349509E+02, 0.00000000E+00/ + 0.23844511d+02, 0.10349509d+02, 0.00000000d+00/ DATA (GB( 8,10,IC),IC=1,3) / & - 0.23844511E+02, 0.10467553E+02, 0.10000000E+01/ + 0.23844511d+02, 0.10467553d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 287.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA( 9, 9,IC),IC=1,3) / & - 0.24063614E+02, 0.10392022E+02, 0.00000000E+00/ + 0.24063614d+02, 0.10392022d+02, 0.00000000d+00/ DATA (GB( 9, 9,IC),IC=1,3) / & - 0.24063614E+02, 0.10509317E+02, 0.10000000E+01/ + 0.24063614d+02, 0.10509317d+02, 0.10000000d+01/ DATA (GA( 9,10,IC),IC=1,3) / & - 0.23776708E+02, 0.10336215E+02, 0.00000000E+00/ + 0.23776708d+02, 0.10336215d+02, 0.00000000d+00/ DATA (GB( 9,10,IC),IC=1,3) / & - 0.23776708E+02, 0.10454488E+02, 0.10000000E+01/ + 0.23776708d+02, 0.10454488d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 300.0 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA(10, 9,IC),IC=1,3) / & - 0.24000649E+02, 0.10379892E+02, 0.00000000E+00/ + 0.24000649d+02, 0.10379892d+02, 0.00000000d+00/ DATA (GB(10, 9,IC),IC=1,3) / & - 0.24000649E+02, 0.10497402E+02, 0.10000000E+01/ + 0.24000649d+02, 0.10497402d+02, 0.10000000d+01/ DATA (GA(10,10,IC),IC=1,3) / & - 0.23714816E+02, 0.10324018E+02, 0.00000000E+00/ + 0.23714816d+02, 0.10324018d+02, 0.00000000d+00/ DATA (GB(10,10,IC),IC=1,3) / & - 0.23714816E+02, 0.10442501E+02, 0.10000000E+01/ + 0.23714816d+02, 0.10442501d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 312.5 ! !-- INDICES FOR PADE APPROXIMATION 1 28 37 45 DATA (GA(11, 9,IC),IC=1,3) / & - 0.23943021E+02, 0.10368736E+02, 0.00000000E+00/ + 0.23943021d+02, 0.10368736d+02, 0.00000000d+00/ DATA (GB(11, 9,IC),IC=1,3) / & - 0.23943021E+02, 0.10486443E+02, 0.10000000E+01/ + 0.23943021d+02, 0.10486443d+02, 0.10000000d+01/ DATA (GA(11,10,IC),IC=1,3) / & - 0.23658197E+02, 0.10312808E+02, 0.00000000E+00/ + 0.23658197d+02, 0.10312808d+02, 0.00000000d+00/ DATA (GB(11,10,IC),IC=1,3) / & - 0.23658197E+02, 0.10431483E+02, 0.10000000E+01/ + 0.23658197d+02, 0.10431483d+02, 0.10000000d+01/ ! ! ! @@ -682,133 +682,133 @@ ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 1, 5,IC),IC=1,3) / & - 0.15750172E+00,-0.22159303E-01, 0.00000000E+00/ + 0.15750172d+00,-0.22159303d-01, 0.00000000d+00/ DATA (GB( 1, 5,IC),IC=1,3) / & - 0.15750172E+00, 0.38103212E+00, 0.10000000E+01/ + 0.15750172d+00, 0.38103212d+00, 0.10000000d+01/ DATA (GA( 1, 6,IC),IC=1,3) / & - 0.17770551E+00,-0.24972399E-01, 0.00000000E+00/ + 0.17770551d+00,-0.24972399d-01, 0.00000000d+00/ DATA (GB( 1, 6,IC),IC=1,3) / & - 0.17770551E+00, 0.41646579E+00, 0.10000000E+01/ + 0.17770551d+00, 0.41646579d+00, 0.10000000d+01/ ! !----- INTERVAL = 5 ----- T = 200.0 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 2, 5,IC),IC=1,3) / & - 0.16174076E+00,-0.22748917E-01, 0.00000000E+00/ + 0.16174076d+00,-0.22748917d-01, 0.00000000d+00/ DATA (GB( 2, 5,IC),IC=1,3) / & - 0.16174076E+00, 0.38913800E+00, 0.10000000E+01/ + 0.16174076d+00, 0.38913800d+00, 0.10000000d+01/ DATA (GA( 2, 6,IC),IC=1,3) / & - 0.18176757E+00,-0.25537247E-01, 0.00000000E+00/ + 0.18176757d+00,-0.25537247d-01, 0.00000000d+00/ DATA (GB( 2, 6,IC),IC=1,3) / & - 0.18176757E+00, 0.42345095E+00, 0.10000000E+01/ + 0.18176757d+00, 0.42345095d+00, 0.10000000d+01/ ! !----- INTERVAL = 5 ----- T = 212.5 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 3, 5,IC),IC=1,3) / & - 0.16548628E+00,-0.23269898E-01, 0.00000000E+00/ + 0.16548628d+00,-0.23269898d-01, 0.00000000d+00/ DATA (GB( 3, 5,IC),IC=1,3) / & - 0.16548628E+00, 0.39613651E+00, 0.10000000E+01/ + 0.16548628d+00, 0.39613651d+00, 0.10000000d+01/ DATA (GA( 3, 6,IC),IC=1,3) / & - 0.18527967E+00,-0.26025624E-01, 0.00000000E+00/ + 0.18527967d+00,-0.26025624d-01, 0.00000000d+00/ DATA (GB( 3, 6,IC),IC=1,3) / & - 0.18527967E+00, 0.42937476E+00, 0.10000000E+01/ + 0.18527967d+00, 0.42937476d+00, 0.10000000d+01/ ! !----- INTERVAL = 5 ----- T = 225.0 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 4, 5,IC),IC=1,3) / & - 0.16881124E+00,-0.23732392E-01, 0.00000000E+00/ + 0.16881124d+00,-0.23732392d-01, 0.00000000d+00/ DATA (GB( 4, 5,IC),IC=1,3) / & - 0.16881124E+00, 0.40222421E+00, 0.10000000E+01/ + 0.16881124d+00, 0.40222421d+00, 0.10000000d+01/ DATA (GA( 4, 6,IC),IC=1,3) / & - 0.18833348E+00,-0.26450280E-01, 0.00000000E+00/ + 0.18833348d+00,-0.26450280d-01, 0.00000000d+00/ DATA (GB( 4, 6,IC),IC=1,3) / & - 0.18833348E+00, 0.43444062E+00, 0.10000000E+01/ + 0.18833348d+00, 0.43444062d+00, 0.10000000d+01/ ! !----- INTERVAL = 5 ----- T = 237.5 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 5, 5,IC),IC=1,3) / & - 0.17177839E+00,-0.24145123E-01, 0.00000000E+00/ + 0.17177839d+00,-0.24145123d-01, 0.00000000d+00/ DATA (GB( 5, 5,IC),IC=1,3) / & - 0.17177839E+00, 0.40756010E+00, 0.10000000E+01/ + 0.17177839d+00, 0.40756010d+00, 0.10000000d+01/ DATA (GA( 5, 6,IC),IC=1,3) / & - 0.19100108E+00,-0.26821236E-01, 0.00000000E+00/ + 0.19100108d+00,-0.26821236d-01, 0.00000000d+00/ DATA (GB( 5, 6,IC),IC=1,3) / & - 0.19100108E+00, 0.43880316E+00, 0.10000000E+01/ + 0.19100108d+00, 0.43880316d+00, 0.10000000d+01/ ! !----- INTERVAL = 5 ----- T = 250.0 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 6, 5,IC),IC=1,3) / & - 0.17443933E+00,-0.24515269E-01, 0.00000000E+00/ + 0.17443933d+00,-0.24515269d-01, 0.00000000d+00/ DATA (GB( 6, 5,IC),IC=1,3) / & - 0.17443933E+00, 0.41226954E+00, 0.10000000E+01/ + 0.17443933d+00, 0.41226954d+00, 0.10000000d+01/ DATA (GA( 6, 6,IC),IC=1,3) / & - 0.19334122E+00,-0.27146657E-01, 0.00000000E+00/ + 0.19334122d+00,-0.27146657d-01, 0.00000000d+00/ DATA (GB( 6, 6,IC),IC=1,3) / & - 0.19334122E+00, 0.44258354E+00, 0.10000000E+01/ + 0.19334122d+00, 0.44258354d+00, 0.10000000d+01/ ! !----- INTERVAL = 5 ----- T = 262.5 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 7, 5,IC),IC=1,3) / & - 0.17683622E+00,-0.24848690E-01, 0.00000000E+00/ + 0.17683622d+00,-0.24848690d-01, 0.00000000d+00/ DATA (GB( 7, 5,IC),IC=1,3) / & - 0.17683622E+00, 0.41645142E+00, 0.10000000E+01/ + 0.17683622d+00, 0.41645142d+00, 0.10000000d+01/ DATA (GA( 7, 6,IC),IC=1,3) / & - 0.19540288E+00,-0.27433354E-01, 0.00000000E+00/ + 0.19540288d+00,-0.27433354d-01, 0.00000000d+00/ DATA (GB( 7, 6,IC),IC=1,3) / & - 0.19540288E+00, 0.44587882E+00, 0.10000000E+01/ + 0.19540288d+00, 0.44587882d+00, 0.10000000d+01/ ! !----- INTERVAL = 5 ----- T = 275.0 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 8, 5,IC),IC=1,3) / & - 0.17900375E+00,-0.25150210E-01, 0.00000000E+00/ + 0.17900375d+00,-0.25150210d-01, 0.00000000d+00/ DATA (GB( 8, 5,IC),IC=1,3) / & - 0.17900375E+00, 0.42018474E+00, 0.10000000E+01/ + 0.17900375d+00, 0.42018474d+00, 0.10000000d+01/ DATA (GA( 8, 6,IC),IC=1,3) / & - 0.19722732E+00,-0.27687065E-01, 0.00000000E+00/ + 0.19722732d+00,-0.27687065d-01, 0.00000000d+00/ DATA (GB( 8, 6,IC),IC=1,3) / & - 0.19722732E+00, 0.44876776E+00, 0.10000000E+01/ + 0.19722732d+00, 0.44876776d+00, 0.10000000d+01/ ! !----- INTERVAL = 5 ----- T = 287.5 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 9, 5,IC),IC=1,3) / & - 0.18097099E+00,-0.25423873E-01, 0.00000000E+00/ + 0.18097099d+00,-0.25423873d-01, 0.00000000d+00/ DATA (GB( 9, 5,IC),IC=1,3) / & - 0.18097099E+00, 0.42353379E+00, 0.10000000E+01/ + 0.18097099d+00, 0.42353379d+00, 0.10000000d+01/ DATA (GA( 9, 6,IC),IC=1,3) / & - 0.19884918E+00,-0.27912608E-01, 0.00000000E+00/ + 0.19884918d+00,-0.27912608d-01, 0.00000000d+00/ DATA (GB( 9, 6,IC),IC=1,3) / & - 0.19884918E+00, 0.45131451E+00, 0.10000000E+01/ + 0.19884918d+00, 0.45131451d+00, 0.10000000d+01/ ! !----- INTERVAL = 5 ----- T = 300.0 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA(10, 5,IC),IC=1,3) / & - 0.18276283E+00,-0.25673139E-01, 0.00000000E+00/ + 0.18276283d+00,-0.25673139d-01, 0.00000000d+00/ DATA (GB(10, 5,IC),IC=1,3) / & - 0.18276283E+00, 0.42655211E+00, 0.10000000E+01/ + 0.18276283d+00, 0.42655211d+00, 0.10000000d+01/ DATA (GA(10, 6,IC),IC=1,3) / & - 0.20029696E+00,-0.28113944E-01, 0.00000000E+00/ + 0.20029696d+00,-0.28113944d-01, 0.00000000d+00/ DATA (GB(10, 6,IC),IC=1,3) / & - 0.20029696E+00, 0.45357095E+00, 0.10000000E+01/ + 0.20029696d+00, 0.45357095d+00, 0.10000000d+01/ ! !----- INTERVAL = 5 ----- T = 312.5 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA(11, 5,IC),IC=1,3) / & - 0.18440117E+00,-0.25901055E-01, 0.00000000E+00/ + 0.18440117d+00,-0.25901055d-01, 0.00000000d+00/ DATA (GB(11, 5,IC),IC=1,3) / & - 0.18440117E+00, 0.42928533E+00, 0.10000000E+01/ + 0.18440117d+00, 0.42928533d+00, 0.10000000d+01/ DATA (GA(11, 6,IC),IC=1,3) / & - 0.20159300E+00,-0.28294180E-01, 0.00000000E+00/ + 0.20159300d+00,-0.28294180d-01, 0.00000000d+00/ DATA (GB(11, 6,IC),IC=1,3) / & - 0.20159300E+00, 0.45557797E+00, 0.10000000E+01/ + 0.20159300d+00, 0.45557797d+00, 0.10000000d+01/ ! ! ! @@ -821,133 +821,133 @@ ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 1,11,IC),IC=1,3) / & - 0.11990218E+02,-0.12823142E+01, 0.00000000E+00/ + 0.11990218d+02,-0.12823142d+01, 0.00000000d+00/ DATA (GB( 1,11,IC),IC=1,3) / & - 0.11990218E+02, 0.26681588E+02, 0.10000000E+01/ + 0.11990218d+02, 0.26681588d+02, 0.10000000d+01/ DATA (GA( 1,12,IC),IC=1,3) / & - 0.79709806E+01,-0.74805226E+00, 0.00000000E+00/ + 0.79709806d+01,-0.74805226d+00, 0.00000000d+00/ DATA (GB( 1,12,IC),IC=1,3) / & - 0.79709806E+01, 0.18377807E+02, 0.10000000E+01/ + 0.79709806d+01, 0.18377807d+02, 0.10000000d+01/ ! !----- INTERVAL = 6 ----- T = 200.0 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 2,11,IC),IC=1,3) / & - 0.10904073E+02,-0.10571588E+01, 0.00000000E+00/ + 0.10904073d+02,-0.10571588d+01, 0.00000000d+00/ DATA (GB( 2,11,IC),IC=1,3) / & - 0.10904073E+02, 0.24728346E+02, 0.10000000E+01/ + 0.10904073d+02, 0.24728346d+02, 0.10000000d+01/ DATA (GA( 2,12,IC),IC=1,3) / & - 0.75400737E+01,-0.56252739E+00, 0.00000000E+00/ + 0.75400737d+01,-0.56252739d+00, 0.00000000d+00/ DATA (GB( 2,12,IC),IC=1,3) / & - 0.75400737E+01, 0.17643148E+02, 0.10000000E+01/ + 0.75400737d+01, 0.17643148d+02, 0.10000000d+01/ ! !----- INTERVAL = 6 ----- T = 212.5 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 3,11,IC),IC=1,3) / & - 0.89126838E+01,-0.74864953E+00, 0.00000000E+00/ + 0.89126838d+01,-0.74864953d+00, 0.00000000d+00/ DATA (GB( 3,11,IC),IC=1,3) / & - 0.89126838E+01, 0.20551342E+02, 0.10000000E+01/ + 0.89126838d+01, 0.20551342d+02, 0.10000000d+01/ DATA (GA( 3,12,IC),IC=1,3) / & - 0.81804377E+01,-0.46188072E+00, 0.00000000E+00/ + 0.81804377d+01,-0.46188072d+00, 0.00000000d+00/ DATA (GB( 3,12,IC),IC=1,3) / & - 0.81804377E+01, 0.19296161E+02, 0.10000000E+01/ + 0.81804377d+01, 0.19296161d+02, 0.10000000d+01/ ! !----- INTERVAL = 6 ----- T = 225.0 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 4,11,IC),IC=1,3) / & - 0.85622405E+01,-0.58705980E+00, 0.00000000E+00/ + 0.85622405d+01,-0.58705980d+00, 0.00000000d+00/ DATA (GB( 4,11,IC),IC=1,3) / & - 0.85622405E+01, 0.19955244E+02, 0.10000000E+01/ + 0.85622405d+01, 0.19955244d+02, 0.10000000d+01/ DATA (GA( 4,12,IC),IC=1,3) / & - 0.10564339E+02,-0.40712065E+00, 0.00000000E+00/ + 0.10564339d+02,-0.40712065d+00, 0.00000000d+00/ DATA (GB( 4,12,IC),IC=1,3) / & - 0.10564339E+02, 0.24951120E+02, 0.10000000E+01/ + 0.10564339d+02, 0.24951120d+02, 0.10000000d+01/ ! !----- INTERVAL = 6 ----- T = 237.5 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 5,11,IC),IC=1,3) / & - 0.94892164E+01,-0.49305772E+00, 0.00000000E+00/ + 0.94892164d+01,-0.49305772d+00, 0.00000000d+00/ DATA (GB( 5,11,IC),IC=1,3) / & - 0.94892164E+01, 0.22227100E+02, 0.10000000E+01/ + 0.94892164d+01, 0.22227100d+02, 0.10000000d+01/ DATA (GA( 5,12,IC),IC=1,3) / & - 0.46896789E+02,-0.15295996E+01, 0.00000000E+00/ + 0.46896789d+02,-0.15295996d+01, 0.00000000d+00/ DATA (GB( 5,12,IC),IC=1,3) / & - 0.46896789E+02, 0.10957372E+03, 0.10000000E+01/ + 0.46896789d+02, 0.10957372d+03, 0.10000000d+01/ ! !----- INTERVAL = 6 ----- T = 250.0 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 6,11,IC),IC=1,3) / & - 0.13580937E+02,-0.51461431E+00, 0.00000000E+00/ + 0.13580937d+02,-0.51461431d+00, 0.00000000d+00/ DATA (GB( 6,11,IC),IC=1,3) / & - 0.13580937E+02, 0.31770288E+02, 0.10000000E+01/ + 0.13580937d+02, 0.31770288d+02, 0.10000000d+01/ DATA (GA( 6,12,IC),IC=1,3) / & - -0.30926524E+01, 0.43555255E+00, 0.00000000E+00/ + -0.30926524d+01, 0.43555255d+00, 0.00000000d+00/ DATA (GB( 6,12,IC),IC=1,3) / & - -0.30926524E+01,-0.67432659E+01, 0.10000000E+01/ + -0.30926524d+01,-0.67432659d+01, 0.10000000d+01/ ! !----- INTERVAL = 6 ----- T = 262.5 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 7,11,IC),IC=1,3) / & - -0.32050918E+03, 0.12373350E+02, 0.00000000E+00/ + -0.32050918d+03, 0.12373350d+02, 0.00000000d+00/ DATA (GB( 7,11,IC),IC=1,3) / & - -0.32050918E+03,-0.74061287E+03, 0.10000000E+01/ + -0.32050918d+03,-0.74061287d+03, 0.10000000d+01/ DATA (GA( 7,12,IC),IC=1,3) / & - 0.85742941E+00, 0.50380874E+00, 0.00000000E+00/ + 0.85742941d+00, 0.50380874d+00, 0.00000000d+00/ DATA (GB( 7,12,IC),IC=1,3) / & - 0.85742941E+00, 0.24550746E+01, 0.10000000E+01/ + 0.85742941d+00, 0.24550746d+01, 0.10000000d+01/ ! !----- INTERVAL = 6 ----- T = 275.0 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 8,11,IC),IC=1,3) / & - -0.37133165E+01, 0.44809588E+00, 0.00000000E+00/ + -0.37133165d+01, 0.44809588d+00, 0.00000000d+00/ DATA (GB( 8,11,IC),IC=1,3) / & - -0.37133165E+01,-0.81329826E+01, 0.10000000E+01/ + -0.37133165d+01,-0.81329826d+01, 0.10000000d+01/ DATA (GA( 8,12,IC),IC=1,3) / & - 0.19164038E+01, 0.68537352E+00, 0.00000000E+00/ + 0.19164038d+01, 0.68537352d+00, 0.00000000d+00/ DATA (GB( 8,12,IC),IC=1,3) / & - 0.19164038E+01, 0.49089917E+01, 0.10000000E+01/ + 0.19164038d+01, 0.49089917d+01, 0.10000000d+01/ ! !----- INTERVAL = 6 ----- T = 287.5 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA( 9,11,IC),IC=1,3) / & - 0.18890836E+00, 0.46548918E+00, 0.00000000E+00/ + 0.18890836d+00, 0.46548918d+00, 0.00000000d+00/ DATA (GB( 9,11,IC),IC=1,3) / & - 0.18890836E+00, 0.90279822E+00, 0.10000000E+01/ + 0.18890836d+00, 0.90279822d+00, 0.10000000d+01/ DATA (GA( 9,12,IC),IC=1,3) / & - 0.23513199E+01, 0.89437630E+00, 0.00000000E+00/ + 0.23513199d+01, 0.89437630d+00, 0.00000000d+00/ DATA (GB( 9,12,IC),IC=1,3) / & - 0.23513199E+01, 0.59008712E+01, 0.10000000E+01/ + 0.23513199d+01, 0.59008712d+01, 0.10000000d+01/ ! !----- INTERVAL = 6 ----- T = 300.0 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA(10,11,IC),IC=1,3) / & - 0.14209226E+01, 0.59121475E+00, 0.00000000E+00/ + 0.14209226d+01, 0.59121475d+00, 0.00000000d+00/ DATA (GB(10,11,IC),IC=1,3) / & - 0.14209226E+01, 0.37532746E+01, 0.10000000E+01/ + 0.14209226d+01, 0.37532746d+01, 0.10000000d+01/ DATA (GA(10,12,IC),IC=1,3) / & - 0.25566644E+01, 0.11127003E+01, 0.00000000E+00/ + 0.25566644d+01, 0.11127003d+01, 0.00000000d+00/ DATA (GB(10,12,IC),IC=1,3) / & - 0.25566644E+01, 0.63532616E+01, 0.10000000E+01/ + 0.25566644d+01, 0.63532616d+01, 0.10000000d+01/ ! !----- INTERVAL = 6 ----- T = 312.5 ! !-- INDICES FOR PADE APPROXIMATION 1 35 40 45 DATA (GA(11,11,IC),IC=1,3) / & - 0.19817679E+01, 0.74676119E+00, 0.00000000E+00/ + 0.19817679d+01, 0.74676119d+00, 0.00000000d+00/ DATA (GB(11,11,IC),IC=1,3) / & - 0.19817679E+01, 0.50437916E+01, 0.10000000E+01/ + 0.19817679d+01, 0.50437916d+01, 0.10000000d+01/ DATA (GA(11,12,IC),IC=1,3) / & - 0.26555181E+01, 0.13329782E+01, 0.00000000E+00/ + 0.26555181d+01, 0.13329782d+01, 0.00000000d+00/ DATA (GB(11,12,IC),IC=1,3) / & - 0.26555181E+01, 0.65558627E+01, 0.10000000E+01/ + 0.26555181d+01, 0.65558627d+01, 0.10000000d+01/ ! ! ! @@ -966,133 +966,133 @@ ! !-- INDICES FOR PADE APPROXIMATION 1 30 38 45 DATA (GA( 1,13,IC),IC=1,3) / & - 0.87668459E-01, 0.13845511E+01, 0.00000000E+00/ + 0.87668459d-01, 0.13845511d+01, 0.00000000d+00/ DATA (GB( 1,13,IC),IC=1,3) / & - 0.87668459E-01, 0.23203798E+01, 0.10000000E+01/ + 0.87668459d-01, 0.23203798d+01, 0.10000000d+01/ DATA (GA( 1,14,IC),IC=1,3) / & - 0.74878820E-01, 0.11718758E+01, 0.00000000E+00/ + 0.74878820d-01, 0.11718758d+01, 0.00000000d+00/ DATA (GB( 1,14,IC),IC=1,3) / & - 0.74878820E-01, 0.20206726E+01, 0.10000000E+01/ + 0.74878820d-01, 0.20206726d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 200.0 ! !-- INDICES FOR PADE APPROXIMATION 1 30 38 45 DATA (GA( 2,13,IC),IC=1,3) / & - 0.83754276E-01, 0.13187042E+01, 0.00000000E+00/ + 0.83754276d-01, 0.13187042d+01, 0.00000000d+00/ DATA (GB( 2,13,IC),IC=1,3) / & - 0.83754276E-01, 0.22288925E+01, 0.10000000E+01/ + 0.83754276d-01, 0.22288925d+01, 0.10000000d+01/ DATA (GA( 2,14,IC),IC=1,3) / & - 0.71650966E-01, 0.11216131E+01, 0.00000000E+00/ + 0.71650966d-01, 0.11216131d+01, 0.00000000d+00/ DATA (GB( 2,14,IC),IC=1,3) / & - 0.71650966E-01, 0.19441824E+01, 0.10000000E+01/ + 0.71650966d-01, 0.19441824d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 212.5 ! !-- INDICES FOR PADE APPROXIMATION 1 30 38 45 DATA (GA( 3,13,IC),IC=1,3) / & - 0.80460283E-01, 0.12644396E+01, 0.00000000E+00/ + 0.80460283d-01, 0.12644396d+01, 0.00000000d+00/ DATA (GB( 3,13,IC),IC=1,3) / & - 0.80460283E-01, 0.21515593E+01, 0.10000000E+01/ + 0.80460283d-01, 0.21515593d+01, 0.10000000d+01/ DATA (GA( 3,14,IC),IC=1,3) / & - 0.68979615E-01, 0.10809473E+01, 0.00000000E+00/ + 0.68979615d-01, 0.10809473d+01, 0.00000000d+00/ DATA (GB( 3,14,IC),IC=1,3) / & - 0.68979615E-01, 0.18807257E+01, 0.10000000E+01/ + 0.68979615d-01, 0.18807257d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 225.0 ! !-- INDICES FOR PADE APPROXIMATION 1 30 38 45 DATA (GA( 4,13,IC),IC=1,3) / & - 0.77659686E-01, 0.12191543E+01, 0.00000000E+00/ + 0.77659686d-01, 0.12191543d+01, 0.00000000d+00/ DATA (GB( 4,13,IC),IC=1,3) / & - 0.77659686E-01, 0.20855896E+01, 0.10000000E+01/ + 0.77659686d-01, 0.20855896d+01, 0.10000000d+01/ DATA (GA( 4,14,IC),IC=1,3) / & - 0.66745345E-01, 0.10476396E+01, 0.00000000E+00/ + 0.66745345d-01, 0.10476396d+01, 0.00000000d+00/ DATA (GB( 4,14,IC),IC=1,3) / & - 0.66745345E-01, 0.18275618E+01, 0.10000000E+01/ + 0.66745345d-01, 0.18275618d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 237.5 ! !-- INDICES FOR PADE APPROXIMATION 1 30 38 45 DATA (GA( 5,13,IC),IC=1,3) / & - 0.75257056E-01, 0.11809511E+01, 0.00000000E+00/ + 0.75257056d-01, 0.11809511d+01, 0.00000000d+00/ DATA (GB( 5,13,IC),IC=1,3) / & - 0.75257056E-01, 0.20288489E+01, 0.10000000E+01/ + 0.75257056d-01, 0.20288489d+01, 0.10000000d+01/ DATA (GA( 5,14,IC),IC=1,3) / & - 0.64857571E-01, 0.10200373E+01, 0.00000000E+00/ + 0.64857571d-01, 0.10200373d+01, 0.00000000d+00/ DATA (GB( 5,14,IC),IC=1,3) / & - 0.64857571E-01, 0.17825910E+01, 0.10000000E+01/ + 0.64857571d-01, 0.17825910d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 250.0 ! !-- INDICES FOR PADE APPROXIMATION 1 30 38 45 DATA (GA( 6,13,IC),IC=1,3) / & - 0.73179175E-01, 0.11484154E+01, 0.00000000E+00/ + 0.73179175d-01, 0.11484154d+01, 0.00000000d+00/ DATA (GB( 6,13,IC),IC=1,3) / & - 0.73179175E-01, 0.19796791E+01, 0.10000000E+01/ + 0.73179175d-01, 0.19796791d+01, 0.10000000d+01/ DATA (GA( 6,14,IC),IC=1,3) / & - 0.63248495E-01, 0.99692726E+00, 0.00000000E+00/ + 0.63248495d-01, 0.99692726d+00, 0.00000000d+00/ DATA (GB( 6,14,IC),IC=1,3) / & - 0.63248495E-01, 0.17442308E+01, 0.10000000E+01/ + 0.63248495d-01, 0.17442308d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 262.5 ! !-- INDICES FOR PADE APPROXIMATION 1 30 38 45 DATA (GA( 7,13,IC),IC=1,3) / & - 0.71369063E-01, 0.11204723E+01, 0.00000000E+00/ + 0.71369063d-01, 0.11204723d+01, 0.00000000d+00/ DATA (GB( 7,13,IC),IC=1,3) / & - 0.71369063E-01, 0.19367778E+01, 0.10000000E+01/ + 0.71369063d-01, 0.19367778d+01, 0.10000000d+01/ DATA (GA( 7,14,IC),IC=1,3) / & - 0.61866970E-01, 0.97740923E+00, 0.00000000E+00/ + 0.61866970d-01, 0.97740923d+00, 0.00000000d+00/ DATA (GB( 7,14,IC),IC=1,3) / & - 0.61866970E-01, 0.17112809E+01, 0.10000000E+01/ + 0.61866970d-01, 0.17112809d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 275.0 ! !-- INDICES FOR PADE APPROXIMATION 1 30 38 45 DATA (GA( 8,13,IC),IC=1,3) / & - 0.69781812E-01, 0.10962918E+01, 0.00000000E+00/ + 0.69781812d-01, 0.10962918d+01, 0.00000000d+00/ DATA (GB( 8,13,IC),IC=1,3) / & - 0.69781812E-01, 0.18991112E+01, 0.10000000E+01/ + 0.69781812d-01, 0.18991112d+01, 0.10000000d+01/ DATA (GA( 8,14,IC),IC=1,3) / & - 0.60673632E-01, 0.96080188E+00, 0.00000000E+00/ + 0.60673632d-01, 0.96080188d+00, 0.00000000d+00/ DATA (GB( 8,14,IC),IC=1,3) / & - 0.60673632E-01, 0.16828137E+01, 0.10000000E+01/ + 0.60673632d-01, 0.16828137d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 287.5 ! !-- INDICES FOR PADE APPROXIMATION 1 30 38 45 DATA (GA( 9,13,IC),IC=1,3) / & - 0.68381606E-01, 0.10752229E+01, 0.00000000E+00/ + 0.68381606d-01, 0.10752229d+01, 0.00000000d+00/ DATA (GB( 9,13,IC),IC=1,3) / & - 0.68381606E-01, 0.18658501E+01, 0.10000000E+01/ + 0.68381606d-01, 0.18658501d+01, 0.10000000d+01/ DATA (GA( 9,14,IC),IC=1,3) / & - 0.59637277E-01, 0.94657562E+00, 0.00000000E+00/ + 0.59637277d-01, 0.94657562d+00, 0.00000000d+00/ DATA (GB( 9,14,IC),IC=1,3) / & - 0.59637277E-01, 0.16580908E+01, 0.10000000E+01/ + 0.59637277d-01, 0.16580908d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 300.0 ! !-- INDICES FOR PADE APPROXIMATION 1 30 38 45 DATA (GA(10,13,IC),IC=1,3) / & - 0.67139539E-01, 0.10567474E+01, 0.00000000E+00/ + 0.67139539d-01, 0.10567474d+01, 0.00000000d+00/ DATA (GB(10,13,IC),IC=1,3) / & - 0.67139539E-01, 0.18363226E+01, 0.10000000E+01/ + 0.67139539d-01, 0.18363226d+01, 0.10000000d+01/ DATA (GA(10,14,IC),IC=1,3) / & - 0.58732178E-01, 0.93430511E+00, 0.00000000E+00/ + 0.58732178d-01, 0.93430511d+00, 0.00000000d+00/ DATA (GB(10,14,IC),IC=1,3) / & - 0.58732178E-01, 0.16365014E+01, 0.10000000E+01/ + 0.58732178d-01, 0.16365014d+01, 0.10000000d+01/ ! !----- INTERVAL = 2 ----- T = 312.5 ! !-- INDICES FOR PADE APPROXIMATION 1 30 38 45 DATA (GA(11,13,IC),IC=1,3) / & - 0.66032012E-01, 0.10404465E+01, 0.00000000E+00/ + 0.66032012d-01, 0.10404465d+01, 0.00000000d+00/ DATA (GB(11,13,IC),IC=1,3) / & - 0.66032012E-01, 0.18099779E+01, 0.10000000E+01/ + 0.66032012d-01, 0.18099779d+01, 0.10000000d+01/ DATA (GA(11,14,IC),IC=1,3) / & - 0.57936092E-01, 0.92363528E+00, 0.00000000E+00/ + 0.57936092d-01, 0.92363528d+00, 0.00000000d+00/ DATA (GB(11,14,IC),IC=1,3) / & - 0.57936092E-01, 0.16175164E+01, 0.10000000E+01/ + 0.57936092d-01, 0.16175164d+01, 0.10000000d+01/ ! ! ! @@ -1113,148 +1113,148 @@ ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 1,15,IC),IC=1,3) / & - 0.13230067E+02, 0.22042132E+02, 0.00000000E+00/ + 0.13230067d+02, 0.22042132d+02, 0.00000000d+00/ DATA (GB( 1,15,IC),IC=1,3) / & - 0.13230067E+02, 0.22051750E+02, 0.10000000E+01/ + 0.13230067d+02, 0.22051750d+02, 0.10000000d+01/ DATA (GA( 1,16,IC),IC=1,3) / & - 0.13183816E+02, 0.22169501E+02, 0.00000000E+00/ + 0.13183816d+02, 0.22169501d+02, 0.00000000d+00/ DATA (GB( 1,16,IC),IC=1,3) / & - 0.13183816E+02, 0.22178972E+02, 0.10000000E+01/ + 0.13183816d+02, 0.22178972d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 200.0 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 2,15,IC),IC=1,3) / & - 0.13213564E+02, 0.22107298E+02, 0.00000000E+00/ + 0.13213564d+02, 0.22107298d+02, 0.00000000d+00/ DATA (GB( 2,15,IC),IC=1,3) / & - 0.13213564E+02, 0.22116850E+02, 0.10000000E+01/ + 0.13213564d+02, 0.22116850d+02, 0.10000000d+01/ DATA (GA( 2,16,IC),IC=1,3) / & - 0.13189991E+02, 0.22270075E+02, 0.00000000E+00/ + 0.13189991d+02, 0.22270075d+02, 0.00000000d+00/ DATA (GB( 2,16,IC),IC=1,3) / & - 0.13189991E+02, 0.22279484E+02, 0.10000000E+01/ + 0.13189991d+02, 0.22279484d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 212.5 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 3,15,IC),IC=1,3) / & - 0.13209140E+02, 0.22180915E+02, 0.00000000E+00/ + 0.13209140d+02, 0.22180915d+02, 0.00000000d+00/ DATA (GB( 3,15,IC),IC=1,3) / & - 0.13209140E+02, 0.22190410E+02, 0.10000000E+01/ + 0.13209140d+02, 0.22190410d+02, 0.10000000d+01/ DATA (GA( 3,16,IC),IC=1,3) / & - 0.13209485E+02, 0.22379193E+02, 0.00000000E+00/ + 0.13209485d+02, 0.22379193d+02, 0.00000000d+00/ DATA (GB( 3,16,IC),IC=1,3) / & - 0.13209485E+02, 0.22388551E+02, 0.10000000E+01/ + 0.13209485d+02, 0.22388551d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 225.0 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 4,15,IC),IC=1,3) / & - 0.13213894E+02, 0.22259478E+02, 0.00000000E+00/ + 0.13213894d+02, 0.22259478d+02, 0.00000000d+00/ DATA (GB( 4,15,IC),IC=1,3) / & - 0.13213894E+02, 0.22268925E+02, 0.10000000E+01/ + 0.13213894d+02, 0.22268925d+02, 0.10000000d+01/ DATA (GA( 4,16,IC),IC=1,3) / & - 0.13238789E+02, 0.22492992E+02, 0.00000000E+00/ + 0.13238789d+02, 0.22492992d+02, 0.00000000d+00/ DATA (GB( 4,16,IC),IC=1,3) / & - 0.13238789E+02, 0.22502309E+02, 0.10000000E+01/ + 0.13238789d+02, 0.22502309d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 237.5 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 5,15,IC),IC=1,3) / & - 0.13225963E+02, 0.22341039E+02, 0.00000000E+00/ + 0.13225963d+02, 0.22341039d+02, 0.00000000d+00/ DATA (GB( 5,15,IC),IC=1,3) / & - 0.13225963E+02, 0.22350445E+02, 0.10000000E+01/ + 0.13225963d+02, 0.22350445d+02, 0.10000000d+01/ DATA (GA( 5,16,IC),IC=1,3) / & - 0.13275017E+02, 0.22608508E+02, 0.00000000E+00/ + 0.13275017d+02, 0.22608508d+02, 0.00000000d+00/ DATA (GB( 5,16,IC),IC=1,3) / & - 0.13275017E+02, 0.22617792E+02, 0.10000000E+01/ + 0.13275017d+02, 0.22617792d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 250.0 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 6,15,IC),IC=1,3) / & - 0.13243806E+02, 0.22424247E+02, 0.00000000E+00/ + 0.13243806d+02, 0.22424247d+02, 0.00000000d+00/ DATA (GB( 6,15,IC),IC=1,3) / & - 0.13243806E+02, 0.22433617E+02, 0.10000000E+01/ + 0.13243806d+02, 0.22433617d+02, 0.10000000d+01/ DATA (GA( 6,16,IC),IC=1,3) / & - 0.13316096E+02, 0.22723843E+02, 0.00000000E+00/ + 0.13316096d+02, 0.22723843d+02, 0.00000000d+00/ DATA (GB( 6,16,IC),IC=1,3) / & - 0.13316096E+02, 0.22733099E+02, 0.10000000E+01/ + 0.13316096d+02, 0.22733099d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 262.5 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 7,15,IC),IC=1,3) / & - 0.13266104E+02, 0.22508089E+02, 0.00000000E+00/ + 0.13266104d+02, 0.22508089d+02, 0.00000000d+00/ DATA (GB( 7,15,IC),IC=1,3) / & - 0.13266104E+02, 0.22517429E+02, 0.10000000E+01/ + 0.13266104d+02, 0.22517429d+02, 0.10000000d+01/ DATA (GA( 7,16,IC),IC=1,3) / & - 0.13360555E+02, 0.22837837E+02, 0.00000000E+00/ + 0.13360555d+02, 0.22837837d+02, 0.00000000d+00/ DATA (GB( 7,16,IC),IC=1,3) / & - 0.13360555E+02, 0.22847071E+02, 0.10000000E+01/ + 0.13360555d+02, 0.22847071d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 275.0 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 8,15,IC),IC=1,3) / & - 0.13291782E+02, 0.22591771E+02, 0.00000000E+00/ + 0.13291782d+02, 0.22591771d+02, 0.00000000d+00/ DATA (GB( 8,15,IC),IC=1,3) / & - 0.13291782E+02, 0.22601086E+02, 0.10000000E+01/ + 0.13291782d+02, 0.22601086d+02, 0.10000000d+01/ DATA (GA( 8,16,IC),IC=1,3) / & - 0.13407324E+02, 0.22949751E+02, 0.00000000E+00/ + 0.13407324d+02, 0.22949751d+02, 0.00000000d+00/ DATA (GB( 8,16,IC),IC=1,3) / & - 0.13407324E+02, 0.22958967E+02, 0.10000000E+01/ + 0.13407324d+02, 0.22958967d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 287.5 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA( 9,15,IC),IC=1,3) / & - 0.13319961E+02, 0.22674661E+02, 0.00000000E+00/ + 0.13319961d+02, 0.22674661d+02, 0.00000000d+00/ DATA (GB( 9,15,IC),IC=1,3) / & - 0.13319961E+02, 0.22683956E+02, 0.10000000E+01/ + 0.13319961d+02, 0.22683956d+02, 0.10000000d+01/ DATA (GA( 9,16,IC),IC=1,3) / & - 0.13455544E+02, 0.23059032E+02, 0.00000000E+00/ + 0.13455544d+02, 0.23059032d+02, 0.00000000d+00/ DATA (GB( 9,16,IC),IC=1,3) / & - 0.13455544E+02, 0.23068234E+02, 0.10000000E+01/ + 0.13455544d+02, 0.23068234d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 300.0 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA(10,15,IC),IC=1,3) / & - 0.13349927E+02, 0.22756246E+02, 0.00000000E+00/ + 0.13349927d+02, 0.22756246d+02, 0.00000000d+00/ DATA (GB(10,15,IC),IC=1,3) / & - 0.13349927E+02, 0.22765522E+02, 0.10000000E+01/ + 0.13349927d+02, 0.22765522d+02, 0.10000000d+01/ DATA (GA(10,16,IC),IC=1,3) / & - 0.13504450E+02, 0.23165146E+02, 0.00000000E+00/ + 0.13504450d+02, 0.23165146d+02, 0.00000000d+00/ DATA (GB(10,16,IC),IC=1,3) / & - 0.13504450E+02, 0.23174336E+02, 0.10000000E+01/ + 0.13504450d+02, 0.23174336d+02, 0.10000000d+01/ ! !----- INTERVAL = 4 ----- T = 312.5 ! !-- INDICES FOR PADE APPROXIMATION 1 15 29 45 DATA (GA(11,15,IC),IC=1,3) / & - 0.13381108E+02, 0.22836093E+02, 0.00000000E+00/ + 0.13381108d+02, 0.22836093d+02, 0.00000000d+00/ DATA (GB(11,15,IC),IC=1,3) / & - 0.13381108E+02, 0.22845354E+02, 0.10000000E+01/ + 0.13381108d+02, 0.22845354d+02, 0.10000000d+01/ DATA (GA(11,16,IC),IC=1,3) / & - 0.13553282E+02, 0.23267456E+02, 0.00000000E+00/ + 0.13553282d+02, 0.23267456d+02, 0.00000000d+00/ DATA (GB(11,16,IC),IC=1,3) / & - 0.13553282E+02, 0.23276638E+02, 0.10000000E+01/ + 0.13553282d+02, 0.23276638d+02, 0.10000000d+01/ ! ------------------------------------------------------------------ DATA (( XP( J,K),J=1,6), K=1,6) / & - 0.46430621E+02, 0.12928299E+03, 0.20732648E+03, & - 0.31398411E+03, 0.18373177E+03,-0.11412303E+03, & - 0.73604774E+02, 0.27887914E+03, 0.27076947E+03, & - -0.57322111E+02,-0.64742459E+02, 0.87238280E+02, & - 0.37050866E+02, 0.20498759E+03, 0.37558029E+03, & - 0.17401171E+03,-0.13350302E+03,-0.37651795E+02, & - 0.14930141E+02, 0.89161160E+02, 0.17793062E+03, & - 0.93433860E+02,-0.70646020E+02,-0.26373150E+02, & - 0.40386780E+02, 0.10855270E+03, 0.50755010E+02, & - -0.31496190E+02, 0.12791300E+00, 0.18017770E+01, & - 0.90811926E+01, 0.75073923E+02, 0.24654438E+03, & - 0.39332612E+03, 0.29385281E+03, 0.89107921E+02 / + 0.46430621d+02, 0.12928299d+03, 0.20732648d+03, & + 0.31398411d+03, 0.18373177d+03,-0.11412303d+03, & + 0.73604774d+02, 0.27887914d+03, 0.27076947d+03, & + -0.57322111d+02,-0.64742459d+02, 0.87238280d+02, & + 0.37050866d+02, 0.20498759d+03, 0.37558029d+03, & + 0.17401171d+03,-0.13350302d+03,-0.37651795d+02, & + 0.14930141d+02, 0.89161160d+02, 0.17793062d+03, & + 0.93433860d+02,-0.70646020d+02,-0.26373150d+02, & + 0.40386780d+02, 0.10855270d+03, 0.50755010d+02, & + -0.31496190d+02, 0.12791300d+00, 0.18017770d+01, & + 0.90811926d+01, 0.75073923d+02, 0.24654438d+03, & + 0.39332612d+03, 0.29385281d+03, 0.89107921d+02 / ! ! !* 1.0 PLANCK FUNCTIONS AND GRADIENTS