934 CALL init(this%network(i))
941 nanavari, nanavarb, nanavarc, ini)
943 nanaattri, nanaattrb, nanaattrc, ini)
945 nanavarattri, nanavarattrb, nanavarattrc, ini)
947 ndativari, ndativarb, ndativarc, ini)
949 ndatiattri, ndatiattrb, ndatiattrc, ini)
951 ndativarattri, ndativarattrb, ndativarattrc, ini)
953 END SUBROUTINE vol7d_alloc
956 FUNCTION vol7d_check_alloc_ana(this)
957 TYPE(vol7d),
INTENT(in) :: this
958 LOGICAL :: vol7d_check_alloc_ana
960 vol7d_check_alloc_ana =
ASSOCIATED(this%ana) .AND.
ASSOCIATED(this%network
962 END FUNCTION vol7d_check_alloc_ana
964 SUBROUTINE vol7d_force_alloc_ana(this, ini)
965 TYPE(vol7d),
INTENT(inout) :: this
966 LOGICAL,
INTENT(in),
OPTIONAL :: ini
969 IF (.NOT.
ASSOCIATED(this%ana))
CALL vol7d_alloc(this, nana=1, ini=ini)
970 IF (.NOT.
ASSOCIATED(this%network))
CALL vol7d_alloc(this, nnetwork=1, ini