changes need for chamm-gui

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

diff --git a/source/unres/geometry.F90 b/source/unres/geometry.F90
index bc66711..60c888f 100644 (file)
--- 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