[输入输出] 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

      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