      SUBROUTINE P_TBLBLD(MT,MGS,MDET,NTB,IUNIT,IBLK,IETL,NET,NOT,
     &FILENE,FILENO,TBL,ID,ICHN,IBIN,MG1)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C P_TBLBLD READS EMISSIVITY TABLES FOR THE FORWARD RADIANCE MODEL.
C
C SOFTWARE WRITTEN BY Tom Marshall
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      LOGICAL IBIN
      DIMENSION IBLK(MT),IETL(MT),TBL(NTB,MDET,MT),NET(MT),NOT(MT)
      CHARACTER*(*) FILENE(MGS,MDET,MT),FILENO(MG1,MDET,MT)

      WRITE(*,*) ' We are table building'
      WRITE(*,*) 'Building table database for channel',IBLK(ICHN)
      CALL MP_TBLBLD(IBIN,IUNIT,IBLK(ICHN),IETL(ICHN),NET(ICHN),
     &NOT(ICHN),FILENE(1,ID,ICHN),FILENO(1,ID,ICHN),NTB,TBL(1,ID,ICHN))
      WRITE(*,*) 'Finished table building for channel',IBLK(ICHN)
      RETURN
      END
