changes need for chamm-gui

[unres4.git] / source / unres / io_config.F90

diff --git a/source/unres/io_config.F90 b/source/unres/io_config.F90
index 4fc0905..9b036aa 100644 (file)
--- 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))