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

    r501 r581  
    88  USE ivariable 
    99  USE variablegroup_interface_attr 
    10    
     10 
    1111CONTAINS 
    12    
     12 
    1313  SUBROUTINE xios(set_variablegroup_attr)  & 
    1414    ( variablegroup_id, group_ref, name, type ) 
    15      
     15 
    1616    IMPLICIT NONE 
    1717      TYPE(txios(variablegroup))  :: variablegroup_hdl 
    … …  
    2020      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    2121      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    22        
     22 
    2323      CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl) 
    2424      CALL xios(set_variablegroup_attr_hdl_)   & 
    2525      ( variablegroup_hdl, group_ref, name, type ) 
    26      
     26 
    2727  END SUBROUTINE xios(set_variablegroup_attr) 
    28    
     28 
    2929  SUBROUTINE xios(set_variablegroup_attr_hdl)  & 
    3030    ( variablegroup_hdl, group_ref, name, type ) 
    31      
     31 
    3232    IMPLICIT NONE 
    3333      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl 
    … …  
    3535      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    3636      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    37        
     37 
    3838      CALL xios(set_variablegroup_attr_hdl_)  & 
    3939      ( variablegroup_hdl, group_ref, name, type ) 
    40      
     40 
    4141  END SUBROUTINE xios(set_variablegroup_attr_hdl) 
    42    
     42 
    4343  SUBROUTINE xios(set_variablegroup_attr_hdl_)   & 
    4444    ( variablegroup_hdl, group_ref_, name_, type_ ) 
    45      
     45 
    4646    IMPLICIT NONE 
    4747      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl 
    … …  
    4949      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 
    5050      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    51        
     51 
    5252      IF (PRESENT(group_ref_)) THEN 
    5353        CALL cxios_set_variablegroup_group_ref(variablegroup_hdl%daddr, group_ref_, len(group_ref_)) 
    5454      ENDIF 
    55        
     55 
    5656      IF (PRESENT(name_)) THEN 
    5757        CALL cxios_set_variablegroup_name(variablegroup_hdl%daddr, name_, len(name_)) 
    5858      ENDIF 
    59        
     59 
    6060      IF (PRESENT(type_)) THEN 
    6161        CALL cxios_set_variablegroup_type(variablegroup_hdl%daddr, type_, len(type_)) 
    6262      ENDIF 
    63        
    64        
    65      
     63 
    6664  END SUBROUTINE xios(set_variablegroup_attr_hdl_) 
    67    
     65 
    6866  SUBROUTINE xios(get_variablegroup_attr)  & 
    6967    ( variablegroup_id, group_ref, name, type ) 
    70      
     68 
    7169    IMPLICIT NONE 
    7270      TYPE(txios(variablegroup))  :: variablegroup_hdl 
    … …  
    7573      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    7674      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    77        
     75 
    7876      CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl) 
    7977      CALL xios(get_variablegroup_attr_hdl_)   & 
    8078      ( variablegroup_hdl, group_ref, name, type ) 
    81      
     79 
    8280  END SUBROUTINE xios(get_variablegroup_attr) 
    83    
     81 
    8482  SUBROUTINE xios(get_variablegroup_attr_hdl)  & 
    8583    ( variablegroup_hdl, group_ref, name, type ) 
    86      
     84 
    8785    IMPLICIT NONE 
    8886      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl 
    … …  
    9088      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    9189      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    92        
     90 
    9391      CALL xios(get_variablegroup_attr_hdl_)  & 
    9492      ( variablegroup_hdl, group_ref, name, type ) 
    95      
     93 
    9694  END SUBROUTINE xios(get_variablegroup_attr_hdl) 
    97    
     95 
    9896  SUBROUTINE xios(get_variablegroup_attr_hdl_)   & 
    9997    ( variablegroup_hdl, group_ref_, name_, type_ ) 
    100      
     98 
    10199    IMPLICIT NONE 
    102100      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl 
    … …  
    104102      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 
    105103      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    106        
     104 
    107105      IF (PRESENT(group_ref_)) THEN 
    108106        CALL cxios_get_variablegroup_group_ref(variablegroup_hdl%daddr, group_ref_, len(group_ref_)) 
    109107      ENDIF 
    110        
     108 
    111109      IF (PRESENT(name_)) THEN 
    112110        CALL cxios_get_variablegroup_name(variablegroup_hdl%daddr, name_, len(name_)) 
    113111      ENDIF 
    114        
     112 
    115113      IF (PRESENT(type_)) THEN 
    116114        CALL cxios_get_variablegroup_type(variablegroup_hdl%daddr, type_, len(type_)) 
    117115      ENDIF 
    118        
    119        
    120      
     116 
    121117  END SUBROUTINE xios(get_variablegroup_attr_hdl_) 
    122    
     118 
    123119  SUBROUTINE xios(is_defined_variablegroup_attr)  & 
    124120    ( variablegroup_id, group_ref, name, type ) 
    125      
     121 
    126122    IMPLICIT NONE 
    127123      TYPE(txios(variablegroup))  :: variablegroup_hdl 
    … …  
    133129      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    134130      LOGICAL(KIND=C_BOOL) :: type_tmp 
    135        
     131 
    136132      CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl) 
    137133      CALL xios(is_defined_variablegroup_attr_hdl_)   & 
    138134      ( variablegroup_hdl, group_ref, name, type ) 
    139      
     135 
    140136  END SUBROUTINE xios(is_defined_variablegroup_attr) 
    141    
     137 
    142138  SUBROUTINE xios(is_defined_variablegroup_attr_hdl)  & 
    143139    ( variablegroup_hdl, group_ref, name, type ) 
    144      
     140 
    145141    IMPLICIT NONE 
    146142      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl 
    … …  
    151147      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    152148      LOGICAL(KIND=C_BOOL) :: type_tmp 
    153        
     149 
    154150      CALL xios(is_defined_variablegroup_attr_hdl_)  & 
    155151      ( variablegroup_hdl, group_ref, name, type ) 
    156      
     152 
    157153  END SUBROUTINE xios(is_defined_variablegroup_attr_hdl) 
    158    
     154 
    159155  SUBROUTINE xios(is_defined_variablegroup_attr_hdl_)   & 
    160156    ( variablegroup_hdl, group_ref_, name_, type_ ) 
    161      
     157 
    162158    IMPLICIT NONE 
    163159      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl 
    … …  
    168164      LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 
    169165      LOGICAL(KIND=C_BOOL) :: type__tmp 
    170        
     166 
    171167      IF (PRESENT(group_ref_)) THEN 
    172         group_ref__tmp=cxios_is_defined_variablegroup_group_ref(variablegroup_hdl%daddr) 
    173         group_ref_=group_ref__tmp 
     168        group_ref__tmp = cxios_is_defined_variablegroup_group_ref(variablegroup_hdl%daddr) 
     169        group_ref_ = group_ref__tmp 
    174170      ENDIF 
    175        
     171 
    176172      IF (PRESENT(name_)) THEN 
    177         name__tmp=cxios_is_defined_variablegroup_name(variablegroup_hdl%daddr) 
    178         name_=name__tmp 
     173        name__tmp = cxios_is_defined_variablegroup_name(variablegroup_hdl%daddr) 
     174        name_ = name__tmp 
    179175      ENDIF 
    180        
     176 
    181177      IF (PRESENT(type_)) THEN 
    182         type__tmp=cxios_is_defined_variablegroup_type(variablegroup_hdl%daddr) 
    183         type_=type__tmp 
     178        type__tmp = cxios_is_defined_variablegroup_type(variablegroup_hdl%daddr) 
     179        type_ = type__tmp 
    184180      ENDIF 
    185        
    186        
    187      
     181 
    188182  END SUBROUTINE xios(is_defined_variablegroup_attr_hdl_) 
    189    
     183 
    190184END MODULE ivariablegroup_attr 
Note: See TracChangeset for help on using the changeset viewer.