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

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

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

优秀资料，感谢！

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

准确地说是，1000个数据点的时候可以， w H`GzB"  
2000个就不行了，大于2000的更不行 a]8W32  
不明白到底是什么原因

仔细比较了一下，楼主的数据格式： m_;XhO  
33.495    -0.3126 Nk$|nn9#'  
33.500    -0.2890 =[TXH^.0  
33.505    -0.1633 F}B2nL&  
33.510    -0.1043 jS#YqVuN  
33.515    -0.0415 9T2y2d!X  
33.520    -0.0533 bc& 5*?  
33.525    -0.1751 x|Ms2.!  
33.530    -0.1397 W:8{}Iu<  
33.535    -0.0179 xHkxrXqeI  
zTn.#-7y  
我的数据格式： $/E{3aT@F2  
16.000000 -0.003220 VAdUd {  
16.004999 -0.041800 s`]SK^j0  
16.010000 -0.076500 g/i.b&  
16.014999 -0.123000 Ubwmn!~  
16.020000 -0.119000 {3Dm/u%=9|  
16.025000 -0.111000 w[^lxq  
16.030001 -0.064900 !xU\s'I+#  
16.035000 -0.014800 po*r14f  
16.040001  0.016100 #=F{G4d)!=  
16.045000  0.046900 ki?V eFp  
16.049999  0.035300 8SupoS  
16.055000  0.016100 !|J2o8g  
16.059999  0.008350 =ATQ2\T$m  
16.065001  0.008350 lI9|"^n7F  
16.070000  0.035300 =6qSo @  
16.075001  0.058500 ZV-Yq !|t  
16.080000  0.054600 MTbCL53!-  
16.084999  0.031500 btDTC
9O  
16.090000 -0.014800 y8v0>V0)  
16.094999 -0.068800 )~w bu2;  
16.100000 -0.107000 3)(uC+?[  
16.105000 -0.127000 )L"J?wTe  
16.110001 -0.130000 Jg.^h1>x  
16.115000 -0.115000 [E9_ZdBT  
16.120001 -0.084200 [XP\WG>s  
cNy*< Tv  
用楼主的数据就是可以的，用我的就是不行 R@Iw
mJxX  
看来就是我的数据格式的问题了 l5enlYH  
c48I-{?  
我应该怎样修改才可以用？ k/Q8:qA  

解决了，修改了我的数据格式 |Fx~M,Pzg  
    0.0000   -0.0032 j}G9+GX~,  
    0.0050   -0.0418 FaaxfcIfkw  
    0.0100   -0.0765 ~UwqQD1p
 
    0.0150   -0.1227 MJn=  
    0.0200   -0.1189 }fhGofN$e  
    0.0250   -0.1112 NMN&mJsmh  
    0.0300   -0.0649 m9ky?A,  
    0.0350   -0.0148 )<5hga][~a  
PoRP]Q*n  
数组维数若不够，调大 0/~{,  

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

呵呵  我正在学习中

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

太好了！谢谢楼主！

好东西，下载