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

()

(('is_bad' 'utils_nan_sp' 2 3 4) ('is_inf' 'utils_nan_sp' 5 6 7) (
'is_nan' 'utils_nan_sp' 8 9 10) ('set_nan' 'utils_nan_sp' 11 12 13 14 15
16 17 18 19 20 21 22 23 24 25))

()

()

()

(26 '__vtab___iso_c_binding_C_funptr' 'utils_nan_sp' '' 1 ((VARIABLE
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0 TARGET VTAB) () (
DERIVED 27 0 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
28 '__vtab___iso_c_binding_C_ptr' 'utils_nan_sp' '' 1 ((VARIABLE
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0 TARGET VTAB) () (
DERIVED 29 0 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
30 '__vtab_iso_fortran_env_Lock_type' 'utils_nan_sp' '' 1 ((VARIABLE
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0 TARGET VTAB) () (
DERIVED 31 0 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
27 '__vtype___iso_c_binding_C_funptr' 'utils_nan_sp' '' 1 ((DERIVED
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 VTYPE) ((32 '_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' ())) (33 '_size' (INTEGER 8 0 0 0 INTEGER ()) () () ()
(UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) PRIVATE) (
34 '_extends' (DERIVED 27 0 0 0 DERIVED ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 POINTER) PRIVATE) (35
'_def_init' (DERIVED 36 0 0 0 DERIVED ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ARTIFICIAL POINTER)
PRIVATE) (37 '_copy' (UNKNOWN 0 38 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)) (39 '_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)) (40 '_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)
29 '__vtype___iso_c_binding_C_ptr' 'utils_nan_sp' '' 1 ((DERIVED
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 VTYPE) ((41 '_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' ())) (42 '_size' (INTEGER 8 0 0 0 INTEGER ()) () () ()
(UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) PRIVATE) (
43 '_extends' (DERIVED 29 0 0 0 DERIVED ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 POINTER) PRIVATE) (44
'_def_init' (DERIVED 45 0 0 0 DERIVED ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ARTIFICIAL POINTER)
PRIVATE) (46 '_copy' (UNKNOWN 0 47 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)) (48 '_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)) (49 '_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)
31 '__vtype_iso_fortran_env_Lock_type' 'utils_nan_sp' '' 1 ((DERIVED
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 VTYPE) ((50 '_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' ())) (51 '_size' (INTEGER 8 0 0 0 INTEGER ()) () () ()
(UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) PRIVATE) (
52 '_extends' (DERIVED 31 0 0 0 DERIVED ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 POINTER) PRIVATE) (53
'_def_init' (DERIVED 54 0 0 0 DERIVED ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ARTIFICIAL POINTER)
PRIVATE) (55 '_copy' (UNKNOWN 0 56 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)) (57 '_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)) (58 '_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_sp' 'utils_nan_sp' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) () (LOGICAL 4
0 0 0 LOGICAL ()) 59 0 (60) () 61 () () () 0 0)
3 '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 ()) 62 0 (63) () 64 () () () 0 0)
4 'is_bad_qp' 'utils_nan_qp' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) () (LOGICAL 4
0 0 0 LOGICAL ()) 65 0 (66) () 67 () () () 0 0)
5 'is_inf_sp' 'utils_nan_sp' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) () (LOGICAL 4
0 0 0 LOGICAL ()) 68 0 (69) () 70 () () () 0 0)
6 '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 ()) 71 0 (72) () 73 () () () 0 0)
7 'is_inf_qp' 'utils_nan_qp' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) () (LOGICAL 4
0 0 0 LOGICAL ()) 74 0 (75) () 76 () () () 0 0)
8 'is_nan_sp' 'utils_nan_sp' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) () (LOGICAL 4
0 0 0 LOGICAL ()) 77 0 (78 79) () 80 () () () 0 0)
9 '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 ()) 81 0 (82 83) () 84 () () () 0 0)
10 'is_nan_qp' 'utils_nan_qp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ()
(LOGICAL 4 0 0 0 LOGICAL ()) 85 0 (86 87) () 88 () () () 0 0)
11 'set_nan_sp_4d' 'utils_nan_sp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 89 0 (90 91) () 0 () () () 0 0)
12 'set_nan_sp_3d' 'utils_nan_sp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 92 0 (93 94) () 0 () () () 0 0)
13 'set_nan_sp_2d' 'utils_nan_sp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 95 0 (96 97) () 0 () () () 0 0)
14 'set_nan_sp_1d' 'utils_nan_sp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 98 0 (99 100) () 0 () () () 0 0)
15 'set_nan_sp_0d' 'utils_nan_sp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 101 0 (102 103) () 0 () () () 0 0)
16 '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 ()) 104 0 (105 106) () 0 () () () 0 0)
17 '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 ()) 107 0 (108 109) () 0 () () () 0 0)
18 '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 ()) 110 0 (111 112) () 0 () () () 0 0)
19 '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 ()) 113 0 (114 115) () 0 () () () 0 0)
20 '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 ()) 116 0 (117 118) () 0 () () () 0 0)
21 'set_nan_qp_4d' 'utils_nan_qp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 119 0 (120 121) () 0 () () () 0 0)
22 'set_nan_qp_3d' 'utils_nan_qp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 122 0 (123 124) () 0 () () () 0 0)
23 'set_nan_qp_2d' 'utils_nan_qp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 125 0 (126 127) () 0 () () () 0 0)
24 'set_nan_qp_1d' 'utils_nan_qp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 128 0 (129 130) () 0 () () () 0 0)
25 'set_nan_qp_0d' 'utils_nan_qp' '' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) () (UNKNOWN 0 0
0 0 UNKNOWN ()) 131 0 (132 133) () 0 () () () 0 0)
36 'C_funptr' '__iso_c_binding' '' 1 ((DERIVED UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 IS_BIND_C IS_C_INTEROP PRIVATE_COMP) (
(134 'c_address' (INTEGER 8 0 1 0 INTEGER ()) () () () (UNKNOWN-FL
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) PRIVATE ())) PRIVATE (
DERIVED 36 0 1 1 VOID ()) 0 0 () () 0 () () () 2 44 0)
38 '__copy___iso_c_binding_C_funptr' 'utils_nan_sp' '' 135 ((PROCEDURE
UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 ARTIFICIAL SUBROUTINE
ELEMENTAL PURE ALWAYS_EXPLICIT) () (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 (
136 137) () 0 () () () 0 0)
45 'C_ptr' '__iso_c_binding' '' 1 ((DERIVED UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN UNKNOWN 0 0 IS_BIND_C IS_C_INTEROP PRIVATE_COMP) ((138 'c_address'
(INTEGER 8 0 1 0 INTEGER ()) () () () (UNKNOWN-FL UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) PRIVATE ())) PRIVATE (DERIVED 45 0 1 1
VOID ()) 0 0 () () 0 () () () 2 42 0)
47 '__copy___iso_c_binding_C_ptr' 'utils_nan_sp' '' 139 ((PROCEDURE
UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 ARTIFICIAL SUBROUTINE
ELEMENTAL PURE ALWAYS_EXPLICIT) () (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 (
140 141) () 0 () () () 0 0)
54 '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)
56 '__copy_iso_fortran_env_Lock_type' 'utils_nan_sp' '' 142 ((PROCEDURE
UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 ARTIFICIAL SUBROUTINE
ELEMENTAL PURE ALWAYS_EXPLICIT) () (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 (
143 144) () 0 () () () 0 0)
60 'x' '' '' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ()
(REAL 4 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
61 'is_bad' '' '' 59 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0
() () 0 () () () 0 0)
63 'x' '' '' 62 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ()
(REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
64 'is_bad' '' '' 62 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0
() () 0 () () () 0 0)
66 'x' '' '' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ()
(REAL 16 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
67 'is_bad' '' '' 65 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0
() () 0 () () () 0 0)
69 'x' '' '' 68 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 TARGET
DUMMY) () (REAL 4 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
70 'is_inf' '' '' 68 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0
() () 0 () () () 0 0)
72 'x' '' '' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 TARGET
DUMMY) () (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
73 'is_inf' '' '' 71 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0
() () 0 () () () 0 0)
75 'x' '' '' 74 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 TARGET
DUMMY) () (REAL 16 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
76 'is_inf' '' '' 74 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0
() () 0 () () () 0 0)
78 'x' '' '' 77 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 TARGET
DUMMY) () (REAL 4 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
79 'signal' '' '' 77 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
80 'is_nan' '' '' 77 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0
() () 0 () () () 0 0)
82 'x' '' '' 81 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 TARGET
DUMMY) () (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
83 'signal' '' '' 81 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
84 'is_nan' '' '' 81 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0
() () 0 () () () 0 0)
86 'x' '' '' 85 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 TARGET
DUMMY) () (REAL 16 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
87 'signal' '' '' 85 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
88 'is_nan' '' '' 85 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
UNKNOWN 0 0 RESULT ALWAYS_EXPLICIT) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0
() () 0 () () () 0 0)
90 'x' '' '' 89 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION TARGET DUMMY) () (REAL 4 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)
91 'signal' '' '' 89 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
93 'x' '' '' 92 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION TARGET DUMMY) () (REAL 4 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)
94 'signal' '' '' 92 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
96 'x' '' '' 95 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION TARGET DUMMY) () (REAL 4 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)
97 'signal' '' '' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
99 'x' '' '' 98 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION TARGET DUMMY) () (REAL 4 0 0 0 REAL ()) 0 0 () (1 0
ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1' ()) ()) 0 ()
() () 0 0)
100 'signal' '' '' 98 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
102 'x' '' '' 101 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 TARGET
DUMMY) () (REAL 4 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
103 'signal' '' '' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
105 'x' '' '' 104 ((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)
106 'signal' '' '' 104 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
108 'x' '' '' 107 ((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)
109 'signal' '' '' 107 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
111 'x' '' '' 110 ((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)
112 'signal' '' '' 110 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
114 'x' '' '' 113 ((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)
115 'signal' '' '' 113 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
117 'x' '' '' 116 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 TARGET
DUMMY) () (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
118 'signal' '' '' 116 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
120 'x' '' '' 119 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION TARGET DUMMY) () (REAL 16 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)
121 'signal' '' '' 119 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
123 'x' '' '' 122 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION TARGET DUMMY) () (REAL 16 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)
124 'signal' '' '' 122 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
126 'x' '' '' 125 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION TARGET DUMMY) () (REAL 16 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)
127 'signal' '' '' 125 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
129 'x' '' '' 128 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
DIMENSION TARGET DUMMY) () (REAL 16 0 0 0 REAL ()) 0 0 () (1 0
ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1' ()) ()) 0 ()
() () 0 0)
130 'signal' '' '' 128 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
132 'x' '' '' 131 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 TARGET
DUMMY) () (REAL 16 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
133 'signal' '' '' 131 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
OPTIONAL DUMMY) () (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
136 'src' '' '' 135 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL DUMMY) () (DERIVED 36 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
137 'dst' '' '' 135 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL DUMMY) () (DERIVED 36 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
140 'src' '' '' 139 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL DUMMY) () (DERIVED 45 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
141 'dst' '' '' 139 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL DUMMY) () (DERIVED 45 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
143 'src' '' '' 142 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL DUMMY) () (DERIVED 54 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
144 'dst' '' '' 142 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
ARTIFICIAL DUMMY) () (DERIVED 54 0 0 0 DERIVED ()) 0 0 () () 0 () () ()
0 0)
)

('__vtab___iso_c_binding_C_funptr' 0 26 '__vtab___iso_c_binding_C_ptr' 0
28 '__vtab_iso_fortran_env_Lock_type' 0 30
'__vtype___iso_c_binding_C_funptr' 0 27 '__vtype___iso_c_binding_C_ptr'
0 29 '__vtype_iso_fortran_env_Lock_type' 0 31)
