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

    r550 r581  
    88  USE icalendar_wrapper 
    99  USE calendar_wrapper_interface_attr 
    10    
     10 
    1111CONTAINS 
    12    
     12 
    1313  SUBROUTINE xios(set_calendar_wrapper_attr)  & 
    1414    ( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    1515    , month_lengths, start_date, time_origin, timestep, type, year_length ) 
    16      
     16 
    1717    IMPLICIT NONE 
    1818      TYPE(txios(calendar_wrapper))  :: calendar_wrapper_hdl 
    … …  
    2828      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    2929      INTEGER  , OPTIONAL, INTENT(IN) :: year_length 
    30        
     30 
    3131      CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl) 
    3232      CALL xios(set_calendar_wrapper_attr_hdl_)   & 
    3333      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    3434      , month_lengths, start_date, time_origin, timestep, type, year_length ) 
    35      
     35 
    3636  END SUBROUTINE xios(set_calendar_wrapper_attr) 
    37    
     37 
    3838  SUBROUTINE xios(set_calendar_wrapper_attr_hdl)  & 
    3939    ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    4040    , month_lengths, start_date, time_origin, timestep, type, year_length ) 
    41      
     41 
    4242    IMPLICIT NONE 
    4343      TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 
    … …  
    5252      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    5353      INTEGER  , OPTIONAL, INTENT(IN) :: year_length 
    54        
     54 
    5555      CALL xios(set_calendar_wrapper_attr_hdl_)  & 
    5656      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    5757      , month_lengths, start_date, time_origin, timestep, type, year_length ) 
    58      
     58 
    5959  END SUBROUTINE xios(set_calendar_wrapper_attr_hdl) 
    60    
     60 
    6161  SUBROUTINE xios(set_calendar_wrapper_attr_hdl_)   & 
    6262    ( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_  & 
    6363    , month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ ) 
    64      
     64 
    6565    IMPLICIT NONE 
    6666      TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 
    … …  
    7575      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    7676      INTEGER  , OPTIONAL, INTENT(IN) :: year_length_ 
    77        
     77 
    7878      IF (PRESENT(day_length_)) THEN 
    7979        CALL cxios_set_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr, day_length_) 
    8080      ENDIF 
    81        
     81 
    8282      IF (PRESENT(leap_year_drift_)) THEN 
    8383        CALL cxios_set_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr, leap_year_drift_) 
    8484      ENDIF 
    85        
     85 
    8686      IF (PRESENT(leap_year_drift_offset_)) THEN 
    8787        CALL cxios_set_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr, leap_year_drift_offset_) 
    8888      ENDIF 
    89        
     89 
    9090      IF (PRESENT(leap_year_month_)) THEN 
    9191        CALL cxios_set_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr, leap_year_month_) 
    9292      ENDIF 
    93        
     93 
    9494      IF (PRESENT(month_lengths_)) THEN 
    95         CALL cxios_set_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_,size(month_lengths_,1)) 
    96       ENDIF 
    97        
     95        CALL cxios_set_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, size(month_lengths_,1)) 
     96      ENDIF 
     97 
    9898      IF (PRESENT(start_date_)) THEN 
    9999        CALL cxios_set_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr, start_date_, len(start_date_)) 
    100100      ENDIF 
    101        
     101 
    102102      IF (PRESENT(time_origin_)) THEN 
    103103        CALL cxios_set_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_)) 
    104104      ENDIF 
    105        
     105 
    106106      IF (PRESENT(timestep_)) THEN 
    107107        CALL cxios_set_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr, timestep_) 
    108108      ENDIF 
    109        
     109 
    110110      IF (PRESENT(type_)) THEN 
    111111        CALL cxios_set_calendar_wrapper_type(calendar_wrapper_hdl%daddr, type_, len(type_)) 
    112112      ENDIF 
    113        
     113 
    114114      IF (PRESENT(year_length_)) THEN 
    115115        CALL cxios_set_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr, year_length_) 
    116116      ENDIF 
    117        
    118        
    119      
     117 
    120118  END SUBROUTINE xios(set_calendar_wrapper_attr_hdl_) 
    121    
     119 
    122120  SUBROUTINE xios(get_calendar_wrapper_attr)  & 
    123121    ( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    124122    , month_lengths, start_date, time_origin, timestep, type, year_length ) 
    125      
     123 
    126124    IMPLICIT NONE 
    127125      TYPE(txios(calendar_wrapper))  :: calendar_wrapper_hdl 
    … …  
    137135      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    138136      INTEGER  , OPTIONAL, INTENT(OUT) :: year_length 
    139        
     137 
    140138      CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl) 
    141139      CALL xios(get_calendar_wrapper_attr_hdl_)   & 
    142140      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    143141      , month_lengths, start_date, time_origin, timestep, type, year_length ) 
    144      
     142 
    145143  END SUBROUTINE xios(get_calendar_wrapper_attr) 
    146    
     144 
    147145  SUBROUTINE xios(get_calendar_wrapper_attr_hdl)  & 
    148146    ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    149147    , month_lengths, start_date, time_origin, timestep, type, year_length ) 
    150      
     148 
    151149    IMPLICIT NONE 
    152150      TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 
    … …  
    161159      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    162160      INTEGER  , OPTIONAL, INTENT(OUT) :: year_length 
    163        
     161 
    164162      CALL xios(get_calendar_wrapper_attr_hdl_)  & 
    165163      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    166164      , month_lengths, start_date, time_origin, timestep, type, year_length ) 
    167      
     165 
    168166  END SUBROUTINE xios(get_calendar_wrapper_attr_hdl) 
    169    
     167 
    170168  SUBROUTINE xios(get_calendar_wrapper_attr_hdl_)   & 
    171169    ( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_  & 
    172170    , month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ ) 
    173      
     171 
    174172    IMPLICIT NONE 
    175173      TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 
    … …  
    184182      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    185183      INTEGER  , OPTIONAL, INTENT(OUT) :: year_length_ 
    186        
     184 
    187185      IF (PRESENT(day_length_)) THEN 
    188186        CALL cxios_get_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr, day_length_) 
    189187      ENDIF 
    190        
     188 
    191189      IF (PRESENT(leap_year_drift_)) THEN 
    192190        CALL cxios_get_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr, leap_year_drift_) 
    193191      ENDIF 
    194        
     192 
    195193      IF (PRESENT(leap_year_drift_offset_)) THEN 
    196194        CALL cxios_get_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr, leap_year_drift_offset_) 
    197195      ENDIF 
    198        
     196 
    199197      IF (PRESENT(leap_year_month_)) THEN 
    200198        CALL cxios_get_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr, leap_year_month_) 
    201199      ENDIF 
    202        
     200 
    203201      IF (PRESENT(month_lengths_)) THEN 
    204         CALL cxios_get_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_,size(month_lengths_,1)) 
    205       ENDIF 
    206        
     202        CALL cxios_get_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, size(month_lengths_,1)) 
     203      ENDIF 
     204 
    207205      IF (PRESENT(start_date_)) THEN 
    208206        CALL cxios_get_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr, start_date_, len(start_date_)) 
    209207      ENDIF 
    210        
     208 
    211209      IF (PRESENT(time_origin_)) THEN 
    212210        CALL cxios_get_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_)) 
    213211      ENDIF 
    214        
     212 
    215213      IF (PRESENT(timestep_)) THEN 
    216214        CALL cxios_get_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr, timestep_) 
    217215      ENDIF 
    218        
     216 
    219217      IF (PRESENT(type_)) THEN 
    220218        CALL cxios_get_calendar_wrapper_type(calendar_wrapper_hdl%daddr, type_, len(type_)) 
    221219      ENDIF 
    222        
     220 
    223221      IF (PRESENT(year_length_)) THEN 
    224222        CALL cxios_get_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr, year_length_) 
    225223      ENDIF 
    226        
    227        
    228      
     224 
    229225  END SUBROUTINE xios(get_calendar_wrapper_attr_hdl_) 
    230    
     226 
    231227  SUBROUTINE xios(is_defined_calendar_wrapper_attr)  & 
    232228    ( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    233229    , month_lengths, start_date, time_origin, timestep, type, year_length ) 
    234      
     230 
    235231    IMPLICIT NONE 
    236232      TYPE(txios(calendar_wrapper))  :: calendar_wrapper_hdl 
    … …  
    256252      LOGICAL, OPTIONAL, INTENT(OUT) :: year_length 
    257253      LOGICAL(KIND=C_BOOL) :: year_length_tmp 
    258        
     254 
    259255      CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl) 
    260256      CALL xios(is_defined_calendar_wrapper_attr_hdl_)   & 
    261257      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    262258      , month_lengths, start_date, time_origin, timestep, type, year_length ) 
    263      
     259 
    264260  END SUBROUTINE xios(is_defined_calendar_wrapper_attr) 
    265    
     261 
    266262  SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl)  & 
    267263    ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    268264    , month_lengths, start_date, time_origin, timestep, type, year_length ) 
    269      
     265 
    270266    IMPLICIT NONE 
    271267      TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 
    … …  
    290286      LOGICAL, OPTIONAL, INTENT(OUT) :: year_length 
    291287      LOGICAL(KIND=C_BOOL) :: year_length_tmp 
    292        
     288 
    293289      CALL xios(is_defined_calendar_wrapper_attr_hdl_)  & 
    294290      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    295291      , month_lengths, start_date, time_origin, timestep, type, year_length ) 
    296      
     292 
    297293  END SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl) 
    298    
     294 
    299295  SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl_)   & 
    300296    ( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_  & 
    301297    , month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ ) 
    302      
     298 
    303299    IMPLICIT NONE 
    304300      TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl 
    … …  
    323319      LOGICAL, OPTIONAL, INTENT(OUT) :: year_length_ 
    324320      LOGICAL(KIND=C_BOOL) :: year_length__tmp 
    325        
     321 
    326322      IF (PRESENT(day_length_)) THEN 
    327         day_length__tmp=cxios_is_defined_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr) 
    328         day_length_=day_length__tmp 
    329       ENDIF 
    330        
     323        day_length__tmp = cxios_is_defined_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr) 
     324        day_length_ = day_length__tmp 
     325      ENDIF 
     326 
    331327      IF (PRESENT(leap_year_drift_)) THEN 
    332         leap_year_drift__tmp=cxios_is_defined_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr) 
    333         leap_year_drift_=leap_year_drift__tmp 
    334       ENDIF 
    335        
     328        leap_year_drift__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr) 
     329        leap_year_drift_ = leap_year_drift__tmp 
     330      ENDIF 
     331 
    336332      IF (PRESENT(leap_year_drift_offset_)) THEN 
    337         leap_year_drift_offset__tmp=cxios_is_defined_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr) 
    338         leap_year_drift_offset_=leap_year_drift_offset__tmp 
    339       ENDIF 
    340        
     333        leap_year_drift_offset__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr) 
     334        leap_year_drift_offset_ = leap_year_drift_offset__tmp 
     335      ENDIF 
     336 
    341337      IF (PRESENT(leap_year_month_)) THEN 
    342         leap_year_month__tmp=cxios_is_defined_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr) 
    343         leap_year_month_=leap_year_month__tmp 
    344       ENDIF 
    345        
     338        leap_year_month__tmp = cxios_is_defined_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr) 
     339        leap_year_month_ = leap_year_month__tmp 
     340      ENDIF 
     341 
    346342      IF (PRESENT(month_lengths_)) THEN 
    347         month_lengths__tmp=cxios_is_defined_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr) 
    348         month_lengths_=month_lengths__tmp 
    349       ENDIF 
    350        
     343        month_lengths__tmp = cxios_is_defined_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr) 
     344        month_lengths_ = month_lengths__tmp 
     345      ENDIF 
     346 
    351347      IF (PRESENT(start_date_)) THEN 
    352         start_date__tmp=cxios_is_defined_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr) 
    353         start_date_=start_date__tmp 
    354       ENDIF 
    355        
     348        start_date__tmp = cxios_is_defined_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr) 
     349        start_date_ = start_date__tmp 
     350      ENDIF 
     351 
    356352      IF (PRESENT(time_origin_)) THEN 
    357         time_origin__tmp=cxios_is_defined_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr) 
    358         time_origin_=time_origin__tmp 
    359       ENDIF 
    360        
     353        time_origin__tmp = cxios_is_defined_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr) 
     354        time_origin_ = time_origin__tmp 
     355      ENDIF 
     356 
    361357      IF (PRESENT(timestep_)) THEN 
    362         timestep__tmp=cxios_is_defined_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr) 
    363         timestep_=timestep__tmp 
    364       ENDIF 
    365        
     358        timestep__tmp = cxios_is_defined_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr) 
     359        timestep_ = timestep__tmp 
     360      ENDIF 
     361 
    366362      IF (PRESENT(type_)) THEN 
    367         type__tmp=cxios_is_defined_calendar_wrapper_type(calendar_wrapper_hdl%daddr) 
    368         type_=type__tmp 
    369       ENDIF 
    370        
     363        type__tmp = cxios_is_defined_calendar_wrapper_type(calendar_wrapper_hdl%daddr) 
     364        type_ = type__tmp 
     365      ENDIF 
     366 
    371367      IF (PRESENT(year_length_)) THEN 
    372         year_length__tmp=cxios_is_defined_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr) 
    373         year_length_=year_length__tmp 
    374       ENDIF 
    375        
    376        
    377      
     368        year_length__tmp = cxios_is_defined_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr) 
     369        year_length_ = year_length__tmp 
     370      ENDIF 
     371 
    378372  END SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl_) 
    379    
     373 
    380374END MODULE icalendar_wrapper_attr 
Note: See TracChangeset for help on using the changeset viewer.