\hypertarget{interfacemom__checksums_1_1chksum}{}\section{mom\+\_\+checksums\+:\+:chksum Interface Reference}
\label{interfacemom__checksums_1_1chksum}\index{mom\+\_\+checksums\+::chksum@{mom\+\_\+checksums\+::chksum}}


\subsection{Detailed Description}
This is an older interface for 1-\/, 2-\/, or 3-\/D checksums. 

Definition at line 64 of file M\+O\+M\+\_\+checksums.\+F90.

\subsection*{Private functions}
\begin{DoxyCompactItemize}
\item 
subroutine \mbox{\hyperlink{interfacemom__checksums_1_1chksum_ad95756f66bded93e6be500043f9eac0d}{chksum1d}} (array, mesg, start\+\_\+i, end\+\_\+i, compare\+\_\+\+P\+Es)
\begin{DoxyCompactList}\small\item\em chksum1d does a checksum of a 1-\/dimensional array. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{interfacemom__checksums_1_1chksum_a2fba13939b2a2b0752cf960bd7fc9e17}{chksum2d}} (array, mesg)
\begin{DoxyCompactList}\small\item\em chksum2d does a checksum of all data in a 2-\/d array. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{interfacemom__checksums_1_1chksum_a6d57100cdc39c849d3c55fc182859ef1}{chksum3d}} (array, mesg)
\begin{DoxyCompactList}\small\item\em chksum3d does a checksum of all data in a 2-\/d array. \end{DoxyCompactList}\end{DoxyCompactItemize}


\subsection{Detailed Description}
This is an older interface for 1-\/, 2-\/, or 3-\/D checksums. 

Definition at line 64 of file M\+O\+M\+\_\+checksums.\+F90.



\subsection{Functions and subroutines}
\mbox{\Hypertarget{interfacemom__checksums_1_1chksum_ad95756f66bded93e6be500043f9eac0d}\label{interfacemom__checksums_1_1chksum_ad95756f66bded93e6be500043f9eac0d}} 
\index{mom\+\_\+checksums\+::chksum@{mom\+\_\+checksums\+::chksum}!chksum1d@{chksum1d}}
\index{chksum1d@{chksum1d}!mom\+\_\+checksums\+::chksum@{mom\+\_\+checksums\+::chksum}}
\subsubsection{\texorpdfstring{chksum1d()}{chksum1d()}}
{\footnotesize\ttfamily subroutine mom\+\_\+checksums\+::chksum\+::chksum1d (\begin{DoxyParamCaption}\item[{real, dimension(\+:), intent(in)}]{array,  }\item[{character(len=$\ast$), intent(in)}]{mesg,  }\item[{integer, intent(in), optional}]{start\+\_\+i,  }\item[{integer, intent(in), optional}]{end\+\_\+i,  }\item[{logical, intent(in), optional}]{compare\+\_\+\+P\+Es }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



chksum1d does a checksum of a 1-\/dimensional array. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em array} & The array to be summed (index starts at 1).\\
\hline
\mbox{\tt in}  & {\em mesg} & An identifying message.\\
\hline
\mbox{\tt in}  & {\em start\+\_\+i} & The starting index for the sum (default 1)\\
\hline
\mbox{\tt in}  & {\em end\+\_\+i} & The ending index for the sum (default all)\\
\hline
\mbox{\tt in}  & {\em compare\+\_\+pes} & If true, compare across P\+Es instead of summing and list the root\+\_\+\+PE value (default true) \\
\hline
\end{DoxyParams}


Definition at line 1887 of file M\+O\+M\+\_\+checksums.\+F90.


\begin{DoxyCode}
1887   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)} :: array\textcolor{comment}{   !< The array to be summed (index starts at 1).}
1888   \textcolor{keywordtype}{character(len=*)},   \textcolor{keywordtype}{intent(in)} :: mesg\textcolor{comment}{    !< An identifying message.}
1889   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional},  \textcolor{keywordtype}{intent(in)} :: start\_i\textcolor{comment}{ !< The starting index for the sum (default 1)}
1890   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional},  \textcolor{keywordtype}{intent(in)} :: end\_i\textcolor{comment}{   !< The ending index for the sum (default all)}
1891   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{optional},  \textcolor{keywordtype}{intent(in)} :: compare\_PEs\textcolor{comment}{ !< If true, compare across PEs instead of summing}
1892 \textcolor{comment}{                                                !! and list the root\_PE value (default true)}
1893 
1894   \textcolor{keywordtype}{integer} :: is, ie, i, bc, sum1, sum\_bc
1895   \textcolor{keywordtype}{real} :: sum
1896   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{allocatable} :: sum\_here(:)
1897   \textcolor{keywordtype}{logical} :: compare
1898   \textcolor{keywordtype}{integer} :: pe\_num   \textcolor{comment}{! pe number of the data}
1899   \textcolor{keywordtype}{integer} :: nPEs     \textcolor{comment}{! Total number of processsors}
1900 
1901   is = lbound(array,1) ; ie = ubound(array,1)
1902   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(start\_i)) is = start\_i
1903   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(end\_i)) ie = end\_i
1904   compare = .true. ; \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(compare\_pes)) compare = compare\_pes
1905 
1906   sum = 0.0 ; sum\_bc = 0
1907   \textcolor{keywordflow}{do} i=is,ie
1908     sum = sum + array(i)
1909     bc = bitcount(abs(array(i)))
1910     sum\_bc = sum\_bc + bc
1911 \textcolor{keywordflow}{  enddo}
1912 
1913   pe\_num = pe\_here() + 1 - root\_pe() ; npes = num\_pes()
1914   \textcolor{keyword}{allocate}(sum\_here(npes)) ; sum\_here(:) = 0.0 ; sum\_here(pe\_num) = sum
1915   \textcolor{keyword}{call }sum\_across\_pes(sum\_here,npes)
1916 
1917   sum1 = sum\_bc
1918   \textcolor{keyword}{call }sum\_across\_pes(sum1)
1919 
1920   \textcolor{keywordflow}{if} (.not.compare) \textcolor{keywordflow}{then}
1921     sum = 0.0
1922     \textcolor{keywordflow}{do} i=1,npes ; sum = sum + sum\_here(i) ;\textcolor{keywordflow}{ enddo}
1923     sum\_bc = sum1
1924   \textcolor{keywordflow}{elseif} (is\_root\_pe()) \textcolor{keywordflow}{then}
1925     \textcolor{keywordflow}{if} (sum1 /= npes*sum\_bc) &
1926       \textcolor{keyword}{write}(0, \textcolor{stringliteral}{'(A40," bitcounts do not match across PEs: ",I12,1X,I12)'}) &
1927             mesg, sum1, npes*sum\_bc
1928     \textcolor{keywordflow}{do} i=1,npes ; \textcolor{keywordflow}{if} (sum /= sum\_here(i)) \textcolor{keywordflow}{then}
1929       \textcolor{keyword}{write}(0, \textcolor{stringliteral}{'(A40," PE ",i4," sum mismatches root\_PE: ",3(ES22.13,1X))'}) &
1930             mesg, i, sum\_here(i), sum, sum\_here(i)-sum
1931 \textcolor{keywordflow}{    endif} ;\textcolor{keywordflow}{ enddo}
1932 \textcolor{keywordflow}{  endif}
1933   \textcolor{keyword}{deallocate}(sum\_here)
1934 
1935   \textcolor{keywordflow}{if} (is\_root\_pe()) &
1936     \textcolor{keyword}{write}(0,\textcolor{stringliteral}{'(A50,1X,ES25.16,1X,I12)'}) mesg, sum, sum\_bc
1937 
\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__checksums_1_1chksum_a2fba13939b2a2b0752cf960bd7fc9e17}\label{interfacemom__checksums_1_1chksum_a2fba13939b2a2b0752cf960bd7fc9e17}} 
\index{mom\+\_\+checksums\+::chksum@{mom\+\_\+checksums\+::chksum}!chksum2d@{chksum2d}}
\index{chksum2d@{chksum2d}!mom\+\_\+checksums\+::chksum@{mom\+\_\+checksums\+::chksum}}
\subsubsection{\texorpdfstring{chksum2d()}{chksum2d()}}
{\footnotesize\ttfamily subroutine mom\+\_\+checksums\+::chksum\+::chksum2d (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:)}]{array,  }\item[{character(len=$\ast$)}]{mesg }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



chksum2d does a checksum of all data in a 2-\/d array. 


\begin{DoxyParams}{Parameters}
{\em array} & The array to be checksummed\\
\hline
{\em mesg} & An identifying message \\
\hline
\end{DoxyParams}


Definition at line 1945 of file M\+O\+M\+\_\+checksums.\+F90.


\begin{DoxyCode}
1945 
1946   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(:,:)} :: array\textcolor{comment}{ !< The array to be checksummed}
1947   \textcolor{keywordtype}{character(len=*)} :: mesg\textcolor{comment}{  !< An identifying message}
1948 
1949   \textcolor{keywordtype}{integer} :: xs,xe,ys,ye,i,j,sum1,bc
1950   \textcolor{keywordtype}{real} :: sum
1951 
1952   xs = lbound(array,1) ; xe = ubound(array,1)
1953   ys = lbound(array,2) ; ye = ubound(array,2)
1954 
1955   sum = 0.0 ; sum1 = 0
1956   \textcolor{keywordflow}{do} i=xs,xe ; \textcolor{keywordflow}{do} j=ys,ye
1957     bc = bitcount(abs(array(i,j)))
1958     sum1 = sum1 + bc
1959 \textcolor{keywordflow}{  enddo} ;\textcolor{keywordflow}{ enddo}
1960   \textcolor{keyword}{call }sum\_across\_pes(sum1)
1961 
1962   sum = reproducing\_sum(array(:,:))
1963 
1964   \textcolor{keywordflow}{if} (is\_root\_pe()) &
1965     \textcolor{keyword}{write}(0,\textcolor{stringliteral}{'(A50,1X,ES25.16,1X,I12)'}) mesg, sum, sum1
1966 \textcolor{comment}{!    write(0,'(A40,1X,Z16.16,1X,Z16.16,1X,ES25.16,1X,I12)') &}
1967 \textcolor{comment}{!      mesg, sum, sum1, sum, sum1}
1968 
\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__checksums_1_1chksum_a6d57100cdc39c849d3c55fc182859ef1}\label{interfacemom__checksums_1_1chksum_a6d57100cdc39c849d3c55fc182859ef1}} 
\index{mom\+\_\+checksums\+::chksum@{mom\+\_\+checksums\+::chksum}!chksum3d@{chksum3d}}
\index{chksum3d@{chksum3d}!mom\+\_\+checksums\+::chksum@{mom\+\_\+checksums\+::chksum}}
\subsubsection{\texorpdfstring{chksum3d()}{chksum3d()}}
{\footnotesize\ttfamily subroutine mom\+\_\+checksums\+::chksum\+::chksum3d (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:,\+:)}]{array,  }\item[{character(len=$\ast$)}]{mesg }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



chksum3d does a checksum of all data in a 2-\/d array. 


\begin{DoxyParams}{Parameters}
{\em array} & The array to be checksummed\\
\hline
{\em mesg} & An identifying message \\
\hline
\end{DoxyParams}


Definition at line 1973 of file M\+O\+M\+\_\+checksums.\+F90.


\begin{DoxyCode}
1973 
1974   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(:,:,:)} :: array\textcolor{comment}{ !< The array to be checksummed}
1975   \textcolor{keywordtype}{character(len=*)} :: mesg\textcolor{comment}{  !< An identifying message}
1976 
1977   \textcolor{keywordtype}{integer} :: xs,xe,ys,ye,zs,ze,i,j,k, bc,sum1
1978   \textcolor{keywordtype}{real} :: sum
1979 
1980   xs = lbound(array,1) ; xe = ubound(array,1)
1981   ys = lbound(array,2) ; ye = ubound(array,2)
1982   zs = lbound(array,3) ; ze = ubound(array,3)
1983 
1984   sum = 0.0 ; sum1 = 0
1985   \textcolor{keywordflow}{do} i=xs,xe ; \textcolor{keywordflow}{do} j=ys,ye ; \textcolor{keywordflow}{do} k=zs,ze
1986     bc = bitcount(abs(array(i,j,k)))
1987     sum1 = sum1 + bc
1988 \textcolor{keywordflow}{  enddo} ;\textcolor{keywordflow}{ enddo} ;\textcolor{keywordflow}{ enddo}
1989 
1990   \textcolor{keyword}{call }sum\_across\_pes(sum1)
1991   sum = reproducing\_sum(array(:,:,:))
1992 
1993   \textcolor{keywordflow}{if} (is\_root\_pe()) &
1994     \textcolor{keyword}{write}(0,\textcolor{stringliteral}{'(A50,1X,ES25.16,1X,I12)'}) mesg, sum, sum1
1995 \textcolor{comment}{!    write(0,'(A40,1X,Z16.16,1X,Z16.16,1X,ES25.16,1X,I12)') &}
1996 \textcolor{comment}{!      mesg, sum, sum1, sum, sum1}
1997 
\end{DoxyCode}


The documentation for this interface was generated from the following file\+:\begin{DoxyCompactItemize}
\item 
/home/cermak/src/\+M\+O\+M6.\+devrob/src/framework/M\+O\+M\+\_\+checksums.\+F90\end{DoxyCompactItemize}
