X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2Fcontrol.F90;h=8b908c1247a47619aacda5cb56ed8ad9b0ec950e;hb=705644e0cbb7678faefd6fe1bc436159d38ad85d;hp=2fd113e0e2b11296262b759f4034f978004c304c;hpb=fa303bca64ee8c5549cdc075600e06fb60974c9c;p=unres4.git

diff --git a/source/unres/control.F90 b/source/unres/control.F90
index 2fd113e..8b908c1 100644
--- a/source/unres/control.F90
+++ b/source/unres/control.F90
@@ -238,7 +238,9 @@
       isidep_nucl=132
       iscpp_nucl=133
       isidep_scbase=141
-
+      isidep_pepbase=142
+      isidep_scpho=143
+      isidep_peppho=144
 
       iliptranpar=60
       itube=61
@@ -719,14 +721,14 @@
         write (iout,'(i3,2(2x,2i3))') &
        i,(istart(i,iint),iend(i,iint),iint=1,nint_gr(i))
       enddo
-      endif
+!      endif
 !      lprint=.false.
       write (iout,'(a)') 'Interaction array2:' 
       do i=iatsc_s_nucl,iatsc_e_nucl
         write (iout,'(i3,2(2x,2i4))') &
        i,(istart_nucl(i,iint),iend_nucl(i,iint),iint=1,nint_gr_nucl(i))
       enddo
-
+      endif
       ispp=4 !?? wham ispp=2
 #ifdef MPI
 ! Now partition the electrostatic-interaction array
@@ -1920,6 +1922,7 @@
       nside=0
       do i=2,nres-1
       mnum=molnum(i)
+      write(iout,*) "i",molnum(i)
 #ifdef WHAM_RUN
         if (itype(i,1).ne.10) then
 #else