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

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

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

优秀资料，感谢！

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

准确地说是，1000个数据点的时候可以， ]fD} ^s3G  
2000个就不行了，大于2000的更不行 k'"%.7$U!  
不明白到底是什么原因

仔细比较了一下，楼主的数据格式： #u + v_  
33.495    -0.3126 @<Yy{~L|  
33.500    -0.2890 ^BL"wk  
33.505    -0.1633 n}77##+R&C  
33.510    -0.1043 _7)n(1h[3b  
33.515    -0.0415 TuYCR>P[  
33.520    -0.0533 S[T8T|_  
33.525    -0.1751 -)/$M(Pu"  
33.530    -0.1397 %!L9)(}"  
33.535    -0.0179 }#E[vRf  
8Bg;Kh6B  
我的数据格式： *~H Sy8s  
16.000000 -0.003220 jZ3fKyp#
 
16.004999 -0.041800 RAK-UN  
16.010000 -0.076500 O,A{3DAe0  
16.014999 -0.123000 lu6(C  
16.020000 -0.119000 zkdetrR  
16.025000 -0.111000 ^<-+
@v*  
16.030001 -0.064900 {GcO3G#FZ  
16.035000 -0.014800 XF_pN[}  
16.040001  0.016100 >6pf$0  
16.045000  0.046900 T${Q.zHY[!  
16.049999  0.035300 !7&5` q7  
16.055000  0.016100 3 SGDy]  
16.059999  0.008350 ED& `_h7?  
16.065001  0.008350 .k \@zQ|Ta  
16.070000  0.035300 mo#04;VF  
16.075001  0.058500 ]}(H0?OQR  
16.080000  0.054600 (NnH:J`  
16.084999  0.031500 U!Z,xx[]  
16.090000 -0.014800 SG4%}wn%  
16.094999 -0.068800 SN!?}<|U  
16.100000 -0.107000 ?8Cq{  
16.105000 -0.127000 x~j`@k,;  
16.110001 -0.130000 A6iq[b]  
16.115000 -0.115000 w(TJ*::T  
16.120001 -0.084200 @[
i4^  
d6sye^P  
用楼主的数据就是可以的，用我的就是不行 A7hVHxNJ-  
看来就是我的数据格式的问题了 R#8L\1l  
 ?_"ik[w}  
我应该怎样修改才可以用？ bB;5s`-  

解决了，修改了我的数据格式 M$8^9
1%4B  
    0.0000   -0.0032 tWa)_y  
    0.0050   -0.0418 M8b;d}XL  
    0.0100   -0.0765 FA3~|Zg  
    0.0150   -0.1227 y(pks$  
    0.0200   -0.1189 s)Cjc.Qs  
    0.0250   -0.1112 `&sH-d4v  
    0.0300   -0.0649
1.9}_4!  
    0.0350   -0.0148  *m,k(/>  
YLE!m?  
数组维数若不够，调大 Zt.|oYH$  

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

呵呵  我正在学习中

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

太好了！谢谢楼主！

好东西，下载