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

    r545 r581  
    66MODULE filegroup_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_filegroup_append(filegroup_hdl, append) BIND(C) 
    1313      USE ISO_C_BINDING 
    … …  
    1515      LOGICAL (KIND=C_BOOL)      , VALUE :: append 
    1616    END SUBROUTINE cxios_set_filegroup_append 
    17      
     17 
    1818    SUBROUTINE cxios_get_filegroup_append(filegroup_hdl, append) BIND(C) 
    1919      USE ISO_C_BINDING 
    … …  
    2121      LOGICAL (KIND=C_BOOL)             :: append 
    2222    END SUBROUTINE cxios_get_filegroup_append 
    23      
    24     FUNCTION cxios_is_defined_filegroup_append(filegroup_hdl ) BIND(C) 
     23 
     24    FUNCTION cxios_is_defined_filegroup_append(filegroup_hdl) BIND(C) 
    2525      USE ISO_C_BINDING 
    2626      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_append 
    2727      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    2828    END FUNCTION cxios_is_defined_filegroup_append 
    29      
    30      
     29 
     30 
    3131    SUBROUTINE cxios_set_filegroup_description(filegroup_hdl, description, description_size) BIND(C) 
    3232      USE ISO_C_BINDING 
    … …  
    3535      INTEGER  (kind = C_INT)     , VALUE        :: description_size 
    3636    END SUBROUTINE cxios_set_filegroup_description 
    37      
     37 
    3838    SUBROUTINE cxios_get_filegroup_description(filegroup_hdl, description, description_size) BIND(C) 
    3939      USE ISO_C_BINDING 
    … …  
    4242      INTEGER  (kind = C_INT)     , VALUE        :: description_size 
    4343    END SUBROUTINE cxios_get_filegroup_description 
    44      
    45     FUNCTION cxios_is_defined_filegroup_description(filegroup_hdl ) BIND(C) 
     44 
     45    FUNCTION cxios_is_defined_filegroup_description(filegroup_hdl) BIND(C) 
    4646      USE ISO_C_BINDING 
    4747      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_description 
    4848      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    4949    END FUNCTION cxios_is_defined_filegroup_description 
    50      
    51      
     50 
     51 
    5252    SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C) 
    5353      USE ISO_C_BINDING 
    … …  
    5555      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled 
    5656    END SUBROUTINE cxios_set_filegroup_enabled 
    57      
     57 
    5858    SUBROUTINE cxios_get_filegroup_enabled(filegroup_hdl, enabled) BIND(C) 
    5959      USE ISO_C_BINDING 
    … …  
    6161      LOGICAL (KIND=C_BOOL)             :: enabled 
    6262    END SUBROUTINE cxios_get_filegroup_enabled 
    63      
    64     FUNCTION cxios_is_defined_filegroup_enabled(filegroup_hdl ) BIND(C) 
     63 
     64    FUNCTION cxios_is_defined_filegroup_enabled(filegroup_hdl) BIND(C) 
    6565      USE ISO_C_BINDING 
    6666      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_enabled 
    6767      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    6868    END FUNCTION cxios_is_defined_filegroup_enabled 
    69      
    70      
     69 
     70 
    7171    SUBROUTINE cxios_set_filegroup_format(filegroup_hdl, format, format_size) BIND(C) 
    7272      USE ISO_C_BINDING 
    … …  
    7575      INTEGER  (kind = C_INT)     , VALUE        :: format_size 
    7676    END SUBROUTINE cxios_set_filegroup_format 
    77      
     77 
    7878    SUBROUTINE cxios_get_filegroup_format(filegroup_hdl, format, format_size) BIND(C) 
    7979      USE ISO_C_BINDING 
    … …  
    8282      INTEGER  (kind = C_INT)     , VALUE        :: format_size 
    8383    END SUBROUTINE cxios_get_filegroup_format 
    84      
    85     FUNCTION cxios_is_defined_filegroup_format(filegroup_hdl ) BIND(C) 
     84 
     85    FUNCTION cxios_is_defined_filegroup_format(filegroup_hdl) BIND(C) 
    8686      USE ISO_C_BINDING 
    8787      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_format 
    8888      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    8989    END FUNCTION cxios_is_defined_filegroup_format 
    90      
    91      
     90 
     91 
    9292    SUBROUTINE cxios_set_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C) 
    9393      USE ISO_C_BINDING 
    … …  
    9696      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size 
    9797    END SUBROUTINE cxios_set_filegroup_group_ref 
    98      
     98 
    9999    SUBROUTINE cxios_get_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C) 
    100100      USE ISO_C_BINDING 
    … …  
    103103      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size 
    104104    END SUBROUTINE cxios_get_filegroup_group_ref 
    105      
    106     FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl ) BIND(C) 
     105 
     106    FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl) BIND(C) 
    107107      USE ISO_C_BINDING 
    108108      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_group_ref 
    109109      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    110110    END FUNCTION cxios_is_defined_filegroup_group_ref 
    111      
    112      
     111 
     112 
    113113    SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C) 
    114114      USE ISO_C_BINDING 
    … …  
    116116      INTEGER (KIND=C_INT)      , VALUE :: min_digits 
    117117    END SUBROUTINE cxios_set_filegroup_min_digits 
    118      
     118 
    119119    SUBROUTINE cxios_get_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C) 
    120120      USE ISO_C_BINDING 
    … …  
    122122      INTEGER (KIND=C_INT)             :: min_digits 
    123123    END SUBROUTINE cxios_get_filegroup_min_digits 
    124      
    125     FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl ) BIND(C) 
     124 
     125    FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl) BIND(C) 
    126126      USE ISO_C_BINDING 
    127127      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_min_digits 
    128128      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    129129    END FUNCTION cxios_is_defined_filegroup_min_digits 
    130      
    131      
     130 
     131 
    132132    SUBROUTINE cxios_set_filegroup_name(filegroup_hdl, name, name_size) BIND(C) 
    133133      USE ISO_C_BINDING 
    … …  
    136136      INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    137137    END SUBROUTINE cxios_set_filegroup_name 
    138      
     138 
    139139    SUBROUTINE cxios_get_filegroup_name(filegroup_hdl, name, name_size) BIND(C) 
    140140      USE ISO_C_BINDING 
    … …  
    143143      INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    144144    END SUBROUTINE cxios_get_filegroup_name 
    145      
    146     FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl ) BIND(C) 
     145 
     146    FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl) BIND(C) 
    147147      USE ISO_C_BINDING 
    148148      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name 
    149149      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    150150    END FUNCTION cxios_is_defined_filegroup_name 
    151      
    152      
     151 
     152 
    153153    SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C) 
    154154      USE ISO_C_BINDING 
    … …  
    157157      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size 
    158158    END SUBROUTINE cxios_set_filegroup_name_suffix 
    159      
     159 
    160160    SUBROUTINE cxios_get_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C) 
    161161      USE ISO_C_BINDING 
    … …  
    164164      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size 
    165165    END SUBROUTINE cxios_get_filegroup_name_suffix 
    166      
    167     FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl ) BIND(C) 
     166 
     167    FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl) BIND(C) 
    168168      USE ISO_C_BINDING 
    169169      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name_suffix 
    170170      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    171171    END FUNCTION cxios_is_defined_filegroup_name_suffix 
    172      
    173      
     172 
     173 
    174174    SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C) 
    175175      USE ISO_C_BINDING 
    … …  
    178178      TYPE(txios(duration)), VALUE :: output_freq 
    179179    END SUBROUTINE cxios_set_filegroup_output_freq 
    180      
     180 
    181181    SUBROUTINE cxios_get_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C) 
    182182      USE ISO_C_BINDING 
    … …  
    185185      TYPE(txios(duration)) :: output_freq 
    186186    END SUBROUTINE cxios_get_filegroup_output_freq 
    187      
    188     FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl ) BIND(C) 
     187 
     188    FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl) BIND(C) 
    189189      USE ISO_C_BINDING 
    190190      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_freq 
    191191      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    192192    END FUNCTION cxios_is_defined_filegroup_output_freq 
    193      
    194      
     193 
     194 
    195195    SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C) 
    196196      USE ISO_C_BINDING 
    … …  
    198198      INTEGER (KIND=C_INT)      , VALUE :: output_level 
    199199    END SUBROUTINE cxios_set_filegroup_output_level 
    200      
     200 
    201201    SUBROUTINE cxios_get_filegroup_output_level(filegroup_hdl, output_level) BIND(C) 
    202202      USE ISO_C_BINDING 
    … …  
    204204      INTEGER (KIND=C_INT)             :: output_level 
    205205    END SUBROUTINE cxios_get_filegroup_output_level 
    206      
    207     FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl ) BIND(C) 
     206 
     207    FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl) BIND(C) 
    208208      USE ISO_C_BINDING 
    209209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_level 
    210210      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    211211    END FUNCTION cxios_is_defined_filegroup_output_level 
    212      
    213      
     212 
     213 
    214214    SUBROUTINE cxios_set_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C) 
    215215      USE ISO_C_BINDING 
    … …  
    218218      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size 
    219219    END SUBROUTINE cxios_set_filegroup_par_access 
    220      
     220 
    221221    SUBROUTINE cxios_get_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C) 
    222222      USE ISO_C_BINDING 
    … …  
    225225      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size 
    226226    END SUBROUTINE cxios_get_filegroup_par_access 
    227      
    228     FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl ) BIND(C) 
     227 
     228    FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl) BIND(C) 
    229229      USE ISO_C_BINDING 
    230230      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_par_access 
    231231      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    232232    END FUNCTION cxios_is_defined_filegroup_par_access 
    233      
    234      
     233 
     234 
    235235    SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C) 
    236236      USE ISO_C_BINDING 
    … …  
    239239      TYPE(txios(duration)), VALUE :: split_freq 
    240240    END SUBROUTINE cxios_set_filegroup_split_freq 
    241      
     241 
    242242    SUBROUTINE cxios_get_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C) 
    243243      USE ISO_C_BINDING 
    … …  
    246246      TYPE(txios(duration)) :: split_freq 
    247247    END SUBROUTINE cxios_get_filegroup_split_freq 
    248      
    249     FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl ) BIND(C) 
     248 
     249    FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl) BIND(C) 
    250250      USE ISO_C_BINDING 
    251251      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq 
    252252      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    253253    END FUNCTION cxios_is_defined_filegroup_split_freq 
    254      
    255      
     254 
     255 
    256256    SUBROUTINE cxios_set_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C) 
    257257      USE ISO_C_BINDING 
    … …  
    260260      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size 
    261261    END SUBROUTINE cxios_set_filegroup_split_freq_format 
    262      
     262 
    263263    SUBROUTINE cxios_get_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C) 
    264264      USE ISO_C_BINDING 
    … …  
    267267      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size 
    268268    END SUBROUTINE cxios_get_filegroup_split_freq_format 
    269      
    270     FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl ) BIND(C) 
     269 
     270    FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl) BIND(C) 
    271271      USE ISO_C_BINDING 
    272272      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq_format 
    273273      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    274274    END FUNCTION cxios_is_defined_filegroup_split_freq_format 
    275      
    276      
     275 
     276 
    277277    SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C) 
    278278      USE ISO_C_BINDING 
    … …  
    281281      TYPE(txios(duration)), VALUE :: sync_freq 
    282282    END SUBROUTINE cxios_set_filegroup_sync_freq 
    283      
     283 
    284284    SUBROUTINE cxios_get_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C) 
    285285      USE ISO_C_BINDING 
    … …  
    288288      TYPE(txios(duration)) :: sync_freq 
    289289    END SUBROUTINE cxios_get_filegroup_sync_freq 
    290      
    291     FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl ) BIND(C) 
     290 
     291    FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl) BIND(C) 
    292292      USE ISO_C_BINDING 
    293293      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_sync_freq 
    294294      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    295295    END FUNCTION cxios_is_defined_filegroup_sync_freq 
    296      
    297      
     296 
     297 
    298298    SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C) 
    299299      USE ISO_C_BINDING 
    … …  
    302302      INTEGER  (kind = C_INT)     , VALUE        :: type_size 
    303303    END SUBROUTINE cxios_set_filegroup_type 
    304      
     304 
    305305    SUBROUTINE cxios_get_filegroup_type(filegroup_hdl, type, type_size) BIND(C) 
    306306      USE ISO_C_BINDING 
    … …  
    309309      INTEGER  (kind = C_INT)     , VALUE        :: type_size 
    310310    END SUBROUTINE cxios_get_filegroup_type 
    311      
    312     FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl ) BIND(C) 
     311 
     312    FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl) BIND(C) 
    313313      USE ISO_C_BINDING 
    314314      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_type 
    315315      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    316316    END FUNCTION cxios_is_defined_filegroup_type 
    317      
    318      
    319     END INTERFACE 
    320    
     317 
     318  END INTERFACE 
     319 
    321320END MODULE filegroup_interface_attr 
Note: See TracChangeset for help on using the changeset viewer.