CTITLECVMGT  -- CONDITIONAL VECTOR MERGE SIMULATION FUNCTION            00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        MIKE MAROLDA                                        00020000
CA    DESIGNER      MIKE MAROLDA                                        00030000
CA    LANGUAGE      FORTRAN                                             00040000
CA    SYSTEM        IBM (SEE CRAY SYSTEM ROUTINES)                      00050000
CA    WRITTEN       01-24-86                                            00060000
C     REVISED       XX-XX-XX III.  ...                                  00070000
CA                                                                      00080000
CA                                                                      00090000
CA    FUNCTION CVMGT (X, Y, TEST)                                       00100000
CA         INPUT      X = RESULT IF TEST IS TRUE                    R4  00110000
CA         INPUT      Y = RESULT IF TEST IS FALSE                   R4  00120000
CA         INPUT   TEST = TEST VALUE                                L4  00130000
CA                                                                      00140000
CA                                                                      00150000
CA       THE RESULT OF THE FUNCTION CALL CVMGT IS X IF TEST IS TRUE,    00160000
CA       AND Y IF TEST IS NOT TRUE.                                     00170000
CAEND                                                                   00180000
      FUNCTION   CVMGT  ( X, Y, TEST )                                  00190000
C                                                                       00200000
      REAL    CVMGT                                                     00210000
      REAL        X                                                     00220000
      REAL        Y                                                     00230000
      LOGICAL  TEST                                                     00240000
C                                                                       00250000
      IF (TEST) CVMGT=X                                                 00260000
      IF (.NOT.TEST) CVMGT=Y                                            00270000
C                                                                       00280000
      RETURN                                                            00290000
C                                                                       00300000
      END                                                               00310000