X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fio_config.F90;fp=source%2Funres%2Fio_config.F90;h=9b036aac1abd08b2730a8303a8a84446e72251f5;hb=545cf9507d923cdf917d80ed079c753702c68840;hp=4fc0905f0b7080af488e5d5bec888fcf629313e5;hpb=ae2f9918e1e5f88a78cc32b1d3a7ff90dede1207;p=unres4.git

diff --git a/source/unres/io_config.F90 b/source/unres/io_config.F90
index 4fc0905..9b036aa 100644
--- a/source/unres/io_config.F90
+++ b/source/unres/io_config.F90
@@ -2532,6 +2532,7 @@
           si=-1.0d0
 
           do k=1,nterm_sccor(i,j)
+            print *,"test",i,j,k,l
             read (isccor,*,end=119,err=119) kk,v1sccor(k,l,i,j),&
            v2sccor(k,l,i,j)
             v0ijsccor=v0ijsccor+si*v1sccor(k,l,i,j)
@@ -3783,7 +3784,7 @@
       character(len=3) :: seq,res,res2
       character(len=5) :: atom
       character(len=80) :: card
-      real(kind=8),dimension(3,20) :: sccor
+      real(kind=8),dimension(3,40) :: sccor
       integer :: kkk,lll,icha,kupa,molecule,counter,seqalingbegin 	!rescode,
       integer :: isugar,molecprev,firstion
       character*1 :: sugar
@@ -6395,7 +6396,7 @@
       character*3 seq,res
       character*5 atom
       character*80 card
-      real(kind=8), dimension (3,20) :: sccor
+      real(kind=8), dimension (3,40) :: sccor
 !      integer rescode
       integer, dimension (:), allocatable :: iterter
       if(.not.allocated(iterter))allocate(iterter(nres))