|
◆ vol7d_check()
integer function vol7d_check |
( |
type(vol7d), intent(in) |
this | ) |
|
- Parametri
-
Definizione alla linea 602 del file vol7d_class.F90.
603 if ( associated(this%anavar%d)) call display(this%anavar%d(i),idat,rdat,ddat,bdat,cdat)
608 if ( associated(this%volanab)) then
609 do i=1, size(this%anavar%b)
610 bdat=this%volanab(1,i,1)
611 if ( associated(this%anavar%b)) call display(this%anavar%b(i),idat,rdat,ddat,bdat,cdat)
616 if ( associated(this%volanac)) then
617 do i=1, size(this%anavar%c)
618 cdat=this%volanac(1,i,1)
619 if ( associated(this%anavar%c)) call display(this%anavar%c(i),idat,rdat,ddat,bdat,cdat)
625 print*, "---- data vector ----"
627 print*, "->>>>>>>>> dativar -"
628 call display(this%dativar)
630 print*, "->>>>>>>>> datiattr -"
631 call display(this%datiattr)
633 print*, "->>>>>>>>> dativarattr -"
634 call display(this%dativarattr)
636 print*, "-- data data section (first point) --"
644 IF ( SIZE(this%ana) > 0 .AND. SIZE(this%network) > 0 .AND. size(this%time) > 0 &
645 .AND. size(this%level) > 0 .AND. size(this%timerange) > 0) THEN
646 if ( associated(this%voldatii)) then
647 do i=1, size(this%dativar%i)
648 idat=this%voldatii(1,1,1,1,i,1)
649 if ( associated(this%dativar%i)) call display(this%dativar%i(i),idat,rdat,ddat,bdat,cdat)
654 if ( associated(this%voldatir)) then
655 do i=1, size(this%dativar%r)
656 rdat=this%voldatir(1,1,1,1,i,1)
657 if ( associated(this%dativar%r)) call display(this%dativar%r(i),idat,rdat,ddat,bdat,cdat)
662 if ( associated(this%voldatid)) then
663 do i=1, size(this%dativar%d)
664 ddat=this%voldatid(1,1,1,1,i,1)
665 if ( associated(this%dativar%d)) call display(this%dativar%d(i),idat,rdat,ddat,bdat,cdat)
670 if ( associated(this%voldatib)) then
671 do i=1, size(this%dativar%b)
672 bdat=this%voldatib(1,1,1,1,i,1)
673 if ( associated(this%dativar%b)) call display(this%dativar%b(i),idat,rdat,ddat,bdat,cdat)
678 if ( associated(this%voldatic)) then
679 do i=1, size(this%dativar%c)
680 cdat=this%voldatic(1,1,1,1,i,1)
681 if ( associated(this%dativar%c)) call display(this%dativar%c(i),idat,rdat,ddat,bdat,cdat)
687 print*, "<<<<<<<<<<<<<<<<<<< END vol7d object >>>>>>>>>>>>>>>>>>>>"
|