libsim Versione 7.1.11

◆ vol7d_init()

subroutine, private vol7d_init ( type(vol7d), intent(out)  this,
integer, intent(in), optional  time_definition 
)
private

Inizializza un oggetto di tipo vol7d.

Non riceve alcun parametro tranne l'oggetto stesso. Attenzione, รจ necessario comunque chiamare sempre il costruttore per evitare di avere dei puntatori in uno stato indefinito.

Parametri
[out]thisoggetto da inizializzare
[in]time_definition0=time is reference time ; 1=time is validity time (default=1)

Definizione alla linea 517 del file vol7d_class.F90.

518 print*,"---- network vector ----"
519 print*,"elements=",size(this%network)
520 do i=1, size(this%network)
521 call display(this%network(i))
522 end do
523end IF
524
525IF (ASSOCIATED(this%ana))then
526 print*,"---- ana vector ----"
527 print*,"elements=",size(this%ana)
528 do i=1, size(this%ana)
529 call display(this%ana(i))
530 end do
531end IF
532
533IF (ASSOCIATED(this%time))then
534 print*,"---- time vector ----"
535 print*,"elements=",size(this%time)
536 do i=1, size(this%time)
537 call display(this%time(i))
538 end do
539end if
540
541IF (ASSOCIATED(this%level)) then
542 print*,"---- level vector ----"

Generated with Doxygen.