southProc = jam_southId
jam_southId = jam_pid-1
IF ( jam_southId .LT. 0 ) jam_southId = jam_np-1
& jam_northId, jam_southId
INTEGER jam_southId