948 nanavarattri, nanavarattrb, nanavarattrc, ini)
950 ndativari, ndativarb, ndativarc, ini)
952 ndatiattri, ndatiattrb, ndatiattrc, ini)
954 ndativarattri, ndativarattrb, ndativarattrc, ini)
956 END SUBROUTINE vol7d_alloc
959 FUNCTION vol7d_check_alloc_ana(this)
960 TYPE(vol7d),
INTENT(in) :: this
961 LOGICAL :: vol7d_check_alloc_ana
963 vol7d_check_alloc_ana =
ASSOCIATED(this%ana) .AND.
ASSOCIATED(this%network
965 END FUNCTION vol7d_check_alloc_ana
967 SUBROUTINE vol7d_force_alloc_ana(this, ini)
968 TYPE(vol7d),
INTENT(inout) :: this
969 LOGICAL,
INTENT(in),
OPTIONAL :: ini
972 IF (.NOT.
ASSOCIATED(this%ana))
CALL vol7d_alloc(this, nana=1, ini=ini)
973 IF (.NOT.
ASSOCIATED(this%network))
CALL vol7d_alloc(this, nnetwork=1, ini
975 END SUBROUTINE vol7d_force_alloc_ana
978 FUNCTION vol7d_check_alloc_dati(this)
979 TYPE(vol7d),
INTENT(in) :: this
980 LOGICAL :: vol7d_check_alloc_dati
982 vol7d_check_alloc_dati = vol7d_check_alloc_ana(this) .AND. &
983 ASSOCIATED(this%time) .AND.
ASSOCIATED(this%level) .AND. &
984 ASSOCIATED(this%timerange)
986 END FUNCTION vol7d_check_alloc_dati
988 SUBROUTINE vol7d_force_alloc_dati(this, ini)
989 TYPE(vol7d),
INTENT(inout) :: this