X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fgeometry.F90;h=60c888f40fb42dd8acfd653870d0fedcc366e4e4;hb=545cf9507d923cdf917d80ed079c753702c68840;hp=bc667111c4a068b274f34f4132a51bde5c0525c2;hpb=ae2f9918e1e5f88a78cc32b1d3a7ff90dede1207;p=unres4.git

diff --git a/source/unres/geometry.F90 b/source/unres/geometry.F90
index bc66711..60c888f 100644
--- a/source/unres/geometry.F90
+++ b/source/unres/geometry.F90
@@ -2964,7 +2964,7 @@
       character(len=3) :: seq,res
 !      character*5 atom
       character(len=80) :: card
-      real(kind=8),dimension(3,20) :: sccor
+      real(kind=8),dimension(3,40) :: sccor
       integer :: i,j,iti !el  rescode,
       logical :: lside,lprn
       real(kind=8) :: di,cosfac,sinfac
@@ -3183,7 +3183,7 @@
 !      include 'DIMENSIONS'
 !      include 'COMMON.CHAIN'
       integer :: i,j,ires,nscat
-      real(kind=8),dimension(3,20) :: sccor
+      real(kind=8),dimension(3,40) :: sccor
       real(kind=8) :: sccmj
 !        print *,"I am in sccenter",ires,nscat
       do j=1,3