\hypertarget{namespacemom__intrinsic__functions}{}\section{mom\+\_\+intrinsic\+\_\+functions Module Reference}
\label{namespacemom__intrinsic__functions}\index{mom\+\_\+intrinsic\+\_\+functions@{mom\+\_\+intrinsic\+\_\+functions}}


\subsection{Detailed Description}
A module with intrinsic functions that are used by M\+OM but are not supported by some compilers. \subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
real function, public \mbox{\hyperlink{namespacemom__intrinsic__functions_a8c2f5945631280be41cfa981515e63fc}{invcosh}} (x)
\begin{DoxyCompactList}\small\item\em Evaluate the inverse cosh, either using a math library or an equivalent expression. \end{DoxyCompactList}\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacemom__intrinsic__functions_a8c2f5945631280be41cfa981515e63fc}\label{namespacemom__intrinsic__functions_a8c2f5945631280be41cfa981515e63fc}} 
\index{mom\+\_\+intrinsic\+\_\+functions@{mom\+\_\+intrinsic\+\_\+functions}!invcosh@{invcosh}}
\index{invcosh@{invcosh}!mom\+\_\+intrinsic\+\_\+functions@{mom\+\_\+intrinsic\+\_\+functions}}
\subsubsection{\texorpdfstring{invcosh()}{invcosh()}}
{\footnotesize\ttfamily real function, public mom\+\_\+intrinsic\+\_\+functions\+::invcosh (\begin{DoxyParamCaption}\item[{real, intent(in)}]{x }\end{DoxyParamCaption})}



Evaluate the inverse cosh, either using a math library or an equivalent expression. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em x} & The argument of the inverse of cosh. Na\+Ns will occur if x$<$1, but there is no error checking \\
\hline
\end{DoxyParams}


Definition at line 16 of file M\+O\+M\+\_\+intrinsic\+\_\+functions.\+F90.


\begin{DoxyCode}
16   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)} :: x\textcolor{comment}{ !< The argument of the inverse of cosh.  NaNs will}
17 \textcolor{comment}{                        !! occur if x<1, but there is no error checking}
18   \textcolor{keywordtype}{real} :: invcosh
19 
20 \textcolor{preprocessor}{#ifdef \_\_INTEL\_COMPILER}
21 \textcolor{preprocessor}{}  invcosh = acosh(x)
22 \textcolor{preprocessor}{#else}
23 \textcolor{preprocessor}{}  invcosh = log(x+sqrt(x*x-1))
24 \textcolor{preprocessor}{#endif}
25 \textcolor{preprocessor}{}
\end{DoxyCode}