61 INTEGER :: npack = 0, nhere=1
62 INTEGER :: one1 = 1, two2 = 2, three3 = 3
63 LOGICAL :: pack_in_read = .false.
64 ChARACTER(len=80) :: packafilename
80 SUBROUTINE open_packafile (filename)
87 CHARACTER(len=*) :: filename
94 CALL safe_open(npack, istat, filename,
95 1
'unknown',
'unformatted')
96 IF (istat .ne. 0) stop
97 1
'safe_open iostat != 0 in open_packafile'
100 END SUBROUTINE open_packafile
102 SUBROUTINE read_packafile (filename)
109 CHARACTER(len=*) :: filename
116 CALL safe_open(npack, istat, filename,
117 1
'old',
'unformatted')
118 IF (istat .ne. 0) stop
119 1
'safe_open iostat != 0 in read_packafile'
122 END SUBROUTINE read_packafile