Ignore:
Timestamp:
03/24/15 11:21:45 (9 years ago)
Author:
rlacroix
Message:

Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r545 r581  
    66MODULE fieldgroup_interface_attr 
    77  USE, INTRINSIC :: ISO_C_BINDING 
    8    
    9   INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C99 
    10      
    11      
     8 
     9  INTERFACE 
     10    ! Do not call directly / interface FORTRAN 2003 <-> C99 
     11 
    1212    SUBROUTINE cxios_set_fieldgroup_add_offset(fieldgroup_hdl, add_offset) BIND(C) 
    1313      USE ISO_C_BINDING 
    … …  
    1515      REAL (KIND=C_DOUBLE)      , VALUE :: add_offset 
    1616    END SUBROUTINE cxios_set_fieldgroup_add_offset 
    17      
     17 
    1818    SUBROUTINE cxios_get_fieldgroup_add_offset(fieldgroup_hdl, add_offset) BIND(C) 
    1919      USE ISO_C_BINDING 
    … …  
    2121      REAL (KIND=C_DOUBLE)             :: add_offset 
    2222    END SUBROUTINE cxios_get_fieldgroup_add_offset 
    23      
    24     FUNCTION cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl ) BIND(C) 
     23 
     24    FUNCTION cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl) BIND(C) 
    2525      USE ISO_C_BINDING 
    2626      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_add_offset 
    2727      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    2828    END FUNCTION cxios_is_defined_fieldgroup_add_offset 
    29      
    30      
     29 
     30 
    3131    SUBROUTINE cxios_set_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref, axis_ref_size) BIND(C) 
    3232      USE ISO_C_BINDING 
    … …  
    3535      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size 
    3636    END SUBROUTINE cxios_set_fieldgroup_axis_ref 
    37      
     37 
    3838    SUBROUTINE cxios_get_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref, axis_ref_size) BIND(C) 
    3939      USE ISO_C_BINDING 
    … …  
    4242      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size 
    4343    END SUBROUTINE cxios_get_fieldgroup_axis_ref 
    44      
    45     FUNCTION cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl ) BIND(C) 
     44 
     45    FUNCTION cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl) BIND(C) 
    4646      USE ISO_C_BINDING 
    4747      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_axis_ref 
    4848      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    4949    END FUNCTION cxios_is_defined_fieldgroup_axis_ref 
    50      
    51      
     50 
     51 
    5252    SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) 
    5353      USE ISO_C_BINDING 
    … …  
    5555      REAL (KIND=C_DOUBLE)      , VALUE :: default_value 
    5656    END SUBROUTINE cxios_set_fieldgroup_default_value 
    57      
     57 
    5858    SUBROUTINE cxios_get_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) 
    5959      USE ISO_C_BINDING 
    … …  
    6161      REAL (KIND=C_DOUBLE)             :: default_value 
    6262    END SUBROUTINE cxios_get_fieldgroup_default_value 
    63      
    64     FUNCTION cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl ) BIND(C) 
     63 
     64    FUNCTION cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl) BIND(C) 
    6565      USE ISO_C_BINDING 
    6666      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_default_value 
    6767      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    6868    END FUNCTION cxios_is_defined_fieldgroup_default_value 
    69      
    70      
     69 
     70 
    7171    SUBROUTINE cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C) 
    7272      USE ISO_C_BINDING 
    … …  
    7474      LOGICAL (KIND=C_BOOL)      , VALUE :: detect_missing_value 
    7575    END SUBROUTINE cxios_set_fieldgroup_detect_missing_value 
    76      
     76 
    7777    SUBROUTINE cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C) 
    7878      USE ISO_C_BINDING 
    … …  
    8080      LOGICAL (KIND=C_BOOL)             :: detect_missing_value 
    8181    END SUBROUTINE cxios_get_fieldgroup_detect_missing_value 
    82      
    83     FUNCTION cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl ) BIND(C) 
     82 
     83    FUNCTION cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl) BIND(C) 
    8484      USE ISO_C_BINDING 
    8585      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_detect_missing_value 
    8686      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    8787    END FUNCTION cxios_is_defined_fieldgroup_detect_missing_value 
    88      
    89      
     88 
     89 
    9090    SUBROUTINE cxios_set_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C) 
    9191      USE ISO_C_BINDING 
    … …  
    9494      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size 
    9595    END SUBROUTINE cxios_set_fieldgroup_domain_ref 
    96      
     96 
    9797    SUBROUTINE cxios_get_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C) 
    9898      USE ISO_C_BINDING 
    … …  
    101101      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size 
    102102    END SUBROUTINE cxios_get_fieldgroup_domain_ref 
    103      
    104     FUNCTION cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl ) BIND(C) 
     103 
     104    FUNCTION cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl) BIND(C) 
    105105      USE ISO_C_BINDING 
    106106      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_domain_ref 
    107107      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    108108    END FUNCTION cxios_is_defined_fieldgroup_domain_ref 
    109      
    110      
     109 
     110 
    111111    SUBROUTINE cxios_set_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C) 
    112112      USE ISO_C_BINDING 
    … …  
    114114      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled 
    115115    END SUBROUTINE cxios_set_fieldgroup_enabled 
    116      
     116 
    117117    SUBROUTINE cxios_get_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C) 
    118118      USE ISO_C_BINDING 
    … …  
    120120      LOGICAL (KIND=C_BOOL)             :: enabled 
    121121    END SUBROUTINE cxios_get_fieldgroup_enabled 
    122      
    123     FUNCTION cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl ) BIND(C) 
     122 
     123    FUNCTION cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl) BIND(C) 
    124124      USE ISO_C_BINDING 
    125125      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_enabled 
    126126      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    127127    END FUNCTION cxios_is_defined_fieldgroup_enabled 
    128      
    129      
     128 
     129 
    130130    SUBROUTINE cxios_set_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C) 
    131131      USE ISO_C_BINDING 
    … …  
    134134      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size 
    135135    END SUBROUTINE cxios_set_fieldgroup_field_ref 
    136      
     136 
    137137    SUBROUTINE cxios_get_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C) 
    138138      USE ISO_C_BINDING 
    … …  
    141141      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size 
    142142    END SUBROUTINE cxios_get_fieldgroup_field_ref 
    143      
    144     FUNCTION cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl ) BIND(C) 
     143 
     144    FUNCTION cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl) BIND(C) 
    145145      USE ISO_C_BINDING 
    146146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_field_ref 
    147147      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    148148    END FUNCTION cxios_is_defined_fieldgroup_field_ref 
    149      
    150      
     149 
     150 
    151151    SUBROUTINE cxios_set_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C) 
    152152      USE ISO_C_BINDING 
    … …  
    155155      TYPE(txios(duration)), VALUE :: freq_offset 
    156156    END SUBROUTINE cxios_set_fieldgroup_freq_offset 
    157      
     157 
    158158    SUBROUTINE cxios_get_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C) 
    159159      USE ISO_C_BINDING 
    … …  
    162162      TYPE(txios(duration)) :: freq_offset 
    163163    END SUBROUTINE cxios_get_fieldgroup_freq_offset 
    164      
    165     FUNCTION cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl ) BIND(C) 
     164 
     165    FUNCTION cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl) BIND(C) 
    166166      USE ISO_C_BINDING 
    167167      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_offset 
    168168      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    169169    END FUNCTION cxios_is_defined_fieldgroup_freq_offset 
    170      
    171      
     170 
     171 
    172172    SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C) 
    173173      USE ISO_C_BINDING 
    … …  
    176176      TYPE(txios(duration)), VALUE :: freq_op 
    177177    END SUBROUTINE cxios_set_fieldgroup_freq_op 
    178      
     178 
    179179    SUBROUTINE cxios_get_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C) 
    180180      USE ISO_C_BINDING 
    … …  
    183183      TYPE(txios(duration)) :: freq_op 
    184184    END SUBROUTINE cxios_get_fieldgroup_freq_op 
    185      
    186     FUNCTION cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl ) BIND(C) 
     185 
     186    FUNCTION cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl) BIND(C) 
    187187      USE ISO_C_BINDING 
    188188      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_op 
    189189      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    190190    END FUNCTION cxios_is_defined_fieldgroup_freq_op 
    191      
    192      
     191 
     192 
    193193    SUBROUTINE cxios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C) 
    194194      USE ISO_C_BINDING 
    … …  
    197197      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size 
    198198    END SUBROUTINE cxios_set_fieldgroup_grid_ref 
    199      
     199 
    200200    SUBROUTINE cxios_get_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C) 
    201201      USE ISO_C_BINDING 
    … …  
    204204      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size 
    205205    END SUBROUTINE cxios_get_fieldgroup_grid_ref 
    206      
    207     FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl ) BIND(C) 
     206 
     207    FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl) BIND(C) 
    208208      USE ISO_C_BINDING 
    209209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_grid_ref 
    210210      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    211211    END FUNCTION cxios_is_defined_fieldgroup_grid_ref 
    212      
    213      
     212 
     213 
    214214    SUBROUTINE cxios_set_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C) 
    215215      USE ISO_C_BINDING 
    … …  
    218218      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size 
    219219    END SUBROUTINE cxios_set_fieldgroup_group_ref 
    220      
     220 
    221221    SUBROUTINE cxios_get_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C) 
    222222      USE ISO_C_BINDING 
    … …  
    225225      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size 
    226226    END SUBROUTINE cxios_get_fieldgroup_group_ref 
    227      
    228     FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl ) BIND(C) 
     227 
     228    FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl) BIND(C) 
    229229      USE ISO_C_BINDING 
    230230      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_group_ref 
    231231      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    232232    END FUNCTION cxios_is_defined_fieldgroup_group_ref 
    233      
    234      
     233 
     234 
    235235    SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C) 
    236236      USE ISO_C_BINDING 
    … …  
    238238      INTEGER (KIND=C_INT)      , VALUE :: level 
    239239    END SUBROUTINE cxios_set_fieldgroup_level 
    240      
     240 
    241241    SUBROUTINE cxios_get_fieldgroup_level(fieldgroup_hdl, level) BIND(C) 
    242242      USE ISO_C_BINDING 
    … …  
    244244      INTEGER (KIND=C_INT)             :: level 
    245245    END SUBROUTINE cxios_get_fieldgroup_level 
    246      
    247     FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl ) BIND(C) 
     246 
     247    FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl) BIND(C) 
    248248      USE ISO_C_BINDING 
    249249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_level 
    250250      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    251251    END FUNCTION cxios_is_defined_fieldgroup_level 
    252      
    253      
     252 
     253 
    254254    SUBROUTINE cxios_set_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C) 
    255255      USE ISO_C_BINDING 
    … …  
    258258      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size 
    259259    END SUBROUTINE cxios_set_fieldgroup_long_name 
    260      
     260 
    261261    SUBROUTINE cxios_get_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C) 
    262262      USE ISO_C_BINDING 
    … …  
    265265      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size 
    266266    END SUBROUTINE cxios_get_fieldgroup_long_name 
    267      
    268     FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl ) BIND(C) 
     267 
     268    FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl) BIND(C) 
    269269      USE ISO_C_BINDING 
    270270      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_long_name 
    271271      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    272272    END FUNCTION cxios_is_defined_fieldgroup_long_name 
    273      
    274      
     273 
     274 
    275275    SUBROUTINE cxios_set_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C) 
    276276      USE ISO_C_BINDING 
    … …  
    279279      INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    280280    END SUBROUTINE cxios_set_fieldgroup_name 
    281      
     281 
    282282    SUBROUTINE cxios_get_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C) 
    283283      USE ISO_C_BINDING 
    … …  
    286286      INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    287287    END SUBROUTINE cxios_get_fieldgroup_name 
    288      
    289     FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl ) BIND(C) 
     288 
     289    FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl) BIND(C) 
    290290      USE ISO_C_BINDING 
    291291      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_name 
    292292      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    293293    END FUNCTION cxios_is_defined_fieldgroup_name 
    294      
    295      
     294 
     295 
    296296    SUBROUTINE cxios_set_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C) 
    297297      USE ISO_C_BINDING 
    … …  
    300300      INTEGER  (kind = C_INT)     , VALUE        :: operation_size 
    301301    END SUBROUTINE cxios_set_fieldgroup_operation 
    302      
     302 
    303303    SUBROUTINE cxios_get_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C) 
    304304      USE ISO_C_BINDING 
    … …  
    307307      INTEGER  (kind = C_INT)     , VALUE        :: operation_size 
    308308    END SUBROUTINE cxios_get_fieldgroup_operation 
    309      
    310     FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl ) BIND(C) 
     309 
     310    FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl) BIND(C) 
    311311      USE ISO_C_BINDING 
    312312      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_operation 
    313313      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    314314    END FUNCTION cxios_is_defined_fieldgroup_operation 
    315      
    316      
     315 
     316 
    317317    SUBROUTINE cxios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C) 
    318318      USE ISO_C_BINDING 
    … …  
    320320      INTEGER (KIND=C_INT)      , VALUE :: prec 
    321321    END SUBROUTINE cxios_set_fieldgroup_prec 
    322      
     322 
    323323    SUBROUTINE cxios_get_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C) 
    324324      USE ISO_C_BINDING 
    … …  
    326326      INTEGER (KIND=C_INT)             :: prec 
    327327    END SUBROUTINE cxios_get_fieldgroup_prec 
    328      
    329     FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl ) BIND(C) 
     328 
     329    FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl) BIND(C) 
    330330      USE ISO_C_BINDING 
    331331      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_prec 
    332332      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    333333    END FUNCTION cxios_is_defined_fieldgroup_prec 
    334      
    335      
     334 
     335 
    336336    SUBROUTINE cxios_set_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C) 
    337337      USE ISO_C_BINDING 
    … …  
    339339      REAL (KIND=C_DOUBLE)      , VALUE :: scale_factor 
    340340    END SUBROUTINE cxios_set_fieldgroup_scale_factor 
    341      
     341 
    342342    SUBROUTINE cxios_get_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C) 
    343343      USE ISO_C_BINDING 
    … …  
    345345      REAL (KIND=C_DOUBLE)             :: scale_factor 
    346346    END SUBROUTINE cxios_get_fieldgroup_scale_factor 
    347      
    348     FUNCTION cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl ) BIND(C) 
     347 
     348    FUNCTION cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl) BIND(C) 
    349349      USE ISO_C_BINDING 
    350350      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_scale_factor 
    351351      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    352352    END FUNCTION cxios_is_defined_fieldgroup_scale_factor 
    353      
    354      
     353 
     354 
    355355    SUBROUTINE cxios_set_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C) 
    356356      USE ISO_C_BINDING 
    … …  
    359359      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size 
    360360    END SUBROUTINE cxios_set_fieldgroup_standard_name 
    361      
     361 
    362362    SUBROUTINE cxios_get_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C) 
    363363      USE ISO_C_BINDING 
    … …  
    366366      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size 
    367367    END SUBROUTINE cxios_get_fieldgroup_standard_name 
    368      
    369     FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl ) BIND(C) 
     368 
     369    FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl) BIND(C) 
    370370      USE ISO_C_BINDING 
    371371      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_standard_name 
    372372      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    373373    END FUNCTION cxios_is_defined_fieldgroup_standard_name 
    374      
    375      
     374 
     375 
    376376    SUBROUTINE cxios_set_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C) 
    377377      USE ISO_C_BINDING 
    … …  
    380380      INTEGER  (kind = C_INT)     , VALUE        :: unit_size 
    381381    END SUBROUTINE cxios_set_fieldgroup_unit 
    382      
     382 
    383383    SUBROUTINE cxios_get_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C) 
    384384      USE ISO_C_BINDING 
    … …  
    387387      INTEGER  (kind = C_INT)     , VALUE        :: unit_size 
    388388    END SUBROUTINE cxios_get_fieldgroup_unit 
    389      
    390     FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl ) BIND(C) 
     389 
     390    FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl) BIND(C) 
    391391      USE ISO_C_BINDING 
    392392      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_unit 
    393393      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    394394    END FUNCTION cxios_is_defined_fieldgroup_unit 
    395      
    396      
     395 
     396 
    397397    SUBROUTINE cxios_set_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C) 
    398398      USE ISO_C_BINDING 
    … …  
    400400      REAL (KIND=C_DOUBLE)      , VALUE :: valid_max 
    401401    END SUBROUTINE cxios_set_fieldgroup_valid_max 
    402      
     402 
    403403    SUBROUTINE cxios_get_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C) 
    404404      USE ISO_C_BINDING 
    … …  
    406406      REAL (KIND=C_DOUBLE)             :: valid_max 
    407407    END SUBROUTINE cxios_get_fieldgroup_valid_max 
    408      
    409     FUNCTION cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl ) BIND(C) 
     408 
     409    FUNCTION cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl) BIND(C) 
    410410      USE ISO_C_BINDING 
    411411      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_max 
    412412      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    413413    END FUNCTION cxios_is_defined_fieldgroup_valid_max 
    414      
    415      
     414 
     415 
    416416    SUBROUTINE cxios_set_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C) 
    417417      USE ISO_C_BINDING 
    … …  
    419419      REAL (KIND=C_DOUBLE)      , VALUE :: valid_min 
    420420    END SUBROUTINE cxios_set_fieldgroup_valid_min 
    421      
     421 
    422422    SUBROUTINE cxios_get_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C) 
    423423      USE ISO_C_BINDING 
    … …  
    425425      REAL (KIND=C_DOUBLE)             :: valid_min 
    426426    END SUBROUTINE cxios_get_fieldgroup_valid_min 
    427      
    428     FUNCTION cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl ) BIND(C) 
     427 
     428    FUNCTION cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl) BIND(C) 
    429429      USE ISO_C_BINDING 
    430430      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_min 
    431431      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    432432    END FUNCTION cxios_is_defined_fieldgroup_valid_min 
    433      
    434      
    435     END INTERFACE 
    436    
     433 
     434  END INTERFACE 
     435 
    437436END MODULE fieldgroup_interface_attr 
Note: See TracChangeset for help on using the changeset viewer.