GFORTRAN module version '15' created from utils_nan_dp.f90
(() () () () () () () () () () () () () () () () () () () () () () () ()
() () ())

()

(('is_bad' 'utils_nan_dp' 2) ('is_inf' 'utils_nan_dp' 3) ('is_nan'
'utils_nan_dp' 4) ('set_nan' 'utils_nan_dp' 5 6 7 8 9))

()

()

()

(10 '__def_init___iso_c_binding_C_funptr' 'utils_nan_dp' '' 1 ((
VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0
ARTIFICIAL TARGET) () (DERIVED 11 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
12 '__def_init___iso_c_binding_C_ptr' 'utils_nan_dp' '' 1 ((VARIABLE
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0 ARTIFICIAL TARGET)
() (DERIVED 13 0 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
14 '__def_init_iso_fortran_env_Lock_type' 'utils_nan_dp' '' 1 ((
VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0
ARTIFICIAL TARGET) () (DERIVED 15 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
16 '__vtab___iso_c_binding_C_funptr' 'utils_nan_dp' '' 1 ((VARIABLE
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0 TARGET VTAB) () (
DERIVED 17 0 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
18 '__vtab___iso_c_binding_C_ptr' 'utils_nan_dp' '' 1 ((VARIABLE
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0 TARGET VTAB) () (
DERIVED 19 0 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
20 '__vtab_iso_fortran_env_Lock_type' 'utils_nan_dp' '' 1 ((VARIABLE
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0 TARGET VTAB) () (
DERIVED 21 0 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
17 '__vtype___iso_c_binding_C_funptr' 'utils_nan_dp' '' 1 ((DERIVED
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 VTYPE) ((22 '_hash' (
INTEGER 4 0 0 0 INTEGER ()) () () () (UNKNOWN-FL UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) PRIVATE (CONSTANT (INTEGER 4 0 0 0
INTEGER ()) 0 '0' ())) (23 '_size' (INTEGER 8 0 0 0 INTEGER ()) () () ()
(UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) PRIVATE) (
24 '_extends' (DERIVED 17 0 0 0 DERIVED ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 POINTER) PRIVATE) (25
'_def_init' (DERIVED 11 0 0 0 DERIVED ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ARTIFICIAL POINTER)
PRIVATE) (26 '_copy' (UNKNOWN 0 27 0 0 UNKNOWN ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 SUBROUTINE ELEMENTAL
PURE ALWAYS_EXPLICIT PROC_POINTER) PRIVATE (UNKNOWN-ACCESS OVERRIDABLE
PASS SPECIFIC PPC '' 0)) (28 '_final' (UNKNOWN 0 0 0 0 UNKNOWN ()) () ()
() (UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL PROC_POINTER) PRIVATE (NULL (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 ())
(UNKNOWN-ACCESS OVERRIDABLE PASS SPECIFIC PPC '' 0)) (29 '_deallocate' (
UNKNOWN 0 0 0 0 UNKNOWN ()) () () () (PROCEDURE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 SUBROUTINE PROC_POINTER) PRIVATE (
UNKNOWN-ACCESS OVERRIDABLE PASS SPECIFIC PPC '' 0))) UNKNOWN-ACCESS (
UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0 0)
19 '__vtype___iso_c_binding_C_ptr' 'utils_nan_dp' '' 1 ((DERIVED
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 VTYPE) ((30 '_hash' (
INTEGER 4 0 0 0 INTEGER ()) () () () (UNKNOWN-FL UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) PRIVATE (CONSTANT (INTEGER 4 0 0 0
INTEGER ()) 0 '0' ())) (31 '_size' (INTEGER 8 0 0 0 INTEGER ()) () () ()
(UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) PRIVATE) (
32 '_extends' (DERIVED 19 0 0 0 DERIVED ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 POINTER) PRIVATE) (33
'_def_init' (DERIVED 13 0 0 0 DERIVED ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ARTIFICIAL POINTER)
PRIVATE) (34 '_copy' (UNKNOWN 0 35 0 0 UNKNOWN ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 SUBROUTINE ELEMENTAL
PURE ALWAYS_EXPLICIT PROC_POINTER) PRIVATE (UNKNOWN-ACCESS OVERRIDABLE
PASS SPECIFIC PPC '' 0)) (36 '_final' (UNKNOWN 0 0 0 0 UNKNOWN ()) () ()
() (UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL PROC_POINTER) PRIVATE (NULL (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 ())
(UNKNOWN-ACCESS OVERRIDABLE PASS SPECIFIC PPC '' 0)) (37 '_deallocate' (
UNKNOWN 0 0 0 0 UNKNOWN ()) () () () (PROCEDURE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 SUBROUTINE PROC_POINTER) PRIVATE (
UNKNOWN-ACCESS OVERRIDABLE PASS SPECIFIC PPC '' 0))) UNKNOWN-ACCESS (
UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0 0)
21 '__vtype_iso_fortran_env_Lock_type' 'utils_nan_dp' '' 1 ((DERIVED
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 VTYPE) ((38 '_hash' (
INTEGER 4 0 0 0 INTEGER ()) () () () (UNKNOWN-FL UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) PRIVATE (CONSTANT (INTEGER 4 0 0 0
INTEGER ()) 0 '0' ())) (39 '_size' (INTEGER 8 0 0 0 INTEGER ()) () () ()
(UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) PRIVATE) (
40 '_extends' (DERIVED 21 0 0 0 DERIVED ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 POINTER) PRIVATE) (41
'_def_init' (DERIVED 15 0 0 0 DERIVED ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ARTIFICIAL POINTER)
PRIVATE) (42 '_copy' (UNKNOWN 0 43 0 0 UNKNOWN ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 SUBROUTINE ELEMENTAL
PURE ALWAYS_EXPLICIT PROC_POINTER) PRIVATE (UNKNOWN-ACCESS OVERRIDABLE
PASS SPECIFIC PPC '' 0)) (44 '_final' (UNKNOWN 0 0 0 0 UNKNOWN ()) () ()
() (UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL PROC_POINTER) PRIVATE (NULL (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 ())
(UNKNOWN-ACCESS OVERRIDABLE PASS SPECIFIC PPC '' 0)) (45 '_deallocate' (
UNKNOWN 0 0 0 0 UNKNOWN ()) () () () (PROCEDURE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 SUBROUTINE PROC_POINTER) PRIVATE (
UNKNOWN-ACCESS OVERRIDABLE PASS SPECIFIC PPC '' 0))) UNKNOWN-ACCESS (
UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0 0)
2 'is_bad_dp' 'utils_nan_dp' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) () (LOGICAL 4
0 0 0 LOGICAL ()) 46 0 (47) () 48 () () () 0 0)
3 'is_inf_dp' 'utils_nan_dp' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) () (LOGICAL 4
0 0 0 LOGICAL ()) 49 0 (50) () 51 () () () 0 0)
4 'is_nan_dp' 'utils_nan_dp' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) () (LOGICAL 4
0 0 0 LOGICAL ()) 52 0 (53 54) () 55 () () () 0 0)
5 'set_nan_dp_4d' 'utils_nan_dp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 56 0 (57 58) () 0 () () () 0 0)
6 'set_nan_dp_3d' 'utils_nan_dp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 59 0 (60 61) () 0 () () () 0 0)
7 'set_nan_dp_2d' 'utils_nan_dp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 62 0 (63 64) () 0 () () () 0 0)
8 'set_nan_dp_1d' 'utils_nan_dp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 65 0 (66 67) () 0 () () () 0 0)
9 'set_nan_dp_0d' 'utils_nan_dp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 68 0 (69 70) () 0 () () () 0 0)
11 'C_funptr' '__iso_c_binding' '' 1 ((DERIVED UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 IS_BIND_C IS_C_INTEROP PRIVATE_COMP) (
(71 'c_address' (INTEGER 8 0 1 0 INTEGER ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) PRIVATE ())) PRIVATE (
DERIVED 11 0 1 1 VOID ()) 0 0 () () 0 () () () 2 44 0)
13 'C_ptr' '__iso_c_binding' '' 1 ((DERIVED UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0 IS_BIND_C IS_C_INTEROP PRIVATE_COMP) ((72 'c_address'
(INTEGER 8 0 1 0 INTEGER ()) () () () (UNKNOWN-FL UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) PRIVATE ())) PRIVATE (DERIVED 13 0 1 1
VOID ()) 0 0 () () 0 () () () 2 42 0)
15 'Lock_type' 'iso_fortran_env' '' 1 ((DERIVED UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 PRIVATE_COMP ZERO_COMP) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 0 0 () () 0 () () () 1 29 0)
27 '__copy___iso_c_binding_C_funptr' 'utils_nan_dp' '' 73 ((PROCEDURE
UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 ARTIFICIAL SUBROUTINE
ELEMENTAL PURE ALWAYS_EXPLICIT) () (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 (74
75) () 0 () () () 0 0)
35 '__copy___iso_c_binding_C_ptr' 'utils_nan_dp' '' 76 ((PROCEDURE
UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 ARTIFICIAL SUBROUTINE
ELEMENTAL PURE ALWAYS_EXPLICIT) () (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 (77
78) () 0 () () () 0 0)
43 '__copy_iso_fortran_env_Lock_type' 'utils_nan_dp' '' 79 ((PROCEDURE
UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 ARTIFICIAL SUBROUTINE
ELEMENTAL PURE ALWAYS_EXPLICIT) () (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 (80
81) () 0 () () () 0 0)
47 'x' '' '' 46 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ()
(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
48 'is_bad' '' '' 46 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0
() () 0 () () () 0 0)
50 'x' '' '' 49 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 TARGET
DUMMY) () (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
51 'is_inf' '' '' 49 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0
() () 0 () () () 0 0)
53 'x' '' '' 52 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 TARGET
DUMMY) () (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
54 'signal' '' '' 52 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
55 'is_nan' '' '' 52 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0
() () 0 () () () 0 0)
57 'x' '' '' 56 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION TARGET DUMMY) () (REAL 8 0 0 0 REAL ()) 0 0 () (4 0
ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1' ()) () (
CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1' ()) () (CONSTANT (INTEGER 4
0 0 0 INTEGER ()) 0 '1' ()) () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0
'1' ()) ()) 0 () () () 0 0)
58 'signal' '' '' 56 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
60 'x' '' '' 59 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION TARGET DUMMY) () (REAL 8 0 0 0 REAL ()) 0 0 () (3 0
ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1' ()) () (
CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1' ()) () (CONSTANT (INTEGER 4
0 0 0 INTEGER ()) 0 '1' ()) ()) 0 () () () 0 0)
61 'signal' '' '' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
63 'x' '' '' 62 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION TARGET DUMMY) () (REAL 8 0 0 0 REAL ()) 0 0 () (2 0
ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1' ()) () (
CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1' ()) ()) 0 () () () 0 0)
64 'signal' '' '' 62 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
66 'x' '' '' 65 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION TARGET DUMMY) () (REAL 8 0 0 0 REAL ()) 0 0 () (1 0
ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1' ()) ()) 0 ()
() () 0 0)
67 'signal' '' '' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
69 'x' '' '' 68 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 TARGET
DUMMY) () (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
70 'signal' '' '' 68 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
74 'src' '' '' 73 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL DUMMY) () (DERIVED 11 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
75 'dst' '' '' 73 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL DUMMY) () (DERIVED 11 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
77 'src' '' '' 76 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL DUMMY) () (DERIVED 13 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
78 'dst' '' '' 76 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL DUMMY) () (DERIVED 13 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
80 'src' '' '' 79 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL DUMMY) () (DERIVED 15 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
81 'dst' '' '' 79 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL DUMMY) () (DERIVED 15 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
)

('__def_init___iso_c_binding_C_funptr' 0 10
'__def_init___iso_c_binding_C_ptr' 0 12
'__def_init_iso_fortran_env_Lock_type' 0 14
'__vtab___iso_c_binding_C_funptr' 0 16 '__vtab___iso_c_binding_C_ptr' 0
18 '__vtab_iso_fortran_env_Lock_type' 0 20
'__vtype___iso_c_binding_C_funptr' 0 17 '__vtype___iso_c_binding_C_ptr'
0 19 '__vtype_iso_fortran_env_Lock_type' 0 21)
