Ignore:
Timestamp:
01/25/17 16:25:17 (7 years ago)
Author:
yushan
Message:

initialize the branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/branch_yushan/src/interface/fortran_attr/interpolate_domain_interface_attr.F90

    r1005 r1037  
    2929      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    3030    END FUNCTION cxios_is_defined_interpolate_domain_file 
    31  
    32  
    33     SUBROUTINE cxios_set_interpolate_domain_mode(interpolate_domain_hdl, mode, mode_size) BIND(C) 
    34       USE ISO_C_BINDING 
    35       INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    36       CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode 
    37       INTEGER  (kind = C_INT)     , VALUE        :: mode_size 
    38     END SUBROUTINE cxios_set_interpolate_domain_mode 
    39  
    40     SUBROUTINE cxios_get_interpolate_domain_mode(interpolate_domain_hdl, mode, mode_size) BIND(C) 
    41       USE ISO_C_BINDING 
    42       INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    43       CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode 
    44       INTEGER  (kind = C_INT)     , VALUE        :: mode_size 
    45     END SUBROUTINE cxios_get_interpolate_domain_mode 
    46  
    47     FUNCTION cxios_is_defined_interpolate_domain_mode(interpolate_domain_hdl) BIND(C) 
    48       USE ISO_C_BINDING 
    49       LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_mode 
    50       INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    51     END FUNCTION cxios_is_defined_interpolate_domain_mode 
    5231 
    5332 
     
    8968    END FUNCTION cxios_is_defined_interpolate_domain_renormalize 
    9069 
    91  
    92     SUBROUTINE cxios_set_interpolate_domain_weight_filename(interpolate_domain_hdl, weight_filename, weight_filename_size) BIND(C) 
    93       USE ISO_C_BINDING 
    94       INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    95       CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: weight_filename 
    96       INTEGER  (kind = C_INT)     , VALUE        :: weight_filename_size 
    97     END SUBROUTINE cxios_set_interpolate_domain_weight_filename 
    98  
    99     SUBROUTINE cxios_get_interpolate_domain_weight_filename(interpolate_domain_hdl, weight_filename, weight_filename_size) BIND(C) 
    100       USE ISO_C_BINDING 
    101       INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    102       CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: weight_filename 
    103       INTEGER  (kind = C_INT)     , VALUE        :: weight_filename_size 
    104     END SUBROUTINE cxios_get_interpolate_domain_weight_filename 
    105  
    106     FUNCTION cxios_is_defined_interpolate_domain_weight_filename(interpolate_domain_hdl) BIND(C) 
    107       USE ISO_C_BINDING 
    108       LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_weight_filename 
    109       INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    110     END FUNCTION cxios_is_defined_interpolate_domain_weight_filename 
    111  
    112  
    113     SUBROUTINE cxios_set_interpolate_domain_write_weight(interpolate_domain_hdl, write_weight) BIND(C) 
    114       USE ISO_C_BINDING 
    115       INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    116       LOGICAL (KIND=C_BOOL)      , VALUE :: write_weight 
    117     END SUBROUTINE cxios_set_interpolate_domain_write_weight 
    118  
    119     SUBROUTINE cxios_get_interpolate_domain_write_weight(interpolate_domain_hdl, write_weight) BIND(C) 
    120       USE ISO_C_BINDING 
    121       INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    122       LOGICAL (KIND=C_BOOL)             :: write_weight 
    123     END SUBROUTINE cxios_get_interpolate_domain_write_weight 
    124  
    125     FUNCTION cxios_is_defined_interpolate_domain_write_weight(interpolate_domain_hdl) BIND(C) 
    126       USE ISO_C_BINDING 
    127       LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_write_weight 
    128       INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    129     END FUNCTION cxios_is_defined_interpolate_domain_write_weight 
    130  
    13170  END INTERFACE 
    13271 
Note: See TracChangeset for help on using the changeset viewer.