42 parameter(new=1, old=2)
46 if (status .eq. new)
then
47 open (unit=iunit,
file=scr_parmfile,form=
'unformatted',
48 + status=
'new', iostat=ierr)
49 open (unit=iunit,
file=scr_parmfile,form=
'unformatted',
50 + status=
'replace', iostat=ierr)
51 elseif (status .eq. old)
then
52 open (unit=iunit,
file=scr_parmfile,form=
'unformatted',
53 + status=
'old',iostat=ierr)
54 read (iunit,iostat=ierr)dummy
55 read (iunit,iostat=ierr)dummy
subroutine open_outfile(iunit, status, ierr)
c This is a Fortran header file