- 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/domain_interface_attr.F90
r789 r1158 616 616 617 617 618 SUBROUTINE cxios_set_domain_prec(domain_hdl, prec) BIND(C) 619 USE ISO_C_BINDING 620 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 621 INTEGER (KIND=C_INT) , VALUE :: prec 622 END SUBROUTINE cxios_set_domain_prec 623 624 SUBROUTINE cxios_get_domain_prec(domain_hdl, prec) BIND(C) 625 USE ISO_C_BINDING 626 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 627 INTEGER (KIND=C_INT) :: prec 628 END SUBROUTINE cxios_get_domain_prec 629 630 FUNCTION cxios_is_defined_domain_prec(domain_hdl) BIND(C) 631 USE ISO_C_BINDING 632 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_prec 633 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 634 END FUNCTION cxios_is_defined_domain_prec 635 636 618 637 SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C) 619 638 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.