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

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

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

优秀资料，感谢！

我拿你的程序试了一下，怎么数据点数少于1000的时候可以有结果 :?r*p>0$  
超过1000，就没有结果，这是什么怎么回事？

准确地说是，1000个数据点的时候可以， iA
QvsE  
2000个就不行了，大于2000的更不行 NFoZ4R1gy  
不明白到底是什么原因

仔细比较了一下，楼主的数据格式： Hz4uZ*7\|  
33.495    -0.3126 |,fh)vO  
33.500    -0.2890 Pw#2<>  
33.505    -0.1633 3Bd4 C]E  
33.510    -0.1043 ECdfLn*c  
33.515    -0.0415 \2eFpy(  
33.520    -0.0533 9XN~Ln@}  
33.525    -0.1751 &@'V\5G  
33.530    -0.1397 HU3Vv<lz  
33.535    -0.0179 !`h~`-]O  
k <}I<Or  
我的数据格式： cd"wNH-  
16.000000 -0.003220 `1p?*9Ssn  
16.004999 -0.041800 xucIjPi]
 
16.010000 -0.076500 Alh?0Fk3)  
16.014999 -0.123000 & 3I7]Wm  
16.020000 -0.119000 >\-3P$  
16.025000 -0.111000 }Ch[|D=Wd6  
16.030001 -0.064900 ;G$)MS'nB  
16.035000 -0.014800 "11j$E9#\n  
16.040001  0.016100 g&aT!%QvX+  
16.045000  0.046900 $pBr &,  
16.049999  0.035300 /kb$p8!C".  
16.055000  0.016100 'qlxAYw<f  
16.059999  0.008350 E#~2wqK  
16.065001  0.008350 B(EtXB9  
16.070000  0.035300 0JOju$Bl,  
16.075001  0.058500 IHfSkFz`j  
16.080000  0.054600 L3' \r  
16.084999  0.031500 /op/g]O}  
16.090000 -0.014800 D99N#36PU  
16.094999 -0.068800 ,9$>d}N  
16.100000 -0.107000 Lj-{t% }  
16.105000 -0.127000 ].c@Gm_(  
16.110001 -0.130000 [EcV\.  
16.115000 -0.115000 9/QS0  
16.120001 -0.084200 (HaU,vP  
$u-lo|  
用楼主的数据就是可以的，用我的就是不行 |<2JQ[]  
看来就是我的数据格式的问题了 z+2u-jG  
a#6,#Q"  
我应该怎样修改才可以用？ )da:&F -  

解决了，修改了我的数据格式 \Z8Y(]6*  
    0.0000   -0.0032 jBGG2[hV  
    0.0050   -0.0418 Ld'EABM  
    0.0100   -0.0765 `,Q<YT ~  
    0.0150   -0.1227 gx&\Kw6HM  
    0.0200   -0.1189 xBt4~q;#sE  
    0.0250   -0.1112 vJzxPy|  
    0.0300   -0.0649 5!2J;.&  
    0.0350   -0.0148 <(ubZ  
fa/P%9db  
数组维数若不够，调大 d"Ml^
rAn  

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

呵呵  我正在学习中

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

太好了！谢谢楼主！

好东西，下载