Merge branch 'UCGM' of mmka.chem.univ.gda.pl:unres4 into UCGM

[unres4.git] / source / unres / data / energy_data.F90

diff --git a/source/unres/data/energy_data.F90 b/source/unres/data/energy_data.F90
index 07e7d73..0f5e406 100644 (file)
--- 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
@@ -408,7 +408,7 @@
         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,&