Changeset 2338 for XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/fieldgroup_interface_attr.F90
- Timestamp:
- 06/28/22 11:44:19 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/fieldgroup_interface_attr.F90
r1492 r2338 50 50 51 51 52 SUBROUTINE cxios_set_fieldgroup_build_workflow_graph(fieldgroup_hdl, build_workflow_graph) BIND(C) 53 USE ISO_C_BINDING 54 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 55 LOGICAL (KIND=C_BOOL) , VALUE :: build_workflow_graph 56 END SUBROUTINE cxios_set_fieldgroup_build_workflow_graph 57 58 SUBROUTINE cxios_get_fieldgroup_build_workflow_graph(fieldgroup_hdl, build_workflow_graph) BIND(C) 59 USE ISO_C_BINDING 60 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 61 LOGICAL (KIND=C_BOOL) :: build_workflow_graph 62 END SUBROUTINE cxios_get_fieldgroup_build_workflow_graph 63 64 FUNCTION cxios_is_defined_fieldgroup_build_workflow_graph(fieldgroup_hdl) BIND(C) 65 USE ISO_C_BINDING 66 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_build_workflow_graph 67 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 68 END FUNCTION cxios_is_defined_fieldgroup_build_workflow_graph 69 70 52 71 SUBROUTINE cxios_set_fieldgroup_cell_methods(fieldgroup_hdl, cell_methods, cell_methods_size) BIND(C) 53 72 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.