- 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