libsim Versione 7.2.4
|
◆ vol7d_init()
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.
Definizione alla linea 511 del file vol7d_class.F90. 512 print*,"TIME DEFINITION: time is validity time"
513else
514 print*,"Time definition have a wrong walue:", this%time_definition
515end if
516
517IF (ASSOCIATED(this%network))then
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)
|