      SUBROUTINE P_TVTBLBLD_CO2(MGS,MWRKTVMDS,IUNIT,IBLKTV,NETTV,NOTTV,
     &FILENETV,FILENOTV,WRKTVMDS,ID,IBIN)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C P_TVTBLBLD READS EMISSIVITY TABLES FOR THE TV MODELS.
C
C SOFTWARE WRITTEN BY Christopher J. Mertens
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      LOGICAL IBIN
      DIMENSION WRKTVMDS(MWRKTVMDS)
      CHARACTER*(*) FILENETV(MGS),FILENOTV
      COMMON/LWRKTVMDST/LIDAY,LINITTV,LLVSED,LLVSEDTV,LLTV,LLMCM,LLSHR,
     &LIFLUXAL,LICCM,LISLH,LISECANT,LNITN,LNITD,LNITC,LITVOPT,LITVOPTN2,
     &LMG3,LMSSPC,LMTBLTV,LMWRKTV,LNLTV,LNVTS,LIVTS,LIVTSN,LIVTSG3,
     &LITVID,LITVIDVMR,LNLMX,LNLMXVMR,LNMXTV,LIRADTV,LZATV,LABDISO,
     &LABDISOG3,LENGY,LENGYG3,LSZA,LCSSPC,LWRKTV,LTVTBL,LTVPOUT,LTVTOUT,
     &LTVSOUT,LPN21RMOD,LPN21TMOD,LTVRMOD,LTVTMOD,LTVRN2MOD,LTVTN2MOD,
     &LTVRG3,LTVTG3,LSLHRMOD,LSLHTMOD,LSLHKRMOD,LSLHKTMOD,LSPHARRMOD,
     &LSPHARTMOD,LHRRMOD,LHRTMOD,LFQQ,LFQQT,LFQQVMR,LFQQTVMR

      IF(ID.GT.1) RETURN
      CALL P_TBLBLD(1,MGS,1,WRKTVMDS(LMTBLTV),IUNIT,IBLKTV,0,NETTV,
     & NOTTV,FILENETV,FILENOTV,WRKTVMDS(LTVTBL),1,1,IBIN,1)
      RETURN
      END
    
