|
◆ vol7d_check()
integer function, private vol7d_class::vol7d_check |
( |
type(vol7d), intent(in) |
this | ) |
|
|
private |
- Parametri
-
Definizione alla linea 617 del file vol7d_class.F90.
617 cdat=this%volanac(1,i,1) 618 if ( associated(this%anavar%c)) call display(this%anavar%c(i),idat,rdat,ddat,bdat,cdat) 624 print*, "---- data vector ----" 626 print*, "->>>>>>>>> dativar -" 629 print*, "->>>>>>>>> datiattr -" 632 print*, "->>>>>>>>> dativarattr -" 635 print*, "-- data data section (first point) --" 643 IF ( SIZE(this%ana) > 0 .AND. SIZE(this%network) > 0 .AND. size(this%time) > 0 & 644 .AND. size(this%level) > 0 .AND. size(this%timerange) > 0) THEN 645 if ( associated(this%voldatii)) then 646 do i=1, size(this%dativar%i) 647 idat=this%voldatii(1,1,1,1,i,1) 648 if ( associated(this%dativar%i)) call display(this%dativar%i(i),idat,rdat,ddat,bdat,cdat) 653 if ( associated(this%voldatir)) then 654 do i=1, size(this%dativar%r) 655 rdat=this%voldatir(1,1,1,1,i,1) 656 if ( associated(this%dativar%r)) call display(this%dativar%r(i),idat,rdat,ddat,bdat,cdat) 661 if ( associated(this%voldatid)) then 662 do i=1, size(this%dativar%d) 663 ddat=this%voldatid(1,1,1,1,i,1) 664 if ( associated(this%dativar%d)) call display(this%dativar%d(i),idat,rdat,ddat,bdat,cdat) 669 if ( associated(this%voldatib)) then 670 do i=1, size(this%dativar%b) 671 bdat=this%voldatib(1,1,1,1,i,1) 672 if ( associated(this%dativar%b)) call display(this%dativar%b(i),idat,rdat,ddat,bdat,cdat) 677 if ( associated(this%voldatic)) then 678 do i=1, size(this%dativar%c) 679 cdat=this%voldatic(1,1,1,1,i,1) 680 if ( associated(this%dativar%c)) call display(this%dativar%c(i),idat,rdat,ddat,bdat,cdat) 686 print*, "<<<<<<<<<<<<<<<<<<< END vol7d object >>>>>>>>>>>>>>>>>>>>" 688 END SUBROUTINE vol7d_display 692 SUBROUTINE dat_display(this,idat,rdat,ddat,bdat,cdat) 693 TYPE(vol7d_var), intent(in) :: this 697 DOUBLE PRECISION :: ddat 701 INTEGER(kind=int_b) :: bdat
|