include/inout.inc

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

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