dat_display dat_vect_display integeranavol move_datac move_datar realanavol to_char_dat v7d_rounding vol7d_alloc vol7d_alloc_vol vol7d_ana_a vol7d_ana_d vol7d_append vol7d_attr_a vol7d_attr_d vol7d_c_e vol7d_check vol7d_check_vol vol7d_convr vol7d_copy vol7d_delete vol7d_diff_only vol7d_display vol7d_filter vol7d_get_volanaattrb vol7d_get_volanaattrc vol7d_get_volanaattrd vol7d_get_volanaattri vol7d_get_volanaattrr vol7d_get_volanab vol7d_get_volanac vol7d_get_volanad vol7d_get_volanai vol7d_get_volanar vol7d_get_voldatiattrb vol7d_get_voldatiattrc vol7d_get_voldatiattrd vol7d_get_voldatiattri vol7d_get_voldatiattrr vol7d_get_voldatib vol7d_get_voldatic vol7d_get_voldatid vol7d_get_voldatii vol7d_get_voldatir vol7d_init vol7d_level_d vol7d_merge vol7d_network_a vol7d_network_d vol7d_read_from_file vol7d_reform vol7d_set_attr_ind vol7d_smart_sort vol7d_time_d vol7d_timerange_d vol7d_var_a vol7d_var_d vol7d_write_on_file

vol7d_check() integer function, private vol7d_class::vol7d_check ( type(vol7d), intent(in)  this ) private Parametri [in] this object to check Definizione alla linea 602 del file vol7d_class.F90. do i=1,size(this%anavar%d) ddat=this%volanad(1,i,1) if (associated(this%anavar%d)) call display(this%anavar%d(i),idat,rdat,ddat,bdat,cdat) end do end if ddat=dmiss if (associated(this%volanab)) then do i=1,size(this%anavar%b) bdat=this%volanab(1,i,1) if (associated(this%anavar%b)) call display(this%anavar%b(i),idat,rdat,ddat,bdat,cdat) end do end if bdat=ibmiss if (associated(this%volanac)) then do i=1,size(this%anavar%c) cdat=this%volanac(1,i,1) if (associated(this%anavar%c)) call display(this%anavar%c(i),idat,rdat,ddat,bdat,cdat) end do end if cdat=cmiss ENDIF print*,"---- data vector ----" print*,"" print*,"->>>>>>>>> dativar -" call display(this%dativar) print*,"" print*,"->>>>>>>>> datiattr -" call display(this%datiattr) print*,"" print*,"->>>>>>>>> dativarattr -" call display(this%dativarattr) print*,"-- data data section (first point) --" idat=imiss rdat=rmiss ddat=dmiss bdat=ibmiss cdat=cmiss IF (SIZE(this%ana) > 0 .AND. SIZE(this%network) > 0 .AND. size(this%time) > 0 & .AND. size(this%level) > 0 .AND. size(this%timerange) > 0) THEN if (associated(this%voldatii)) then do i=1,size(this%dativar%i) idat=this%voldatii(1,1,1,1,i,1) if (associated(this%dativar%i)) call display(this%dativar%i(i),idat,rdat,ddat,bdat,cdat) end do end if idat=imiss if (associated(this%voldatir)) then do i=1,size(this%dativar%r) rdat=this%voldatir(1,1,1,1,i,1) if (associated(this%dativar%r)) call display(this%dativar%r(i),idat,rdat,ddat,bdat,cdat) end do end if rdat=rmiss if (associated(this%voldatid)) then do i=1,size(this%dativar%d) ddat=this%voldatid(1,1,1,1,i,1) if (associated(this%dativar%d)) call display(this%dativar%d(i),idat,rdat,ddat,bdat,cdat) end do end if ddat=dmiss if (associated(this%voldatib)) then do i=1,size(this%dativar%b) bdat=this%voldatib(1,1,1,1,i,1) if (associated(this%dativar%b)) call display(this%dativar%b(i),idat,rdat,ddat,bdat,cdat) end do end if bdat=ibmiss if (associated(this%voldatic)) then do i=1,size(this%dativar%c) cdat=this%voldatic(1,1,1,1,i,1) if (associated(this%dativar%c)) call display(this%dativar%c(i),idat,rdat,ddat,bdat,cdat) end do end if cdat=cmiss ENDIF