c NPROCS - total number of processors;
c MyID - processor's ID;
c MasterID - master processor's ID.
- integer MyId,AllGrp,DontCare,MasterId,WhatsUp,ifinish
+ integer MyId,AllGrp,DontCare,MasterId,WhatsUp,ifinish,msglen_var
logical koniec
integer tag,status(MPI_STATUS_SIZE)
common /info/ myid,masterid,allgrp,dontcare,