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

    r666 r674  
    1010    ! Do not call directly / interface FORTRAN 2003 <-> C99 
    1111 
    12     SUBROUTINE cxios_set_domain_area(domain_hdl, area, extent1, extent2) BIND(C) 
     12    SUBROUTINE cxios_set_domain_area(domain_hdl, area, extent) BIND(C) 
    1313      USE ISO_C_BINDING 
    1414      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_area 
    1918 
    20     SUBROUTINE cxios_get_domain_area(domain_hdl, area, extent1, extent2) BIND(C) 
     19    SUBROUTINE cxios_get_domain_area(domain_hdl, area, extent) BIND(C) 
    2120      USE ISO_C_BINDING 
    2221      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_area 
    2725 
    … …  
    3331 
    3432 
    35     SUBROUTINE cxios_set_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent1, extent2) BIND(C) 
     33    SUBROUTINE cxios_set_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent) BIND(C) 
    3634      USE ISO_C_BINDING 
    3735      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_bounds_lat_1d 
    4239 
    43     SUBROUTINE cxios_get_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent1, extent2) BIND(C) 
     40    SUBROUTINE cxios_get_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent) BIND(C) 
    4441      USE ISO_C_BINDING 
    4542      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_bounds_lat_1d 
    5046 
    … …  
    5652 
    5753 
    58     SUBROUTINE cxios_set_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent1, extent2, extent3) BIND(C) 
     54    SUBROUTINE cxios_set_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent) BIND(C) 
    5955      USE ISO_C_BINDING 
    6056      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_bounds_lat_2d 
    6660 
    67     SUBROUTINE cxios_get_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent1, extent2, extent3) BIND(C) 
     61    SUBROUTINE cxios_get_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent) BIND(C) 
    6862      USE ISO_C_BINDING 
    6963      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_bounds_lat_2d 
    7567 
    … …  
    8173 
    8274 
    83     SUBROUTINE cxios_set_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent1, extent2) BIND(C) 
     75    SUBROUTINE cxios_set_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent) BIND(C) 
    8476      USE ISO_C_BINDING 
    8577      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_bounds_lon_1d 
    9081 
    91     SUBROUTINE cxios_get_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent1, extent2) BIND(C) 
     82    SUBROUTINE cxios_get_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent) BIND(C) 
    9283      USE ISO_C_BINDING 
    9384      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_bounds_lon_1d 
    9888 
    … …  
    10494 
    10595 
    106     SUBROUTINE cxios_set_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent1, extent2, extent3) BIND(C) 
     96    SUBROUTINE cxios_set_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent) BIND(C) 
    10797      USE ISO_C_BINDING 
    10898      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_bounds_lon_2d 
    114102 
    115     SUBROUTINE cxios_get_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent1, extent2, extent3) BIND(C) 
     103    SUBROUTINE cxios_get_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent) BIND(C) 
    116104      USE ISO_C_BINDING 
    117105      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_bounds_lon_2d 
    123109 
    … …  
    148134 
    149135 
    150     SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C) 
     136    SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent) BIND(C) 
    151137      USE ISO_C_BINDING 
    152138      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_data_i_index 
    156142 
    157     SUBROUTINE cxios_get_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C) 
     143    SUBROUTINE cxios_get_domain_data_i_index(domain_hdl, data_i_index, extent) BIND(C) 
    158144      USE ISO_C_BINDING 
    159145      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_data_i_index 
    163149 
    … …  
    188174 
    189175 
    190     SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C) 
     176    SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent) BIND(C) 
    191177      USE ISO_C_BINDING 
    192178      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_data_j_index 
    196182 
    197     SUBROUTINE cxios_get_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C) 
     183    SUBROUTINE cxios_get_domain_data_j_index(domain_hdl, data_j_index, extent) BIND(C) 
    198184      USE ISO_C_BINDING 
    199185      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_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_domain_data_j_index 
    203189 
    … …  
    308294 
    309295 
    310     SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent1) BIND(C) 
     296    SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent) BIND(C) 
    311297      USE ISO_C_BINDING 
    312298      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    313299      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index 
    314       INTEGER (kind = C_INT), VALUE  :: extent1 
     300      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    315301    END SUBROUTINE cxios_set_domain_i_index 
    316302 
    317     SUBROUTINE cxios_get_domain_i_index(domain_hdl, i_index, extent1) BIND(C) 
     303    SUBROUTINE cxios_get_domain_i_index(domain_hdl, i_index, extent) BIND(C) 
    318304      USE ISO_C_BINDING 
    319305      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    320306      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index 
    321       INTEGER (kind = C_INT), VALUE  :: extent1 
     307      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    322308    END SUBROUTINE cxios_get_domain_i_index 
    323309 
    … …  
    348334 
    349335 
    350     SUBROUTINE cxios_set_domain_j_index(domain_hdl, j_index, extent1) BIND(C) 
     336    SUBROUTINE cxios_set_domain_j_index(domain_hdl, j_index, extent) BIND(C) 
    351337      USE ISO_C_BINDING 
    352338      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    353339      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index 
    354       INTEGER (kind = C_INT), VALUE  :: extent1 
     340      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    355341    END SUBROUTINE cxios_set_domain_j_index 
    356342 
    357     SUBROUTINE cxios_get_domain_j_index(domain_hdl, j_index, extent1) BIND(C) 
     343    SUBROUTINE cxios_get_domain_j_index(domain_hdl, j_index, extent) BIND(C) 
    358344      USE ISO_C_BINDING 
    359345      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    360346      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index 
    361       INTEGER (kind = C_INT), VALUE  :: extent1 
     347      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    362348    END SUBROUTINE cxios_get_domain_j_index 
    363349 
    … …  
    388374 
    389375 
    390     SUBROUTINE cxios_set_domain_latvalue_1d(domain_hdl, latvalue_1d, extent1) BIND(C) 
     376    SUBROUTINE cxios_set_domain_latvalue_1d(domain_hdl, latvalue_1d, extent) BIND(C) 
    391377      USE ISO_C_BINDING 
    392378      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    393379      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d 
    394       INTEGER (kind = C_INT), VALUE  :: extent1 
     380      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    395381    END SUBROUTINE cxios_set_domain_latvalue_1d 
    396382 
    397     SUBROUTINE cxios_get_domain_latvalue_1d(domain_hdl, latvalue_1d, extent1) BIND(C) 
     383    SUBROUTINE cxios_get_domain_latvalue_1d(domain_hdl, latvalue_1d, extent) BIND(C) 
    398384      USE ISO_C_BINDING 
    399385      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    400386      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d 
    401       INTEGER (kind = C_INT), VALUE  :: extent1 
     387      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    402388    END SUBROUTINE cxios_get_domain_latvalue_1d 
    403389 
    … …  
    409395 
    410396 
    411     SUBROUTINE cxios_set_domain_latvalue_2d(domain_hdl, latvalue_2d, extent1, extent2) BIND(C) 
     397    SUBROUTINE cxios_set_domain_latvalue_2d(domain_hdl, latvalue_2d, extent) BIND(C) 
    412398      USE ISO_C_BINDING 
    413399      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    414400      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d 
    415       INTEGER (kind = C_INT), VALUE  :: extent1 
    416       INTEGER (kind = C_INT), VALUE  :: extent2 
     401      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    417402    END SUBROUTINE cxios_set_domain_latvalue_2d 
    418403 
    419     SUBROUTINE cxios_get_domain_latvalue_2d(domain_hdl, latvalue_2d, extent1, extent2) BIND(C) 
     404    SUBROUTINE cxios_get_domain_latvalue_2d(domain_hdl, latvalue_2d, extent) BIND(C) 
    420405      USE ISO_C_BINDING 
    421406      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    422407      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d 
    423       INTEGER (kind = C_INT), VALUE  :: extent1 
    424       INTEGER (kind = C_INT), VALUE  :: extent2 
     408      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    425409    END SUBROUTINE cxios_get_domain_latvalue_2d 
    426410 
    … …  
    453437 
    454438 
    455     SUBROUTINE cxios_set_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent1) BIND(C) 
     439    SUBROUTINE cxios_set_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent) BIND(C) 
    456440      USE ISO_C_BINDING 
    457441      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    458442      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d 
    459       INTEGER (kind = C_INT), VALUE  :: extent1 
     443      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    460444    END SUBROUTINE cxios_set_domain_lonvalue_1d 
    461445 
    462     SUBROUTINE cxios_get_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent1) BIND(C) 
     446    SUBROUTINE cxios_get_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent) BIND(C) 
    463447      USE ISO_C_BINDING 
    464448      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    465449      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d 
    466       INTEGER (kind = C_INT), VALUE  :: extent1 
     450      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    467451    END SUBROUTINE cxios_get_domain_lonvalue_1d 
    468452 
    … …  
    474458 
    475459 
    476     SUBROUTINE cxios_set_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent1, extent2) BIND(C) 
     460    SUBROUTINE cxios_set_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent) BIND(C) 
    477461      USE ISO_C_BINDING 
    478462      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    479463      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d 
    480       INTEGER (kind = C_INT), VALUE  :: extent1 
    481       INTEGER (kind = C_INT), VALUE  :: extent2 
     464      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    482465    END SUBROUTINE cxios_set_domain_lonvalue_2d 
    483466 
    484     SUBROUTINE cxios_get_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent1, extent2) BIND(C) 
     467    SUBROUTINE cxios_get_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent) BIND(C) 
    485468      USE ISO_C_BINDING 
    486469      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    487470      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d 
    488       INTEGER (kind = C_INT), VALUE  :: extent1 
    489       INTEGER (kind = C_INT), VALUE  :: extent2 
     471      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    490472    END SUBROUTINE cxios_get_domain_lonvalue_2d 
    491473 
    … …  
    497479 
    498480 
    499     SUBROUTINE cxios_set_domain_mask_1d(domain_hdl, mask_1d, extent1) BIND(C) 
     481    SUBROUTINE cxios_set_domain_mask_1d(domain_hdl, mask_1d, extent) BIND(C) 
    500482      USE ISO_C_BINDING 
    501483      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    502484      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d 
    503       INTEGER (kind = C_INT), VALUE  :: extent1 
     485      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    504486    END SUBROUTINE cxios_set_domain_mask_1d 
    505487 
    506     SUBROUTINE cxios_get_domain_mask_1d(domain_hdl, mask_1d, extent1) BIND(C) 
     488    SUBROUTINE cxios_get_domain_mask_1d(domain_hdl, mask_1d, extent) BIND(C) 
    507489      USE ISO_C_BINDING 
    508490      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    509491      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d 
    510       INTEGER (kind = C_INT), VALUE  :: extent1 
     492      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    511493    END SUBROUTINE cxios_get_domain_mask_1d 
    512494 
    … …  
    518500 
    519501 
    520     SUBROUTINE cxios_set_domain_mask_2d(domain_hdl, mask_2d, extent1, extent2) BIND(C) 
     502    SUBROUTINE cxios_set_domain_mask_2d(domain_hdl, mask_2d, extent) BIND(C) 
    521503      USE ISO_C_BINDING 
    522504      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    523505      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d 
    524       INTEGER (kind = C_INT), VALUE  :: extent1 
    525       INTEGER (kind = C_INT), VALUE  :: extent2 
     506      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    526507    END SUBROUTINE cxios_set_domain_mask_2d 
    527508 
    528     SUBROUTINE cxios_get_domain_mask_2d(domain_hdl, mask_2d, extent1, extent2) BIND(C) 
     509    SUBROUTINE cxios_get_domain_mask_2d(domain_hdl, mask_2d, extent) BIND(C) 
    529510      USE ISO_C_BINDING 
    530511      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    531512      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d 
    532       INTEGER (kind = C_INT), VALUE  :: extent1 
    533       INTEGER (kind = C_INT), VALUE  :: extent2 
     513      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    534514    END SUBROUTINE cxios_get_domain_mask_2d 
    535515 
Note: See TracChangeset for help on using the changeset viewer.