Ignore:
Timestamp:
02/14/12 15:36:14 (12 years ago)
Author:
ymipsl
Message:

suppress old fortran interface

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/fortran/ixml_tree.F90

    r286 r312  
    126126      
    127127   END INTERFACE 
    128     
    129    !---------------------------------------------------------------------------- 
    130    INTERFACE xml_tree_add 
    131       MODULE PROCEDURE xml_tree_add_axis,   xml_tree_add_axisgroup,    & 
    132                        xml_tree_add_file,   xml_tree_add_filegroup,    & 
    133                        xml_tree_add_grid,   xml_tree_add_gridgroup,    & 
    134                        xml_tree_add_field,  xml_tree_add_fieldgroup,   & 
    135                        xml_tree_add_domain, xml_tree_add_domaingroup,  & 
    136                        xml_tree_add_fieldgrouptofile, xml_tree_add_fieldtofile 
    137    END INTERFACE   
    138    !---------------------------------------------------------------------------- 
     128 
    139129    
    140130   CONTAINS ! Fonctions disponibles pour les utilisateurs. 
    … …  
    298288 
    299289   END SUBROUTINE xios(add_fieldgrouptofile) 
    300  
    301 !   SUBROUTINE xml_tree_show(filename) 
    302 !      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: filename 
    303 !      IF (PRESENT(filename)) THEN 
    304 !         CALL cxios_xml_tree_show(filename, len(filename)) 
    305 !      ELSE 
    306 !         CALL cxios_xml_tree_show("NONE", -1) 
    307 !      END IF 
    308 !   END SUBROUTINE xml_tree_show 
    309     
    310 !   SUBROUTINE xml_parse_file(filename) 
    311 !      CHARACTER(len = *), INTENT(IN) :: filename 
    312 !      CALL cxios_xml_parse_file(filename, len(filename)) 
    313 !   END SUBROUTINE xml_Parse_File 
    314     
    315 !   SUBROUTINE xml_parse_string(xmlcontent) 
    316 !      CHARACTER(len = *), INTENT(IN) :: xmlcontent 
    317 !      CALL cxios_xml_parse_string(xmlcontent, len(xmlcontent)) 
    318 !   END SUBROUTINE xml_Parse_String 
    319  
    320  
    321  
    322  
    323  
    324  
    325  
    326  
    327  
    328  
    329  
    330  
    331  
    332  
    333  
    334 !!!!!!!!!!!!! Anciennes interfaces !!!!!!!!!!!!!!!!!!!!!!!!!!!! 
    335 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
    336  
    337    SUBROUTINE xml_tree_add_axis(parent_hdl, child_hdl, child_id) 
    338       TYPE(XAxisGroupHandle)      , INTENT(IN) :: parent_hdl 
    339       TYPE(XAxisHandle)           , INTENT(OUT):: child_hdl 
    340       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: child_id 
    341       IF (PRESENT(child_id)) THEN 
    342          CALL cxios_xml_tree_add_axis(parent_hdl%daddr, child_hdl%daddr, child_id, len(child_id)) 
    343       ELSE 
    344          CALL cxios_xml_tree_add_axis(parent_hdl%daddr, child_hdl%daddr, "NONE", -1) 
    345       END IF 
    346    END SUBROUTINE xml_tree_add_axis 
    347     
    348    SUBROUTINE xml_tree_add_file(parent_hdl, child_hdl, child_id) 
    349       TYPE(XFileGroupHandle)      , INTENT(IN) :: parent_hdl 
    350       TYPE(XFileHandle)           , INTENT(OUT):: child_hdl 
    351       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: child_id 
    352       IF (PRESENT(child_id)) THEN 
    353          CALL cxios_xml_tree_add_file(parent_hdl%daddr, child_hdl%daddr, child_id, len(child_id)) 
    354       ELSE 
    355          CALL cxios_xml_tree_add_file(parent_hdl%daddr, child_hdl%daddr, "NONE", -1) 
    356       END IF 
    357    END SUBROUTINE xml_tree_add_file 
    358     
    359    SUBROUTINE xml_tree_add_grid(parent_hdl, child_hdl, child_id) 
    360       TYPE(XGridGroupHandle)      , INTENT(IN) :: parent_hdl 
    361       TYPE(XGridHandle)           , INTENT(OUT):: child_hdl 
    362       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: child_id 
    363       IF (PRESENT(child_id)) THEN 
    364          CALL cxios_xml_tree_add_grid(parent_hdl%daddr, child_hdl%daddr, child_id, len(child_id)) 
    365       ELSE 
    366          CALL cxios_xml_tree_add_grid(parent_hdl%daddr, child_hdl%daddr, "NONE", -1) 
    367       END IF 
    368    END SUBROUTINE xml_tree_add_grid 
    369     
    370    SUBROUTINE xml_tree_add_field(parent_hdl, child_hdl, child_id) 
    371       TYPE(XFieldGroupHandle)     , INTENT(IN) :: parent_hdl 
    372       TYPE(XFieldHandle)          , INTENT(OUT):: child_hdl 
    373       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: child_id 
    374       IF (PRESENT(child_id)) THEN 
    375          CALL cxios_xml_tree_add_field(parent_hdl%daddr, child_hdl%daddr, child_id, len(child_id)) 
    376       ELSE 
    377          CALL cxios_xml_tree_add_field(parent_hdl%daddr, child_hdl%daddr, "NONE", -1) 
    378       END IF 
    379    END SUBROUTINE xml_tree_add_field 
    380     
    381    SUBROUTINE xml_tree_add_domain(parent_hdl, child_hdl, child_id) 
    382       TYPE(XDomainGroupHandle)     , INTENT(IN) :: parent_hdl 
    383       TYPE(XDomainHandle)          , INTENT(OUT):: child_hdl 
    384       CHARACTER(len = *), OPTIONAL , INTENT(IN) :: child_id 
    385       IF (PRESENT(child_id)) THEN 
    386          CALL cxios_xml_tree_add_domain(parent_hdl%daddr, child_hdl%daddr, child_id, len(child_id)) 
    387       ELSE 
    388          CALL cxios_xml_tree_add_domain(parent_hdl%daddr, child_hdl%daddr, "NONE", -1) 
    389       END IF 
    390    END SUBROUTINE xml_tree_add_domain 
    391     
    392    SUBROUTINE xml_tree_add_fieldtofile(parent_hdl, child_hdl, child_id) 
    393       TYPE(XFileHandle)            , INTENT(IN) :: parent_hdl 
    394       TYPE(XFieldHandle)           , INTENT(OUT):: child_hdl 
    395       CHARACTER(len = *), OPTIONAL , INTENT(IN) :: child_id 
    396       IF (PRESENT(child_id)) THEN 
    397          CALL cxios_xml_tree_add_fieldtofile(parent_hdl%daddr, child_hdl%daddr, child_id, len(child_id)) 
    398       ELSE 
    399          CALL cxios_xml_tree_add_fieldtofile(parent_hdl%daddr, child_hdl%daddr, "NONE", -1) 
    400       END IF 
    401    END SUBROUTINE xml_tree_add_fieldtofile 
    402  
    403    SUBROUTINE xml_tree_add_axisgroup(parent_hdl, child_hdl, child_id) 
    404       TYPE(XAxisGroupHandle)      , INTENT(IN) :: parent_hdl 
    405       TYPE(XAxisGroupHandle)      , INTENT(OUT):: child_hdl 
    406       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: child_id 
    407       IF (PRESENT(child_id)) THEN 
    408          CALL cxios_xml_tree_add_axisgroup(parent_hdl%daddr, child_hdl%daddr, child_id, len(child_id)) 
    409       ELSE 
    410          CALL cxios_xml_tree_add_axisgroup(parent_hdl%daddr, child_hdl%daddr, "NONE", -1) 
    411       END IF 
    412    END SUBROUTINE xml_tree_add_axisgroup 
    413  
    414    SUBROUTINE xml_tree_add_filegroup(parent_hdl, child_hdl, child_id) 
    415       TYPE(XFileGroupHandle)      , INTENT(IN) :: parent_hdl 
    416       TYPE(XFileGroupHandle)      , INTENT(OUT):: child_hdl 
    417       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: child_id 
    418       IF (PRESENT(child_id)) THEN 
    419          CALL cxios_xml_tree_add_filegroup(parent_hdl%daddr, child_hdl%daddr, child_id, len(child_id)) 
    420       ELSE 
    421          CALL cxios_xml_tree_add_filegroup(parent_hdl%daddr, child_hdl%daddr, "NONE", -1) 
    422       END IF 
    423    END SUBROUTINE xml_tree_add_filegroup 
    424  
    425    SUBROUTINE xml_tree_add_gridgroup(parent_hdl, child_hdl, child_id) 
    426       TYPE(XGridGroupHandle)      , INTENT(IN) :: parent_hdl 
    427       TYPE(XGridGroupHandle)      , INTENT(OUT):: child_hdl 
    428       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: child_id 
    429       IF (PRESENT(child_id)) THEN 
    430          CALL cxios_xml_tree_add_gridgroup(parent_hdl%daddr, child_hdl%daddr, child_id, len(child_id)) 
    431       ELSE 
    432          CALL cxios_xml_tree_add_gridgroup(parent_hdl%daddr, child_hdl%daddr, "NONE", -1) 
    433       END IF 
    434    END SUBROUTINE xml_tree_add_gridgroup 
    435  
    436    SUBROUTINE xml_tree_add_fieldgroup(parent_hdl, child_hdl, child_id) 
    437       TYPE(XFieldGroupHandle)     , INTENT(IN) :: parent_hdl 
    438       TYPE(XFieldGroupHandle)     , INTENT(OUT):: child_hdl 
    439       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: child_id 
    440       IF (PRESENT(child_id)) THEN 
    441          CALL cxios_xml_tree_add_fieldgroup(parent_hdl%daddr, child_hdl%daddr, child_id, len(child_id)) 
    442       ELSE 
    443          CALL cxios_xml_tree_add_fieldgroup(parent_hdl%daddr, child_hdl%daddr, "NONE", -1) 
    444       END IF 
    445    END SUBROUTINE xml_tree_add_fieldgroup 
    446  
    447    SUBROUTINE xml_tree_add_domaingroup(parent_hdl, child_hdl, child_id) 
    448       TYPE(XDomainGroupHandle)     , INTENT(IN) :: parent_hdl 
    449       TYPE(XDomainGroupHandle)     , INTENT(OUT):: child_hdl 
    450       CHARACTER(len = *), OPTIONAL , INTENT(IN) :: child_id 
    451       IF (PRESENT(child_id)) THEN 
    452          CALL cxios_xml_tree_add_domaingroup(parent_hdl%daddr, child_hdl%daddr, child_id, len(child_id)) 
    453       ELSE 
    454          CALL cxios_xml_tree_add_domaingroup(parent_hdl%daddr, child_hdl%daddr, "NONE", -1) 
    455       END IF 
    456    END SUBROUTINE xml_tree_add_domaingroup 
    457  
    458    SUBROUTINE xml_tree_add_fieldgrouptofile(parent_hdl, child_hdl, child_id) 
    459       TYPE(XFileHandle)            , INTENT(IN) :: parent_hdl 
    460       TYPE(XFieldGroupHandle)      , INTENT(OUT):: child_hdl 
    461       CHARACTER(len = *), OPTIONAL , INTENT(IN) :: child_id 
    462       IF (PRESENT(child_id)) THEN 
    463          CALL cxios_xml_tree_add_fieldgrouptofile(parent_hdl%daddr, child_hdl%daddr, child_id, len(child_id)) 
    464       ELSE 
    465          CALL cxios_xml_tree_add_fieldgrouptofile(parent_hdl%daddr, child_hdl%daddr, "NONE", -1) 
    466       END IF 
    467    END SUBROUTINE xml_tree_add_fieldgrouptofile 
    468  
    469    SUBROUTINE xml_tree_show(filename) 
    470       CHARACTER(len = *), OPTIONAL, INTENT(IN) :: filename 
    471       IF (PRESENT(filename)) THEN 
    472          CALL cxios_xml_tree_show(filename, len(filename)) 
    473       ELSE 
    474          CALL cxios_xml_tree_show("NONE", -1) 
    475       END IF 
    476    END SUBROUTINE xml_tree_show 
    477     
    478    SUBROUTINE xml_parse_file(filename) 
    479       CHARACTER(len = *), INTENT(IN) :: filename 
    480       CALL cxios_xml_parse_file(filename, len(filename)) 
    481    END SUBROUTINE xml_Parse_File 
    482     
    483    SUBROUTINE xml_parse_string(xmlcontent) 
    484       CHARACTER(len = *), INTENT(IN) :: xmlcontent 
    485       CALL cxios_xml_parse_string(xmlcontent, len(xmlcontent)) 
    486    END SUBROUTINE xml_Parse_String 
    487290       
    488291END MODULE IXML_TREE 
Note: See TracChangeset for help on using the changeset viewer.