integer :: inp,iout,igeom,intin,ipdb,imol2,ipdbin,ithep,irotam,&
itorp,itordp,ifourier,ielep,isidep,iscpp,icbase,istat,ientin,&
ientout,izs1,isecpred,ibond,irest2,iifrag,icart,irest1,isccor,&
integer :: inp,iout,igeom,intin,ipdb,imol2,ipdbin,ithep,irotam,&
itorp,itordp,ifourier,ielep,isidep,iscpp,icbase,istat,ientin,&
ientout,izs1,isecpred,ibond,irest2,iifrag,icart,irest1,isccor,&