checksum_mod Module Reference

Data Types
interface	adler32

Functions/Subroutines
integer function	double_array_checksum (a, siz1, siz2)

Variables
integer, parameter	root = 65521
integer, parameter	two_power_16 = 65536

Function/Subroutine Documentation

double_array_checksum()

integer function checksum_mod::double_array_checksum	(	double precision, dimension(siz2,siz1), intent(in), target	a,
		integer, intent(in)	siz1,
		integer, intent(in)	siz2 )

Parameters

[in]	siz2	sizes
[in]	a	2D array of real values

Returns

return value, Adler 32 checksum of A

Definition at line 52 of file node_checksum.F.

           USE iso_c_binding
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
          IMPLICIT NONE
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
          INTEGER, INTENT(IN) :: SIZ1,SIZ2 !< sizes
          DOUBLE PRECISION, TARGET, INTENT(IN) :: A(SIZ2,SIZ1) !< 2D array of real values
          INTEGER :: CHECKSUM !< return value, Adler 32 checksum of A
C-----------------------------------------------
C   L o c a l  V a r i a b l e s
C-----------------------------------------------
          integer(c_size_t) :: len
C-----------------------------------------------
          len = siz2*siz1
          len = len * sizeof(a(1,1))
          call adler32(c_loc(a), len, checksum)

Variable Documentation

root

integer, parameter checksum_mod::root = 65521

Definition at line 31 of file node_checksum.F.

        INTEGER, PARAMETER :: ROOT = 65521

two_power_16

integer, parameter checksum_mod::two_power_16 = 65536

Definition at line 32 of file node_checksum.F.

        INTEGER, PARAMETER :: TWO_POWER_16 = 65536