It is possible for the user to define variables whose value can be
set in the options file. The files user_var.inc and user_var.F
show how to do so. The common blocks must be defined in the file user_var.inc.
Eventually an initialization can be done via the data statement. Do
not include any other statements here.
common/cuser1/user1
data user1/0.0/
Any possible conflict with other common blocks should be found by
the compiler so usually you don't have to worry about that. The variable
will be read by the main program by including the file user_var.F,
which contains the following pattern
elseif(word.eq.'user1')then
user1=getvalue()
word is a character*80 and getvalue a double precision function. The latter takes also care of eventual units following the value. If an undefined variable appears in the options file, the program will stop immediately. By including the user defined common block in the analysis routine one can access these values.