16 #include "../../base/base_uses.f90"
22 # define PURE_ARRAY_EQ PURE
28 CHARACTER(len=*),
PARAMETER,
PRIVATE :: moduleN =
'dbt_tas_util'
30 PUBLIC :: array_eq, swap
33 MODULE PROCEDURE swap_i8
34 MODULE PROCEDURE swap_i
38 MODULE PROCEDURE array_eq_i8
39 MODULE PROCEDURE array_eq_i
49 SUBROUTINE swap_i8(arr)
50 INTEGER(KIND=int_8),
DIMENSION(2),
INTENT(INOUT) :: arr
52 INTEGER(KIND=int_8) :: tmp
64 SUBROUTINE swap_i(arr)
65 INTEGER,
DIMENSION(2),
INTENT(INOUT) :: arr
81 pure_array_eq
FUNCTION array_eq_i(arr1, arr2)
82 INTEGER,
DIMENSION(:),
INTENT(IN) :: arr1, arr2
89 IF (
SIZE(arr1) .EQ.
SIZE(arr2)) array_eq_i = all(arr1 == arr2)
100 pure_array_eq
FUNCTION array_eq_i8(arr1, arr2)
101 INTEGER(KIND=int_8),
DIMENSION(:),
INTENT(IN) :: arr1, arr2
102 LOGICAL :: array_eq_i8
107 array_eq_i8 = .false.
108 IF (
SIZE(arr1) .EQ.
SIZE(arr2)) array_eq_i8 = all(arr1 == arr2)
often used utilities for tall-and-skinny matrices
Defines the basic variable types.
integer, parameter, public int_8
integer, parameter, public int_4
All kind of helpful little routines.