Ignore:
Timestamp:
08/24/15 14:53:27 (9 years ago)
Author:
mhnguyen
Message:

Change name of several axis attributes and remove some redundant variable of domain

+) Change name of axis attributes to make them consistent with ones of domain
+) Remove zoom_client_* of domain

Test
+) On Curie
+) All tests pass and are correct

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90

    r664 r666  
    1313  SUBROUTINE xios(set_domaingroup_attr)  & 
    1414    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    15     , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
    16     , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
    17     , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    18     , type ) 
     15    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
     16    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     17    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     18    ) 
    1919 
    2020    IMPLICIT NONE 
    … …  
    3131      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:) 
    3232      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin 
    33       INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index 
    3433      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni 
    3534      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj 
    … …  
    6261      CALL xios(set_domaingroup_attr_hdl_)   & 
    6362      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    64       , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
    65       , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
    66       , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    67       , type ) 
     63      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
     64      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     65      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     66      ) 
    6867 
    6968  END SUBROUTINE xios(set_domaingroup_attr) 
    … …  
    7170  SUBROUTINE xios(set_domaingroup_attr_hdl)  & 
    7271    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    73     , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
    74     , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
    75     , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    76     , type ) 
     72    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
     73    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     74    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     75    ) 
    7776 
    7877    IMPLICIT NONE 
    … …  
    8887      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:) 
    8988      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin 
    90       INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index 
    9189      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni 
    9290      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj 
    … …  
    118116      CALL xios(set_domaingroup_attr_hdl_)  & 
    119117      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    120       , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
    121       , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
    122       , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    123       , type ) 
     118      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
     119      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     120      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     121      ) 
    124122 
    125123  END SUBROUTINE xios(set_domaingroup_attr_hdl) 
    … …  
    127125  SUBROUTINE xios(set_domaingroup_attr_hdl_)   & 
    128126    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
    129     , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_, data_ni_, data_nj_  & 
    130     , domain_group_ref_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_  & 
    131     , latvalue_2d_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_  & 
    132     , nj_, nj_glo_, nvertex_, standard_name_, type_ ) 
     127    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  & 
     128    , domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
     129    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
     130    , nvertex_, standard_name_, type_ ) 
    133131 
    134132    IMPLICIT NONE 
    … …  
    144142      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:) 
    145143      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_ 
    146       INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index_ 
    147144      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_ 
    148145      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_ 
    … …  
    212209      ENDIF 
    213210 
    214       IF (PRESENT(data_n_index_)) THEN 
    215         CALL cxios_set_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_) 
    216       ENDIF 
    217  
    218211      IF (PRESENT(data_ni_)) THEN 
    219212        CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_) 
    … …  
    320313  SUBROUTINE xios(get_domaingroup_attr)  & 
    321314    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    322     , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
    323     , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
    324     , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    325     , type ) 
     315    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
     316    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     317    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     318    ) 
    326319 
    327320    IMPLICIT NONE 
    … …  
    338331      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:) 
    339332      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin 
    340       INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index 
    341333      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni 
    342334      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj 
    … …  
    369361      CALL xios(get_domaingroup_attr_hdl_)   & 
    370362      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    371       , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
    372       , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
    373       , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    374       , type ) 
     363      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
     364      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     365      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     366      ) 
    375367 
    376368  END SUBROUTINE xios(get_domaingroup_attr) 
    … …  
    378370  SUBROUTINE xios(get_domaingroup_attr_hdl)  & 
    379371    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    380     , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
    381     , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
    382     , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    383     , type ) 
     372    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
     373    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     374    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     375    ) 
    384376 
    385377    IMPLICIT NONE 
    … …  
    395387      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:) 
    396388      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin 
    397       INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index 
    398389      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni 
    399390      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj 
    … …  
    425416      CALL xios(get_domaingroup_attr_hdl_)  & 
    426417      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    427       , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
    428       , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
    429       , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    430       , type ) 
     418      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
     419      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     420      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     421      ) 
    431422 
    432423  END SUBROUTINE xios(get_domaingroup_attr_hdl) 
    … …  
    434425  SUBROUTINE xios(get_domaingroup_attr_hdl_)   & 
    435426    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
    436     , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_, data_ni_, data_nj_  & 
    437     , domain_group_ref_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_  & 
    438     , latvalue_2d_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_  & 
    439     , nj_, nj_glo_, nvertex_, standard_name_, type_ ) 
     427    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  & 
     428    , domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
     429    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
     430    , nvertex_, standard_name_, type_ ) 
    440431 
    441432    IMPLICIT NONE 
    … …  
    451442      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:) 
    452443      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_ 
    453       INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index_ 
    454444      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_ 
    455445      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_ 
    … …  
    519509      ENDIF 
    520510 
    521       IF (PRESENT(data_n_index_)) THEN 
    522         CALL cxios_get_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_) 
    523       ENDIF 
    524  
    525511      IF (PRESENT(data_ni_)) THEN 
    526512        CALL cxios_get_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_) 
    … …  
    627613  SUBROUTINE xios(is_defined_domaingroup_attr)  & 
    628614    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    629     , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
    630     , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
    631     , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    632     , type ) 
     615    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
     616    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     617    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     618    ) 
    633619 
    634620    IMPLICIT NONE 
    … …  
    655641      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 
    656642      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 
    657       LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index 
    658       LOGICAL(KIND=C_BOOL) :: data_n_index_tmp 
    659643      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 
    660644      LOGICAL(KIND=C_BOOL) :: data_ni_tmp 
    … …  
    709693      CALL xios(is_defined_domaingroup_attr_hdl_)   & 
    710694      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    711       , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
    712       , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
    713       , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    714       , type ) 
     695      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
     696      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     697      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     698      ) 
    715699 
    716700  END SUBROUTINE xios(is_defined_domaingroup_attr) 
    … …  
    718702  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  & 
    719703    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    720     , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
    721     , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
    722     , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    723     , type ) 
     704    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
     705    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     706    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     707    ) 
    724708 
    725709    IMPLICIT NONE 
    … …  
    745729      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 
    746730      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 
    747       LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index 
    748       LOGICAL(KIND=C_BOOL) :: data_n_index_tmp 
    749731      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 
    750732      LOGICAL(KIND=C_BOOL) :: data_ni_tmp 
    … …  
    798780      CALL xios(is_defined_domaingroup_attr_hdl_)  & 
    799781      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    800       , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
    801       , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
    802       , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    803       , type ) 
     782      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
     783      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     784      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     785      ) 
    804786 
    805787  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 
    … …  
    807789  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   & 
    808790    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
    809     , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_, data_ni_, data_nj_  & 
    810     , domain_group_ref_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_  & 
    811     , latvalue_2d_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_  & 
    812     , nj_, nj_glo_, nvertex_, standard_name_, type_ ) 
     791    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  & 
     792    , domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
     793    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
     794    , nvertex_, standard_name_, type_ ) 
    813795 
    814796    IMPLICIT NONE 
    … …  
    834816      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_ 
    835817      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp 
    836       LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_ 
    837       LOGICAL(KIND=C_BOOL) :: data_n_index__tmp 
    838818      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_ 
    839819      LOGICAL(KIND=C_BOOL) :: data_ni__tmp 
    … …  
    935915      ENDIF 
    936916 
    937       IF (PRESENT(data_n_index_)) THEN 
    938         data_n_index__tmp = cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl%daddr) 
    939         data_n_index_ = data_n_index__tmp 
    940       ENDIF 
    941  
    942917      IF (PRESENT(data_ni_)) THEN 
    943918        data_ni__tmp = cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr) 
Note: See TracChangeset for help on using the changeset viewer.