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