use names
!-----------------------------------------------------------------------------
! Max. number of energy intervals
- integer,parameter :: max_ene=49 !10
+ integer,parameter :: max_ene=50 !10
!-----------------------------------------------------------------------------
! Maximum number of terms in SC bond-stretching potential
integer,parameter :: maxbondterm=3
wturn6,wvdwpp,wliptran,wshield,lipscale,wtube, &
wbond_nucl,wang_nucl,wcorr_nucl,wcorr3_nucl,welpp,wtor_nucl,&
wtor_d_nucl,welsb,wsbloc,wvdwsb,welpsb,wvdwpp_nucl,wvdwpsb,wcatprot,&
- wcatcat,wscbase,wpepbase,wscpho,wpeppho,wdihc
+ wcatcat,wscbase,wpepbase,wscpho,wpeppho,wdihc,wcatnucl
#ifdef CLUSTER
real(kind=8) :: scalscp
#endif
real(kind=8) :: distafminit,forceAFMconst,velAFMconst
integer :: afmend,afmbeg
real(kind=8),dimension(:,:), allocatable :: catprm
+ real(kind=8),dimension(:,:,:), allocatable :: catnuclprm
+
real(kind=8),dimension(:,:), allocatable :: eps_scbase, &
sigma_scbase, &
integer,dimension(:),allocatable :: ichargecat
! integer oldion
- real(kind=8),dimension(:,:),allocatable :: alphapolcat,&
+ real(kind=8),dimension(:,:),allocatable :: alphapolcat, alphapolcat2, &
epsheadcat,sig0headcat,sigiso1cat,sigiso2cat,rborn1cat,rborn2cat,&
sigmap1cat,sigmap2cat,chis1cat,chis2cat,wquadcat,chipp1cat,chipp2cat,&
epsintabcat,debaykapcat,chi1cat,chi2cat,sigmacat, nstatecat, epscat,&
integer,dimension(:),allocatable :: newcontlistppi,newcontlistppj,&
newcontlisti,newcontlistj, newcontlistscpi,newcontlistscpj
integer :: g_listpp_start,g_listpp_end,g_listscp_start,g_listscp_end,&
- g_listscsc_start,g_listscsc_end
+ g_listscsc_start,g_listscsc_end
+!homology
+ integer :: inprint,npermut,&
+ tubelog,constr_homology,homol_nset
+ logical :: mremd_dec,out_cart,&
+ out_int,gmatout,&
+ with_dihed_constr,read2sigma,start_from_model,read_homol_frag,&
+ out_template_coord,out_template_restr,loc_qlike,adaptive
+ real(kind=8) :: aincr,waga_dist,waga_angle,waga_theta,&
+ waga_d,dist2_cut
+ real(kind=8),dimension(:),allocatable :: waga_homology
+ real(kind=8),dimension(:,:),allocatable :: odl,&
+ sigma_odl,dih,sigma_dih, sigma_odlir, xxtpl,&
+ yytpl,zztpl,thetatpl,sigma_theta,sigma_d
+ integer,dimension(:),allocatable :: ires_homo,jres_homo
+ integer,dimension(:,:),allocatable :: idomain,tabpermchain,iequiv,&
+ chain_border,chain_border1
+ integer :: lim_odl,lim_dih,link_start_homo,&
+ link_end_homo,idihconstr_start_homo,idihconstr_end_homo
+ logical,dimension(:,:),allocatable :: l_homo
+ integer ::nchain,iprzes,&
+ npermchain,&
+ nchain_group,&
+ nmodel_start,nran_start
+! real(kind=8),dimension(:,:),allocatable :: c,dc,dc_old,xloc,xrot,&
+! dc_norm,dc_norm2,cref,crefjlee
+! real(kind=8),dimension(:),allocatable :: d_c_work
+ real(kind=8),dimension(:,:,:),allocatable :: chomo
+! real(kind=8) :: totTafm
+ character(len=256),dimension(:),allocatable:: pdbfiles_chomo
+ integer,dimension(:),allocatable :: chain_length,ireschain,&
+ nequiv,mapchain, nres_chomo
+ real(kind=8) :: enecut,sscut,sss,sssgrad
+! buflipbot, bufliptop,bordlipbot,bordliptop,lipbufthick,lipthick
+! real(kind=8) :: buftubebot, buftubetop,bordtubebot,bordtubetop,tubebufthick
end module energy_data