get_unitsets_details.F90

Go to the documentation of this file.
00001 !------------------------------------------------------------------------
00002 ! Copyright 2006-2010, CERFACS, Toulouse, France.
00003 ! All rights reserved. Use is subject to license terms.
00004 !------------------------------------------------------------------------
00005 !BOP
00006 !
00007 !=====================================================================
00008 !
00009   SUBROUTINE get_unitsets_details ( id_XML_doc,         &
00010                                     id_nb_unitsets,     &
00011                                     ida_smioc_unitsets, &
00012                                     id_error)     
00013 
00014 ! !DESCRIPTION
00015 ! This routines gives extracts the Fortran units sets for one smioc
00016 !
00017 !----------------------------------------------------------------------
00018 !
00019     USE PSMILe_smioc
00020     IMPLICIT NONE
00021 !
00022 !EOP
00023 !----------------------------------------------------------------------
00024 ! $Id: psmile_smioc.F90 1793 2008-11-25 14:58:31Z valcke $
00025 ! $Author: valcke $
00026 !----------------------------------------------------------------------
00027 !
00028 ! 0. Declaration
00029 !
00030 ! handle of XML content of the smioc file
00031     INTEGER, INTENT(In) :: id_XML_doc
00032 
00033 ! number of Fortran units sets for the component
00034     INTEGER, INTENT(In) :: id_nb_unitsets       
00035 
00036 ! Fortran units sets for the component
00037     INTEGER, DIMENSION(id_nb_unitsets,3), INTENT(Out) :: ida_smioc_unitsets
00038   
00039 ! returned error code
00040     INTEGER, INTENT(Out) :: id_error 
00041 !
00042     INTEGER :: sasa_c_get_element_3rd_level_i
00043 !
00044     INTEGER :: ib
00045 !
00046 !-----------------------------------------------------------------------
00047 !
00048 
00049     DO ib =1, id_nb_unitsets  
00050 
00051       id_error = &
00052          sasa_c_get_element_3rd_level_i (id_XML_doc,             &
00053          'component', 0, 'code', 0, 'Fortran_units', ib,    &
00054          'min_value', 0, ida_smioc_unitsets(ib,1))
00055 
00056       id_error = &
00057          sasa_c_get_element_3rd_level_i (id_XML_doc,             &
00058          'component', 0, 'code', 0, 'Fortran_units', ib,    &
00059          'max_value', 0, ida_smioc_unitsets(ib,2))
00060 
00061       id_error = &
00062          sasa_c_get_element_3rd_level_i (id_XML_doc,             &
00063          'component', 0, 'code', 0, 'Fortran_units', ib,    &
00064          'inc_value', 0, ida_smioc_unitsets(ib,3))
00065 
00066     END DO
00067 
00068   END SUBROUTINE get_unitsets_details
00069 
00070 !
00071 !======================================================================