SUBROUTINE USER(LU,USERNM)
      CHARACTER*80 FILENM
      CHARACTER*80 USERNM

      RETURN
      END