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

    r545 r581  
    66MODULE field_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_field_add_offset(field_hdl, add_offset) BIND(C) 
    1313      USE ISO_C_BINDING 
    … …  
    1515      REAL (KIND=C_DOUBLE)      , VALUE :: add_offset 
    1616    END SUBROUTINE cxios_set_field_add_offset 
    17      
     17 
    1818    SUBROUTINE cxios_get_field_add_offset(field_hdl, add_offset) BIND(C) 
    1919      USE ISO_C_BINDING 
    … …  
    2121      REAL (KIND=C_DOUBLE)             :: add_offset 
    2222    END SUBROUTINE cxios_get_field_add_offset 
    23      
    24     FUNCTION cxios_is_defined_field_add_offset(field_hdl ) BIND(C) 
     23 
     24    FUNCTION cxios_is_defined_field_add_offset(field_hdl) BIND(C) 
    2525      USE ISO_C_BINDING 
    2626      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_add_offset 
    2727      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    2828    END FUNCTION cxios_is_defined_field_add_offset 
    29      
    30      
     29 
     30 
    3131    SUBROUTINE cxios_set_field_axis_ref(field_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_field_axis_ref 
    37      
     37 
    3838    SUBROUTINE cxios_get_field_axis_ref(field_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_field_axis_ref 
    44      
    45     FUNCTION cxios_is_defined_field_axis_ref(field_hdl ) BIND(C) 
     44 
     45    FUNCTION cxios_is_defined_field_axis_ref(field_hdl) BIND(C) 
    4646      USE ISO_C_BINDING 
    4747      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_axis_ref 
    4848      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    4949    END FUNCTION cxios_is_defined_field_axis_ref 
    50      
    51      
     50 
     51 
    5252    SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C) 
    5353      USE ISO_C_BINDING 
    … …  
    5555      REAL (KIND=C_DOUBLE)      , VALUE :: default_value 
    5656    END SUBROUTINE cxios_set_field_default_value 
    57      
     57 
    5858    SUBROUTINE cxios_get_field_default_value(field_hdl, default_value) BIND(C) 
    5959      USE ISO_C_BINDING 
    … …  
    6161      REAL (KIND=C_DOUBLE)             :: default_value 
    6262    END SUBROUTINE cxios_get_field_default_value 
    63      
    64     FUNCTION cxios_is_defined_field_default_value(field_hdl ) BIND(C) 
     63 
     64    FUNCTION cxios_is_defined_field_default_value(field_hdl) BIND(C) 
    6565      USE ISO_C_BINDING 
    6666      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_default_value 
    6767      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    6868    END FUNCTION cxios_is_defined_field_default_value 
    69      
    70      
     69 
     70 
    7171    SUBROUTINE cxios_set_field_detect_missing_value(field_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_field_detect_missing_value 
    76      
     76 
    7777    SUBROUTINE cxios_get_field_detect_missing_value(field_hdl, detect_missing_value) BIND(C) 
    7878      USE ISO_C_BINDING 
    … …  
    8080      LOGICAL (KIND=C_BOOL)             :: detect_missing_value 
    8181    END SUBROUTINE cxios_get_field_detect_missing_value 
    82      
    83     FUNCTION cxios_is_defined_field_detect_missing_value(field_hdl ) BIND(C) 
     82 
     83    FUNCTION cxios_is_defined_field_detect_missing_value(field_hdl) BIND(C) 
    8484      USE ISO_C_BINDING 
    8585      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_detect_missing_value 
    8686      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    8787    END FUNCTION cxios_is_defined_field_detect_missing_value 
    88      
    89      
     88 
     89 
    9090    SUBROUTINE cxios_set_field_domain_ref(field_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_field_domain_ref 
    96      
     96 
    9797    SUBROUTINE cxios_get_field_domain_ref(field_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_field_domain_ref 
    103      
    104     FUNCTION cxios_is_defined_field_domain_ref(field_hdl ) BIND(C) 
     103 
     104    FUNCTION cxios_is_defined_field_domain_ref(field_hdl) BIND(C) 
    105105      USE ISO_C_BINDING 
    106106      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_domain_ref 
    107107      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    108108    END FUNCTION cxios_is_defined_field_domain_ref 
    109      
    110      
     109 
     110 
    111111    SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C) 
    112112      USE ISO_C_BINDING 
    … …  
    114114      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled 
    115115    END SUBROUTINE cxios_set_field_enabled 
    116      
     116 
    117117    SUBROUTINE cxios_get_field_enabled(field_hdl, enabled) BIND(C) 
    118118      USE ISO_C_BINDING 
    … …  
    120120      LOGICAL (KIND=C_BOOL)             :: enabled 
    121121    END SUBROUTINE cxios_get_field_enabled 
    122      
    123     FUNCTION cxios_is_defined_field_enabled(field_hdl ) BIND(C) 
     122 
     123    FUNCTION cxios_is_defined_field_enabled(field_hdl) BIND(C) 
    124124      USE ISO_C_BINDING 
    125125      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_enabled 
    126126      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    127127    END FUNCTION cxios_is_defined_field_enabled 
    128      
    129      
     128 
     129 
    130130    SUBROUTINE cxios_set_field_field_ref(field_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_field_field_ref 
    136      
     136 
    137137    SUBROUTINE cxios_get_field_field_ref(field_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_field_field_ref 
    143      
    144     FUNCTION cxios_is_defined_field_field_ref(field_hdl ) BIND(C) 
     143 
     144    FUNCTION cxios_is_defined_field_field_ref(field_hdl) BIND(C) 
    145145      USE ISO_C_BINDING 
    146146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_field_ref 
    147147      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    148148    END FUNCTION cxios_is_defined_field_field_ref 
    149      
    150      
     149 
     150 
    151151    SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset) BIND(C) 
    152152      USE ISO_C_BINDING 
    … …  
    155155      TYPE(txios(duration)), VALUE :: freq_offset 
    156156    END SUBROUTINE cxios_set_field_freq_offset 
    157      
     157 
    158158    SUBROUTINE cxios_get_field_freq_offset(field_hdl, freq_offset) BIND(C) 
    159159      USE ISO_C_BINDING 
    … …  
    162162      TYPE(txios(duration)) :: freq_offset 
    163163    END SUBROUTINE cxios_get_field_freq_offset 
    164      
    165     FUNCTION cxios_is_defined_field_freq_offset(field_hdl ) BIND(C) 
     164 
     165    FUNCTION cxios_is_defined_field_freq_offset(field_hdl) BIND(C) 
    166166      USE ISO_C_BINDING 
    167167      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_offset 
    168168      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    169169    END FUNCTION cxios_is_defined_field_freq_offset 
    170      
    171      
     170 
     171 
    172172    SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op) BIND(C) 
    173173      USE ISO_C_BINDING 
    … …  
    176176      TYPE(txios(duration)), VALUE :: freq_op 
    177177    END SUBROUTINE cxios_set_field_freq_op 
    178      
     178 
    179179    SUBROUTINE cxios_get_field_freq_op(field_hdl, freq_op) BIND(C) 
    180180      USE ISO_C_BINDING 
    … …  
    183183      TYPE(txios(duration)) :: freq_op 
    184184    END SUBROUTINE cxios_get_field_freq_op 
    185      
    186     FUNCTION cxios_is_defined_field_freq_op(field_hdl ) BIND(C) 
     185 
     186    FUNCTION cxios_is_defined_field_freq_op(field_hdl) BIND(C) 
    187187      USE ISO_C_BINDING 
    188188      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_op 
    189189      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    190190    END FUNCTION cxios_is_defined_field_freq_op 
    191      
    192      
     191 
     192 
    193193    SUBROUTINE cxios_set_field_grid_ref(field_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_field_grid_ref 
    199      
     199 
    200200    SUBROUTINE cxios_get_field_grid_ref(field_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_field_grid_ref 
    206      
    207     FUNCTION cxios_is_defined_field_grid_ref(field_hdl ) BIND(C) 
     206 
     207    FUNCTION cxios_is_defined_field_grid_ref(field_hdl) BIND(C) 
    208208      USE ISO_C_BINDING 
    209209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_ref 
    210210      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    211211    END FUNCTION cxios_is_defined_field_grid_ref 
    212      
    213      
     212 
     213 
    214214    SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C) 
    215215      USE ISO_C_BINDING 
    … …  
    217217      INTEGER (KIND=C_INT)      , VALUE :: level 
    218218    END SUBROUTINE cxios_set_field_level 
    219      
     219 
    220220    SUBROUTINE cxios_get_field_level(field_hdl, level) BIND(C) 
    221221      USE ISO_C_BINDING 
    … …  
    223223      INTEGER (KIND=C_INT)             :: level 
    224224    END SUBROUTINE cxios_get_field_level 
    225      
    226     FUNCTION cxios_is_defined_field_level(field_hdl ) BIND(C) 
     225 
     226    FUNCTION cxios_is_defined_field_level(field_hdl) BIND(C) 
    227227      USE ISO_C_BINDING 
    228228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_level 
    229229      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    230230    END FUNCTION cxios_is_defined_field_level 
    231      
    232      
     231 
     232 
    233233    SUBROUTINE cxios_set_field_long_name(field_hdl, long_name, long_name_size) BIND(C) 
    234234      USE ISO_C_BINDING 
    … …  
    237237      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size 
    238238    END SUBROUTINE cxios_set_field_long_name 
    239      
     239 
    240240    SUBROUTINE cxios_get_field_long_name(field_hdl, long_name, long_name_size) BIND(C) 
    241241      USE ISO_C_BINDING 
    … …  
    244244      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size 
    245245    END SUBROUTINE cxios_get_field_long_name 
    246      
    247     FUNCTION cxios_is_defined_field_long_name(field_hdl ) BIND(C) 
     246 
     247    FUNCTION cxios_is_defined_field_long_name(field_hdl) BIND(C) 
    248248      USE ISO_C_BINDING 
    249249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_long_name 
    250250      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    251251    END FUNCTION cxios_is_defined_field_long_name 
    252      
    253      
     252 
     253 
    254254    SUBROUTINE cxios_set_field_name(field_hdl, name, name_size) BIND(C) 
    255255      USE ISO_C_BINDING 
    … …  
    258258      INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    259259    END SUBROUTINE cxios_set_field_name 
    260      
     260 
    261261    SUBROUTINE cxios_get_field_name(field_hdl, name, name_size) BIND(C) 
    262262      USE ISO_C_BINDING 
    … …  
    265265      INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    266266    END SUBROUTINE cxios_get_field_name 
    267      
    268     FUNCTION cxios_is_defined_field_name(field_hdl ) BIND(C) 
     267 
     268    FUNCTION cxios_is_defined_field_name(field_hdl) BIND(C) 
    269269      USE ISO_C_BINDING 
    270270      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_name 
    271271      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    272272    END FUNCTION cxios_is_defined_field_name 
    273      
    274      
     273 
     274 
    275275    SUBROUTINE cxios_set_field_operation(field_hdl, operation, operation_size) BIND(C) 
    276276      USE ISO_C_BINDING 
    … …  
    279279      INTEGER  (kind = C_INT)     , VALUE        :: operation_size 
    280280    END SUBROUTINE cxios_set_field_operation 
    281      
     281 
    282282    SUBROUTINE cxios_get_field_operation(field_hdl, operation, operation_size) BIND(C) 
    283283      USE ISO_C_BINDING 
    … …  
    286286      INTEGER  (kind = C_INT)     , VALUE        :: operation_size 
    287287    END SUBROUTINE cxios_get_field_operation 
    288      
    289     FUNCTION cxios_is_defined_field_operation(field_hdl ) BIND(C) 
     288 
     289    FUNCTION cxios_is_defined_field_operation(field_hdl) BIND(C) 
    290290      USE ISO_C_BINDING 
    291291      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_operation 
    292292      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    293293    END FUNCTION cxios_is_defined_field_operation 
    294      
    295      
     294 
     295 
    296296    SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C) 
    297297      USE ISO_C_BINDING 
    … …  
    299299      INTEGER (KIND=C_INT)      , VALUE :: prec 
    300300    END SUBROUTINE cxios_set_field_prec 
    301      
     301 
    302302    SUBROUTINE cxios_get_field_prec(field_hdl, prec) BIND(C) 
    303303      USE ISO_C_BINDING 
    … …  
    305305      INTEGER (KIND=C_INT)             :: prec 
    306306    END SUBROUTINE cxios_get_field_prec 
    307      
    308     FUNCTION cxios_is_defined_field_prec(field_hdl ) BIND(C) 
     307 
     308    FUNCTION cxios_is_defined_field_prec(field_hdl) BIND(C) 
    309309      USE ISO_C_BINDING 
    310310      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_prec 
    311311      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    312312    END FUNCTION cxios_is_defined_field_prec 
    313      
    314      
     313 
     314 
    315315    SUBROUTINE cxios_set_field_scale_factor(field_hdl, scale_factor) BIND(C) 
    316316      USE ISO_C_BINDING 
    … …  
    318318      REAL (KIND=C_DOUBLE)      , VALUE :: scale_factor 
    319319    END SUBROUTINE cxios_set_field_scale_factor 
    320      
     320 
    321321    SUBROUTINE cxios_get_field_scale_factor(field_hdl, scale_factor) BIND(C) 
    322322      USE ISO_C_BINDING 
    … …  
    324324      REAL (KIND=C_DOUBLE)             :: scale_factor 
    325325    END SUBROUTINE cxios_get_field_scale_factor 
    326      
    327     FUNCTION cxios_is_defined_field_scale_factor(field_hdl ) BIND(C) 
     326 
     327    FUNCTION cxios_is_defined_field_scale_factor(field_hdl) BIND(C) 
    328328      USE ISO_C_BINDING 
    329329      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_scale_factor 
    330330      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    331331    END FUNCTION cxios_is_defined_field_scale_factor 
    332      
    333      
     332 
     333 
    334334    SUBROUTINE cxios_set_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C) 
    335335      USE ISO_C_BINDING 
    … …  
    338338      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size 
    339339    END SUBROUTINE cxios_set_field_standard_name 
    340      
     340 
    341341    SUBROUTINE cxios_get_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C) 
    342342      USE ISO_C_BINDING 
    … …  
    345345      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size 
    346346    END SUBROUTINE cxios_get_field_standard_name 
    347      
    348     FUNCTION cxios_is_defined_field_standard_name(field_hdl ) BIND(C) 
     347 
     348    FUNCTION cxios_is_defined_field_standard_name(field_hdl) BIND(C) 
    349349      USE ISO_C_BINDING 
    350350      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_standard_name 
    351351      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    352352    END FUNCTION cxios_is_defined_field_standard_name 
    353      
    354      
     353 
     354 
    355355    SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C) 
    356356      USE ISO_C_BINDING 
    … …  
    359359      INTEGER  (kind = C_INT)     , VALUE        :: unit_size 
    360360    END SUBROUTINE cxios_set_field_unit 
    361      
     361 
    362362    SUBROUTINE cxios_get_field_unit(field_hdl, unit, unit_size) BIND(C) 
    363363      USE ISO_C_BINDING 
    … …  
    366366      INTEGER  (kind = C_INT)     , VALUE        :: unit_size 
    367367    END SUBROUTINE cxios_get_field_unit 
    368      
    369     FUNCTION cxios_is_defined_field_unit(field_hdl ) BIND(C) 
     368 
     369    FUNCTION cxios_is_defined_field_unit(field_hdl) BIND(C) 
    370370      USE ISO_C_BINDING 
    371371      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_unit 
    372372      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    373373    END FUNCTION cxios_is_defined_field_unit 
    374      
    375      
     374 
     375 
    376376    SUBROUTINE cxios_set_field_valid_max(field_hdl, valid_max) BIND(C) 
    377377      USE ISO_C_BINDING 
    … …  
    379379      REAL (KIND=C_DOUBLE)      , VALUE :: valid_max 
    380380    END SUBROUTINE cxios_set_field_valid_max 
    381      
     381 
    382382    SUBROUTINE cxios_get_field_valid_max(field_hdl, valid_max) BIND(C) 
    383383      USE ISO_C_BINDING 
    … …  
    385385      REAL (KIND=C_DOUBLE)             :: valid_max 
    386386    END SUBROUTINE cxios_get_field_valid_max 
    387      
    388     FUNCTION cxios_is_defined_field_valid_max(field_hdl ) BIND(C) 
     387 
     388    FUNCTION cxios_is_defined_field_valid_max(field_hdl) BIND(C) 
    389389      USE ISO_C_BINDING 
    390390      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_max 
    391391      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    392392    END FUNCTION cxios_is_defined_field_valid_max 
    393      
    394      
     393 
     394 
    395395    SUBROUTINE cxios_set_field_valid_min(field_hdl, valid_min) BIND(C) 
    396396      USE ISO_C_BINDING 
    … …  
    398398      REAL (KIND=C_DOUBLE)      , VALUE :: valid_min 
    399399    END SUBROUTINE cxios_set_field_valid_min 
    400      
     400 
    401401    SUBROUTINE cxios_get_field_valid_min(field_hdl, valid_min) BIND(C) 
    402402      USE ISO_C_BINDING 
    … …  
    404404      REAL (KIND=C_DOUBLE)             :: valid_min 
    405405    END SUBROUTINE cxios_get_field_valid_min 
    406      
    407     FUNCTION cxios_is_defined_field_valid_min(field_hdl ) BIND(C) 
     406 
     407    FUNCTION cxios_is_defined_field_valid_min(field_hdl) BIND(C) 
    408408      USE ISO_C_BINDING 
    409409      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_min 
    410410      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    411411    END FUNCTION cxios_is_defined_field_valid_min 
    412      
    413      
    414     END INTERFACE 
    415    
     412 
     413  END INTERFACE 
     414 
    416415END MODULE field_interface_attr 
Note: See TracChangeset for help on using the changeset viewer.