#endif
include "COMMON.IOUNITS"
include "COMMON.CONTROL"
+ include "COMMON.HOMOLOGY"
include "COMMON.FREE"
include "COMMON.ENERGIES"
include "COMMON.FFIELD"
& ctemper(:ilen(ctemper))//"pdb"
endif
open(ipdb,file=pdbname)
+ write (iout,*) "Before reading nlist",nlist
do i=1,nlist
read (ientout,rec=iperm(i))
& ((csingle(l,k),l=1,3),k=1,nres),