anchor.diff:  #endif
     end function asin_mb
   
  -  real(kind=fPrec) function sinh_mb(arg)
  -    implicit none
  -    real(kind=fPrec) arg
  -    intent(in) arg
  -
  -#ifndef CRLIBM
  -    !Input KIND = output KIND
  +  real(kind=fPrec) pure function sinh_mb(arg)
  +    real(kind=fPrec), intent(in) :: arg
  +#ifndef CRLIBM
       sinh_mb=sinh(arg)
   #else
   #ifdef ROUND_NEAR
  
positive.code: #endif
    end function cos_mb
  
    real(kind=fPrec) function acos_mb(arg)
      implicit none
      real(kind=fPrec) arg
      intent(in) arg
  
  #ifndef CRLIBM
      !Input KIND = output KIND
      acos_mb=acos(arg)
  #else
  #ifdef ROUND_NEAR
  
negative.code: #endif
    end function cosh_mb
  
    real(kind=fPrec) pure function tan_mb(arg)
      real(kind=fPrec), intent(in) :: arg
  #ifndef CRLIBM
      tan_mb=tan(arg)
  #else
  #ifdef ROUND_NEAR
  