自编反应谱计算Fortran程序！ [复制链接]

谢谢了，谢谢楼主的分享！

感谢楼主分享，下载学习~~

优秀资料，感谢！

我拿你的程序试了一下，怎么数据点数少于1000的时候可以有结果 ^~kFC/tQ  
超过1000，就没有结果，这是什么怎么回事？

准确地说是，1000个数据点的时候可以， RPqn#B  
2000个就不行了，大于2000的更不行 ;."{0gq  
不明白到底是什么原因

仔细比较了一下，楼主的数据格式： 9CSz<[  
33.495    -0.3126 ^g"6p#S=n  
33.500    -0.2890 ,(b~L<zN&  
33.505    -0.1633 "@bk$o=  
33.510    -0.1043 ApB'O;5  
33.515    -0.0415 ,tc]E45  
33.520    -0.0533 ({62GWnn_  
33.525    -0.1751 T>?1+mruM  
33.530    -0.1397 SQCuY<mD  
33.535    -0.0179 :7]R2J
P  
PU\q.y0R  
我的数据格式： R5~m"bE  
16.000000 -0.003220 U}5KAi 9Z  
16.004999 -0.041800 ;L{y3CWT  
16.010000 -0.076500 x?$Y<=vT  
16.014999 -0.123000 :njUaMFoMA  
16.020000 -0.119000 RLr-xg$K-t  
16.025000 -0.111000 G4]``  
16.030001 -0.064900 >@\-m  
16.035000 -0.014800 Q 7?4GxMj  
16.040001  0.016100 +DDvM;31w  
16.045000  0.046900 !T1i_  
16.049999  0.035300 B9 {DO  
16.055000  0.016100 QpZhxp  
16.059999  0.008350 A~t7I{`  
16.065001  0.008350 4iPg_+  
16.070000  0.035300 ~~ w4854  
16.075001  0.058500 7m$/.\5  
16.080000  0.054600 ]5L3[A4Vu  
16.084999  0.031500 8BdeqgU/_  
16.090000 -0.014800 7~fl4*  
16.094999 -0.068800 @TT[H*,  
16.100000 -0.107000 `hhG^O_  
16.105000 -0.127000 b(,[g>xH  
16.110001 -0.130000 Ku# _   
16.115000 -0.115000 a+Nd%hoe  
16.120001 -0.084200 EZFWxR/  
<>GyG-q  
用楼主的数据就是可以的，用我的就是不行 ]YKWa"  
看来就是我的数据格式的问题了 y%AJ>@/;  
U3QnWPt}>  
我应该怎样修改才可以用？ yLX\pkAt4  

解决了，修改了我的数据格式 tIw4
V^'|  
    0.0000   -0.0032 cR} =3|t  
    0.0050   -0.0418 m9S5;kB]  
    0.0100   -0.0765 |@F<ajlV  
    0.0150   -0.1227 :|TBsd|/x  
    0.0200   -0.1189 w4mL/j  
    0.0250   -0.1112 4RNzh``u  
    0.0300   -0.0649 d+;~x
*  
    0.0350   -0.0148 J)_42Z  
,\b5M`<c  
数组维数若不够，调大 %qhaVM$]  

谢谢啦~~~~~~~~~~~~

呵呵  我正在学习中

感谢楼主的无私奉献，大家一起进步

太好了！谢谢楼主！

好东西，下载