      SUBROUTINE TRPPAS
     O        ( TRPLEV,
     I          RFLUX )
