- Timestamp:
- 06/06/17 17:58:16 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_olga/src/interface/fortran_attr/expand_domain_interface_attr.F90
r981 r1158 9 9 INTERFACE 10 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 SUBROUTINE cxios_set_expand_domain_i_periodic(expand_domain_hdl, i_periodic) BIND(C) 13 USE ISO_C_BINDING 14 INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl 15 LOGICAL (KIND=C_BOOL) , VALUE :: i_periodic 16 END SUBROUTINE cxios_set_expand_domain_i_periodic 17 18 SUBROUTINE cxios_get_expand_domain_i_periodic(expand_domain_hdl, i_periodic) BIND(C) 19 USE ISO_C_BINDING 20 INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl 21 LOGICAL (KIND=C_BOOL) :: i_periodic 22 END SUBROUTINE cxios_get_expand_domain_i_periodic 23 24 FUNCTION cxios_is_defined_expand_domain_i_periodic(expand_domain_hdl) BIND(C) 25 USE ISO_C_BINDING 26 LOGICAL(kind=C_BOOL) :: cxios_is_defined_expand_domain_i_periodic 27 INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl 28 END FUNCTION cxios_is_defined_expand_domain_i_periodic 29 30 31 SUBROUTINE cxios_set_expand_domain_j_periodic(expand_domain_hdl, j_periodic) BIND(C) 32 USE ISO_C_BINDING 33 INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl 34 LOGICAL (KIND=C_BOOL) , VALUE :: j_periodic 35 END SUBROUTINE cxios_set_expand_domain_j_periodic 36 37 SUBROUTINE cxios_get_expand_domain_j_periodic(expand_domain_hdl, j_periodic) BIND(C) 38 USE ISO_C_BINDING 39 INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl 40 LOGICAL (KIND=C_BOOL) :: j_periodic 41 END SUBROUTINE cxios_get_expand_domain_j_periodic 42 43 FUNCTION cxios_is_defined_expand_domain_j_periodic(expand_domain_hdl) BIND(C) 44 USE ISO_C_BINDING 45 LOGICAL(kind=C_BOOL) :: cxios_is_defined_expand_domain_j_periodic 46 INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl 47 END FUNCTION cxios_is_defined_expand_domain_j_periodic 48 11 49 12 50 SUBROUTINE cxios_set_expand_domain_order(expand_domain_hdl, order) BIND(C)
Note: See TracChangeset
for help on using the changeset viewer.