anchor.diff:  #endif
     end function acos_mb
   
  -  real(kind=fPrec) function cosh_mb(arg)
  -    implicit none
  -    real(kind=fPrec) arg
  -    intent(in) arg
  -
  -#ifndef CRLIBM
  -    !Input KIND = output KIND
  +  real(kind=fPrec) pure function cosh_mb(arg)
  +    real(kind=fPrec), intent(in) :: arg
  +#ifndef CRLIBM
       cosh_mb=cosh(arg)
   #else
   #ifdef ROUND_NEAR
  
positive.code: 
  contains
  
    ! Definition of the MathlibBouncer (_mb) functions
  
  ! #ifdef IFORT
  !   logical pure elemental function isnan_mb(arg)
  !     use, intrinsic :: ieee_arithmetic, only : ieee_is_nan
  !     real(kind=fPrec), intent(in) :: arg
  !     isnan_mb = ieee_is_nan(arg)
  !   end function isnan_mb
  ! #else
    logical pure elemental function isnan_mb(arg)
      real(kind=fPrec), intent(in) :: arg
      isnan_mb = arg /= arg
    end function isnan_mb
  ! #endif
  
    real(kind=fPrec) function sin_mb(arg)
      implicit none
      real(kind=fPrec) arg
      intent(in) arg
  
  #ifndef CRLIBM
      !Input KIND = output KIND
      sin_mb=sin(arg)
  #else
  #ifdef ROUND_NEAR
  
negative.code: #endif
    end function asin_mb
  
    real(kind=fPrec) pure function sinh_mb(arg)
      real(kind=fPrec), intent(in) :: arg
  #ifndef CRLIBM
      sinh_mb=sinh(arg)
  #else
  #ifdef ROUND_NEAR
  