32 lines
460 B
Fortran
32 lines
460 B
Fortran
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
|