libsim Versione 7.2.0
|
◆ vol7d_dballe_importvvnv()
Identica a vol7d_dballe_importvsns con var e network vettore. import da DB-all.e
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)
|