& tapeFileCounter, tapeMaxCounter, tapeFileUnit, tapeFileUnitS
integer tapeFileUnit, tapeFileUnitS(4)
tapeFileUnitS(myLev)=0
tapeFileUnitS(myLev)=tapeFileUnit
tapeFileUnit=tapeFileUnitS(myLev)