fortuan 文件读写

program maininteger i,in,flag,nreal*8 ::V(4,2000)character*88 fname        call getarg(1,fname)open(7,file=trim(fname),status='OLD')i=0flag=0do while(flag==0) i=i+1!read(7,IOSTAT=flag) n,V(1,i),V(2,i)read(7,*,IOSTAT=flag) V(:,i)enddoclose(7)in=i-1open(7,file='rf_'//trim(fname))      write(7,*)indo i=1,inwrite(7,*) V(1,i),V(2,i),0.0enddodo i=1,inwrite(7,*) V(3,i),V(4,i),0.0enddoclose(7)      print*,'Job done..'endprogram