61 character(len=80)::buffer
62 character dlfile*80, templog*80, logfile*80
64 parameter(period =
'.')
70 open (unit=4,
file=inpfile(istart:iend),
71 & err=999, status=
'old')
73 base_filename(1:iend-istart+1) = inpfile(istart:iend)
77 call
strip(inpfile, i_1st, i_last)
81 call
strip_name(inpfile(i_1st:i_last),templog,lentmp)
82 logfile = templog(1:lentmp)//
'.log'
83 open (unit= 9,
file=logfile, status=
'UNKNOWN')
87 scr_parmfile=
'scrtmpfl'
95 &
' ### Unable to open the input file, exection halted.'
96 call writebuffer(buffer)
subroutine strip_name(text, name, start)
subroutine get_env_var(inpfile, clen)
subroutine strip(text, start, end)
c This is a Fortran header file