range of arrays: MaxProcs to NProcs

[unres4.git] / source / cluster / cluster.f90

diff --git a/source/cluster/cluster.f90 b/source/cluster/cluster.f90
index 1b6767c..3b75b28 100644 (file)
--- a/source/cluster/cluster.f90
+++ b/source/cluster/cluster.f90
@@ -14,7 +14,7 @@
                          c,cref
       use energy_data, only: nnt,nct
       use control_data, only: symetr,outpdb,outmol2,titel,&
-                          iopt,print_dist,MaxProcs
+                          iopt,print_dist !,MaxProcs
       use control, only: tcpu,initialize
 
       use wham_data, only: punch_dist
@@ -79,13 +79,14 @@
         call mpi_finalize(ierror)
         stop
       endif
-      if (nprocs.gt.MaxProcs+1) then
-        write (2,*) "Error - too many processors",&
-         nprocs,MaxProcs+1
-        write (2,*) "Increase MaxProcs and recompile"
-        call MPI_Finalize(IERROR)
-        stop
-      endif
+!EL /04/2017  No longer needed, dynamic allocation of arrays
+!      if (nprocs.gt.MaxProcs+1) then
+!        write (2,*) "Error - too many processors",&
+!         nprocs,MaxProcs+1
+!        write (2,*) "Increase MaxProcs and recompile"
+!        call MPI_Finalize(IERROR)
+!        stop
+!      endif
 #endif
 !elwrite(iout,*) "before parmread"
       allocate(printang(max_cut))