|
◆ vol7d_check()
integer function, private vol7d_class::vol7d_check |
( |
type(vol7d), intent(in) |
this | ) |
|
|
private |
- Parametri
-
Definizione alla linea 603 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 >>>>>>>>>>>>>>>>>>>>"
|