◆ vol7d_dballe_import()

subroutine vol7d_dballe_import	(	type(vol7d_dballe), intent(inout)	this,
		type(dbafilter), intent(in)	filter,
		type(vol7d_network), intent(in), optional	set_network )

import da DB-all.e

Parametri

[in,out] this oggetto vol7d_dballe

Definizione alla linea 735 del file vol7d_dballe_class.F03.

end if
 
if (ltime_definition == 2) then
  do i =1,size(metaanddatav)
    metaanddatav(i)%metadata%timerange%vol7d_timerange%p1 = 0
  end do
end if
 
 
IF (PRESENT(set_network)) THEN
  if (c_e(set_network)) then
    ldegnet = .true.
  else
    ldegnet = .false.
  end if
ELSE
  ldegnet = .false.
ENDIF
 
 
 
!!--------------------------------------------------------------------------
!! find vars, starvars, anavars, anastarvars
!!
 
! create lists of all
                                ! data
do i =1, size(metaanddatav)
  do j=1, size(metaanddatav(i)%dataattrv%dataattr)
    if (c_e(metaanddatav(i)%metadata%datetime%datetime)) then
                                !print *,"dativarl: ", metaanddatav(i)%dataattrv%dataattr(j)%dat%btable
      call dativarl%append(metaanddatav(i)%dataattrv%dataattr(j)%dat%btable)
    else
                                !print *,"anavarl: ", metaanddatav(i)%dataattrv%dataattr(j)%dat%btable
      call anavarl%append(metaanddatav(i)%dataattrv%dataattr(j)%dat%btable)
    end if
  end do
end do
 
!count and put in vector of unuique key
ndativar     = count_distinct(toarray_charl(dativarl)    , back=.true.)
allocate(dativara(ndativar))
call pack_distinct_c (toarray_charl(dativarl)    , dativara    , back=.true.)
status = dativarl%delete()
allocate (vars%dcv(ndativar))
 
nanavar      = count_distinct(toarray_charl(anavarl)     , back=.true.)
allocate(anavara(nanavar))
call pack_distinct_c (toarray_charl(anavarl)     , anavara     , back=.true.)
status = anavarl%delete()
allocate (anavars%dcv(nanavar))
 
 
an: do n=1,ndativar
  do i =1, size(metaanddatav)
    do j=1, size(metaanddatav(i)%dataattrv%dataattr)
      if (c_e(metaanddatav(i)%metadata%datetime%datetime)) then
        if (metaanddatav(i)%dataattrv%dataattr(j)%dat%btable == dativara(n)) then
          allocate(vars%dcv(n)%dat,source=metaanddatav(i)%dataattrv%dataattr(j)%dat)
          cycle an
        end if
      end if
    end do
  end do 
end do an