Ignore:
Timestamp:
10/10/16 16:01:11 (8 years ago)
Author:
mhnguyen
Message:

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r789 r966  
    5656      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    5757 
    58       CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 
     58      CALL xios(get_domaingroup_handle) & 
     59      (domaingroup_id,domaingroup_hdl) 
    5960      CALL xios(set_domaingroup_attr_hdl_)   & 
    6061      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    … …  
    163164 
    164165      IF (PRESENT(area_)) THEN 
    165         CALL cxios_set_domaingroup_area(domaingroup_hdl%daddr, area_, SHAPE(area_)) 
     166        CALL cxios_set_domaingroup_area & 
     167      (domaingroup_hdl%daddr, area_, SHAPE(area_)) 
    166168      ENDIF 
    167169 
    168170      IF (PRESENT(bounds_lat_1d_)) THEN 
    169         CALL cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
     171        CALL cxios_set_domaingroup_bounds_lat_1d & 
     172      (domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
    170173      ENDIF 
    171174 
    172175      IF (PRESENT(bounds_lat_2d_)) THEN 
    173         CALL cxios_set_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
     176        CALL cxios_set_domaingroup_bounds_lat_2d & 
     177      (domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
    174178      ENDIF 
    175179 
    176180      IF (PRESENT(bounds_lon_1d_)) THEN 
    177         CALL cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
     181        CALL cxios_set_domaingroup_bounds_lon_1d & 
     182      (domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
    178183      ENDIF 
    179184 
    180185      IF (PRESENT(bounds_lon_2d_)) THEN 
    181         CALL cxios_set_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
     186        CALL cxios_set_domaingroup_bounds_lon_2d & 
     187      (domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
    182188      ENDIF 
    183189 
    184190      IF (PRESENT(data_dim_)) THEN 
    185         CALL cxios_set_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_) 
     191        CALL cxios_set_domaingroup_data_dim & 
     192      (domaingroup_hdl%daddr, data_dim_) 
    186193      ENDIF 
    187194 
    188195      IF (PRESENT(data_i_index_)) THEN 
    189         CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
     196        CALL cxios_set_domaingroup_data_i_index & 
     197      (domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
    190198      ENDIF 
    191199 
    192200      IF (PRESENT(data_ibegin_)) THEN 
    193         CALL cxios_set_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_) 
     201        CALL cxios_set_domaingroup_data_ibegin & 
     202      (domaingroup_hdl%daddr, data_ibegin_) 
    194203      ENDIF 
    195204 
    196205      IF (PRESENT(data_j_index_)) THEN 
    197         CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
     206        CALL cxios_set_domaingroup_data_j_index & 
     207      (domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
    198208      ENDIF 
    199209 
    200210      IF (PRESENT(data_jbegin_)) THEN 
    201         CALL cxios_set_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_) 
     211        CALL cxios_set_domaingroup_data_jbegin & 
     212      (domaingroup_hdl%daddr, data_jbegin_) 
    202213      ENDIF 
    203214 
    204215      IF (PRESENT(data_ni_)) THEN 
    205         CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_) 
     216        CALL cxios_set_domaingroup_data_ni & 
     217      (domaingroup_hdl%daddr, data_ni_) 
    206218      ENDIF 
    207219 
    208220      IF (PRESENT(data_nj_)) THEN 
    209         CALL cxios_set_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_) 
     221        CALL cxios_set_domaingroup_data_nj & 
     222      (domaingroup_hdl%daddr, data_nj_) 
    210223      ENDIF 
    211224 
    212225      IF (PRESENT(domain_ref_)) THEN 
    213         CALL cxios_set_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
     226        CALL cxios_set_domaingroup_domain_ref & 
     227      (domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
    214228      ENDIF 
    215229 
    216230      IF (PRESENT(group_ref_)) THEN 
    217         CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_)) 
     231        CALL cxios_set_domaingroup_group_ref & 
     232      (domaingroup_hdl%daddr, group_ref_, len(group_ref_)) 
    218233      ENDIF 
    219234 
    220235      IF (PRESENT(i_index_)) THEN 
    221         CALL cxios_set_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, SHAPE(i_index_)) 
     236        CALL cxios_set_domaingroup_i_index & 
     237      (domaingroup_hdl%daddr, i_index_, SHAPE(i_index_)) 
    222238      ENDIF 
    223239 
    224240      IF (PRESENT(ibegin_)) THEN 
    225         CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_) 
     241        CALL cxios_set_domaingroup_ibegin & 
     242      (domaingroup_hdl%daddr, ibegin_) 
    226243      ENDIF 
    227244 
    228245      IF (PRESENT(j_index_)) THEN 
    229         CALL cxios_set_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, SHAPE(j_index_)) 
     246        CALL cxios_set_domaingroup_j_index & 
     247      (domaingroup_hdl%daddr, j_index_, SHAPE(j_index_)) 
    230248      ENDIF 
    231249 
    232250      IF (PRESENT(jbegin_)) THEN 
    233         CALL cxios_set_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_) 
     251        CALL cxios_set_domaingroup_jbegin & 
     252      (domaingroup_hdl%daddr, jbegin_) 
    234253      ENDIF 
    235254 
    236255      IF (PRESENT(latvalue_1d_)) THEN 
    237         CALL cxios_set_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
     256        CALL cxios_set_domaingroup_latvalue_1d & 
     257      (domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
    238258      ENDIF 
    239259 
    240260      IF (PRESENT(latvalue_2d_)) THEN 
    241         CALL cxios_set_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
     261        CALL cxios_set_domaingroup_latvalue_2d & 
     262      (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
    242263      ENDIF 
    243264 
    244265      IF (PRESENT(long_name_)) THEN 
    245         CALL cxios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_)) 
     266        CALL cxios_set_domaingroup_long_name & 
     267      (domaingroup_hdl%daddr, long_name_, len(long_name_)) 
    246268      ENDIF 
    247269 
    248270      IF (PRESENT(lonvalue_1d_)) THEN 
    249         CALL cxios_set_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
     271        CALL cxios_set_domaingroup_lonvalue_1d & 
     272      (domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
    250273      ENDIF 
    251274 
    252275      IF (PRESENT(lonvalue_2d_)) THEN 
    253         CALL cxios_set_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
     276        CALL cxios_set_domaingroup_lonvalue_2d & 
     277      (domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
    254278      ENDIF 
    255279 
    … …  
    257281        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    258282        mask_1d__tmp = mask_1d_ 
    259         CALL cxios_set_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     283        CALL cxios_set_domaingroup_mask_1d & 
     284      (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    260285      ENDIF 
    261286 
    … …  
    263288        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    264289        mask_2d__tmp = mask_2d_ 
    265         CALL cxios_set_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     290        CALL cxios_set_domaingroup_mask_2d & 
     291      (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    266292      ENDIF 
    267293 
    268294      IF (PRESENT(name_)) THEN 
    269         CALL cxios_set_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_)) 
     295        CALL cxios_set_domaingroup_name & 
     296      (domaingroup_hdl%daddr, name_, len(name_)) 
    270297      ENDIF 
    271298 
    272299      IF (PRESENT(ni_)) THEN 
    273         CALL cxios_set_domaingroup_ni(domaingroup_hdl%daddr, ni_) 
     300        CALL cxios_set_domaingroup_ni & 
     301      (domaingroup_hdl%daddr, ni_) 
    274302      ENDIF 
    275303 
    276304      IF (PRESENT(ni_glo_)) THEN 
    277         CALL cxios_set_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_) 
     305        CALL cxios_set_domaingroup_ni_glo & 
     306      (domaingroup_hdl%daddr, ni_glo_) 
    278307      ENDIF 
    279308 
    280309      IF (PRESENT(nj_)) THEN 
    281         CALL cxios_set_domaingroup_nj(domaingroup_hdl%daddr, nj_) 
     310        CALL cxios_set_domaingroup_nj & 
     311      (domaingroup_hdl%daddr, nj_) 
    282312      ENDIF 
    283313 
    284314      IF (PRESENT(nj_glo_)) THEN 
    285         CALL cxios_set_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_) 
     315        CALL cxios_set_domaingroup_nj_glo & 
     316      (domaingroup_hdl%daddr, nj_glo_) 
    286317      ENDIF 
    287318 
    288319      IF (PRESENT(nvertex_)) THEN 
    289         CALL cxios_set_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_) 
     320        CALL cxios_set_domaingroup_nvertex & 
     321      (domaingroup_hdl%daddr, nvertex_) 
    290322      ENDIF 
    291323 
    292324      IF (PRESENT(standard_name_)) THEN 
    293         CALL cxios_set_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 
     325        CALL cxios_set_domaingroup_standard_name & 
     326      (domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 
    294327      ENDIF 
    295328 
    296329      IF (PRESENT(type_)) THEN 
    297         CALL cxios_set_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_)) 
     330        CALL cxios_set_domaingroup_type & 
     331      (domaingroup_hdl%daddr, type_, len(type_)) 
    298332      ENDIF 
    299333 
    … …  
    345379      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    346380 
    347       CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 
     381      CALL xios(get_domaingroup_handle) & 
     382      (domaingroup_id,domaingroup_hdl) 
    348383      CALL xios(get_domaingroup_attr_hdl_)   & 
    349384      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    … …  
    452487 
    453488      IF (PRESENT(area_)) THEN 
    454         CALL cxios_get_domaingroup_area(domaingroup_hdl%daddr, area_, SHAPE(area_)) 
     489        CALL cxios_get_domaingroup_area & 
     490      (domaingroup_hdl%daddr, area_, SHAPE(area_)) 
    455491      ENDIF 
    456492 
    457493      IF (PRESENT(bounds_lat_1d_)) THEN 
    458         CALL cxios_get_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
     494        CALL cxios_get_domaingroup_bounds_lat_1d & 
     495      (domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
    459496      ENDIF 
    460497 
    461498      IF (PRESENT(bounds_lat_2d_)) THEN 
    462         CALL cxios_get_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
     499        CALL cxios_get_domaingroup_bounds_lat_2d & 
     500      (domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
    463501      ENDIF 
    464502 
    465503      IF (PRESENT(bounds_lon_1d_)) THEN 
    466         CALL cxios_get_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
     504        CALL cxios_get_domaingroup_bounds_lon_1d & 
     505      (domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
    467506      ENDIF 
    468507 
    469508      IF (PRESENT(bounds_lon_2d_)) THEN 
    470         CALL cxios_get_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
     509        CALL cxios_get_domaingroup_bounds_lon_2d & 
     510      (domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
    471511      ENDIF 
    472512 
    473513      IF (PRESENT(data_dim_)) THEN 
    474         CALL cxios_get_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_) 
     514        CALL cxios_get_domaingroup_data_dim & 
     515      (domaingroup_hdl%daddr, data_dim_) 
    475516      ENDIF 
    476517 
    477518      IF (PRESENT(data_i_index_)) THEN 
    478         CALL cxios_get_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
     519        CALL cxios_get_domaingroup_data_i_index & 
     520      (domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
    479521      ENDIF 
    480522 
    481523      IF (PRESENT(data_ibegin_)) THEN 
    482         CALL cxios_get_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_) 
     524        CALL cxios_get_domaingroup_data_ibegin & 
     525      (domaingroup_hdl%daddr, data_ibegin_) 
    483526      ENDIF 
    484527 
    485528      IF (PRESENT(data_j_index_)) THEN 
    486         CALL cxios_get_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
     529        CALL cxios_get_domaingroup_data_j_index & 
     530      (domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
    487531      ENDIF 
    488532 
    489533      IF (PRESENT(data_jbegin_)) THEN 
    490         CALL cxios_get_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_) 
     534        CALL cxios_get_domaingroup_data_jbegin & 
     535      (domaingroup_hdl%daddr, data_jbegin_) 
    491536      ENDIF 
    492537 
    493538      IF (PRESENT(data_ni_)) THEN 
    494         CALL cxios_get_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_) 
     539        CALL cxios_get_domaingroup_data_ni & 
     540      (domaingroup_hdl%daddr, data_ni_) 
    495541      ENDIF 
    496542 
    497543      IF (PRESENT(data_nj_)) THEN 
    498         CALL cxios_get_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_) 
     544        CALL cxios_get_domaingroup_data_nj & 
     545      (domaingroup_hdl%daddr, data_nj_) 
    499546      ENDIF 
    500547 
    501548      IF (PRESENT(domain_ref_)) THEN 
    502         CALL cxios_get_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
     549        CALL cxios_get_domaingroup_domain_ref & 
     550      (domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
    503551      ENDIF 
    504552 
    505553      IF (PRESENT(group_ref_)) THEN 
    506         CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_)) 
     554        CALL cxios_get_domaingroup_group_ref & 
     555      (domaingroup_hdl%daddr, group_ref_, len(group_ref_)) 
    507556      ENDIF 
    508557 
    509558      IF (PRESENT(i_index_)) THEN 
    510         CALL cxios_get_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, SHAPE(i_index_)) 
     559        CALL cxios_get_domaingroup_i_index & 
     560      (domaingroup_hdl%daddr, i_index_, SHAPE(i_index_)) 
    511561      ENDIF 
    512562 
    513563      IF (PRESENT(ibegin_)) THEN 
    514         CALL cxios_get_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_) 
     564        CALL cxios_get_domaingroup_ibegin & 
     565      (domaingroup_hdl%daddr, ibegin_) 
    515566      ENDIF 
    516567 
    517568      IF (PRESENT(j_index_)) THEN 
    518         CALL cxios_get_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, SHAPE(j_index_)) 
     569        CALL cxios_get_domaingroup_j_index & 
     570      (domaingroup_hdl%daddr, j_index_, SHAPE(j_index_)) 
    519571      ENDIF 
    520572 
    521573      IF (PRESENT(jbegin_)) THEN 
    522         CALL cxios_get_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_) 
     574        CALL cxios_get_domaingroup_jbegin & 
     575      (domaingroup_hdl%daddr, jbegin_) 
    523576      ENDIF 
    524577 
    525578      IF (PRESENT(latvalue_1d_)) THEN 
    526         CALL cxios_get_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
     579        CALL cxios_get_domaingroup_latvalue_1d & 
     580      (domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
    527581      ENDIF 
    528582 
    529583      IF (PRESENT(latvalue_2d_)) THEN 
    530         CALL cxios_get_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
     584        CALL cxios_get_domaingroup_latvalue_2d & 
     585      (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
    531586      ENDIF 
    532587 
    533588      IF (PRESENT(long_name_)) THEN 
    534         CALL cxios_get_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_)) 
     589        CALL cxios_get_domaingroup_long_name & 
     590      (domaingroup_hdl%daddr, long_name_, len(long_name_)) 
    535591      ENDIF 
    536592 
    537593      IF (PRESENT(lonvalue_1d_)) THEN 
    538         CALL cxios_get_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
     594        CALL cxios_get_domaingroup_lonvalue_1d & 
     595      (domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
    539596      ENDIF 
    540597 
    541598      IF (PRESENT(lonvalue_2d_)) THEN 
    542         CALL cxios_get_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
     599        CALL cxios_get_domaingroup_lonvalue_2d & 
     600      (domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
    543601      ENDIF 
    544602 
    545603      IF (PRESENT(mask_1d_)) THEN 
    546604        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    547         CALL cxios_get_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     605        CALL cxios_get_domaingroup_mask_1d & 
     606      (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    548607        mask_1d_ = mask_1d__tmp 
    549608      ENDIF 
    … …  
    551610      IF (PRESENT(mask_2d_)) THEN 
    552611        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    553         CALL cxios_get_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     612        CALL cxios_get_domaingroup_mask_2d & 
     613      (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    554614        mask_2d_ = mask_2d__tmp 
    555615      ENDIF 
    556616 
    557617      IF (PRESENT(name_)) THEN 
    558         CALL cxios_get_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_)) 
     618        CALL cxios_get_domaingroup_name & 
     619      (domaingroup_hdl%daddr, name_, len(name_)) 
    559620      ENDIF 
    560621 
    561622      IF (PRESENT(ni_)) THEN 
    562         CALL cxios_get_domaingroup_ni(domaingroup_hdl%daddr, ni_) 
     623        CALL cxios_get_domaingroup_ni & 
     624      (domaingroup_hdl%daddr, ni_) 
    563625      ENDIF 
    564626 
    565627      IF (PRESENT(ni_glo_)) THEN 
    566         CALL cxios_get_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_) 
     628        CALL cxios_get_domaingroup_ni_glo & 
     629      (domaingroup_hdl%daddr, ni_glo_) 
    567630      ENDIF 
    568631 
    569632      IF (PRESENT(nj_)) THEN 
    570         CALL cxios_get_domaingroup_nj(domaingroup_hdl%daddr, nj_) 
     633        CALL cxios_get_domaingroup_nj & 
     634      (domaingroup_hdl%daddr, nj_) 
    571635      ENDIF 
    572636 
    573637      IF (PRESENT(nj_glo_)) THEN 
    574         CALL cxios_get_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_) 
     638        CALL cxios_get_domaingroup_nj_glo & 
     639      (domaingroup_hdl%daddr, nj_glo_) 
    575640      ENDIF 
    576641 
    577642      IF (PRESENT(nvertex_)) THEN 
    578         CALL cxios_get_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_) 
     643        CALL cxios_get_domaingroup_nvertex & 
     644      (domaingroup_hdl%daddr, nvertex_) 
    579645      ENDIF 
    580646 
    581647      IF (PRESENT(standard_name_)) THEN 
    582         CALL cxios_get_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 
     648        CALL cxios_get_domaingroup_standard_name & 
     649      (domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 
    583650      ENDIF 
    584651 
    585652      IF (PRESENT(type_)) THEN 
    586         CALL cxios_get_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_)) 
     653        CALL cxios_get_domaingroup_type & 
     654      (domaingroup_hdl%daddr, type_, len(type_)) 
    587655      ENDIF 
    588656 
    … …  
    665733      LOGICAL(KIND=C_BOOL) :: type_tmp 
    666734 
    667       CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 
     735      CALL xios(get_domaingroup_handle) & 
     736      (domaingroup_id,domaingroup_hdl) 
    668737      CALL xios(is_defined_domaingroup_attr_hdl_)   & 
    669738      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    … …  
    834903 
    835904      IF (PRESENT(area_)) THEN 
    836         area__tmp = cxios_is_defined_domaingroup_area(domaingroup_hdl%daddr) 
     905        area__tmp = cxios_is_defined_domaingroup_area & 
     906      (domaingroup_hdl%daddr) 
    837907        area_ = area__tmp 
    838908      ENDIF 
    839909 
    840910      IF (PRESENT(bounds_lat_1d_)) THEN 
    841         bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr) 
     911        bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d & 
     912      (domaingroup_hdl%daddr) 
    842913        bounds_lat_1d_ = bounds_lat_1d__tmp 
    843914      ENDIF 
    844915 
    845916      IF (PRESENT(bounds_lat_2d_)) THEN 
    846         bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr) 
     917        bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d & 
     918      (domaingroup_hdl%daddr) 
    847919        bounds_lat_2d_ = bounds_lat_2d__tmp 
    848920      ENDIF 
    849921 
    850922      IF (PRESENT(bounds_lon_1d_)) THEN 
    851         bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr) 
     923        bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d & 
     924      (domaingroup_hdl%daddr) 
    852925        bounds_lon_1d_ = bounds_lon_1d__tmp 
    853926      ENDIF 
    854927 
    855928      IF (PRESENT(bounds_lon_2d_)) THEN 
    856         bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr) 
     929        bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d & 
     930      (domaingroup_hdl%daddr) 
    857931        bounds_lon_2d_ = bounds_lon_2d__tmp 
    858932      ENDIF 
    859933 
    860934      IF (PRESENT(data_dim_)) THEN 
    861         data_dim__tmp = cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr) 
     935        data_dim__tmp = cxios_is_defined_domaingroup_data_dim & 
     936      (domaingroup_hdl%daddr) 
    862937        data_dim_ = data_dim__tmp 
    863938      ENDIF 
    864939 
    865940      IF (PRESENT(data_i_index_)) THEN 
    866         data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr) 
     941        data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index & 
     942      (domaingroup_hdl%daddr) 
    867943        data_i_index_ = data_i_index__tmp 
    868944      ENDIF 
    869945 
    870946      IF (PRESENT(data_ibegin_)) THEN 
    871         data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr) 
     947        data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin & 
     948      (domaingroup_hdl%daddr) 
    872949        data_ibegin_ = data_ibegin__tmp 
    873950      ENDIF 
    874951 
    875952      IF (PRESENT(data_j_index_)) THEN 
    876         data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr) 
     953        data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index & 
     954      (domaingroup_hdl%daddr) 
    877955        data_j_index_ = data_j_index__tmp 
    878956      ENDIF 
    879957 
    880958      IF (PRESENT(data_jbegin_)) THEN 
    881         data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr) 
     959        data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin & 
     960      (domaingroup_hdl%daddr) 
    882961        data_jbegin_ = data_jbegin__tmp 
    883962      ENDIF 
    884963 
    885964      IF (PRESENT(data_ni_)) THEN 
    886         data_ni__tmp = cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr) 
     965        data_ni__tmp = cxios_is_defined_domaingroup_data_ni & 
     966      (domaingroup_hdl%daddr) 
    887967        data_ni_ = data_ni__tmp 
    888968      ENDIF 
    889969 
    890970      IF (PRESENT(data_nj_)) THEN 
    891         data_nj__tmp = cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr) 
     971        data_nj__tmp = cxios_is_defined_domaingroup_data_nj & 
     972      (domaingroup_hdl%daddr) 
    892973        data_nj_ = data_nj__tmp 
    893974      ENDIF 
    894975 
    895976      IF (PRESENT(domain_ref_)) THEN 
    896         domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr) 
     977        domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref & 
     978      (domaingroup_hdl%daddr) 
    897979        domain_ref_ = domain_ref__tmp 
    898980      ENDIF 
    899981 
    900982      IF (PRESENT(group_ref_)) THEN 
    901         group_ref__tmp = cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr) 
     983        group_ref__tmp = cxios_is_defined_domaingroup_group_ref & 
     984      (domaingroup_hdl%daddr) 
    902985        group_ref_ = group_ref__tmp 
    903986      ENDIF 
    904987 
    905988      IF (PRESENT(i_index_)) THEN 
    906         i_index__tmp = cxios_is_defined_domaingroup_i_index(domaingroup_hdl%daddr) 
     989        i_index__tmp = cxios_is_defined_domaingroup_i_index & 
     990      (domaingroup_hdl%daddr) 
    907991        i_index_ = i_index__tmp 
    908992      ENDIF 
    909993 
    910994      IF (PRESENT(ibegin_)) THEN 
    911         ibegin__tmp = cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr) 
     995        ibegin__tmp = cxios_is_defined_domaingroup_ibegin & 
     996      (domaingroup_hdl%daddr) 
    912997        ibegin_ = ibegin__tmp 
    913998      ENDIF 
    914999 
    9151000      IF (PRESENT(j_index_)) THEN 
    916         j_index__tmp = cxios_is_defined_domaingroup_j_index(domaingroup_hdl%daddr) 
     1001        j_index__tmp = cxios_is_defined_domaingroup_j_index & 
     1002      (domaingroup_hdl%daddr) 
    9171003        j_index_ = j_index__tmp 
    9181004      ENDIF 
    9191005 
    9201006      IF (PRESENT(jbegin_)) THEN 
    921         jbegin__tmp = cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr) 
     1007        jbegin__tmp = cxios_is_defined_domaingroup_jbegin & 
     1008      (domaingroup_hdl%daddr) 
    9221009        jbegin_ = jbegin__tmp 
    9231010      ENDIF 
    9241011 
    9251012      IF (PRESENT(latvalue_1d_)) THEN 
    926         latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d(domaingroup_hdl%daddr) 
     1013        latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d & 
     1014      (domaingroup_hdl%daddr) 
    9271015        latvalue_1d_ = latvalue_1d__tmp 
    9281016      ENDIF 
    9291017 
    9301018      IF (PRESENT(latvalue_2d_)) THEN 
    931         latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d(domaingroup_hdl%daddr) 
     1019        latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d & 
     1020      (domaingroup_hdl%daddr) 
    9321021        latvalue_2d_ = latvalue_2d__tmp 
    9331022      ENDIF 
    9341023 
    9351024      IF (PRESENT(long_name_)) THEN 
    936         long_name__tmp = cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr) 
     1025        long_name__tmp = cxios_is_defined_domaingroup_long_name & 
     1026      (domaingroup_hdl%daddr) 
    9371027        long_name_ = long_name__tmp 
    9381028      ENDIF 
    9391029 
    9401030      IF (PRESENT(lonvalue_1d_)) THEN 
    941         lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d(domaingroup_hdl%daddr) 
     1031        lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d & 
     1032      (domaingroup_hdl%daddr) 
    9421033        lonvalue_1d_ = lonvalue_1d__tmp 
    9431034      ENDIF 
    9441035 
    9451036      IF (PRESENT(lonvalue_2d_)) THEN 
    946         lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d(domaingroup_hdl%daddr) 
     1037        lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d & 
     1038      (domaingroup_hdl%daddr) 
    9471039        lonvalue_2d_ = lonvalue_2d__tmp 
    9481040      ENDIF 
    9491041 
    9501042      IF (PRESENT(mask_1d_)) THEN 
    951         mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d(domaingroup_hdl%daddr) 
     1043        mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d & 
     1044      (domaingroup_hdl%daddr) 
    9521045        mask_1d_ = mask_1d__tmp 
    9531046      ENDIF 
    9541047 
    9551048      IF (PRESENT(mask_2d_)) THEN 
    956         mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d(domaingroup_hdl%daddr) 
     1049        mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d & 
     1050      (domaingroup_hdl%daddr) 
    9571051        mask_2d_ = mask_2d__tmp 
    9581052      ENDIF 
    9591053 
    9601054      IF (PRESENT(name_)) THEN 
    961         name__tmp = cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr) 
     1055        name__tmp = cxios_is_defined_domaingroup_name & 
     1056      (domaingroup_hdl%daddr) 
    9621057        name_ = name__tmp 
    9631058      ENDIF 
    9641059 
    9651060      IF (PRESENT(ni_)) THEN 
    966         ni__tmp = cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr) 
     1061        ni__tmp = cxios_is_defined_domaingroup_ni & 
     1062      (domaingroup_hdl%daddr) 
    9671063        ni_ = ni__tmp 
    9681064      ENDIF 
    9691065 
    9701066      IF (PRESENT(ni_glo_)) THEN 
    971         ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr) 
     1067        ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo & 
     1068      (domaingroup_hdl%daddr) 
    9721069        ni_glo_ = ni_glo__tmp 
    9731070      ENDIF 
    9741071 
    9751072      IF (PRESENT(nj_)) THEN 
    976         nj__tmp = cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr) 
     1073        nj__tmp = cxios_is_defined_domaingroup_nj & 
     1074      (domaingroup_hdl%daddr) 
    9771075        nj_ = nj__tmp 
    9781076      ENDIF 
    9791077 
    9801078      IF (PRESENT(nj_glo_)) THEN 
    981         nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr) 
     1079        nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo & 
     1080      (domaingroup_hdl%daddr) 
    9821081        nj_glo_ = nj_glo__tmp 
    9831082      ENDIF 
    9841083 
    9851084      IF (PRESENT(nvertex_)) THEN 
    986         nvertex__tmp = cxios_is_defined_domaingroup_nvertex(domaingroup_hdl%daddr) 
     1085        nvertex__tmp = cxios_is_defined_domaingroup_nvertex & 
     1086      (domaingroup_hdl%daddr) 
    9871087        nvertex_ = nvertex__tmp 
    9881088      ENDIF 
    9891089 
    9901090      IF (PRESENT(standard_name_)) THEN 
    991         standard_name__tmp = cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr) 
     1091        standard_name__tmp = cxios_is_defined_domaingroup_standard_name & 
     1092      (domaingroup_hdl%daddr) 
    9921093        standard_name_ = standard_name__tmp 
    9931094      ENDIF 
    9941095 
    9951096      IF (PRESENT(type_)) THEN 
    996         type__tmp = cxios_is_defined_domaingroup_type(domaingroup_hdl%daddr) 
     1097        type__tmp = cxios_is_defined_domaingroup_type & 
     1098      (domaingroup_hdl%daddr) 
    9971099        type_ = type__tmp 
    9981100      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.