npd=size-(NCPUs_PAR_P+NCPUs_CLD_P(1))
MSTR_PAR_P(1) = npd
MSTR_CLD_P(1) = NCPUs_PAR_P + npd
npd=size-(NCPUs_PAR_C+NCPUs_CLD_C(1))
MSTR_PAR_C(1) = npd
MSTR_CLD_C(1) = NCPUs_PAR_C + npd
INTEGER mpiMyWid,size,npd