◆ 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 746 del file vol7d_dballe_class.F03.

   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
 
 bn: do n=1,nanavar
   do i =1, size(metaanddatav)
     do j=1, size(metaanddatav(i)%dataattrv%dataattr)
       if (.not. c_e(metaanddatav(i)%metadata%datetime%datetime)) then
         if (metaanddatav(i)%dataattrv%dataattr(j)%dat%btable == anavara(n)) then
           allocate(anavars%dcv(n)%dat,source=metaanddatav(i)%dataattrv%dataattr(j)%dat)
           cycle bn
         end if
       end if