Module work

real p

character(132) fun_name, fun_expression

character(260) Exe_Dir; integer l_exe;
character(248) Dat_Directory; integer l_Dat;

END Module work
