X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fmuca_md.f90;fp=source%2Funres%2Fmuca_md.f90;h=b490c4f15bc18c7076b9cca92edf999da7d7ff9e;hb=5caab5415c9f7622a0d0085135a520b49f5cd4fd;hp=79189a218ad50fad14727d9d2dfa47f72b5c261b;hpb=3d82fd4865ef986a636dcb144357cc095a20ffbc;p=unres4.git

diff --git a/source/unres/muca_md.f90 b/source/unres/muca_md.f90
index 79189a2..b490c4f 100644
--- a/source/unres/muca_md.f90
+++ b/source/unres/muca_md.f90
@@ -237,7 +237,7 @@
 !-----------------------------------------------------------------------------
       subroutine read_muca
 
-      use control_data, only: modecalc,maxprocs
+      use control_data, only: modecalc !,maxprocs
       use MD_data
       use REMD_data
       use MPI_data
@@ -252,7 +252,7 @@
       real(kind=8) :: yp1,ypn,yp,x,y,muca_ene !,muca_factor
 !el local variable
       real(kind=8) :: emuca_alloc(4*maxres),nemuca_alloc(4*maxres)
-      integer(kind=2) :: i2rep_alloc(0:maxprocs)
+      integer(kind=2) :: i2rep_alloc(0:Nprocs) !(0:maxprocs)
       integer :: i,k,j
 !     real(kind=8) :: var,ene
 
@@ -325,7 +325,7 @@
 !-----------------------------------------------------------------------------
       subroutine print_muca
 
-      use control_data, only: modecalc,mucadyn,maxprocs
+      use control_data, only: modecalc,mucadyn !,maxprocs
       use MD_data
       use REMD_data
       use MPI_data
@@ -338,7 +338,7 @@
 !      include 'COMMON.SETUP'
 !      include 'COMMON.IOUNITS'
       real(kind=8) :: yp1,ypn,yp,x,y  !,muca_ene,muca_factor
-      real(kind=8) :: dummy(maxprocs)
+      real(kind=8) :: dummy(Nprocs) !(maxprocs)
 !el local variables
       integer :: i,j,k