ecearth3/sources/tm5mp/base/xmlf_read_xml_array.inc

! Part of XML-Fortran library:
!
! $Id: read_xml_array.inc,v 1.3 2007/02/26 20:33:38 arjenmarkus Exp $
!
   type(XML_PARSE), intent(inout)                :: info
   character(len=*), intent(in)                  :: tag
   logical, intent(inout)                        :: endtag
   character(len=*), dimension(:,:), intent(in)  :: attribs
   integer, intent(in)                           :: noattribs
   character(len=*), dimension(:), intent(in)    :: data
   integer, intent(in)                           :: nodata
   logical, intent(inout)                        :: has_var
   integer, intent(out)                          :: status

   character(len=len(attribs(1,1)))              :: buffer
   integer                                       :: idx

   !
   ! The big trick:
   ! A string long enough to hold all data strings
   !
   character(len=nodata*(len(data(1))+1))        :: bufferd
   integer                                       :: start

   !
   ! The value can be stored in an attribute values="..." or in
   ! the data
   !
   has_var = .false.
   idx = xml_find_attrib( attribs, noattribs, 'values', buffer )
   if ( idx .gt. 0 ) then
      call read_from_buffer( buffer, var, status )
      if ( buffer .ne. ' ' ) then
         has_var = .true.
      endif
   else
      bufferd = ' '
      start   = 1
      do idx = 1,nodata
         if ( data(idx) .ne. ' ' ) then
            bufferd(start:) = data(idx)
            start           = start + len(data(idx)) + 1
         endif
      enddo
      call read_from_buffer( bufferd, var, status )
      if ( bufferd .ne. ' ' ) then
         has_var = .true.
      endif
   endif

   if ( status .ne. 0 ) then
      write(*,*) 'Error reading variable - tag = ', trim(tag)
      has_var = .false.
   endif