\hypertarget{namespacemom__intrinsic__functions}{}\doxysection{mom\+\_\+intrinsic\+\_\+functions Module Reference}
\label{namespacemom__intrinsic__functions}\index{mom\_intrinsic\_functions@{mom\_intrinsic\_functions}}


\doxysubsection{Detailed Description}
A module with intrinsic functions that are used by M\+OM but are not supported by some compilers. \doxysubsection*{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}


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

\end{DoxyCode}