& nparmset, Max_Parm
return1
endif
+<<<<<<< HEAD
+=======
+ energy_dec=index(controlcard,"ENERGY_DEC").gt.0
+>>>>>>> e183793... Added src_MD-M-newcorr (Adasko's source) and src-NEWSC of WHAM (with Momo's SCSC potentials)
call readi(controlcard,"MAXIT",maxit,5000)
call reada(controlcard,"FIMIN",fimin,1.0d-3)
call readi(controlcard,"ENSEMBLES",ensembles,0)