northProc = jam_northId
jam_northId = jam_pid+1
IF ( jam_northId .EQ. jam_np ) jam_northId = 0
& jam_northId, jam_southId
INTEGER jam_northId