call initialize
call openunits
call cinfo
+ write (iout,*) "calling read_general_data"
call read_general_data(*10)
-c write (iout,*) "read_general_data"
-c call flush(iout)
+ write (iout,*) "read_general_data"
+ call flush(iout)
+ write (iout,*) "calling molread"
call molread(*10)
-c write (iout,*) "molread"
-c call flush(iout)
-c write (iout,*) "MAIN: constr_dist",constr_dist
+ write (iout,*) "molread"
+ call flush(iout)
+ write (iout,*) "MAIN: constr_dist",constr_dist
if (constr_dist.gt.0) call read_dist_constr
#ifdef MPI
c write (iout,*) "Calling proc_groups"
c call flush(iout)
#endif
do ipar=1,nParmSet
-c write (iout,*) "Calling parmread",ipar
+ write (iout,*) "Calling parmread",ipar
call parmread(ipar,*10)
if (.not.separate_parset) then
call store_parm(ipar)
-c write (iout,*) "Finished storing parameters",ipar
+ write (iout,*) "Finished storing parameters",ipar
else if (ipar.eq.myparm) then
call store_parm(1)
-c write (iout,*) "Finished storing parameters",ipar
+ write (iout,*) "Finished storing parameters",ipar
endif
-c call flush(iout)
+ call flush(iout)
enddo
call read_efree(*10)
if (adaptive) call PMFread