PARAMETER SIZE_LOW_LIFE = 4 BYTE all_low_life(SIZE_LOW_LIFE) INTEGER*4 seed COMMON / Low_life / seed EQUIVALENCE (all_low_life,seed)