libsim  Versione6.3.0

◆ 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]thisoggetto vol7d_dballe

Definizione alla linea 755 del file vol7d_dballe_class.F03.

755  !print *,"anavarl: ", metaanddatav(i)%dataattrv%dataattr(j)%dat%btable
756  call anavarl%append(metaanddatav(i)%dataattrv%dataattr(j)%dat%btable)
757  end if
758  end do
759 end do
760 
761 !count and put in vector of unuique key
762 ndativar = count_distinct(toarray_charl(dativarl) , back=.true.)
763 allocate(dativara(ndativar))
764 call pack_distinct_c (toarray_charl(dativarl) , dativara , back=.true.)
765 status = dativarl%delete()
766 allocate (vars%dcv(ndativar))
767 
768 nanavar = count_distinct(toarray_charl(anavarl) , back=.true.)
769 allocate(anavara(nanavar))
770 call pack_distinct_c (toarray_charl(anavarl) , anavara , back=.true.)
771 status = anavarl%delete()
772 allocate (anavars%dcv(nanavar))
773 
774 
775 an: do n=1,ndativar
776  do i =1, size(metaanddatav)
777  do j=1, size(metaanddatav(i)%dataattrv%dataattr)
778  if (c_e(metaanddatav(i)%metadata%datetime%datetime)) then
779  if (metaanddatav(i)%dataattrv%dataattr(j)%dat%btable == dativara(n)) then
780  allocate(vars%dcv(n)%dat,source=metaanddatav(i)%dataattrv%dataattr(j)%dat)
781  cycle an
782  end if
783  end if
784  end do
785  end do
786 end do an
787 
788 bn: do n=1,nanavar
789  do i =1, size(metaanddatav)
790  do j=1, size(metaanddatav(i)%dataattrv%dataattr)
791  if (.not. c_e(metaanddatav(i)%metadata%datetime%datetime)) then
792  if (metaanddatav(i)%dataattrv%dataattr(j)%dat%btable == anavara(n)) then
793  allocate(anavars%dcv(n)%dat,source=metaanddatav(i)%dataattrv%dataattr(j)%dat)
794  cycle bn
795  end if
796  end if
797  end do
798  end do
799 end do bn
800 
801  ! attributes
802 do i =1, size(metaanddatav)
803  do j=1, size(metaanddatav(i)%dataattrv%dataattr)
804  do k=1, size(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv)
805  if (c_e(metaanddatav(i)%metadata%datetime%datetime)) then
806  !print *,"dativarattrl: ", metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable
807  call dativarattrl%append(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable)
808  else
809  !print *,"anavarattrl: ", metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable
810  call anavarattrl%append(metaanddatav(i)%dataattrv%dataattr(j)%attrv%dcv(k)%dat%btable)
811  end if
812  end do
813  end do
814 end do
815 
816 
817 ndativarattr = count_distinct(toarray_charl(dativarattrl), back=.true.)
818 allocate(dativarattra(ndativarattr))
819 call pack_distinct_c (toarray_charl(dativarattrl), dativarattra, back=.true.)

Generated with Doxygen.