Source module last modified on Sat, 26 Mar 2005, 12:28;
HTML image of Fortran source automatically generated by
for2html on Mon, 23 May 2005, 21:29.
# ********* I/O common variables for RESTRAX ************
#/// NOTICE: This unit must be preceded by 'const.inc' unit
#/// where the array dimensions are defined.
integer*4 nos,silent
integer*4 sinp,sout,smes,goend
integer*4 res_nmsg
real*8 ret(40) ! numerical command arguments
character*60 hlpopt(18) ! hints to command line options
character*128 datpath,respath,cfgpath ! file paths
character*128 retstr ! string command argument
character*128 cfgname,datname,rescal_name ! file names
character*12 rescal_defname
character*128 cfgtitle,res_msg ! other strings
character*1 pathdel ! character for path delimiter (='/' on Unix)
#// PGPLOT output device, e.g. "/xserv"
character*60 devstr
integer*4 grfsave
common /graph/ devstr,grfsave
#// Command arguments
common /chrt/retstr,ret,nos
#// Input/output modes
common /iomodes/ silent
common /stdio/ sinp,sout,smes,goend
#// Common variables for Restrax command interpreter
#// _MSG, NMSG .. message string and message ID number
common /restrax_cmd/ res_msg,res_nmsg,hlpopt
#// DATPATH ... Path to data files
#// RESPATH ... Path to RESTRAX files (*.cfg *.res mirror*.* ...)
#// CFGNAME ... Configuration filename
#// RESCAL_NAME ... Name of Rescal parameter file
#// RESCAL_DEFNAME ... Default name of Rescal parameter file (constant)
#// PATHDEL ... character for path delimiter (='/' on Unix)
common /fnames/ datpath,respath,cfgpath,cfgname,datname,
* rescal_name,rescal_defname,cfgtitle,pathdel