FORTRAN写入文件请教

ahwhdj

请教：怎么修改才能一条条记录是独立的，而不是接在后面的（以前FORTRAN77是可以的，现在Compaq Visual Fortran不可以了，谢谢！

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

      nn=1
      open (7,file='jssj.txt',status='old')
120   read(7,130,end=200) nbh
130   format(i4)
      nn=nn+1
      goto 120
200   close(7)
      nbh=nbh+1
      write(*,210)nn
210   format(1x,'No:',i4,3x,'recorp by written')
      open (unit=9,file='jssj.txt',status='old',access='append',
     &form='formatted',recl=124)


      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

清香白莲

[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

ahwhdj

清香白莲 发表于 2021-1-6 15:19
[mw_shl_code=fortran,true]      Integer , parameter :: NSIZE = 124
      Inquire(File="jssj.txt",siz ...

谢谢！我试试看。

ahwhdj

********************************** bb *****************************
        if (ib(12).eq.1) then
        p(25)=q(1)
        p(29)=q(3)
        endif

        nn=1
      open (7,file='jssj.txt',status='old')
120   read(7,130,end=200) nbh
130   format(i4)
      nn=nn+1
      goto 120
200   close(7)
      nbh=nbh+1
      write(*,210)nn
210   format(1x,'No:',i4,3x,'recorp by written')


      Integer , parameter :: NSIZE = 124

      Inquire(File="jssj.txt",size=nn)

      nn=(nn/NSIZE)+1

      open (unit=9,file='jssj.txt',status='old',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
还是有问题。见下面图片。

ahwhdj

编辑时出错。

清香白莲

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

ahwhdj

清香白莲 发表于 2021-1-6 17:59
1. 建议你换个编译器。不要用CVF这种货了。见：http://fcode.cn/announce-show.php?aid=1
2. 定义语句要写 ...

WIN10可以用的IVF破解版或者免费版哪里有下载呀？能不能给个下载地址呀？谢谢！

vvt

http://pan.fcode.cn

ahwhdj

vvt 发表于 2021-1-7 10:17
http://pan.fcode.cn

装了IVF，对界面不熟悉，找不到哪个菜单里生成可执行的程序 。

ahwhdj

请教哪个菜单里生成可执行的程序