PROGRAM CONVERTER
      IMPLICIT NONE
      COMMON/size/x,n,m
      INTEGER x,n,m
      REAL array(100000)
      CALL Insize()
      CALL ConvertMatrix(array(1))
      CALL ConvertVector(array(1))
      PAUSE 'The conversion is complete!'
      END

      SUBROUTINE Insize()
      IMPLICIT NONE
      COMMON/size/x,n,m
      INTEGER x,n,m
      OPEN(1,FILE='size.txt',err=1)
      READ(1,*) x,n,m
      CLOSE(1)
      GOTO 2
   1  PAUSE '1Error reading file.'
      STOP
   2  CONTINUE
      END

      SUBROUTINE ConvertMatrix(Xi)
      COMMON/size/x,n,m
      INTEGER x,n,m,i,k
      REAL Xi(*)

      OPEN(2,FILE='an.txt',err=1)
      OPEN(3,FILE='an.bin',access='direct',recl=4)
      k=1
      DO i=1,n
      READ(2,*,END=2) Xi(i)
      WRITE(3,rec=k) Xi(i)
      PRINT *, Xi(i)
      k=k+1
      END DO

      k=1
      OPEN(4,FILE='ja.txt',err=1)
      OPEN(5,FILE='ja.bin',access='direct',recl=4)
      DO i=1,n
      READ(4,*,END=2) Xi(i)
      WRITE(5,rec=k) Xi(i)
      k=k+1
      END DO

      k=1
      OPEN(6,FILE='ia.txt',err=1)
      OPEN(7,FILE='ia.bin',access='direct',recl=4)
      DO i=1,m
      READ(6,*,end=2) Xi(i)
      WRITE(7,rec=k) Xi(i)
      k=k+1
      END DO

      CLOSE(2)
      CLOSE(3)
      CLOSE(4)
      CLOSE(5)
      CLOSE(6)
      CLOSE(7)
      GOTO 3
   1  PAUSE '1Error reading file.'
      STOP
   2  PAUSE '1Error:End of file.'
      STOP
   3  CONTINUE
      END

      SUBROUTINE ConvertVector(Xi)
      IMPLICIT NONE
      REAL Xi(*)
      COMMON/size/x,n,m
      INTEGER x,n,m,i,k
      k=1
      OPEN(8,FILE='vector.txt',err=1)
      OPEN(9,FILE='vector.bin',access='direct',recl=4)
      DO i=1,x
      READ(8,*,end=2) Xi(i)
      WRITE(9,rec=k) Xi(i)
      k=k+1
      END DO
      CLOSE(8)
      CLOSE(9)
      GOTO 3
   1  PAUSE '2Error reading file.'
      STOP
   2  PAUSE '2Error:End of file.'
      STOP
   3  CONTINUE
      END