|
百事可乐 发表于 2015-8-18 21:24
[mw_shl_code=fortran,true]Program www_fcode_cn
Implicit None
Integer :: i , k , ierr , N , GetFi ...
Open(14,File="xyzn.txt")
Open(13,File="gp_pos_new.txt")
call GetFileN( 13 )
write(14,'(1E11.4E2,2E12.4E3)')xyzn
End Program Data_Processing
运行完了,xyzn.txt还是全部为0,不知道咋回事,下午弄的也全部是0,用你这个方法还都是0 |
|