FORTRAN写入文件请教

清香白莲

[Fortran] 纯文本查看 复制代码

      Integer , parameter :: NSIZE = 124
      Inquire(File="jssj.txt",size=nn)
      nn=(nn/NSIZE)+1
      nbh=nbh+1
      write(*,210)nn
210   format(1x,'No:',i4,3x,'recorp by written')
      open (unit=9,file='jssj.txt',access='DIRECT',
     &form='formatted',recl=NSIZE)

      write(9,220,rec=nn) nbh,zsy,ma1,ma2,ma3,mh45,ma11,ma13,
     &a(26),ma23,a(25),a(29),ma15,ma16,ma67,ma68,ma36,ma37,
     &a(69),a(70),ma71,h(43),h(44),mp25,p(29),p(49),h(35),h(36),
     &mh37,md3,mf51,h(2),h(1)
220   format(i4,a8,i4,i4,i2,i4,i4,i4,
     &f4.2,i4,f4.2,f4.1,i2,i2,i4,i4,i2,i2,
     &f4.2,f4.2,i4,f4.1,f4.1,i4,f4.2,f4.2,f4.1,f4.1,
     &i4,i4,i2,f4.2,f4.1)
      close(9)
900   return
      end

清香白莲

1. 建议你换个编译器。不要用CVF这种货了。见：http://fcode.cn/announce-show.php?aid=1
2. 定义语句要写在执行语句的前面。