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