libsim Versione 7.1.11
|
◆ vol7d_dballe_importvvnv()
Identica a vol7d_dballe_importvsns con var e network vettore. import da DB-all.e
Definizione alla linea 453 del file vol7d_dballe_class.F03. 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)
483 if (c_e(anaattr(i)))then
484 if (present(anaattrkind))then
485 select case (anaattrkind(i))
486 case("r")
487 allocate (anastarvars%dcv(i)%dat,source=dbadatar(anaattr(i)))
488 case("i")
|