- 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,
logical koniec
integer tag,status(MPI_STATUS_SIZE)
common /info/ myid,masterid,allgrp,dontcare,