User defined variables

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.



Hans-Joachim Drescher 2006/10/17