Ignore:
Timestamp:
02/14/12 15:36:14 (12 years ago)
Author:
ymipsl
Message:

suppress old fortran interface

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/fortran/idomain.F90

    r286 r312  
    66   USE DOMAINGROUP_INTERFACE 
    77    
    8    TYPE XDomainHandle 
    9       INTEGER(kind = C_INTPTR_T) :: daddr 
    10    END TYPE XDomainHandle 
    11     
    12    TYPE XDomainGroupHandle 
    13       INTEGER(kind = C_INTPTR_T) :: daddr 
    14    END TYPE XDomainGroupHandle 
    15  
    168   TYPE txios(domain) 
    179      INTEGER(kind = C_INTPTR_T) :: daddr 
    … …  
    2214   END TYPE txios(domaingroup) 
    2315    
    24    !---------------------------------------------------------------------------- 
    25    INTERFACE set_domain_attributes 
    26       MODULE PROCEDURE set_domain_attributes_id,set_domain_attributes_hdl 
    27    END INTERFACE   
    28     
    29    INTERFACE set_domain_group_attributes 
    30       MODULE PROCEDURE set_domaingroup_attributes_id,set_domaingroup_attributes_hdl 
    31    END INTERFACE   
    32    !---------------------------------------------------------------------------- 
    3316    
    3417   CONTAINS ! Fonctions disponibles pour les utilisateurs. 
    … …  
    3821   ( domaingroup_id, name, standard_name, long_name, domain_group_ref, ni_glo, nj_glo, ibegin, iend,       & 
    3922     ni, jbegin, jend, nj, mask, data_dim, data_ni, data_nj, data_ibegin, data_jbegin,                     & 
    40      zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, zoom_ni_loc, zoom_nj_loc, zoom_ibegin_loc,                & 
    41      zoom_jbegin_loc, data_n_index, data_i_index, data_j_index, lonvalue, latvalue) 
     23     zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, data_n_index, data_i_index, data_j_index,                 & 
     24     lonvalue, latvalue) 
    4225      IMPLICIT NONE 
    4326      TYPE(txios(domaingroup))                              :: domaingroup_hdl 
    … …  
    6548      INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ibegin 
    6649      INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_jbegin 
    67       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ni_loc 
    68       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_nj_loc 
    69       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc 
    70       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc 
    7150      INTEGER                        , OPTIONAL, INTENT(IN) :: data_n_index 
    7251      INTEGER       , dimension(*)   , OPTIONAL, INTENT(IN) :: data_i_index(:) 
    … …  
    7958   ( domaingroup_hdl, name, standard_name, long_name, domain_group_ref, ni_glo, nj_glo, ibegin, iend,      & 
    8059     ni, jbegin, jend, nj, mask, data_dim, data_ni, data_nj, data_ibegin, data_jbegin,                     & 
    81      zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, zoom_ni_loc, zoom_nj_loc, zoom_ibegin_loc,                & 
    82      zoom_jbegin_loc, data_n_index, data_i_index, data_j_index, lonvalue, latvalue) 
     60     zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, data_n_index, data_i_index, data_j_index,                 & 
     61     lonvalue, latvalue) 
    8362 
    8463   END SUBROUTINE xios(set_domaingroup_attr) 
    … …  
    8766   ( domaingroup_hdl,name, standard_name, long_name, domain_group_ref, ni_glo, nj_glo, ibegin, iend,       & 
    8867     ni, jbegin, jend, nj, mask, data_dim, data_ni, data_nj, data_ibegin, data_jbegin,                     & 
    89      zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, zoom_ni_loc, zoom_nj_loc, zoom_ibegin_loc,                & 
    90      zoom_jbegin_loc, data_n_index, data_i_index, data_j_index, lonvalue, latvalue) 
     68     zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, data_n_index, data_i_index,                               & 
     69     data_j_index, lonvalue, latvalue) 
    9170      IMPLICIT NONE 
    9271      TYPE(txios(domaingroup))             , INTENT(IN) :: domaingroup_hdl 
    … …  
    11392      INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ibegin 
    11493      INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_jbegin 
    115       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ni_loc 
    116       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_nj_loc 
    117       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc 
    118       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc 
    11994      INTEGER                          , OPTIONAL, INTENT(IN) :: data_n_index 
    12095      INTEGER       , dimension(*)     , OPTIONAL, INTENT(IN) :: data_i_index(:) 
    … …  
    12398      REAL(kind = 8), dimension(*)     , OPTIONAL, INTENT(IN) :: latvalue(:)    
    12499 
    125       CALL xios(set_domaingroup_attr_hdl_)                                                                  & 
    126    ( domaingroup_hdl,name, standard_name, long_name, domain_group_ref, ni_glo, nj_glo, ibegin, iend,       & 
     100      CALL xios(set_domaingroup_attr_hdl_)                                                               & 
     101   ( domaingroup_hdl,name, standard_name, long_name, domain_group_ref, ni_glo, nj_glo, ibegin, iend,     & 
    127102     ni, jbegin, jend, nj, mask, data_dim, data_ni, data_nj, data_ibegin, data_jbegin,                   & 
    128      zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, zoom_ni_loc, zoom_nj_loc, zoom_ibegin_loc,                 & 
    129      zoom_jbegin_loc, data_n_index, data_i_index, data_j_index, lonvalue, latvalue) 
     103     zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, data_n_index, data_i_index, data_j_index,               & 
     104     lonvalue, latvalue) 
    130105 
    131106    END SUBROUTINE xios(set_domaingroup_attr_hdl) 
    … …  
    134109   ( domaingroup_hdl, name_, standard_name_, long_name_, domain_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_,       & 
    135110     ni_, jbegin_, jend_, nj_, mask_, data_dim_, data_ni_, data_nj_, data_ibegin_, data_jbegin_,                   & 
    136      zoom_ni_, zoom_nj_, zoom_ibegin_, zoom_jbegin_, zoom_ni_loc_, zoom_nj_loc_, zoom_ibegin_loc_,                 & 
    137      zoom_jbegin_loc_, data_n_index_, data_i_index_, data_j_index_, lonvalue_, latvalue_) 
     111     zoom_ni_, zoom_nj_, zoom_ibegin_, zoom_jbegin_, data_n_index_, data_i_index_, data_j_index_,                  & 
     112     lonvalue_, latvalue_) 
    138113      IMPLICIT NONE 
    139114      TYPE(txios(domaingroup))             , INTENT(IN) :: domaingroup_hdl 
    … …  
    161136      INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ibegin_ 
    162137      INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_jbegin_ 
    163       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ni_loc_ 
    164       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_nj_loc_ 
    165       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_ 
    166       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_ 
    167138      INTEGER                          , OPTIONAL, INTENT(IN) :: data_n_index_ 
    168139      INTEGER       , dimension(*)     , OPTIONAL, INTENT(IN) :: data_i_index_(:) 
    … …  
    240211         CALL cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_) 
    241212      END IF 
    242       IF (PRESENT(zoom_ni_loc_))      THEN 
    243          CALL cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_) 
    244       END IF    
    245       IF (PRESENT(zoom_nj_loc_))      THEN 
    246          CALL cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_) 
    247       END IF 
    248       IF (PRESENT(zoom_ibegin_loc_))  THEN 
    249          CALL cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_) 
    250       END IF 
    251       IF (PRESENT(zoom_jbegin_loc_))  THEN 
    252          CALL cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_) 
    253       END IF 
     213 
    254214      IF (PRESENT(data_n_index_))     THEN 
    255215         CALL cxios_set_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_) 
    … …  
    274234   ( domain_id, name, standard_name, long_name, domain_group_ref, ni_glo, nj_glo, ibegin, iend,    & 
    275235     ni, jbegin, jend, nj, mask, data_dim, data_ni, data_nj, data_ibegin, data_jbegin,             & 
    276      zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, zoom_ni_loc, zoom_nj_loc, zoom_ibegin_loc,        & 
    277      zoom_jbegin_loc, data_n_index, data_i_index, data_j_index, lonvalue, latvalue) 
    278       IMPLICIT NONE 
     236     zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, data_n_index, data_i_index, data_j_index,         & 
     237     lonvalue, latvalue) 
     238      IMPLICIT NONE 
     239      
    279240      TYPE(txios(domain))                                   :: domain_hdl 
    280241      CHARACTER(len = *)                       , INTENT(IN) :: domain_id 
    … …  
    301262      INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ibegin 
    302263      INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_jbegin 
    303       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ni_loc 
    304       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_nj_loc 
    305       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc 
    306       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc 
    307264      INTEGER                        , OPTIONAL, INTENT(IN) :: data_n_index 
    308265      INTEGER       , dimension(*)   , OPTIONAL, INTENT(IN) :: data_i_index(:) 
    … …  
    312269  
    313270      CALL xios(get_domain_handle)(domain_id,domain_hdl) 
    314       CALL xios(set_domain_attr_hdl_)                                                                     & 
     271      CALL xios(set_domain_attr_hdl_)                                                               & 
    315272   ( domain_hdl, name, standard_name, long_name, domain_group_ref, ni_glo, nj_glo, ibegin, iend,    & 
    316273     ni, jbegin, jend, nj, mask, data_dim, data_ni, data_nj, data_ibegin, data_jbegin,              & 
    317      zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, zoom_ni_loc, zoom_nj_loc, zoom_ibegin_loc,         & 
    318      zoom_jbegin_loc, data_n_index, data_i_index, data_j_index, lonvalue, latvalue) 
     274     zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, data_n_index, data_i_index, data_j_index,          & 
     275     lonvalue, latvalue) 
    319276 
    320277   END SUBROUTINE xios(set_domain_attr) 
    321278 
    322279 
    323    SUBROUTINE xios(set_domain_attr_hdl)                                                             & 
     280   SUBROUTINE xios(set_domain_attr_hdl)                                                            & 
    324281   ( domain_hdl,name, standard_name, long_name, domain_group_ref, ni_glo, nj_glo, ibegin, iend,    & 
    325282     ni, jbegin, jend, nj, mask, data_dim, data_ni, data_nj, data_ibegin, data_jbegin,             & 
    326      zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, zoom_ni_loc, zoom_nj_loc, zoom_ibegin_loc,        & 
    327      zoom_jbegin_loc, data_n_index, data_i_index, data_j_index, lonvalue, latvalue) 
    328       IMPLICIT NONE 
     283     zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, data_n_index, data_i_index,                       & 
     284     data_j_index, lonvalue, latvalue) 
     285      IMPLICIT NONE 
     286      
    329287      TYPE(txios(domain))                       , INTENT(IN) :: domain_hdl 
    330288      CHARACTER(len = *)               , OPTIONAL, INTENT(IN) :: name 
    … …  
    350308      INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ibegin 
    351309      INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_jbegin 
    352       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ni_loc 
    353       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_nj_loc 
    354       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc 
    355       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc 
    356310      INTEGER                          , OPTIONAL, INTENT(IN) :: data_n_index 
    357311      INTEGER       , dimension(*)     , OPTIONAL, INTENT(IN) :: data_i_index(:) 
    … …  
    363317   ( domain_hdl,name, standard_name, long_name, domain_group_ref, ni_glo, nj_glo, ibegin, iend,   & 
    364318     ni, jbegin, jend, nj, mask, data_dim, data_ni, data_nj, data_ibegin, data_jbegin,            & 
    365      zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, zoom_ni_loc, zoom_nj_loc, zoom_ibegin_loc,       & 
    366      zoom_jbegin_loc, data_n_index, data_i_index, data_j_index, lonvalue, latvalue) 
     319     zoom_ni, zoom_nj, zoom_ibegin, zoom_jbegin, data_n_index, data_i_index, data_j_index,        & 
     320     lonvalue, latvalue) 
    367321      
    368322   END SUBROUTINE xios(set_domain_attr_hdl) 
    369323        
    370    SUBROUTINE xios(set_domain_attr_hdl_)                                                                  & 
     324   SUBROUTINE xios(set_domain_attr_hdl_)                                                                 & 
    371325   ( domain_hdl,name_, standard_name_, long_name_, domain_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_,  & 
    372326     ni_, jbegin_, jend_, nj_, mask_, data_dim_, data_ni_, data_nj_, data_ibegin_, data_jbegin_,         & 
    373      zoom_ni_, zoom_nj_, zoom_ibegin_, zoom_jbegin_, zoom_ni_loc_, zoom_nj_loc_, zoom_ibegin_loc_,       & 
    374      zoom_jbegin_loc_, data_n_index_, data_i_index_, data_j_index_, lonvalue_, latvalue_) 
     327     zoom_ni_, zoom_nj_, zoom_ibegin_, zoom_jbegin_, data_n_index_, data_i_index_, data_j_index_,        & 
     328     lonvalue_, latvalue_) 
     329 
    375330      IMPLICIT NONE 
    376331      TYPE(txios(domain))                       , INTENT(IN) :: domain_hdl 
    … …  
    398353      INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ibegin_ 
    399354      INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_jbegin_ 
    400       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ni_loc_ 
    401       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_nj_loc_ 
    402       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_ 
    403       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_ 
    404355      INTEGER                          , OPTIONAL, INTENT(IN) :: data_n_index_ 
    405356      INTEGER       , dimension(*)     , OPTIONAL, INTENT(IN) :: data_i_index_(:) 
    … …  
    476427         CALL cxios_set_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_) 
    477428      END IF 
    478       IF (PRESENT(zoom_ni_loc_))      THEN 
    479          CALL cxios_set_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_) 
    480       END IF    
    481       IF (PRESENT(zoom_nj_loc_))      THEN 
    482          CALL cxios_set_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_) 
    483       END IF 
    484       IF (PRESENT(zoom_ibegin_loc_))  THEN 
    485          CALL cxios_set_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_) 
    486       END IF 
    487       IF (PRESENT(zoom_jbegin_loc_))  THEN 
    488          CALL cxios_set_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_) 
    489       END IF 
    490429      IF (PRESENT(data_n_index_))     THEN 
    491430         CALL cxios_set_domain_data_n_index(domain_hdl%daddr, data_n_index_) 
    … …  
    541480      xios(is_valid_domaingroup) = val 
    542481   END FUNCTION  xios(is_valid_domaingroup) 
    543  
    544  
    545  
    546  
    547  
    548  
    549  
    550  
    551  
    552  
    553  
    554  
    555  
    556  
    557  
    558  
    559  
    560  
    561  
    562  
    563  
    564  
    565  
    566  
    567  
    568  
    569  
    570  
    571  
    572  
    573  
    574 !!!!!!!!!!!! Ancienne interfaces !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
    575 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
    576     
    577    SUBROUTINE set_domaingroup_attributes_id                                                                        & 
    578    ( domaingroup_id, name_, standard_name_, long_name_, domain_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_,       & 
    579      ni_, jbegin_, jend_, nj_, mask_, data_dim_, data_ni_, data_nj_, data_ibegin_, data_jbegin_,                   & 
    580      zoom_ni_, zoom_nj_, zoom_ibegin_, zoom_jbegin_, zoom_ni_loc_, zoom_nj_loc_, zoom_ibegin_loc_,                 & 
    581      zoom_jbegin_loc_, data_n_index_, data_i_index_, data_j_index_, lonvalue_, latvalue_) 
    582       IMPLICIT NONE 
    583       TYPE(XDomainGroupHandle)                              :: domaingroup_hdl 
    584       CHARACTER(len = *)                       , INTENT(IN) :: domaingroup_id 
    585       CHARACTER(len = *)             , OPTIONAL, INTENT(IN) :: name_ 
    586       CHARACTER(len = *)             , OPTIONAL, INTENT(IN) :: standard_name_ 
    587       CHARACTER(len = *)             , OPTIONAL, INTENT(IN) :: long_name_ 
    588       CHARACTER(len = *)             , OPTIONAL, INTENT(IN) :: domain_group_ref_ 
    589       INTEGER                        , OPTIONAL, INTENT(IN) :: ni_glo_ 
    590       INTEGER                        , OPTIONAL, INTENT(IN) :: nj_glo_ 
    591       INTEGER                        , OPTIONAL, INTENT(IN) :: ibegin_ 
    592       INTEGER                        , OPTIONAL, INTENT(IN) :: iend_ 
    593       INTEGER                        , OPTIONAL, INTENT(IN) :: ni_ 
    594       INTEGER                        , OPTIONAL, INTENT(IN) :: jbegin_ 
    595       INTEGER                        , OPTIONAL, INTENT(IN) :: jend_ 
    596       INTEGER                        , OPTIONAL, INTENT(IN) :: nj_ 
    597       LOGICAL          , dimension(*), OPTIONAL, INTENT(IN) :: mask_(:,:) 
    598       INTEGER                        , OPTIONAL, INTENT(IN) :: data_dim_ 
    599       INTEGER                        , OPTIONAL, INTENT(IN) :: data_ni_ 
    600       INTEGER                        , OPTIONAL, INTENT(IN) :: data_nj_ 
    601       INTEGER                        , OPTIONAL, INTENT(IN) :: data_ibegin_ 
    602       INTEGER                        , OPTIONAL, INTENT(IN) :: data_jbegin_ 
    603       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ni_ 
    604       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_nj_ 
    605       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ibegin_ 
    606       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_jbegin_ 
    607       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ni_loc_ 
    608       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_nj_loc_ 
    609       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_ 
    610       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_ 
    611       INTEGER                        , OPTIONAL, INTENT(IN) :: data_n_index_ 
    612       INTEGER       , dimension(*)   , OPTIONAL, INTENT(IN) :: data_i_index_(:) 
    613       INTEGER       , dimension(*)   , OPTIONAL, INTENT(IN) :: data_j_index_(:) 
    614       REAL(kind = 8), dimension(*)   , OPTIONAL, INTENT(IN) :: lonvalue_(:) 
    615       REAL(kind = 8), dimension(*)   , OPTIONAL, INTENT(IN) :: latvalue_(:) 
    616   
    617       CALL domaingroup_handle_create(domaingroup_hdl, domaingroup_id) 
    618       CALL set_domaingroup_attributes_hdl                                                                          & 
    619    ( domaingroup_hdl, name_, standard_name_, long_name_, domain_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_,      & 
    620      ni_, jbegin_, jend_, nj_, mask_, data_dim_, data_ni_, data_nj_, data_ibegin_, data_jbegin_,                   & 
    621      zoom_ni_, zoom_nj_, zoom_ibegin_, zoom_jbegin_, zoom_ni_loc_, zoom_nj_loc_, zoom_ibegin_loc_,                 & 
    622      zoom_jbegin_loc_, data_n_index_, data_i_index_, data_j_index_, lonvalue_, latvalue_) 
    623  
    624    END SUBROUTINE set_domaingroup_attributes_id 
    625     
    626    SUBROUTINE set_domaingroup_attributes_hdl                                                                       & 
    627    ( domaingroup_hdl,name_, standard_name_, long_name_, domain_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_,       & 
    628      ni_, jbegin_, jend_, nj_, mask_, data_dim_, data_ni_, data_nj_, data_ibegin_, data_jbegin_,                   & 
    629      zoom_ni_, zoom_nj_, zoom_ibegin_, zoom_jbegin_, zoom_ni_loc_, zoom_nj_loc_, zoom_ibegin_loc_,                 & 
    630      zoom_jbegin_loc_, data_n_index_, data_i_index_, data_j_index_, lonvalue_, latvalue_) 
    631       IMPLICIT NONE 
    632       TYPE(XDomainGroupHandle)                   , INTENT(IN) :: domaingroup_hdl 
    633       CHARACTER(len = *)               , OPTIONAL, INTENT(IN) :: name_ 
    634       CHARACTER(len = *)               , OPTIONAL, INTENT(IN) :: standard_name_ 
    635       CHARACTER(len = *)               , OPTIONAL, INTENT(IN) :: long_name_ 
    636       CHARACTER(len = *)               , OPTIONAL, INTENT(IN) :: domain_group_ref_ 
    637       INTEGER                          , OPTIONAL, INTENT(IN) :: ni_glo_ 
    638       INTEGER                          , OPTIONAL, INTENT(IN) :: nj_glo_ 
    639       INTEGER                          , OPTIONAL, INTENT(IN) :: ibegin_ 
    640       INTEGER                          , OPTIONAL, INTENT(IN) :: iend_ 
    641       INTEGER                          , OPTIONAL, INTENT(IN) :: ni_ 
    642       INTEGER                          , OPTIONAL, INTENT(IN) :: jbegin_ 
    643       INTEGER                          , OPTIONAL, INTENT(IN) :: jend_ 
    644       INTEGER                          , OPTIONAL, INTENT(IN) :: nj_ 
    645       LOGICAL          , dimension(*)  , OPTIONAL, INTENT(IN) :: mask_(:,:) 
    646       LOGICAL(kind = 1), dimension(:,:), ALLOCATABLE          :: mask__! (size(mask_,1),size(mask,2)) 
    647       INTEGER                          , OPTIONAL, INTENT(IN) :: data_dim_ 
    648       INTEGER                          , OPTIONAL, INTENT(IN) :: data_ni_ 
    649       INTEGER                          , OPTIONAL, INTENT(IN) :: data_nj_ 
    650       INTEGER                          , OPTIONAL, INTENT(IN) :: data_ibegin_ 
    651       INTEGER                          , OPTIONAL, INTENT(IN) :: data_jbegin_ 
    652       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ni_ 
    653       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_nj_ 
    654       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ibegin_ 
    655       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_jbegin_ 
    656       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ni_loc_ 
    657       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_nj_loc_ 
    658       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_ 
    659       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_ 
    660       INTEGER                          , OPTIONAL, INTENT(IN) :: data_n_index_ 
    661       INTEGER       , dimension(*)     , OPTIONAL, INTENT(IN) :: data_i_index_(:) 
    662       INTEGER       , dimension(*)     , OPTIONAL, INTENT(IN) :: data_j_index_(:) 
    663       REAL(kind = 8), dimension(*)     , OPTIONAL, INTENT(IN) :: lonvalue_(:) 
    664       REAL(kind = 8), dimension(*)     , OPTIONAL, INTENT(IN) :: latvalue_(:) 
    665        
    666       IF (PRESENT(name_))             THEN 
    667          CALL cxios_set_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_)) 
    668       END IF 
    669       IF (PRESENT(standard_name_))    THEN 
    670          CALL cxios_set_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 
    671       END IF 
    672       IF (PRESENT(long_name_))        THEN 
    673          CALL cxios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_)) 
    674        END IF 
    675       IF (PRESENT(domain_group_ref_)) THEN 
    676          CALL cxios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_)) 
    677       END IF 
    678       IF (PRESENT(ni_glo_))           THEN 
    679          CALL cxios_set_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_) 
    680       END IF 
    681       IF (PRESENT(nj_glo_))           THEN 
    682          CALL cxios_set_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_) 
    683       END IF 
    684       IF (PRESENT(ibegin_))           THEN 
    685          CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_) 
    686        END IF 
    687       IF (PRESENT(iend_))             THEN 
    688          CALL cxios_set_domaingroup_iend(domaingroup_hdl%daddr, iend_) 
    689       END IF 
    690       IF (PRESENT(ni_))               THEN 
    691          CALL cxios_set_domaingroup_ni(domaingroup_hdl%daddr, ni_) 
    692       END IF 
    693       IF (PRESENT(jbegin_))           THEN 
    694          CALL cxios_set_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_) 
    695       END IF 
    696       IF (PRESENT(jend_))             THEN 
    697          CALL cxios_set_domaingroup_jend(domaingroup_hdl%daddr, jend_) 
    698       END IF 
    699       IF (PRESENT(nj_))               THEN 
    700          CALL cxios_set_domaingroup_nj(domaingroup_hdl%daddr, nj_) 
    701       END IF 
    702       IF (PRESENT(mask_))             THEN 
    703          ALLOCATE(mask__(size(mask_, 1), size(mask_, 2))) 
    704          mask__(:,:) = mask_(:,:) 
    705          CALL cxios_set_domaingroup_mask(domaingroup_hdl%daddr, mask__, size(mask_, 1), size(mask_, 2))          
    706          DEALLOCATE(mask__) 
    707       END IF 
    708       IF (PRESENT(data_dim_))         THEN 
    709          CALL cxios_set_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_) 
    710       END IF 
    711       IF (PRESENT(data_ni_))          THEN 
    712          CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_) 
    713       END IF  
    714       IF (PRESENT(data_nj_))          THEN 
    715          CALL cxios_set_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_) 
    716       END IF 
    717       IF (PRESENT(data_ibegin_))      THEN 
    718          CALL cxios_set_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_) 
    719       END IF 
    720       IF (PRESENT(data_jbegin_))      THEN 
    721          CALL cxios_set_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_) 
    722       END IF 
    723       IF (PRESENT(zoom_ni_))          THEN 
    724          CALL cxios_set_domaingroup_zoom_ni(domaingroup_hdl%daddr, zoom_ni_) 
    725       END IF 
    726       IF (PRESENT(zoom_nj_))          THEN 
    727        CALL cxios_set_domaingroup_zoom_nj(domaingroup_hdl%daddr, zoom_nj_) 
    728       END IF 
    729       IF (PRESENT(zoom_ibegin_))      THEN 
    730          CALL cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl%daddr, zoom_ibegin_) 
    731       END IF 
    732       IF (PRESENT(zoom_jbegin_))      THEN 
    733          CALL cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_) 
    734       END IF 
    735       IF (PRESENT(zoom_ni_loc_))      THEN 
    736          CALL cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_) 
    737       END IF    
    738       IF (PRESENT(zoom_nj_loc_))      THEN 
    739          CALL cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_) 
    740       END IF 
    741       IF (PRESENT(zoom_ibegin_loc_))  THEN 
    742          CALL cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_) 
    743       END IF 
    744       IF (PRESENT(zoom_jbegin_loc_))  THEN 
    745          CALL cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_) 
    746       END IF 
    747       IF (PRESENT(data_n_index_))     THEN 
    748          CALL cxios_set_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_) 
    749       END IF 
    750       IF (PRESENT(data_i_index_))     THEN 
    751          CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, size(data_i_index_, 1)) 
    752       END IF 
    753       IF (PRESENT(data_j_index_))     THEN 
    754          CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, size(data_j_index_, 1)) 
    755       END IF 
    756       IF (PRESENT(lonvalue_))         THEN 
    757          CALL cxios_set_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_, size(lonvalue_, 1)) 
    758       END IF 
    759       IF (PRESENT(latvalue_))         THEN 
    760          CALL cxios_set_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_, size(latvalue_, 1)) 
    761       END IF 
    762  
    763    END SUBROUTINE set_domaingroup_attributes_hdl 
    764     
    765    SUBROUTINE set_domain_attributes_id                                                                   & 
    766    ( domain_id, name_, standard_name_, long_name_, domain_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_,  & 
    767      ni_, jbegin_, jend_, nj_, mask_, data_dim_, data_ni_, data_nj_, data_ibegin_, data_jbegin_,         & 
    768      zoom_ni_, zoom_nj_, zoom_ibegin_, zoom_jbegin_, zoom_ni_loc_, zoom_nj_loc_, zoom_ibegin_loc_,       & 
    769      zoom_jbegin_loc_, data_n_index_, data_i_index_, data_j_index_, lonvalue_, latvalue_) 
    770       IMPLICIT NONE 
    771       TYPE(XDomainHandle)                                   :: domain_hdl 
    772       CHARACTER(len = *)                       , INTENT(IN) :: domain_id 
    773       CHARACTER(len = *)             , OPTIONAL, INTENT(IN) :: name_ 
    774       CHARACTER(len = *)             , OPTIONAL, INTENT(IN) :: standard_name_ 
    775       CHARACTER(len = *)             , OPTIONAL, INTENT(IN) :: long_name_ 
    776       CHARACTER(len = *)             , OPTIONAL, INTENT(IN) :: domain_group_ref_ 
    777       INTEGER                        , OPTIONAL, INTENT(IN) :: ni_glo_ 
    778       INTEGER                        , OPTIONAL, INTENT(IN) :: nj_glo_ 
    779       INTEGER                        , OPTIONAL, INTENT(IN) :: ibegin_ 
    780       INTEGER                        , OPTIONAL, INTENT(IN) :: iend_ 
    781       INTEGER                        , OPTIONAL, INTENT(IN) :: ni_ 
    782       INTEGER                        , OPTIONAL, INTENT(IN) :: jbegin_ 
    783       INTEGER                        , OPTIONAL, INTENT(IN) :: jend_ 
    784       INTEGER                        , OPTIONAL, INTENT(IN) :: nj_ 
    785       LOGICAL          , dimension(*), OPTIONAL, INTENT(IN) :: mask_(:,:) 
    786       INTEGER                        , OPTIONAL, INTENT(IN) :: data_dim_ 
    787       INTEGER                        , OPTIONAL, INTENT(IN) :: data_ni_ 
    788       INTEGER                        , OPTIONAL, INTENT(IN) :: data_nj_ 
    789       INTEGER                        , OPTIONAL, INTENT(IN) :: data_ibegin_ 
    790       INTEGER                        , OPTIONAL, INTENT(IN) :: data_jbegin_ 
    791       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ni_ 
    792       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_nj_ 
    793       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ibegin_ 
    794       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_jbegin_ 
    795       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ni_loc_ 
    796       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_nj_loc_ 
    797       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_ 
    798       INTEGER                        , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_ 
    799       INTEGER                        , OPTIONAL, INTENT(IN) :: data_n_index_ 
    800       INTEGER       , dimension(*)   , OPTIONAL, INTENT(IN) :: data_i_index_(:) 
    801       INTEGER       , dimension(*)   , OPTIONAL, INTENT(IN) :: data_j_index_(:) 
    802       REAL(kind = 8), dimension(*)   , OPTIONAL, INTENT(IN) :: lonvalue_(:) 
    803       REAL(kind = 8), dimension(*)   , OPTIONAL, INTENT(IN) :: latvalue_(:) 
    804   
    805       CALL domain_handle_create(domain_hdl, domain_id) 
    806       CALL set_domain_attributes_hdl                                                                     & 
    807    ( domain_hdl, name_, standard_name_, long_name_, domain_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_, & 
    808      ni_, jbegin_, jend_, nj_, mask_, data_dim_, data_ni_, data_nj_, data_ibegin_, data_jbegin_,         & 
    809      zoom_ni_, zoom_nj_, zoom_ibegin_, zoom_jbegin_, zoom_ni_loc_, zoom_nj_loc_, zoom_ibegin_loc_,       & 
    810      zoom_jbegin_loc_, data_n_index_, data_i_index_, data_j_index_, lonvalue_, latvalue_) 
    811  
    812    END SUBROUTINE set_domain_attributes_id 
    813     
    814    SUBROUTINE set_domain_attributes_hdl                                                                  & 
    815    ( domain_hdl,name_, standard_name_, long_name_, domain_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_,  & 
    816      ni_, jbegin_, jend_, nj_, mask_, data_dim_, data_ni_, data_nj_, data_ibegin_, data_jbegin_,         & 
    817      zoom_ni_, zoom_nj_, zoom_ibegin_, zoom_jbegin_, zoom_ni_loc_, zoom_nj_loc_, zoom_ibegin_loc_,       & 
    818      zoom_jbegin_loc_, data_n_index_, data_i_index_, data_j_index_, lonvalue_, latvalue_) 
    819       IMPLICIT NONE 
    820       TYPE(XDomainHandle)                        , INTENT(IN) :: domain_hdl 
    821       CHARACTER(len = *)               , OPTIONAL, INTENT(IN) :: name_ 
    822       CHARACTER(len = *)               , OPTIONAL, INTENT(IN) :: standard_name_ 
    823       CHARACTER(len = *)               , OPTIONAL, INTENT(IN) :: long_name_ 
    824       CHARACTER(len = *)               , OPTIONAL, INTENT(IN) :: domain_group_ref_ 
    825       INTEGER                          , OPTIONAL, INTENT(IN) :: ni_glo_ 
    826       INTEGER                          , OPTIONAL, INTENT(IN) :: nj_glo_ 
    827       INTEGER                          , OPTIONAL, INTENT(IN) :: ibegin_ 
    828       INTEGER                          , OPTIONAL, INTENT(IN) :: iend_ 
    829       INTEGER                          , OPTIONAL, INTENT(IN) :: ni_ 
    830       INTEGER                          , OPTIONAL, INTENT(IN) :: jbegin_ 
    831       INTEGER                          , OPTIONAL, INTENT(IN) :: jend_ 
    832       INTEGER                          , OPTIONAL, INTENT(IN) :: nj_ 
    833       LOGICAL          , dimension(*)  , OPTIONAL, INTENT(IN) :: mask_(:,:) 
    834       LOGICAL(kind = 1), dimension(:,:), ALLOCATABLE          :: mask__ 
    835       INTEGER                          , OPTIONAL, INTENT(IN) :: data_dim_ 
    836       INTEGER                          , OPTIONAL, INTENT(IN) :: data_ni_ 
    837       INTEGER                          , OPTIONAL, INTENT(IN) :: data_nj_ 
    838       INTEGER                          , OPTIONAL, INTENT(IN) :: data_ibegin_ 
    839       INTEGER                          , OPTIONAL, INTENT(IN) :: data_jbegin_ 
    840       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ni_ 
    841       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_nj_ 
    842       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ibegin_ 
    843       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_jbegin_ 
    844       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ni_loc_ 
    845       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_nj_loc_ 
    846       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_ 
    847       INTEGER                          , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_ 
    848       INTEGER                          , OPTIONAL, INTENT(IN) :: data_n_index_ 
    849       INTEGER       , dimension(*)     , OPTIONAL, INTENT(IN) :: data_i_index_(:) 
    850       INTEGER       , dimension(*)     , OPTIONAL, INTENT(IN) :: data_j_index_(:) 
    851       REAL(kind = 8), dimension(*)     , OPTIONAL, INTENT(IN) :: lonvalue_(:) 
    852       REAL(kind = 8), dimension(*)     , OPTIONAL, INTENT(IN) :: latvalue_(:) 
    853       IF (PRESENT(name_))             THEN 
    854          CALL cxios_set_domain_name(domain_hdl%daddr, name_, len(name_)) 
    855       END IF 
    856       IF (PRESENT(standard_name_))    THEN 
    857          CALL cxios_set_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_)) 
    858       END IF 
    859       IF (PRESENT(long_name_))        THEN 
    860          CALL cxios_set_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_)) 
    861        END IF 
    862       IF (PRESENT(domain_group_ref_)) THEN 
    863          CALL cxios_set_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_)) 
    864       END IF 
    865       IF (PRESENT(ni_glo_))           THEN 
    866          CALL cxios_set_domain_ni_glo(domain_hdl%daddr, ni_glo_) 
    867       END IF 
    868       IF (PRESENT(nj_glo_))           THEN 
    869          CALL cxios_set_domain_nj_glo(domain_hdl%daddr, nj_glo_) 
    870       END IF 
    871       IF (PRESENT(ibegin_))           THEN 
    872          CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_) 
    873        END IF 
    874       IF (PRESENT(iend_))             THEN 
    875          CALL cxios_set_domain_iend(domain_hdl%daddr, iend_) 
    876       END IF 
    877       IF (PRESENT(ni_))               THEN 
    878          CALL cxios_set_domain_ni(domain_hdl%daddr, ni_) 
    879       END IF 
    880       IF (PRESENT(jbegin_))           THEN 
    881          CALL cxios_set_domain_jbegin(domain_hdl%daddr, jbegin_) 
    882       END IF 
    883       IF (PRESENT(jend_))             THEN 
    884          CALL cxios_set_domain_jend(domain_hdl%daddr, jend_) 
    885       END IF 
    886       IF (PRESENT(nj_))               THEN 
    887          CALL cxios_set_domain_nj(domain_hdl%daddr, nj_) 
    888       END IF 
    889       IF (PRESENT(mask_))             THEN 
    890          ALLOCATE(mask__(size(mask_, 1), size(mask_, 2))) 
    891          mask__(:,:) = mask_(:,:) 
    892          CALL cxios_set_domain_mask(domain_hdl%daddr, mask__, size(mask_, 1), size(mask_, 2))          
    893          DEALLOCATE(mask__) 
    894       END IF 
    895       IF (PRESENT(data_dim_))         THEN 
    896          CALL cxios_set_domain_data_dim(domain_hdl%daddr, data_dim_) 
    897       END IF 
    898       IF (PRESENT(data_ni_))          THEN 
    899          CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_) 
    900       END IF  
    901       IF (PRESENT(data_nj_))          THEN 
    902          CALL cxios_set_domain_data_nj(domain_hdl%daddr, data_nj_) 
    903       END IF 
    904       IF (PRESENT(data_ibegin_))      THEN 
    905          CALL cxios_set_domain_data_ibegin(domain_hdl%daddr, data_ibegin_) 
    906       END IF 
    907       IF (PRESENT(data_jbegin_))      THEN 
    908          CALL cxios_set_domain_data_jbegin(domain_hdl%daddr, data_jbegin_) 
    909       END IF 
    910       IF (PRESENT(zoom_ni_))          THEN 
    911          CALL cxios_set_domain_zoom_ni(domain_hdl%daddr, zoom_ni_) 
    912       END IF 
    913       IF (PRESENT(zoom_nj_))          THEN 
    914        CALL cxios_set_domain_zoom_nj(domain_hdl%daddr, zoom_nj_) 
    915       END IF 
    916       IF (PRESENT(zoom_ibegin_))      THEN 
    917          CALL cxios_set_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_) 
    918       END IF 
    919       IF (PRESENT(zoom_jbegin_))      THEN 
    920          CALL cxios_set_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_) 
    921       END IF 
    922       IF (PRESENT(zoom_ni_loc_))      THEN 
    923          CALL cxios_set_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_) 
    924       END IF    
    925       IF (PRESENT(zoom_nj_loc_))      THEN 
    926          CALL cxios_set_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_) 
    927       END IF 
    928       IF (PRESENT(zoom_ibegin_loc_))  THEN 
    929          CALL cxios_set_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_) 
    930       END IF 
    931       IF (PRESENT(zoom_jbegin_loc_))  THEN 
    932          CALL cxios_set_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_) 
    933       END IF 
    934       IF (PRESENT(data_n_index_))     THEN 
    935          CALL cxios_set_domain_data_n_index(domain_hdl%daddr, data_n_index_) 
    936       END IF 
    937       IF (PRESENT(data_i_index_))     THEN 
    938          CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_, size(data_i_index_, 1)) 
    939       END IF 
    940       IF (PRESENT(data_j_index_))     THEN 
    941          CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_, size(data_j_index_, 1)) 
    942       END IF 
    943       IF (PRESENT(lonvalue_))         THEN 
    944          CALL cxios_set_domain_lonvalue(domain_hdl%daddr, lonvalue_, size(lonvalue_, 1)) 
    945       END IF 
    946       IF (PRESENT(latvalue_))         THEN 
    947          CALL cxios_set_domain_latvalue(domain_hdl%daddr, latvalue_, size(latvalue_, 1)) 
    948       END IF 
    949  
    950    END SUBROUTINE set_domain_attributes_hdl 
    951     
    952    SUBROUTINE domain_handle_create(ret, idt) 
    953       IMPLICIT NONE 
    954       TYPE(XDomainHandle), INTENT(OUT):: ret 
    955       CHARACTER(len = *) , INTENT(IN) :: idt       
    956       CALL cxios_domain_handle_create(ret%daddr, idt, len(idt))             
    957    END SUBROUTINE domain_handle_create 
    958     
    959    SUBROUTINE domaingroup_handle_create(ret, idt) 
    960       IMPLICIT NONE 
    961       TYPE(XDomainGroupHandle), INTENT(OUT):: ret 
    962       CHARACTER(len = *)      , INTENT(IN) :: idt       
    963       CALL cxios_domaingroup_handle_create(ret%daddr, idt, len(idt))             
    964    END SUBROUTINE domaingroup_handle_create 
    965  
    966    LOGICAL FUNCTION domain_valid_id(idt) 
    967       IMPLICIT NONE 
    968       CHARACTER(len  = *)    , INTENT(IN) :: idt 
    969       LOGICAL  (kind = 1)                 :: val 
    970       CALL cxios_domain_valid_id(val, idt, len(idt)); 
    971       domain_valid_id = val 
    972    END FUNCTION  domain_valid_id 
    973  
    974    LOGICAL FUNCTION domaingroup_valid_id(idt) 
    975       IMPLICIT NONE 
    976       CHARACTER(len  = *)    , INTENT(IN) :: idt 
    977       LOGICAL  (kind = 1)                 :: val 
    978       CALL cxios_domaingroup_valid_id(val, idt, len(idt)); 
    979       domaingroup_valid_id = val 
    980    END FUNCTION  domaingroup_valid_id 
    981482    
    982483END MODULE IDOMAIN 
Note: See TracChangeset for help on using the changeset viewer.