src/restrax_cmd.inc

Fortran project RESTRAX, source module src/restrax_cmd.inc.

Source module last modified on Wed, 13 Jul 2005, 16:20;
HTML image of Fortran source automatically generated by for2html on Mon, 29 May 2006, 15:06.


# header for RESTRAX command-line user interface
      integer*4 mn_main,mn_data,mn_fit,mn_plot  ! menu ID
      parameter (
     &   mn_main=1,
     &   mn_data=2,
     &   mn_fit=3,
     &   mn_plot=4)

      integer*4 imenu,lmenu,cmenu(0:7)  ! pointer, level and current menu structure
      integer*4 cmdmode,goend      ! command mode, exit indicator
      common /cmdmenu/ imenu,lmenu,cmenu,cmdmode,goend

# Command line arguments      
      real*8 ret(64)
      integer*4 nos
      character*128 retstr
      common /cmdargs/ retstr,ret,nos
      
# Dialogs argument
      real*8 dlgarg(0:64)  ! up to 1+64 numerical inputs
      integer*4 ndlgarg   ! actual number of of passed dialogs 
      character*128 dlgstr(10)  ! up to 10 strings
      common /dlgargs/ dlgstr,dlgarg,ndlgarg
# reserved positions in DLGARG:
# 0 ... required number of events for simulation