Source module last modified on Fri, 5 May 2006, 16:54;
HTML image of Fortran source automatically generated by
for2html on Mon, 29 May 2006, 15:06.
# ********* I/O common variables for RESTRAX ************
#/// NOTICE: This unit must be preceded by 'const.inc' unit
#/// where the array dimensions are defined.
integer*4 silent,dsilent
integer*4 sinp,sout,smes
integer*4 res_nmsg
character*5 res_nam(mres)
character*60 res_hlp(mres),hlpopt(10)
character*128 datpath,respath,cfgpath
character*128 datname,cfgname,rescal_name,resname,
& excilib,excidef,res_msg
character*1 pathdel ! character for path delimiter (='/' on Unix, '\' on Windows)
real*8 res_dat(mres)
#// Input/output modes
common /iomodes/ silent,dsilent
common /stdio/ sinp,sout,smes
#// Common variables for Restrax command interpreter
#// _NAM .. command names, _HLP .. command hints
#// _DAT .. variable values (copy of RESCAL array/common)
#// _MSG, NMSG .. message string and message ID number
common /restrax_cmd/ res_nam,res_hlp,res_dat,res_msg,res_nmsg,
* hlpopt
#// DATPATH ... Path to data files
#// RESPATH ... Path to RESTRAX files (*.cfg *.res mirror*.* ...)
#// DATNAME ... Data filename
#// CFGNAME ... Configuration filename
#// RESNAME ... Results filename, Name of the EXCI parameter file
#// RESCAL_NAME ... Name of Rescal parameter file
#// PHONNAME ... file with input parameters for EXCI
#// PATHDEL ... character for path delimiter (='/' on Unix)
common /fnames/ datpath,respath,datname,cfgname,resname,
* rescal_name,pathdel,excilib,excidef,cfgpath