Ignore:
Timestamp:
08/25/15 10:50:21 (9 years ago)
Author:
rlacroix
Message:

Fix Fortran interface generation to avoid generating long lines.

Long lines can cause compilation issues with some compilers.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r666 r674  
    1010    ! Do not call directly / interface FORTRAN 2003 <-> C99 
    1111 
    12     SUBROUTINE cxios_set_domaingroup_area(domaingroup_hdl, area, extent1, extent2) BIND(C) 
     12    SUBROUTINE cxios_set_domaingroup_area(domaingroup_hdl, area, extent) BIND(C) 
    1313      USE ISO_C_BINDING 
    1414      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    1515      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area 
    16       INTEGER (kind = C_INT), VALUE  :: extent1 
    17       INTEGER (kind = C_INT), VALUE  :: extent2 
     16      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    1817    END SUBROUTINE cxios_set_domaingroup_area 
    1918 
    20     SUBROUTINE cxios_get_domaingroup_area(domaingroup_hdl, area, extent1, extent2) BIND(C) 
     19    SUBROUTINE cxios_get_domaingroup_area(domaingroup_hdl, area, extent) BIND(C) 
    2120      USE ISO_C_BINDING 
    2221      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    2322      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area 
    24       INTEGER (kind = C_INT), VALUE  :: extent1 
    25       INTEGER (kind = C_INT), VALUE  :: extent2 
     23      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    2624    END SUBROUTINE cxios_get_domaingroup_area 
    2725 
    … …  
    3331 
    3432 
    35     SUBROUTINE cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent1, extent2) BIND(C) 
     33    SUBROUTINE cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent) BIND(C) 
    3634      USE ISO_C_BINDING 
    3735      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    3836      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_1d 
    39       INTEGER (kind = C_INT), VALUE  :: extent1 
    40       INTEGER (kind = C_INT), VALUE  :: extent2 
     37      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    4138    END SUBROUTINE cxios_set_domaingroup_bounds_lat_1d 
    4239 
    43     SUBROUTINE cxios_get_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent1, extent2) BIND(C) 
     40    SUBROUTINE cxios_get_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent) BIND(C) 
    4441      USE ISO_C_BINDING 
    4542      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    4643      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_1d 
    47       INTEGER (kind = C_INT), VALUE  :: extent1 
    48       INTEGER (kind = C_INT), VALUE  :: extent2 
     44      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    4945    END SUBROUTINE cxios_get_domaingroup_bounds_lat_1d 
    5046 
    … …  
    5652 
    5753 
    58     SUBROUTINE cxios_set_domaingroup_bounds_lat_2d(domaingroup_hdl, bounds_lat_2d, extent1, extent2, extent3) BIND(C) 
     54    SUBROUTINE cxios_set_domaingroup_bounds_lat_2d(domaingroup_hdl, bounds_lat_2d, extent) BIND(C) 
    5955      USE ISO_C_BINDING 
    6056      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    6157      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d 
    62       INTEGER (kind = C_INT), VALUE  :: extent1 
    63       INTEGER (kind = C_INT), VALUE  :: extent2 
    64       INTEGER (kind = C_INT), VALUE  :: extent3 
     58      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    6559    END SUBROUTINE cxios_set_domaingroup_bounds_lat_2d 
    6660 
    67     SUBROUTINE cxios_get_domaingroup_bounds_lat_2d(domaingroup_hdl, bounds_lat_2d, extent1, extent2, extent3) BIND(C) 
     61    SUBROUTINE cxios_get_domaingroup_bounds_lat_2d(domaingroup_hdl, bounds_lat_2d, extent) BIND(C) 
    6862      USE ISO_C_BINDING 
    6963      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    7064      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d 
    71       INTEGER (kind = C_INT), VALUE  :: extent1 
    72       INTEGER (kind = C_INT), VALUE  :: extent2 
    73       INTEGER (kind = C_INT), VALUE  :: extent3 
     65      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    7466    END SUBROUTINE cxios_get_domaingroup_bounds_lat_2d 
    7567 
    … …  
    8173 
    8274 
    83     SUBROUTINE cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl, bounds_lon_1d, extent1, extent2) BIND(C) 
     75    SUBROUTINE cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl, bounds_lon_1d, extent) BIND(C) 
    8476      USE ISO_C_BINDING 
    8577      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    8678      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d 
    87       INTEGER (kind = C_INT), VALUE  :: extent1 
    88       INTEGER (kind = C_INT), VALUE  :: extent2 
     79      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    8980    END SUBROUTINE cxios_set_domaingroup_bounds_lon_1d 
    9081 
    91     SUBROUTINE cxios_get_domaingroup_bounds_lon_1d(domaingroup_hdl, bounds_lon_1d, extent1, extent2) BIND(C) 
     82    SUBROUTINE cxios_get_domaingroup_bounds_lon_1d(domaingroup_hdl, bounds_lon_1d, extent) BIND(C) 
    9283      USE ISO_C_BINDING 
    9384      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    9485      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d 
    95       INTEGER (kind = C_INT), VALUE  :: extent1 
    96       INTEGER (kind = C_INT), VALUE  :: extent2 
     86      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    9787    END SUBROUTINE cxios_get_domaingroup_bounds_lon_1d 
    9888 
    … …  
    10494 
    10595 
    106     SUBROUTINE cxios_set_domaingroup_bounds_lon_2d(domaingroup_hdl, bounds_lon_2d, extent1, extent2, extent3) BIND(C) 
     96    SUBROUTINE cxios_set_domaingroup_bounds_lon_2d(domaingroup_hdl, bounds_lon_2d, extent) BIND(C) 
    10797      USE ISO_C_BINDING 
    10898      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    10999      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d 
    110       INTEGER (kind = C_INT), VALUE  :: extent1 
    111       INTEGER (kind = C_INT), VALUE  :: extent2 
    112       INTEGER (kind = C_INT), VALUE  :: extent3 
     100      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    113101    END SUBROUTINE cxios_set_domaingroup_bounds_lon_2d 
    114102 
    115     SUBROUTINE cxios_get_domaingroup_bounds_lon_2d(domaingroup_hdl, bounds_lon_2d, extent1, extent2, extent3) BIND(C) 
     103    SUBROUTINE cxios_get_domaingroup_bounds_lon_2d(domaingroup_hdl, bounds_lon_2d, extent) BIND(C) 
    116104      USE ISO_C_BINDING 
    117105      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    118106      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d 
    119       INTEGER (kind = C_INT), VALUE  :: extent1 
    120       INTEGER (kind = C_INT), VALUE  :: extent2 
    121       INTEGER (kind = C_INT), VALUE  :: extent3 
     107      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    122108    END SUBROUTINE cxios_get_domaingroup_bounds_lon_2d 
    123109 
    … …  
    148134 
    149135 
    150     SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C) 
     136    SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent) BIND(C) 
    151137      USE ISO_C_BINDING 
    152138      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    153139      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index 
    154       INTEGER (kind = C_INT), VALUE  :: extent1 
     140      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    155141    END SUBROUTINE cxios_set_domaingroup_data_i_index 
    156142 
    157     SUBROUTINE cxios_get_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C) 
     143    SUBROUTINE cxios_get_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent) BIND(C) 
    158144      USE ISO_C_BINDING 
    159145      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    160146      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index 
    161       INTEGER (kind = C_INT), VALUE  :: extent1 
     147      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    162148    END SUBROUTINE cxios_get_domaingroup_data_i_index 
    163149 
    … …  
    188174 
    189175 
    190     SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C) 
     176    SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent) BIND(C) 
    191177      USE ISO_C_BINDING 
    192178      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    193179      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index 
    194       INTEGER (kind = C_INT), VALUE  :: extent1 
     180      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    195181    END SUBROUTINE cxios_set_domaingroup_data_j_index 
    196182 
    197     SUBROUTINE cxios_get_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C) 
     183    SUBROUTINE cxios_get_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent) BIND(C) 
    198184      USE ISO_C_BINDING 
    199185      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    200186      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index 
    201       INTEGER (kind = C_INT), VALUE  :: extent1 
     187      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    202188    END SUBROUTINE cxios_get_domaingroup_data_j_index 
    203189 
    … …  
    329315 
    330316 
    331     SUBROUTINE cxios_set_domaingroup_i_index(domaingroup_hdl, i_index, extent1) BIND(C) 
     317    SUBROUTINE cxios_set_domaingroup_i_index(domaingroup_hdl, i_index, extent) BIND(C) 
    332318      USE ISO_C_BINDING 
    333319      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    334320      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index 
    335       INTEGER (kind = C_INT), VALUE  :: extent1 
     321      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    336322    END SUBROUTINE cxios_set_domaingroup_i_index 
    337323 
    338     SUBROUTINE cxios_get_domaingroup_i_index(domaingroup_hdl, i_index, extent1) BIND(C) 
     324    SUBROUTINE cxios_get_domaingroup_i_index(domaingroup_hdl, i_index, extent) BIND(C) 
    339325      USE ISO_C_BINDING 
    340326      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    341327      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index 
    342       INTEGER (kind = C_INT), VALUE  :: extent1 
     328      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    343329    END SUBROUTINE cxios_get_domaingroup_i_index 
    344330 
    … …  
    369355 
    370356 
    371     SUBROUTINE cxios_set_domaingroup_j_index(domaingroup_hdl, j_index, extent1) BIND(C) 
     357    SUBROUTINE cxios_set_domaingroup_j_index(domaingroup_hdl, j_index, extent) BIND(C) 
    372358      USE ISO_C_BINDING 
    373359      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    374360      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index 
    375       INTEGER (kind = C_INT), VALUE  :: extent1 
     361      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    376362    END SUBROUTINE cxios_set_domaingroup_j_index 
    377363 
    378     SUBROUTINE cxios_get_domaingroup_j_index(domaingroup_hdl, j_index, extent1) BIND(C) 
     364    SUBROUTINE cxios_get_domaingroup_j_index(domaingroup_hdl, j_index, extent) BIND(C) 
    379365      USE ISO_C_BINDING 
    380366      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    381367      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index 
    382       INTEGER (kind = C_INT), VALUE  :: extent1 
     368      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    383369    END SUBROUTINE cxios_get_domaingroup_j_index 
    384370 
    … …  
    409395 
    410396 
    411     SUBROUTINE cxios_set_domaingroup_latvalue_1d(domaingroup_hdl, latvalue_1d, extent1) BIND(C) 
     397    SUBROUTINE cxios_set_domaingroup_latvalue_1d(domaingroup_hdl, latvalue_1d, extent) BIND(C) 
    412398      USE ISO_C_BINDING 
    413399      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    414400      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d 
    415       INTEGER (kind = C_INT), VALUE  :: extent1 
     401      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    416402    END SUBROUTINE cxios_set_domaingroup_latvalue_1d 
    417403 
    418     SUBROUTINE cxios_get_domaingroup_latvalue_1d(domaingroup_hdl, latvalue_1d, extent1) BIND(C) 
     404    SUBROUTINE cxios_get_domaingroup_latvalue_1d(domaingroup_hdl, latvalue_1d, extent) BIND(C) 
    419405      USE ISO_C_BINDING 
    420406      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    421407      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d 
    422       INTEGER (kind = C_INT), VALUE  :: extent1 
     408      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    423409    END SUBROUTINE cxios_get_domaingroup_latvalue_1d 
    424410 
    … …  
    430416 
    431417 
    432     SUBROUTINE cxios_set_domaingroup_latvalue_2d(domaingroup_hdl, latvalue_2d, extent1, extent2) BIND(C) 
     418    SUBROUTINE cxios_set_domaingroup_latvalue_2d(domaingroup_hdl, latvalue_2d, extent) BIND(C) 
    433419      USE ISO_C_BINDING 
    434420      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    435421      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d 
    436       INTEGER (kind = C_INT), VALUE  :: extent1 
    437       INTEGER (kind = C_INT), VALUE  :: extent2 
     422      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    438423    END SUBROUTINE cxios_set_domaingroup_latvalue_2d 
    439424 
    440     SUBROUTINE cxios_get_domaingroup_latvalue_2d(domaingroup_hdl, latvalue_2d, extent1, extent2) BIND(C) 
     425    SUBROUTINE cxios_get_domaingroup_latvalue_2d(domaingroup_hdl, latvalue_2d, extent) BIND(C) 
    441426      USE ISO_C_BINDING 
    442427      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    443428      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d 
    444       INTEGER (kind = C_INT), VALUE  :: extent1 
    445       INTEGER (kind = C_INT), VALUE  :: extent2 
     429      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    446430    END SUBROUTINE cxios_get_domaingroup_latvalue_2d 
    447431 
    … …  
    474458 
    475459 
    476     SUBROUTINE cxios_set_domaingroup_lonvalue_1d(domaingroup_hdl, lonvalue_1d, extent1) BIND(C) 
     460    SUBROUTINE cxios_set_domaingroup_lonvalue_1d(domaingroup_hdl, lonvalue_1d, extent) BIND(C) 
    477461      USE ISO_C_BINDING 
    478462      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    479463      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d 
    480       INTEGER (kind = C_INT), VALUE  :: extent1 
     464      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    481465    END SUBROUTINE cxios_set_domaingroup_lonvalue_1d 
    482466 
    483     SUBROUTINE cxios_get_domaingroup_lonvalue_1d(domaingroup_hdl, lonvalue_1d, extent1) BIND(C) 
     467    SUBROUTINE cxios_get_domaingroup_lonvalue_1d(domaingroup_hdl, lonvalue_1d, extent) BIND(C) 
    484468      USE ISO_C_BINDING 
    485469      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    486470      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d 
    487       INTEGER (kind = C_INT), VALUE  :: extent1 
     471      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    488472    END SUBROUTINE cxios_get_domaingroup_lonvalue_1d 
    489473 
    … …  
    495479 
    496480 
    497     SUBROUTINE cxios_set_domaingroup_lonvalue_2d(domaingroup_hdl, lonvalue_2d, extent1, extent2) BIND(C) 
     481    SUBROUTINE cxios_set_domaingroup_lonvalue_2d(domaingroup_hdl, lonvalue_2d, extent) BIND(C) 
    498482      USE ISO_C_BINDING 
    499483      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    500484      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d 
    501       INTEGER (kind = C_INT), VALUE  :: extent1 
    502       INTEGER (kind = C_INT), VALUE  :: extent2 
     485      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    503486    END SUBROUTINE cxios_set_domaingroup_lonvalue_2d 
    504487 
    505     SUBROUTINE cxios_get_domaingroup_lonvalue_2d(domaingroup_hdl, lonvalue_2d, extent1, extent2) BIND(C) 
     488    SUBROUTINE cxios_get_domaingroup_lonvalue_2d(domaingroup_hdl, lonvalue_2d, extent) BIND(C) 
    506489      USE ISO_C_BINDING 
    507490      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    508491      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d 
    509       INTEGER (kind = C_INT), VALUE  :: extent1 
    510       INTEGER (kind = C_INT), VALUE  :: extent2 
     492      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    511493    END SUBROUTINE cxios_get_domaingroup_lonvalue_2d 
    512494 
    … …  
    518500 
    519501 
    520     SUBROUTINE cxios_set_domaingroup_mask_1d(domaingroup_hdl, mask_1d, extent1) BIND(C) 
     502    SUBROUTINE cxios_set_domaingroup_mask_1d(domaingroup_hdl, mask_1d, extent) BIND(C) 
    521503      USE ISO_C_BINDING 
    522504      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    523505      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d 
    524       INTEGER (kind = C_INT), VALUE  :: extent1 
     506      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    525507    END SUBROUTINE cxios_set_domaingroup_mask_1d 
    526508 
    527     SUBROUTINE cxios_get_domaingroup_mask_1d(domaingroup_hdl, mask_1d, extent1) BIND(C) 
     509    SUBROUTINE cxios_get_domaingroup_mask_1d(domaingroup_hdl, mask_1d, extent) BIND(C) 
    528510      USE ISO_C_BINDING 
    529511      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    530512      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d 
    531       INTEGER (kind = C_INT), VALUE  :: extent1 
     513      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    532514    END SUBROUTINE cxios_get_domaingroup_mask_1d 
    533515 
    … …  
    539521 
    540522 
    541     SUBROUTINE cxios_set_domaingroup_mask_2d(domaingroup_hdl, mask_2d, extent1, extent2) BIND(C) 
     523    SUBROUTINE cxios_set_domaingroup_mask_2d(domaingroup_hdl, mask_2d, extent) BIND(C) 
    542524      USE ISO_C_BINDING 
    543525      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    544526      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d 
    545       INTEGER (kind = C_INT), VALUE  :: extent1 
    546       INTEGER (kind = C_INT), VALUE  :: extent2 
     527      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    547528    END SUBROUTINE cxios_set_domaingroup_mask_2d 
    548529 
    549     SUBROUTINE cxios_get_domaingroup_mask_2d(domaingroup_hdl, mask_2d, extent1, extent2) BIND(C) 
     530    SUBROUTINE cxios_get_domaingroup_mask_2d(domaingroup_hdl, mask_2d, extent) BIND(C) 
    550531      USE ISO_C_BINDING 
    551532      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
    552533      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d 
    553       INTEGER (kind = C_INT), VALUE  :: extent1 
    554       INTEGER (kind = C_INT), VALUE  :: extent2 
     534      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    555535    END SUBROUTINE cxios_get_domaingroup_mask_2d 
    556536 
Note: See TracChangeset for help on using the changeset viewer.