Description

Gets the AbsorbedFlux cell data from a 3D Grid Wall analysis results node as a three dimensional array of doubles.  The array is indexed as: data(0 to N_A-1, 0 to N_B-1,0 to N_C-1), where N_A, N_B and N_C are the number of cells along the A, B and C axes.  Data retrieved includes pre/post trace offsets.

Syntax

ARN3DGridWallGetAbsorbedFluxData arnNode, data()

Parameters

arnNode As Long

Node number of the 3D Grid Wall analysis result node whose cell data is being retrieved.

data() As Double

Data array in which to store the AbsorbedFlux values retrieved from the 3D Grid Wall ARN.

Example

The following example performs a raytrace, retrieves the ARN created by a 3D Box detector entity, loads an array with the AbsorbedFlux values and then prints each Z-slice to the output window.

Sub Main()

    ClearOutputWindow

    'Delete existing rays and ARNs, trace new rayset

    EnableTextPrinting False

    DeleteRays()

    ARNDeleteAllNodes()

    TraceCreate

    EnableTextPrinting True

    'Retrieve the ARN created by 3D Box detector entity

    Dim Box3dDe As Long, arnNode As Long

    Box3dDe = FindFullName( "Analysis Surface(s).Detector Entity - 3x3" )

    arnNode = DEGetMostRecentARNNum( Box3dDe )

    'Retrieve cell absorbed flux values

    Dim data() As Double

    ARN3DGridWallGetAbsorbedFluxData(arnNode, data())

    'Print out results

    Dim curAx1 As Long, curAx2 As Long, curAx3 As Long

    Dim ax1 As Long, ax2 As Long, ax3 As Long

    ax1 = UBound(data,1)

    ax2 = UBound(data,2)

    ax3 = UBound(data,3)

    For curAx3 = 0 To ax3

        Print "Printing X,Y data for Z cell slice " & curAx3

        Print "Format: Pabs"

        For curAx1 = 0 To ax1

            For curAx2 = 0 To ax2

                Print data(curAx1,curAx2,curAx3);

            Next curAx2

            Print ""

        Next curAx1

    Next curAx3

End Sub

See Also

All ARN Scripting Commands