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/idomain_attr.F90

    r789 r966  
    5555      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    5656 
    57       CALL xios(get_domain_handle)(domain_id,domain_hdl) 
     57      CALL xios(get_domain_handle) & 
     58      (domain_id,domain_hdl) 
    5859      CALL xios(set_domain_attr_hdl_)   & 
    5960      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    … …  
    160161 
    161162      IF (PRESENT(area_)) THEN 
    162         CALL cxios_set_domain_area(domain_hdl%daddr, area_, SHAPE(area_)) 
     163        CALL cxios_set_domain_area & 
     164      (domain_hdl%daddr, area_, SHAPE(area_)) 
    163165      ENDIF 
    164166 
    165167      IF (PRESENT(bounds_lat_1d_)) THEN 
    166         CALL cxios_set_domain_bounds_lat_1d(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
     168        CALL cxios_set_domain_bounds_lat_1d & 
     169      (domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
    167170      ENDIF 
    168171 
    169172      IF (PRESENT(bounds_lat_2d_)) THEN 
    170         CALL cxios_set_domain_bounds_lat_2d(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
     173        CALL cxios_set_domain_bounds_lat_2d & 
     174      (domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
    171175      ENDIF 
    172176 
    173177      IF (PRESENT(bounds_lon_1d_)) THEN 
    174         CALL cxios_set_domain_bounds_lon_1d(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
     178        CALL cxios_set_domain_bounds_lon_1d & 
     179      (domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
    175180      ENDIF 
    176181 
    177182      IF (PRESENT(bounds_lon_2d_)) THEN 
    178         CALL cxios_set_domain_bounds_lon_2d(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
     183        CALL cxios_set_domain_bounds_lon_2d & 
     184      (domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
    179185      ENDIF 
    180186 
    181187      IF (PRESENT(data_dim_)) THEN 
    182         CALL cxios_set_domain_data_dim(domain_hdl%daddr, data_dim_) 
     188        CALL cxios_set_domain_data_dim & 
     189      (domain_hdl%daddr, data_dim_) 
    183190      ENDIF 
    184191 
    185192      IF (PRESENT(data_i_index_)) THEN 
    186         CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
     193        CALL cxios_set_domain_data_i_index & 
     194      (domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
    187195      ENDIF 
    188196 
    189197      IF (PRESENT(data_ibegin_)) THEN 
    190         CALL cxios_set_domain_data_ibegin(domain_hdl%daddr, data_ibegin_) 
     198        CALL cxios_set_domain_data_ibegin & 
     199      (domain_hdl%daddr, data_ibegin_) 
    191200      ENDIF 
    192201 
    193202      IF (PRESENT(data_j_index_)) THEN 
    194         CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
     203        CALL cxios_set_domain_data_j_index & 
     204      (domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
    195205      ENDIF 
    196206 
    197207      IF (PRESENT(data_jbegin_)) THEN 
    198         CALL cxios_set_domain_data_jbegin(domain_hdl%daddr, data_jbegin_) 
     208        CALL cxios_set_domain_data_jbegin & 
     209      (domain_hdl%daddr, data_jbegin_) 
    199210      ENDIF 
    200211 
    201212      IF (PRESENT(data_ni_)) THEN 
    202         CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_) 
     213        CALL cxios_set_domain_data_ni & 
     214      (domain_hdl%daddr, data_ni_) 
    203215      ENDIF 
    204216 
    205217      IF (PRESENT(data_nj_)) THEN 
    206         CALL cxios_set_domain_data_nj(domain_hdl%daddr, data_nj_) 
     218        CALL cxios_set_domain_data_nj & 
     219      (domain_hdl%daddr, data_nj_) 
    207220      ENDIF 
    208221 
    209222      IF (PRESENT(domain_ref_)) THEN 
    210         CALL cxios_set_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) 
     223        CALL cxios_set_domain_domain_ref & 
     224      (domain_hdl%daddr, domain_ref_, len(domain_ref_)) 
    211225      ENDIF 
    212226 
    213227      IF (PRESENT(i_index_)) THEN 
    214         CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_)) 
     228        CALL cxios_set_domain_i_index & 
     229      (domain_hdl%daddr, i_index_, SHAPE(i_index_)) 
    215230      ENDIF 
    216231 
    217232      IF (PRESENT(ibegin_)) THEN 
    218         CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_) 
     233        CALL cxios_set_domain_ibegin & 
     234      (domain_hdl%daddr, ibegin_) 
    219235      ENDIF 
    220236 
    221237      IF (PRESENT(j_index_)) THEN 
    222         CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_, SHAPE(j_index_)) 
     238        CALL cxios_set_domain_j_index & 
     239      (domain_hdl%daddr, j_index_, SHAPE(j_index_)) 
    223240      ENDIF 
    224241 
    225242      IF (PRESENT(jbegin_)) THEN 
    226         CALL cxios_set_domain_jbegin(domain_hdl%daddr, jbegin_) 
     243        CALL cxios_set_domain_jbegin & 
     244      (domain_hdl%daddr, jbegin_) 
    227245      ENDIF 
    228246 
    229247      IF (PRESENT(latvalue_1d_)) THEN 
    230         CALL cxios_set_domain_latvalue_1d(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
     248        CALL cxios_set_domain_latvalue_1d & 
     249      (domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
    231250      ENDIF 
    232251 
    233252      IF (PRESENT(latvalue_2d_)) THEN 
    234         CALL cxios_set_domain_latvalue_2d(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
     253        CALL cxios_set_domain_latvalue_2d & 
     254      (domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
    235255      ENDIF 
    236256 
    237257      IF (PRESENT(long_name_)) THEN 
    238         CALL cxios_set_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_)) 
     258        CALL cxios_set_domain_long_name & 
     259      (domain_hdl%daddr, long_name_, len(long_name_)) 
    239260      ENDIF 
    240261 
    241262      IF (PRESENT(lonvalue_1d_)) THEN 
    242         CALL cxios_set_domain_lonvalue_1d(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
     263        CALL cxios_set_domain_lonvalue_1d & 
     264      (domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
    243265      ENDIF 
    244266 
    245267      IF (PRESENT(lonvalue_2d_)) THEN 
    246         CALL cxios_set_domain_lonvalue_2d(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
     268        CALL cxios_set_domain_lonvalue_2d & 
     269      (domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
    247270      ENDIF 
    248271 
    … …  
    250273        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    251274        mask_1d__tmp = mask_1d_ 
    252         CALL cxios_set_domain_mask_1d(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     275        CALL cxios_set_domain_mask_1d & 
     276      (domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    253277      ENDIF 
    254278 
    … …  
    256280        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    257281        mask_2d__tmp = mask_2d_ 
    258         CALL cxios_set_domain_mask_2d(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     282        CALL cxios_set_domain_mask_2d & 
     283      (domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    259284      ENDIF 
    260285 
    261286      IF (PRESENT(name_)) THEN 
    262         CALL cxios_set_domain_name(domain_hdl%daddr, name_, len(name_)) 
     287        CALL cxios_set_domain_name & 
     288      (domain_hdl%daddr, name_, len(name_)) 
    263289      ENDIF 
    264290 
    265291      IF (PRESENT(ni_)) THEN 
    266         CALL cxios_set_domain_ni(domain_hdl%daddr, ni_) 
     292        CALL cxios_set_domain_ni & 
     293      (domain_hdl%daddr, ni_) 
    267294      ENDIF 
    268295 
    269296      IF (PRESENT(ni_glo_)) THEN 
    270         CALL cxios_set_domain_ni_glo(domain_hdl%daddr, ni_glo_) 
     297        CALL cxios_set_domain_ni_glo & 
     298      (domain_hdl%daddr, ni_glo_) 
    271299      ENDIF 
    272300 
    273301      IF (PRESENT(nj_)) THEN 
    274         CALL cxios_set_domain_nj(domain_hdl%daddr, nj_) 
     302        CALL cxios_set_domain_nj & 
     303      (domain_hdl%daddr, nj_) 
    275304      ENDIF 
    276305 
    277306      IF (PRESENT(nj_glo_)) THEN 
    278         CALL cxios_set_domain_nj_glo(domain_hdl%daddr, nj_glo_) 
     307        CALL cxios_set_domain_nj_glo & 
     308      (domain_hdl%daddr, nj_glo_) 
    279309      ENDIF 
    280310 
    281311      IF (PRESENT(nvertex_)) THEN 
    282         CALL cxios_set_domain_nvertex(domain_hdl%daddr, nvertex_) 
     312        CALL cxios_set_domain_nvertex & 
     313      (domain_hdl%daddr, nvertex_) 
    283314      ENDIF 
    284315 
    285316      IF (PRESENT(standard_name_)) THEN 
    286         CALL cxios_set_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_)) 
     317        CALL cxios_set_domain_standard_name & 
     318      (domain_hdl%daddr, standard_name_, len(standard_name_)) 
    287319      ENDIF 
    288320 
    289321      IF (PRESENT(type_)) THEN 
    290         CALL cxios_set_domain_type(domain_hdl%daddr, type_, len(type_)) 
     322        CALL cxios_set_domain_type & 
     323      (domain_hdl%daddr, type_, len(type_)) 
    291324      ENDIF 
    292325 
    … …  
    337370      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    338371 
    339       CALL xios(get_domain_handle)(domain_id,domain_hdl) 
     372      CALL xios(get_domain_handle) & 
     373      (domain_id,domain_hdl) 
    340374      CALL xios(get_domain_attr_hdl_)   & 
    341375      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    … …  
    442476 
    443477      IF (PRESENT(area_)) THEN 
    444         CALL cxios_get_domain_area(domain_hdl%daddr, area_, SHAPE(area_)) 
     478        CALL cxios_get_domain_area & 
     479      (domain_hdl%daddr, area_, SHAPE(area_)) 
    445480      ENDIF 
    446481 
    447482      IF (PRESENT(bounds_lat_1d_)) THEN 
    448         CALL cxios_get_domain_bounds_lat_1d(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
     483        CALL cxios_get_domain_bounds_lat_1d & 
     484      (domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
    449485      ENDIF 
    450486 
    451487      IF (PRESENT(bounds_lat_2d_)) THEN 
    452         CALL cxios_get_domain_bounds_lat_2d(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
     488        CALL cxios_get_domain_bounds_lat_2d & 
     489      (domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
    453490      ENDIF 
    454491 
    455492      IF (PRESENT(bounds_lon_1d_)) THEN 
    456         CALL cxios_get_domain_bounds_lon_1d(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
     493        CALL cxios_get_domain_bounds_lon_1d & 
     494      (domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
    457495      ENDIF 
    458496 
    459497      IF (PRESENT(bounds_lon_2d_)) THEN 
    460         CALL cxios_get_domain_bounds_lon_2d(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
     498        CALL cxios_get_domain_bounds_lon_2d & 
     499      (domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
    461500      ENDIF 
    462501 
    463502      IF (PRESENT(data_dim_)) THEN 
    464         CALL cxios_get_domain_data_dim(domain_hdl%daddr, data_dim_) 
     503        CALL cxios_get_domain_data_dim & 
     504      (domain_hdl%daddr, data_dim_) 
    465505      ENDIF 
    466506 
    467507      IF (PRESENT(data_i_index_)) THEN 
    468         CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
     508        CALL cxios_get_domain_data_i_index & 
     509      (domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
    469510      ENDIF 
    470511 
    471512      IF (PRESENT(data_ibegin_)) THEN 
    472         CALL cxios_get_domain_data_ibegin(domain_hdl%daddr, data_ibegin_) 
     513        CALL cxios_get_domain_data_ibegin & 
     514      (domain_hdl%daddr, data_ibegin_) 
    473515      ENDIF 
    474516 
    475517      IF (PRESENT(data_j_index_)) THEN 
    476         CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
     518        CALL cxios_get_domain_data_j_index & 
     519      (domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
    477520      ENDIF 
    478521 
    479522      IF (PRESENT(data_jbegin_)) THEN 
    480         CALL cxios_get_domain_data_jbegin(domain_hdl%daddr, data_jbegin_) 
     523        CALL cxios_get_domain_data_jbegin & 
     524      (domain_hdl%daddr, data_jbegin_) 
    481525      ENDIF 
    482526 
    483527      IF (PRESENT(data_ni_)) THEN 
    484         CALL cxios_get_domain_data_ni(domain_hdl%daddr, data_ni_) 
     528        CALL cxios_get_domain_data_ni & 
     529      (domain_hdl%daddr, data_ni_) 
    485530      ENDIF 
    486531 
    487532      IF (PRESENT(data_nj_)) THEN 
    488         CALL cxios_get_domain_data_nj(domain_hdl%daddr, data_nj_) 
     533        CALL cxios_get_domain_data_nj & 
     534      (domain_hdl%daddr, data_nj_) 
    489535      ENDIF 
    490536 
    491537      IF (PRESENT(domain_ref_)) THEN 
    492         CALL cxios_get_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) 
     538        CALL cxios_get_domain_domain_ref & 
     539      (domain_hdl%daddr, domain_ref_, len(domain_ref_)) 
    493540      ENDIF 
    494541 
    495542      IF (PRESENT(i_index_)) THEN 
    496         CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_)) 
     543        CALL cxios_get_domain_i_index & 
     544      (domain_hdl%daddr, i_index_, SHAPE(i_index_)) 
    497545      ENDIF 
    498546 
    499547      IF (PRESENT(ibegin_)) THEN 
    500         CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_) 
     548        CALL cxios_get_domain_ibegin & 
     549      (domain_hdl%daddr, ibegin_) 
    501550      ENDIF 
    502551 
    503552      IF (PRESENT(j_index_)) THEN 
    504         CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_, SHAPE(j_index_)) 
     553        CALL cxios_get_domain_j_index & 
     554      (domain_hdl%daddr, j_index_, SHAPE(j_index_)) 
    505555      ENDIF 
    506556 
    507557      IF (PRESENT(jbegin_)) THEN 
    508         CALL cxios_get_domain_jbegin(domain_hdl%daddr, jbegin_) 
     558        CALL cxios_get_domain_jbegin & 
     559      (domain_hdl%daddr, jbegin_) 
    509560      ENDIF 
    510561 
    511562      IF (PRESENT(latvalue_1d_)) THEN 
    512         CALL cxios_get_domain_latvalue_1d(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
     563        CALL cxios_get_domain_latvalue_1d & 
     564      (domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
    513565      ENDIF 
    514566 
    515567      IF (PRESENT(latvalue_2d_)) THEN 
    516         CALL cxios_get_domain_latvalue_2d(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
     568        CALL cxios_get_domain_latvalue_2d & 
     569      (domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
    517570      ENDIF 
    518571 
    519572      IF (PRESENT(long_name_)) THEN 
    520         CALL cxios_get_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_)) 
     573        CALL cxios_get_domain_long_name & 
     574      (domain_hdl%daddr, long_name_, len(long_name_)) 
    521575      ENDIF 
    522576 
    523577      IF (PRESENT(lonvalue_1d_)) THEN 
    524         CALL cxios_get_domain_lonvalue_1d(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
     578        CALL cxios_get_domain_lonvalue_1d & 
     579      (domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
    525580      ENDIF 
    526581 
    527582      IF (PRESENT(lonvalue_2d_)) THEN 
    528         CALL cxios_get_domain_lonvalue_2d(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
     583        CALL cxios_get_domain_lonvalue_2d & 
     584      (domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
    529585      ENDIF 
    530586 
    531587      IF (PRESENT(mask_1d_)) THEN 
    532588        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    533         CALL cxios_get_domain_mask_1d(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     589        CALL cxios_get_domain_mask_1d & 
     590      (domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    534591        mask_1d_ = mask_1d__tmp 
    535592      ENDIF 
    … …  
    537594      IF (PRESENT(mask_2d_)) THEN 
    538595        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    539         CALL cxios_get_domain_mask_2d(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     596        CALL cxios_get_domain_mask_2d & 
     597      (domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    540598        mask_2d_ = mask_2d__tmp 
    541599      ENDIF 
    542600 
    543601      IF (PRESENT(name_)) THEN 
    544         CALL cxios_get_domain_name(domain_hdl%daddr, name_, len(name_)) 
     602        CALL cxios_get_domain_name & 
     603      (domain_hdl%daddr, name_, len(name_)) 
    545604      ENDIF 
    546605 
    547606      IF (PRESENT(ni_)) THEN 
    548         CALL cxios_get_domain_ni(domain_hdl%daddr, ni_) 
     607        CALL cxios_get_domain_ni & 
     608      (domain_hdl%daddr, ni_) 
    549609      ENDIF 
    550610 
    551611      IF (PRESENT(ni_glo_)) THEN 
    552         CALL cxios_get_domain_ni_glo(domain_hdl%daddr, ni_glo_) 
     612        CALL cxios_get_domain_ni_glo & 
     613      (domain_hdl%daddr, ni_glo_) 
    553614      ENDIF 
    554615 
    555616      IF (PRESENT(nj_)) THEN 
    556         CALL cxios_get_domain_nj(domain_hdl%daddr, nj_) 
     617        CALL cxios_get_domain_nj & 
     618      (domain_hdl%daddr, nj_) 
    557619      ENDIF 
    558620 
    559621      IF (PRESENT(nj_glo_)) THEN 
    560         CALL cxios_get_domain_nj_glo(domain_hdl%daddr, nj_glo_) 
     622        CALL cxios_get_domain_nj_glo & 
     623      (domain_hdl%daddr, nj_glo_) 
    561624      ENDIF 
    562625 
    563626      IF (PRESENT(nvertex_)) THEN 
    564         CALL cxios_get_domain_nvertex(domain_hdl%daddr, nvertex_) 
     627        CALL cxios_get_domain_nvertex & 
     628      (domain_hdl%daddr, nvertex_) 
    565629      ENDIF 
    566630 
    567631      IF (PRESENT(standard_name_)) THEN 
    568         CALL cxios_get_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_)) 
     632        CALL cxios_get_domain_standard_name & 
     633      (domain_hdl%daddr, standard_name_, len(standard_name_)) 
    569634      ENDIF 
    570635 
    571636      IF (PRESENT(type_)) THEN 
    572         CALL cxios_get_domain_type(domain_hdl%daddr, type_, len(type_)) 
     637        CALL cxios_get_domain_type & 
     638      (domain_hdl%daddr, type_, len(type_)) 
    573639      ENDIF 
    574640 
    … …  
    649715      LOGICAL(KIND=C_BOOL) :: type_tmp 
    650716 
    651       CALL xios(get_domain_handle)(domain_id,domain_hdl) 
     717      CALL xios(get_domain_handle) & 
     718      (domain_id,domain_hdl) 
    652719      CALL xios(is_defined_domain_attr_hdl_)   & 
    653720      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    … …  
    814881 
    815882      IF (PRESENT(area_)) THEN 
    816         area__tmp = cxios_is_defined_domain_area(domain_hdl%daddr) 
     883        area__tmp = cxios_is_defined_domain_area & 
     884      (domain_hdl%daddr) 
    817885        area_ = area__tmp 
    818886      ENDIF 
    819887 
    820888      IF (PRESENT(bounds_lat_1d_)) THEN 
    821         bounds_lat_1d__tmp = cxios_is_defined_domain_bounds_lat_1d(domain_hdl%daddr) 
     889        bounds_lat_1d__tmp = cxios_is_defined_domain_bounds_lat_1d & 
     890      (domain_hdl%daddr) 
    822891        bounds_lat_1d_ = bounds_lat_1d__tmp 
    823892      ENDIF 
    824893 
    825894      IF (PRESENT(bounds_lat_2d_)) THEN 
    826         bounds_lat_2d__tmp = cxios_is_defined_domain_bounds_lat_2d(domain_hdl%daddr) 
     895        bounds_lat_2d__tmp = cxios_is_defined_domain_bounds_lat_2d & 
     896      (domain_hdl%daddr) 
    827897        bounds_lat_2d_ = bounds_lat_2d__tmp 
    828898      ENDIF 
    829899 
    830900      IF (PRESENT(bounds_lon_1d_)) THEN 
    831         bounds_lon_1d__tmp = cxios_is_defined_domain_bounds_lon_1d(domain_hdl%daddr) 
     901        bounds_lon_1d__tmp = cxios_is_defined_domain_bounds_lon_1d & 
     902      (domain_hdl%daddr) 
    832903        bounds_lon_1d_ = bounds_lon_1d__tmp 
    833904      ENDIF 
    834905 
    835906      IF (PRESENT(bounds_lon_2d_)) THEN 
    836         bounds_lon_2d__tmp = cxios_is_defined_domain_bounds_lon_2d(domain_hdl%daddr) 
     907        bounds_lon_2d__tmp = cxios_is_defined_domain_bounds_lon_2d & 
     908      (domain_hdl%daddr) 
    837909        bounds_lon_2d_ = bounds_lon_2d__tmp 
    838910      ENDIF 
    839911 
    840912      IF (PRESENT(data_dim_)) THEN 
    841         data_dim__tmp = cxios_is_defined_domain_data_dim(domain_hdl%daddr) 
     913        data_dim__tmp = cxios_is_defined_domain_data_dim & 
     914      (domain_hdl%daddr) 
    842915        data_dim_ = data_dim__tmp 
    843916      ENDIF 
    844917 
    845918      IF (PRESENT(data_i_index_)) THEN 
    846         data_i_index__tmp = cxios_is_defined_domain_data_i_index(domain_hdl%daddr) 
     919        data_i_index__tmp = cxios_is_defined_domain_data_i_index & 
     920      (domain_hdl%daddr) 
    847921        data_i_index_ = data_i_index__tmp 
    848922      ENDIF 
    849923 
    850924      IF (PRESENT(data_ibegin_)) THEN 
    851         data_ibegin__tmp = cxios_is_defined_domain_data_ibegin(domain_hdl%daddr) 
     925        data_ibegin__tmp = cxios_is_defined_domain_data_ibegin & 
     926      (domain_hdl%daddr) 
    852927        data_ibegin_ = data_ibegin__tmp 
    853928      ENDIF 
    854929 
    855930      IF (PRESENT(data_j_index_)) THEN 
    856         data_j_index__tmp = cxios_is_defined_domain_data_j_index(domain_hdl%daddr) 
     931        data_j_index__tmp = cxios_is_defined_domain_data_j_index & 
     932      (domain_hdl%daddr) 
    857933        data_j_index_ = data_j_index__tmp 
    858934      ENDIF 
    859935 
    860936      IF (PRESENT(data_jbegin_)) THEN 
    861         data_jbegin__tmp = cxios_is_defined_domain_data_jbegin(domain_hdl%daddr) 
     937        data_jbegin__tmp = cxios_is_defined_domain_data_jbegin & 
     938      (domain_hdl%daddr) 
    862939        data_jbegin_ = data_jbegin__tmp 
    863940      ENDIF 
    864941 
    865942      IF (PRESENT(data_ni_)) THEN 
    866         data_ni__tmp = cxios_is_defined_domain_data_ni(domain_hdl%daddr) 
     943        data_ni__tmp = cxios_is_defined_domain_data_ni & 
     944      (domain_hdl%daddr) 
    867945        data_ni_ = data_ni__tmp 
    868946      ENDIF 
    869947 
    870948      IF (PRESENT(data_nj_)) THEN 
    871         data_nj__tmp = cxios_is_defined_domain_data_nj(domain_hdl%daddr) 
     949        data_nj__tmp = cxios_is_defined_domain_data_nj & 
     950      (domain_hdl%daddr) 
    872951        data_nj_ = data_nj__tmp 
    873952      ENDIF 
    874953 
    875954      IF (PRESENT(domain_ref_)) THEN 
    876         domain_ref__tmp = cxios_is_defined_domain_domain_ref(domain_hdl%daddr) 
     955        domain_ref__tmp = cxios_is_defined_domain_domain_ref & 
     956      (domain_hdl%daddr) 
    877957        domain_ref_ = domain_ref__tmp 
    878958      ENDIF 
    879959 
    880960      IF (PRESENT(i_index_)) THEN 
    881         i_index__tmp = cxios_is_defined_domain_i_index(domain_hdl%daddr) 
     961        i_index__tmp = cxios_is_defined_domain_i_index & 
     962      (domain_hdl%daddr) 
    882963        i_index_ = i_index__tmp 
    883964      ENDIF 
    884965 
    885966      IF (PRESENT(ibegin_)) THEN 
    886         ibegin__tmp = cxios_is_defined_domain_ibegin(domain_hdl%daddr) 
     967        ibegin__tmp = cxios_is_defined_domain_ibegin & 
     968      (domain_hdl%daddr) 
    887969        ibegin_ = ibegin__tmp 
    888970      ENDIF 
    889971 
    890972      IF (PRESENT(j_index_)) THEN 
    891         j_index__tmp = cxios_is_defined_domain_j_index(domain_hdl%daddr) 
     973        j_index__tmp = cxios_is_defined_domain_j_index & 
     974      (domain_hdl%daddr) 
    892975        j_index_ = j_index__tmp 
    893976      ENDIF 
    894977 
    895978      IF (PRESENT(jbegin_)) THEN 
    896         jbegin__tmp = cxios_is_defined_domain_jbegin(domain_hdl%daddr) 
     979        jbegin__tmp = cxios_is_defined_domain_jbegin & 
     980      (domain_hdl%daddr) 
    897981        jbegin_ = jbegin__tmp 
    898982      ENDIF 
    899983 
    900984      IF (PRESENT(latvalue_1d_)) THEN 
    901         latvalue_1d__tmp = cxios_is_defined_domain_latvalue_1d(domain_hdl%daddr) 
     985        latvalue_1d__tmp = cxios_is_defined_domain_latvalue_1d & 
     986      (domain_hdl%daddr) 
    902987        latvalue_1d_ = latvalue_1d__tmp 
    903988      ENDIF 
    904989 
    905990      IF (PRESENT(latvalue_2d_)) THEN 
    906         latvalue_2d__tmp = cxios_is_defined_domain_latvalue_2d(domain_hdl%daddr) 
     991        latvalue_2d__tmp = cxios_is_defined_domain_latvalue_2d & 
     992      (domain_hdl%daddr) 
    907993        latvalue_2d_ = latvalue_2d__tmp 
    908994      ENDIF 
    909995 
    910996      IF (PRESENT(long_name_)) THEN 
    911         long_name__tmp = cxios_is_defined_domain_long_name(domain_hdl%daddr) 
     997        long_name__tmp = cxios_is_defined_domain_long_name & 
     998      (domain_hdl%daddr) 
    912999        long_name_ = long_name__tmp 
    9131000      ENDIF 
    9141001 
    9151002      IF (PRESENT(lonvalue_1d_)) THEN 
    916         lonvalue_1d__tmp = cxios_is_defined_domain_lonvalue_1d(domain_hdl%daddr) 
     1003        lonvalue_1d__tmp = cxios_is_defined_domain_lonvalue_1d & 
     1004      (domain_hdl%daddr) 
    9171005        lonvalue_1d_ = lonvalue_1d__tmp 
    9181006      ENDIF 
    9191007 
    9201008      IF (PRESENT(lonvalue_2d_)) THEN 
    921         lonvalue_2d__tmp = cxios_is_defined_domain_lonvalue_2d(domain_hdl%daddr) 
     1009        lonvalue_2d__tmp = cxios_is_defined_domain_lonvalue_2d & 
     1010      (domain_hdl%daddr) 
    9221011        lonvalue_2d_ = lonvalue_2d__tmp 
    9231012      ENDIF 
    9241013 
    9251014      IF (PRESENT(mask_1d_)) THEN 
    926         mask_1d__tmp = cxios_is_defined_domain_mask_1d(domain_hdl%daddr) 
     1015        mask_1d__tmp = cxios_is_defined_domain_mask_1d & 
     1016      (domain_hdl%daddr) 
    9271017        mask_1d_ = mask_1d__tmp 
    9281018      ENDIF 
    9291019 
    9301020      IF (PRESENT(mask_2d_)) THEN 
    931         mask_2d__tmp = cxios_is_defined_domain_mask_2d(domain_hdl%daddr) 
     1021        mask_2d__tmp = cxios_is_defined_domain_mask_2d & 
     1022      (domain_hdl%daddr) 
    9321023        mask_2d_ = mask_2d__tmp 
    9331024      ENDIF 
    9341025 
    9351026      IF (PRESENT(name_)) THEN 
    936         name__tmp = cxios_is_defined_domain_name(domain_hdl%daddr) 
     1027        name__tmp = cxios_is_defined_domain_name & 
     1028      (domain_hdl%daddr) 
    9371029        name_ = name__tmp 
    9381030      ENDIF 
    9391031 
    9401032      IF (PRESENT(ni_)) THEN 
    941         ni__tmp = cxios_is_defined_domain_ni(domain_hdl%daddr) 
     1033        ni__tmp = cxios_is_defined_domain_ni & 
     1034      (domain_hdl%daddr) 
    9421035        ni_ = ni__tmp 
    9431036      ENDIF 
    9441037 
    9451038      IF (PRESENT(ni_glo_)) THEN 
    946         ni_glo__tmp = cxios_is_defined_domain_ni_glo(domain_hdl%daddr) 
     1039        ni_glo__tmp = cxios_is_defined_domain_ni_glo & 
     1040      (domain_hdl%daddr) 
    9471041        ni_glo_ = ni_glo__tmp 
    9481042      ENDIF 
    9491043 
    9501044      IF (PRESENT(nj_)) THEN 
    951         nj__tmp = cxios_is_defined_domain_nj(domain_hdl%daddr) 
     1045        nj__tmp = cxios_is_defined_domain_nj & 
     1046      (domain_hdl%daddr) 
    9521047        nj_ = nj__tmp 
    9531048      ENDIF 
    9541049 
    9551050      IF (PRESENT(nj_glo_)) THEN 
    956         nj_glo__tmp = cxios_is_defined_domain_nj_glo(domain_hdl%daddr) 
     1051        nj_glo__tmp = cxios_is_defined_domain_nj_glo & 
     1052      (domain_hdl%daddr) 
    9571053        nj_glo_ = nj_glo__tmp 
    9581054      ENDIF 
    9591055 
    9601056      IF (PRESENT(nvertex_)) THEN 
    961         nvertex__tmp = cxios_is_defined_domain_nvertex(domain_hdl%daddr) 
     1057        nvertex__tmp = cxios_is_defined_domain_nvertex & 
     1058      (domain_hdl%daddr) 
    9621059        nvertex_ = nvertex__tmp 
    9631060      ENDIF 
    9641061 
    9651062      IF (PRESENT(standard_name_)) THEN 
    966         standard_name__tmp = cxios_is_defined_domain_standard_name(domain_hdl%daddr) 
     1063        standard_name__tmp = cxios_is_defined_domain_standard_name & 
     1064      (domain_hdl%daddr) 
    9671065        standard_name_ = standard_name__tmp 
    9681066      ENDIF 
    9691067 
    9701068      IF (PRESENT(type_)) THEN 
    971         type__tmp = cxios_is_defined_domain_type(domain_hdl%daddr) 
     1069        type__tmp = cxios_is_defined_domain_type & 
     1070      (domain_hdl%daddr) 
    9721071        type_ = type__tmp 
    9731072      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.