30 character(LEN=100),
parameter ::
home_dir=trim(home)
character(len=150), parameter, public gmsh_dir
path to 'gmsh' directory = CHORAL_DIR/ress/gmsh
character(len=150), parameter, public gnuplot_dir
path to 'gnuplot' directory = CHORAL_DIR/ress/gmsh
character(len=100), parameter, public choral_dir
CHORAL_DIR = path to choral.
character(len=100), parameter, public home_dir
HOME_DIR = $HOME.
DEFINITION OF DIRECTORY PATHS
character(len=150), parameter, public app_dir
path to 'applications' directory = CHORAL_DIR/applications