CTITLECVMGP  -- CONDITIONAL VECTOR MERGE SIMULATION FUNCTION            00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        STU NELAN                                           00020001
CA    DESIGNER      STU NELAN                                           00030001
CA    LANGUAGE      FORTRAN                                             00040001
CA    SYSTEM        IBM (SEE CRAY SYSTEM ROUTINES)                      00050001
CA    WRITTEN       06-04-86                                            00060001
C     REVISED       XX-XX-XX III.  ...                                  00070001
CA                                                                      00080001
CA                                                                      00090001
CA    FUNCTION CVMGP (X, Y, TEST)                                       00100001
CA         INPUT      X = RESULT IF TEST .GE. 0.0                   R4  00110001
CA         INPUT      Y = RESULT IF TEST .LT. 0.0                   R4  00120001
CA         INPUT   TEST = TEST VALUE                                R4  00130001
CA                                                                      00140001
CA                                                                      00150001
CA       THE RESULT OF THE FUNCTION CALL CVMGP IS X IF TEST .GE. 0.0,   00160001
CA       AND Y IF TEST .LT. 0.0.                                        00170001
CAEND                                                                   00180001
      FUNCTION   CVMGP  ( X, Y, TEST )                                  00190001
C                                                                       00200001
      REAL    CVMGP                                                     00210001
      REAL        X                                                     00220001
      REAL        Y                                                     00230001
      REAL     TEST                                                     00240001
C                                                                       00250001
      IF (TEST .GE. 0.0) CVMGP=X                                        00260001
      IF (TEST .LT. 0.0) CVMGP=Y                                        00270001
C                                                                       00280001
      RETURN                                                            00290001
C                                                                       00300001
      END                                                               00310001