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

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

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

优秀资料，感谢！

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

准确地说是，1000个数据点的时候可以， =huV(THU  
2000个就不行了，大于2000的更不行 u%)gnj_  
不明白到底是什么原因

仔细比较了一下，楼主的数据格式： ][MtG  
33.495    -0.3126 cZ?QI6|[  
33.500    -0.2890 fj5g\m  
33.505    -0.1633 J @"#  
33.510    -0.1043 p1Zb&:+  
33.515    -0.0415 ^}d]O(  
33.520    -0.0533 e}e8WR=B  
33.525    -0.1751 8I#ir4z#<  
33.530    -0.1397 'cXdc  
33.535    -0.0179 yS\&2"o  
Y7VO:o  
我的数据格式： zzQWHg]/  
16.000000 -0.003220 PX 8UVA  
16.004999 -0.041800 !SQcV'  
16.010000 -0.076500 @%R<3!3v  
16.014999 -0.123000 xLz=)k[''  
16.020000 -0.119000 `um,S  
16.025000 -0.111000 ~y!'\d>q<  
16.030001 -0.064900 \j>7x  
16.035000 -0.014800 ZYwcB]xEz  
16.040001  0.016100 +tqErh?Al  
16.045000  0.046900 u#E'k KGO  
16.049999  0.035300 H
,!xTy"Wh  
16.055000  0.016100 *Y m?gCig  
16.059999  0.008350 "#j}F u_!  
16.065001  0.008350 d,"LZ>hNY*  
16.070000  0.035300 az(<<2=  
16.075001  0.058500 smQ^(S^  
16.080000  0.054600 $RaN@& Wm  
16.084999  0.031500 jmM|on!  
16.090000 -0.014800 O<gfZ>  
16.094999 -0.068800 I0)`tQ+  
16.100000 -0.107000 W_\zx<m  
16.105000 -0.127000 V)`2Kw  
16.110001 -0.130000 hArY$T&MB  
16.115000 -0.115000 N4!`iS Y  
16.120001 -0.084200 |W">&Rb<t#  
NI >%v  
用楼主的数据就是可以的，用我的就是不行 |^pev2g  
看来就是我的数据格式的问题了 g{65QP  
kXMp()N8`  
我应该怎样修改才可以用？ {*ak>Wud  

解决了，修改了我的数据格式 'y8{,R4C  
    0.0000   -0.0032 4q$~3C[  
    0.0050   -0.0418 ^QB[;g.O  
    0.0100   -0.0765 aV3:{oL  
    0.0150   -0.1227 }'X=&3m  
    0.0200   -0.1189 \oQ]=dDCd%  
    0.0250   -0.1112 ie}OZM  
    0.0300   -0.0649 ^URCnJ67Se  
    0.0350   -0.0148 I5$P9UE+^9  
(!os&/",  
数组维数若不够，调大 (B7G'h.?  

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

呵呵  我正在学习中

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

太好了！谢谢楼主！

好东西，下载