- real*8 dihang,etot,bvar,bene,rene,rvar,avedif,difmin,
- & ebmin,ebmax,ebmaxt,cutdif,dij,dihang_in
+ double precision dihang,etot,bvar,bene,rene,rvar,avedif,difmin,
+ & ebmin,ebmax,ebmaxt,cutdif,dij,dihang_in,difcut,dele,rmscut,
+ & pnccut,rmsn,pncn,brmsn,rrmsn,bpncn,rpncn,parent,dihang_in2