X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2Fdata%2Fenergy_data.F90;h=7babb3abb7078653c6dbd9406d05901989a3d4e3;hb=f7883bb11fc7df1ed921187999982670d26e6fa5;hp=b0995af7dc83678c0395dfd37766e4111cf52d17;hpb=a25c7f552431c3edd22800ac5a91a028f0f5e996;p=unres4.git

diff --git a/source/unres/data/energy_data.F90 b/source/unres/data/energy_data.F90
index b0995af..7babb3a 100644
--- a/source/unres/data/energy_data.F90
+++ b/source/unres/data/energy_data.F90
@@ -3,7 +3,7 @@
       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
@@ -73,7 +73,7 @@
        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
@@ -364,6 +364,8 @@
        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,                         &
@@ -415,12 +417,18 @@
         real(kind=8),dimension(:,:,:),allocatable :: alphasurcat,&
            alphisocat,wqdipcat,dtailcat,wstatecat
          real(kind=8),dimension(:,:,:,:),allocatable :: dheadcat
-
+          integer,dimension(60000) :: contlistscpi_f,contlistscpj_f
+!         integer :: ifirstrun,ilist_scp_first
 !        real(kind=8),dimension(:,:),allocatable :: alphapol,epshead,&
 !           sig0head,sigiso1,sigiso2,rborn,sigmap1,sigmap2,chis,wquad,chipp,&
 !           epsintab,debaykap
 
 
 !end of ions parameters by Agnieszka Lipska (Ca, K, Na, Mg, Cl)-----------------------
-
+!
+! FRAGMENT FOR INTERACTION LIST
+        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   
       end module energy_data