zero_factors_array Subroutine

    subroutine zero_factors_array(num_classes, factors)

        integer, intent(in) :: num_classes
        type(ras_factors), intent(inout) :: factors(num_classes, 0:7)
        integer :: class_i, sym_i

        do class_i = 1, num_classes
            do sym_i = 0, 7
                if (allocated(factors(class_i, sym_i)%elements)) &
                    factors(class_i, sym_i)%elements(:) = 0.0_dp
            end do
        end do

    end subroutine zero_factors_array