1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
subroutine read_unformatted_double(m, n, k, a, filename)
implicit none
integer :: m, n, k
double precision :: a(m,n,k)
character*4096 :: filename
open(10, file=trim(filename), form='unformatted')
read(10) a
close(10)
end subroutine
subroutine read_unformatted_int(m, n, k, a, filename)
implicit none
integer :: m, n, k
integer :: a(m,n,k)
character*4096 :: filename
open(10, file=trim(filename), form='unformatted')
read(10) a
close(10)
end subroutine
subroutine read_unformatted_mixed(m, n, k, a, b, filename)
implicit none
integer :: m, n, k
double precision :: a(m,n)
integer :: b(k)
character*4096 :: filename
open(10, file=trim(filename), form='unformatted')
read(10) a, b
close(10)
end subroutine
|
