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

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

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

优秀资料，感谢！

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

准确地说是，1000个数据点的时候可以， w
qb4w7%  
2000个就不行了，大于2000的更不行 YQn<CjZ8af  
不明白到底是什么原因

仔细比较了一下，楼主的数据格式：  bDkZU  
33.495    -0.3126 K*SgEkb'l  
33.500    -0.2890 zj1~[$  (  
33.505    -0.1633 R}ki%i5|  
33.510    -0.1043 V4:/LNq_]  
33.515    -0.0415 5To@d|{  
33.520    -0.0533 ;
:P4~R  
33.525    -0.1751 Y~WdN<g  
33.530    -0.1397 m2c'r3UEu  
33.535    -0.0179 v Y0bK-  
BDB*>y7(  
我的数据格式： C#kE{Qw10r  
16.000000 -0.003220 ;=Ma+d#  
16.004999 -0.041800 ^#HaH  
16.010000 -0.076500 d:@+dS  
16.014999 -0.123000 #ES[),+|mB  
16.020000 -0.119000 <+_XGO
t0<  
16.025000 -0.111000 !6KX^j-  
16.030001 -0.064900 >R+-mP!nj  
16.035000 -0.014800 Y%XF64)6  
16.040001  0.016100 X zJ#)}f  
16.045000  0.046900 *siX:?l  
16.049999  0.035300 ABN4kM>%  
16.055000  0.016100 ~U0%}Bbh  
16.059999  0.008350 tk&AZb,sP  
16.065001  0.008350 Qt>K{ >9Cf  
16.070000  0.035300 ;xZ+1zmL0  
16.075001  0.058500 j_~KD}  
16.080000  0.054600 RbAl_xK
I  
16.084999  0.031500 2R[v*i^S  
16.090000 -0.014800 eV[{c %wN:  
16.094999 -0.068800 >}+{;d  
16.100000 -0.107000 jE\G_>  
16.105000 -0.127000 (/e
&m=~  
16.110001 -0.130000 Alxf;[s  
16.115000 -0.115000 f#0HiE!  
16.120001 -0.084200 BNfj0e5b  
 ]n!V  
用楼主的数据就是可以的，用我的就是不行 C!j3@EZ$  
看来就是我的数据格式的问题了 U?*zb  
IZ=Z=k{  
我应该怎样修改才可以用？ 3~~X,ZL  

解决了，修改了我的数据格式 *;fTiL  
    0.0000   -0.0032 x>yqEdR=o  
    0.0050   -0.0418 i#[8I-OtN/  
    0.0100   -0.0765 LwC?t3n
 
    0.0150   -0.1227 g8<ODU0[g  
    0.0200   -0.1189 r#sg5aS7O|  
    0.0250   -0.1112 o,*m,Qc  
    0.0300   -0.0649 ^kKLi  
    0.0350   -0.0148 r&{8/ 5"  
9/k2
zXY  
数组维数若不够，调大 0D(8-H  

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

呵呵  我正在学习中

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

太好了！谢谢楼主！

好东西，下载