libsim Versione 7.2.4

◆ vol7d_c_e()

logical function vol7d_c_e ( type(vol7d), intent(in) this)

Tests whether anything has ever been assigned to a vol7d object (.TRUE.) or it is as clean as after an init (.FALSE.).

Definizione alla linea 967 del file vol7d_class.F90.

968! Alloco i descrittori minimi per avere un volume di anagrafica
969IF (.NOT. ASSOCIATED(this%ana)) CALL vol7d_alloc(this, nana=1, ini=ini)
970IF (.NOT. ASSOCIATED(this%network)) CALL vol7d_alloc(this, nnetwork=1, ini=ini)
971
972END SUBROUTINE vol7d_force_alloc_ana
973
974
975FUNCTION vol7d_check_alloc_dati(this)
976TYPE(vol7d),INTENT(in) :: this
977LOGICAL :: vol7d_check_alloc_dati
978
979vol7d_check_alloc_dati = vol7d_check_alloc_ana(this) .AND. &
980 ASSOCIATED(this%time) .AND. ASSOCIATED(this%level) .AND. &
981 ASSOCIATED(this%timerange)
982
983END FUNCTION vol7d_check_alloc_dati
984
985SUBROUTINE vol7d_force_alloc_dati(this, ini)
986TYPE(vol7d),INTENT(inout) :: this
987LOGICAL,INTENT(in),OPTIONAL :: ini

Generated with Doxygen.