929 IF (nnetwork >= 0)
THEN
930 IF (
ASSOCIATED(this%network))
DEALLOCATE(this%network)
931 ALLOCATE(this%network(nnetwork))
934 CALL init(this%network(i))
940 CALL vol7d_varvect_alloc(this%anavar, nanavarr, nanavard, &
941 nanavari, nanavarb, nanavarc, ini)
942 CALL vol7d_varvect_alloc(this%anaattr, nanaattrr, nanaattrd, &
943 nanaattri, nanaattrb, nanaattrc, ini)
944 CALL vol7d_varvect_alloc(this%anavarattr, nanavarattrr, nanavarattrd, &
945 nanavarattri, nanavarattrb, nanavarattrc, ini)
946 CALL vol7d_varvect_alloc(this%dativar, ndativarr, ndativard, &
947 ndativari, ndativarb, ndativarc, ini)
948 CALL vol7d_varvect_alloc(this%datiattr, ndatiattrr, ndatiattrd, &
949 ndatiattri, ndatiattrb, ndatiattrc, ini)
950 CALL vol7d_varvect_alloc(this%dativarattr, ndativarattrr, ndativarattrd, &
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