include/inout.inc

Fortran project SIMRES, source module include/inout.inc.

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