MODULE cvmgt_mod
      
      IMPLICIT NONE
      
      CONTAINS
      
      REAL FUNCTION cvmgt(x1,x2,l)
      ! function which returns x1 if l == .true. , x2 otherwise
      IMPLICIT NONE

      REAL,INTENT(IN) :: x1,x2
      LOGICAL,INTENT(IN) :: l

      IF(l) then 
        cvmgt=x1
      ELSE
        cvmgt=x2
      ENDIF

      END FUNCTION cvmgt
C
      END MODULE cvmgt_mod