use energy_data
use geometry_data
- use MPI_data, only:ifinish,nctasks,WhatsUp,MyID
- use control_data, only:refstr,MaxProcs
+ use MPI_data, only:ifinish,nctasks,WhatsUp,MyID,NProcs
+ use control_data, only:refstr !,MaxProcs
use io_base
use control, only:tcpu,ovrtim
use regularize_, only:fitsq
real(kind=8) :: przes(3),obr(3,3)
real(kind=8),dimension(6*nres) :: varold !(maxvar) (maxvar=6*maxres)
logical :: non_conv
- integer,dimension(-1:MaxMoveType+1,0:MaxProcs-1) :: moves1,moves_acc1 !(-1:MaxMoveType+1,0:MaxProcs-1)
+ integer,dimension(-1:MaxMoveType+1,0:NProcs-1) :: moves1,moves_acc1 !(-1:MaxMoveType+1,0:MaxProcs-1)
#ifdef MPL
- real(kind=8) :: etot_temp,etot_all(0:MaxProcs)
+ real(kind=8) :: etot_temp,etot_all(0:NProcs) !(0:MaxProcs)
external d_vadd,d_vmin,d_vmax
real(kind=8),dimension(-max_ene:max_ene) :: entropy1,nhist1
- integer,dimension(nres*(MaxProcs+1)) :: nbond_move1,nbond_acc1
+ integer,dimension(nres*(NProcs+1)) :: nbond_move1,nbond_acc1 !(nres*(MaxProcs+1))
integer,dimension(2) :: itemp
#endif
real(kind=8),dimension(6*nres) :: var_lowest !(maxvar) (maxvar=6*maxres)