Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
6a297520
Commit
6a297520
authored
Mar 27, 2020
by
Sergey Kosukhin
Browse files
Update mo_cdi.f90.
parent
c8e53b72
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/mo_cdi.f90
View file @
6a297520
...
...
@@ -421,6 +421,7 @@ module mo_cdi
public
::
cdiInqNatts
public
::
cdiInqAtt
public
::
cdiInqAttLen
public
::
cdiInqAttType
public
::
cdiDelAtt
public
::
cdiCopyAtts
public
::
cdiDefAttInt
...
...
@@ -4669,6 +4670,30 @@ contains
f_result
=
lib_cdiInqAttLen
(
cdiID_dummy
,
varID_dummy
,
name_temp
)
end
function
cdiInqAttLen
function
cdiInqAttType
(
cdiID_dummy
,
varID_dummy
,
name_dummy
)
result
(
f_result
)
integer
(
c_int
)
::
f_result
integer
(
c_int
),
value
::
cdiID_dummy
integer
(
c_int
),
value
::
varID_dummy
character
(
kind
=
c_char
,
len
=
*
),
intent
(
in
)
::
name_dummy
character
(
kind
=
c_char
)
::
name_temp
(
len
(
name_dummy
)
+
1
)
integer
::
name_i
interface
function
lib_cdiInqAttType
(
cdiID_dummy
,
varID_dummy
,
name_dummy
)
bind
(
c
,&
&
name
=
'cdiInqAttType'
)
result
(
c_result
)
import
c_char
,
c_int
integer
(
c_int
)
::
c_result
integer
(
c_int
),
value
::
cdiID_dummy
integer
(
c_int
),
value
::
varID_dummy
character
(
kind
=
c_char
)
::
name_dummy
(
*
)
end
function
lib_cdiInqAttType
end
interface
do
name_i
=
1
,
len
(
name_dummy
)
name_temp
(
name_i
)
=
name_dummy
(
name_i
:
name_i
)
end
do
name_temp
(
len
(
name_dummy
)
+
1
)
=
c_null_char
f_result
=
lib_cdiInqAttType
(
cdiID_dummy
,
varID_dummy
,
name_temp
)
end
function
cdiInqAttType
function
cdiDelAtt
(
cdiID_dummy
,
varID_dummy
,
name_dummy
)
result
(
f_result
)
integer
(
c_int
)
::
f_result
integer
(
c_int
),
value
::
cdiID_dummy
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment