Changeset 840


Ignore:
Timestamp:
04/15/16 14:27:45 (5 years ago)
Author:
mhnguyen
Message:

Fixing some minors bug appeared under gcc 5.3

+) Make sure depend name come with typename
+) Correct typo in Fortran interface

Test
+) Compiling with gcc 5.3: NO

Location:
XIOS/trunk/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/fortran/ixml_tree.F90

    r836 r840  
    317317   SUBROUTINE xios(add_variabletofile)(parent_hdl, child_hdl, child_id) 
    318318      TYPE(txios(file))            , INTENT(IN) :: parent_hdl 
    319       TYPE(txios(variable))           , INTENT(OUT):: child_hdl 
     319      TYPE(txios(variable))        , INTENT(OUT):: child_hdl 
    320320      CHARACTER(len = *), OPTIONAL , INTENT(IN) :: child_id 
    321321 
     
    330330   SUBROUTINE xios(add_variabletofield)(parent_hdl, child_hdl, child_id) 
    331331      TYPE(txios(field))            , INTENT(IN) :: parent_hdl 
    332       TYPE(txios(variable))           , INTENT(OUT):: child_hdl 
    333       CHARACTER(len = *), OPTIONAL , INTENT(IN) :: child_id 
     332      TYPE(txios(variable))         , INTENT(OUT):: child_hdl 
     333      CHARACTER(len = *), OPTIONAL  , INTENT(IN) :: child_id 
    334334 
    335335      IF (PRESENT(child_id)) THEN 
     
    409409   SUBROUTINE xios(add_fieldgrouptofile)(parent_hdl, child_hdl, child_id) 
    410410      TYPE(txios(file))            , INTENT(IN) :: parent_hdl 
    411       TYPE(txios(fieldgroup))     , INTENT(OUT):: child_hdl 
    412       CHARACTER(len = *), OPTIONAL  , INTENT(IN) :: child_id 
     411      TYPE(txios(fieldgroup))      , INTENT(OUT):: child_hdl 
     412      CHARACTER(len = *), OPTIONAL , INTENT(IN) :: child_id 
    413413 
    414414      IF (PRESENT(child_id)) THEN 
     
    422422   SUBROUTINE xios(add_variablegrouptofile)(parent_hdl, child_hdl, child_id) 
    423423      TYPE(txios(file))            , INTENT(IN) :: parent_hdl 
    424       TYPE(txios(variablegroup))     , INTENT(OUT):: child_hdl 
    425       CHARACTER(len = *), OPTIONAL  , INTENT(IN) :: child_id 
     424      TYPE(txios(variablegroup))   , INTENT(OUT):: child_hdl 
     425      CHARACTER(len = *), OPTIONAL , INTENT(IN) :: child_id 
    426426 
    427427      IF (PRESENT(child_id)) THEN 
     
    435435   SUBROUTINE xios(add_variablegrouptofield)(parent_hdl, child_hdl, child_id) 
    436436      TYPE(txios(field))            , INTENT(IN) :: parent_hdl 
    437       TYPE(txios(variablegroup))     , INTENT(OUT):: child_hdl 
     437      TYPE(txios(variablegroup))    , INTENT(OUT):: child_hdl 
    438438      CHARACTER(len = *), OPTIONAL  , INTENT(IN) :: child_id 
    439439 
     
    537537   END SUBROUTINE xios(add_interpolateaxistoaxis) 
    538538 
    539       SUBROUTINE xios(add_inverseaxistoaxis)(parent_hdl, child_hdl, child_id) 
     539   SUBROUTINE xios(add_inverseaxistoaxis)(parent_hdl, child_hdl, child_id) 
    540540      TYPE(txios(axis))                      , INTENT(IN) :: parent_hdl 
    541       TYPE(txios(zoom_axis))                 , INTENT(OUT):: child_hdl 
     541      TYPE(txios(inverse_axis))              , INTENT(OUT):: child_hdl 
    542542      CHARACTER(len = *), OPTIONAL           , INTENT(IN) :: child_id 
    543543 
  • XIOS/trunk/src/node/transformation.hpp

    r836 r840  
    4343 
    4444  template<typename T> 
    45   CTransformation<T>::CallBackMap* CTransformation<T>::transformationCreationCallBacks_ = 0; //CTransformation<T>::CallBackMap(); 
     45  typename CTransformation<T>::CallBackMap* CTransformation<T>::transformationCreationCallBacks_ = 0; //CTransformation<T>::CallBackMap(); 
    4646 
    4747  template<typename T> 
Note: See TracChangeset for help on using the changeset viewer.