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

    r666 r674  
    5050 
    5151 
    52     SUBROUTINE cxios_set_axisgroup_bounds(axisgroup_hdl, bounds, extent1, extent2) BIND(C) 
     52    SUBROUTINE cxios_set_axisgroup_bounds(axisgroup_hdl, bounds, extent) BIND(C) 
    5353      USE ISO_C_BINDING 
    5454      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl 
    5555      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds 
    56       INTEGER (kind = C_INT), VALUE  :: extent1 
    57       INTEGER (kind = C_INT), VALUE  :: extent2 
     56      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    5857    END SUBROUTINE cxios_set_axisgroup_bounds 
    5958 
    60     SUBROUTINE cxios_get_axisgroup_bounds(axisgroup_hdl, bounds, extent1, extent2) BIND(C) 
     59    SUBROUTINE cxios_get_axisgroup_bounds(axisgroup_hdl, bounds, extent) BIND(C) 
    6160      USE ISO_C_BINDING 
    6261      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl 
    6362      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds 
    64       INTEGER (kind = C_INT), VALUE  :: extent1 
    65       INTEGER (kind = C_INT), VALUE  :: extent2 
     63      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    6664    END SUBROUTINE cxios_get_axisgroup_bounds 
    6765 
    … …  
    9290 
    9391 
    94     SUBROUTINE cxios_set_axisgroup_data_index(axisgroup_hdl, data_index, extent1) BIND(C) 
     92    SUBROUTINE cxios_set_axisgroup_data_index(axisgroup_hdl, data_index, extent) BIND(C) 
    9593      USE ISO_C_BINDING 
    9694      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl 
    9795      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index 
    98       INTEGER (kind = C_INT), VALUE  :: extent1 
     96      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    9997    END SUBROUTINE cxios_set_axisgroup_data_index 
    10098 
    101     SUBROUTINE cxios_get_axisgroup_data_index(axisgroup_hdl, data_index, extent1) BIND(C) 
     99    SUBROUTINE cxios_get_axisgroup_data_index(axisgroup_hdl, data_index, extent) BIND(C) 
    102100      USE ISO_C_BINDING 
    103101      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl 
    104102      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index 
    105       INTEGER (kind = C_INT), VALUE  :: extent1 
     103      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    106104    END SUBROUTINE cxios_get_axisgroup_data_index 
    107105 
    … …  
    174172 
    175173 
    176     SUBROUTINE cxios_set_axisgroup_mask(axisgroup_hdl, mask, extent1) BIND(C) 
     174    SUBROUTINE cxios_set_axisgroup_mask(axisgroup_hdl, mask, extent) BIND(C) 
    177175      USE ISO_C_BINDING 
    178176      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl 
    179177      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask 
    180       INTEGER (kind = C_INT), VALUE  :: extent1 
     178      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    181179    END SUBROUTINE cxios_set_axisgroup_mask 
    182180 
    183     SUBROUTINE cxios_get_axisgroup_mask(axisgroup_hdl, mask, extent1) BIND(C) 
     181    SUBROUTINE cxios_get_axisgroup_mask(axisgroup_hdl, mask, extent) BIND(C) 
    184182      USE ISO_C_BINDING 
    185183      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl 
    186184      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask 
    187       INTEGER (kind = C_INT), VALUE  :: extent1 
     185      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    188186    END SUBROUTINE cxios_get_axisgroup_mask 
    189187 
    … …  
    317315 
    318316 
    319     SUBROUTINE cxios_set_axisgroup_value(axisgroup_hdl, value, extent1) BIND(C) 
     317    SUBROUTINE cxios_set_axisgroup_value(axisgroup_hdl, value, extent) BIND(C) 
    320318      USE ISO_C_BINDING 
    321319      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl 
    322320      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value 
    323       INTEGER (kind = C_INT), VALUE  :: extent1 
     321      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    324322    END SUBROUTINE cxios_set_axisgroup_value 
    325323 
    326     SUBROUTINE cxios_get_axisgroup_value(axisgroup_hdl, value, extent1) BIND(C) 
     324    SUBROUTINE cxios_get_axisgroup_value(axisgroup_hdl, value, extent) BIND(C) 
    327325      USE ISO_C_BINDING 
    328326      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl 
    329327      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value 
    330       INTEGER (kind = C_INT), VALUE  :: extent1 
     328      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
    331329    END SUBROUTINE cxios_get_axisgroup_value 
    332330 
Note: See TracChangeset for help on using the changeset viewer.