X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fstore_parm.F;h=081172683988a213b0a0c6e0667c6e1a7fe2beba;hb=3509d76c6e5552809caea3484f5889a2e51a011a;hp=93c5b5e10151b82ebf81b98917453efe169b9d77;hpb=56c864c8f0df10ada39d6e0cda4d8d8ed5bfa78d;p=unres.git

diff --git a/source/wham/src-M/store_parm.F b/source/wham/src-M/store_parm.F
index 93c5b5e..0811726 100644
--- a/source/wham/src-M/store_parm.F
+++ b/source/wham/src-M/store_parm.F
@@ -226,16 +226,16 @@ c Store disulfide-bond parameters
       v2ss_all(iparm)=v2ss
       v3ss_all(iparm)=v3ss
 c Store SC-backbone correlation parameters
-      do i=1,nsccortyp
-       do j=1,nsccortyp
+      do i=-nsccortyp,nsccortyp
+       do j=-nsccortyp,nsccortyp
 
-      nterm_sccor(j,i)=nterm_sccor_all(j,i,iparm)
+      nterm_sccor_all(j,i,iparm)=nterm_sccor(j,i)
 c      do i=1,20
 c        do j=1,20
          do l=1,3
           do k=1,nterm_sccor(j,i)
-            v1sccor(k,l,j,i)=v1sccor_all(k,l,j,i,iparm)
-            v2sccor(k,l,j,i)=v2sccor_all(k,l,j,i,iparm)
+            v1sccor_all(k,l,j,i,iparm)=v1sccor(k,l,j,i)
+            v2sccor_all(k,l,j,i,iparm)=v2sccor(k,l,j,i)
            enddo
           enddo
         enddo
@@ -471,14 +471,14 @@ c Restore disulfide-bond parameters
       v2ss=v2ss_all(iparm)
       v3ss=v3ss_all(iparm)
 c Restore SC-backbone correlation parameters
-      do i=1,nsccortyp
-       do j=1,nsccortyp
+      do i=-nsccortyp,nsccortyp
+       do j=-nsccortyp,nsccortyp
 
-      nterm_sccor_all(j,i,iparm)=nterm_sccor(j,i)
+      nterm_sccor(j,i)=nterm_sccor_all(j,i,iparm)
         do l=1,3
            do k=1,nterm_sccor(j,i)
-            v1sccor_all(k,l,j,i,iparm)=v1sccor(k,l,j,i)
-            v2sccor_all(k,l,j,i,iparm)=v2sccor(k,l,j,i)
+            v1sccor(k,l,j,i)=v1sccor_all(k,l,j,i,iparm)
+            v2sccor(k,l,j,i)=v2sccor_all(k,l,j,i,iparm)
            enddo
           enddo
         enddo