From: Dawid Jagiela <lightnir@chem.univ.gda.pl>
Date: Fri, 23 Nov 2012 14:03:30 +0000 (+0100)
Subject: gfortran foxes in src_CSA/energy_p_new_barrier.F, src_CSA_DiL/energy_p_new_barrier... 
X-Git-Tag: v.3.2~47
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=d6bb3f3ccaa1703cb7cb5d12dd1e4d1db23e0b7c

gfortran foxes in src_CSA/energy_p_new_barrier.F, src_CSA_DiL/energy_p_new_barrier.F, src_MD-M/local_move.f
---

diff --git a/source/unres/src_CSA/energy_p_new_barrier.F b/source/unres/src_CSA/energy_p_new_barrier.F
index 821d8f7..015a2b3 100644
--- a/source/unres/src_CSA/energy_p_new_barrier.F
+++ b/source/unres/src_CSA/energy_p_new_barrier.F
@@ -8133,7 +8133,7 @@ c----------------------------------------------------------------------------
       include 'COMMON.GEO'
       logical swap
       double precision vv(2),pizda(2,2),auxmat(2,2),auxvec(2),
-     & auxvec1(2),auxvec2(1),auxmat1(2,2)
+     & auxvec1(2),auxvec2(2),auxmat1(2,2)
       logical lprn
       common /kutas/ lprn
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
diff --git a/source/unres/src_CSA_DiL/energy_p_new_barrier.F b/source/unres/src_CSA_DiL/energy_p_new_barrier.F
index c1e8ad3..44de1a8 100644
--- a/source/unres/src_CSA_DiL/energy_p_new_barrier.F
+++ b/source/unres/src_CSA_DiL/energy_p_new_barrier.F
@@ -8166,7 +8166,7 @@ c----------------------------------------------------------------------------
       include 'COMMON.GEO'
       logical swap
       double precision vv(2),pizda(2,2),auxmat(2,2),auxvec(2),
-     & auxvec1(2),auxvec2(1),auxmat1(2,2)
+     & auxvec1(2),auxvec2(2),auxmat1(2,2)
       logical lprn
       common /kutas/ lprn
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
diff --git a/source/unres/src_MD-M/local_move.f b/source/unres/src_MD-M/local_move.f
index d02a9d1..3c15bc0 100644
--- a/source/unres/src_MD-M/local_move.f
+++ b/source/unres/src_MD-M/local_move.f
@@ -129,7 +129,7 @@ c$$$          endif
 c$$$        endif
 
 c     The actual move, on residue i
-        iretcode=move_res(min,max,i,c)  ! Discard iretcode
+        iretcode=move_res(min,max,i)  ! Discard iretcode
         i=i+1
 
         if (i.le.j) then
@@ -150,7 +150,7 @@ c$$$            endif
 c$$$          endif
 
 c     The actual move, on residue j
-          iretcode=move_res(min,max,j,c)  ! Discard iretcode
+          iretcode=move_res(min,max,j)  ! Discard iretcode
           j=j-1
         endif
       enddo