21 lines
296 B
Fortran
21 lines
296 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
|