ADAS Subroutine gentab

       SUBROUTINE GENTAB(NREP,IMAX,DENS,TE,BMENER,F1,F2,F3)             
C
       IMPLICIT REAL*8(A-H,O-Z)                                        
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: GENTAB *********************
C
C PURPOSE : SEND DATA TO STREAM '10' FOR SUBSEQUENT TABLE PRODUCTION
C
C NOTES: THIS ROUTINE IS NOT YET PROPERLY ANNOTATED
C
C UNIX-IDL PORT:
C
C VERSION: 1.1                          DATE: 25-1-96
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - FIRST VERSION
C
C-----------------------------------------------------------------------
C
      INTEGER             IMAX,        NREP(31)
      REAL*8              BMENER,      DENS,        F1(30),      F2(30)
      REAL*8              F3(30),      TE