subroutine read_int (x)
  use m_parameters

  implicit none

  integer :: x
  READ(itape,*) cdum,x
  WRITE(otape,*) cdum,x

end subroutine read_int

subroutine read_real (x)
  use m_parameters

  implicit none

  real :: x
  READ(itape,*) cdum,x
  WRITE(otape,*) cdum,x

end subroutine read_real

subroutine read_string (x)
  use m_parameters

  implicit none

  character(len=*) :: x
  READ(itape,*) cdum,x
  WRITE(otape,*) cdum,x

end subroutine read_string