& tapeFileCounter, tapeMaxCounter, tapeFileUnit, tapeFileUnitS
integer tapeFileCounter, tapeMaxCounter
tapeFileCounter=0
tapeFileCounter=tapeFileCounter+1
jrec=tapeFileCounter+tapeMaxCounter*(irec-1)
if (tapeFileCounter.GT.tapeMaxCounter) stop
if (tapeFileCounter.GT.tapeMaxCounter) then
& tapeFileCounter, tapeMaxCounter