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_delete() elemental subroutine, private vol7d_class::vol7d_delete ( type(vol7d), intent(inout)  this, logical, intent(in), optional  dataonly  ) private Distrugge l'oggetto in maniera pulita, liberando l'eventuale memoria dinamicamente allocata. Permette di distruggere la sola parte di dati mantenendo l'anagrafica. Parametri [in,out] this oggetto da distruggere [in] dataonly dealloca solo i dati, tenendo l'anagrafica, (default .FALSE.) Definizione alla linea 553 del file vol7d_class.F90. do i =1,size(this%timerange) call display(this%timerange(i)) end do end if print*,"---- ana vector ----" print*,"" print*,"->>>>>>>>> anavar -" call display(this%anavar) print*,"" print*,"->>>>>>>>> anaattr -" call display(this%anaattr) print*,"" print*,"->>>>>>>>> anavarattr -" call display(this%anavarattr) print*,"-- ana data section (first point) --" idat=imiss rdat=rmiss ddat=dmiss bdat=ibmiss cdat=cmiss !ntime = MIN(SIZE(this%time),nprint) !ntimerange = MIN(SIZE(this%timerange),nprint) !nlevel = MIN(SIZE(this%level),nprint) !nnetwork = MIN(SIZE(this%network),nprint) !nana = MIN(SIZE(this%ana),nprint) IF (SIZE(this%ana) > 0 .AND. SIZE(this%network) > 0) THEN if (associated(this%volanai)) then do i=1,size(this%anavar%i) idat=this%volanai(1,i,1) if (associated(this%anavar%i)) call display(this%anavar%i(i),idat,rdat,ddat,bdat,cdat) end do end if idat=imiss if (associated(this%volanar)) then do i=1,size(this%anavar%r) rdat=this%volanar(1,i,1) if (associated(this%anavar%r)) call display(this%anavar%r(i),idat,rdat,ddat,bdat,cdat)