PROGRAM READ_FTN
character*20 infile,outfile,outfile1
integer pt(60000),tape(60000)
integer pbak
real x(60000)
integer y(60000)
***
PRINT*,"INPUT *.X FILE NAME:"
read(*,*) infile
PRINT*,"OUTPUT the FILE NAME for tape begin :"
read(*,*)outfile
PRINT*,"OUTPUT the FILE NAME for tape end :"
read(*,*)outfile1
open(3,file=infile,status='old')
open(4,file=outfile,status='unknown')
open(5,file=outfile1,status='unknown')
i=2
99 format(1x,i5,i5,2x,i4,14x,f6.1)
1 read(3,99,end=62)tape(i),pt(i),y(i),
+x(i)
tape(1)=tape(2)-1
pbak=tape(i)-tape(i-1)
if(pbak.eq.1)then
WRITE(4,61)tape(i),pt(i),x(i),y(i)
if(i.ne.2)then
WRITE(5,63)x(i-1),y(i-1),pt(i-1),tape(i-1)
endif
endif
i=i+1
goto 1
61 FORMAT(i5,3x,I5,3x,f6.1,3x,i6)
63 FORMAT(3x,f6.1,3x,i6,i5,3x,i5)
*********
*********
62 WRITE(5,63)x(i-1),y(i-1),pt(i-1),tape(i-1)
close(3)
close(4)
close(5)
end
