libsim Versione 7.2.6

◆ vol7d_dballe_importvvnv()

subroutine vol7d_dballe_importvvnv ( type(vol7d_dballe), intent(inout) this,
character(len=*), dimension(:), intent(in) var,
type(vol7d_network), dimension(:), intent(in) network,
type(geo_coord), intent(inout), optional coordmin,
type(geo_coord), intent(inout), optional coordmax,
type(datetime), intent(in), optional timei,
type(datetime), intent(in), optional timef,
type(vol7d_level), intent(in), optional level,
type(vol7d_timerange), intent(in), optional timerange,
type(vol7d_network), intent(in), optional set_network,
character(len=*), dimension(:), intent(in), optional attr,
character(len=*), dimension(:), intent(in), optional anavar,
character(len=*), dimension(:), intent(in), optional anaattr,
character(len=*), dimension(:), intent(in), optional varkind,
character(len=*), dimension(:), intent(in), optional attrkind,
character(len=*), dimension(:), intent(in), optional anavarkind,
character(len=*), dimension(:), intent(in), optional anaattrkind,
logical, intent(in), optional anaonly,
logical, intent(in), optional dataonly,
type(vol7d_ana), intent(inout), optional ana )
private

Identica a vol7d_dballe_importvsns con var e network vettore.

import da DB-all.e

Parametri
[in,out]thisoggetto vol7d_dballe

Definizione alla linea 447 del file vol7d_dballe_class.F03.

449 if (present(attrkind))then
450 select case (attrkind(i))
451 case("r")
452 allocate (starvars%dcv(i)%dat,source=dbadatar(attr(i)))
453 case("i")
454 allocate (starvars%dcv(i)%dat,source=dbadatai(attr(i)))
455 case("b")
456 allocate (starvars%dcv(i)%dat,source=dbadatab(attr(i)))
457 case("d")
458 allocate (starvars%dcv(i)%dat,source=dbadatad(attr(i)))
459 case("c")
460 allocate (starvars%dcv(i)%dat,source=dbadatac(attr(i)))
461 case default
462 call l4f_category_log(this%category,l4f_error,"attr and attrkind mismach")
463 CALL raise_fatal_error()
464 end select
465 else
466 allocate (starvars%dcv(i)%dat,source=dbadatac(attr(i))) !char is default
467 end if
468 end if
469 end do
470 end if
471 endif
472end if
473
474if (present(anaattr)) then
475 nanaattr=size(anaattr)
476 if (nanaattr == 0) then
477 allocate (anastarvars%dcv(nanaattr))
478 else
479 nanaattr=count(c_e(anaattr))
480 if (nanaattr > 0) then
481 allocate (anastarvars%dcv(nanaattr))
482 do i=1,size(anaattr)

Generated with Doxygen.