📄 gomspheremain_f.htm
字号:
& 1.30500E-01, 1.36303, 1.72000E-01,
& 1.31900E-01, 1.34144, 1.80000E-01,
& 1.33300E-01, 1.32377, 1.94000E-01,
& 1.34800E-01, 1.30605, 2.13000E-01,
& 1.36200E-01, 1.29054, 2.43000E-01,
& 1.37000E-01, 1.28890, 2.71000E-01 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 51, 60 ) /
& 1.37800E-01, 1.28931, 2.89000E-01,
& 1.38700E-01, 1.30190, 3.34000E-01,
& 1.39300E-01, 1.32025, 3.44000E-01,
& 1.40900E-01, 1.36302, 3.82000E-01,
& 1.42500E-01, 1.41872, 4.01000E-01,
& 1.43500E-01, 1.45834, 4.06500E-01,
& 1.44200E-01, 1.49028, 4.05000E-01,
& 1.45000E-01, 1.52128, 3.89000E-01,
& 1.45900E-01, 1.55376, 3.77000E-01,
& 1.46800E-01, 1.57782, 3.45000E-01 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 61, 70 ) /
& 1.47600E-01, 1.59636, 3.32000E-01,
& 1.48000E-01, 1.60652, 3.15000E-01,
& 1.48500E-01, 1.61172, 2.98000E-01,
& 1.49400E-01, 1.61919, 2.74000E-01,
& 1.51200E-01, 1.62522, 2.28000E-01,
& 1.53100E-01, 1.63404, 1.98000E-01,
& 1.54000E-01, 1.63689, 1.72000E-01,
& 1.55000E-01, 1.63833, 1.56000E-01,
& 1.56900E-01, 1.63720, 1.10000E-01,
& 1.58000E-01, 1.63233, 8.30000E-02 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 71, 80 ) /
& 1.58900E-01, 1.62222, 5.80000E-02,
& 1.61000E-01, 1.58270, 2.20000E-02,
& 1.62700E-01, 1.55360, 1.00000E-02,
& 1.65200E-01, 1.52040, 3.00000E-03,
& 1.67500E-01, 1.49840, 1.00000E-03,
& 1.70000E-01, 1.48010, 3.00000E-04,
& 1.72300E-01, 1.46710, 1.00000E-04,
& 1.74800E-01, 1.45510, 3.00000E-05,
& 1.77100E-01, 1.44580, 1.00000E-05,
& 1.79600E-01, 1.43700, 3.00000E-06 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 81, 90 ) /
& 1.81000E-01, 1.43250, 1.56700E-06,
& 1.82000E-01, 1.42950, 9.32500E-07,
& 1.83000E-01, 1.42680, 5.39700E-07,
& 1.84000E-01, 1.42410, 3.12200E-07,
& 1.85000E-01, 1.42140, 1.72500E-07,
& 1.88000E-01, 1.41430, 1.00000E-07,
& 1.90000E-01, 1.41010, 8.20000E-08,
& 1.95000E-01, 1.40070, 5.10000E-08,
& 2.00000E-01, 1.39360, 3.81000E-08,
& 2.05000E-01, 1.38670, 3.05000E-08 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 91, 100 ) /
& 2.10000E-01, 1.38000, 2.51000E-08,
& 2.15000E-01, 1.37610, 2.18000E-08,
& 2.20000E-01, 1.37230, 1.98000E-08,
& 2.25000E-01, 1.36850, 1.78000E-08,
& 2.30000E-01, 1.36480, 1.62000E-08,
& 2.35000E-01, 1.36120, 1.50000E-08,
& 2.40000E-01, 1.35770, 1.43000E-08,
& 2.45000E-01, 1.35420, 1.37000E-08,
& 2.50000E-01, 1.35080, 1.33000E-08,
& 2.60000E-01, 1.34720, 1.32000E-08 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 101, 110 ) /
& 2.70000E-01, 1.34370, 1.30000E-08,
& 2.80000E-01, 1.34030, 1.26000E-08,
& 2.90000E-01, 1.33710, 1.18000E-08,
& 3.00000E-01, 1.33390, 1.10000E-08,
& 3.10000E-01, 1.33200, 9.28000E-09,
& 3.20000E-01, 1.33020, 8.25000E-09,
& 3.30000E-01, 1.32840, 7.65000E-09,
& 3.40000E-01, 1.32660, 7.00000E-09,
& 3.50000E-01, 1.32490, 6.15000E-09,
& 3.60000E-01, 1.32380, 5.10000E-09 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 111, 120 ) /
& 3.70000E-01, 1.32260, 4.13000E-09,
& 3.80000E-01, 1.32150, 3.43000E-09,
& 3.90000E-01, 1.32040, 3.12000E-09,
& 4.00000E-01, 1.31940, 2.82000E-09,
& 4.10000E-01, 1.31850, 2.51000E-09,
& 4.20000E-01, 1.31775, 2.26000E-09,
& 4.30000E-01, 1.31702, 2.08000E-09,
& 4.40000E-01, 1.31633, 1.91000E-09,
& 4.50000E-01, 1.31569, 1.54000E-09,
& 4.60000E-01, 1.31509, 1.53000E-09 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 121, 130 ) /
& 4.70000E-01, 1.31452, 1.55000E-09,
& 4.80000E-01, 1.31399, 1.64000E-09,
& 4.90000E-01, 1.31349, 1.78000E-09,
& 5.00000E-01, 1.31302, 1.91000E-09,
& 5.10000E-01, 1.31257, 2.14000E-09,
& 5.20000E-01, 1.31215, 2.26000E-09,
& 5.30000E-01, 1.31175, 2.54000E-09,
& 5.40000E-01, 1.31136, 2.93000E-09,
& 5.50000E-01, 1.31099, 3.11000E-09,
& 5.60000E-01, 1.31064, 3.29000E-09 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 131, 140 ) /
& 5.70000E-01, 1.31031, 3.52000E-09,
& 5.80000E-01, 1.30999, 4.04000E-09,
& 5.90000E-01, 1.30968, 4.88000E-09,
& 6.00000E-01, 1.30938, 5.73000E-09,
& 6.10000E-01, 1.30909, 6.89000E-09,
& 6.20000E-01, 1.30882, 8.58000E-09,
& 6.30000E-01, 1.30855, 1.04000E-08,
& 6.40000E-01, 1.30829, 1.22000E-08,
& 6.50000E-01, 1.30804, 1.43000E-08,
& 6.60000E-01, 1.30780, 1.66000E-08 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 141, 150 ) /
& 6.70000E-01, 1.30756, 1.89000E-08,
& 6.80000E-01, 1.30733, 2.09000E-08,
& 6.90000E-01, 1.30710, 2.40000E-08,
& 7.00000E-01, 1.30688, 2.90000E-08,
& 7.10000E-01, 1.30667, 3.44000E-08,
& 7.20000E-01, 1.30646, 4.03000E-08,
& 7.30000E-01, 1.30625, 4.30000E-08,
& 7.40000E-01, 1.30605, 4.92000E-08,
& 7.50000E-01, 1.30585, 5.87000E-08,
& 7.60000E-01, 1.30566, 7.08000E-08 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 151, 160 ) /
& 7.70000E-01, 1.30547, 8.58000E-08,
& 7.80000E-01, 1.30528, 1.02000E-07,
& 7.90000E-01, 1.30509, 1.18000E-07,
& 8.00000E-01, 1.30491, 1.34000E-07,
& 8.10000E-01, 1.30473, 1.40000E-07,
& 8.20000E-01, 1.30455, 1.43000E-07,
& 8.30000E-01, 1.30437, 1.45000E-07,
& 8.40000E-01, 1.30419, 1.51000E-07,
& 8.50000E-01, 1.30402, 1.83000E-07,
& 8.60000E-01, 1.30385, 2.15000E-07 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 161, 170 ) /
& 8.70000E-01, 1.30367, 2.65000E-07,
& 8.80000E-01, 1.30350, 3.35000E-07,
& 8.90000E-01, 1.30333, 3.92000E-07,
& 9.00000E-01, 1.30316, 4.20000E-07,
& 9.10000E-01, 1.30299, 4.44000E-07,
& 9.20000E-01, 1.30283, 4.74000E-07,
& 9.30000E-01, 1.30266, 5.11000E-07,
& 9.40000E-01, 1.30249, 5.53000E-07,
& 9.50000E-01, 1.30232, 6.02000E-07,
& 9.60000E-01, 1.30216, 7.55000E-07 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 171, 180 ) /
& 9.70000E-01, 1.30199, 9.26000E-07,
& 9.80000E-01, 1.30182, 1.12000E-06,
& 9.90000E-01, 1.30166, 1.33000E-06,
& 1.00000, 1.30149, 1.62000E-06,
& 1.01000, 1.30132, 2.00000E-06,
& 1.02000, 1.30116, 2.25000E-06,
& 1.03000, 1.30099, 2.33000E-06,
& 1.04000, 1.30082, 2.33000E-06,
& 1.05000, 1.30065, 2.17000E-06,
& 1.06000, 1.30048, 1.96000E-06 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 181, 190 ) /
& 1.07000, 1.30031, 1.81000E-06,
& 1.08000, 1.30014, 1.74000E-06,
& 1.09000, 1.29997, 1.73000E-06,
& 1.10000, 1.29979, 1.70000E-06,
& 1.11000, 1.29962, 1.76000E-06,
& 1.12000, 1.29945, 1.82000E-06,
& 1.13000, 1.29927, 2.04000E-06,
& 1.14000, 1.29909, 2.25000E-06,
& 1.15000, 1.29891, 2.29000E-06,
& 1.16000, 1.29873, 3.04000E-06 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 191, 200 ) /
& 1.17000, 1.29855, 3.84000E-06,
& 1.18000, 1.29837, 4.77000E-06,
& 1.19000, 1.29818, 5.76000E-06,
& 1.20000, 1.29800, 6.71000E-06,
& 1.21000, 1.29781, 8.66000E-06,
& 1.22000, 1.29762, 1.02000E-05,
& 1.23000, 1.29743, 1.13000E-05,
& 1.24000, 1.29724, 1.22000E-05,
& 1.25000, 1.29705, 1.29000E-05,
& 1.26000, 1.29686, 1.32000E-05 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 201, 210 ) /
& 1.27000, 1.29666, 1.35000E-05,
& 1.28000, 1.29646, 1.33000E-05,
& 1.29000, 1.29626, 1.32000E-05,
& 1.30000, 1.29605, 1.32000E-05,
& 1.31000, 1.29584, 1.31000E-05,
& 1.32000, 1.29563, 1.32000E-05,
& 1.33000, 1.29542, 1.32000E-05,
& 1.34000, 1.29521, 1.34000E-05,
& 1.35000, 1.29499, 1.39000E-05,
& 1.36000, 1.29476, 1.42000E-05 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 211, 220 ) /
& 1.37000, 1.29453, 1.48000E-05,
& 1.38000, 1.29430, 1.58000E-05,
& 1.39000, 1.29406, 1.74000E-05,
& 1.40000, 1.29381, 1.98000E-05,
& 1.41000, 1.29355, 2.50000E-05,
& 1.42000, 1.29327, 5.40000E-05,
& 1.43000, 1.29299, 9.00000E-05,
& 1.44000, 1.29272, 1.30000E-04,
& 1.44510, 1.29260, 1.60000E-04,
& 1.44930, 1.29250, 1.89000E-04 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 221, 230 ) /
& 1.45350, 1.29240, 2.20000E-04,
& 1.45770, 1.29230, 2.58000E-04,
& 1.46200, 1.29230, 2.99000E-04,
& 1.46630, 1.29220, 3.42000E-04,
& 1.47060, 1.29210, 3.86000E-04,
& 1.47490, 1.29200, 4.33000E-04,
& 1.47930, 1.29190, 4.71000E-04,
& 1.48370, 1.29180, 5.03000E-04,
& 1.48810, 1.29180, 5.27000E-04,
& 1.49250, 1.29170, 5.34000E-04 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 231, 240 ) /
& 1.49700, 1.29160, 5.38000E-04,
& 1.50150, 1.29160, 5.33000E-04,
& 1.50600, 1.29150, 5.27000E-04,
& 1.51060, 1.29140, 5.17000E-04,
& 1.51520, 1.29130, 5.09000E-04,
& 1.51980, 1.29120, 4.98000E-04,
& 1.52440, 1.29110, 4.87000E-04,
& 1.52910, 1.29100, 4.75000E-04,
& 1.53370, 1.29090, 4.62000E-04,
& 1.53850, 1.29080, 4.51000E-04 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 241, 250 ) /
& 1.54320, 1.29070, 4.37000E-04,
& 1.54800, 1.29060, 4.25000E-04,
& 1.55280, 1.29050, 4.08000E-04,
& 1.55760, 1.29040, 3.92000E-04,
& 1.56250, 1.29030, 3.75000E-04,
& 1.56740, 1.29020, 3.58000E-04,
& 1.57230, 1.29000, 3.42000E-04,
& 1.57730, 1.28990, 3.24000E-04,
& 1.58230, 1.28970, 3.11000E-04,
& 1.58730, 1.28960, 2.97000E-04 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 251, 260 ) /
& 1.59240, 1.28950, 2.84000E-04,
& 1.59740, 1.28930, 2.74000E-04,
& 1.60260, 1.28920, 2.66000E-04,
& 1.60770, 1.28900, 2.59000E-04,
& 1.61290, 1.28890, 2.53000E-04,
& 1.61810, 1.28880, 2.49000E-04,
& 1.62340, 1.28860, 2.47000E-04,
& 1.62870, 1.28840, 2.44000E-04,
& 1.63400, 1.28830, 2.40000E-04,
& 1.63930, 1.28810, 2.35000E-04 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 261, 270 ) /
& 1.64470, 1.28800, 2.29000E-04,
& 1.65020, 1.28780, 2.23000E-04,
& 1.65560, 1.28760, 2.16000E-04,
& 1.66110, 1.28750, 2.11000E-04,
& 1.66670, 1.28730, 2.05000E-04,
& 1.67220, 1.28710, 1.97000E-04,
& 1.67790, 1.28700, 1.92000E-04,
& 1.68350, 1.28680, 1.87000E-04,
& 1.68920, 1.28660, 1.82000E-04,
& 1.69490, 1.28640, 1.78000E-04 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 271, 280 ) /
& 1.70070, 1.28620, 1.72000E-04,
& 1.70650, 1.28600, 1.67000E-04,
& 1.71230, 1.28580, 1.63000E-04,
& 1.71820, 1.28560, 1.59000E-04,
& 1.72410, 1.28540, 1.54000E-04,
& 1.73010, 1.28520, 1.52000E-04,
& 1.73610, 1.28500, 1.49000E-04,
& 1.74220, 1.28470, 1.48000E-04,
& 1.74830, 1.28450, 1.45000E-04,
& 1.75440, 1.28430, 1.42000E-04 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 281, 290 ) /
& 1.76060, 1.28410, 1.40000E-04,
& 1.76680, 1.28380, 1.39000E-04,
& 1.77300, 1.28360, 1.38000E-04,
& 1.77940, 1.28340, 1.37000E-04,
& 1.78570, 1.28310, 1.35000E-04,
& 1.79210, 1.28290, 1.33000E-04,
& 1.79860, 1.28260, 1.31000E-04,
& 1.80510, 1.28240, 1.30000E-04,
& 1.81160, 1.28210, 1.28000E-04,
& 1.81820, 1.28190, 1.26000E-04 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 291, 300 ) /
& 1.82480, 1.28160, 1.25000E-04,
& 1.83150, 1.28130, 1.23000E-04,
& 1.83820, 1.28100, 1.23000E-04,
& 1.84500, 1.28070, 1.26000E-04,
& 1.85190, 1.28040, 1.26000E-04,
& 1.85870, 1.28010, 1.33000E-04,
& 1.86570, 1.27970, 1.42000E-04,
& 1.87270, 1.27940, 1.56000E-04,
& 1.87970, 1.27900, 1.87000E-04,
& 1.88680, 1.27870, 2.33000E-04 /
DATA ( WL( I ), TABRE( I ), TABIM( I ) , I = 301, 310 ) /
& 1.89390, 1.27830, 2.98000E-04,
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -