SUBROUTINE SETTVT_TO_TVIB(MR,MGS,MSTATES,NR,NGAS,NVTS,IDG,IVTS,
     &VIBTRAN,VIBTRANTV,TVT,TVIB)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C SETTVT_TO_TVIB assigns the forward model TVT to the appropriate
C TVIB returned from the vibrational temperature model.
C
C INPUT PARAMETERS:
C
C   MR        --- MAXIMUM LEVELS IN INPUT ATMOSPHERE.
C   MGS       --- MAXIMUM SIMULATED VIBRATIONAL TRANSITIONS.
C   NR        --- NUMBER OF LEVELS IN INPUT ATMOSPHERE.
C   NGAS      --- NUMBER OF SIMULATED GASES/ISOTOPES/LEVELS IN FORWARD.
C   NVTS      --- NUMBER OF VIBRATIONAL TRANSITIONS SIMULATED.
C   IDG       --- SIMULATED PSEUDO GASID'S IN FORWARD.
C   IVTS      --- PSUEDO GAS ID'S OF SIMULATED VIBRATIONAL TRANSITIONS.
C   VIBTRAN   --- VIBRATIONAL TRANSITION DESCRIPTOR FOR FORWARD MODEL.
C   VIBTRANTV --- VIBRATIONAL TRANSITION DESCRIPTOR FOR TV MODEL.
C   TVIB      --- COMPUTED CO2 VIBRATIONAL TEMPERATURES (K).
C
C OUTPUT PARAMETERS:
C
C   TVT      --- VIBRATIONAL TEMPERATURES NEEDED IN FORWARD MODEL (K).
C
C SOFTWARE WRITTEN BY Christopher J. Mertens
C Modified by Benjamin T. Marshall December 2002
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C      (c) Copyright 1987-2000 by GATS, Inc.
C          11864 Canon Blvd., Suite 101, Newport News, Virginia, 23606
C          Phone: (757) 873-5920
C
C  All Rights Reserved. No part of this software or publication may be
C  reproduced, stored in a retrieval system, or transmitted, in any form
C  or by any means, electronic, mechanical, photocopying, recording, or
C  otherwise without the prior written permission of GATS, Inc.
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      CHARACTER*(*) VIBTRAN,VIBTRANTV
      CHARACTER*80 VTRANS,VTRANS2,VIBSTSRES*8,BLANK6*6
      DIMENSION IDG(MGS),IVTS(MSTATES),TVIB(MR,MSTATES,2),VIBTRAN(MGS),
     &VIBTRANTV(MSTATES),VSTSCM(2,MGS),TVT(MR,MGS,2),VIBSTSRES(2)
      DATA BLANK6/'      '/
      DO IG=1,NGAS
        VTRANS=VIBTRAN(IG)
        WRITE(*,*) 'FORWARD MODEL GAS # ',IG
        WRITE(*,*) IDG(IG),VTRANS
        IF(VTRANS(1:6).EQ.'RESDL_') THEN
          VTRANS2=VTRANS(7:80)//BLANK6
          IDI=IDG(IG)
          IF(MOD(IDI,100).EQ.0) THEN
            IDI=1+IDI
          ENDIF
          WRITE(*,*) 'RESDL ID ',IDI
          CALL KP_SETNLTE(1,1,IDI,IDGRES,VTRANS2,VIBSTSRES)
          DO IP=1,NVTS
            IF(IDGRES.EQ.IVTS(IP)) THEN
              WRITE(*,*) 'VIBRATIONAL MODEL GAS # ',IP
              WRITE(*,*) IVTS(IP),VIBTRANTV(IP)
              DO IS=1,2
                DO IL=1,NR
                  TVT(IL,IG,IS)=TVIB(IL,IP,IS)
                ENDDO
              ENDDO
            ENDIF
          ENDDO
        ELSE
          DO IP=1,NVTS
            IF(IDG(IG).EQ.IVTS(IP)) THEN
              WRITE(*,*) 'VIBRATIONAL MODEL GAS # ',IP
              WRITE(*,*) IVTS(IP),VIBTRANTV(IP)
              DO IS=1,2
                DO IL=1,NR
                  TVT(IL,IG,IS)=TVIB(IL,IP,IS)
                ENDDO
              ENDDO
            ENDIF
          ENDDO
        ENDIF
      ENDDO
      DO IP=1,NVTS
        WRITE(*,*) 'VIBRATIONAL MODEL GAS # ',IP
        WRITE(*,*) IVTS(IP),VIBTRANTV(IP)
      ENDDO
      RETURN
      END