Examples/SoilWaterStructureInteraction/dynsws/trunk/body_element_integration.mod

+GFORTRAN module version '6' created from integration.f90 on Sun Apr 29 22:07:07 2012
+MD5:3f65d20218b004daf620e543757b53f8 -- If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () () () ()
+() () () ())
+
+()
+
+(('bint_eacc' 'body_element_integration' 2) ('bint_emass'
+'body_element_integration' 3) ('bint_estress' 'body_element_integration'
+4) ('bint_estrain' 'body_element_integration' 5) ('bint_estiff'
+'body_element_integration' 6))
+
+()
+
+()
+
+()
+
+(3 'bint_emass_3_noded_triangular_' 'body_element_integration'
+'bint_emass_3_noded_triangular_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 7 0
+(8 9) () 0 () () () 0 0)
+6 'bint_estiff_3_noded_triangular_' 'body_element_integration'
+'bint_estiff_3_noded_triangular_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 10 0
+(11 12) () 0 () () () 0 0)
+2 'bint_eacc_3_noded_triangular_' 'body_element_integration'
+'bint_eacc_3_noded_triangular_' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 13 0 (14 15) ()
+0 () () () 0 0)
+4 'bint_estress_3_noded_triangular_' 'body_element_integration'
+'bint_estress_3_noded_triangular_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 16 0
+(17 18) () 0 () () () 0 0)
+5 'bint_estrain_3_noded_triangular_' 'body_element_integration'
+'bint_estrain_3_noded_triangular_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 19 0
+(20 21) () 0 () () () 0 0)
+8 'iel' '' 'iel' 7 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+9 'emass' '' 'emass' 7 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 22 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+11 'iel' '' 'iel' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+12 'estiff' '' 'estiff' 10 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 DUMMY) (DERIVED 22 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+14 'iel' '' 'iel' 13 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+15 'eload' '' 'eload' 13 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+17 'iel' '' 'iel' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+18 'eload' '' 'eload' 16 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+20 'iel' '' 'iel' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+21 'eload' '' 'eload' 19 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+22 'matrixt' 'dense_matrix_def' 'matrixt' 1 ((DERIVED UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOC_COMP) (UNKNOWN 0 0 0 UNKNOWN ())
+0 0 () () 0 ((24 'dat' (REAL 8 0 0 REAL ()) (2 0 DEFERRED () () () ()) (
+UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOCATABLE
+DIMENSION) UNKNOWN-ACCESS ())) PUBLIC (() () () ()) () 0 0 72249915)
+23 'vectort' 'vector_def' 'vectort' 1 ((DERIVED UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOC_COMP) (UNKNOWN 0 0 0 UNKNOWN ())
+0 0 () () 0 ((25 'dat' (REAL 8 0 0 REAL ()) (1 0 DEFERRED () ()) (
+UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOCATABLE
+DIMENSION) UNKNOWN-ACCESS ())) PUBLIC (() () () ()) () 0 0 58143611)
+)
+
+()

Examples/SoilWaterStructureInteraction/dynsws/trunk/body_element_interpolation.mod

+GFORTRAN module version '6' created from interpolation.f90 on Sun Apr 29 22:07:07 2012
+MD5:34e12b193b3cf11a370b9d43533440cf -- If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () () () ()
+() () () ())
+
+()
+
+(('bshp_shape' 'body_element_interpolation' 2))
+
+()
+
+()
+
+()
+
+(2 'bshp_shape_3_noded_tri_' 'body_element_interpolation'
+'bshp_shape_3_noded_tri_' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
+UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 3 0 (4
+5 6) () 0 () () () 0 0)
+4 'l1' '' 'l1' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+5 'l2' '' 'l2' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+6 'n' '' 'n' 3 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(DERIVED 7 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+7 'matrixt' 'dense_matrix_def' 'matrixt' 1 ((DERIVED UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOC_COMP) (UNKNOWN 0 0 0 UNKNOWN ())
+0 0 () () 0 ((8 'dat' (REAL 8 0 0 REAL ()) (2 0 DEFERRED () () () ()) (
+UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOCATABLE
+DIMENSION) UNKNOWN-ACCESS ())) PUBLIC (() () () ()) () 0 0 72249915)
+)
+
+()

Examples/SoilWaterStructureInteraction/dynsws/trunk/boundary_data.f90

+! ------------------------------------------------------------------------
+!>  \brief Module for Boundary Data
+! ------------------------------------------------------------------------
+MODULE boundary_data
+USE system_constants      !> Global system constants
+USE log_message_control   !> Printing log/error messages
+USE log_messages          !> Log/error message and sender codes
+USE field_data            !> Field Data module
+
+IMPLICIT NONE
+PRIVATE
+
+
+
+! ************************************************************************
+! EXPORTS
+! ************************************************************************
+
+
+!> Exported data types
+PUBLIC :: surfLoadT
+
+
+!> Exported interfaces
+PUBLIC :: bnd_init, bnd_clean, &
+          bnd_numBoundElem, &
+          bnd_getConnect, bnd_setConnect, &
+          bnd_lenBoundElem, &
+          bnd_getTrac, bnd_setTrac
+
+
+
+! ************************************************************************
+! LOCAL CONSTANTS
+! ************************************************************************
+
+!> sender code for this module
+INTEGER, PARAMETER :: sdr = BNDDAT
+
+
+
+! ************************************************************************
+! DATA TYPES
+! ************************************************************************
+
+
+! ------------------------------------------------------------------------
+!>  \brief Surface load
+!!
+!!  \param sig_nt   Shear stress
+!!  \param sig_nn   Normal stress
+! ------------------------------------------------------------------------
+TYPE surfLoadT
+  DOUBLE PRECISION :: sig_nt, sig_nn
+END TYPE surfLoadT
+
+
+! ------------------------------------------------------------------------
+!>  \brief Surface traction
+!!
+!!  \param loads   Set of node loads
+! ------------------------------------------------------------------------
+TYPE tracT
+  TYPE(surfLoadT), DIMENSION(NNODELB) :: loads
+END TYPE tracT
+
+
+! ------------------------------------------------------------------------
+!>  \brief Connectivity
+!!
+!!  \param nd   Sequence of node indices
+! ------------------------------------------------------------------------
+TYPE boundConnectT
+  INTEGER, DIMENSION(NNODELB) :: nd
+END TYPE boundConnectT
+
+
+! ------------------------------------------------------------------------
+!>  \brief Traction Element
+!!
+!!  \param num      Element number
+!!  \param ico      Connectivity of local nodes
+!!  \param trac     Surface traction of element
+! ------------------------------------------------------------------------
+TYPE boundElementT
+  INTEGER             :: num
+  TYPE(boundConnectT) :: ico
+  TYPE(tracT)         :: trac
+END TYPE boundElementT
+
+
+
+! ************************************************************************
+! STATE VARIABLES
+! ************************************************************************
+
+TYPE(boundElementT), ALLOCATABLE :: boundElements(:)  !> set of traction elements
+
+
+
+! ************************************************************************
+! INTERFACES
+! ************************************************************************
+
+
+!> \brief Interface to initializer for boundary element data
+INTERFACE bnd_init
+  MODULE PROCEDURE bnd_init_
+  MODULE PROCEDURE bnd_init_exc_
+END INTERFACE bnd_init
+
+!> \brief Interface to destructor for boundary element data
+INTERFACE bnd_clean
+  MODULE PROCEDURE bnd_clean_
+END INTERFACE bnd_clean
+
+!> \brief Interface to getter for number of traction elements
+INTERFACE bnd_numBoundElem
+  MODULE PROCEDURE bnd_num_bound_elem_
+END INTERFACE bnd_numBoundElem
+
+!> \brief Interface to getter for traction element connectivity
+INTERFACE bnd_getConnect
+  MODULE PROCEDURE bnd_get_connect_
+  MODULE PROCEDURE bnd_get_connect_exc_
+END INTERFACE bnd_getConnect
+
+!> \brief Interface to setter for traction element connectivity
+INTERFACE bnd_setConnect
+  MODULE PROCEDURE bnd_set_connect_
+  MODULE PROCEDURE bnd_set_connect_exc_
+END INTERFACE bnd_setConnect
+
+!> \brief Interface to getter for length of traction element
+INTERFACE bnd_lenBoundElem
+  MODULE PROCEDURE bnd_len_bound_elem_
+  MODULE PROCEDURE bnd_len_bound_elem_exc_
+END INTERFACE bnd_lenBoundElem
+
+!> \brief Interface to getter for tractions
+INTERFACE bnd_getTrac
+  MODULE PROCEDURE bnd_get_trac_
+  MODULE PROCEDURE bnd_get_trac_exc_
+END INTERFACE bnd_getTrac
+
+!> \brief Interface to setter for tractions
+INTERFACE bnd_setTrac
+  MODULE PROCEDURE bnd_set_trac_
+  MODULE PROCEDURE bnd_set_trac_exc_
+END INTERFACE bnd_setTrac
+
+
+
+CONTAINS
+
+
+
+! ************************************************************************
+! ACCESS PROGRAMS
+! ************************************************************************
+
+
+! ------------------------------------------------------------------------
+!>  \brief Constructor for traction element data (non-exception checking)
+!!
+!!  \param  nel  Number of elements
+!!
+!!  This routine allocates memory and initializes the state variable that
+!!  contains the set of elements for the problem.
+! ------------------------------------------------------------------------
+SUBROUTINE bnd_init_ (nel)
+  INTEGER, INTENT(IN) :: nel
+  INTEGER :: i, j     !> loop variables
+
+  !> ensure state variable is clear
+  CALL bnd_clean()
+
+  !> allocate memory for element data state variable
+  ALLOCATE(boundElements(nel))
+
+  !> initialize state variable
+  DO i = 1,nel
+
+    !> element number
+    boundElements(i)%num   = i
+
+    !> initialize connectivity and loads
+    DO j = 1,NNODELB
+      boundElements(i)%ico  %nd(j)            = 0
+      boundElements(i)%trac %loads(j) %sig_nt = 0.d0
+      boundElements(i)%trac %loads(j) %sig_nn = 0.d0
+    END DO
+
+  END DO
+
+END SUBROUTINE bnd_init_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Constructor for traction element data (exception checking)
+!!
+!!  \param  nel   Number of elements
+!!  \param  exc   Error code
+!!
+!!  \exception  ALLOC Failed to allocate memory for element data
+!!  \exception  SZE   Specified number of elements is invalid
+!!
+!!  This routine allocates memory and initializes the state variable that
+!!  contains the set of elements for the problem.
+! ------------------------------------------------------------------------
+SUBROUTINE bnd_init_exc_ (nel, exc)
+  INTEGER, INTENT(IN) :: nel
+  INTEGER, INTENT(OUT) :: exc
+  INTEGER :: e        !> status code for memory allocation
+  INTEGER :: i, j     !> loop variables
+
+  !> ensure state variable is clear
+  CALL bnd_clean()
+
+  !> make sure number of elements is valid
+  IF (nel.LT.1 .OR. nel.GT.MAX_BOUNDELS) THEN
+    exc=SZE
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> allocate memory for element data state variable
+  ALLOCATE(boundElements(nel), STAT=e)
+
+  !> make sure memory allocation was successful
+  IF (e.NE.0) THEN
+    exc=ALLOC
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> initialize state variable
+  DO i = 1,nel
+
+    !> element number
+    boundElements(i)%num   = i
+
+    !> initialize connectivity and loads
+    DO j = 1,NNODELB
+      boundElements(i)%ico  %nd(j)            = 0
+      boundElements(i)%trac %loads(j) %sig_nt = 0.d0
+      boundElements(i)%trac %loads(j) %sig_nn = 0.d0
+    END DO
+
+  END DO
+
+END SUBROUTINE bnd_init_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Destructor for traction element data
+!!
+!!  This routine clears the memory allocated to the state variable that
+!!  contains the set of element data for the problem.
+! ------------------------------------------------------------------------
+SUBROUTINE bnd_clean_ ()
+
+  IF (ALLOCATED(boundElements)) DEALLOCATE(boundElements)
+
+END SUBROUTINE bnd_clean_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for number of traction elements
+!!
+!!  \return nel  Number of elements
+!!
+!!  This routine determines the number of data entries that have been
+!!  allocated for element data. It does not check that the element data
+!!  has been populated (i.e. changed from initial zero values).
+! ------------------------------------------------------------------------
+FUNCTION bnd_num_bound_elem_ () RESULT(nel)
+  INTEGER :: nel
+
+  !> if data is initialized, return number of elements
+  IF (ALLOCATED(boundElements)) THEN
+    nel = SIZE(boundElements)
+  ELSE
+    nel = 0   !> if not initialized, there are no traction elements
+  END IF
+
+END FUNCTION bnd_num_bound_elem_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for connectivity (non-exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  j     Local node index
+!!
+!!  \return n     Global node number
+!!
+!!  This routine determines the global node number associated with local
+!!  node j for element i.
+! ------------------------------------------------------------------------
+FUNCTION bnd_get_connect_ (i,j) RESULT(n)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER :: n
+
+  n = boundElements(i)%ico%nd(j)
+
+END FUNCTION bnd_get_connect_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for connectivity (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Local node index
+!!  \param  exc   Error code
+!!
+!!  \return n     Global node number
+!!
+!!  \exception  POSIT The element number is not in [1..bnd_numBoundElem()]
+!!                    or the local node index is not in [1..NNODELB]
+!!
+!!  This routine determines the global node number associated with local
+!!  node j for element i.
+! ------------------------------------------------------------------------
+FUNCTION bnd_get_connect_exc_ (i,j, exc) RESULT(n)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  INTEGER :: n
+
+  !> check that the element number is within the bounds of the elements
+  !! list and that the local node index is within [1..NNODELB]
+  IF ( i.LT.1 .OR. i.GT.bnd_numBoundElem() &
+        .OR. j.LT.1 .OR. j.GT.NNODELB ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    n = 0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  n = bnd_getConnect(i,j)
+
+END FUNCTION bnd_get_connect_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for connectivity (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Local node index
+!!  \param  n     Global node number
+!!
+!!  This routine sets the global node number associated with local
+!!  node j for element i.
+! ------------------------------------------------------------------------
+SUBROUTINE bnd_set_connect_ (i,j, n)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(IN) :: n
+
+  boundElements(i)%ico%nd(j) = n
+
+END SUBROUTINE bnd_set_connect_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for connectivity (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Local node index
+!!  \param  n     Global node number
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  The value of the node number exceeds the number of
+!!                      nodes
+!!  \exception  POSIT   The element number is not in
+!!                      [1..bnd_numBoundElem()] or the local node index is
+!!                      not in [1..NNODELB]
+!!
+!!  This routine sets the global node number associated with local
+!!  node j for element i.
+! ------------------------------------------------------------------------
+SUBROUTINE bnd_set_connect_exc_ (i,j, n, exc)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(IN) :: n
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the element number is within the bounds of the elements
+  !! list and that the local node index is within [1..NNODELB]
+  IF ( i.LT.1 .OR. i.GT.bnd_numBoundElem() &
+        .OR. j.LT.1 .OR. j.GT.NNODELB ) THEN
+
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE IF (n.LT.1 .OR. n.GT.fld_numNode()) THEN
+
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL bnd_setConnect(i,j, n)
+
+END SUBROUTINE bnd_set_connect_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Compute the length of an element (non-exception checking)
+!!
+!!  \param  i       Element number
+!!
+!!  \return length  Volume of element
+!!
+!!  This routine computes the length of a traction element. This is
+!!  computed as:
+!!
+!!    L   =  ( (y2-y1)**2 + (x2-x1)**2 )**0.5
+!!
+!!  where xj and yj are the (x,y) coordinates of node j of element i.
+! ------------------------------------------------------------------------
+FUNCTION bnd_len_bound_elem_ (i) RESULT(length)
+  INTEGER, INTENT(IN) :: i
+  DOUBLE PRECISION :: length
+  DOUBLE PRECISION, DIMENSION(NNODELB,NDIM) :: x  !> element coords
+  INTEGER :: j,k    !> loop variable
+
+  !> get element coords
+  DO k = 1,NDIM
+    DO j = 1,NNODELB
+      x(j,k) = fld_getCoord(boundElements(i)%ico%nd(j), k)
+    END DO
+  END DO
+
+  !> compute length
+  length = SQRT( (x(2,2)-x(1,2))**2 + (x(2,1)-x(1,1))**2 )
+
+END FUNCTION bnd_len_bound_elem_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Compute the length of an element (exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  exc   Error code
+!!
+!!  \return length   Length of element
+!!
+!!  \exception  POSIT   The specified element number is not within the
+!!                      range [1..bnd_numBoundElem()]
+!!
+!!  This routine computes the length of a traction element. This is
+!!  computed as:
+!!
+!!    L   =  ( (y2-y1)**2 + (x2-x1)**2 )**0.5
+!!
+!!  where xj and yj are the (x,y) coordinates of node j of element i.
+! ------------------------------------------------------------------------
+FUNCTION bnd_len_bound_elem_exc_ (i, exc) RESULT(length)
+  INTEGER, INTENT(IN) :: i
+  INTEGER, INTENT(OUT) :: exc
+  DOUBLE PRECISION :: length
+
+  !> make sure the element number is valid
+  IF (i.LT.1 .OR. i.GT.bnd_numBoundElem()) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    length = 0.d0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  length = bnd_lenBoundElem(i)
+
+END FUNCTION bnd_len_bound_elem_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for traction (non-exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  j     Local node index
+!!
+!!  \return load  Surface load
+!!
+!!  This routine determines the surface load associated with local
+!!  node j for element i.
+! ------------------------------------------------------------------------
+FUNCTION bnd_get_trac_ (i,j) RESULT(load)
+  INTEGER, INTENT(IN) :: i,j
+  TYPE(surfLoadT) :: load
+
+  load%sig_nt = boundElements(i)%trac%loads(j)%sig_nt
+  load%sig_nn = boundElements(i)%trac%loads(j)%sig_nn
+
+END FUNCTION bnd_get_trac_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for traction (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Local node index
+!!  \param  exc   Error code
+!!
+!!  \return load  Surface load
+!!
+!!  \exception  POSIT The element number is not in [1..bnd_numBoundElem()]
+!!                    or the local node index is not in [1..NNODELB]
+!!
+!!  This routine determines the surface load associated with local
+!!  node j for element i.
+! ------------------------------------------------------------------------
+FUNCTION bnd_get_trac_exc_ (i,j, exc) RESULT(load)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  TYPE(surfLoadT) :: load
+
+  !> check that the element number is within the bounds of the elements
+  !! list and that the local node index is within [1..NNODELB]
+  IF ( i.LT.1 .OR. i.GT.bnd_numBoundElem() &
+        .OR. j.LT.1 .OR. j.GT.NNODELB ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    load%sig_nt = 0.d0
+    load%sig_nn = 0.d0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  load = bnd_getTrac(i,j)
+
+END FUNCTION bnd_get_trac_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for traction (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Local node index
+!!  \param  load  Surface load
+!!
+!!  This routine sets the surface load associated with local
+!!  node j for element i.
+! ------------------------------------------------------------------------
+SUBROUTINE bnd_set_trac_ (i,j, load)
+  INTEGER, INTENT(IN) :: i,j
+  TYPE(surfLoadT), INTENT(IN) :: load
+
+  boundElements(i)%trac%loads(j)%sig_nt = load%sig_nt
+  boundElements(i)%trac%loads(j)%sig_nn = load%sig_nn
+
+END SUBROUTINE bnd_set_trac_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for traction (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Local node index
+!!  \param  load  Surface load
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  A value in the set of surface load stress is not
+!!                      within the specified limits
+!!  \exception  POSIT   The element number is not in
+!!                      [1..bnd_numBoundElem()] or the local node index is
+!!                      not in [1..NNODELB]
+!!
+!!  This routine sets the surface load associated with local
+!!  node j for element i.
+! ------------------------------------------------------------------------
+SUBROUTINE bnd_set_trac_exc_ (i,j, load, exc)
+  INTEGER, INTENT(IN) :: i,j
+  TYPE(surfLoadT), INTENT(IN) :: load
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the element number is within the bounds of the elements
+  !! list and that the local node index is within [1..NNODELB]
+  IF ( i.LT.1 .OR. i.GT.bnd_numBoundElem() &
+        .OR. j.LT.1 .OR. j.GT.NNODELB ) THEN
+
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE IF ( load%sig_nt.LT.SIG_MIN .OR. load%sig_nt.GT.SIG_MAX &
+            .OR. load%sig_nn.LT.SIG_MIN .OR. load%sig_nn.GT.SIG_MAX ) THEN
+
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL bnd_setTrac(i,j, load)
+
+END SUBROUTINE bnd_set_trac_exc_
+
+
+
+! ************************************************************************
+! LOCAL FUNCTIONS
+! ************************************************************************
+
+! none
+
+END MODULE boundary_data

Examples/SoilWaterStructureInteraction/dynsws/trunk/boundary_data.mod

+GFORTRAN module version '6' created from boundary_data.f90 on Sun Apr 29 22:07:07 2012
+MD5:d468b0d30c9aec4c551c5417a9b42499 -- If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () () () ()
+() () () ())
+
+()
+
+(('bnd_clean' 'boundary_data' 2) ('bnd_getconnect' 'boundary_data' 3 4)
+('bnd_init' 'boundary_data' 5 6) ('bnd_gettrac' 'boundary_data' 7 8) (
+'bnd_lenboundelem' 'boundary_data' 9 10) ('bnd_numboundelem'
+'boundary_data' 11) ('bnd_setconnect' 'boundary_data' 12 13) (
+'bnd_settrac' 'boundary_data' 14 15))
+
+()
+
+()
+
+()
+
+(16 'surfloadt' 'boundary_data' 'surfloadt' 1 ((DERIVED UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0
+((17 'sig_nt' (REAL 8 0 0 REAL ()) () (UNKNOWN-FL UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) UNKNOWN-ACCESS ()) (18 'sig_nn' (REAL
+8 0 0 REAL ()) () (UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0) UNKNOWN-ACCESS ())) PUBLIC (() () () ()) () 0 0 92383288)
+6 'bnd_init_' 'boundary_data' 'bnd_init_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 19 0
+(20) () 0 () () () 0 0)
+5 'bnd_init_exc_' 'boundary_data' 'bnd_init_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 21 0 (22 23) () 0 () () () 0 0)
+2 'bnd_clean_' 'boundary_data' 'bnd_clean_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0
+() () 0 () () () 0 0)
+11 'bnd_num_bound_elem_' 'boundary_data' 'bnd_num_bound_elem_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 24 () () () 0 0)
+4 'bnd_get_connect_' 'boundary_data' 'bnd_get_connect_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 25 0 (26 27) () 28 () () () 0 0)
+3 'bnd_get_connect_exc_' 'boundary_data' 'bnd_get_connect_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+INTEGER 4 0 0 INTEGER ()) 29 0 (30 31 32) () 33 () () () 0 0)
+13 'bnd_set_connect_' 'boundary_data' 'bnd_set_connect_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 34 0 (35 36 37) () 0 () () () 0 0)
+12 'bnd_set_connect_exc_' 'boundary_data' 'bnd_set_connect_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 38 0 (39 40 41 42) () 0 () () () 0 0)
+10 'bnd_len_bound_elem_' 'boundary_data' 'bnd_len_bound_elem_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8
+0 0 REAL ()) 43 0 (44) () 45 () () () 0 0)
+9 'bnd_len_bound_elem_exc_' 'boundary_data' 'bnd_len_bound_elem_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL
+8 0 0 REAL ()) 46 0 (47 48) () 49 () () () 0 0)
+8 'bnd_get_trac_' 'boundary_data' 'bnd_get_trac_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+DERIVED 16 0 0 DERIVED ()) 50 0 (51 52) () 53 () () () 0 0)
+7 'bnd_get_trac_exc_' 'boundary_data' 'bnd_get_trac_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 16 0 0
+DERIVED ()) 54 0 (55 56 57) () 58 () () () 0 0)
+15 'bnd_set_trac_' 'boundary_data' 'bnd_set_trac_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 59 0 (60 61 62) () 0 () () () 0 0)
+14 'bnd_set_trac_exc_' 'boundary_data' 'bnd_set_trac_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 63 0 (64 65 66 67) () 0 () () () 0 0)
+20 'nel' '' 'nel' 19 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+22 'nel' '' 'nel' 21 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+23 'exc' '' 'exc' 21 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+24 'nel' '' 'nel' 68 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+26 'i' '' 'i' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+27 'j' '' 'j' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+28 'n' '' 'n' 25 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+30 'i' '' 'i' 29 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+31 'j' '' 'j' 29 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+32 'exc' '' 'exc' 29 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+33 'n' '' 'n' 29 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+35 'i' '' 'i' 34 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+36 'j' '' 'j' 34 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+37 'n' '' 'n' 34 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+39 'i' '' 'i' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+40 'j' '' 'j' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+41 'n' '' 'n' 38 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+42 'exc' '' 'exc' 38 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+44 'i' '' 'i' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+45 'length' '' 'length' 43 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0
+0)
+47 'i' '' 'i' 46 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+48 'exc' '' 'exc' 46 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+49 'length' '' 'length' 46 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0
+0)
+64 'i' '' 'i' 63 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+65 'j' '' 'j' 63 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+66 'load' '' 'load' 63 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 16 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+67 'exc' '' 'exc' 63 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+51 'i' '' 'i' 50 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+52 'j' '' 'j' 50 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+53 'load' '' 'load' 50 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 16 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+55 'i' '' 'i' 54 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+56 'j' '' 'j' 54 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+57 'exc' '' 'exc' 54 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+58 'load' '' 'load' 54 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 16 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+60 'i' '' 'i' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+61 'j' '' 'j' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+62 'load' '' 'load' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 16 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+)
+
+('surfloadt' 0 16)

Examples/SoilWaterStructureInteraction/dynsws/trunk/boundary_data_test.f90

+! ------------------------------------------------------------------------
+!>  \brief Module for testing Boundary Data module
+! ------------------------------------------------------------------------
+MODULE boundary_data_test
+USE fruit                   !> Unit testing framework
+USE system_constants        !> Global constants
+USE log_message_control     !> Printing log/error messages
+USE log_messages            !> Log/error codes
+USE field_data              !> Field Data module
+USE boundary_data           !> Boundary Data module
+
+IMPLICIT NONE
+
+
+CONTAINS
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for OK exception message on allocation of elements
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel        Number of elements
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test initializes the elements state variable in the boundary_data
+!!  module and makes sure that the exception message is OK
+!!  (i.e. allocation did not fail).
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_elem_allocation_MSG
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_elem_allocation_MSG'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: expMsg=OK
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log message file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize module and check the exception
+  CALL bnd_init(nel, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and deallocate module
+  CALL log_closeLogFile()
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_elem_allocation_MSG
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for SZE exception message on allocation of traction elements
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test attempts to initialize the elements state variable in the
+!!  boundary data module with invalid size parameters and verifies that
+!!  the correct exception is returned.
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_elem_allocation_SZE
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_elem_allocation_SZE'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: expMsg=SZE
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> try to initialize with nel=0
+  CALL bnd_init(0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> ensure module is reset
+  CALL bnd_clean()
+
+  !> try to initialize with nel=MAX_BOUNDELS+1
+  CALL bnd_init(MAX_BOUNDELS+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and deallocate module
+  CALL log_closeLogFile()
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_elem_allocation_SZE
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for number of elements when element data is not initialized
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param expected     Expected number of elements
+!!  \param actual       Actual number of elements
+!!
+!!  This test makes sure that the number of elements is returned as 0
+!!  when the element data is not initialized
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_num_elem_not_allocated
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_num_elem_not_allocated'
+  INTEGER, PARAMETER :: expected = 0
+  INTEGER :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> check number of materials
+  actual = bnd_numBoundElem()
+  CALL assertEquals(expected, actual)
+
+END SUBROUTINE test_bnd_num_elem_not_allocated
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for number of elements when element data is initialized
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param expected     Expected number of elements
+!!  \param actual       Actual number of elements
+!!
+!!  This test makes sure that the correct number of elements is returned.
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_num_elem_allocated
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_num_elem_allocated'
+  INTEGER, PARAMETER :: expected = 100
+  INTEGER :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize the module
+  CALL bnd_init(expected)
+
+  !> check number of nodes
+  actual = bnd_numBoundElem()
+  CALL assertEquals(expected, actual)
+
+  !> deallocate the module
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_num_elem_allocated
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from bnd_getConnect
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jnod       Local node index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param n          Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the element list or the requested local node
+!!  index is not within [1..NNODELB].
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_get_connect_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_get_connect_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jnod = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  INTEGER :: n
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL bnd_init(nel)
+
+  !> try to get beyond last element
+  n = bnd_getConnect(nel+1,jnod, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first element
+  n = bnd_getConnect(0,jnod, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last local node index
+  n = bnd_getConnect(iel,NNODELB+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first local node index
+  n = bnd_getConnect(iel,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the elements list
+  CALL log_closeLogFile()
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_get_connect_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from bnd_setConnect
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jnod       Local node index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param n          Dummy variable for set routine input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the element list or the requested local node
+!!  index is not within [1..NNODELB].
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_set_connect_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_set_connect_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jnod = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  INTEGER, PARAMETER :: n = 10
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes and elements
+  CALL bnd_init(nel)
+
+  !> try to set beyond last element
+  CALL bnd_setConnect(nel+1,jnod, n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first element
+  CALL bnd_setConnect(0,jnod, n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set beyond last local node index
+  CALL bnd_setConnect(iel,NNODELB+1, n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first local node index
+  CALL bnd_setConnect(iel,0, n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate elements
+  CALL log_closeLogFile()
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_set_connect_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception from bnd_setConnect
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jnod       Local node index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test checks that an EXCEED exception is returned when the
+!!  specified input is not within the range defined in the System
+!!  Constants module.
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_set_connect_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_set_connect_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jnod = 2
+  INTEGER, PARAMETER :: expMsg = EXCEED
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes and elements
+  CALL fld_initNode(nnod)
+  CALL bnd_init(nel)
+
+  !> try to set below minimum
+  CALL bnd_setConnect(iel,jnod, 0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set above maximum
+  CALL bnd_setConnect(iel,jnod, nnod+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes and elements
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_set_connect_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value getting and setting in bnd_getConnect
+!!        and bnd_setConnect
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jnod       Local node index
+!!  \param expVal     Expected data value
+!!  \param actVal     Actual data value
+!!
+!!  This test checks that the correct value is set using the
+!!  bnd_setConnect access program and returned from the
+!!  bnd_getConnect access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_get_set_connect_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_get_set_connect_VAL'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jnod = 2
+  INTEGER, PARAMETER :: expVal = 20
+  INTEGER :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes and elements
+  CALL fld_initNode(nnod)
+  CALL bnd_init(nel)
+
+  !> set connectivity value
+  CALL bnd_setConnect(iel,jnod, expVal)
+  actVal = bnd_getConnect(iel,jnod)
+  CALL assertEquals(expVal,actVal)
+
+  !> finalize the log file and deallocate the nodes and elements
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_get_set_connect_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception message from bnd_lenBoundElem
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel        Number of elements
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param length     Dummy variable for get function return
+!!
+!!  This test makes sure that the correct exception is returned when the
+!!  specified element index is not in the range of the allocated element
+!!  data.
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_len_bound_elem_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_len_bound_elem_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: expMsg=POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION :: length
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize elements
+  CALL bnd_init(nel)
+
+  !> try to get beyond last element
+  length = bnd_lenBoundElem(nel+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first element
+  length = bnd_lenBoundElem(0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the elements list
+  CALL log_closeLogFile()
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_len_bound_elem_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for element length when node coordinates not initialized
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param expected   Expected length of element (zero)
+!!  \param actual     Actual length of element
+!!
+!!  This test makes sure that the length of the element is returned as 0
+!!  when the coordinates of the connected nodes have not been set
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_len_bound_elem_ZERO
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_len_bound_elem_ZERO'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: nel=100
+  DOUBLE PRECISION, PARAMETER :: expected = 0.d0
+  DOUBLE PRECISION :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes and elements
+  CALL fld_initNode(nnod)
+  CALL bnd_init(nel)
+
+  !> set connectivity of first element to {1,2}
+  CALL bnd_setConnect(1,1,1)
+  CALL bnd_setConnect(1,2,2)
+
+  !> check length of element
+  actual = bnd_lenBoundElem(1)
+  CALL assertEquals(expected,actual)
+
+  !> deallocate the elements and nodes
+  CALL fld_cleanNode()
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_len_bound_elem_ZERO
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for element length when node coordinates initialized
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param expected   Expected length of element
+!!  \param actual     Actual length of element
+!!
+!!  This test makes sure that the length of the element is computed
+!!  correctly for the line given by (1,1), (3,2)
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_len_bound_elem_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_len_bound_elem_VAL'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: nel=100
+  DOUBLE PRECISION, PARAMETER :: toler = 1.d-14
+  DOUBLE PRECISION, PARAMETER :: expected = 2.23606797749979d0
+  DOUBLE PRECISION :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes and elements
+  CALL fld_initNode(nnod)
+  CALL bnd_init(nel)
+
+  !> set connectivity of first element to {1,2}
+  CALL bnd_setConnect(1,1,1)
+  CALL bnd_setConnect(1,2,2)
+
+  !> set coordinates of nodes
+  CALL fld_setCoord(1,1, 1.d0)
+  CALL fld_setCoord(1,2, 1.d0)
+  CALL fld_setCoord(2,1, 3.d0)
+  CALL fld_setCoord(2,2, 2.d0)
+
+  !> check volume of element
+  actual = bnd_lenBoundElem(1)
+  CALL assertEquals(expected,actual, toler)
+
+  !> deallocate the elements and nodes
+  CALL fld_cleanNode()
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_len_bound_elem_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from bnd_getTrac
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jnod       Local node index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param load       Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the element list or the requested local node
+!!  index is not within [1..NNODELB].
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_get_trac_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_get_trac_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jnod = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  TYPE(surfLoadT) :: load
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL bnd_init(nel)
+
+  !> try to get beyond last element
+  load = bnd_getTrac(nel+1,jnod, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first element
+  load = bnd_getTrac(0,jnod, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last local node index
+  load = bnd_getTrac(iel,NNODELB+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first local node index
+  load = bnd_getTrac(iel,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the elements list
+  CALL log_closeLogFile()
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_get_trac_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from bnd_setTrac
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jnod       Local node index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param load       Dummy variable for set routine input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the element list or the requested local node
+!!  index is not within [1..NNODELB].
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_set_trac_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_set_trac_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jnod = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  TYPE(surfLoadT) :: load
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize elements
+  CALL bnd_init(nel)
+
+  !> try to set beyond last element
+  CALL bnd_setTrac(nel+1,jnod, load, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first element
+  CALL bnd_setTrac(0,jnod, load, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set beyond last local node index
+  CALL bnd_setTrac(iel,NNODELB+1, load, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first local node index
+  CALL bnd_setTrac(iel,0, load, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes and elements
+  CALL log_closeLogFile()
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_set_trac_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception from bnd_setTrac
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jnod       Local node index
+!!  \param sig_nt     Test shear stress
+!!  \param sig_nn     Test normal stress
+!!  \param load       Surface load
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test checks that an EXCEED exception is returned when the
+!!  specified input is not within the range defined in the System
+!!  Constants module.
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_set_trac_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_set_trac_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jnod = 2
+  DOUBLE PRECISION :: sig_nt, sig_nn
+  TYPE(surfLoadT) :: load
+  INTEGER, PARAMETER :: expMsg = EXCEED
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize elements
+  CALL bnd_init(nel)
+
+  !> set load such that sig_nt < SIG_MIN
+  sig_nt = SIG_MIN-0.1d0
+  sig_nn = 0.d0
+  load%sig_nt = sig_nt
+  load%sig_nn = sig_nn
+
+  !> try to set traction
+  CALL bnd_setTrac(iel,jnod, load, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> set load such that sig_nt > SIG_MAX
+  sig_nt = SIG_MAX+0.1d0
+  load%sig_nt = sig_nt
+
+  !> try to set traction
+  CALL bnd_setTrac(iel,jnod, load, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> set load such that sig_nn < SIG_MIN
+  sig_nt = 0.d0
+  sig_nn = SIG_MIN-0.1d0
+  load%sig_nt = sig_nt
+  load%sig_nn = sig_nn
+
+  !> try to set traction
+  CALL bnd_setTrac(iel,jnod, load, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> set load such that sig_nn > SIG_MAX
+  sig_nn = SIG_MAX+0.1d0
+  load%sig_nn = sig_nn
+
+  !> try to set traction
+  CALL bnd_setTrac(iel,jnod, load, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate elements
+  CALL log_closeLogFile()
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_set_trac_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value getting and setting in bnd_getTrac
+!!        and bnd_setTrac
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jnod       Local node index
+!!  \param load       Surface load
+!!  \param expSigNT   Expected shear stress
+!!  \param expSigNN   Expected normal stress
+!!  \param actSigNT   Actual shear stress
+!!  \param actSigNN   Actual normal stress
+!!
+!!  This test checks that the correct value is set using the
+!!  bnd_setTrac access program and returned from the
+!!  bnd_getTrac access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_bnd_get_set_trac_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_bnd_get_set_trac_VAL'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jnod = 2
+  DOUBLE PRECISION, PARAMETER :: expSigNT=1.d3, expSigNN=-2.d3
+  TYPE(surfLoadT) :: load
+  DOUBLE PRECISION :: actSigNT, actSigNN
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize elements
+  CALL bnd_init(nel)
+
+  !> set traction value
+  load%sig_nt = expSigNT
+  load%sig_nn = expSigNN
+  CALL bnd_setTrac(iel,jnod, load)
+
+  !> reset load
+  load%sig_nt = 0.d0
+  load%sig_nn = 0.d0
+
+  !> get traction value
+  load = bnd_getTrac(iel,jnod)
+  actSigNT = load%sig_nt
+  actSigNN = load%sig_nn
+  CALL assertEquals(expSigNT,actSigNT)
+  CALL assertEquals(expSigNN,actSigNN)
+
+  !> finalize the log file and deallocate the nodes and elements
+  CALL log_closeLogFile()
+  CALL bnd_clean()
+
+END SUBROUTINE test_bnd_get_set_trac_VAL
+
+END MODULE boundary_data_test

Examples/SoilWaterStructureInteraction/dynsws/trunk/boundary_data_test.mod

+GFORTRAN module version '6' created from boundary_data_test.f90 on Sun Apr 29 22:07:09 2012
+MD5:f3562c5994af59243ca4367e40623817 -- If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () () () ()
+() () () ())
+
+()
+
+(('add_fail' 'fruit' 2 3) ('addsuccess' 'fruit' 4) ('addfail' 'fruit' 2
+3) ('assert_not_equals' 'fruit' 5 6 7) ('assert_equals' 'fruit' 8 9 10
+11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28) ('assertequals'
+'fruit' 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28) (
+'asserttrue' 'fruit' 29) ('bnd_getconnect' 'boundary_data' 30 31) (
+'bnd_init' 'boundary_data' 32 33) ('bnd_setconnect' 'boundary_data' 34
+35) ('bnd_numboundelem' 'boundary_data' 36) ('bnd_lenboundelem'
+'boundary_data' 37 38) ('bnd_gettrac' 'boundary_data' 39 40) (
+'bnd_settrac' 'boundary_data' 41 42) ('bnd_clean' 'boundary_data' 43) (
+'assertnotequals' 'fruit' 5 6 7) ('fld_cleanelem' 'field_data' 44) (
+'fld_cleantime' 'field_data' 45) ('fld_cleannode' 'field_data' 46) (
+'fld_getbodyacc' 'field_data' 47 48) ('fld_getconnect' 'field_data' 49
+50) ('fld_getdof' 'field_data' 51 52) ('fld_getdisp' 'field_data' 53 54)
+('fld_getmaterial' 'field_data' 55 56) ('fld_getfix' 'field_data' 57 58)
+('fld_getstressnode' 'field_data' 59 60) ('fld_getstresselem' 'field_data'
+61 62) ('fld_initdof' 'field_data' 63) ('fld_getvel' 'field_data' 64 65)
+('fld_getstrainnode' 'field_data' 66 67) ('fld_getstrainelem' 'field_data'
+68 69) ('fld_inittime' 'field_data' 70 71) ('fld_initnode' 'field_data'
+72 73) ('fld_numdof' 'field_data' 74) ('fld_initelem' 'field_data' 75 76)
+('fld_getcoord' 'field_data' 77 78) ('fld_numnode' 'field_data' 79) (
+'fld_setacc' 'field_data' 80 81) ('fld_setconnect' 'field_data' 82 83) (
+'fld_setdisp' 'field_data' 84 85) ('fld_setcoord' 'field_data' 86 87) (
+'fld_setbodyacc' 'field_data' 88 89) ('fld_numtimesteps' 'field_data' 90)
+('fld_numelem' 'field_data' 91) ('fld_setmaterial' 'field_data' 92 93) (
+'fld_setstrainnode' 'field_data' 94 95) ('fld_setstressnode' 'field_data'
+96 97) ('fld_setvel' 'field_data' 98 99) ('fld_timestep' 'field_data'
+100) ('fld_volelem' 'field_data' 101 102) ('gettestsummary' 'fruit' 103)
+('getfailedcount' 'fruit' 104) ('fld_setstresselem' 'field_data' 105 106)
+('fld_setstrainelem' 'field_data' 107 108) ('initializefruit' 'fruit'
+109) ('gettotalcount' 'fruit' 110) ('fld_setfix' 'field_data' 111 112) (
+'isallsuccessful' 'fruit' 113) ('runtestcase' 'fruit' 114 115) (
+'run_test_case' 'fruit' 114 115) ('fld_getacc' 'field_data' 116 117))
+
+()
+
+()
+
+()
+
+(2 'add_fail_unit_' 'fruit' 'add_fail_unit_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 118 0 (119 120) () 0 () () () 0 0)
+3 'add_fail_' 'fruit' 'add_fail_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE ALWAYS_EXPLICIT) (
+UNKNOWN 0 0 0 UNKNOWN ()) 121 0 (122) () 0 () () () 0 0)
+17 'assert_eq_1d_string_' 'fruit' 'assert_eq_1d_string_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 123 0 (124 125 126 127) () 0 () () () 0 0)
+20 'assert_eq_1d_int_' 'fruit' 'assert_eq_1d_int_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 128 0 (129 130 131 132) () 0 () () () 0 0)
+22 'assert_eq_real_in_range_' 'fruit' 'assert_eq_real_in_range_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 133 0 (134 135 136 137) () 0
+() () () 0 0)
+21 'assert_eq_double_in_range_' 'fruit' 'assert_eq_double_in_range_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 138 0 (139 140 141 142) () 0
+() () () 0 0)
+19 'assert_eq_1d_double_' 'fruit' 'assert_eq_1d_double_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 143 0 (144 145 146 147) () 0 () () () 0 0)
+23 'assert_eq_complex_' 'fruit' 'assert_eq_complex_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 148 0 (149 150 151) () 0 () () () 0 0)
+27 'assert_eq_double_' 'fruit' 'assert_eq_double_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 152 0 (153 154 155) () 0 () () () 0 0)
+44 'fld_clean_elem_' 'field_data' 'fld_clean_elem_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+45 'fld_clean_time_' 'field_data' 'fld_clean_time_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+116 'fld_get_acc_exc_' 'field_data' 'fld_get_acc_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+156 0 (157 158 159) () 160 () () () 0 0)
+50 'fld_get_connect_' 'field_data' 'fld_get_connect_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 161 0 (162 163) () 164 () () () 0 0)
+49 'fld_get_connect_exc_' 'field_data' 'fld_get_connect_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+INTEGER 4 0 0 INTEGER ()) 165 0 (166 167 168) () 169 () () () 0 0)
+117 'fld_get_acc_' 'field_data' 'fld_get_acc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+REAL 8 0 0 REAL ()) 170 0 (171 172) () 173 () () () 0 0)
+47 'fld_get_body_acc_exc_' 'field_data' 'fld_get_body_acc_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8
+0 0 REAL ()) 174 0 (175 176 177) () 178 () () () 0 0)
+57 'fld_get_fix_exc_' 'field_data' 'fld_get_fix_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (LOGICAL 4 0 0
+LOGICAL ()) 179 0 (180 181 182) () 183 () () () 0 0)
+52 'fld_get_dof_' 'field_data' 'fld_get_dof_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 184 0 (185 186) () 187 () () () 0 0)
+26 'assert_eq_real_' 'fruit' 'assert_eq_real_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 188 0 (189 190 191) () 0 () () () 0 0)
+51 'fld_get_dof_exc_' 'field_data' 'fld_get_dof_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (INTEGER 4 0 0
+INTEGER ()) 192 0 (193 194 195) () 196 () () () 0 0)
+54 'fld_get_disp_' 'field_data' 'fld_get_disp_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+REAL 8 0 0 REAL ()) 197 0 (198 199) () 200 () () () 0 0)
+59 'fld_get_stress_node_exc_' 'field_data' 'fld_get_stress_node_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL
+8 0 0 REAL ()) 201 0 (202 203 204) () 205 () () () 0 0)
+67 'fld_get_strain_node_' 'field_data' 'fld_get_strain_node_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (REAL 8 0 0 REAL ()) 206 0 (207 208) () 209 () () () 0 0)
+60 'fld_get_stress_node_' 'field_data' 'fld_get_stress_node_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (REAL 8 0 0 REAL ()) 210 0 (211 212) () 213 () () () 0 0)
+66 'fld_get_strain_node_exc_' 'field_data' 'fld_get_strain_node_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL
+8 0 0 REAL ()) 214 0 (215 216 217) () 218 () () () 0 0)
+53 'fld_get_disp_exc_' 'field_data' 'fld_get_disp_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+219 0 (220 221 222) () 223 () () () 0 0)
+58 'fld_get_fix_' 'field_data' 'fld_get_fix_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+LOGICAL 4 0 0 LOGICAL ()) 224 0 (225 226) () 227 () () () 0 0)
+62 'fld_get_stress_elem_' 'field_data' 'fld_get_stress_elem_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (REAL 8 0 0 REAL ()) 228 0 (229 230) () 231 () () () 0 0)
+61 'fld_get_stress_elem_exc_' 'field_data' 'fld_get_stress_elem_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL
+8 0 0 REAL ()) 232 0 (233 234 235) () 236 () () () 0 0)
+7 'assert_not_equals_real_' 'fruit' 'assert_not_equals_real_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 237 0 (238 239 240) () 0 ()
+() () 0 0)
+48 'fld_get_body_acc_' 'field_data' 'fld_get_body_acc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+REAL 8 0 0 REAL ()) 241 0 (242 243) () 244 () () () 0 0)
+69 'fld_get_strain_elem_' 'field_data' 'fld_get_strain_elem_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (REAL 8 0 0 REAL ()) 245 0 (246 247) () 248 () () () 0 0)
+56 'fld_get_material_' 'field_data' 'fld_get_material_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 249 0 (250) () 251 () () () 0 0)
+63 'fld_init_dof_exc_' 'field_data' 'fld_init_dof_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 252 0 (253) () 0 () () () 0 0)
+76 'fld_init_elem_' 'field_data' 'fld_init_elem_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 254 0 (255) () 0 () () () 0 0)
+64 'fld_get_vel_exc_' 'field_data' 'fld_get_vel_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+256 0 (257 258 259) () 260 () () () 0 0)
+75 'fld_init_elem_exc_' 'field_data' 'fld_init_elem_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 261 0 (262 263) () 0 () () () 0 0)
+55 'fld_get_material_exc_' 'field_data' 'fld_get_material_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+INTEGER 4 0 0 INTEGER ()) 264 0 (265 266) () 267 () () () 0 0)
+68 'fld_get_strain_elem_exc_' 'field_data' 'fld_get_strain_elem_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL
+8 0 0 REAL ()) 268 0 (269 270 271) () 272 () () () 0 0)
+46 'fld_clean_node_' 'field_data' 'fld_clean_node_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+29 'obsolete_assert_true_logical_' 'fruit' 'obsolete_assert_true_logical_'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 273 0 (274 275)
+() 0 () () () 0 0)
+78 'fld_get_coord_' 'field_data' 'fld_get_coord_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+REAL 8 0 0 REAL ()) 276 0 (277 278) () 279 () () () 0 0)
+70 'fld_init_time_exc_' 'field_data' 'fld_init_time_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 280 0 (281 282 283) () 0 () () () 0 0)
+77 'fld_get_coord_exc_' 'field_data' 'fld_get_coord_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+284 0 (285 286 287) () 288 () () () 0 0)
+79 'fld_num_node_' 'field_data' 'fld_num_node_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 289 () () () 0 0)
+91 'fld_num_elem_' 'field_data' 'fld_num_elem_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 290 () () () 0 0)
+74 'fld_num_dof_' 'field_data' 'fld_num_dof_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 291 () () () 0 0)
+82 'fld_set_connect_exc_' 'field_data' 'fld_set_connect_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 292 0 (293 294 295 296) () 0 () () () 0 0)
+73 'fld_init_node_' 'field_data' 'fld_init_node_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 297 0 (298) () 0 () () () 0 0)
+83 'fld_set_connect_' 'field_data' 'fld_set_connect_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 299 0 (300 301 302) () 0 () () () 0 0)
+72 'fld_init_node_exc_' 'field_data' 'fld_init_node_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 303 0 (304 305) () 0 () () () 0 0)
+8 'assert_eq_2d_double_in_range_' 'fruit' 'assert_eq_2d_double_in_range_'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 306 0 (307 308 309 310 311
+312) () 0 () () () 0 0)
+110 'obsolete_gettotalcount_' 'fruit' 'obsolete_gettotalcount_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 313 0 (314) () 0 () () () 0 0)
+86 'fld_set_coord_exc_' 'field_data' 'fld_set_coord_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 315 0 (316 317 318 319) () 0 () () () 0 0)
+88 'fld_set_body_acc_exc_' 'field_data' 'fld_set_body_acc_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 320 0 (321 322 323 324) () 0 () () () 0 0)
+87 'fld_set_coord_' 'field_data' 'fld_set_coord_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 325 0 (326 327 328) () 0 () () () 0 0)
+80 'fld_set_acc_exc_' 'field_data' 'fld_set_acc_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 329 0 (330 331 332 333) () 0 () () () 0 0)
+81 'fld_set_acc_' 'field_data' 'fld_set_acc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 334 0 (335 336 337) () 0 () () () 0 0)
+89 'fld_set_body_acc_' 'field_data' 'fld_set_body_acc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 338 0 (339 340 341) () 0 () () () 0 0)
+92 'fld_set_material_exc_' 'field_data' 'fld_set_material_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 342 0 (343 344 345) () 0 () () () 0 0)
+93 'fld_set_material_' 'field_data' 'fld_set_material_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 346 0 (347 348) () 0 () () () 0 0)
+108 'fld_set_strain_elem_' 'field_data' 'fld_set_strain_elem_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 349 0 (350 351 352) () 0 () () () 0 0)
+107 'fld_set_strain_elem_exc_' 'field_data' 'fld_set_strain_elem_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 353 0 (354 355 356 357) () 0 () () () 0 0)
+6 'assert_not_equals_1d_real_' 'fruit' 'assert_not_equals_1d_real_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 358 0 (359 360 361) () 0 () () () 0 0)
+90 'fld_num_time_steps_' 'field_data' 'fld_num_time_steps_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (REAL 8 0 0 REAL ()) 0 0 () () 362 () () () 0 0)
+94 'fld_set_strain_node_exc_' 'field_data' 'fld_set_strain_node_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 363 0 (364 365 366 367) () 0 () () () 0 0)
+112 'fld_set_fix_' 'field_data' 'fld_set_fix_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 368 0 (369 370 371) () 0 () () () 0 0)
+98 'fld_set_vel_exc_' 'field_data' 'fld_set_vel_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 372 0 (373 374 375 376) () 0 () () () 0 0)
+96 'fld_set_stress_node_exc_' 'field_data' 'fld_set_stress_node_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 377 0 (378 379 380 381) () 0 () () () 0 0)
+99 'fld_set_vel_' 'field_data' 'fld_set_vel_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 382 0 (383 384 385) () 0 () () () 0 0)
+95 'fld_set_strain_node_' 'field_data' 'fld_set_strain_node_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 386 0 (387 388 389) () 0 () () () 0 0)
+106 'fld_set_stress_elem_' 'field_data' 'fld_set_stress_elem_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 390 0 (391 392 393) () 0 () () () 0 0)
+100 'fld_time_step_' 'field_data' 'fld_time_step_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+REAL 8 0 0 REAL ()) 0 0 () () 394 () () () 0 0)
+105 'fld_set_stress_elem_exc_' 'field_data' 'fld_set_stress_elem_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 395 0 (396 397 398 399) () 0 () () () 0 0)
+5 'assert_not_equals_double_' 'fruit' 'assert_not_equals_double_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 400 0 (401 402 403) () 0 ()
+() () 0 0)
+101 'fld_vol_elem_exc_' 'field_data' 'fld_vol_elem_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+404 0 (405 406) () 407 () () () 0 0)
+97 'fld_set_stress_node_' 'field_data' 'fld_set_stress_node_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 408 0 (409 410 411) () 0 () () () 0 0)
+84 'fld_set_disp_exc_' 'field_data' 'fld_set_disp_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 412 0 (413 414 415 416) () 0 () () () 0 0)
+102 'fld_vol_elem_' 'field_data' 'fld_vol_elem_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+417 0 (418) () 419 () () () 0 0)
+85 'fld_set_disp_' 'field_data' 'fld_set_disp_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 420 0 (421 422 423) () 0 () () () 0 0)
+111 'fld_set_fix_exc_' 'field_data' 'fld_set_fix_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 424 0 (425 426 427 428) () 0 () () () 0 0)
+28 'assert_eq_int_' 'fruit' 'assert_eq_int_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 429 0 (430 431 432) () 0 () () () 0 0)
+71 'fld_init_time_' 'field_data' 'fld_init_time_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 433 0 (434 435) () 0 () () () 0 0)
+25 'assert_eq_logical_' 'fruit' 'assert_eq_logical_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 436 0 (437 438 439) () 0 () () () 0 0)
+109 'obsolete_initializefruit_' 'fruit' 'obsolete_initializefruit_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+103 'obsolete_gettestsummary_' 'fruit' 'obsolete_gettestsummary_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+104 'obsolete_getfailedcount_' 'fruit' 'obsolete_getfailedcount_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 440 0 (441) () 0 () () () 0 0)
+115 'run_test_case_' 'fruit' 'run_test_case_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 442 0 (443) () 0 () () () 0 0)
+114 'run_test_case_named_' 'fruit' 'run_test_case_named_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 444 0 (445 446) () 0 () () () 0 0)
+9 'assert_eq_2d_real_in_range_' 'fruit' 'assert_eq_2d_real_in_range_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 447 0 (448 449 450 451 452
+453) () 0 () () () 0 0)
+113 'obsolete_isallsuccessful_' 'fruit' 'obsolete_isallsuccessful_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 454 0 (455) () 0 () () () 0 0)
+65 'fld_get_vel_' 'field_data' 'fld_get_vel_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+REAL 8 0 0 REAL ()) 456 0 (457 458) () 459 () () () 0 0)
+24 'assert_eq_string_' 'fruit' 'assert_eq_string_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 460 0 (461 462 463) () 0 () () () 0 0)
+16 'assert_eq_1d_complex_' 'fruit' 'assert_eq_1d_complex_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 464 0 (465 466 467 468) () 0
+() () () 0 0)
+14 'assert_eq_1d_double_in_range_' 'fruit' 'assert_eq_1d_double_in_range_'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 469 0 (470 471 472 473 474)
+() 0 () () () 0 0)
+10 'assert_eq_2d_complex_' 'fruit' 'assert_eq_2d_complex_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 475 0 (476 477 478 479 480)
+() 0 () () () 0 0)
+4 'obsolete_addsuccess_' 'fruit' 'obsolete_addsuccess_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+43 'bnd_clean_' 'boundary_data' 'bnd_clean_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+30 'bnd_get_connect_exc_' 'boundary_data' 'bnd_get_connect_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+INTEGER 4 0 0 INTEGER ()) 481 0 (482 483 484) () 485 () () () 0 0)
+31 'bnd_get_connect_' 'boundary_data' 'bnd_get_connect_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 486 0 (487 488) () 489 () () () 0 0)
+40 'bnd_get_trac_' 'boundary_data' 'bnd_get_trac_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+DERIVED 490 0 0 DERIVED ()) 491 0 (492 493) () 494 () () () 0 0)
+37 'bnd_len_bound_elem_exc_' 'boundary_data' 'bnd_len_bound_elem_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL
+8 0 0 REAL ()) 495 0 (496 497) () 498 () () () 0 0)
+39 'bnd_get_trac_exc_' 'boundary_data' 'bnd_get_trac_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+DERIVED 490 0 0 DERIVED ()) 499 0 (500 501 502) () 503 () () () 0 0)
+33 'bnd_init_' 'boundary_data' 'bnd_init_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 504
+0 (505) () 0 () () () 0 0)
+32 'bnd_init_exc_' 'boundary_data' 'bnd_init_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 506 0 (507 508) () 0 () () () 0 0)
+38 'bnd_len_bound_elem_' 'boundary_data' 'bnd_len_bound_elem_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8
+0 0 REAL ()) 509 0 (510) () 511 () () () 0 0)
+34 'bnd_set_connect_exc_' 'boundary_data' 'bnd_set_connect_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 512 0 (513 514 515 516) () 0 () () () 0 0)
+35 'bnd_set_connect_' 'boundary_data' 'bnd_set_connect_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 517 0 (518 519 520) () 0 () () () 0 0)
+42 'bnd_set_trac_' 'boundary_data' 'bnd_set_trac_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 521 0 (522 523 524) () 0 () () () 0 0)
+41 'bnd_set_trac_exc_' 'boundary_data' 'bnd_set_trac_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 525 0 (526 527 528 529) () 0 () () () 0 0)
+36 'bnd_num_bound_elem_' 'boundary_data' 'bnd_num_bound_elem_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 530 () () () 0 0)
+13 'assert_eq_2d_int_' 'fruit' 'assert_eq_2d_int_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 531 0 (532 533 534 535 536) () 0 () () () 0 0)
+12 'assert_eq_2d_double_' 'fruit' 'assert_eq_2d_double_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 537 0 (538 539 540 541 542) () 0 () () () 0 0)
+11 'assert_eq_2d_real_' 'fruit' 'assert_eq_2d_real_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 543 0 (544 545 546 547 548) () 0 () () () 0 0)
+15 'assert_eq_1d_real_in_range_' 'fruit' 'assert_eq_1d_real_in_range_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 549 0 (550 551 552 553 554)
+() 0 () () () 0 0)
+18 'assert_eq_1d_real_' 'fruit' 'assert_eq_1d_real_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 555 0 (556 557 558 559) () 0 () () () 0 0)
+560 'acc_max' 'system_constants' 'acc_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+561 'acc_min' 'system_constants' 'acc_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0 () () () 0
+0)
+562 'add_success' 'fruit' 'add_success' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0
+() () 0 () () () 0 0)
+563 'alloc' 'log_messages' 'alloc' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+564 'assert_true' 'fruit' 'assert_true' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0
+UNKNOWN ()) 565 0 (566 567) () 0 () () () 0 0)
+568 'bfcrdr' 'log_messages' 'bfcrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0)
+569 'bnddat' 'log_messages' 'bnddat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+570 'bndrdr' 'log_messages' 'bndrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+571 'boundary_data_test' 'boundary_data_test' 'boundary_data_test' 1 ((
+MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0
+UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+572 'bsymat' 'log_messages' 'bsymat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
+573 'cnsmat' 'log_messages' 'cnsmat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
+574 'coord_max' 'system_constants' 'coord_max' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0
+() () () 0 0)
+575 'coord_min' 'system_constants' 'coord_min' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0
+() () () 0 0)
+576 'dimen' 'log_messages' 'dimen' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+577 'disp_max' 'system_constants' 'disp_max' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0
+() () () 0 0)
+578 'disp_min' 'system_constants' 'disp_min' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0
+() () () 0 0)
+579 'dmnrdr' 'log_messages' 'dmnrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0)
+580 'dnsmat' 'log_messages' 'dnsmat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0)
+581 'dtime_max' 'system_constants' 'dtime_max' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.27100000000000@4') () 0 ()
+() () 0 0)
+582 'dtime_min' 'system_constants' 'dtime_min' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.afebff0bcb24a8@-9') () 0
+() () () 0 0)
+583 'e_max' 'system_constants' 'e_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+584 'e_min' 'system_constants' 'e_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0)
+585 'exceed' 'log_messages' 'exceed' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
+586 'exists' 'log_messages' 'exists' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
+587 'failed_assert_action' 'fruit' 'failed_assert_action' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 588 0 (589 590 591) () 0 () () () 0 0)
+592 'flddat' 'log_messages' 'flddat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
+593 'formt' 'log_messages' 'formt' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0)
+594 'fruit_summary' 'fruit' 'fruit_summary' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0
+() () 0 () () () 0 0)
+595 'get_failed_count' 'fruit' 'get_failed_count' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 596 0 (597) () 0 () () () 0 0)
+598 'get_last_message' 'fruit' 'get_last_message' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (CHARACTER 1 0 0
+CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 598
+() () () 0 0)
+599 'get_total_count' 'fruit' 'get_total_count' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 600 0 (601) () 0 () () () 0 0)
+602 'get_unit_name' 'fruit' 'get_unit_name' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 603
+0 (604) () 0 () () () 0 0)
+605 'ictrdr' 'log_messages' 'ictrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0)
+606 'icvrdr' 'log_messages' 'icvrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0)
+607 'init_fruit' 'fruit' 'init_fruit' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0
+() () 0 () () () 0 0)
+608 'is_all_successful' 'fruit' 'is_all_successful' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 609 0 (610) () 0 () () () 0 0)
+611 'is_last_passed' 'fruit' 'is_last_passed' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 611 () () () 0 0)
+612 'kbcrdr' 'log_messages' 'kbcrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0)
+613 'linslv' 'log_messages' 'linslv' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '12') () 0 () () () 0 0)
+614 'log_closelogfile' 'log_message_control' 'log_closelogfile' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+615 'log_getfilename' 'log_message_control' 'log_getfilename' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0
+INTEGER ()) 0 '200'))) 0 0 () () 616 () () () 0 0)
+617 'log_initlogfile' 'log_message_control' 'log_initlogfile' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+618 'log_messages' 'log_messages' 'log_messages' 1 ((MODULE
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN
+()) 0 0 () () 0 () () () 0 0)
+619 'log_printlogmsg' 'log_message_control' 'log_printlogmsg' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 620 0 (621 622) () 0 () () () 0 0)
+623 'log_setfilename' 'log_message_control' 'log_setfilename' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 624 0 (625) () 0 () () () 0 0)
+626 'max_boundels' 'system_constants' 'max_boundels' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2000') () 0 ()
+() () 0 0)
+627 'max_dofs' 'system_constants' 'max_dofs' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3990') () 0 ()
+() () 0 0)
+628 'max_elements' 'system_constants' 'max_elements' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5000') () 0 ()
+() () 0 0)
+629 'max_materials' 'system_constants' 'max_materials' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '30') () 0 ()
+() () 0 0)
+630 'max_nodes' 'system_constants' 'max_nodes' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2000') () 0 ()
+() () 0 0)
+631 'max_timesteps' 'system_constants' 'max_timesteps' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '10000') () 0
+() () () 0 0)
+632 'maxlen' 'system_constants' 'maxlen' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '200') () 0 () () () 0 0)
+633 'msg_getmsg' 'log_messages' 'msg_getmsg' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '200')))
+634 0 (635) () 636 () () () 0 0)
+637 'msg_getsdr' 'log_messages' 'msg_getsdr' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '200')))
+638 0 (639) () 640 () () () 0 0)
+641 'mtldat' 'log_messages' 'mtldat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
+642 'mtlrdr' 'log_messages' 'mtlrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14') () 0 () () () 0 0)
+643 'nbcrdr' 'log_messages' 'nbcrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '15') () 0 () () () 0 0)
+644 'ndim' 'system_constants' 'ndim' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+645 'nnodel' 'system_constants' 'nnodel' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+646 'nnodelb' 'system_constants' 'nnodelb' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+647 'ntns' 'system_constants' 'ntns' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+648 'nu_max' 'system_constants' 'nu_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.7fbe76c8b43958@0') () 0 () () () 0 0)
+649 'nu_min' 'system_constants' 'nu_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0)
+650 'ok' 'log_messages' 'ok' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0)
+651 'one_third' 'system_constants' 'one_third' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.55555555555554@0') () 0 ()
+() () 0 0)
+652 'posdef' 'log_messages' 'posdef' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
+653 'posit' 'log_messages' 'posit' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0)
+654 'rho_max' 'system_constants' 'rho_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+655 'rho_min' 'system_constants' 'rho_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0)
+656 's11' 'field_data' 's11' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0)
+657 's12' 'field_data' 's12' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+658 's22' 'field_data' 's22' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+659 's33' 'field_data' 's33' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
+660 'set_unit_name' 'fruit' 'set_unit_name' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 661
+0 (662) () 0 () () () 0 0)
+663 'sig_max' 'system_constants' 'sig_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+664 'sig_min' 'system_constants' 'sig_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0 () () () 0
+0)
+665 'str_max' 'system_constants' 'str_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.28f5c28f5c28f6@-1') () 0 () () () 0 0)
+666 'str_min' 'system_constants' 'str_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.28f5c28f5c28f6@-1') () 0 () () () 0
+0)
+667 'str_small' 'system_constants' 'str_small' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.28f5c28f5c28f6@-1') () 0
+() () () 0 0)
+490 'surfloadt' 'boundary_data' 'surfloadt' 1 ((DERIVED UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0
+((668 'sig_nt' (REAL 8 0 0 REAL ()) () (UNKNOWN-FL UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) UNKNOWN-ACCESS ()) (669 'sig_nn' (
+REAL 8 0 0 REAL ()) () (UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0) UNKNOWN-ACCESS ())) PUBLIC (() () () ()) () 0 0 92383288)
+670 'system_constants' 'system_constants' 'system_constants' 1 ((MODULE
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN
+()) 0 0 () () 0 () () () 0 0)
+671 'sze' 'log_messages' 'sze' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0)
+672 'test_bnd_elem_allocation_msg' 'boundary_data_test'
+'test_bnd_elem_allocation_msg' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0
+0 () () 0 () () () 0 0)
+673 'test_bnd_elem_allocation_sze' 'boundary_data_test'
+'test_bnd_elem_allocation_sze' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0
+0 () () 0 () () () 0 0)
+674 'test_bnd_get_connect_posit' 'boundary_data_test'
+'test_bnd_get_connect_posit' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () ()
+() 0 0)
+675 'test_bnd_get_set_connect_val' 'boundary_data_test'
+'test_bnd_get_set_connect_val' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () ()
+() 0 0)
+676 'test_bnd_get_set_trac_val' 'boundary_data_test'
+'test_bnd_get_set_trac_val' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () ()
+() 0 0)
+677 'test_bnd_get_trac_posit' 'boundary_data_test'
+'test_bnd_get_trac_posit' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
+UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () ()
+0 0)
+678 'test_bnd_len_bound_elem_posit' 'boundary_data_test'
+'test_bnd_len_bound_elem_posit' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () ()
+() 0 0)
+679 'test_bnd_len_bound_elem_val' 'boundary_data_test'
+'test_bnd_len_bound_elem_val' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () ()
+() 0 0)
+680 'test_bnd_len_bound_elem_zero' 'boundary_data_test'
+'test_bnd_len_bound_elem_zero' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () ()
+() 0 0)
+681 'test_bnd_num_elem_allocated' 'boundary_data_test'
+'test_bnd_num_elem_allocated' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () ()
+() 0 0)
+682 'test_bnd_num_elem_not_allocated' 'boundary_data_test'
+'test_bnd_num_elem_not_allocated' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0
+() () 0 () () () 0 0)
+683 'test_bnd_set_connect_exceed' 'boundary_data_test'
+'test_bnd_set_connect_exceed' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0
+0 () () 0 () () () 0 0)
+684 'test_bnd_set_connect_posit' 'boundary_data_test'
+'test_bnd_set_connect_posit' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0
+0 () () 0 () () () 0 0)
+685 'test_bnd_set_trac_exceed' 'boundary_data_test'
+'test_bnd_set_trac_exceed' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
+UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 ()
+() 0 () () () 0 0)
+686 'test_bnd_set_trac_posit' 'boundary_data_test'
+'test_bnd_set_trac_posit' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
+UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 ()
+() 0 () () () 0 0)
+687 'tnswtr' 'log_messages' 'tnswtr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '16') () 0 () () () 0 0)
+688 'typ' 'log_messages' 'typ' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0)
+689 'vector' 'log_messages' 'vector' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '17') () 0 () () () 0 0)
+690 'vecwtr' 'log_messages' 'vecwtr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '18') () 0 () () () 0 0)
+691 'vel_max' 'system_constants' 'vel_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+692 'vel_min' 'system_constants' 'vel_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0 () () () 0
+0)
+625 'fname' '' 'fname' 624 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+616 'fname' '' 'fname' 693 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN UNKNOWN 0 0 RESULT) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '200'))) 0 0 () () 0 () () () 0 0)
+622 'sdr' '' 'sdr' 620 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+621 'msg' '' 'msg' 620 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+636 'exc' '' 'exc' 634 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0
+INTEGER ()) 0 '200'))) 0 0 () () 0 () () () 0 0)
+567 'message' '' 'message' 565 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+590 'got' '' 'got' 588 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+589 'expected' '' 'expected' 588 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+635 'code' '' 'code' 634 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+601 'count' '' 'count' 600 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+610 'result' '' 'result' 609 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+604 'value' '' 'value' 603 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+591 'message' '' 'message' 588 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+275 'message' '' 'message' 273 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+431 'var2' '' 'var2' 429 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+430 'var1' '' 'var1' 429 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+432 'message' '' 'message' 429 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+154 'var2' '' 'var2' 152 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+155 'message' '' 'message' 152 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+191 'message' '' 'message' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+190 'var2' '' 'var2' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+189 'var1' '' 'var1' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+153 'var1' '' 'var1' 152 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+437 'var1' '' 'var1' 436 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+439 'message' '' 'message' 436 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+438 'var2' '' 'var2' 436 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+461 'var1' '' 'var1' 460 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+463 'message' '' 'message' 460 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+462 'var2' '' 'var2' 460 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+151 'message' '' 'message' 148 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+150 'var2' '' 'var2' 148 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0)
+149 'var1' '' 'var1' 148 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0)
+136 'var3' '' 'var3' 133 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+137 'message' '' 'message' 133 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+141 'var3' '' 'var3' 138 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+140 'var2' '' 'var2' 138 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+139 'var1' '' 'var1' 138 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+135 'var2' '' 'var2' 133 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+134 'var1' '' 'var1' 133 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+130 'var2' '' 'var2' 128 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 131 ())) 0 () () () 0 0)
+129 'var1' '' 'var1' 128 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 131 ())) 0 () () () 0 0)
+132 'message' '' 'message' 128 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+131 'n' '' 'n' 128 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+142 'message' '' 'message' 138 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+146 'n' '' 'n' 143 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+145 'var2' '' 'var2' 143 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+146 ())) 0 () () () 0 0)
+556 'var1' '' 'var1' 555 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+558 ())) 0 () () () 0 0)
+557 'var2' '' 'var2' 555 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+558 ())) 0 () () () 0 0)
+147 'message' '' 'message' 143 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+559 'message' '' 'message' 555 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+558 'n' '' 'n' 555 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+144 'var1' '' 'var1' 143 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+146 ())) 0 () () () 0 0)
+124 'var1' '' 'var1' 123 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 126 ())) 0 () () () 0 0)
+126 'n' '' 'n' 123 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+127 'message' '' 'message' 123 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+467 'n' '' 'n' 464 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+466 'var2' '' 'var2' 464 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 467 ())) 0 () () () 0 0)
+465 'var1' '' 'var1' 464 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 467 ())) 0 () () () 0 0)
+550 'var1' '' 'var1' 549 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+552 ())) 0 () () () 0 0)
+468 'message' '' 'message' 464 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+552 'n' '' 'n' 549 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+553 'var3' '' 'var3' 549 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+554 'message' '' 'message' 549 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+551 'var2' '' 'var2' 549 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+552 ())) 0 () () () 0 0)
+125 'var2' '' 'var2' 123 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 126 ())) 0 () () () 0 0)
+472 'n' '' 'n' 469 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+471 'var2' '' 'var2' 469 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+472 ())) 0 () () () 0 0)
+470 'var1' '' 'var1' 469 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+472 ())) 0 () () () 0 0)
+274 'var1' '' 'var1' 273 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+532 'var1' '' 'var1' 531 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 534 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
+VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 535 ())) 0 () () () 0 0)
+533 'var2' '' 'var2' 531 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 534 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
+VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 535 ())) 0 () () () 0 0)
+538 'var1' '' 'var1' 537 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+540 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 541 ())) 0 () () () 0 0)
+536 'message' '' 'message' 531 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+539 'var2' '' 'var2' 537 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+540 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 541 ())) 0 () () () 0 0)
+535 'm' '' 'm' 531 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+534 'n' '' 'n' 531 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+474 'message' '' 'message' 469 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+541 'm' '' 'm' 537 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+542 'message' '' 'message' 537 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+547 'm' '' 'm' 543 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+546 'n' '' 'n' 543 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+545 'var2' '' 'var2' 543 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+546 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 547 ())) 0 () () () 0 0)
+544 'var1' '' 'var1' 543 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+546 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 547 ())) 0 () () () 0 0)
+477 'var2' '' 'var2' 475 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (2 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 478 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
+VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 479 ())) 0 () () () 0 0)
+476 'var1' '' 'var1' 475 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (2 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 478 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
+VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 479 ())) 0 () () () 0 0)
+479 'm' '' 'm' 475 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+480 'message' '' 'message' 475 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+478 'n' '' 'n' 475 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+548 'message' '' 'message' 543 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+450 'n' '' 'n' 447 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+449 'var2' '' 'var2' 447 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+450 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 451 ())) 0 () () () 0 0)
+448 'var1' '' 'var1' 447 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+450 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 451 ())) 0 () () () 0 0)
+453 'message' '' 'message' 447 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+452 'var3' '' 'var3' 447 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+309 'n' '' 'n' 306 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+308 'var2' '' 'var2' 306 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+309 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 310 ())) 0 () () () 0 0)
+307 'var1' '' 'var1' 306 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+309 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 310 ())) 0 () () () 0 0)
+311 'var3' '' 'var3' 306 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+310 'm' '' 'm' 306 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+238 'var1' '' 'var1' 237 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+240 'message' '' 'message' 237 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+359 'var1' '' 'var1' 358 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+361 ())) 0 () () () 0 0)
+239 'var2' '' 'var2' 237 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+312 'message' '' 'message' 306 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+360 'var2' '' 'var2' 358 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+361 ())) 0 () () () 0 0)
+401 'var1' '' 'var1' 400 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+403 'message' '' 'message' 400 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+122 'message' '' 'message' 121 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+314 'count' '' 'count' 313 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+120 'message' '' 'message' 118 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+119 'unitname' '' 'unitname' 118 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+402 'var2' '' 'var2' 400 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+441 'count' '' 'count' 440 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+443 'tc' '' 'tc' 442 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY
+UNKNOWN 0 0 DUMMY SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 694 0 () () 0 ()
+() () 0 0)
+445 'tc' '' 'tc' 444 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC BODY UNKNOWN
+0 0 DUMMY SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 695 0 () () 0 () () ()
+0 0)
+446 'tc_name' '' 'tc_name' 444 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+455 'result' '' 'result' 454 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+361 'n' '' 'n' 358 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+451 'm' '' 'm' 447 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+540 'n' '' 'n' 537 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+473 'var3' '' 'var3' 469 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+566 'var1' '' 'var1' 565 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+597 'count' '' 'count' 596 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+662 'value' '' 'value' 661 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+639 'code' '' 'code' 638 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+640 'sdr' '' 'sdr' 638 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0
+INTEGER ()) 0 '200'))) 0 0 () () 0 () () () 0 0)
+505 'nel' '' 'nel' 504 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+508 'exc' '' 'exc' 506 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+507 'nel' '' 'nel' 506 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+488 'j' '' 'j' 486 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+489 'n' '' 'n' 486 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+483 'j' '' 'j' 481 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+482 'i' '' 'i' 481 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+485 'n' '' 'n' 481 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+518 'i' '' 'i' 517 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+513 'i' '' 'i' 512 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+520 'n' '' 'n' 517 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+519 'j' '' 'j' 517 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+484 'exc' '' 'exc' 481 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+514 'j' '' 'j' 512 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+487 'i' '' 'i' 486 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+511 'length' '' 'length' 509 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0
+0)
+496 'i' '' 'i' 495 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+497 'exc' '' 'exc' 495 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+493 'j' '' 'j' 491 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+494 'load' '' 'load' 491 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 490 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+492 'i' '' 'i' 491 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+500 'i' '' 'i' 499 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+498 'length' '' 'length' 495 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0
+0)
+510 'i' '' 'i' 509 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+516 'exc' '' 'exc' 512 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+515 'n' '' 'n' 512 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+502 'exc' '' 'exc' 499 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+523 'j' '' 'j' 521 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+524 'load' '' 'load' 521 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 490 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+522 'i' '' 'i' 521 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+503 'load' '' 'load' 499 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 490 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+528 'load' '' 'load' 525 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 490 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+527 'j' '' 'j' 525 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+529 'exc' '' 'exc' 525 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+526 'i' '' 'i' 525 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+501 'j' '' 'j' 499 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+530 'nel' '' 'nel' 696 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+281 'dt' '' 'dt' 280 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+282 'n' '' 'n' 280 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+394 'dt' '' 'dt' 697 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+362 'n' '' 'n' 698 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+304 'nnod' '' 'nnod' 303 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+289 'nnod' '' 'nnod' 699 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+305 'exc' '' 'exc' 303 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+298 'nnod' '' 'nnod' 297 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+283 'exc' '' 'exc' 280 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+285 'i' '' 'i' 284 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+279 'x' '' 'x' 276 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+278 'j' '' 'j' 276 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+287 'exc' '' 'exc' 284 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+326 'i' '' 'i' 325 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+328 'x' '' 'x' 325 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+327 'j' '' 'j' 325 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+288 'x' '' 'x' 284 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+286 'j' '' 'j' 284 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+277 'i' '' 'i' 276 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+318 'x' '' 'x' 315 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+319 'exc' '' 'exc' 315 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+317 'j' '' 'j' 315 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+227 'fix' '' 'fix' 224 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+180 'i' '' 'i' 179 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+181 'j' '' 'j' 179 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+226 'j' '' 'j' 224 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+225 'i' '' 'i' 224 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+316 'i' '' 'i' 315 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+370 'j' '' 'j' 368 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+369 'i' '' 'i' 368 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+371 'fix' '' 'fix' 368 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+183 'fix' '' 'fix' 179 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+425 'i' '' 'i' 424 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+426 'j' '' 'j' 424 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+428 'exc' '' 'exc' 424 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+253 'exc' '' 'exc' 252 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+186 'j' '' 'j' 184 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+185 'i' '' 'i' 184 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+291 'n' '' 'n' 700 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+195 'exc' '' 'exc' 192 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+199 'j' '' 'j' 197 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+198 'i' '' 'i' 197 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+196 'dof' '' 'dof' 192 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+194 'j' '' 'j' 192 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+220 'i' '' 'i' 219 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+221 'j' '' 'j' 219 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+200 'u' '' 'u' 197 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+223 'u' '' 'u' 219 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+422 'j' '' 'j' 420 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+421 'i' '' 'i' 420 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+423 'u' '' 'u' 420 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+222 'exc' '' 'exc' 219 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+193 'i' '' 'i' 192 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+187 'dof' '' 'dof' 184 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+427 'fix' '' 'fix' 424 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+413 'i' '' 'i' 412 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+415 'u' '' 'u' 412 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+416 'exc' '' 'exc' 412 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+414 'j' '' 'j' 412 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+258 'j' '' 'j' 256 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+257 'i' '' 'i' 256 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+260 'v' '' 'v' 256 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+383 'i' '' 'i' 382 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+385 'v' '' 'v' 382 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+384 'j' '' 'j' 382 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+374 'j' '' 'j' 372 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+373 'i' '' 'i' 372 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+259 'exc' '' 'exc' 256 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+182 'exc' '' 'exc' 179 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+172 'j' '' 'j' 170 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+171 'i' '' 'i' 170 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+157 'i' '' 'i' 156 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+158 'j' '' 'j' 156 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+160 'a' '' 'a' 156 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+159 'exc' '' 'exc' 156 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+336 'j' '' 'j' 334 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+331 'j' '' 'j' 329 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+332 'a' '' 'a' 329 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+330 'i' '' 'i' 329 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+337 'a' '' 'a' 334 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+335 'i' '' 'i' 334 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+173 'a' '' 'a' 170 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+376 'exc' '' 'exc' 372 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+242 'i' '' 'i' 241 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+244 'a' '' 'a' 241 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+175 'i' '' 'i' 174 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+177 'exc' '' 'exc' 174 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+178 'a' '' 'a' 174 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+176 'j' '' 'j' 174 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+243 'j' '' 'j' 241 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+341 'a' '' 'a' 338 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+340 'j' '' 'j' 338 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+339 'i' '' 'i' 338 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+321 'i' '' 'i' 320 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+322 'j' '' 'j' 320 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+324 'exc' '' 'exc' 320 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+211 'i' '' 'i' 210 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+213 's' '' 's' 210 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+212 'j' '' 'j' 210 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+323 'a' '' 'a' 320 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+202 'i' '' 'i' 201 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+203 'j' '' 'j' 201 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+205 's' '' 's' 201 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+409 'i' '' 'i' 408 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+410 'j' '' 'j' 408 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+204 'exc' '' 'exc' 201 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+378 'i' '' 'i' 377 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+411 's' '' 's' 408 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+380 's' '' 's' 377 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+381 'exc' '' 'exc' 377 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+379 'j' '' 'j' 377 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+207 'i' '' 'i' 206 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+209 's' '' 's' 206 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+208 'j' '' 'j' 206 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+215 'i' '' 'i' 214 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+217 'exc' '' 'exc' 214 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+216 'j' '' 'j' 214 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+387 'i' '' 'i' 386 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+218 's' '' 's' 214 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+389 's' '' 's' 386 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+365 'j' '' 'j' 363 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+364 'i' '' 'i' 363 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+367 'exc' '' 'exc' 363 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+366 's' '' 's' 363 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+388 'j' '' 'j' 386 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+255 'nel' '' 'nel' 254 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+263 'exc' '' 'exc' 261 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+290 'nel' '' 'nel' 701 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+162 'i' '' 'i' 161 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+163 'j' '' 'j' 161 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+262 'nel' '' 'nel' 261 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+167 'j' '' 'j' 165 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+168 'exc' '' 'exc' 165 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+166 'i' '' 'i' 165 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+300 'i' '' 'i' 299 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+302 'n' '' 'n' 299 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+301 'j' '' 'j' 299 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+293 'i' '' 'i' 292 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+296 'exc' '' 'exc' 292 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+295 'n' '' 'n' 292 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+294 'j' '' 'j' 292 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+169 'n' '' 'n' 165 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+419 'vol' '' 'vol' 417 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+405 'i' '' 'i' 404 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+407 'vol' '' 'vol' 404 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+406 'exc' '' 'exc' 404 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+251 'm' '' 'm' 249 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+265 'i' '' 'i' 264 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+267 'm' '' 'm' 264 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+266 'exc' '' 'exc' 264 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+250 'i' '' 'i' 249 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+418 'i' '' 'i' 417 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+164 'n' '' 'n' 161 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+347 'i' '' 'i' 346 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+348 'm' '' 'm' 346 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+343 'i' '' 'i' 342 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+344 'm' '' 'm' 342 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+230 'j' '' 'j' 228 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+231 's' '' 's' 228 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+229 'i' '' 'i' 228 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+234 'j' '' 'j' 232 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+233 'i' '' 'i' 232 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+345 'exc' '' 'exc' 342 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+236 's' '' 's' 232 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+391 'i' '' 'i' 390 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+393 's' '' 's' 390 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+392 'j' '' 'j' 390 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+235 'exc' '' 'exc' 232 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+333 'exc' '' 'exc' 329 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+246 'i' '' 'i' 245 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+247 'j' '' 'j' 245 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+399 'exc' '' 'exc' 395 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+398 's' '' 's' 395 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+269 'i' '' 'i' 268 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+272 's' '' 's' 268 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+271 'exc' '' 'exc' 268 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+270 'j' '' 'j' 268 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+248 's' '' 's' 245 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+397 'j' '' 'j' 395 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+396 'i' '' 'i' 395 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+351 'j' '' 'j' 349 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+352 's' '' 's' 349 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+350 'i' '' 'i' 349 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+354 'i' '' 'i' 353 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+356 's' '' 's' 353 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+355 'j' '' 'j' 353 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+357 'exc' '' 'exc' 353 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+375 'v' '' 'v' 372 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+434 'dt' '' 'dt' 433 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+435 'n' '' 'n' 433 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+457 'i' '' 'i' 456 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+458 'j' '' 'j' 456 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+459 'v' '' 'v' 456 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+)
+
+('acc_max' 0 560 'acc_min' 0 561 'add_success' 0 562 'alloc' 0 563
+'assert_true' 0 564 'bfcrdr' 0 568 'bnddat' 0 569 'bndrdr' 0 570
+'boundary_data_test' 0 571 'bsymat' 0 572 'cnsmat' 0 573 'coord_max' 0
+574 'coord_min' 0 575 'dimen' 0 576 'disp_max' 0 577 'disp_min' 0 578
+'dmnrdr' 0 579 'dnsmat' 0 580 'dtime_max' 0 581 'dtime_min' 0 582 'e_max'
+0 583 'e_min' 0 584 'exceed' 0 585 'exists' 0 586 'failed_assert_action'
+0 587 'flddat' 0 592 'formt' 0 593 'fruit_summary' 0 594
+'get_failed_count' 0 595 'get_last_message' 0 598 'get_total_count' 0
+599 'get_unit_name' 0 602 'ictrdr' 0 605 'icvrdr' 0 606 'init_fruit' 0
+607 'is_all_successful' 0 608 'is_last_passed' 0 611 'kbcrdr' 0 612
+'linslv' 0 613 'log_closelogfile' 0 614 'log_getfilename' 0 615
+'log_initlogfile' 0 617 'log_messages' 0 618 'log_printlogmsg' 0 619
+'log_setfilename' 0 623 'max_boundels' 0 626 'max_dofs' 0 627
+'max_elements' 0 628 'max_materials' 0 629 'max_nodes' 0 630
+'max_timesteps' 0 631 'maxlen' 0 632 'msg_getmsg' 0 633 'msg_getsdr' 0
+637 'mtldat' 0 641 'mtlrdr' 0 642 'nbcrdr' 0 643 'ndim' 0 644 'nnodel' 0
+645 'nnodelb' 0 646 'ntns' 0 647 'nu_max' 0 648 'nu_min' 0 649 'ok' 0
+650 'one_third' 0 651 'posdef' 0 652 'posit' 0 653 'rho_max' 0 654
+'rho_min' 0 655 's11' 0 656 's12' 0 657 's22' 0 658 's33' 0 659
+'set_unit_name' 0 660 'sig_max' 0 663 'sig_min' 0 664 'str_max' 0 665
+'str_min' 0 666 'str_small' 0 667 'surfloadt' 0 490 'system_constants' 0
+670 'sze' 0 671 'test_bnd_elem_allocation_msg' 0 672
+'test_bnd_elem_allocation_sze' 0 673 'test_bnd_get_connect_posit' 0 674
+'test_bnd_get_set_connect_val' 0 675 'test_bnd_get_set_trac_val' 0 676
+'test_bnd_get_trac_posit' 0 677 'test_bnd_len_bound_elem_posit' 0 678
+'test_bnd_len_bound_elem_val' 0 679 'test_bnd_len_bound_elem_zero' 0 680
+'test_bnd_num_elem_allocated' 0 681 'test_bnd_num_elem_not_allocated' 0
+682 'test_bnd_set_connect_exceed' 0 683 'test_bnd_set_connect_posit' 0
+684 'test_bnd_set_trac_exceed' 0 685 'test_bnd_set_trac_posit' 0 686
+'tnswtr' 0 687 'typ' 0 688 'vector' 0 689 'vecwtr' 0 690 'vel_max' 0 691
+'vel_min' 0 692)

Examples/SoilWaterStructureInteraction/dynsws/trunk/constitutive.f90

+! ------------------------------------------------------------------------
+!>  \brief Module for Constitutive Matrix
+! ------------------------------------------------------------------------
+MODULE constitutive
+USE system_constants    !> Global constants (for size of matrix)
+USE log_message_control !> Printing log/error messages
+USE log_messages        !> Log/error codes
+USE dense_matrix_def    !> Dense Matrix data type
+
+IMPLICIT NONE
+PRIVATE
+
+
+
+! ************************************************************************
+! EXPORTS
+! ************************************************************************
+
+
+!> Exported interfaces
+PUBLIC :: dmatrix
+
+
+
+! ************************************************************************
+! LOCAL CONSTANTS
+! ************************************************************************
+
+INTEGER, PARAMETER :: sdr=CNSMAT
+
+
+! ************************************************************************
+! DATA TYPES
+! ************************************************************************
+
+! none
+
+
+
+! ************************************************************************
+! INTERFACES
+! ************************************************************************
+
+
+!> \brief Interface to constitutive matrix access program
+INTERFACE dmatrix
+  MODULE PROCEDURE dmatrix_linear_elastic_plane_strain_
+  MODULE PROCEDURE dmatrix_linear_elastic_plane_strain_exc_
+END INTERFACE dmatrix
+
+
+
+CONTAINS
+
+
+
+! ************************************************************************
+! ACCESS PROGRAMS
+! ************************************************************************
+
+
+! ------------------------------------------------------------------------
+!>  \brief Constitutive matrix (linear elastic, plane strain)
+!!
+!!  \param  emod  Elastic modulus
+!!  \param  nu    Poisson's ratio
+!!  \param  Dmat  Constitutive matrix
+!!
+!!  This routine builds the constitutive matrix for a linear elastic
+!!  material under plane strain conditions. The matrix has the following
+!!  form:
+!!
+!!    D = ( emod / ((1+nu)*(1-2*nu)) ) * [ 1-nu   nu        0       ]
+!!                                       [  nu   1-nu       0       ]
+!!                                       [   0     0   0.5*(1-2*v)  ]
+! ------------------------------------------------------------------------
+SUBROUTINE dmatrix_linear_elastic_plane_strain_ (emod,nu, Dmat)
+  DOUBLE PRECISION, INTENT(IN) :: emod,nu
+  TYPE(matrixT), INTENT(INOUT) :: Dmat
+  DOUBLE PRECISION :: one_minus_nu, one_minus_two_nu, coef
+
+  one_minus_nu = 1.d0 - nu
+  one_minus_two_nu = 1.d0 - 2.d0*nu
+  coef = emod / ((1.d0+nu)*one_minus_two_nu)
+
+  CALL dm_init(Dmat, NTNS,NTNS)
+
+  CALL dm_set(Dmat, 1,1, coef*one_minus_nu)
+  CALL dm_set(Dmat, 2,1, coef*nu)
+  CALL dm_set(Dmat, 1,2, dm_get(Dmat, 2,1))
+  CALL dm_set(Dmat, 2,2, dm_get(Dmat, 1,1))
+  CALL dm_set(Dmat, 3,3, 0.5d0*coef*one_minus_two_nu)
+
+END SUBROUTINE dmatrix_linear_elastic_plane_strain_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Constitutive matrix (linear elastic, plane strain)
+!!
+!!  \param  emod  Elastic modulus
+!!  \param  nu    Poisson's ratio
+!!  \param  Dmat  Constitutive matrix
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  The specified values of elastic modulus or
+!!                      Poisson's ratio are not within specified limits
+!!
+!!  This routine builds the constitutive matrix for a linear elastic
+!!  material under plane strain conditions. The matrix has the following
+!!  form:
+!!
+!!    D = ( emod / ((1+nu)*(1-2*nu)) ) * [ 1-nu   nu        0       ]
+!!                                       [  nu   1-nu       0       ]
+!!                                       [   0     0   0.5*(1-2*v)  ]
+! ------------------------------------------------------------------------
+SUBROUTINE dmatrix_linear_elastic_plane_strain_exc_ (emod,nu, Dmat, exc)
+  DOUBLE PRECISION, INTENT(IN) :: emod,nu
+  TYPE(matrixT), INTENT(INOUT) :: Dmat
+  INTEGER, INTENT(OUT) :: exc
+  DOUBLE PRECISION :: one_minus_nu, one_minus_two_nu, coef
+
+  !> check that specified parameters are within limits
+  IF (  emod.LT.E_MIN .OR. emod.GT.E_MAX  &
+        .OR. nu.LT.NU_MIN .OR. nu.GT.NU_MAX ) THEN
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL dmatrix(emod,nu, Dmat)
+
+END SUBROUTINE dmatrix_linear_elastic_plane_strain_exc_
+
+
+
+! ************************************************************************
+! LOCAL FUNCTIONS
+! ************************************************************************
+
+! none
+
+END MODULE constitutive

Examples/SoilWaterStructureInteraction/dynsws/trunk/constitutive.mod

+GFORTRAN module version '6' created from constitutive.f90 on Sun Apr 29 22:07:07 2012
+MD5:cd23916a9e30b14709c4168c43a5ea7b -- If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () () () ()
+() () () ())
+
+()
+
+(('dmatrix' 'constitutive' 2 3))
+
+()
+
+()
+
+()
+
+(3 'dmatrix_linear_elastic_plane_strain_' 'constitutive'
+'dmatrix_linear_elastic_plane_strain_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 4 0
+(5 6 7) () 0 () () () 0 0)
+2 'dmatrix_linear_elastic_plane_strain_exc_' 'constitutive'
+'dmatrix_linear_elastic_plane_strain_exc_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0
+UNKNOWN ()) 8 0 (9 10 11 12) () 0 () () () 0 0)
+5 'emod' '' 'emod' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+6 'nu' '' 'nu' 4 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+7 'dmat' '' 'dmat' 4 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 13 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+11 'dmat' '' 'dmat' 8 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 13 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+12 'exc' '' 'exc' 8 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+9 'emod' '' 'emod' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+10 'nu' '' 'nu' 8 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+13 'matrixt' 'dense_matrix_def' 'matrixt' 1 ((DERIVED UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOC_COMP) (UNKNOWN 0 0 0 UNKNOWN ())
+0 0 () () 0 ((14 'dat' (REAL 8 0 0 REAL ()) (2 0 DEFERRED () () () ()) (
+UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOCATABLE
+DIMENSION) UNKNOWN-ACCESS ())) PUBLIC (() () () ()) () 0 0 72249915)
+)
+
+()

Examples/SoilWaterStructureInteraction/dynsws/trunk/constitutive_test.f90

+! ------------------------------------------------------------------------
+!>  \brief Module for testing Constitutive Matrix module
+! ------------------------------------------------------------------------
+MODULE constitutive_test
+USE fruit                   !> Unit testing framework
+USE system_constants        !> Global system constants
+USE log_message_control     !> Printing log/error messages
+USE log_messages            !> Log/error message and sender codes
+USE dense_matrix_def        !> Dense Matrix ADT
+USE constitutive            !> Constitutive Matrix module
+
+IMPLICIT NONE
+
+
+CONTAINS
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception from dmatrix
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param emod       Non-exceeding elastic modulus
+!!  \param nu         Non-exceeding Poisson's ratio
+!!  \param emod1      Test elastic modulus 1 ( = E_MIN-0.1 < E_MIN )
+!!  \param nu1        Test Poisson's ratio 1 ( = NU_MIN-0.1 < NU_MIN )
+!!  \param emod1      Test elastic modulus 2 ( = EMAX+1.0 > E_MAX )
+!!  \param nu1        Test Poisson's ratio 2 ( = 0.5 > NU_MAX )
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param Dmat       Dummy matrix for dmatrix output
+!!
+!!  This test attempts to obtain the constitutive matrix for values that
+!!  are outside the specified range and ensures that the correct exception
+!!  is raised.
+! ------------------------------------------------------------------------
+SUBROUTINE test_constitutive_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_constitutive_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  DOUBLE PRECISION, PARAMETER :: emod = 70.d3, nu = 0.3d0
+  DOUBLE PRECISION, PARAMETER :: emod1 = E_MIN-0.1d0
+  DOUBLE PRECISION, PARAMETER :: nu1 = NU_MIN-0.1d0
+  DOUBLE PRECISION, PARAMETER :: emod2 = E_MAX+1.d0
+  DOUBLE PRECISION, PARAMETER :: nu2 = 0.5d0
+  INTEGER, PARAMETER :: expMsg=EXCEED
+  INTEGER :: actMsg
+  TYPE(matrixT) :: Dmat
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log message file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> try to call with low elastic modulus
+  CALL dmatrix(emod1,nu, Dmat, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to call with high elastic modulus
+  CALL dmatrix(emod2,nu, Dmat, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to call with low Poisson's ratio
+  CALL dmatrix(emod,nu1, Dmat, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to call with high Poisson's ratio
+  CALL dmatrix(emod,nu2, Dmat, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and deallocate D matrix
+  CALL log_closeLogFile()
+  CALL dm_clean(Dmat)
+
+END SUBROUTINE test_constitutive_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for dmatrix when elastic modulus is zero
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param emod       Elastic modulus ( = 0 )
+!!  \param nu         Poisson's ratio
+!!  \param expDat     Expected constitutive matrix (zeros)
+!!  \param Dmat       Matrix for dmatrix output
+!!
+!!  This test obtains the constitutive matrix when elastic modulus is
+!!  zero and Poisson's ratio is any value within the system defined
+!!  limits. It should be all zeros.
+! ------------------------------------------------------------------------
+SUBROUTINE test_constitutive_ZERO
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_constitutive_ZERO'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  DOUBLE PRECISION, PARAMETER :: emod = 0.d0
+  DOUBLE PRECISION, PARAMETER :: nu = 0.3d0
+  DOUBLE PRECISION, DIMENSION(NTNS,NTNS) :: expDat
+  TYPE(matrixT) :: Dmat
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> set up expected result
+  expDat = RESHAPE( (/ &
+                    0.d0, 0.d0, 0.d0, &
+                    0.d0, 0.d0, 0.d0, &
+                    0.d0, 0.d0, 0.d0  &
+                    /), SHAPE(expDat) )
+
+  !> get constitutive matrix
+  CALL dmatrix(emod,nu, Dmat)
+  CALL assertEquals(expDat, Dmat%dat, NTNS,NTNS)
+
+  !> deallocate constitutive matrix
+  CALL dm_clean(Dmat)
+
+END SUBROUTINE test_constitutive_ZERO
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for dmatrix when parameters are in normal range
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param emod       Elastic modulus
+!!  \param nu         Poisson's ratio
+!!  \param toler      Tolerance on output
+!!  \param expDat     Expected constitutive matrix
+!!  \param Dmat       Matrix for dmatrix output
+!!
+!!  This test obtains the constitutive matrix when elastic modulus
+!!  and Poisson's ratio are given values within the system defined
+!!  limits.
+! ------------------------------------------------------------------------
+SUBROUTINE test_constitutive_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_constitutive_VAL'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  DOUBLE PRECISION, PARAMETER :: emod = 70.d3
+  DOUBLE PRECISION, PARAMETER :: nu = 0.3d0
+  DOUBLE PRECISION, PARAMETER :: toler = 1.d-9
+  DOUBLE PRECISION, DIMENSION(NTNS,NTNS) :: expDat
+  TYPE(matrixT) :: Dmat
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> set up expected result
+  expDat = RESHAPE( (/ &
+                    94230.7692307692d0, 40384.6153846154d0, 0.d0, &
+                    40384.6153846154d0, 94230.7692307692d0, 0.d0, &
+                    0.d0, 0.d0, 26923.0769230769d0 &
+                    /), SHAPE(expDat) )
+
+  !> get constitutive matrix
+  CALL dmatrix(emod,nu, Dmat)
+  CALL assertEquals(expDat, Dmat%dat, NTNS,NTNS, toler)
+
+  !> deallocate constitutive matrix
+  CALL dm_clean(Dmat)
+
+END SUBROUTINE test_constitutive_VAL
+
+END MODULE constitutive_test

Examples/SoilWaterStructureInteraction/dynsws/trunk/constitutive_test.mod

+GFORTRAN module version '6' created from constitutive_test.f90 on Sun Apr 29 22:07:09 2012
+MD5:04511aa871eb69519acd4302d4dbdd8c -- If you edit this, you'll get what you deserve.
+
+(() () (2 3) () (4 5 6 7 8 9) () () () () () () () () () () () () () ()
+() () () () () () () ())
+
+()
+
+(('add_fail' 'fruit' 10 11) ('addsuccess' 'fruit' 12) ('addfail' 'fruit'
+10 11) ('assert_not_equals' 'fruit' 13 14 15) ('assert_equals' 'fruit'
+16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36) (
+'assertequals' 'fruit' 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
+32 33 34 35 36) ('asserttrue' 'fruit' 37) ('dm_add' 'dense_matrix_def'
+38 2) ('assertnotequals' 'fruit' 13 14 15) ('dm_get' 'dense_matrix_def'
+39 40) ('dm_matmul' 'dense_matrix_def' 41 4) ('dm_init' 'dense_matrix_def'
+42 43) ('dm_numcols' 'dense_matrix_def' 44) ('dm_scalmul'
+'dense_matrix_def' 7) ('dm_set' 'dense_matrix_def' 45 46) ('dm_transpose'
+'dense_matrix_def' 47) ('dm_numrows' 'dense_matrix_def' 48) ('dm_clean'
+'dense_matrix_def' 49) ('dmatrix' 'constitutive' 50 51) ('gettestsummary'
+'fruit' 52) ('getfailedcount' 'fruit' 53) ('initializefruit' 'fruit' 54)
+('gettotalcount' 'fruit' 55) ('isallsuccessful' 'fruit' 56) (
+'runtestcase' 'fruit' 57 58) ('run_test_case' 'fruit' 57 58) ('dm_vecmul'
+'dense_matrix_def' 59 5))
+
+()
+
+()
+
+()
+
+(10 'add_fail_unit_' 'fruit' 'add_fail_unit_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 60 0 (61 62) () 0 () () () 0 0)
+11 'add_fail_' 'fruit' 'add_fail_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE ALWAYS_EXPLICIT) (
+UNKNOWN 0 0 0 UNKNOWN ()) 63 0 (64) () 0 () () () 0 0)
+25 'assert_eq_1d_string_' 'fruit' 'assert_eq_1d_string_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 65 0 (66 67 68 69) () 0 () () () 0 0)
+28 'assert_eq_1d_int_' 'fruit' 'assert_eq_1d_int_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 70 0 (71 72 73 74) () 0 () () () 0 0)
+30 'assert_eq_real_in_range_' 'fruit' 'assert_eq_real_in_range_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 75 0 (76 77 78 79) () 0 () ()
+() 0 0)
+29 'assert_eq_double_in_range_' 'fruit' 'assert_eq_double_in_range_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 80 0 (81 82 83 84) () 0 () ()
+() 0 0)
+27 'assert_eq_1d_double_' 'fruit' 'assert_eq_1d_double_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 85 0 (86 87 88 89) () 0 () () () 0 0)
+31 'assert_eq_complex_' 'fruit' 'assert_eq_complex_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 90 0 (91 92 93) () 0 () () () 0 0)
+35 'assert_eq_double_' 'fruit' 'assert_eq_double_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 94 0 (95 96 97) () 0 () () () 0 0)
+2 'dm_add_' 'dense_matrix_def' 'dm_add_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 98 0 0 DERIVED ()) 99 0
+(100 101) () 102 () () () 0 0)
+5 'dm_vec_mul_' 'dense_matrix_def' 'dm_vec_mul_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 103 0 0
+DERIVED ()) 104 0 (105 106) () 107 () () () 0 0)
+4 'dm_mat_mul_' 'dense_matrix_def' 'dm_mat_mul_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 98 0 0
+DERIVED ()) 108 0 (109 110) () 111 () () () 0 0)
+7 'dm_scal_mul_mat_scal_' 'dense_matrix_def' 'dm_scal_mul_mat_scal_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+DERIVED 98 0 0 DERIVED ()) 112 0 (113 114) () 115 () () () 0 0)
+6 'dm_scal_mul_scal_mat_' 'dense_matrix_def' 'dm_scal_mul_scal_mat_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+DERIVED 98 0 0 DERIVED ()) 116 0 (117 118) () 119 () () () 0 0)
+42 'dm_init_exc_' 'dense_matrix_def' 'dm_init_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 120 0 (121 122 123 124) () 0 () () () 0 0)
+39 'dm_get_exc_' 'dense_matrix_def' 'dm_get_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+125 0 (126 127 128 129) () 130 () () () 0 0)
+40 'dm_get_' 'dense_matrix_def' 'dm_get_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (REAL 8 0 0 REAL ())
+131 0 (132 133 134) () 135 () () () 0 0)
+43 'dm_init_' 'dense_matrix_def' 'dm_init_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 136
+0 (137 138 139) () 0 () () () 0 0)
+34 'assert_eq_real_' 'fruit' 'assert_eq_real_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 140 0 (141 142 143) () 0 () () () 0 0)
+49 'dm_clean_' 'dense_matrix_def' 'dm_clean_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 144 0 (145) () 0 () () () 0 0)
+9 'vec_scal_mul_vec_scal_' 'vector_def' 'vec_scal_mul_vec_scal_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+DERIVED 103 0 0 DERIVED ()) 146 0 (147 148) () 149 () () () 0 0)
+8 'vec_scal_mul_scal_vec_' 'vector_def' 'vec_scal_mul_scal_vec_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+DERIVED 103 0 0 DERIVED ()) 150 0 (151 152) () 153 () () () 0 0)
+45 'dm_set_exc_' 'dense_matrix_def' 'dm_set_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 154 0 (155 156 157 158 159) () 0 () () () 0 0)
+44 'dm_num_cols_' 'dense_matrix_def' 'dm_num_cols_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 160 0 (161) () 162 () () () 0 0)
+47 'dm_transpose_' 'dense_matrix_def' 'dm_transpose_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 98 0 0
+DERIVED ()) 163 0 (164) () 165 () () () 0 0)
+41 'dm_mat_mul_exc_' 'dense_matrix_def' 'dm_mat_mul_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 98 0 0
+DERIVED ()) 166 0 (167 168 169) () 170 () () () 0 0)
+59 'dm_vec_mul_exc_' 'dense_matrix_def' 'dm_vec_mul_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 103 0 0
+DERIVED ()) 171 0 (172 173 174) () 175 () () () 0 0)
+46 'dm_set_' 'dense_matrix_def' 'dm_set_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0
+UNKNOWN ()) 176 0 (177 178 179 180) () 0 () () () 0 0)
+15 'assert_not_equals_real_' 'fruit' 'assert_not_equals_real_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 181 0 (182 183 184) () 0 ()
+() () 0 0)
+37 'obsolete_assert_true_logical_' 'fruit' 'obsolete_assert_true_logical_'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 185 0 (186 187)
+() 0 () () () 0 0)
+16 'assert_eq_2d_double_in_range_' 'fruit' 'assert_eq_2d_double_in_range_'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 188 0 (189 190 191 192 193
+194) () 0 () () () 0 0)
+55 'obsolete_gettotalcount_' 'fruit' 'obsolete_gettotalcount_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 195 0 (196) () 0 () () () 0 0)
+14 'assert_not_equals_1d_real_' 'fruit' 'assert_not_equals_1d_real_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 197 0 (198 199 200) () 0 () () () 0 0)
+103 'vectort' 'vector_def' 'vectort' 1 ((DERIVED UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOC_COMP) (UNKNOWN 0 0 0 UNKNOWN ())
+0 0 () () 0 ((201 'dat' (REAL 8 0 0 REAL ()) (1 0 DEFERRED () ()) (
+UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOCATABLE
+DIMENSION) UNKNOWN-ACCESS ())) PUBLIC (() () () ()) () 0 0 58143611)
+13 'assert_not_equals_double_' 'fruit' 'assert_not_equals_double_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 202 0 (203 204 205) () 0 ()
+() () 0 0)
+36 'assert_eq_int_' 'fruit' 'assert_eq_int_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 206 0 (207 208 209) () 0 () () () 0 0)
+48 'dm_num_rows_' 'dense_matrix_def' 'dm_num_rows_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 210 0 (211) () 212 () () () 0 0)
+33 'assert_eq_logical_' 'fruit' 'assert_eq_logical_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 213 0 (214 215 216) () 0 () () () 0 0)
+38 'dm_add_exc_' 'dense_matrix_def' 'dm_add_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 98 0 0
+DERIVED ()) 217 0 (218 219 220) () 221 () () () 0 0)
+54 'obsolete_initializefruit_' 'fruit' 'obsolete_initializefruit_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+3 'vec_add_' 'vector_def' 'vec_add_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 103 0 0 DERIVED ()) 222
+0 (223 224) () 225 () () () 0 0)
+51 'dmatrix_linear_elastic_plane_strain_' 'constitutive'
+'dmatrix_linear_elastic_plane_strain_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 226
+0 (227 228 229) () 0 () () () 0 0)
+50 'dmatrix_linear_elastic_plane_strain_exc_' 'constitutive'
+'dmatrix_linear_elastic_plane_strain_exc_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0
+UNKNOWN ()) 230 0 (231 232 233 234) () 0 () () () 0 0)
+52 'obsolete_gettestsummary_' 'fruit' 'obsolete_gettestsummary_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+53 'obsolete_getfailedcount_' 'fruit' 'obsolete_getfailedcount_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 235 0 (236) () 0 () () () 0 0)
+58 'run_test_case_' 'fruit' 'run_test_case_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 237 0 (238) () 0 () () () 0 0)
+57 'run_test_case_named_' 'fruit' 'run_test_case_named_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 239 0 (240 241) () 0 () () () 0 0)
+17 'assert_eq_2d_real_in_range_' 'fruit' 'assert_eq_2d_real_in_range_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 242 0 (243 244 245 246 247
+248) () 0 () () () 0 0)
+56 'obsolete_isallsuccessful_' 'fruit' 'obsolete_isallsuccessful_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 249 0 (250) () 0 () () () 0 0)
+32 'assert_eq_string_' 'fruit' 'assert_eq_string_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 251 0 (252 253 254) () 0 () () () 0 0)
+24 'assert_eq_1d_complex_' 'fruit' 'assert_eq_1d_complex_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 255 0 (256 257 258 259) () 0
+() () () 0 0)
+22 'assert_eq_1d_double_in_range_' 'fruit' 'assert_eq_1d_double_in_range_'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 260 0 (261 262 263 264 265)
+() 0 () () () 0 0)
+18 'assert_eq_2d_complex_' 'fruit' 'assert_eq_2d_complex_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 266 0 (267 268 269 270 271)
+() 0 () () () 0 0)
+12 'obsolete_addsuccess_' 'fruit' 'obsolete_addsuccess_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+21 'assert_eq_2d_int_' 'fruit' 'assert_eq_2d_int_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 272 0 (273 274 275 276 277) () 0 () () () 0 0)
+20 'assert_eq_2d_double_' 'fruit' 'assert_eq_2d_double_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 278 0 (279 280 281 282 283) () 0 () () () 0 0)
+19 'assert_eq_2d_real_' 'fruit' 'assert_eq_2d_real_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 284 0 (285 286 287 288 289) () 0 () () () 0 0)
+23 'assert_eq_1d_real_in_range_' 'fruit' 'assert_eq_1d_real_in_range_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 290 0 (291 292 293 294 295)
+() 0 () () () 0 0)
+26 'assert_eq_1d_real_' 'fruit' 'assert_eq_1d_real_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 296 0 (297 298 299 300) () 0 () () () 0 0)
+301 'acc_max' 'system_constants' 'acc_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+302 'acc_min' 'system_constants' 'acc_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0 () () () 0
+0)
+303 'add_success' 'fruit' 'add_success' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0
+() () 0 () () () 0 0)
+304 'alloc' 'log_messages' 'alloc' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+305 'assert_true' 'fruit' 'assert_true' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0
+UNKNOWN ()) 306 0 (307 308) () 0 () () () 0 0)
+309 'bfcrdr' 'log_messages' 'bfcrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0)
+310 'bnddat' 'log_messages' 'bnddat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+311 'bndrdr' 'log_messages' 'bndrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+312 'bsymat' 'log_messages' 'bsymat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
+313 'cnsmat' 'log_messages' 'cnsmat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
+314 'constitutive_test' 'constitutive_test' 'constitutive_test' 1 ((
+MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0
+UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+315 'coord_max' 'system_constants' 'coord_max' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0
+() () () 0 0)
+316 'coord_min' 'system_constants' 'coord_min' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0
+() () () 0 0)
+317 'dimen' 'log_messages' 'dimen' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+318 'disp_max' 'system_constants' 'disp_max' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0
+() () () 0 0)
+319 'disp_min' 'system_constants' 'disp_min' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0
+() () () 0 0)
+320 'dmnrdr' 'log_messages' 'dmnrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0)
+321 'dnsmat' 'log_messages' 'dnsmat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0)
+322 'dtime_max' 'system_constants' 'dtime_max' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.27100000000000@4') () 0 ()
+() () 0 0)
+323 'dtime_min' 'system_constants' 'dtime_min' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.afebff0bcb24a8@-9') () 0
+() () () 0 0)
+324 'e_max' 'system_constants' 'e_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+325 'e_min' 'system_constants' 'e_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0)
+326 'exceed' 'log_messages' 'exceed' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
+327 'exists' 'log_messages' 'exists' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
+328 'failed_assert_action' 'fruit' 'failed_assert_action' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 329 0 (330 331 332) () 0 () () () 0 0)
+333 'flddat' 'log_messages' 'flddat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
+334 'formt' 'log_messages' 'formt' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0)
+335 'fruit_summary' 'fruit' 'fruit_summary' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0
+() () 0 () () () 0 0)
+336 'get_failed_count' 'fruit' 'get_failed_count' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 337 0 (338) () 0 () () () 0 0)
+339 'get_last_message' 'fruit' 'get_last_message' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (CHARACTER 1 0 0
+CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 339
+() () () 0 0)
+340 'get_total_count' 'fruit' 'get_total_count' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 341 0 (342) () 0 () () () 0 0)
+343 'get_unit_name' 'fruit' 'get_unit_name' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 344
+0 (345) () 0 () () () 0 0)
+346 'ictrdr' 'log_messages' 'ictrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0)
+347 'icvrdr' 'log_messages' 'icvrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0)
+348 'init_fruit' 'fruit' 'init_fruit' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0
+() () 0 () () () 0 0)
+349 'is_all_successful' 'fruit' 'is_all_successful' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 350 0 (351) () 0 () () () 0 0)
+352 'is_last_passed' 'fruit' 'is_last_passed' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 352 () () () 0 0)
+353 'kbcrdr' 'log_messages' 'kbcrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0)
+354 'linslv' 'log_messages' 'linslv' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '12') () 0 () () () 0 0)
+355 'log_closelogfile' 'log_message_control' 'log_closelogfile' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+356 'log_getfilename' 'log_message_control' 'log_getfilename' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0
+INTEGER ()) 0 '200'))) 0 0 () () 357 () () () 0 0)
+358 'log_initlogfile' 'log_message_control' 'log_initlogfile' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+359 'log_messages' 'log_messages' 'log_messages' 1 ((MODULE
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN
+()) 0 0 () () 0 () () () 0 0)
+360 'log_printlogmsg' 'log_message_control' 'log_printlogmsg' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 361 0 (362 363) () 0 () () () 0 0)
+364 'log_setfilename' 'log_message_control' 'log_setfilename' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 365 0 (366) () 0 () () () 0 0)
+98 'matrixt' 'dense_matrix_def' 'matrixt' 1 ((DERIVED UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOC_COMP) (UNKNOWN 0 0 0 UNKNOWN ())
+0 0 () () 0 ((367 'dat' (REAL 8 0 0 REAL ()) (2 0 DEFERRED () () () ())
+(UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOCATABLE
+DIMENSION) UNKNOWN-ACCESS ())) PUBLIC (() () () ()) () 0 0 72249915)
+368 'max_boundels' 'system_constants' 'max_boundels' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2000') () 0 ()
+() () 0 0)
+369 'max_dofs' 'system_constants' 'max_dofs' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3990') () 0 ()
+() () 0 0)
+370 'max_elements' 'system_constants' 'max_elements' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5000') () 0 ()
+() () 0 0)
+371 'max_materials' 'system_constants' 'max_materials' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '30') () 0 ()
+() () 0 0)
+372 'max_nodes' 'system_constants' 'max_nodes' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2000') () 0 ()
+() () 0 0)
+373 'max_timesteps' 'system_constants' 'max_timesteps' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '10000') () 0
+() () () 0 0)
+374 'maxlen' 'system_constants' 'maxlen' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '200') () 0 () () () 0 0)
+375 'msg_getmsg' 'log_messages' 'msg_getmsg' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '200')))
+376 0 (377) () 378 () () () 0 0)
+379 'msg_getsdr' 'log_messages' 'msg_getsdr' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '200')))
+380 0 (381) () 382 () () () 0 0)
+383 'mtldat' 'log_messages' 'mtldat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
+384 'mtlrdr' 'log_messages' 'mtlrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14') () 0 () () () 0 0)
+385 'nbcrdr' 'log_messages' 'nbcrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '15') () 0 () () () 0 0)
+386 'ndim' 'system_constants' 'ndim' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+387 'nnodel' 'system_constants' 'nnodel' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+388 'nnodelb' 'system_constants' 'nnodelb' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+389 'ntns' 'system_constants' 'ntns' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+390 'nu_max' 'system_constants' 'nu_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.7fbe76c8b43958@0') () 0 () () () 0 0)
+391 'nu_min' 'system_constants' 'nu_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0)
+392 'ok' 'log_messages' 'ok' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0)
+393 'one_third' 'system_constants' 'one_third' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.55555555555554@0') () 0 ()
+() () 0 0)
+394 'posdef' 'log_messages' 'posdef' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
+395 'posit' 'log_messages' 'posit' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0)
+396 'rho_max' 'system_constants' 'rho_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+397 'rho_min' 'system_constants' 'rho_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0)
+398 'set_unit_name' 'fruit' 'set_unit_name' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 399
+0 (400) () 0 () () () 0 0)
+401 'sig_max' 'system_constants' 'sig_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+402 'sig_min' 'system_constants' 'sig_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0 () () () 0
+0)
+403 'str_max' 'system_constants' 'str_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.28f5c28f5c28f6@-1') () 0 () () () 0 0)
+404 'str_min' 'system_constants' 'str_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.28f5c28f5c28f6@-1') () 0 () () () 0
+0)
+405 'str_small' 'system_constants' 'str_small' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.28f5c28f5c28f6@-1') () 0
+() () () 0 0)
+406 'system_constants' 'system_constants' 'system_constants' 1 ((MODULE
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN
+()) 0 0 () () 0 () () () 0 0)
+407 'sze' 'log_messages' 'sze' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0)
+408 'test_constitutive_exceed' 'constitutive_test'
+'test_constitutive_exceed' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
+UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 ()
+() 0 () () () 0 0)
+409 'test_constitutive_val' 'constitutive_test' 'test_constitutive_val'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+410 'test_constitutive_zero' 'constitutive_test' 'test_constitutive_zero'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+411 'tnswtr' 'log_messages' 'tnswtr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '16') () 0 () () () 0 0)
+412 'typ' 'log_messages' 'typ' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0)
+413 'vector' 'log_messages' 'vector' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '17') () 0 () () () 0 0)
+414 'vecwtr' 'log_messages' 'vecwtr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '18') () 0 () () () 0 0)
+415 'vel_max' 'system_constants' 'vel_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+416 'vel_min' 'system_constants' 'vel_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0 () () () 0
+0)
+366 'fname' '' 'fname' 365 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+357 'fname' '' 'fname' 417 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN UNKNOWN 0 0 RESULT) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '200'))) 0 0 () () 0 () () () 0 0)
+363 'sdr' '' 'sdr' 361 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+362 'msg' '' 'msg' 361 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+378 'exc' '' 'exc' 376 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0
+INTEGER ()) 0 '200'))) 0 0 () () 0 () () () 0 0)
+308 'message' '' 'message' 306 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+331 'got' '' 'got' 329 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+330 'expected' '' 'expected' 329 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+377 'code' '' 'code' 376 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+342 'count' '' 'count' 341 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+351 'result' '' 'result' 350 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+345 'value' '' 'value' 344 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+332 'message' '' 'message' 329 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+187 'message' '' 'message' 185 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+208 'var2' '' 'var2' 206 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+207 'var1' '' 'var1' 206 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+209 'message' '' 'message' 206 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+96 'var2' '' 'var2' 94 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+97 'message' '' 'message' 94 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+143 'message' '' 'message' 140 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+142 'var2' '' 'var2' 140 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+141 'var1' '' 'var1' 140 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+95 'var1' '' 'var1' 94 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+214 'var1' '' 'var1' 213 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+216 'message' '' 'message' 213 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+215 'var2' '' 'var2' 213 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+252 'var1' '' 'var1' 251 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+254 'message' '' 'message' 251 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+253 'var2' '' 'var2' 251 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+93 'message' '' 'message' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+92 'var2' '' 'var2' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0)
+91 'var1' '' 'var1' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0)
+78 'var3' '' 'var3' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+79 'message' '' 'message' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+83 'var3' '' 'var3' 80 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+82 'var2' '' 'var2' 80 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+81 'var1' '' 'var1' 80 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+77 'var2' '' 'var2' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+76 'var1' '' 'var1' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+72 'var2' '' 'var2' 70 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 73 ())) 0 () () () 0 0)
+71 'var1' '' 'var1' 70 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 73 ())) 0 () () () 0 0)
+74 'message' '' 'message' 70 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+73 'n' '' 'n' 70 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+84 'message' '' 'message' 80 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+88 'n' '' 'n' 85 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+87 'var2' '' 'var2' 85 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+88 ())) 0 () () () 0 0)
+297 'var1' '' 'var1' 296 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+299 ())) 0 () () () 0 0)
+298 'var2' '' 'var2' 296 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+299 ())) 0 () () () 0 0)
+89 'message' '' 'message' 85 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+300 'message' '' 'message' 296 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+299 'n' '' 'n' 296 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+86 'var1' '' 'var1' 85 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+88 ())) 0 () () () 0 0)
+66 'var1' '' 'var1' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 68 ())) 0 () () () 0 0)
+68 'n' '' 'n' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+69 'message' '' 'message' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+258 'n' '' 'n' 255 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+257 'var2' '' 'var2' 255 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 258 ())) 0 () () () 0 0)
+256 'var1' '' 'var1' 255 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 258 ())) 0 () () () 0 0)
+291 'var1' '' 'var1' 290 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+293 ())) 0 () () () 0 0)
+259 'message' '' 'message' 255 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+293 'n' '' 'n' 290 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+294 'var3' '' 'var3' 290 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+295 'message' '' 'message' 290 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+292 'var2' '' 'var2' 290 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+293 ())) 0 () () () 0 0)
+67 'var2' '' 'var2' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 68 ())) 0 () () () 0 0)
+263 'n' '' 'n' 260 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+262 'var2' '' 'var2' 260 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+263 ())) 0 () () () 0 0)
+261 'var1' '' 'var1' 260 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+263 ())) 0 () () () 0 0)
+186 'var1' '' 'var1' 185 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+273 'var1' '' 'var1' 272 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 275 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
+VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 276 ())) 0 () () () 0 0)
+274 'var2' '' 'var2' 272 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 275 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
+VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 276 ())) 0 () () () 0 0)
+279 'var1' '' 'var1' 278 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+281 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 282 ())) 0 () () () 0 0)
+277 'message' '' 'message' 272 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+280 'var2' '' 'var2' 278 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+281 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 282 ())) 0 () () () 0 0)
+276 'm' '' 'm' 272 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+275 'n' '' 'n' 272 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+265 'message' '' 'message' 260 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+282 'm' '' 'm' 278 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+283 'message' '' 'message' 278 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+288 'm' '' 'm' 284 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+287 'n' '' 'n' 284 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+286 'var2' '' 'var2' 284 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+287 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 288 ())) 0 () () () 0 0)
+285 'var1' '' 'var1' 284 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+287 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 288 ())) 0 () () () 0 0)
+268 'var2' '' 'var2' 266 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (2 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 269 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
+VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 270 ())) 0 () () () 0 0)
+267 'var1' '' 'var1' 266 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (2 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 269 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
+VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 270 ())) 0 () () () 0 0)
+270 'm' '' 'm' 266 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+271 'message' '' 'message' 266 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+269 'n' '' 'n' 266 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+289 'message' '' 'message' 284 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+245 'n' '' 'n' 242 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+244 'var2' '' 'var2' 242 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+245 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 246 ())) 0 () () () 0 0)
+243 'var1' '' 'var1' 242 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+245 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 246 ())) 0 () () () 0 0)
+248 'message' '' 'message' 242 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+247 'var3' '' 'var3' 242 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+191 'n' '' 'n' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+190 'var2' '' 'var2' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+191 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 192 ())) 0 () () () 0 0)
+189 'var1' '' 'var1' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+191 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 192 ())) 0 () () () 0 0)
+193 'var3' '' 'var3' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+192 'm' '' 'm' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+182 'var1' '' 'var1' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+184 'message' '' 'message' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+198 'var1' '' 'var1' 197 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+200 ())) 0 () () () 0 0)
+183 'var2' '' 'var2' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+194 'message' '' 'message' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+199 'var2' '' 'var2' 197 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+200 ())) 0 () () () 0 0)
+203 'var1' '' 'var1' 202 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+205 'message' '' 'message' 202 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+64 'message' '' 'message' 63 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+196 'count' '' 'count' 195 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+62 'message' '' 'message' 60 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+61 'unitname' '' 'unitname' 60 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+204 'var2' '' 'var2' 202 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+236 'count' '' 'count' 235 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+238 'tc' '' 'tc' 237 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY
+UNKNOWN 0 0 DUMMY SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 418 0 () () 0 ()
+() () 0 0)
+240 'tc' '' 'tc' 239 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC BODY UNKNOWN
+0 0 DUMMY SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 419 0 () () 0 () () ()
+0 0)
+241 'tc_name' '' 'tc_name' 239 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+250 'result' '' 'result' 249 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+200 'n' '' 'n' 197 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+246 'm' '' 'm' 242 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+281 'n' '' 'n' 278 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+264 'var3' '' 'var3' 260 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+307 'var1' '' 'var1' 306 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+338 'count' '' 'count' 337 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+400 'value' '' 'value' 399 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+381 'code' '' 'code' 380 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+382 'sdr' '' 'sdr' 380 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0
+INTEGER ()) 0 '200'))) 0 0 () () 0 () () () 0 0)
+227 'emod' '' 'emod' 226 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+231 'emod' '' 'emod' 230 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+229 'dmat' '' 'dmat' 226 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+232 'nu' '' 'nu' 230 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+233 'dmat' '' 'dmat' 230 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+234 'exc' '' 'exc' 230 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+228 'nu' '' 'nu' 226 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+137 'self' '' 'self' 136 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+139 'n' '' 'n' 136 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+122 'm' '' 'm' 120 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+123 'n' '' 'n' 120 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+124 'exc' '' 'exc' 120 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+121 'self' '' 'self' 120 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+145 'self' '' 'self' 144 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+161 'self' '' 'self' 160 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+162 'n' '' 'n' 160 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+134 'j' '' 'j' 131 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+133 'i' '' 'i' 131 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+132 'self' '' 'self' 131 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+130 'v' '' 'v' 125 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+129 'exc' '' 'exc' 125 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+128 'j' '' 'j' 125 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+127 'i' '' 'i' 125 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+126 'self' '' 'self' 125 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+135 'v' '' 'v' 131 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+179 'j' '' 'j' 176 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+178 'i' '' 'i' 176 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+180 'v' '' 'v' 176 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+156 'i' '' 'i' 154 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+157 'j' '' 'j' 154 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+158 'v' '' 'v' 154 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+101 'other' '' 'other' 99 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+100 'self' '' 'self' 99 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+102 'new' '' 'new' 99 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+159 'exc' '' 'exc' 154 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+155 'self' '' 'self' 154 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+177 'self' '' 'self' 176 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+113 'self' '' 'self' 112 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+115 'new' '' 'new' 112 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+105 'self' '' 'self' 104 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+106 'other' '' 'other' 104 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 103 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+107 'new' '' 'new' 104 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 103 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+114 'k' '' 'k' 112 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+173 'other' '' 'other' 171 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 103 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+172 'self' '' 'self' 171 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+175 'new' '' 'new' 171 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 103 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+110 'other' '' 'other' 108 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+109 'self' '' 'self' 108 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+111 'new' '' 'new' 108 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+174 'exc' '' 'exc' 171 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+138 'm' '' 'm' 136 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+168 'other' '' 'other' 166 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+169 'exc' '' 'exc' 166 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+117 'k' '' 'k' 116 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+118 'self' '' 'self' 116 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+164 'self' '' 'self' 163 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+165 'new' '' 'new' 163 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+119 'new' '' 'new' 116 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+152 'self' '' 'self' 150 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 103 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+148 'k' '' 'k' 146 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+147 'self' '' 'self' 146 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 103 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+149 'new' '' 'new' 146 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 103 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+153 'new' '' 'new' 150 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 103 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+151 'k' '' 'k' 150 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+170 'new' '' 'new' 166 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+167 'self' '' 'self' 166 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+211 'self' '' 'self' 210 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+212 'm' '' 'm' 210 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+219 'other' '' 'other' 217 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+218 'self' '' 'self' 217 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+221 'new' '' 'new' 217 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 98 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+220 'exc' '' 'exc' 217 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+223 'self' '' 'self' 222 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 103 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+225 'new' '' 'new' 222 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 103 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+224 'other' '' 'other' 222 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 103 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+)
+
+('acc_max' 0 301 'acc_min' 0 302 'add_success' 0 303 'alloc' 0 304
+'assert_true' 0 305 'bfcrdr' 0 309 'bnddat' 0 310 'bndrdr' 0 311 'bsymat'
+0 312 'cnsmat' 0 313 'constitutive_test' 0 314 'coord_max' 0 315
+'coord_min' 0 316 'dimen' 0 317 'disp_max' 0 318 'disp_min' 0 319 'dmnrdr'
+0 320 'dnsmat' 0 321 'dtime_max' 0 322 'dtime_min' 0 323 'e_max' 0 324
+'e_min' 0 325 'exceed' 0 326 'exists' 0 327 'failed_assert_action' 0 328
+'flddat' 0 333 'formt' 0 334 'fruit_summary' 0 335 'get_failed_count' 0
+336 'get_last_message' 0 339 'get_total_count' 0 340 'get_unit_name' 0
+343 'ictrdr' 0 346 'icvrdr' 0 347 'init_fruit' 0 348 'is_all_successful'
+0 349 'is_last_passed' 0 352 'kbcrdr' 0 353 'linslv' 0 354
+'log_closelogfile' 0 355 'log_getfilename' 0 356 'log_initlogfile' 0 358
+'log_messages' 0 359 'log_printlogmsg' 0 360 'log_setfilename' 0 364
+'matrixt' 0 98 'max_boundels' 0 368 'max_dofs' 0 369 'max_elements' 0
+370 'max_materials' 0 371 'max_nodes' 0 372 'max_timesteps' 0 373 'maxlen'
+0 374 'msg_getmsg' 0 375 'msg_getsdr' 0 379 'mtldat' 0 383 'mtlrdr' 0
+384 'nbcrdr' 0 385 'ndim' 0 386 'nnodel' 0 387 'nnodelb' 0 388 'ntns' 0
+389 'nu_max' 0 390 'nu_min' 0 391 'ok' 0 392 'one_third' 0 393 'posdef'
+0 394 'posit' 0 395 'rho_max' 0 396 'rho_min' 0 397 'set_unit_name' 0
+398 'sig_max' 0 401 'sig_min' 0 402 'str_max' 0 403 'str_min' 0 404
+'str_small' 0 405 'system_constants' 0 406 'sze' 0 407
+'test_constitutive_exceed' 0 408 'test_constitutive_val' 0 409
+'test_constitutive_zero' 0 410 'tnswtr' 0 411 'typ' 0 412 'vector' 0 413
+'vectort' 0 103 'vecwtr' 0 414 'vel_max' 0 415 'vel_min' 0 416)

Examples/SoilWaterStructureInteraction/dynsws/trunk/dense_matrix_def.f90

+! ------------------------------------------------------------------------
+!>  \brief Module defining Dense Matrix data type
+! ------------------------------------------------------------------------
+MODULE dense_matrix_def
+USE log_message_control !> Print log/error messages
+USE log_messages        !> Log/error codes
+USE vector_def          !> Vector data type
+
+IMPLICIT NONE
+PRIVATE
+
+
+
+! ************************************************************************
+! EXPORTS
+! ************************************************************************
+
+
+!> Exported data types
+PUBLIC :: matrixT
+
+!> Exported interfaces
+PUBLIC :: dm_init, dm_clean, &
+          dm_numRows, dm_numCols, &
+          dm_get, dm_set, &
+          dm_add, OPERATOR (+), &
+          dm_scalMul, dm_vecMul, dm_matMul, OPERATOR (*), &
+          dm_transpose
+
+
+
+! ************************************************************************
+! LOCAL CONSTANTS
+! ************************************************************************
+
+
+!> Sender code for DeNSe MATrix module
+INTEGER, PARAMETER :: sdr = DNSMAT
+
+
+
+! ************************************************************************
+! DATA TYPES
+! ************************************************************************
+
+
+! ------------------------------------------------------------------------
+!>  \brief Dense Matrix ADT structure
+!!
+!!  \param dat  Array to store matrix data
+! ------------------------------------------------------------------------
+TYPE matrixT
+  DOUBLE PRECISION, ALLOCATABLE :: dat(:,:)
+END TYPE matrixT
+
+
+
+! ************************************************************************
+! INTERFACES
+! ************************************************************************
+
+
+!>  \brief Interface to constructor
+INTERFACE dm_init
+  MODULE PROCEDURE dm_init_
+  MODULE PROCEDURE dm_init_exc_
+END INTERFACE dm_init
+
+!>  \brief Interface to destructor
+INTERFACE dm_clean
+  MODULE PROCEDURE dm_clean_
+END INTERFACE dm_clean
+
+!>  \brief Interface to number of rows
+INTERFACE dm_numRows
+  MODULE PROCEDURE dm_num_rows_
+END INTERFACE dm_numRows
+
+!>  \brief Interface to number of columns
+INTERFACE dm_numCols
+  MODULE PROCEDURE dm_num_cols_
+END INTERFACE dm_numCols
+
+!>  \brief Interface to getter for individual entries in matrix
+INTERFACE dm_get
+  MODULE PROCEDURE dm_get_
+  MODULE PROCEDURE dm_get_exc_
+END INTERFACE dm_get
+
+!>  \brief Interface to setter for individual entries in matrix
+INTERFACE dm_set
+  MODULE PROCEDURE dm_set_
+  MODULE PROCEDURE dm_set_exc_
+END INTERFACE dm_set
+
+!>  \brief Interface for addition of two matrixT
+INTERFACE dm_add
+  MODULE PROCEDURE dm_add_
+  MODULE PROCEDURE dm_add_exc_
+END INTERFACE dm_add
+
+!>  \brief Operator overload for addition
+INTERFACE OPERATOR (+)
+  MODULE PROCEDURE dm_add_
+END INTERFACE
+
+!>  \brief Interface for scalar multiplication
+INTERFACE dm_scalMul
+  MODULE PROCEDURE dm_scal_mul_mat_scal_
+END INTERFACE dm_scalMul
+
+!>  \brief Interface for matrix-vector multiplication
+INTERFACE dm_vecMul
+  MODULE PROCEDURE dm_vec_mul_
+  MODULE PROCEDURE dm_vec_mul_exc_
+END INTERFACE dm_vecMul
+
+!>  \brief Interface for matrix-matrix multiplication
+INTERFACE dm_matMul
+  MODULE PROCEDURE dm_mat_mul_
+  MODULE PROCEDURE dm_mat_mul_exc_
+END INTERFACE dm_matMul
+
+!>  \brief Operator overload for multiplication
+!!  (includes scalar, matrix-vector, and matrix-matrix multiplication)
+INTERFACE OPERATOR (*)
+  MODULE PROCEDURE dm_scal_mul_mat_scal_
+  MODULE PROCEDURE dm_scal_mul_scal_mat_
+  MODULE PROCEDURE dm_vec_mul_
+  MODULE PROCEDURE dm_mat_mul_
+END INTERFACE
+
+!>  \brief Interface for matrix transpose
+INTERFACE dm_transpose
+  MODULE PROCEDURE dm_transpose_
+END INTERFACE dm_transpose
+
+
+
+CONTAINS
+
+
+
+! ************************************************************************
+! ACCESS PROGRAMS
+! ************************************************************************
+
+
+! ------------------------------------------------------------------------
+!>  \brief Constructor for matrixT (non-exception checking)
+!!
+!!  \param self Reference to the dense matrix to be initialized
+!!  \param m    Number of rows in the matrix
+!!  \param n    Number of columns in the matrix
+!!
+!!  This routine initializes the matrixT object referenced by self.
+!!  The data structures contained in self are allocated and initial values
+!!  are set to zero.
+! ------------------------------------------------------------------------
+SUBROUTINE dm_init_ (self, m,n)
+  TYPE(matrixT), INTENT(INOUT) :: self
+  INTEGER, INTENT(IN) :: m,n
+  INTEGER :: i,j    !> loop variables
+
+  !> only reallocate if new dimensions do not match existing dimensions
+  IF (dm_numRows(self).NE.m .OR. dm_numCols(self).NE.n) THEN
+
+    !> reset object if it was previously initialized
+    CALL dm_clean(self)
+
+    !> allocate new data structure
+    ALLOCATE(self%dat(m,n))
+
+  END IF
+
+  !> ensure data is initialized to zero
+  DO j = 1,n
+    DO i = 1,m
+      self%dat(i,j) = 0.d0
+    END DO
+  END DO
+
+END SUBROUTINE dm_init_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Constructor for matrixT (exception checking)
+!!
+!!  \param self Reference to the dense matrix to be initialized
+!!  \param m    Number of rows in the matrix
+!!  \param n    Number of columns in the matrix
+!!  \param exc  Error code
+!!
+!!  This routine initializes the matrixT object referenced by self.
+!!  The data structures contained in self are allocated and initial values
+!!  are set to zero. If the specified dimensions are invalid, a SZE
+!!  exception is returned. If allocation of data structures fails, an
+!!  ALLOC exception is returned.
+! ------------------------------------------------------------------------
+SUBROUTINE dm_init_exc_ (self, m,n, exc)
+  TYPE(matrixT), INTENT(INOUT) :: self
+  INTEGER, INTENT(IN) :: m,n
+  INTEGER, INTENT(OUT) :: exc
+  INTEGER :: e      !> allocation info code
+  INTEGER :: i,j    !> loop variables
+
+  !> if dimensions are invalid, raise SZE exception
+  IF (m.LE.0 .OR. n.LE.0) THEN
+    exc=SZE
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> only reallocate if new dimensions do not match existing dimensions
+  IF (dm_numRows(self).NE.m .OR. dm_numCols(self).NE.n) THEN
+
+    !> reset object if it was previously initialized
+    CALL dm_clean(self)
+
+    !> allocate new data structure for matrix storage
+    ALLOCATE(self%dat(m,n), STAT=e)
+
+    !> if error code is returned, raise ALLOC exception
+    IF (e.NE.0) THEN
+      exc=ALLOC
+      CALL log_printLogMsg(exc,sdr)
+      RETURN
+    ELSE
+      exc=OK
+    END IF
+
+  END IF
+
+  !> ensure data is initialized to zero
+  DO j = 1,n
+    DO i = 1,m
+      self%dat(i,j) = 0.d0
+    END DO
+  END DO
+
+END SUBROUTINE dm_init_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Destructor for matrixT
+!!
+!!  \param self Reference to the dense matrix to be destroyed
+!!
+!!  This routine deallocates existing data structures.
+! ------------------------------------------------------------------------
+SUBROUTINE dm_clean_ (self)
+  TYPE(matrixT), INTENT(INOUT) :: self
+
+  IF (ALLOCATED(self%dat)) DEALLOCATE(self%dat)
+
+END SUBROUTINE dm_clean_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for number of rows
+!!
+!!  \param  self  Reference to the dense matrix object
+!!  \return m     Number of rows in the matrix
+!!
+!!  This routine determines the number of rows allocated to the matrix
+!!  object. If the matrix is not initialized it returns 0.
+! ------------------------------------------------------------------------
+FUNCTION dm_num_rows_ (self) RESULT(m)
+  TYPE(matrixT), INTENT(IN) :: self
+  INTEGER :: m
+
+  !> if data is initialized, return number of rows
+  IF (ALLOCATED(self%dat)) THEN
+    m = SIZE(self%dat,1)
+  ELSE
+    m = 0   !> if not initialized, there are no rows
+  END IF
+
+END FUNCTION dm_num_rows_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for number of columns
+!!
+!!  \param  self  Reference to the dense matrix object
+!!  \return n     Number of columns in the matrix
+!!
+!!  This routine determines the number of columns allocated to the matrix
+!!  object. If the matrix is not initialized it returns 0.
+! ------------------------------------------------------------------------
+FUNCTION dm_num_cols_ (self) RESULT(n)
+  TYPE(matrixT), INTENT(IN) :: self
+  INTEGER :: n
+
+  !> if data is initialized, return number of columns
+  IF (ALLOCATED(self%dat)) THEN
+    n = SIZE(self%dat,2)
+  ELSE
+    n = 0   !> if not initialized, there are no columns
+  END IF
+
+END FUNCTION dm_num_cols_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for matrix entries (non-exception checking)
+!!
+!!  \param  self  Reference to the dense matrix object
+!!  \param  i     Row index
+!!  \param  j     Column index
+!!  \return v     Value at location (i,j) of the matrix
+!!
+!!  This routine determines the value at a particular location in the
+!!  matrix.
+! ------------------------------------------------------------------------
+FUNCTION dm_get_ (self, i,j) RESULT(v)
+  TYPE(matrixT), INTENT(IN) :: self
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION :: v
+
+  v = self%dat(i,j)
+
+END FUNCTION dm_get_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for matrix entries (exception checking)
+!!
+!!  \param  self  Reference to the dense matrix object
+!!  \param  i     Row index
+!!  \param  j     Column index
+!!  \param  exc   Error code
+!!  \return v     Value at location (i,j) of the matrix
+!!
+!!  This routine determines the value at a particular location in the
+!!  matrix. If the location is not inside the matrix, it returns a POSIT
+!!  exception.
+! ------------------------------------------------------------------------
+FUNCTION dm_get_exc_ (self, i,j, exc) RESULT(v)
+  TYPE(matrixT), INTENT(IN) :: self
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  DOUBLE PRECISION :: v
+
+  !> make sure desired indices are inside the matrix
+  IF (i.GT.dm_numRows(self) .OR. i.LE.0 &
+      .OR. j.GT.dm_numCols(self) .OR. j.LE.0) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    v = 0.d0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception getter
+  v = dm_get(self, i,j)
+
+END FUNCTION dm_get_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for matrix entries (non-exception checking)
+!!
+!!  \param self Reference to the dense matrix object
+!!  \param i    Row index
+!!  \param j    Column index
+!!  \param v    Value to be stored at location (i,j) of the matrix
+!!
+!!  This routine sets the value at a particular location in the
+!!  matrix.
+! ------------------------------------------------------------------------
+SUBROUTINE dm_set_ (self, i,j,v)
+  TYPE(matrixT), INTENT(INOUT) :: self
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: v
+
+  self%dat(i,j) = v
+
+END SUBROUTINE dm_set_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for matrix entries (exception checking)
+!!
+!!  \param self Reference to the dense matrix object
+!!  \param i    Row index
+!!  \param j    Column index
+!!  \param v    Value to be stored at location (i,j) of the matrix
+!!  \param exc  Error code
+!!
+!!  This routine sets the value at a particular location in the
+!!  matrix. If the location is not inside the matrix, it returns a POSIT
+!!  exception.
+! ------------------------------------------------------------------------
+SUBROUTINE dm_set_exc_ (self, i,j,v, exc)
+  TYPE(matrixT), INTENT(INOUT) :: self
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: v
+  INTEGER, INTENT(OUT) :: exc
+
+  !> make sure desired indices are inside the matrix
+  IF (i.GT.dm_numRows(self) .OR. i.LE.0 &
+      .OR. j.GT.dm_numCols(self) .OR. j.LE.0) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception setter
+  CALL dm_set(self, i,j,v)
+
+END SUBROUTINE dm_set_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Add two dense matrix objects (non-exception checking)
+!!
+!!  \param  self  Reference to the first (left-hand) dense matrix object
+!!  \param  other Reference to the second (right-hand) dense matrix object
+!!  \return new   Reference to the resulting banded dense object
+!!
+!!  This routine adds two dense matrix objects.
+! ------------------------------------------------------------------------
+FUNCTION dm_add_ (self,other) RESULT(new)
+  TYPE(matrixT), INTENT(IN) :: self,other
+  TYPE(matrixT) :: new
+
+  !> initialize solution matrix
+  CALL dm_init(new, dm_numRows(self),dm_numCols(self))
+
+  !> Add the matrices (using array ops for efficiency)
+  new%dat = self%dat + other%dat
+
+END FUNCTION dm_add_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Add two dense matrix objects (exception checking)
+!!
+!!  \param  self  Reference to the first (left-hand) dense matrix object
+!!  \param  other Reference to the second (right-hand) dense matrix object
+!!  \param  exc   Error code
+!!  \return new   Reference to the resulting dense matrix object
+!!
+!!  This routine adds two dense matrix objects. If the dimensions of the
+!!  two input matrices do not match, it returns a DIMEN exception.
+! ------------------------------------------------------------------------
+FUNCTION dm_add_exc_ (self,other, exc) RESULT(new)
+  TYPE(matrixT), INTENT(IN) :: self,other
+  INTEGER, INTENT(OUT) :: exc
+  TYPE(matrixT) :: new
+
+  !> make sure that the two matrices have the same number of rows
+  IF(dm_numRows(self).NE.dm_numRows(other) &
+          .OR. dm_numCols(self).NE.dm_numCols(other)) THEN
+    exc=DIMEN
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  new = dm_add(self,other)
+
+END FUNCTION dm_add_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Scalar multiplication (self*k version)
+!!
+!!  \param  self  Reference to the dense matrix object
+!!  \param  k     Scalar multiplication factor
+!!  \return new   Reference to the resulting dense matrix object
+!!
+!!  This routine multiplies a dense matrix by a scalar factor.
+! ------------------------------------------------------------------------
+FUNCTION dm_scal_mul_mat_scal_ (self, k) RESULT(new)
+  TYPE(matrixT), INTENT(IN) :: self
+  DOUBLE PRECISION, INTENT(IN) :: k
+  TYPE(matrixT) :: new
+
+  !> initialize solution matrix
+  CALL dm_init(new, dm_numRows(self),dm_numCols(self))
+
+  !> perform multiplication
+  new%dat = k * self%dat
+
+END FUNCTION dm_scal_mul_mat_scal_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Scalar multiplication (k*self version)
+!!
+!!  \param  self  Reference to the dense matrix object
+!!  \param  k     Scalar multiplication factor
+!!  \return new   Reference to the resulting dense matrix object
+!!
+!!  This routine multiplies a dense matrix by a scalar factor. The
+!!  overload is necessary for the OPERATOR (*) overload. This version
+!!  simply calls the other version for better maintainability.
+! ------------------------------------------------------------------------
+FUNCTION dm_scal_mul_scal_mat_ (k, self) RESULT(new)
+  DOUBLE PRECISION, INTENT(IN) :: k
+  TYPE(matrixT), INTENT(IN) :: self
+  TYPE(matrixT) :: new
+
+  new = dm_scalMul(self,k)
+
+END FUNCTION dm_scal_mul_scal_mat_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Post-multiplication of a dense matrix by a vector (non-exception checking)
+!!
+!!  \param  self  Reference to the first (left-hand) dense matrix object
+!!  \param  other Reference to the vector (right-hand) object
+!!  \return new   Reference to the resulting vector object
+!!
+!!  This routine post-multiplies a dense matrix by a vector. That is, it
+!!  performs self*other, not other*self.
+! ------------------------------------------------------------------------
+FUNCTION dm_vec_mul_ (self,other) RESULT(new)
+  TYPE(matrixT), INTENT(IN) :: self
+  TYPE(vectorT), INTENT(IN) :: other
+  TYPE(vectorT) :: new
+
+  !> initialize the solution vector
+  CALL vec_init(new, dm_numRows(self))
+
+  !> perform multiplication (using Fortran built-in for efficiency)
+  new%dat = MATMUL(self%dat,other%dat)
+
+END FUNCTION dm_vec_mul_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Post-multiplication of a dense matrix by a vector (exception checking)
+!!
+!!  \param  self  Reference to the first (left-hand) dense matrix object
+!!  \param  other Reference to the vector (right-hand) object
+!!  \param  exc   Error code
+!!  \return new   Reference to the resulting vector object
+!!
+!!  This routine post-multiplies a dense matrix by a vector. That is, it
+!!  performs self*other, not other*self. If the dimensions of the two
+!!  objects are not compatible (number of columns in self does not equal
+!!  number of rows in other), it returns a DIMEN exception.
+! ------------------------------------------------------------------------
+FUNCTION dm_vec_mul_exc_ (self,other, exc) RESULT(new)
+  TYPE(matrixT), INTENT(IN) :: self
+  TYPE(vectorT), INTENT(IN) :: other
+  INTEGER, INTENT(OUT) :: exc
+  TYPE(vectorT) :: new
+
+  !> make sure dimensions are compatible
+  IF (dm_numCols(self).NE.vec_length(other)) THEN
+    exc=DIMEN
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  new = dm_vecMul(self,other)
+
+END FUNCTION dm_vec_mul_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Multiplication of two dense matrices (non-exception checking)
+!!
+!!  \param  self  Reference to the first (left-hand) dense matrix object
+!!  \param  other Reference to the second (right-hand) dense matrix object
+!!  \return new   Reference to the resulting matrix object
+!!
+!!  This routine multiplies two dense matrices.
+! ------------------------------------------------------------------------
+FUNCTION dm_mat_mul_ (self,other) RESULT(new)
+  TYPE(matrixT), INTENT(IN) :: self, other
+  TYPE(matrixT) :: new
+  INTEGER :: m,n
+
+  !> initialize solution matrix
+  CALL dm_init(new, dm_numRows(self),dm_numCols(other))
+
+  !> perform multiplication (using Fortran built-in for efficiency)
+  new%dat = MATMUL(self%dat,other%dat)
+
+END FUNCTION dm_mat_mul_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Multiplication of two dense matrices (non-exception checking)
+!!
+!!  \param  self  Reference to the first (left-hand) dense matrix object
+!!  \param  other Reference to the second (right-hand) dense matrix object
+!!  \param  exc   Error code
+!!  \return new   Reference to the resulting matrix object
+!!
+!!  This routine multiplies two dense matrices. If the dimensions of the
+!!  two objects are not compatible (number of columns in self does not
+!!  equal number of rows in other), it returns a DIMEN exception.
+! ------------------------------------------------------------------------
+FUNCTION dm_mat_mul_exc_ (self,other, exc) RESULT(new)
+  TYPE(matrixT), INTENT(IN) :: self, other
+  INTEGER, INTENT(OUT) :: exc
+  TYPE(matrixT) :: new
+
+  !> make sure dimensions are compatible
+  IF (dm_numCols(self).NE.dm_numRows(other)) THEN
+    exc=DIMEN
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  new = dm_matMul(self,other)
+
+END FUNCTION dm_mat_mul_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Transpose of a matrix
+!!
+!!  \param  self  Reference to the input dense matrix object
+!!  \return new   Reference to the transposed matrix object
+! ------------------------------------------------------------------------
+FUNCTION dm_transpose_ (self) RESULT (new)
+  TYPE(matrixT), INTENT(IN) :: self
+  TYPE(matrixT) :: new
+
+  !> initialize result matrix
+  CALL dm_init(new, dm_numCols(self),dm_numRows(self))
+
+  !> take the transpose (using Fortran built-in for efficiency)
+  new%dat = TRANSPOSE(self%dat)
+
+END FUNCTION dm_transpose_
+
+END MODULE dense_matrix_def
+
+
+
+! ************************************************************************
+! LOCAL FUNCTIONS
+! ************************************************************************
+
+! none

Examples/SoilWaterStructureInteraction/dynsws/trunk/dense_matrix_def.mod

+GFORTRAN module version '6' created from dense_matrix_def.f90 on Sun Apr 29 22:07:07 2012
+MD5:e522a19d517931c97191ab166f20b9b7 -- If you edit this, you'll get what you deserve.
+
+(() () (2 3) () (4 5 6 7 8 9) () () () () () () () () () () () () () ()
+() () () () () () () ())
+
+()
+
+(('dm_clean' 'dense_matrix_def' 10) ('dm_init' 'dense_matrix_def' 11 12)
+('dm_get' 'dense_matrix_def' 13 14) ('dm_add' 'dense_matrix_def' 15 2) (
+'dm_numrows' 'dense_matrix_def' 16) ('dm_numcols' 'dense_matrix_def' 17)
+('dm_scalmul' 'dense_matrix_def' 7) ('dm_set' 'dense_matrix_def' 18 19)
+('dm_transpose' 'dense_matrix_def' 20) ('dm_vecmul' 'dense_matrix_def'
+21 5) ('dm_matmul' 'dense_matrix_def' 22 4))
+
+()
+
+()
+
+()
+
+(23 'matrixt' 'dense_matrix_def' 'matrixt' 1 ((DERIVED UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOC_COMP) (UNKNOWN 0 0 0 UNKNOWN ())
+0 0 () () 0 ((24 'dat' (REAL 8 0 0 REAL ()) (2 0 DEFERRED () () () ()) (
+UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOCATABLE
+DIMENSION) UNKNOWN-ACCESS ())) PUBLIC (() () () ()) () 0 0 72249915)
+12 'dm_init_' 'dense_matrix_def' 'dm_init_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 25 0
+(26 27 28) () 0 () () () 0 0)
+11 'dm_init_exc_' 'dense_matrix_def' 'dm_init_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 29 0 (30 31 32 33) () 0 () () () 0 0)
+10 'dm_clean_' 'dense_matrix_def' 'dm_clean_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 34 0 (35) () 0 () () () 0 0)
+16 'dm_num_rows_' 'dense_matrix_def' 'dm_num_rows_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 36 0 (37) () 38 () () () 0 0)
+17 'dm_num_cols_' 'dense_matrix_def' 'dm_num_cols_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 39 0 (40) () 41 () () () 0 0)
+14 'dm_get_' 'dense_matrix_def' 'dm_get_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (REAL 8 0 0 REAL ())
+42 0 (43 44 45) () 46 () () () 0 0)
+13 'dm_get_exc_' 'dense_matrix_def' 'dm_get_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+47 0 (48 49 50 51) () 52 () () () 0 0)
+19 'dm_set_' 'dense_matrix_def' 'dm_set_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0
+UNKNOWN ()) 53 0 (54 55 56 57) () 0 () () () 0 0)
+18 'dm_set_exc_' 'dense_matrix_def' 'dm_set_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 58 0 (59 60 61 62 63) () 0 () () () 0 0)
+2 'dm_add_' 'dense_matrix_def' 'dm_add_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 23 0 0 DERIVED ()) 64 0
+(65 66) () 67 () () () 0 0)
+15 'dm_add_exc_' 'dense_matrix_def' 'dm_add_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 23 0 0
+DERIVED ()) 68 0 (69 70 71) () 72 () () () 0 0)
+7 'dm_scal_mul_mat_scal_' 'dense_matrix_def' 'dm_scal_mul_mat_scal_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+DERIVED 23 0 0 DERIVED ()) 73 0 (74 75) () 76 () () () 0 0)
+5 'dm_vec_mul_' 'dense_matrix_def' 'dm_vec_mul_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 77 0 0
+DERIVED ()) 78 0 (79 80) () 81 () () () 0 0)
+21 'dm_vec_mul_exc_' 'dense_matrix_def' 'dm_vec_mul_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 77 0 0
+DERIVED ()) 82 0 (83 84 85) () 86 () () () 0 0)
+4 'dm_mat_mul_' 'dense_matrix_def' 'dm_mat_mul_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 23 0 0
+DERIVED ()) 87 0 (88 89) () 90 () () () 0 0)
+22 'dm_mat_mul_exc_' 'dense_matrix_def' 'dm_mat_mul_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 23 0 0
+DERIVED ()) 91 0 (92 93 94) () 95 () () () 0 0)
+6 'dm_scal_mul_scal_mat_' 'dense_matrix_def' 'dm_scal_mul_scal_mat_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+DERIVED 23 0 0 DERIVED ()) 96 0 (97 98) () 99 () () () 0 0)
+20 'dm_transpose_' 'dense_matrix_def' 'dm_transpose_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 23 0 0
+DERIVED ()) 100 0 (101) () 102 () () () 0 0)
+26 'self' '' 'self' 25 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+27 'm' '' 'm' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+28 'n' '' 'n' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+30 'self' '' 'self' 29 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+31 'm' '' 'm' 29 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+32 'n' '' 'n' 29 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+33 'exc' '' 'exc' 29 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+77 'vectort' 'vector_def' 'vectort' 1 ((DERIVED UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOC_COMP) (UNKNOWN 0 0 0 UNKNOWN ())
+0 0 () () 0 ((103 'dat' (REAL 8 0 0 REAL ()) (1 0 DEFERRED () ()) (
+UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOCATABLE
+DIMENSION) UNKNOWN-ACCESS ())) PUBLIC (() () () ()) () 0 0 58143611)
+8 'vec_scal_mul_scal_vec_' 'vector_def' 'vec_scal_mul_scal_vec_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+DERIVED 77 0 0 DERIVED ()) 104 0 (105 106) () 107 () () () 0 0)
+9 'vec_scal_mul_vec_scal_' 'vector_def' 'vec_scal_mul_vec_scal_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+DERIVED 77 0 0 DERIVED ()) 108 0 (109 110) () 111 () () () 0 0)
+3 'vec_add_' 'vector_def' 'vec_add_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 77 0 0 DERIVED ()) 112 0
+(113 114) () 115 () () () 0 0)
+37 'self' '' 'self' 36 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+38 'm' '' 'm' 36 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+40 'self' '' 'self' 39 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+41 'n' '' 'n' 39 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+43 'self' '' 'self' 42 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+44 'i' '' 'i' 42 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+45 'j' '' 'j' 42 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+46 'v' '' 'v' 42 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+48 'self' '' 'self' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+49 'i' '' 'i' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+50 'j' '' 'j' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+51 'exc' '' 'exc' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+52 'v' '' 'v' 47 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+54 'self' '' 'self' 53 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+55 'i' '' 'i' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+56 'j' '' 'j' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+57 'v' '' 'v' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+59 'self' '' 'self' 58 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+60 'i' '' 'i' 58 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+61 'j' '' 'j' 58 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+62 'v' '' 'v' 58 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+63 'exc' '' 'exc' 58 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+65 'self' '' 'self' 64 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+66 'other' '' 'other' 64 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+67 'new' '' 'new' 64 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+69 'self' '' 'self' 68 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+70 'other' '' 'other' 68 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+71 'exc' '' 'exc' 68 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+72 'new' '' 'new' 68 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+74 'self' '' 'self' 73 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+75 'k' '' 'k' 73 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+76 'new' '' 'new' 73 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+97 'k' '' 'k' 96 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+98 'self' '' 'self' 96 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+99 'new' '' 'new' 96 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+79 'self' '' 'self' 78 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+80 'other' '' 'other' 78 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 77 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+81 'new' '' 'new' 78 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 77 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+83 'self' '' 'self' 82 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+84 'other' '' 'other' 82 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 77 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+85 'exc' '' 'exc' 82 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+86 'new' '' 'new' 82 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 77 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+88 'self' '' 'self' 87 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+89 'other' '' 'other' 87 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+90 'new' '' 'new' 87 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+92 'self' '' 'self' 91 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+93 'other' '' 'other' 91 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+94 'exc' '' 'exc' 91 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+95 'new' '' 'new' 91 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+101 'self' '' 'self' 100 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+102 'new' '' 'new' 100 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+113 'self' '' 'self' 112 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 77 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+114 'other' '' 'other' 112 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 77 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+115 'new' '' 'new' 112 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 77 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+109 'self' '' 'self' 108 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 77 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+110 'k' '' 'k' 108 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+105 'k' '' 'k' 104 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+106 'self' '' 'self' 104 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 77 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+107 'new' '' 'new' 104 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 77 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+111 'new' '' 'new' 108 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 77 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+35 'self' '' 'self' 34 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 23 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+)
+
+('matrixt' 0 23)

Examples/SoilWaterStructureInteraction/dynsws/trunk/dense_matrix_test.f90

+! ------------------------------------------------------------------------
+!>  \brief Module for testing Dense Matrix data type
+! ------------------------------------------------------------------------
+MODULE dense_matrix_test
+USE fruit                   !> Unit testing framework
+USE log_message_control     !> Printing log/error messages
+USE log_messages            !> Log/error codes
+USE dense_matrix_def        !> Dense Matrix data type
+USE vector_def              !> Vector data type
+
+IMPLICIT NONE
+
+
+CONTAINS
+
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for OK exception message on allocation
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param test     Test dense matrix
+!!  \param testName Filename for log file (required for exceptions)
+!!  \param m        Number of rows in the matrix
+!!  \param n        Number of columns in the matrix
+!!  \param expMsg   Expected log message
+!!  \param actMsg   Actual log message
+!!
+!!  This test initializes a matrixT and makes sure that the exception
+!!  message is OK (i.e. allocation did not fail).
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_allocation_MSG
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_allocation_MSG'
+  TYPE(matrixT) :: test
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: m=3,n=2
+  INTEGER, PARAMETER :: expMsg=OK
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log message file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize matrix and check the exception
+  CALL dm_init(test, m,n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and deallocate matrix
+  CALL log_closeLogFile()
+  CALL dm_clean(test)
+
+END SUBROUTINE test_dm_allocation_MSG
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for SZE exception message on allocation
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param test     Test dense matrix
+!!  \param testName Filename for log file (required for exceptions)
+!!  \param m        Number of rows in the matrix
+!!  \param n        Number of columns in the matrix
+!!  \param expMsg   Expected log message
+!!  \param actMsg   Actual log message
+!!
+!!  This test attempts to initialize a matrixT with invalid size
+!!  parameters and verifies that the correct exception is returned.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_allocation_SZE
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_allocation_SZE'
+  TYPE(matrixT) :: test
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: m=3,n=2
+  INTEGER, PARAMETER :: expMsg=SZE
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> try to initialize with m=-1
+  CALL dm_init(test, -1,n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to initialize with n=-1
+  CALL dm_init(test, m,-1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and deallocate matrix
+  CALL log_closeLogFile()
+  CALL dm_clean(test)
+
+END SUBROUTINE test_dm_allocation_SZE
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for initialization of matrix data to zeros.
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param test     Test dense matrix
+!!  \param m        Number of rows in the matrix
+!!  \param n        Number of columns in the matrix
+!!  \param expDat   Expected initial contents of matrix data
+!!
+!!  This test initializes a matrixT and ensures that the data is
+!!  initialized to zeros.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_allocation_DAT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_allocation_DAT'
+  TYPE(matrixT) :: test
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(m,n) :: expDat
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> set up the expected data
+  expDat = RESHAPE(  (/ 0.d0,0.d0,0.d0,0.d0,0.d0,0.d0 /), SHAPE(expDat) )
+
+  !> initialize matrix and test actual data
+  CALL dm_init(test, m,n)
+  CALL assertEquals(expDat,test%dat, m,n)
+
+  !> deallocate matrix
+  CALL dm_clean(test)
+
+END SUBROUTINE test_dm_allocation_DAT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for deallocation
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test       Test dense matrix
+!!  \param m          Number of rows in the matrix
+!!  \param n          Number of rows/columns in the matrix
+!!  \param expBefore  Expected allocation status before deallocation
+!!  \param expAfter   Expected allocation status after deallocation
+!!  \param actBefore  Actual allocation status before deallocation
+!!  \param actAfter   Actual allocation status after deallocation
+!!
+!!  This test initializes a matrixT and ensures that it is
+!!  allocated. It then deallocates the object and ensures that it has
+!!  been deallocated.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_deallocation
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_deallocation'
+  TYPE(matrixT) :: test
+  INTEGER, PARAMETER :: m=3,n=2
+  LOGICAL, PARAMETER :: expBefore = .TRUE.
+  LOGICAL, PARAMETER :: expAfter = .FALSE.
+  LOGICAL :: actBefore, actAfter
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize the matrix
+  CALL dm_init(test, m,n)
+
+  !> make sure dat is allocated
+  actBefore = ALLOCATED(test%dat)
+  CALL assertEquals(expBefore,actBefore)
+
+  !> deallocate the matrix
+  CALL dm_clean(test)
+
+  !> make sure dat is deallocated
+  actAfter = ALLOCATED(test%dat)
+  CALL assertEquals(expAfter,actAfter)
+
+END SUBROUTINE test_dm_deallocation
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for number of rows when matrix is not allocated
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test       Test dense matrix
+!!  \param expected   Expected number of rows
+!!  \param actual     Actual number of rows
+!!
+!!  This test makes sure that the number of rows is returned as 0 when
+!!  the matrix is not allocated.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_num_rows_not_allocated
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_num_rows_not_allocated'
+  TYPE(matrixT) :: test
+  INTEGER, PARAMETER :: expected = 0
+  INTEGER :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> check number of rows
+  actual = dm_numRows(test)
+  CALL assertEquals(expected, actual)
+
+END SUBROUTINE test_dm_num_rows_not_allocated
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for number of rows when matrix is allocated
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test       Test dense matrix
+!!  \param m          Number of rows in the matrix
+!!  \param n          Number of columns in the matrix
+!!  \param expected   Expected number of rows
+!!  \param actual     Actual number of rows
+!!
+!!  This test checks that the number of rows returned is correct when the
+!!  matrix is allocated.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_num_rows_allocated
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_num_rows_allocated'
+  TYPE(matrixT) :: test
+  INTEGER, PARAMETER :: m=3,n=2
+  INTEGER, PARAMETER :: expected = m
+  INTEGER :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize the matrix
+  CALL dm_init(test, m,n)
+
+  !> check number of rows
+  actual = dm_numRows(test)
+  CALL assertEquals(expected, actual)
+
+  !> deallocate the matrix
+  CALL dm_clean(test)
+
+END SUBROUTINE test_dm_num_rows_allocated
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for number of columns when matrix is not allocated
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test       Test dense matrix
+!!  \param expected   Expected number of columns
+!!  \param actual     Actual number of columns
+!!
+!!  This test makes sure that the number of columns is returned as 0 when
+!!  the matrix is not allocated
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_num_cols_not_allocated
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_num_cols_not_allocated'
+  TYPE(matrixT) :: test
+  INTEGER, PARAMETER :: expected = 0
+  INTEGER :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> check number of rows
+  actual = dm_numCols(test)
+  CALL assertEquals(expected, actual)
+
+END SUBROUTINE test_dm_num_cols_not_allocated
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for number of columns when matrix is allocated
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test       Test dense matrix
+!!  \param m          Number of rows in the matrix
+!!  \param n          Number of columns in the matrix
+!!  \param expected   Expected number of columns
+!!  \param actual     Actual number of columns
+!!
+!!  This test checks that the number of columns returned is correct when
+!!  the matrix is allocated.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_num_cols_allocated
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_num_cols_allocated'
+  TYPE(matrixT) :: test
+  INTEGER, PARAMETER :: m=3,n=2
+  INTEGER, PARAMETER :: expected = n
+  INTEGER :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize the matrix
+  CALL dm_init(test, m,n)
+
+  !> check number of columns
+  actual = dm_numCols(test)
+  CALL assertEquals(expected, actual)
+
+  !> deallocate the matrix
+  CALL dm_clean(test)
+
+END SUBROUTINE test_dm_num_cols_allocated
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from dm_get
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param test     Test dense matrix
+!!  \param testName Filename for log file (required for exceptions)
+!!  \param m        Number of rows in the matrix
+!!  \param n        Number of columns in the matrix
+!!  \param expMsg   Expected log message
+!!  \param actMsg   Actual log message
+!!  \param v        Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the matrix.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_get_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_get_POSIT'
+  TYPE(matrixT) :: test
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: m=3,n=2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION :: v
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize matrix
+  CALL dm_init(test, m,n)
+
+  !> try to get beyond last row
+  v = dm_get(test, m+1,n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first row
+  v = dm_get(test, 0,n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get after last column
+  v = dm_get(test, m,n+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first column
+  v = dm_get(test, m,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the matrix
+  CALL log_closeLogFile()
+  CALL dm_clean(test)
+
+END SUBROUTINE test_dm_get_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value return from bsm_get
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param test     Test dense matrix
+!!  \param m        Number of rows in the matrix
+!!  \param n        Number of rows/columns in the matrix
+!!  \param i        Row index for test location
+!!  \param j        Column index for test location
+!!  \param expVal   Expected data value
+!!  \param actVal   Actual data value
+!!
+!!  This test checks that the correct value is returned from the get
+!!  access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_get_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_get_VAL'
+  TYPE(matrixT) :: test
+  INTEGER, PARAMETER :: m=3,n=2
+  INTEGER, PARAMETER :: i=1,j=2
+  DOUBLE PRECISION, PARAMETER :: expVal = 3.d0
+  DOUBLE PRECISION :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize the matrix
+  CALL dm_init(test, m,n)
+
+  !> set the value manually in the internal data structure
+  test%dat(i,j) = expVal
+
+  !> get the value using the access program
+  actVal = dm_get(test, i,j)
+  CALL assertEquals(expVal,actVal)
+
+  !> deallocate the matrix
+  CALL dm_clean(test)
+
+END SUBROUTINE test_dm_get_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from dm_set
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param test     Test dense matrix
+!!  \param testName Filename for log file (required for exceptions)
+!!  \param m        Number of rows in the matrix
+!!  \param n        Number of columns in the matrix
+!!  \param expMsg   Expected log message
+!!  \param actMsg   Actual log message
+!!  \param v        Dummy variable for set function input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the matrix.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_set_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_set_POSIT'
+  TYPE(matrixT) :: test
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: m=3,n=2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  DOUBLE PRECISION, PARAMETER :: v=0.d0
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize the log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize the matrix
+  CALL dm_init(test, m,n)
+
+  !> try to set after last row
+  CALL dm_set(test, m+1,n,v, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first row
+  CALL dm_set(test, 0,n,v, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set after last column
+  CALL dm_set(test, m,n+1,v, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first column
+  CALL dm_set(test, m,0,v, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and deallocate matrix
+  CALL log_closeLogFile()
+  CALL dm_clean(test)
+
+END SUBROUTINE test_dm_set_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value return after dm_set
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param test     Test dense matrix
+!!  \param m        Number of rows in the matrix
+!!  \param n        Number of columns in the matrix
+!!  \param i        Row index for test location
+!!  \param j        Column index for test location
+!!  \param expVal   Expected data value
+!!  \param actVal   Actual data value
+!!
+!!  This test checks that the correct value is entered by the set
+!!  access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_set_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_set_VAL'
+  TYPE(matrixT) :: test
+  INTEGER, PARAMETER :: m=3,n=2
+  INTEGER, PARAMETER :: i=1,j=2
+  DOUBLE PRECISION, PARAMETER :: expVal = 3.d0
+  DOUBLE PRECISION :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize the matrix
+  CALL dm_init(test, m,n)
+
+  !> set the value
+  CALL dm_set(test, i,j,expVal)
+  actVal = dm_get(test, i,j)
+  CALL assertEquals(expVal,actVal)
+
+  !> deallocate matrix
+  CALL dm_clean(test)
+
+END SUBROUTINE test_dm_set_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for DIMEN exception when adding matrices
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      First input dense matrix
+!!  \param test2      Second input dense matrix
+!!  \param test3      Output dense matrix
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param m          Number of rows in the matrix
+!!  \param n          Number of columns in the matrix
+!!  \param expMsg     Expected exception message
+!!  \param actMsg     Actual exception message
+!!
+!!  This test checks that a DIMEN exception is raised when matrices with
+!!  incompatible dimensions are added.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_add_DIMEN
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_add_DIMEN'
+  TYPE(matrixT) :: test1, test2, test3
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: m=3,n=2
+  INTEGER, PARAMETER :: expMsg=DIMEN
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize input matrices (data contents not important)
+  CALL dm_init(test1, m,n)
+  CALL dm_init(test2, m+1,n)  !> note different number of rows
+
+  !> attempt to add the matrices
+  test3 = dm_add(test1,test2, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> re-initialize input matrices (data contents not important)
+  CALL dm_init(test1, m,n)
+  CALL dm_init(test2, m,n+1)  !> note different number of columns
+
+  !> attempt to add the matrices
+  test3 = dm_add(test1,test2, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and deallocate matrices
+  CALL log_closeLogFile()
+  CALL dm_clean(test1)
+  CALL dm_clean(test2)
+  CALL dm_clean(test3)
+
+END SUBROUTINE test_dm_add_DIMEN
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct addition of matrices
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      First input dense matrix
+!!  \param test2      Second input dense matrix
+!!  \param test3      Output dense matrix
+!!  \param m          Number of rows in the matrix
+!!  \param n          Number of columns in the matrix
+!!  \param expDat     Expected result of addition
+!!
+!!  This test checks that the correct result is obtained when adding two
+!!  dense matrices.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_add_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_add_VAL'
+  TYPE(matrixT) :: test1, test2, test3
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(m,n) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize expected result
+  expDat = RESHAPE(  (/ 3.d0,3.d0,3.d0,3.d0,3.d0,3.d0 /), SHAPE(expDat) )
+
+  !> initialize first input matrix
+  !! (loop sets matrix to all ones)
+  CALL dm_init(test1, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test1, i,j, 1.d0)
+    END DO
+  END DO
+
+  !> initialize second input matrix
+  !! (loop sets matrix to all twos)
+  CALL dm_init(test2, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test2, i,j, 2.d0)
+    END DO
+  END DO
+
+  !> add the matrices
+  test3 = dm_add(test1,test2)
+  CALL assertEquals(expDat,test3%dat, m,n)
+
+  !> deallocate matrices
+  CALL dm_clean(test1)
+  CALL dm_clean(test2)
+  CALL dm_clean(test3)
+
+END SUBROUTINE test_dm_add_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct addition of matrices ( with OPERATOR (+) )
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      First input dense matrix
+!!  \param test2      Second input dense matrix
+!!  \param test3      Output dense matrix
+!!  \param m          Number of rows in the matrix
+!!  \param n          Number of columns in the matrix
+!!  \param expDat     Expected result of addition
+!!
+!!  This test checks that the correct result is obtained when adding two
+!!  dense matrices using the (+) operator.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_add_OP
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_add_OP'
+  TYPE(matrixT) :: test1, test2, test3
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(m,n) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize expected result
+  expDat = RESHAPE(  (/ 3.d0,3.d0,3.d0,3.d0,3.d0,3.d0 /), SHAPE(expDat) )
+
+  !> initialize first input matrix
+  !! (loop sets matrix to all ones)
+  CALL dm_init(test1, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test1, i,j, 1.d0)
+    END DO
+  END DO
+
+  !> initialize second input matrix
+  !! (loop sets matrix to all twos)
+  CALL dm_init(test2, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test2, i,j, 2.d0)
+    END DO
+  END DO
+
+  !> add the matrices
+  test3 = test1 + test2
+  CALL assertEquals(expDat,test3%dat, m,n)
+
+  !> deallocate matrices
+  CALL dm_clean(test1)
+  CALL dm_clean(test2)
+  CALL dm_clean(test3)
+
+END SUBROUTINE test_dm_add_OP
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for scalar multiplication
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param test1    Input dense matrix
+!!  \param test2    Output dense matrix
+!!  \param k        Scalar coefficient
+!!  \param m        Number of rows in the matrix
+!!  \param n        Number of columns in the matrix
+!!  \param expDat   Expected data contents
+!!
+!!  This test checks that scalar multiplication is performed correctly.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_scal_mul_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_scal_mul_VAL'
+  TYPE(matrixT) :: test1, test2
+  DOUBLE PRECISION, PARAMETER :: k=3.d0
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(m,n) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize expected result
+  expDat = RESHAPE(  (/ 3.d0,3.d0,3.d0,3.d0,3.d0,3.d0 /), SHAPE(expDat) )
+
+  !> initialize matrix
+  !! (loop sets matrix to all ones)
+  CALL dm_init(test1, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test1, i,j, 1.d0)
+    END DO
+  END DO
+
+  !> multiply by scalar
+  test2 = dm_scalMul(test1,k)
+  CALL assertEquals(expDat,test2%dat, m,n)
+
+  !> deallocate matrices
+  CALL dm_clean(test1)
+  CALL dm_clean(test2)
+
+END SUBROUTINE test_dm_scal_mul_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for scalar multiplication (by zero)
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param test1    Input dense matrix
+!!  \param test2    Output dense matrix
+!!  \param k        Scalar coefficient (zero)
+!!  \param m        Number of rows in the matrix
+!!  \param n        Number of columns in the matrix
+!!  \param expDat   Expected data contents
+!!
+!!  This test checks that scalar multiplication is performed correctly.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_scal_mul_ZERO
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_scal_mul_ZERO'
+  TYPE(matrixT) :: test1, test2
+  DOUBLE PRECISION, PARAMETER :: k=0.d0
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(m,n) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize expected result
+  expDat = RESHAPE(  (/ 0.d0,0.d0,0.d0,0.d0,0.d0,0.d0 /), SHAPE(expDat) )
+
+  !> initialize matrix
+  !! (loop sets matrix to all ones)
+  CALL dm_init(test1, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test1, i,j, 1.d0)
+    END DO
+  END DO
+
+  !> multiply by zero
+  test2 = dm_scalMul(test1,k)
+  CALL assertEquals(expDat,test2%dat, m,n)
+
+  !> deallocate matrices
+  CALL dm_clean(test1)
+  CALL dm_clean(test2)
+
+END SUBROUTINE test_dm_scal_mul_ZERO
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for scalar multiplication ( using OPERATOR (*) )
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param test1    Input dense matrix
+!!  \param test2    Output dense matrix
+!!  \param k        Scalar coefficient (zero)
+!!  \param m        Number of rows in the matrix
+!!  \param n        Number of columns in the matrix
+!!  \param expDat   Expected data contents
+!!
+!!  This test checks that scalar multiplication is performed correctly
+!!  when using the overloaded (*) operator.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_scal_mul_OP
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_scal_mul_OP'
+  TYPE(matrixT) :: test1, test2
+  DOUBLE PRECISION, PARAMETER :: k=3.d0
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(m,n) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize expected result
+  expDat = RESHAPE(  (/ 3.d0,3.d0,3.d0,3.d0,3.d0,3.d0 /), SHAPE(expDat) )
+
+  !> initialize matrix
+  !! (loop sets matrix to all ones)
+  CALL dm_init(test1, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test1, i,j, 1.d0)
+    END DO
+  END DO
+
+  !> multiply by scalar
+  test2 = k*test1
+  CALL assertEquals(expDat,test2%dat, m,n)
+
+  !> clear output matrix
+  CALL dm_clean(test2)
+
+  !> multiply by scalar (switch order of inputs)
+  test2 = test1*k
+  CALL assertEquals(expDat,test2%dat, m,n)
+
+  !> deallocate matrices
+  CALL dm_clean(test1)
+  CALL dm_clean(test2)
+
+END SUBROUTINE test_dm_scal_mul_OP
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for DIMEN exception when performing matrix-vector multiplication
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      Input dense matrix
+!!  \param test2      Input vector
+!!  \param test3      Dummy output vector
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param m          Number of rows in the matrix
+!!  \param n          Number of columns in the matrix
+!!  \param expMsg     Expected exception message
+!!  \param actMsg     Actual exception message
+!!
+!!  This test checks that a DIMEN exception is raised when matrix-vector
+!!  multiplication is attempted with a vector whose length does not equal
+!!  the number of rows in the matrix.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_vec_mul_DIMEN
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_vec_mul_DIMEN'
+  TYPE(matrixT) :: test1
+  TYPE(vectorT) :: test2, test3
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: m=3,n=2
+  INTEGER, PARAMETER :: expMsg=DIMEN
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> set up matrix and vector (data contents not important)
+  CALL dm_init(test1, m,n)
+  CALL vec_init(test2, m)
+
+  !> attempt matrix-vector multiplication
+  test3 = dm_vecMul(test1,test2, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and deallocate objects
+  CALL log_closeLogFile()
+  CALL dm_clean(test1)
+  CALL vec_clean(test2)
+  CALL vec_clean(test3)
+
+END SUBROUTINE test_dm_vec_mul_DIMEN
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct matrix-vector multiplication
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      Input dense matrix
+!!  \param test2      Input vector
+!!  \param test3      Output vector
+!!  \param m          Number of rows in the matrix
+!!  \param n          Number of columns in the matrix
+!!  \param expDat     Expected result
+!!
+!!  This test checks that matrix-vector multiplication is performed
+!!  correctly in the general case (input matrix and vector contain data,
+!!  but it is not of a special form).
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_vec_mul_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_vec_mul_VAL'
+  TYPE(matrixT) :: test1
+  TYPE(vectorT) :: test2, test3
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(m) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> set expected result
+  expDat = RESHAPE(  (/ 9.d0,12.d0,15.d0 /), SHAPE(expDat) )
+
+  !> initialize input matrix
+  !! (loop sets up data)
+  CALL dm_init(test1, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test1, i,j, ( (DBLE(j)-1.d0)*DBLE(m) + DBLE(i) ) )
+    END DO
+  END DO
+
+  !> initialize input vector
+  !! (loop sets up data)
+  CALL vec_init(test2, n)
+  DO i = 1,n
+    CALL vec_set(test2, i, DBLE(i))
+  END DO
+
+  !> perform multiplication
+  test3 = dm_vecMul(test1,test2)
+  CALL assertEquals(expDat,test3%dat, m)
+
+  !> deallocate objects
+  CALL dm_clean(test1)
+  CALL vec_clean(test2)
+  CALL vec_clean(test3)
+
+END SUBROUTINE test_dm_vec_mul_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for matrix-vector multiplication (by the zero vector)
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      Input dense matrix
+!!  \param test2      Input vector (zeros)
+!!  \param test3      Output vector
+!!  \param m          Number of rows in the matrix
+!!  \param n          Number of columns in the matrix
+!!  \param expDat     Expected result
+!!
+!!  This test checks that matrix-vector multiplication is performed
+!!  correctly when the input vector is all zeros.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_vec_mul_ZERO
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_vec_mul_ZERO'
+  TYPE(matrixT) :: test1
+  TYPE(vectorT) :: test2, test3
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(m) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> set expected result
+  expDat = RESHAPE(  (/ 0.d0,0.d0,0.d0 /), SHAPE(expDat) )
+
+  !> initialize input matrix
+  !! (loop sets up data)
+  CALL dm_init(test1, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test1, i,j, ( (DBLE(j)-1.d0)*DBLE(m) + DBLE(i) ) )
+    END DO
+  END DO
+
+  !> initialize input vector (all zeros)
+  CALL vec_init(test2, n)
+
+  !> perform multiplication
+  test3 = dm_vecMul(test1,test2)
+  CALL assertEquals(expDat,test3%dat, m)
+
+  !> deallocate objects
+  CALL dm_clean(test1)
+  CALL vec_clean(test2)
+  CALL vec_clean(test3)
+
+END SUBROUTINE test_dm_vec_mul_ZERO
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for matrix-vector multiplication (by the identity matrix)
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      Input dense matrix (identity)
+!!  \param test2      Input vector
+!!  \param test3      Output vector
+!!  \param m          Number of rows in the matrix
+!!  \param n          Number of columns in the matrix
+!!  \param expDat     Expected result
+!!
+!!  This test checks that matrix-vector multiplication is performed
+!!  correctly when the input matrix is the identity for multiplication.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_vec_mul_IDENT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_vec_mul_IDENT'
+  TYPE(matrixT) :: test1
+  TYPE(vectorT) :: test2, test3
+  INTEGER, PARAMETER :: m=3
+  DOUBLE PRECISION, DIMENSION(m) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize input matrix
+  !! (loop sets up identity matrix)
+  CALL dm_init(test1, m,m)
+  DO j = 1,m
+    DO i = 1,m
+      IF (i.EQ.j) CALL dm_set(test1, i,j, 1.d0)
+    END DO
+  END DO
+
+  !> initialize input vector
+  !! (loop sets data)
+  CALL vec_init(test2, m)
+  DO i = 1,m
+    CALL vec_set(test2, i, DBLE(i))
+  END DO
+
+  !> expected result is the same as the initial vector
+  expDat = test2%dat
+
+  !> perform multiplication
+  test3 = dm_vecMul(test1,test2)
+  CALL assertEquals(expDat,test3%dat, m)
+
+  !> deallocate objects
+  CALL dm_clean(test1)
+  CALL vec_clean(test2)
+  CALL vec_clean(test3)
+
+END SUBROUTINE test_dm_vec_mul_IDENT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct matrix-vector multiplication ( using OPERATOR (*) )
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      Input dense matrix
+!!  \param test2      Input vector
+!!  \param test3      Output vector
+!!  \param m          Number of rows in the matrix
+!!  \param n          Number of columns in the matrix
+!!  \param expDat     Expected result
+!!
+!!  This test checks that matrix-vector multiplication is performed
+!!  correctly in the general case (input matrix and vector contain data,
+!!  but it is not of a special form). The overloaded operator (*) is used.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_vec_mul_OP
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_vec_mul_OP'
+  TYPE(matrixT) :: test1
+  TYPE(vectorT) :: test2, test3
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(m) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> set up expected result
+  expDat = RESHAPE(  (/ 9.d0,12.d0,15.d0 /), SHAPE(expDat) )
+
+  !> initialize input matrix
+  !! (loop sets data)
+  CALL dm_init(test1, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test1, i,j, ( (DBLE(j)-1.d0)*DBLE(m) + DBLE(i) ) )
+    END DO
+  END DO
+
+  !> initialize input vector
+  !! (loop sets data)
+  CALL vec_init(test2, n)
+  DO i = 1,n
+    CALL vec_set(test2, i, DBLE(i))
+  END DO
+
+  !> perform multiplication
+  test3 = test1*test2
+  CALL assertEquals(expDat,test3%dat, m)
+
+  !> deallocate objects
+  CALL dm_clean(test1)
+  CALL vec_clean(test2)
+  CALL vec_clean(test3)
+
+END SUBROUTINE test_dm_vec_mul_OP
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for DIMEN exception when performing matrix-matrix multiplication
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      First (left-hand) input dense matrix
+!!  \param test2      Second (right-hand) input dense matrix
+!!  \param test3      Dummy output matric
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param m          Number of rows in the matrix
+!!  \param n          Number of columns in the matrix
+!!  \param expMsg     Expected exception message
+!!  \param actMsg     Actual exception message
+!!
+!!  This test checks that a DIMEN exception is raised when matrix-matrix
+!!  multiplication is attempted between matrices whose dimensions are not
+!!  compatible (i.e. number of columns in test1 does not equal number of
+!!  rows in test2).
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_mat_mul_DIMEN
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_mat_mul_DIMEN'
+  TYPE(matrixT) :: test1, test2, test3
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: m=3,n=2
+  INTEGER, PARAMETER :: expMsg=DIMEN
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize matrices (data content not important)
+  CALL dm_init(test1, m,n)
+  CALL dm_init(test2, m,n)
+
+  !> attempt matrix-matrix multiplication
+  test3 = dm_matMul(test1,test2, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and deallocate matrices
+  CALL log_closeLogFile()
+  CALL dm_clean(test1)
+  CALL dm_clean(test2)
+  CALL dm_clean(test3)
+
+END SUBROUTINE test_dm_mat_mul_DIMEN
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct matrix-matrix multiplication
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      First (left-hand) input dense matrix
+!!  \param test2      Second (right-hand) input dense matrix
+!!  \param test3      Output matrix
+!!  \param m          Number of rows in matrices
+!!  \param n          Number of columns in matrices
+!!  \param expDat     Expected result
+!!
+!!  This test checks that matrix-matrix multiplication is performed
+!!  correctly in the general case (input matrices contain data,
+!!  but it is not of a special form).
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_mat_mul_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_mat_mul_VAL'
+  TYPE(matrixT) :: test1, test2, test3
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(m,n) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> set up expected result
+  expDat = RESHAPE( (/ &
+                    30.d0,36.d0,42.d0,66.d0,81.d0,96.d0 &
+                    /), SHAPE(expDat) )
+
+  !> initialize first matrix (dimensions of m x m)
+  !! (loops sets up data)
+  CALL dm_init(test1, m,m)
+  DO j = 1,m
+    DO i = 1,m
+      CALL dm_set(test1, i,j, ( (DBLE(j)-1.d0)*DBLE(m) + DBLE(i) ) )
+    END DO
+  END DO
+
+  !> initialize second matrix (dimensions of m x n)
+  !! (loops sets up data)
+  CALL dm_init(test2, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test2, i,j, ( (DBLE(j)-1.d0)*DBLE(m) + DBLE(i) ) )
+    END DO
+  END DO
+
+  !> perform matrix-matrix multiplication
+  test3 = dm_matMul(test1,test2)
+  CALL assertEquals(expDat,test3%dat, m,n)
+
+  !> deallocate matrices
+  CALL dm_clean(test1)
+  CALL dm_clean(test2)
+  CALL dm_clean(test3)
+
+END SUBROUTINE test_dm_mat_mul_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct matrix-matrix multiplication (by zero matrix)
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      First (left-hand) input dense matrix (zeros)
+!!  \param test2      Second (right-hand) input dense matrix
+!!  \param test3      Output matrix
+!!  \param m          Number of rows in matrices
+!!  \param n          Number of columns in matrices
+!!  \param expDat     Expected result
+!!
+!!  This test checks that matrix-matrix multiplication is performed
+!!  correctly for multiplication by a zero matrix.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_mat_mul_ZERO
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_mat_mul_ZERO'
+  TYPE(matrixT) :: test1, test2, test3
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(m,n) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> set up expected result
+  expDat = RESHAPE(  (/ 0.d0,0.d0,0.d0,0.d0,0.d0,0.d0 /), SHAPE(expDat) )
+
+  !> initialize first matrix (zeros)
+  CALL dm_init(test1, m,m)
+
+  !> initialize second matrix
+  !! (loop sets up data)
+  CALL dm_init(test2, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test2, i,j, ( (DBLE(j)-1.d0)*DBLE(m) + DBLE(i) ) )
+    END DO
+  END DO
+
+  !> perform matrix-matrix multiplication
+  test3 = dm_matMul(test1,test2)
+  CALL assertEquals(expDat,test3%dat, m,n)
+
+  !> deallocate matrices
+  CALL dm_clean(test1)
+  CALL dm_clean(test2)
+  CALL dm_clean(test3)
+
+END SUBROUTINE test_dm_mat_mul_ZERO
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct matrix-matrix multiplication (by identity matrix)
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      First (left-hand) input dense matrix (identity)
+!!  \param test2      Second (right-hand) input dense matrix
+!!  \param test3      Output matrix
+!!  \param m          Number of rows in matrices
+!!  \param n          Number of columns in matrices
+!!  \param expDat     Expected result
+!!
+!!  This test checks that matrix-matrix multiplication is performed
+!!  correctly for multiplication by the identity matrix for multiplication.
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_mat_mul_IDENT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_mat_mul_IDENT'
+  TYPE(matrixT) :: test1, test2, test3
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(m,n) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize first matrix
+  !! (loop sets up identity matrix)
+  CALL dm_init(test1, m,m)
+  DO j = 1,m
+    DO i = 1,m
+      IF (i.EQ.j) CALL dm_set(test1, i,j, 1.d0)
+    END DO
+  END DO
+
+  !> initialize second matrix
+  !! (loop sets up data)
+  CALL dm_init(test2, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test2, i,j, ( (DBLE(j)-1.d0)*DBLE(m) + DBLE(i) ) )
+    END DO
+  END DO
+
+  !> expected result is the same as the second matrix
+  expDat = test2%dat
+
+  !> perform matrix-matrix multiplication
+  test3 = dm_matMul(test1,test2)
+  CALL assertEquals(expDat,test3%dat, m,n)
+
+  !> deallocate matrices
+  CALL dm_clean(test1)
+  CALL dm_clean(test2)
+  CALL dm_clean(test3)
+
+END SUBROUTINE test_dm_mat_mul_IDENT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct matrix-matrix multiplication ( using OPERATOR (*) )
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      First (left-hand) input dense matrix
+!!  \param test2      Second (right-hand) input dense matrix
+!!  \param test3      Output matrix
+!!  \param m          Number of rows in matrices
+!!  \param n          Number of columns in matrices
+!!  \param expDat     Expected result
+!!
+!!  This test checks that matrix-matrix multiplication is performed
+!!  correctly in the general case (input matrices contain data,
+!!  but it is not of a special form). This test uses the overloaded
+!!  operator (*).
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_mat_mul_OP
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_mat_mul_OP'
+  TYPE(matrixT) :: test1, test2, test3
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(m,n) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> set up expected result
+  expDat = RESHAPE( (/ &
+                    30.d0,36.d0,42.d0,66.d0,81.d0,96.d0 &
+                    /), SHAPE(expDat) )
+
+  !> initialize first matrix (dimensions of m x m)
+  !! (loop sets up data)
+  CALL dm_init(test1, m,m)
+  DO j = 1,m
+    DO i = 1,m
+      CALL dm_set(test1, i,j, ( (DBLE(j)-1.d0)*DBLE(m) + DBLE(i) ) )
+    END DO
+  END DO
+
+  !> initialize second matrix (dimensions of m x n)
+  !! (loop sets up data)
+  CALL dm_init(test2, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test2, i,j, ( (DBLE(j)-1.d0)*DBLE(m) + DBLE(i) ) )
+    END DO
+  END DO
+
+  !> perform matrix-matrix multiplication
+  test3 = test1*test2
+  CALL assertEquals(expDat,test3%dat, m,n)
+
+  !> deallocate matrices
+  CALL dm_clean(test1)
+  CALL dm_clean(test2)
+  CALL dm_clean(test3)
+
+END SUBROUTINE test_dm_mat_mul_OP
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for matrix transpose operation
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param test1      Input dense matrix
+!!  \param test2      Output dense matrix
+!!  \param m          Number of rows in matrices
+!!  \param n          Number of columns in matrices
+!!  \param expDat     Expected result
+! ------------------------------------------------------------------------
+SUBROUTINE test_dm_transpose
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_dm_transpose'
+  TYPE(matrixT) :: test1, test2
+  INTEGER, PARAMETER :: m=3,n=2
+  DOUBLE PRECISION, DIMENSION(n,m) :: expDat
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize input matrix
+  !! (loop sets up data)
+  CALL dm_init(test1, m,n)
+  DO j = 1,n
+    DO i = 1,m
+      CALL dm_set(test1, i,j, ( (DBLE(j)-1.d0)*DBLE(m) + DBLE(i) ) )
+    END DO
+  END DO
+
+  !> calculate expected result (using Fortran built-in)
+  expDat = TRANSPOSE(test1%dat)
+
+  !> perform transpose operation
+  test2 = dm_transpose(test1)
+  CALL assertEquals(expDat,test2%dat, n,m)
+
+  !> deallocate matrices
+  CALL dm_clean(test1)
+  CALL dm_clean(test2)
+
+END SUBROUTINE test_dm_transpose
+
+END MODULE dense_matrix_test

Examples/SoilWaterStructureInteraction/dynsws/trunk/dense_matrix_test.mod

+GFORTRAN module version '6' created from dense_matrix_test.f90 on Sun Apr 29 22:07:08 2012
+MD5:40b7495abd4e1c51c2e1aa08af5bcaf4 -- If you edit this, you'll get what you deserve.
+
+(() () (2 3) () (4 5 6 7 8 9) () () () () () () () () () () () () () ()
+() () () () () () () ())
+
+()
+
+(('add_fail' 'fruit' 10 11) ('addsuccess' 'fruit' 12) ('addfail' 'fruit'
+10 11) ('assert_not_equals' 'fruit' 13 14 15) ('assert_equals' 'fruit'
+16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36) (
+'assertequals' 'fruit' 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
+32 33 34 35 36) ('asserttrue' 'fruit' 37) ('dm_add' 'dense_matrix_def'
+38 2) ('dm_clean' 'dense_matrix_def' 39) ('assertnotequals' 'fruit' 13
+14 15) ('dm_init' 'dense_matrix_def' 40 41) ('dm_matmul'
+'dense_matrix_def' 42 4) ('dm_numrows' 'dense_matrix_def' 43) (
+'dm_numcols' 'dense_matrix_def' 44) ('dm_scalmul' 'dense_matrix_def' 7)
+('dm_set' 'dense_matrix_def' 45 46) ('dm_vecmul' 'dense_matrix_def' 47 5)
+('dm_transpose' 'dense_matrix_def' 48) ('dm_get' 'dense_matrix_def' 49
+50) ('gettestsummary' 'fruit' 51) ('getfailedcount' 'fruit' 52) (
+'initializefruit' 'fruit' 53) ('gettotalcount' 'fruit' 54) (
+'isallsuccessful' 'fruit' 55) ('runtestcase' 'fruit' 56 57) (
+'run_test_case' 'fruit' 56 57) ('vec_clean' 'vector_def' 58) (
+'vec_dotprod' 'vector_def' 59 60) ('vec_add' 'vector_def' 61 3) (
+'vec_length' 'vector_def' 62) ('vec_init' 'vector_def' 63 64) ('vec_set'
+'vector_def' 65 66) ('vec_scalmul' 'vector_def' 9) ('vec_mappedadd'
+'vector_def' 67 68) ('vec_get' 'vector_def' 69 70))
+
+()
+
+()
+
+()
+
+(10 'add_fail_unit_' 'fruit' 'add_fail_unit_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 71 0 (72 73) () 0 () () () 0 0)
+11 'add_fail_' 'fruit' 'add_fail_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE ALWAYS_EXPLICIT) (
+UNKNOWN 0 0 0 UNKNOWN ()) 74 0 (75) () 0 () () () 0 0)
+25 'assert_eq_1d_string_' 'fruit' 'assert_eq_1d_string_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 76 0 (77 78 79 80) () 0 () () () 0 0)
+28 'assert_eq_1d_int_' 'fruit' 'assert_eq_1d_int_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 81 0 (82 83 84 85) () 0 () () () 0 0)
+30 'assert_eq_real_in_range_' 'fruit' 'assert_eq_real_in_range_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 86 0 (87 88 89 90) () 0 () ()
+() 0 0)
+29 'assert_eq_double_in_range_' 'fruit' 'assert_eq_double_in_range_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 91 0 (92 93 94 95) () 0 () ()
+() 0 0)
+27 'assert_eq_1d_double_' 'fruit' 'assert_eq_1d_double_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 96 0 (97 98 99 100) () 0 () () () 0 0)
+31 'assert_eq_complex_' 'fruit' 'assert_eq_complex_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 101 0 (102 103 104) () 0 () () () 0 0)
+35 'assert_eq_double_' 'fruit' 'assert_eq_double_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 105 0 (106 107 108) () 0 () () () 0 0)
+2 'dm_add_' 'dense_matrix_def' 'dm_add_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 109 0 0 DERIVED ()) 110
+0 (111 112) () 113 () () () 0 0)
+3 'vec_add_' 'vector_def' 'vec_add_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 114 0 0 DERIVED ()) 115
+0 (116 117) () 118 () () () 0 0)
+6 'dm_scal_mul_scal_mat_' 'dense_matrix_def' 'dm_scal_mul_scal_mat_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+DERIVED 109 0 0 DERIVED ()) 119 0 (120 121) () 122 () () () 0 0)
+5 'dm_vec_mul_' 'dense_matrix_def' 'dm_vec_mul_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 114 0 0
+DERIVED ()) 123 0 (124 125) () 126 () () () 0 0)
+4 'dm_mat_mul_' 'dense_matrix_def' 'dm_mat_mul_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 109 0 0
+DERIVED ()) 127 0 (128 129) () 130 () () () 0 0)
+9 'vec_scal_mul_vec_scal_' 'vector_def' 'vec_scal_mul_vec_scal_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+DERIVED 114 0 0 DERIVED ()) 131 0 (132 133) () 134 () () () 0 0)
+8 'vec_scal_mul_scal_vec_' 'vector_def' 'vec_scal_mul_scal_vec_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+DERIVED 114 0 0 DERIVED ()) 135 0 (136 137) () 138 () () () 0 0)
+39 'dm_clean_' 'dense_matrix_def' 'dm_clean_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 139 0 (140) () 0 () () () 0 0)
+41 'dm_init_' 'dense_matrix_def' 'dm_init_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 141
+0 (142 143 144) () 0 () () () 0 0)
+34 'assert_eq_real_' 'fruit' 'assert_eq_real_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 145 0 (146 147 148) () 0 () () () 0 0)
+49 'dm_get_exc_' 'dense_matrix_def' 'dm_get_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+149 0 (150 151 152 153) () 154 () () () 0 0)
+38 'dm_add_exc_' 'dense_matrix_def' 'dm_add_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 109 0 0
+DERIVED ()) 155 0 (156 157 158) () 159 () () () 0 0)
+50 'dm_get_' 'dense_matrix_def' 'dm_get_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (REAL 8 0 0 REAL ())
+160 0 (161 162 163) () 164 () () () 0 0)
+44 'dm_num_cols_' 'dense_matrix_def' 'dm_num_cols_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 165 0 (166) () 167 () () () 0 0)
+43 'dm_num_rows_' 'dense_matrix_def' 'dm_num_rows_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 168 0 (169) () 170 () () () 0 0)
+40 'dm_init_exc_' 'dense_matrix_def' 'dm_init_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 171 0 (172 173 174 175) () 0 () () () 0 0)
+46 'dm_set_' 'dense_matrix_def' 'dm_set_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0
+UNKNOWN ()) 176 0 (177 178 179 180) () 0 () () () 0 0)
+45 'dm_set_exc_' 'dense_matrix_def' 'dm_set_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 181 0 (182 183 184 185 186) () 0 () () () 0 0)
+7 'dm_scal_mul_mat_scal_' 'dense_matrix_def' 'dm_scal_mul_mat_scal_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+DERIVED 109 0 0 DERIVED ()) 187 0 (188 189) () 190 () () () 0 0)
+47 'dm_vec_mul_exc_' 'dense_matrix_def' 'dm_vec_mul_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 114 0 0
+DERIVED ()) 191 0 (192 193 194) () 195 () () () 0 0)
+15 'assert_not_equals_real_' 'fruit' 'assert_not_equals_real_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 196 0 (197 198 199) () 0 ()
+() () 0 0)
+42 'dm_mat_mul_exc_' 'dense_matrix_def' 'dm_mat_mul_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 109 0 0
+DERIVED ()) 200 0 (201 202 203) () 204 () () () 0 0)
+48 'dm_transpose_' 'dense_matrix_def' 'dm_transpose_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 109 0 0
+DERIVED ()) 205 0 (206) () 207 () () () 0 0)
+37 'obsolete_assert_true_logical_' 'fruit' 'obsolete_assert_true_logical_'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 208 0 (209 210)
+() 0 () () () 0 0)
+16 'assert_eq_2d_double_in_range_' 'fruit' 'assert_eq_2d_double_in_range_'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 211 0 (212 213 214 215 216
+217) () 0 () () () 0 0)
+54 'obsolete_gettotalcount_' 'fruit' 'obsolete_gettotalcount_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 218 0 (219) () 0 () () () 0 0)
+14 'assert_not_equals_1d_real_' 'fruit' 'assert_not_equals_1d_real_' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 220 0 (221 222 223) () 0 () () () 0 0)
+13 'assert_not_equals_double_' 'fruit' 'assert_not_equals_double_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 224 0 (225 226 227) () 0 ()
+() () 0 0)
+114 'vectort' 'vector_def' 'vectort' 1 ((DERIVED UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOC_COMP) (UNKNOWN 0 0 0 UNKNOWN ())
+0 0 () () 0 ((228 'dat' (REAL 8 0 0 REAL ()) (1 0 DEFERRED () ()) (
+UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOCATABLE
+DIMENSION) UNKNOWN-ACCESS ())) PUBLIC (() () () ()) () 0 0 58143611)
+36 'assert_eq_int_' 'fruit' 'assert_eq_int_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 229 0 (230 231 232) () 0 () () () 0 0)
+33 'assert_eq_logical_' 'fruit' 'assert_eq_logical_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 233 0 (234 235 236) () 0 () () () 0 0)
+53 'obsolete_initializefruit_' 'fruit' 'obsolete_initializefruit_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+61 'vec_add_exc_' 'vector_def' 'vec_add_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (DERIVED 114 0 0
+DERIVED ()) 237 0 (238 239 240) () 241 () () () 0 0)
+60 'vec_dot_prod_' 'vector_def' 'vec_dot_prod_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+REAL 8 0 0 REAL ()) 242 0 (243 244) () 245 () () () 0 0)
+59 'vec_dot_prod_exc_' 'vector_def' 'vec_dot_prod_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+246 0 (247 248 249) () 250 () () () 0 0)
+63 'vec_init_exc_' 'vector_def' 'vec_init_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 251 0 (252 253 254) () 0 () () () 0 0)
+70 'vec_get_' 'vector_def' 'vec_get_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (REAL 8 0 0 REAL ())
+255 0 (256 257) () 258 () () () 0 0)
+69 'vec_get_exc_' 'vector_def' 'vec_get_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+259 0 (260 261 262) () 263 () () () 0 0)
+51 'obsolete_gettestsummary_' 'fruit' 'obsolete_gettestsummary_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+67 'vec_mapped_add_exc_' 'vector_def' 'vec_mapped_add_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 264 0 (265 266 267 268) () 0
+() () () 0 0)
+64 'vec_init_' 'vector_def' 'vec_init_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 269
+0 (270 271) () 0 () () () 0 0)
+68 'vec_mapped_add_' 'vector_def' 'vec_mapped_add_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 272 0 (273 274 275) () 0 () () () 0 0)
+62 'vec_length_' 'vector_def' 'vec_length_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (INTEGER 4 0 0
+INTEGER ()) 276 0 (277) () 278 () () () 0 0)
+66 'vec_set_' 'vector_def' 'vec_set_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0
+UNKNOWN ()) 279 0 (280 281 282) () 0 () () () 0 0)
+65 'vec_set_exc_' 'vector_def' 'vec_set_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 283 0 (284 285 286 287) () 0 () () () 0 0)
+58 'vec_clean_' 'vector_def' 'vec_clean_' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (UNKNOWN 0 0 0
+UNKNOWN ()) 288 0 (289) () 0 () () () 0 0)
+52 'obsolete_getfailedcount_' 'fruit' 'obsolete_getfailedcount_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 290 0 (291) () 0 () () () 0 0)
+57 'run_test_case_' 'fruit' 'run_test_case_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 292 0 (293) () 0 () () () 0 0)
+56 'run_test_case_named_' 'fruit' 'run_test_case_named_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 294 0 (295 296) () 0 () () () 0 0)
+17 'assert_eq_2d_real_in_range_' 'fruit' 'assert_eq_2d_real_in_range_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 297 0 (298 299 300 301 302
+303) () 0 () () () 0 0)
+55 'obsolete_isallsuccessful_' 'fruit' 'obsolete_isallsuccessful_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 304 0 (305) () 0 () () () 0 0)
+32 'assert_eq_string_' 'fruit' 'assert_eq_string_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 306 0 (307 308 309) () 0 () () () 0 0)
+24 'assert_eq_1d_complex_' 'fruit' 'assert_eq_1d_complex_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 310 0 (311 312 313 314) () 0
+() () () 0 0)
+22 'assert_eq_1d_double_in_range_' 'fruit' 'assert_eq_1d_double_in_range_'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 315 0 (316 317 318 319 320)
+() 0 () () () 0 0)
+18 'assert_eq_2d_complex_' 'fruit' 'assert_eq_2d_complex_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 321 0 (322 323 324 325 326)
+() 0 () () () 0 0)
+12 'obsolete_addsuccess_' 'fruit' 'obsolete_addsuccess_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+21 'assert_eq_2d_int_' 'fruit' 'assert_eq_2d_int_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 327 0 (328 329 330 331 332) () 0 () () () 0 0)
+20 'assert_eq_2d_double_' 'fruit' 'assert_eq_2d_double_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 333 0 (334 335 336 337 338) () 0 () () () 0 0)
+19 'assert_eq_2d_real_' 'fruit' 'assert_eq_2d_real_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 339 0 (340 341 342 343 344) () 0 () () () 0 0)
+23 'assert_eq_1d_real_in_range_' 'fruit' 'assert_eq_1d_real_in_range_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 345 0 (346 347 348 349 350)
+() 0 () () () 0 0)
+26 'assert_eq_1d_real_' 'fruit' 'assert_eq_1d_real_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 351 0 (352 353 354 355) () 0 () () () 0 0)
+356 'acc_max' 'system_constants' 'acc_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+357 'acc_min' 'system_constants' 'acc_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0 () () () 0
+0)
+358 'add_success' 'fruit' 'add_success' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0
+() () 0 () () () 0 0)
+359 'alloc' 'log_messages' 'alloc' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+360 'assert_true' 'fruit' 'assert_true' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0
+UNKNOWN ()) 361 0 (362 363) () 0 () () () 0 0)
+364 'bfcrdr' 'log_messages' 'bfcrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0)
+365 'bnddat' 'log_messages' 'bnddat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+366 'bndrdr' 'log_messages' 'bndrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+367 'bsymat' 'log_messages' 'bsymat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
+368 'cnsmat' 'log_messages' 'cnsmat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
+369 'coord_max' 'system_constants' 'coord_max' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0
+() () () 0 0)
+370 'coord_min' 'system_constants' 'coord_min' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0
+() () () 0 0)
+371 'dense_matrix_test' 'dense_matrix_test' 'dense_matrix_test' 1 ((
+MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0
+UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+372 'dimen' 'log_messages' 'dimen' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+373 'disp_max' 'system_constants' 'disp_max' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0
+() () () 0 0)
+374 'disp_min' 'system_constants' 'disp_min' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0
+() () () 0 0)
+375 'dmnrdr' 'log_messages' 'dmnrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0)
+376 'dnsmat' 'log_messages' 'dnsmat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0)
+377 'dtime_max' 'system_constants' 'dtime_max' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.27100000000000@4') () 0 ()
+() () 0 0)
+378 'dtime_min' 'system_constants' 'dtime_min' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.afebff0bcb24a8@-9') () 0
+() () () 0 0)
+379 'e_max' 'system_constants' 'e_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+380 'e_min' 'system_constants' 'e_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0)
+381 'exceed' 'log_messages' 'exceed' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
+382 'exists' 'log_messages' 'exists' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
+383 'failed_assert_action' 'fruit' 'failed_assert_action' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 384 0 (385 386 387) () 0 () () () 0 0)
+388 'flddat' 'log_messages' 'flddat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
+389 'formt' 'log_messages' 'formt' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0)
+390 'fruit_summary' 'fruit' 'fruit_summary' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0
+() () 0 () () () 0 0)
+391 'get_failed_count' 'fruit' 'get_failed_count' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 392 0 (393) () 0 () () () 0 0)
+394 'get_last_message' 'fruit' 'get_last_message' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (CHARACTER 1 0 0
+CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 394
+() () () 0 0)
+395 'get_total_count' 'fruit' 'get_total_count' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 396 0 (397) () 0 () () () 0 0)
+398 'get_unit_name' 'fruit' 'get_unit_name' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 399
+0 (400) () 0 () () () 0 0)
+401 'ictrdr' 'log_messages' 'ictrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0)
+402 'icvrdr' 'log_messages' 'icvrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0)
+403 'init_fruit' 'fruit' 'init_fruit' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0
+() () 0 () () () 0 0)
+404 'is_all_successful' 'fruit' 'is_all_successful' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 405 0 (406) () 0 () () () 0 0)
+407 'is_last_passed' 'fruit' 'is_last_passed' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 407 () () () 0 0)
+408 'kbcrdr' 'log_messages' 'kbcrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0)
+409 'linslv' 'log_messages' 'linslv' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '12') () 0 () () () 0 0)
+410 'log_closelogfile' 'log_message_control' 'log_closelogfile' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+411 'log_getfilename' 'log_message_control' 'log_getfilename' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0
+INTEGER ()) 0 '200'))) 0 0 () () 412 () () () 0 0)
+413 'log_initlogfile' 'log_message_control' 'log_initlogfile' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+414 'log_messages' 'log_messages' 'log_messages' 1 ((MODULE
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN
+()) 0 0 () () 0 () () () 0 0)
+415 'log_printlogmsg' 'log_message_control' 'log_printlogmsg' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 416 0 (417 418) () 0 () () () 0 0)
+419 'log_setfilename' 'log_message_control' 'log_setfilename' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 420 0 (421) () 0 () () () 0 0)
+109 'matrixt' 'dense_matrix_def' 'matrixt' 1 ((DERIVED UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOC_COMP) (UNKNOWN 0 0 0 UNKNOWN ())
+0 0 () () 0 ((422 'dat' (REAL 8 0 0 REAL ()) (2 0 DEFERRED () () () ())
+(UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOCATABLE
+DIMENSION) UNKNOWN-ACCESS ())) PUBLIC (() () () ()) () 0 0 72249915)
+423 'max_boundels' 'system_constants' 'max_boundels' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2000') () 0 ()
+() () 0 0)
+424 'max_dofs' 'system_constants' 'max_dofs' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3990') () 0 ()
+() () 0 0)
+425 'max_elements' 'system_constants' 'max_elements' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5000') () 0 ()
+() () 0 0)
+426 'max_materials' 'system_constants' 'max_materials' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '30') () 0 ()
+() () 0 0)
+427 'max_nodes' 'system_constants' 'max_nodes' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2000') () 0 ()
+() () 0 0)
+428 'max_timesteps' 'system_constants' 'max_timesteps' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
+INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '10000') () 0
+() () () 0 0)
+429 'maxlen' 'system_constants' 'maxlen' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '200') () 0 () () () 0 0)
+430 'msg_getmsg' 'log_messages' 'msg_getmsg' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '200')))
+431 0 (432) () 433 () () () 0 0)
+434 'msg_getsdr' 'log_messages' 'msg_getsdr' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '200')))
+435 0 (436) () 437 () () () 0 0)
+438 'mtldat' 'log_messages' 'mtldat' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
+439 'mtlrdr' 'log_messages' 'mtlrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '14') () 0 () () () 0 0)
+440 'nbcrdr' 'log_messages' 'nbcrdr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '15') () 0 () () () 0 0)
+441 'ndim' 'system_constants' 'ndim' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+442 'nnodel' 'system_constants' 'nnodel' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+443 'nnodelb' 'system_constants' 'nnodelb' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+444 'ntns' 'system_constants' 'ntns' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+445 'nu_max' 'system_constants' 'nu_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.7fbe76c8b43958@0') () 0 () () () 0 0)
+446 'nu_min' 'system_constants' 'nu_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0)
+447 'ok' 'log_messages' 'ok' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0)
+448 'one_third' 'system_constants' 'one_third' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.55555555555554@0') () 0 ()
+() () 0 0)
+449 'posdef' 'log_messages' 'posdef' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
+450 'posit' 'log_messages' 'posit' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0)
+451 'rho_max' 'system_constants' 'rho_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+452 'rho_min' 'system_constants' 'rho_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000@0') () 0 () () () 0 0)
+453 'set_unit_name' 'fruit' 'set_unit_name' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 454
+0 (455) () 0 () () () 0 0)
+456 'sig_max' 'system_constants' 'sig_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+457 'sig_min' 'system_constants' 'sig_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0 () () () 0
+0)
+458 'str_max' 'system_constants' 'str_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.28f5c28f5c28f6@-1') () 0 () () () 0 0)
+459 'str_min' 'system_constants' 'str_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.28f5c28f5c28f6@-1') () 0 () () () 0
+0)
+460 'str_small' 'system_constants' 'str_small' 1 ((PARAMETER
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL
+()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.28f5c28f5c28f6@-1') () 0
+() () () 0 0)
+461 'system_constants' 'system_constants' 'system_constants' 1 ((MODULE
+UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 UNKNOWN
+()) 0 0 () () 0 () () () 0 0)
+462 'sze' 'log_messages' 'sze' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0)
+463 'test_dm_add_dimen' 'dense_matrix_test' 'test_dm_add_dimen' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+464 'test_dm_add_op' 'dense_matrix_test' 'test_dm_add_op' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+465 'test_dm_add_val' 'dense_matrix_test' 'test_dm_add_val' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+466 'test_dm_allocation_dat' 'dense_matrix_test' 'test_dm_allocation_dat'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+467 'test_dm_allocation_msg' 'dense_matrix_test' 'test_dm_allocation_msg'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+468 'test_dm_allocation_sze' 'dense_matrix_test' 'test_dm_allocation_sze'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+469 'test_dm_deallocation' 'dense_matrix_test' 'test_dm_deallocation' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+470 'test_dm_get_posit' 'dense_matrix_test' 'test_dm_get_posit' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+471 'test_dm_get_val' 'dense_matrix_test' 'test_dm_get_val' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+472 'test_dm_mat_mul_dimen' 'dense_matrix_test' 'test_dm_mat_mul_dimen'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+473 'test_dm_mat_mul_ident' 'dense_matrix_test' 'test_dm_mat_mul_ident'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+474 'test_dm_mat_mul_op' 'dense_matrix_test' 'test_dm_mat_mul_op' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+475 'test_dm_mat_mul_val' 'dense_matrix_test' 'test_dm_mat_mul_val' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+476 'test_dm_mat_mul_zero' 'dense_matrix_test' 'test_dm_mat_mul_zero' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+477 'test_dm_num_cols_allocated' 'dense_matrix_test'
+'test_dm_num_cols_allocated' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () ()
+() 0 0)
+478 'test_dm_num_cols_not_allocated' 'dense_matrix_test'
+'test_dm_num_cols_not_allocated' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0
+() () 0 () () () 0 0)
+479 'test_dm_num_rows_allocated' 'dense_matrix_test'
+'test_dm_num_rows_allocated' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
+DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () ()
+() 0 0)
+480 'test_dm_num_rows_not_allocated' 'dense_matrix_test'
+'test_dm_num_rows_not_allocated' 1 ((PROCEDURE UNKNOWN-INTENT
+MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0
+() () 0 () () () 0 0)
+481 'test_dm_scal_mul_op' 'dense_matrix_test' 'test_dm_scal_mul_op' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+482 'test_dm_scal_mul_val' 'dense_matrix_test' 'test_dm_scal_mul_val' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+483 'test_dm_scal_mul_zero' 'dense_matrix_test' 'test_dm_scal_mul_zero'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+484 'test_dm_set_posit' 'dense_matrix_test' 'test_dm_set_posit' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE
+IMPLICIT_PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+485 'test_dm_set_val' 'dense_matrix_test' 'test_dm_set_val' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+486 'test_dm_transpose' 'dense_matrix_test' 'test_dm_transpose' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+487 'test_dm_vec_mul_dimen' 'dense_matrix_test' 'test_dm_vec_mul_dimen'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+488 'test_dm_vec_mul_ident' 'dense_matrix_test' 'test_dm_vec_mul_ident'
+1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+489 'test_dm_vec_mul_op' 'dense_matrix_test' 'test_dm_vec_mul_op' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+490 'test_dm_vec_mul_val' 'dense_matrix_test' 'test_dm_vec_mul_val' 1 (
+(PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+491 'test_dm_vec_mul_zero' 'dense_matrix_test' 'test_dm_vec_mul_zero' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+492 'tnswtr' 'log_messages' 'tnswtr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '16') () 0 () () () 0 0)
+493 'typ' 'log_messages' 'typ' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0)
+494 'vector' 'log_messages' 'vector' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '17') () 0 () () () 0 0)
+495 'vecwtr' 'log_messages' 'vecwtr' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
+(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '18') () 0 () () () 0 0)
+496 'vel_max' 'system_constants' 'vel_max' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '0.174876e8000000@10') () 0 () () () 0 0)
+497 'vel_min' 'system_constants' 'vel_min' 1 ((PARAMETER UNKNOWN-INTENT
+UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (REAL 8 0 0 REAL ()) 0 0 () (
+CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.174876e8000000@10') () 0 () () () 0
+0)
+418 'sdr' '' 'sdr' 416 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+417 'msg' '' 'msg' 416 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+421 'fname' '' 'fname' 420 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+412 'fname' '' 'fname' 498 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN UNKNOWN 0 0 RESULT) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '200'))) 0 0 () () 0 () () () 0 0)
+271 'n' '' 'n' 269 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+252 'self' '' 'self' 251 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+433 'exc' '' 'exc' 431 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0
+INTEGER ()) 0 '200'))) 0 0 () () 0 () () () 0 0)
+437 'sdr' '' 'sdr' 435 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0
+INTEGER ()) 0 '200'))) 0 0 () () 0 () () () 0 0)
+436 'code' '' 'code' 435 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+432 'code' '' 'code' 431 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+363 'message' '' 'message' 361 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+386 'got' '' 'got' 384 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+385 'expected' '' 'expected' 384 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+397 'count' '' 'count' 396 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+406 'result' '' 'result' 405 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+400 'value' '' 'value' 399 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+387 'message' '' 'message' 384 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+210 'message' '' 'message' 208 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+231 'var2' '' 'var2' 229 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+230 'var1' '' 'var1' 229 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+232 'message' '' 'message' 229 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+107 'var2' '' 'var2' 105 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+108 'message' '' 'message' 105 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+148 'message' '' 'message' 145 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+147 'var2' '' 'var2' 145 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+146 'var1' '' 'var1' 145 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+106 'var1' '' 'var1' 105 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+234 'var1' '' 'var1' 233 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+236 'message' '' 'message' 233 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+235 'var2' '' 'var2' 233 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+307 'var1' '' 'var1' 306 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+309 'message' '' 'message' 306 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+308 'var2' '' 'var2' 306 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+104 'message' '' 'message' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+103 'var2' '' 'var2' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0)
+102 'var1' '' 'var1' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0)
+89 'var3' '' 'var3' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+90 'message' '' 'message' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+94 'var3' '' 'var3' 91 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+93 'var2' '' 'var2' 91 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+92 'var1' '' 'var1' 91 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+88 'var2' '' 'var2' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+87 'var1' '' 'var1' 86 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+83 'var2' '' 'var2' 81 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 84 ())) 0 () () () 0 0)
+82 'var1' '' 'var1' 81 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 84 ())) 0 () () () 0 0)
+85 'message' '' 'message' 81 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+84 'n' '' 'n' 81 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+95 'message' '' 'message' 91 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+99 'n' '' 'n' 96 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+98 'var2' '' 'var2' 96 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+99 ())) 0 () () () 0 0)
+352 'var1' '' 'var1' 351 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+354 ())) 0 () () () 0 0)
+353 'var2' '' 'var2' 351 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+354 ())) 0 () () () 0 0)
+100 'message' '' 'message' 96 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+355 'message' '' 'message' 351 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+354 'n' '' 'n' 351 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+97 'var1' '' 'var1' 96 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+99 ())) 0 () () () 0 0)
+77 'var1' '' 'var1' 76 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 79 ())) 0 () () () 0 0)
+79 'n' '' 'n' 76 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+80 'message' '' 'message' 76 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+313 'n' '' 'n' 310 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+312 'var2' '' 'var2' 310 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 313 ())) 0 () () () 0 0)
+311 'var1' '' 'var1' 310 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 313 ())) 0 () () () 0 0)
+346 'var1' '' 'var1' 345 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+348 ())) 0 () () () 0 0)
+314 'message' '' 'message' 310 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+348 'n' '' 'n' 345 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+349 'var3' '' 'var3' 345 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+350 'message' '' 'message' 345 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+347 'var2' '' 'var2' 345 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+348 ())) 0 () () () 0 0)
+78 'var2' '' 'var2' 76 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 79 ())) 0 () () () 0 0)
+318 'n' '' 'n' 315 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+317 'var2' '' 'var2' 315 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+318 ())) 0 () () () 0 0)
+316 'var1' '' 'var1' 315 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+318 ())) 0 () () () 0 0)
+209 'var1' '' 'var1' 208 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+328 'var1' '' 'var1' 327 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 330 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
+VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 331 ())) 0 () () () 0 0)
+329 'var2' '' 'var2' 327 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 330 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
+VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 331 ())) 0 () () () 0 0)
+334 'var1' '' 'var1' 333 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+336 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 337 ())) 0 () () () 0 0)
+332 'message' '' 'message' 327 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+335 'var2' '' 'var2' 333 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+336 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 337 ())) 0 () () () 0 0)
+331 'm' '' 'm' 327 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+330 'n' '' 'n' 327 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+320 'message' '' 'message' 315 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+337 'm' '' 'm' 333 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+338 'message' '' 'message' 333 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+343 'm' '' 'm' 339 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+342 'n' '' 'n' 339 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+341 'var2' '' 'var2' 339 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+342 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 343 ())) 0 () () () 0 0)
+340 'var1' '' 'var1' 339 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+342 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 343 ())) 0 () () () 0 0)
+323 'var2' '' 'var2' 321 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (2 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 324 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
+VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 325 ())) 0 () () () 0 0)
+322 'var1' '' 'var1' 321 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (2 0 EXPLICIT (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
+INTEGER ()) 0 324 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
+VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 325 ())) 0 () () () 0 0)
+325 'm' '' 'm' 321 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+326 'message' '' 'message' 321 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+324 'n' '' 'n' 321 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+344 'message' '' 'message' 339 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+300 'n' '' 'n' 297 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+299 'var2' '' 'var2' 297 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+300 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 301 ())) 0 () () () 0 0)
+298 'var1' '' 'var1' 297 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+300 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 301 ())) 0 () () () 0 0)
+303 'message' '' 'message' 297 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+302 'var3' '' 'var3' 297 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+214 'n' '' 'n' 211 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+213 'var2' '' 'var2' 211 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+214 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 215 ())) 0 () () () 0 0)
+212 'var1' '' 'var1' 211 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+214 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4
+0 0 INTEGER ()) 0 215 ())) 0 () () () 0 0)
+216 'var3' '' 'var3' 211 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+215 'm' '' 'm' 211 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+197 'var1' '' 'var1' 196 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+199 'message' '' 'message' 196 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+221 'var1' '' 'var1' 220 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+223 ())) 0 () () () 0 0)
+198 'var2' '' 'var2' 196 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+217 'message' '' 'message' 211 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+222 'var2' '' 'var2' 220 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
+223 ())) 0 () () () 0 0)
+225 'var1' '' 'var1' 224 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+227 'message' '' 'message' 224 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0
+() () () 0 0)
+75 'message' '' 'message' 74 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 OPTIONAL DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+219 'count' '' 'count' 218 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+73 'message' '' 'message' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+72 'unitname' '' 'unitname' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+226 'var2' '' 'var2' 224 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+291 'count' '' 'count' 290 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+293 'tc' '' 'tc' 292 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC BODY
+UNKNOWN 0 0 DUMMY SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 499 0 () () 0 ()
+() () 0 0)
+295 'tc' '' 'tc' 294 ((PROCEDURE UNKNOWN-INTENT DUMMY-PROC BODY UNKNOWN
+0 0 DUMMY SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 500 0 () () 0 () () ()
+0 0)
+296 'tc_name' '' 'tc_name' 294 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () ()
+0 0)
+305 'result' '' 'result' 304 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+223 'n' '' 'n' 220 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+301 'm' '' 'm' 297 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+336 'n' '' 'n' 333 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+319 'var3' '' 'var3' 315 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+362 'var1' '' 'var1' 361 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+393 'count' '' 'count' 392 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+455 'value' '' 'value' 454 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0)
+144 'n' '' 'n' 141 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+143 'm' '' 'm' 141 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+142 'self' '' 'self' 141 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+172 'self' '' 'self' 171 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+174 'n' '' 'n' 171 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+175 'exc' '' 'exc' 171 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+140 'self' '' 'self' 139 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+173 'm' '' 'm' 171 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+154 'v' '' 'v' 149 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+178 'i' '' 'i' 176 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+179 'j' '' 'j' 176 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+177 'self' '' 'self' 176 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+180 'v' '' 'v' 176 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+183 'i' '' 'i' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+184 'j' '' 'j' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+186 'exc' '' 'exc' 181 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+185 'v' '' 'v' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+111 'self' '' 'self' 110 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+112 'other' '' 'other' 110 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+182 'self' '' 'self' 181 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+157 'other' '' 'other' 155 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+156 'self' '' 'self' 155 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+188 'self' '' 'self' 187 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+159 'new' '' 'new' 155 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+158 'exc' '' 'exc' 155 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+190 'new' '' 'new' 187 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+124 'self' '' 'self' 123 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+126 'new' '' 'new' 123 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+125 'other' '' 'other' 123 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+189 'k' '' 'k' 187 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+113 'new' '' 'new' 110 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+195 'new' '' 'new' 191 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+194 'exc' '' 'exc' 191 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+193 'other' '' 'other' 191 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+192 'self' '' 'self' 191 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+153 'exc' '' 'exc' 149 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+129 'other' '' 'other' 127 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+130 'new' '' 'new' 127 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+202 'other' '' 'other' 200 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+204 'new' '' 'new' 200 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+121 'self' '' 'self' 119 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+122 'new' '' 'new' 119 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+120 'k' '' 'k' 119 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+203 'exc' '' 'exc' 200 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+201 'self' '' 'self' 200 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+207 'new' '' 'new' 205 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+206 'self' '' 'self' 205 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+136 'k' '' 'k' 135 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+128 'self' '' 'self' 127 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+138 'new' '' 'new' 135 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+132 'self' '' 'self' 131 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+134 'new' '' 'new' 131 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+133 'k' '' 'k' 131 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+117 'other' '' 'other' 115 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+118 'new' '' 'new' 115 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+116 'self' '' 'self' 115 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+137 'self' '' 'self' 135 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+169 'self' '' 'self' 168 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+166 'self' '' 'self' 165 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+161 'self' '' 'self' 160 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+162 'i' '' 'i' 160 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+163 'j' '' 'j' 160 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+164 'v' '' 'v' 160 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+151 'i' '' 'i' 149 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+150 'self' '' 'self' 149 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 109 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+152 'j' '' 'j' 149 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+167 'n' '' 'n' 165 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+170 'm' '' 'm' 168 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+253 'n' '' 'n' 251 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+289 'self' '' 'self' 288 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+254 'exc' '' 'exc' 251 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+270 'self' '' 'self' 269 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+278 'n' '' 'n' 276 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+256 'self' '' 'self' 255 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+258 'v' '' 'v' 255 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+257 'i' '' 'i' 255 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+277 'self' '' 'self' 276 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+280 'self' '' 'self' 279 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+281 'i' '' 'i' 279 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+263 'v' '' 'v' 259 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+262 'exc' '' 'exc' 259 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+284 'self' '' 'self' 283 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+287 'exc' '' 'exc' 283 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+286 'v' '' 'v' 283 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+285 'i' '' 'i' 283 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+238 'self' '' 'self' 237 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+240 'exc' '' 'exc' 237 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+239 'other' '' 'other' 237 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+282 'v' '' 'v' 279 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+273 'self' '' 'self' 272 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+274 'other' '' 'other' 272 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+266 'other' '' 'other' 264 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+265 'self' '' 'self' 264 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+275 'ind' '' 'ind' 272 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
+241 'new' '' 'new' 237 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0
+0)
+261 'i' '' 'i' 259 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+268 'exc' '' 'exc' 264 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+267 'ind' '' 'ind' 264 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE (
+CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0)
+244 'other' '' 'other' 242 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+245 'v' '' 'v' 242 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+243 'self' '' 'self' 242 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+249 'exc' '' 'exc' 246 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+248 'other' '' 'other' 246 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0
+0 DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+247 'self' '' 'self' 246 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+250 'v' '' 'v' 246 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+260 'self' '' 'self' 259 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (DERIVED 114 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0)
+)
+
+('acc_max' 0 356 'acc_min' 0 357 'add_success' 0 358 'alloc' 0 359
+'assert_true' 0 360 'bfcrdr' 0 364 'bnddat' 0 365 'bndrdr' 0 366 'bsymat'
+0 367 'cnsmat' 0 368 'coord_max' 0 369 'coord_min' 0 370
+'dense_matrix_test' 0 371 'dimen' 0 372 'disp_max' 0 373 'disp_min' 0
+374 'dmnrdr' 0 375 'dnsmat' 0 376 'dtime_max' 0 377 'dtime_min' 0 378
+'e_max' 0 379 'e_min' 0 380 'exceed' 0 381 'exists' 0 382
+'failed_assert_action' 0 383 'flddat' 0 388 'formt' 0 389 'fruit_summary'
+0 390 'get_failed_count' 0 391 'get_last_message' 0 394 'get_total_count'
+0 395 'get_unit_name' 0 398 'ictrdr' 0 401 'icvrdr' 0 402 'init_fruit' 0
+403 'is_all_successful' 0 404 'is_last_passed' 0 407 'kbcrdr' 0 408
+'linslv' 0 409 'log_closelogfile' 0 410 'log_getfilename' 0 411
+'log_initlogfile' 0 413 'log_messages' 0 414 'log_printlogmsg' 0 415
+'log_setfilename' 0 419 'matrixt' 0 109 'max_boundels' 0 423 'max_dofs'
+0 424 'max_elements' 0 425 'max_materials' 0 426 'max_nodes' 0 427
+'max_timesteps' 0 428 'maxlen' 0 429 'msg_getmsg' 0 430 'msg_getsdr' 0
+434 'mtldat' 0 438 'mtlrdr' 0 439 'nbcrdr' 0 440 'ndim' 0 441 'nnodel' 0
+442 'nnodelb' 0 443 'ntns' 0 444 'nu_max' 0 445 'nu_min' 0 446 'ok' 0
+447 'one_third' 0 448 'posdef' 0 449 'posit' 0 450 'rho_max' 0 451
+'rho_min' 0 452 'set_unit_name' 0 453 'sig_max' 0 456 'sig_min' 0 457
+'str_max' 0 458 'str_min' 0 459 'str_small' 0 460 'system_constants' 0
+461 'sze' 0 462 'test_dm_add_dimen' 0 463 'test_dm_add_op' 0 464
+'test_dm_add_val' 0 465 'test_dm_allocation_dat' 0 466
+'test_dm_allocation_msg' 0 467 'test_dm_allocation_sze' 0 468
+'test_dm_deallocation' 0 469 'test_dm_get_posit' 0 470 'test_dm_get_val'
+0 471 'test_dm_mat_mul_dimen' 0 472 'test_dm_mat_mul_ident' 0 473
+'test_dm_mat_mul_op' 0 474 'test_dm_mat_mul_val' 0 475
+'test_dm_mat_mul_zero' 0 476 'test_dm_num_cols_allocated' 0 477
+'test_dm_num_cols_not_allocated' 0 478 'test_dm_num_rows_allocated' 0
+479 'test_dm_num_rows_not_allocated' 0 480 'test_dm_scal_mul_op' 0 481
+'test_dm_scal_mul_val' 0 482 'test_dm_scal_mul_zero' 0 483
+'test_dm_set_posit' 0 484 'test_dm_set_val' 0 485 'test_dm_transpose' 0
+486 'test_dm_vec_mul_dimen' 0 487 'test_dm_vec_mul_ident' 0 488
+'test_dm_vec_mul_op' 0 489 'test_dm_vec_mul_val' 0 490
+'test_dm_vec_mul_zero' 0 491 'tnswtr' 0 492 'typ' 0 493 'vector' 0 494
+'vectort' 0 114 'vecwtr' 0 495 'vel_max' 0 496 'vel_min' 0 497)

Examples/SoilWaterStructureInteraction/dynsws/trunk/doc-dynsws

+# Doxyfile 1.8.0
+
+# This file describes the settings to be used by the documentation system
+# doxygen (www.doxygen.org) for a project.
+#
+# All text after a hash (#) is considered a comment and will be ignored.
+# The format is:
+#       TAG = value [value, ...]
+# For lists items can also be appended using:
+#       TAG += value [value, ...]
+# Values that contain spaces should be placed between quotes (" ").
+
+#---------------------------------------------------------------------------
+# Project related configuration options
+#---------------------------------------------------------------------------
+
+# This tag specifies the encoding used for all characters in the config file
+# that follow. The default is UTF-8 which is also the encoding used for all
+# text before the first occurrence of this tag. Doxygen uses libiconv (or the
+# iconv built into libc) for the transcoding. See
+# http://www.gnu.org/software/libiconv for the list of possible encodings.
+
+DOXYFILE_ENCODING      = UTF-8
+
+# The PROJECT_NAME tag is a single word (or sequence of words) that should
+# identify the project. Note that if you do not use Doxywizard you need
+# to put quotes around the project name if it contains spaces.
+
+PROJECT_NAME           = "DynSWS"
+
+# The PROJECT_NUMBER tag can be used to enter a project or revision number.
+# This could be handy for archiving the generated documentation or
+# if some version control system is used.
+
+PROJECT_NUMBER         = 1.0
+
+# Using the PROJECT_BRIEF tag one can provide an optional one line description
+# for a project that appears at the top of each page and should give viewer
+# a quick idea about the purpose of the project. Keep the description short.
+
+PROJECT_BRIEF          = "Dynamic model of soil-water-structure interaction"
+
+# With the PROJECT_LOGO tag one can specify an logo or icon that is
+# included in the documentation. The maximum height of the logo should not
+# exceed 55 pixels and the maximum width should not exceed 200 pixels.
+# Doxygen will copy the logo to the output directory.
+
+PROJECT_LOGO           =
+
+# The OUTPUT_DIRECTORY tag is used to specify the (relative or absolute)
+# base path where the generated documentation will be put.
+# If a relative path is entered, it will be relative to the location
+# where doxygen was started. If left blank the current directory will be used.
+
+OUTPUT_DIRECTORY       = doc
+
+# If the CREATE_SUBDIRS tag is set to YES, then doxygen will create
+# 4096 sub-directories (in 2 levels) under the output directory of each output
+# format and will distribute the generated files over these directories.
+# Enabling this option can be useful when feeding doxygen a huge amount of
+# source files, where putting all generated files in the same directory would
+# otherwise cause performance problems for the file system.
+
+CREATE_SUBDIRS         = NO
+
+# The OUTPUT_LANGUAGE tag is used to specify the language in which all
+# documentation generated by doxygen is written. Doxygen will use this
+# information to generate all constant output in the proper language.
+# The default language is English, other supported languages are:
+# Afrikaans, Arabic, Brazilian, Catalan, Chinese, Chinese-Traditional,
+# Croatian, Czech, Danish, Dutch, Esperanto, Farsi, Finnish, French, German,
+# Greek, Hungarian, Italian, Japanese, Japanese-en (Japanese with English
+# messages), Korean, Korean-en, Lithuanian, Norwegian, Macedonian, Persian,
+# Polish, Portuguese, Romanian, Russian, Serbian, Serbian-Cyrillic, Slovak,
+# Slovene, Spanish, Swedish, Ukrainian, and Vietnamese.
+
+OUTPUT_LANGUAGE        = English
+
+# If the BRIEF_MEMBER_DESC tag is set to YES (the default) Doxygen will
+# include brief member descriptions after the members that are listed in
+# the file and class documentation (similar to JavaDoc).
+# Set to NO to disable this.
+
+BRIEF_MEMBER_DESC      = YES
+
+# If the REPEAT_BRIEF tag is set to YES (the default) Doxygen will prepend
+# the brief description of a member or function before the detailed description.
+# Note: if both HIDE_UNDOC_MEMBERS and BRIEF_MEMBER_DESC are set to NO, the
+# brief descriptions will be completely suppressed.
+
+REPEAT_BRIEF           = YES
+
+# This tag implements a quasi-intelligent brief description abbreviator
+# that is used to form the text in various listings. Each string
+# in this list, if found as the leading text of the brief description, will be
+# stripped from the text and the result after processing the whole list, is
+# used as the annotated text. Otherwise, the brief description is used as-is.
+# If left blank, the following values are used ("$name" is automatically
+# replaced with the name of the entity): "The $name class" "The $name widget"
+# "The $name file" "is" "provides" "specifies" "contains"
+# "represents" "a" "an" "the"
+
+ABBREVIATE_BRIEF       =
+
+# If the ALWAYS_DETAILED_SEC and REPEAT_BRIEF tags are both set to YES then
+# Doxygen will generate a detailed section even if there is only a brief
+# description.
+
+ALWAYS_DETAILED_SEC    = NO
+
+# If the INLINE_INHERITED_MEMB tag is set to YES, doxygen will show all
+# inherited members of a class in the documentation of that class as if those
+# members were ordinary class members. Constructors, destructors and assignment
+# operators of the base classes will not be shown.
+
+INLINE_INHERITED_MEMB  = NO
+
+# If the FULL_PATH_NAMES tag is set to YES then Doxygen will prepend the full
+# path before files name in the file list and in the header files. If set
+# to NO the shortest path that makes the file name unique will be used.
+
+FULL_PATH_NAMES        = YES
+
+# If the FULL_PATH_NAMES tag is set to YES then the STRIP_FROM_PATH tag
+# can be used to strip a user-defined part of the path. Stripping is
+# only done if one of the specified strings matches the left-hand part of
+# the path. The tag can be used to show relative paths in the file list.
+# If left blank the directory from which doxygen is run is used as the
+# path to strip.
+
+STRIP_FROM_PATH        =
+
+# The STRIP_FROM_INC_PATH tag can be used to strip a user-defined part of
+# the path mentioned in the documentation of a class, which tells
+# the reader which header file to include in order to use a class.
+# If left blank only the name of the header file containing the class
+# definition is used. Otherwise one should specify the include paths that
+# are normally passed to the compiler using the -I flag.
+
+STRIP_FROM_INC_PATH    =
+
+# If the SHORT_NAMES tag is set to YES, doxygen will generate much shorter
+# (but less readable) file names. This can be useful if your file system
+# doesn't support long names like on DOS, Mac, or CD-ROM.
+
+SHORT_NAMES            = NO
+
+# If the JAVADOC_AUTOBRIEF tag is set to YES then Doxygen
+# will interpret the first line (until the first dot) of a JavaDoc-style
+# comment as the brief description. If set to NO, the JavaDoc
+# comments will behave just like regular Qt-style comments
+# (thus requiring an explicit @brief command for a brief description.)
+
+JAVADOC_AUTOBRIEF      = NO
+
+# If the QT_AUTOBRIEF tag is set to YES then Doxygen will
+# interpret the first line (until the first dot) of a Qt-style
+# comment as the brief description. If set to NO, the comments
+# will behave just like regular Qt-style comments (thus requiring
+# an explicit \brief command for a brief description.)
+
+QT_AUTOBRIEF           = NO
+
+# The MULTILINE_CPP_IS_BRIEF tag can be set to YES to make Doxygen
+# treat a multi-line C++ special comment block (i.e. a block of //! or ///
+# comments) as a brief description. This used to be the default behaviour.
+# The new default is to treat a multi-line C++ comment block as a detailed
+# description. Set this tag to YES if you prefer the old behaviour instead.
+
+MULTILINE_CPP_IS_BRIEF = NO
+
+# If the INHERIT_DOCS tag is set to YES (the default) then an undocumented
+# member inherits the documentation from any documented member that it
+# re-implements.
+
+INHERIT_DOCS           = YES
+
+# If the SEPARATE_MEMBER_PAGES tag is set to YES, then doxygen will produce
+# a new page for each member. If set to NO, the documentation of a member will
+# be part of the file/class/namespace that contains it.
+
+SEPARATE_MEMBER_PAGES  = NO
+
+# The TAB_SIZE tag can be used to set the number of spaces in a tab.
+# Doxygen uses this value to replace tabs by spaces in code fragments.
+
+TAB_SIZE               = 2
+
+# This tag can be used to specify a number of aliases that acts
+# as commands in the documentation. An alias has the form "name=value".
+# For example adding "sideeffect=\par Side Effects:\n" will allow you to
+# put the command \sideeffect (or @sideeffect) in the documentation, which
+# will result in a user-defined paragraph with heading "Side Effects:".
+# You can put \n's in the value part of an alias to insert newlines.
+
+ALIASES                =
+
+# This tag can be used to specify a number of word-keyword mappings (TCL only).
+# A mapping has the form "name=value". For example adding
+# "class=itcl::class" will allow you to use the command class in the
+# itcl::class meaning.
+
+TCL_SUBST              =
+
+# Set the OPTIMIZE_OUTPUT_FOR_C tag to YES if your project consists of C
+# sources only. Doxygen will then generate output that is more tailored for C.
+# For instance, some of the names that are used will be different. The list
+# of all members will be omitted, etc.
+
+OPTIMIZE_OUTPUT_FOR_C  = NO
+
+# Set the OPTIMIZE_OUTPUT_JAVA tag to YES if your project consists of Java
+# sources only. Doxygen will then generate output that is more tailored for
+# Java. For instance, namespaces will be presented as packages, qualified
+# scopes will look different, etc.
+
+OPTIMIZE_OUTPUT_JAVA   = NO
+
+# Set the OPTIMIZE_FOR_FORTRAN tag to YES if your project consists of Fortran
+# sources only. Doxygen will then generate output that is more tailored for
+# Fortran.
+
+OPTIMIZE_FOR_FORTRAN   = YES
+
+# Set the OPTIMIZE_OUTPUT_VHDL tag to YES if your project consists of VHDL
+# sources. Doxygen will then generate output that is tailored for
+# VHDL.
+
+OPTIMIZE_OUTPUT_VHDL   = NO
+
+# Doxygen selects the parser to use depending on the extension of the files it
+# parses. With this tag you can assign which parser to use for a given extension.
+# Doxygen has a built-in mapping, but you can override or extend it using this
+# tag. The format is ext=language, where ext is a file extension, and language
+# is one of the parsers supported by doxygen: IDL, Java, Javascript, CSharp, C,
+# C++, D, PHP, Objective-C, Python, Fortran, VHDL, C, C++. For instance to make
+# doxygen treat .inc files as Fortran files (default is PHP), and .f files as C
+# (default is Fortran), use: inc=Fortran f=C. Note that for custom extensions
+# you also need to set FILE_PATTERNS otherwise the files are not read by doxygen.
+
+EXTENSION_MAPPING      =
+
+# If MARKDOWN_SUPPORT is enabled (the default) then doxygen pre-processes all
+# comments according to the Markdown format, which allows for more readable
+# documentation. See http://daringfireball.net/projects/markdown/ for details.
+# The output of markdown processing is further processed by doxygen, so you
+# can mix doxygen, HTML, and XML commands with Markdown formatting.
+# Disable only in case of backward compatibilities issues.
+
+MARKDOWN_SUPPORT       = YES
+
+# If you use STL classes (i.e. std::string, std::vector, etc.) but do not want
+# to include (a tag file for) the STL sources as input, then you should
+# set this tag to YES in order to let doxygen match functions declarations and
+# definitions whose arguments contain STL classes (e.g. func(std::string); v.s.
+# func(std::string) {}). This also makes the inheritance and collaboration
+# diagrams that involve STL classes more complete and accurate.
+
+BUILTIN_STL_SUPPORT    = NO
+
+# If you use Microsoft's C++/CLI language, you should set this option to YES to
+# enable parsing support.
+
+CPP_CLI_SUPPORT        = NO
+
+# Set the SIP_SUPPORT tag to YES if your project consists of sip sources only.
+# Doxygen will parse them like normal C++ but will assume all classes use public
+# instead of private inheritance when no explicit protection keyword is present.
+
+SIP_SUPPORT            = NO
+
+# For Microsoft's IDL there are propget and propput attributes to indicate getter
+# and setter methods for a property. Setting this option to YES (the default)
+# will make doxygen replace the get and set methods by a property in the
+# documentation. This will only work if the methods are indeed getting or
+# setting a simple type. If this is not the case, or you want to show the
+# methods anyway, you should set this option to NO.
+
+IDL_PROPERTY_SUPPORT   = YES
+
+# If member grouping is used in the documentation and the DISTRIBUTE_GROUP_DOC
+# tag is set to YES, then doxygen will reuse the documentation of the first
+# member in the group (if any) for the other members of the group. By default
+# all members of a group must be documented explicitly.
+
+DISTRIBUTE_GROUP_DOC   = NO
+
+# Set the SUBGROUPING tag to YES (the default) to allow class member groups of
+# the same type (for instance a group of public functions) to be put as a
+# subgroup of that type (e.g. under the Public Functions section). Set it to
+# NO to prevent subgrouping. Alternatively, this can be done per class using
+# the \nosubgrouping command.
+
+SUBGROUPING            = YES
+
+# When the INLINE_GROUPED_CLASSES tag is set to YES, classes, structs and
+# unions are shown inside the group in which they are included (e.g. using
+# @ingroup) instead of on a separate page (for HTML and Man pages) or
+# section (for LaTeX and RTF).
+
+INLINE_GROUPED_CLASSES = NO
+
+# When the INLINE_SIMPLE_STRUCTS tag is set to YES, structs, classes, and
+# unions with only public data fields will be shown inline in the documentation
+# of the scope in which they are defined (i.e. file, namespace, or group
+# documentation), provided this scope is documented. If set to NO (the default),
+# structs, classes, and unions are shown on a separate page (for HTML and Man
+# pages) or section (for LaTeX and RTF).
+
+INLINE_SIMPLE_STRUCTS  = NO
+
+# When TYPEDEF_HIDES_STRUCT is enabled, a typedef of a struct, union, or enum
+# is documented as struct, union, or enum with the name of the typedef. So
+# typedef struct TypeS {} TypeT, will appear in the documentation as a struct
+# with name TypeT. When disabled the typedef will appear as a member of a file,
+# namespace, or class. And the struct will be named TypeS. This can typically
+# be useful for C code in case the coding convention dictates that all compound
+# types are typedef'ed and only the typedef is referenced, never the tag name.
+
+TYPEDEF_HIDES_STRUCT   = NO
+
+# The SYMBOL_CACHE_SIZE determines the size of the internal cache use to
+# determine which symbols to keep in memory and which to flush to disk.
+# When the cache is full, less often used symbols will be written to disk.
+# For small to medium size projects (<1000 input files) the default value is
+# probably good enough. For larger projects a too small cache size can cause
+# doxygen to be busy swapping symbols to and from disk most of the time
+# causing a significant performance penalty.
+# If the system has enough physical memory increasing the cache will improve the
+# performance by keeping more symbols in memory. Note that the value works on
+# a logarithmic scale so increasing the size by one will roughly double the
+# memory usage. The cache size is given by this formula:
+# 2^(16+SYMBOL_CACHE_SIZE). The valid range is 0..9, the default is 0,
+# corresponding to a cache size of 2^16 = 65536 symbols.
+
+SYMBOL_CACHE_SIZE      = 0
+
+# Similar to the SYMBOL_CACHE_SIZE the size of the symbol lookup cache can be
+# set using LOOKUP_CACHE_SIZE. This cache is used to resolve symbols given
+# their name and scope. Since this can be an expensive process and often the
+# same symbol appear multiple times in the code, doxygen keeps a cache of
+# pre-resolved symbols. If the cache is too small doxygen will become slower.
+# If the cache is too large, memory is wasted. The cache size is given by this
+# formula: 2^(16+LOOKUP_CACHE_SIZE). The valid range is 0..9, the default is 0,
+# corresponding to a cache size of 2^16 = 65536 symbols.
+
+LOOKUP_CACHE_SIZE      = 0
+
+#---------------------------------------------------------------------------
+# Build related configuration options
+#---------------------------------------------------------------------------
+
+# If the EXTRACT_ALL tag is set to YES doxygen will assume all entities in
+# documentation are documented, even if no documentation was available.
+# Private class members and static file members will be hidden unless
+# the EXTRACT_PRIVATE and EXTRACT_STATIC tags are set to YES
+
+EXTRACT_ALL            = NO
+
+# If the EXTRACT_PRIVATE tag is set to YES all private members of a class
+# will be included in the documentation.
+
+EXTRACT_PRIVATE        = YES
+
+# If the EXTRACT_PACKAGE tag is set to YES all members with package or internal scope will be included in the documentation.
+
+EXTRACT_PACKAGE        = YES
+
+# If the EXTRACT_STATIC tag is set to YES all static members of a file
+# will be included in the documentation.
+
+EXTRACT_STATIC         = YES
+
+# If the EXTRACT_LOCAL_CLASSES tag is set to YES classes (and structs)
+# defined locally in source files will be included in the documentation.
+# If set to NO only classes defined in header files are included.
+
+EXTRACT_LOCAL_CLASSES  = YES
+
+# This flag is only useful for Objective-C code. When set to YES local
+# methods, which are defined in the implementation section but not in
+# the interface are included in the documentation.
+# If set to NO (the default) only methods in the interface are included.
+
+EXTRACT_LOCAL_METHODS  = NO
+
+# If this flag is set to YES, the members of anonymous namespaces will be
+# extracted and appear in the documentation as a namespace called
+# 'anonymous_namespace{file}', where file will be replaced with the base
+# name of the file that contains the anonymous namespace. By default
+# anonymous namespaces are hidden.
+
+EXTRACT_ANON_NSPACES   = NO
+
+# If the HIDE_UNDOC_MEMBERS tag is set to YES, Doxygen will hide all
+# undocumented members of documented classes, files or namespaces.
+# If set to NO (the default) these members will be included in the
+# various overviews, but no documentation section is generated.
+# This option has no effect if EXTRACT_ALL is enabled.
+
+HIDE_UNDOC_MEMBERS     = NO
+
+# If the HIDE_UNDOC_CLASSES tag is set to YES, Doxygen will hide all
+# undocumented classes that are normally visible in the class hierarchy.
+# If set to NO (the default) these classes will be included in the various
+# overviews. This option has no effect if EXTRACT_ALL is enabled.
+
+HIDE_UNDOC_CLASSES     = NO
+
+# If the HIDE_FRIEND_COMPOUNDS tag is set to YES, Doxygen will hide all
+# friend (class|struct|union) declarations.
+# If set to NO (the default) these declarations will be included in the
+# documentation.
+
+HIDE_FRIEND_COMPOUNDS  = NO
+
+# If the HIDE_IN_BODY_DOCS tag is set to YES, Doxygen will hide any
+# documentation blocks found inside the body of a function.
+# If set to NO (the default) these blocks will be appended to the
+# function's detailed documentation block.
+
+HIDE_IN_BODY_DOCS      = NO
+
+# The INTERNAL_DOCS tag determines if documentation
+# that is typed after a \internal command is included. If the tag is set
+# to NO (the default) then the documentation will be excluded.
+# Set it to YES to include the internal documentation.
+
+INTERNAL_DOCS          = NO
+
+# If the CASE_SENSE_NAMES tag is set to NO then Doxygen will only generate
+# file names in lower-case letters. If set to YES upper-case letters are also
+# allowed. This is useful if you have classes or files whose names only differ
+# in case and if your file system supports case sensitive file names. Windows
+# and Mac users are advised to set this option to NO.
+
+CASE_SENSE_NAMES       = NO
+
+# If the HIDE_SCOPE_NAMES tag is set to NO (the default) then Doxygen
+# will show members with their full class and namespace scopes in the
+# documentation. If set to YES the scope will be hidden.
+
+HIDE_SCOPE_NAMES       = NO
+
+# If the SHOW_INCLUDE_FILES tag is set to YES (the default) then Doxygen
+# will put a list of the files that are included by a file in the documentation
+# of that file.
+
+SHOW_INCLUDE_FILES     = YES
+
+# If the FORCE_LOCAL_INCLUDES tag is set to YES then Doxygen
+# will list include files with double quotes in the documentation
+# rather than with sharp brackets.
+
+FORCE_LOCAL_INCLUDES   = NO
+
+# If the INLINE_INFO tag is set to YES (the default) then a tag [inline]
+# is inserted in the documentation for inline members.
+
+INLINE_INFO            = YES
+
+# If the SORT_MEMBER_DOCS tag is set to YES (the default) then doxygen
+# will sort the (detailed) documentation of file and class members
+# alphabetically by member name. If set to NO the members will appear in
+# declaration order.
+
+SORT_MEMBER_DOCS       = YES
+
+# If the SORT_BRIEF_DOCS tag is set to YES then doxygen will sort the
+# brief documentation of file, namespace and class members alphabetically
+# by member name. If set to NO (the default) the members will appear in
+# declaration order.
+
+SORT_BRIEF_DOCS        = NO
+
+# If the SORT_MEMBERS_CTORS_1ST tag is set to YES then doxygen
+# will sort the (brief and detailed) documentation of class members so that
+# constructors and destructors are listed first. If set to NO (the default)
+# the constructors will appear in the respective orders defined by
+# SORT_MEMBER_DOCS and SORT_BRIEF_DOCS.
+# This tag will be ignored for brief docs if SORT_BRIEF_DOCS is set to NO
+# and ignored for detailed docs if SORT_MEMBER_DOCS is set to NO.
+
+SORT_MEMBERS_CTORS_1ST = NO
+
+# If the SORT_GROUP_NAMES tag is set to YES then doxygen will sort the
+# hierarchy of group names into alphabetical order. If set to NO (the default)
+# the group names will appear in their defined order.
+
+SORT_GROUP_NAMES       = NO
+
+# If the SORT_BY_SCOPE_NAME tag is set to YES, the class list will be
+# sorted by fully-qualified names, including namespaces. If set to
+# NO (the default), the class list will be sorted only by class name,
+# not including the namespace part.
+# Note: This option is not very useful if HIDE_SCOPE_NAMES is set to YES.
+# Note: This option applies only to the class list, not to the
+# alphabetical list.
+
+SORT_BY_SCOPE_NAME     = NO
+
+# If the STRICT_PROTO_MATCHING option is enabled and doxygen fails to
+# do proper type resolution of all parameters of a function it will reject a
+# match between the prototype and the implementation of a member function even
+# if there is only one candidate or it is obvious which candidate to choose
+# by doing a simple string match. By disabling STRICT_PROTO_MATCHING doxygen
+# will still accept a match between prototype and implementation in such cases.
+
+STRICT_PROTO_MATCHING  = NO
+
+# The GENERATE_TODOLIST tag can be used to enable (YES) or
+# disable (NO) the todo list. This list is created by putting \todo
+# commands in the documentation.
+
+GENERATE_TODOLIST      = YES
+
+# The GENERATE_TESTLIST tag can be used to enable (YES) or
+# disable (NO) the test list. This list is created by putting \test
+# commands in the documentation.
+
+GENERATE_TESTLIST      = YES
+
+# The GENERATE_BUGLIST tag can be used to enable (YES) or
+# disable (NO) the bug list. This list is created by putting \bug
+# commands in the documentation.
+
+GENERATE_BUGLIST       = YES
+
+# The GENERATE_DEPRECATEDLIST tag can be used to enable (YES) or
+# disable (NO) the deprecated list. This list is created by putting
+# \deprecated commands in the documentation.
+
+GENERATE_DEPRECATEDLIST= YES
+
+# The ENABLED_SECTIONS tag can be used to enable conditional
+# documentation sections, marked by \if sectionname ... \endif.
+
+ENABLED_SECTIONS       =
+
+# The MAX_INITIALIZER_LINES tag determines the maximum number of lines
+# the initial value of a variable or macro consists of for it to appear in
+# the documentation. If the initializer consists of more lines than specified
+# here it will be hidden. Use a value of 0 to hide initializers completely.
+# The appearance of the initializer of individual variables and macros in the
+# documentation can be controlled using \showinitializer or \hideinitializer
+# command in the documentation regardless of this setting.
+
+MAX_INITIALIZER_LINES  = 30
+
+# Set the SHOW_USED_FILES tag to NO to disable the list of files generated
+# at the bottom of the documentation of classes and structs. If set to YES the
+# list will mention the files that were used to generate the documentation.
+
+SHOW_USED_FILES        = YES
+
+# If the sources in your project are distributed over multiple directories
+# then setting the SHOW_DIRECTORIES tag to YES will show the directory hierarchy
+# in the documentation. The default is NO.
+
+SHOW_DIRECTORIES       = NO
+
+# Set the SHOW_FILES tag to NO to disable the generation of the Files page.
+# This will remove the Files entry from the Quick Index and from the
+# Folder Tree View (if specified). The default is YES.
+
+SHOW_FILES             = YES
+
+# Set the SHOW_NAMESPACES tag to NO to disable the generation of the
+# Namespaces page.
+# This will remove the Namespaces entry from the Quick Index
+# and from the Folder Tree View (if specified). The default is YES.
+
+SHOW_NAMESPACES        = YES
+
+# The FILE_VERSION_FILTER tag can be used to specify a program or script that
+# doxygen should invoke to get the current version for each file (typically from
+# the version control system). Doxygen will invoke the program by executing (via
+# popen()) the command <command> <input-file>, where <command> is the value of
+# the FILE_VERSION_FILTER tag, and <input-file> is the name of an input file
+# provided by doxygen. Whatever the program writes to standard output
+# is used as the file version. See the manual for examples.
+
+FILE_VERSION_FILTER    =
+
+# The LAYOUT_FILE tag can be used to specify a layout file which will be parsed
+# by doxygen. The layout file controls the global structure of the generated
+# output files in an output format independent way. The create the layout file
+# that represents doxygen's defaults, run doxygen with the -l option.
+# You can optionally specify a file name after the option, if omitted
+# DoxygenLayout.xml will be used as the name of the layout file.
+
+LAYOUT_FILE            =
+
+# The CITE_BIB_FILES tag can be used to specify one or more bib files
+# containing the references data. This must be a list of .bib files. The
+# .bib extension is automatically appended if omitted. Using this command
+# requires the bibtex tool to be installed. See also
+# http://en.wikipedia.org/wiki/BibTeX for more info. For LaTeX the style
+# of the bibliography can be controlled using LATEX_BIB_STYLE. To use this
+# feature you need bibtex and perl available in the search path.
+
+CITE_BIB_FILES         =
+
+#---------------------------------------------------------------------------
+# configuration options related to warning and progress messages
+#---------------------------------------------------------------------------
+
+# The QUIET tag can be used to turn on/off the messages that are generated
+# by doxygen. Possible values are YES and NO. If left blank NO is used.
+
+QUIET                  = NO
+
+# The WARNINGS tag can be used to turn on/off the warning messages that are
+# generated by doxygen. Possible values are YES and NO. If left blank
+# NO is used.
+
+WARNINGS               = YES
+
+# If WARN_IF_UNDOCUMENTED is set to YES, then doxygen will generate warnings
+# for undocumented members. If EXTRACT_ALL is set to YES then this flag will
+# automatically be disabled.
+
+WARN_IF_UNDOCUMENTED   = YES
+
+# If WARN_IF_DOC_ERROR is set to YES, doxygen will generate warnings for
+# potential errors in the documentation, such as not documenting some
+# parameters in a documented function, or documenting parameters that
+# don't exist or using markup commands wrongly.
+
+WARN_IF_DOC_ERROR      = YES
+
+# The WARN_NO_PARAMDOC option can be enabled to get warnings for
+# functions that are documented, but have no documentation for their parameters
+# or return value. If set to NO (the default) doxygen will only warn about
+# wrong or incomplete parameter documentation, but not about the absence of
+# documentation.
+
+WARN_NO_PARAMDOC       = NO
+
+# The WARN_FORMAT tag determines the format of the warning messages that
+# doxygen can produce. The string should contain the $file, $line, and $text
+# tags, which will be replaced by the file and line number from which the
+# warning originated and the warning text. Optionally the format may contain
+# $version, which will be replaced by the version of the file (if it could
+# be obtained via FILE_VERSION_FILTER)
+
+WARN_FORMAT            = "$file:$line: $text"
+
+# The WARN_LOGFILE tag can be used to specify a file to which warning
+# and error messages should be written. If left blank the output is written
+# to stderr.
+
+WARN_LOGFILE           = "doc_log.txt"
+
+#---------------------------------------------------------------------------
+# configuration options related to the input files
+#---------------------------------------------------------------------------
+
+# The INPUT tag can be used to specify the files and/or directories that contain
+# documented source files. You may enter file names like "myfile.cpp" or
+# directories like "/usr/src/myproject". Separate the files or directories
+# with spaces.
+
+INPUT                  =
+
+# This tag can be used to specify the character encoding of the source files
+# that doxygen parses. Internally doxygen uses the UTF-8 encoding, which is
+# also the default input encoding. Doxygen uses libiconv (or the iconv built
+# into libc) for the transcoding. See http://www.gnu.org/software/libiconv for
+# the list of possible encodings.
+
+INPUT_ENCODING         = UTF-8
+
+# If the value of the INPUT tag contains directories, you can use the
+# FILE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp
+# and *.h) to filter out the source-files in the directories. If left
+# blank the following patterns are tested:
+# *.c *.cc *.cxx *.cpp *.c++ *.d *.java *.ii *.ixx *.ipp *.i++ *.inl *.h *.hh
+# *.hxx *.hpp *.h++ *.idl *.odl *.cs *.php *.php3 *.inc *.m *.mm *.dox *.py
+# *.f90 *.f *.for *.vhd *.vhdl
+
+FILE_PATTERNS          =
+
+# The RECURSIVE tag can be used to turn specify whether or not subdirectories
+# should be searched for input files as well. Possible values are YES and NO.
+# If left blank NO is used.
+
+RECURSIVE              = NO
+
+# The EXCLUDE tag can be used to specify files and/or directories that should be
+# excluded from the INPUT source files. This way you can easily exclude a
+# subdirectory from a directory tree whose root is specified with the INPUT tag.
+# Note that relative paths are relative to the directory from which doxygen is
+# run.
+
+EXCLUDE                = Makefile test_driver.exe fruit.f90 fruit_util.f90
+
+# The EXCLUDE_SYMLINKS tag can be used to select whether or not files or
+# directories that are symbolic links (a Unix file system feature) are excluded
+# from the input.
+
+EXCLUDE_SYMLINKS       = NO
+
+# If the value of the INPUT tag contains directories, you can use the
+# EXCLUDE_PATTERNS tag to specify one or more wildcard patterns to exclude
+# certain files from those directories. Note that the wildcards are matched
+# against the file with absolute path, so to exclude all test directories
+# for example use the pattern */test/*
+
+EXCLUDE_PATTERNS       =
+
+# The EXCLUDE_SYMBOLS tag can be used to specify one or more symbol names
+# (namespaces, classes, functions, etc.) that should be excluded from the
+# output. The symbol name can be a fully qualified name, a word, or if the
+# wildcard * is used, a substring. Examples: ANamespace, AClass,
+# AClass::ANamespace, ANamespace::*Test
+
+EXCLUDE_SYMBOLS        =
+
+# The EXAMPLE_PATH tag can be used to specify one or more files or
+# directories that contain example code fragments that are included (see
+# the \include command).
+
+EXAMPLE_PATH           =
+
+# If the value of the EXAMPLE_PATH tag contains directories, you can use the
+# EXAMPLE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp
+# and *.h) to filter out the source-files in the directories. If left
+# blank all files are included.
+
+EXAMPLE_PATTERNS       =
+
+# If the EXAMPLE_RECURSIVE tag is set to YES then subdirectories will be
+# searched for input files to be used with the \include or \dontinclude
+# commands irrespective of the value of the RECURSIVE tag.
+# Possible values are YES and NO. If left blank NO is used.
+
+EXAMPLE_RECURSIVE      = NO
+
+# The IMAGE_PATH tag can be used to specify one or more files or
+# directories that contain image that are included in the documentation (see
+# the \image command).
+
+IMAGE_PATH             =
+
+# The INPUT_FILTER tag can be used to specify a program that doxygen should
+# invoke to filter for each input file. Doxygen will invoke the filter program
+# by executing (via popen()) the command <filter> <input-file>, where <filter>
+# is the value of the INPUT_FILTER tag, and <input-file> is the name of an
+# input file. Doxygen will then use the output that the filter program writes
+# to standard output.
+# If FILTER_PATTERNS is specified, this tag will be
+# ignored.
+
+INPUT_FILTER           =
+
+# The FILTER_PATTERNS tag can be used to specify filters on a per file pattern
+# basis.
+# Doxygen will compare the file name with each pattern and apply the
+# filter if there is a match.
+# The filters are a list of the form:
+# pattern=filter (like *.cpp=my_cpp_filter). See INPUT_FILTER for further
+# info on how filters are used. If FILTER_PATTERNS is empty or if
+# non of the patterns match the file name, INPUT_FILTER is applied.
+
+FILTER_PATTERNS        =
+
+# If the FILTER_SOURCE_FILES tag is set to YES, the input filter (if set using
+# INPUT_FILTER) will be used to filter the input files when producing source
+# files to browse (i.e. when SOURCE_BROWSER is set to YES).
+
+FILTER_SOURCE_FILES    = NO
+
+# The FILTER_SOURCE_PATTERNS tag can be used to specify source filters per file
+# pattern. A pattern will override the setting for FILTER_PATTERN (if any)
+# and it is also possible to disable source filtering for a specific pattern
+# using *.ext= (so without naming a filter). This option only has effect when
+# FILTER_SOURCE_FILES is enabled.
+
+FILTER_SOURCE_PATTERNS =
+
+#---------------------------------------------------------------------------
+# configuration options related to source browsing
+#---------------------------------------------------------------------------
+
+# If the SOURCE_BROWSER tag is set to YES then a list of source files will
+# be generated. Documented entities will be cross-referenced with these sources.
+# Note: To get rid of all source code in the generated output, make sure also
+# VERBATIM_HEADERS is set to NO.
+
+SOURCE_BROWSER         = NO
+
+# Setting the INLINE_SOURCES tag to YES will include the body
+# of functions and classes directly in the documentation.
+
+INLINE_SOURCES         = NO
+
+# Setting the STRIP_CODE_COMMENTS tag to YES (the default) will instruct
+# doxygen to hide any special comment blocks from generated source code
+# fragments. Normal C and C++ comments will always remain visible.
+
+STRIP_CODE_COMMENTS    = YES
+
+# If the REFERENCED_BY_RELATION tag is set to YES
+# then for each documented function all documented
+# functions referencing it will be listed.
+
+REFERENCED_BY_RELATION = NO
+
+# If the REFERENCES_RELATION tag is set to YES
+# then for each documented function all documented entities
+# called/used by that function will be listed.
+
+REFERENCES_RELATION    = NO
+
+# If the REFERENCES_LINK_SOURCE tag is set to YES (the default)
+# and SOURCE_BROWSER tag is set to YES, then the hyperlinks from
+# functions in REFERENCES_RELATION and REFERENCED_BY_RELATION lists will
+# link to the source code.
+# Otherwise they will link to the documentation.
+
+REFERENCES_LINK_SOURCE = YES
+
+# If the USE_HTAGS tag is set to YES then the references to source code
+# will point to the HTML generated by the htags(1) tool instead of doxygen
+# built-in source browser. The htags tool is part of GNU's global source
+# tagging system (see http://www.gnu.org/software/global/global.html). You
+# will need version 4.8.6 or higher.
+
+USE_HTAGS              = NO
+
+# If the VERBATIM_HEADERS tag is set to YES (the default) then Doxygen
+# will generate a verbatim copy of the header file for each class for
+# which an include is specified. Set to NO to disable this.
+
+VERBATIM_HEADERS       = YES
+
+#---------------------------------------------------------------------------
+# configuration options related to the alphabetical class index
+#---------------------------------------------------------------------------
+
+# If the ALPHABETICAL_INDEX tag is set to YES, an alphabetical index
+# of all compounds will be generated. Enable this if the project
+# contains a lot of classes, structs, unions or interfaces.
+
+ALPHABETICAL_INDEX     = YES
+
+# If the alphabetical index is enabled (see ALPHABETICAL_INDEX) then
+# the COLS_IN_ALPHA_INDEX tag can be used to specify the number of columns
+# in which this list will be split (can be a number in the range [1..20])
+
+COLS_IN_ALPHA_INDEX    = 5
+
+# In case all classes in a project start with a common prefix, all
+# classes will be put under the same header in the alphabetical index.
+# The IGNORE_PREFIX tag can be used to specify one or more prefixes that
+# should be ignored while generating the index headers.
+
+IGNORE_PREFIX          =
+
+#---------------------------------------------------------------------------
+# configuration options related to the HTML output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_HTML tag is set to YES (the default) Doxygen will
+# generate HTML output.
+
+GENERATE_HTML          = YES
+
+# The HTML_OUTPUT tag is used to specify where the HTML docs will be put.
+# If a relative path is entered the value of OUTPUT_DIRECTORY will be
+# put in front of it. If left blank `html' will be used as the default path.
+
+HTML_OUTPUT            = html
+
+# The HTML_FILE_EXTENSION tag can be used to specify the file extension for
+# each generated HTML page (for example: .htm,.php,.asp). If it is left blank
+# doxygen will generate files with .html extension.
+
+HTML_FILE_EXTENSION    = .html
+
+# The HTML_HEADER tag can be used to specify a personal HTML header for
+# each generated HTML page. If it is left blank doxygen will generate a
+# standard header. Note that when using a custom header you are responsible
+#  for the proper inclusion of any scripts and style sheets that doxygen
+# needs, which is dependent on the configuration options used.
+# It is advised to generate a default header using "doxygen -w html
+# header.html footer.html stylesheet.css YourConfigFile" and then modify
+# that header. Note that the header is subject to change so you typically
+# have to redo this when upgrading to a newer version of doxygen or when
+# changing the value of configuration settings such as GENERATE_TREEVIEW!
+
+HTML_HEADER            =
+
+# The HTML_FOOTER tag can be used to specify a personal HTML footer for
+# each generated HTML page. If it is left blank doxygen will generate a
+# standard footer.
+
+HTML_FOOTER            =
+
+# The HTML_STYLESHEET tag can be used to specify a user-defined cascading
+# style sheet that is used by each HTML page. It can be used to
+# fine-tune the look of the HTML output. If the tag is left blank doxygen
+# will generate a default style sheet. Note that doxygen will try to copy
+# the style sheet file to the HTML output directory, so don't put your own
+# style sheet in the HTML output directory as well, or it will be erased!
+
+HTML_STYLESHEET        =
+
+# The HTML_EXTRA_FILES tag can be used to specify one or more extra images or
+# other source files which should be copied to the HTML output directory. Note
+# that these files will be copied to the base HTML output directory. Use the
+# $relpath$ marker in the HTML_HEADER and/or HTML_FOOTER files to load these
+# files. In the HTML_STYLESHEET file, use the file name only. Also note that
+# the files will be copied as-is; there are no commands or markers available.
+
+HTML_EXTRA_FILES       =
+
+# The HTML_COLORSTYLE_HUE tag controls the color of the HTML output.
+# Doxygen will adjust the colors in the style sheet and background images
+# according to this color. Hue is specified as an angle on a colorwheel,
+# see http://en.wikipedia.org/wiki/Hue for more information.
+# For instance the value 0 represents red, 60 is yellow, 120 is green,
+# 180 is cyan, 240 is blue, 300 purple, and 360 is red again.
+# The allowed range is 0 to 359.
+
+HTML_COLORSTYLE_HUE    = 220
+
+# The HTML_COLORSTYLE_SAT tag controls the purity (or saturation) of
+# the colors in the HTML output. For a value of 0 the output will use
+# grayscales only. A value of 255 will produce the most vivid colors.
+
+HTML_COLORSTYLE_SAT    = 100
+
+# The HTML_COLORSTYLE_GAMMA tag controls the gamma correction applied to
+# the luminance component of the colors in the HTML output. Values below
+# 100 gradually make the output lighter, whereas values above 100 make
+# the output darker. The value divided by 100 is the actual gamma applied,
+# so 80 represents a gamma of 0.8, The value 220 represents a gamma of 2.2,
+# and 100 does not change the gamma.
+
+HTML_COLORSTYLE_GAMMA  = 80
+
+# If the HTML_TIMESTAMP tag is set to YES then the footer of each generated HTML
+# page will contain the date and time when the page was generated. Setting
+# this to NO can help when comparing the output of multiple runs.
+
+HTML_TIMESTAMP         = YES
+
+# If the HTML_ALIGN_MEMBERS tag is set to YES, the members of classes,
+# files or namespaces will be aligned in HTML using tables. If set to
+# NO a bullet list will be used.
+
+HTML_ALIGN_MEMBERS     = YES
+
+# If the HTML_DYNAMIC_SECTIONS tag is set to YES then the generated HTML
+# documentation will contain sections that can be hidden and shown after the
+# page has loaded. For this to work a browser that supports
+# JavaScript and DHTML is required (for instance Mozilla 1.0+, Firefox
+# Netscape 6.0+, Internet explorer 5.0+, Konqueror, or Safari).
+
+HTML_DYNAMIC_SECTIONS  = NO
+
+# If the GENERATE_DOCSET tag is set to YES, additional index files
+# will be generated that can be used as input for Apple's Xcode 3
+# integrated development environment, introduced with OSX 10.5 (Leopard).
+# To create a documentation set, doxygen will generate a Makefile in the
+# HTML output directory. Running make will produce the docset in that
+# directory and running "make install" will install the docset in
+# ~/Library/Developer/Shared/Documentation/DocSets so that Xcode will find
+# it at startup.
+# See http://developer.apple.com/tools/creatingdocsetswithdoxygen.html
+# for more information.
+
+GENERATE_DOCSET        = NO
+
+# When GENERATE_DOCSET tag is set to YES, this tag determines the name of the
+# feed. A documentation feed provides an umbrella under which multiple
+# documentation sets from a single provider (such as a company or product suite)
+# can be grouped.
+
+DOCSET_FEEDNAME        = "Doxygen generated docs"
+
+# When GENERATE_DOCSET tag is set to YES, this tag specifies a string that
+# should uniquely identify the documentation set bundle. This should be a
+# reverse domain-name style string, e.g. com.mycompany.MyDocSet. Doxygen
+# will append .docset to the name.
+
+DOCSET_BUNDLE_ID       = org.doxygen.Project
+
+# When GENERATE_PUBLISHER_ID tag specifies a string that should uniquely identify
+# the documentation publisher. This should be a reverse domain-name style
+# string, e.g. com.mycompany.MyDocSet.documentation.
+
+DOCSET_PUBLISHER_ID    = org.doxygen.Publisher
+
+# The GENERATE_PUBLISHER_NAME tag identifies the documentation publisher.
+
+DOCSET_PUBLISHER_NAME  = Publisher
+
+# If the GENERATE_HTMLHELP tag is set to YES, additional index files
+# will be generated that can be used as input for tools like the
+# Microsoft HTML help workshop to generate a compiled HTML help file (.chm)
+# of the generated HTML documentation.
+
+GENERATE_HTMLHELP      = NO
+
+# If the GENERATE_HTMLHELP tag is set to YES, the CHM_FILE tag can
+# be used to specify the file name of the resulting .chm file. You
+# can add a path in front of the file if the result should not be
+# written to the html output directory.
+
+CHM_FILE               =
+
+# If the GENERATE_HTMLHELP tag is set to YES, the HHC_LOCATION tag can
+# be used to specify the location (absolute path including file name) of
+# the HTML help compiler (hhc.exe). If non-empty doxygen will try to run
+# the HTML help compiler on the generated index.hhp.
+
+HHC_LOCATION           =
+
+# If the GENERATE_HTMLHELP tag is set to YES, the GENERATE_CHI flag
+# controls if a separate .chi index file is generated (YES) or that
+# it should be included in the master .chm file (NO).
+
+GENERATE_CHI           = NO
+
+# If the GENERATE_HTMLHELP tag is set to YES, the CHM_INDEX_ENCODING
+# is used to encode HtmlHelp index (hhk), content (hhc) and project file
+# content.
+
+CHM_INDEX_ENCODING     =
+
+# If the GENERATE_HTMLHELP tag is set to YES, the BINARY_TOC flag
+# controls whether a binary table of contents is generated (YES) or a
+# normal table of contents (NO) in the .chm file.
+
+BINARY_TOC             = NO
+
+# The TOC_EXPAND flag can be set to YES to add extra items for group members
+# to the contents of the HTML help documentation and to the tree view.
+
+TOC_EXPAND             = NO
+
+# If the GENERATE_QHP tag is set to YES and both QHP_NAMESPACE and
+# QHP_VIRTUAL_FOLDER are set, an additional index file will be generated
+# that can be used as input for Qt's qhelpgenerator to generate a
+# Qt Compressed Help (.qch) of the generated HTML documentation.
+
+GENERATE_QHP           = NO
+
+# If the QHG_LOCATION tag is specified, the QCH_FILE tag can
+# be used to specify the file name of the resulting .qch file.
+# The path specified is relative to the HTML output folder.
+
+QCH_FILE               =
+
+# The QHP_NAMESPACE tag specifies the namespace to use when generating
+# Qt Help Project output. For more information please see
+# http://doc.trolltech.com/qthelpproject.html#namespace
+
+QHP_NAMESPACE          = org.doxygen.Project
+
+# The QHP_VIRTUAL_FOLDER tag specifies the namespace to use when generating
+# Qt Help Project output. For more information please see
+# http://doc.trolltech.com/qthelpproject.html#virtual-folders
+
+QHP_VIRTUAL_FOLDER     = doc
+
+# If QHP_CUST_FILTER_NAME is set, it specifies the name of a custom filter to
+# add. For more information please see
+# http://doc.trolltech.com/qthelpproject.html#custom-filters
+
+QHP_CUST_FILTER_NAME   =
+
+# The QHP_CUST_FILT_ATTRS tag specifies the list of the attributes of the
+# custom filter to add. For more information please see
+# <a href="http://doc.trolltech.com/qthelpproject.html#custom-filters">
+# Qt Help Project / Custom Filters</a>.
+
+QHP_CUST_FILTER_ATTRS  =
+
+# The QHP_SECT_FILTER_ATTRS tag specifies the list of the attributes this
+# project's
+# filter section matches.
+# <a href="http://doc.trolltech.com/qthelpproject.html#filter-attributes">
+# Qt Help Project / Filter Attributes</a>.
+
+QHP_SECT_FILTER_ATTRS  =
+
+# If the GENERATE_QHP tag is set to YES, the QHG_LOCATION tag can
+# be used to specify the location of Qt's qhelpgenerator.
+# If non-empty doxygen will try to run qhelpgenerator on the generated
+# .qhp file.
+
+QHG_LOCATION           =
+
+# If the GENERATE_ECLIPSEHELP tag is set to YES, additional index files
+#  will be generated, which together with the HTML files, form an Eclipse help
+# plugin. To install this plugin and make it available under the help contents
+# menu in Eclipse, the contents of the directory containing the HTML and XML
+# files needs to be copied into the plugins directory of eclipse. The name of
+# the directory within the plugins directory should be the same as
+# the ECLIPSE_DOC_ID value. After copying Eclipse needs to be restarted before
+# the help appears.
+
+GENERATE_ECLIPSEHELP   = NO
+
+# A unique identifier for the eclipse help plugin. When installing the plugin
+# the directory name containing the HTML and XML files should also have
+# this name.
+
+ECLIPSE_DOC_ID         = org.doxygen.Project
+
+# The DISABLE_INDEX tag can be used to turn on/off the condensed index (tabs)
+# at top of each HTML page. The value NO (the default) enables the index and
+# the value YES disables it. Since the tabs have the same information as the
+# navigation tree you can set this option to NO if you already set
+# GENERATE_TREEVIEW to YES.
+
+DISABLE_INDEX          = NO
+
+# The GENERATE_TREEVIEW tag is used to specify whether a tree-like index
+# structure should be generated to display hierarchical information.
+# If the tag value is set to YES, a side panel will be generated
+# containing a tree-like index structure (just like the one that
+# is generated for HTML Help). For this to work a browser that supports
+# JavaScript, DHTML, CSS and frames is required (i.e. any modern browser).
+# Windows users are probably better off using the HTML help feature.
+# Since the tree basically has the same information as the tab index you
+# could consider to set DISABLE_INDEX to NO when enabling this option.
+
+GENERATE_TREEVIEW      = NO
+
+# The ENUM_VALUES_PER_LINE tag can be used to set the number of enum values
+# (range [0,1..20]) that doxygen will group on one line in the generated HTML
+# documentation. Note that a value of 0 will completely suppress the enum
+# values from appearing in the overview section.
+
+ENUM_VALUES_PER_LINE   = 4
+
+# By enabling USE_INLINE_TREES, doxygen will generate the Groups, Directories,
+# and Class Hierarchy pages using a tree view instead of an ordered list.
+
+USE_INLINE_TREES       = NO
+
+# If the treeview is enabled (see GENERATE_TREEVIEW) then this tag can be
+# used to set the initial width (in pixels) of the frame in which the tree
+# is shown.
+
+TREEVIEW_WIDTH         = 250
+
+# When the EXT_LINKS_IN_WINDOW option is set to YES doxygen will open
+# links to external symbols imported via tag files in a separate window.
+
+EXT_LINKS_IN_WINDOW    = NO
+
+# Use this tag to change the font size of Latex formulas included
+# as images in the HTML documentation. The default is 10. Note that
+# when you change the font size after a successful doxygen run you need
+# to manually remove any form_*.png images from the HTML output directory
+# to force them to be regenerated.
+
+FORMULA_FONTSIZE       = 10
+
+# Use the FORMULA_TRANPARENT tag to determine whether or not the images
+# generated for formulas are transparent PNGs. Transparent PNGs are
+# not supported properly for IE 6.0, but are supported on all modern browsers.
+# Note that when changing this option you need to delete any form_*.png files
+# in the HTML output before the changes have effect.
+
+FORMULA_TRANSPARENT    = YES
+
+# Enable the USE_MATHJAX option to render LaTeX formulas using MathJax
+# (see http://www.mathjax.org) which uses client side Javascript for the
+# rendering instead of using prerendered bitmaps. Use this if you do not
+# have LaTeX installed or if you want to formulas look prettier in the HTML
+# output. When enabled you may also need to install MathJax separately and
+# configure the path to it using the MATHJAX_RELPATH option.
+
+USE_MATHJAX            = NO
+
+# When MathJax is enabled you need to specify the location relative to the
+# HTML output directory using the MATHJAX_RELPATH option. The destination
+# directory should contain the MathJax.js script. For instance, if the mathjax
+# directory is located at the same level as the HTML output directory, then
+# MATHJAX_RELPATH should be ../mathjax. The default value points to
+# the MathJax Content Delivery Network so you can quickly see the result without
+# installing MathJax.
+# However, it is strongly recommended to install a local
+# copy of MathJax from http://www.mathjax.org before deployment.
+
+MATHJAX_RELPATH        = http://cdn.mathjax.org/mathjax/latest
+
+# The MATHJAX_EXTENSIONS tag can be used to specify one or MathJax extension
+# names that should be enabled during MathJax rendering.
+
+MATHJAX_EXTENSIONS     =
+
+# When the SEARCHENGINE tag is enabled doxygen will generate a search box
+# for the HTML output. The underlying search engine uses javascript
+# and DHTML and should work on any modern browser. Note that when using
+# HTML help (GENERATE_HTMLHELP), Qt help (GENERATE_QHP), or docsets
+# (GENERATE_DOCSET) there is already a search function so this one should
+# typically be disabled. For large projects the javascript based search engine
+# can be slow, then enabling SERVER_BASED_SEARCH may provide a better solution.
+
+SEARCHENGINE           = YES
+
+# When the SERVER_BASED_SEARCH tag is enabled the search engine will be
+# implemented using a PHP enabled web server instead of at the web client
+# using Javascript. Doxygen will generate the search PHP script and index
+# file to put on the web server. The advantage of the server
+# based approach is that it scales better to large projects and allows
+# full text search. The disadvantages are that it is more difficult to setup
+# and does not have live searching capabilities.
+
+SERVER_BASED_SEARCH    = NO
+
+#---------------------------------------------------------------------------
+# configuration options related to the LaTeX output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_LATEX tag is set to YES (the default) Doxygen will
+# generate Latex output.
+
+GENERATE_LATEX         = YES
+
+# The LATEX_OUTPUT tag is used to specify where the LaTeX docs will be put.
+# If a relative path is entered the value of OUTPUT_DIRECTORY will be
+# put in front of it. If left blank `latex' will be used as the default path.
+
+LATEX_OUTPUT           = latex
+
+# The LATEX_CMD_NAME tag can be used to specify the LaTeX command name to be
+# invoked. If left blank `latex' will be used as the default command name.
+# Note that when enabling USE_PDFLATEX this option is only used for
+# generating bitmaps for formulas in the HTML output, but not in the
+# Makefile that is written to the output directory.
+
+LATEX_CMD_NAME         = latex
+
+# The MAKEINDEX_CMD_NAME tag can be used to specify the command name to
+# generate index for LaTeX. If left blank `makeindex' will be used as the
+# default command name.
+
+MAKEINDEX_CMD_NAME     = makeindex
+
+# If the COMPACT_LATEX tag is set to YES Doxygen generates more compact
+# LaTeX documents. This may be useful for small projects and may help to
+# save some trees in general.
+
+COMPACT_LATEX          = NO
+
+# The PAPER_TYPE tag can be used to set the paper type that is used
+# by the printer. Possible values are: a4, letter, legal and
+# executive. If left blank a4wide will be used.
+
+PAPER_TYPE             = letter
+
+# The EXTRA_PACKAGES tag can be to specify one or more names of LaTeX
+# packages that should be included in the LaTeX output.
+
+EXTRA_PACKAGES         =
+
+# The LATEX_HEADER tag can be used to specify a personal LaTeX header for
+# the generated latex document. The header should contain everything until
+# the first chapter. If it is left blank doxygen will generate a
+# standard header. Notice: only use this tag if you know what you are doing!
+
+LATEX_HEADER           =
+
+# The LATEX_FOOTER tag can be used to specify a personal LaTeX footer for
+# the generated latex document. The footer should contain everything after
+# the last chapter. If it is left blank doxygen will generate a
+# standard footer. Notice: only use this tag if you know what you are doing!
+
+LATEX_FOOTER           =
+
+# If the PDF_HYPERLINKS tag is set to YES, the LaTeX that is generated
+# is prepared for conversion to pdf (using ps2pdf). The pdf file will
+# contain links (just like the HTML output) instead of page references
+# This makes the output suitable for online browsing using a pdf viewer.
+
+PDF_HYPERLINKS         = YES
+
+# If the USE_PDFLATEX tag is set to YES, pdflatex will be used instead of
+# plain latex in the generated Makefile. Set this option to YES to get a
+# higher quality PDF documentation.
+
+USE_PDFLATEX           = YES
+
+# If the LATEX_BATCHMODE tag is set to YES, doxygen will add the \\batchmode.
+# command to the generated LaTeX files. This will instruct LaTeX to keep
+# running if errors occur, instead of asking the user for help.
+# This option is also used when generating formulas in HTML.
+
+LATEX_BATCHMODE        = NO
+
+# If LATEX_HIDE_INDICES is set to YES then doxygen will not
+# include the index chapters (such as File Index, Compound Index, etc.)
+# in the output.
+
+LATEX_HIDE_INDICES     = NO
+
+# If LATEX_SOURCE_CODE is set to YES then doxygen will include
+# source code with syntax highlighting in the LaTeX output.
+# Note that which sources are shown also depends on other settings
+# such as SOURCE_BROWSER.
+
+LATEX_SOURCE_CODE      = NO
+
+# The LATEX_BIB_STYLE tag can be used to specify the style to use for the
+# bibliography, e.g. plainnat, or ieeetr. The default style is "plain". See
+# http://en.wikipedia.org/wiki/BibTeX for more info.
+
+LATEX_BIB_STYLE        = ieeetran
+
+#---------------------------------------------------------------------------
+# configuration options related to the RTF output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_RTF tag is set to YES Doxygen will generate RTF output
+# The RTF output is optimized for Word 97 and may not look very pretty with
+# other RTF readers or editors.
+
+GENERATE_RTF           = NO
+
+# The RTF_OUTPUT tag is used to specify where the RTF docs will be put.
+# If a relative path is entered the value of OUTPUT_DIRECTORY will be
+# put in front of it. If left blank `rtf' will be used as the default path.
+
+RTF_OUTPUT             = rtf
+
+# If the COMPACT_RTF tag is set to YES Doxygen generates more compact
+# RTF documents. This may be useful for small projects and may help to
+# save some trees in general.
+
+COMPACT_RTF            = NO
+
+# If the RTF_HYPERLINKS tag is set to YES, the RTF that is generated
+# will contain hyperlink fields. The RTF file will
+# contain links (just like the HTML output) instead of page references.
+# This makes the output suitable for online browsing using WORD or other
+# programs which support those fields.
+# Note: wordpad (write) and others do not support links.
+
+RTF_HYPERLINKS         = NO
+
+# Load style sheet definitions from file. Syntax is similar to doxygen's
+# config file, i.e. a series of assignments. You only have to provide
+# replacements, missing definitions are set to their default value.
+
+RTF_STYLESHEET_FILE    =
+
+# Set optional variables used in the generation of an rtf document.
+# Syntax is similar to doxygen's config file.
+
+RTF_EXTENSIONS_FILE    =
+
+#---------------------------------------------------------------------------
+# configuration options related to the man page output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_MAN tag is set to YES (the default) Doxygen will
+# generate man pages
+
+GENERATE_MAN           = NO
+
+# The MAN_OUTPUT tag is used to specify where the man pages will be put.
+# If a relative path is entered the value of OUTPUT_DIRECTORY will be
+# put in front of it. If left blank `man' will be used as the default path.
+
+MAN_OUTPUT             = man
+
+# The MAN_EXTENSION tag determines the extension that is added to
+# the generated man pages (default is the subroutine's section .3)
+
+MAN_EXTENSION          = .3
+
+# If the MAN_LINKS tag is set to YES and Doxygen generates man output,
+# then it will generate one additional man file for each entity
+# documented in the real man page(s). These additional files
+# only source the real man page, but without them the man command
+# would be unable to find the correct page. The default is NO.
+
+MAN_LINKS              = NO
+
+#---------------------------------------------------------------------------
+# configuration options related to the XML output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_XML tag is set to YES Doxygen will
+# generate an XML file that captures the structure of
+# the code including all documentation.
+
+GENERATE_XML           = NO
+
+# The XML_OUTPUT tag is used to specify where the XML pages will be put.
+# If a relative path is entered the value of OUTPUT_DIRECTORY will be
+# put in front of it. If left blank `xml' will be used as the default path.
+
+XML_OUTPUT             = xml
+
+# The XML_SCHEMA tag can be used to specify an XML schema,
+# which can be used by a validating XML parser to check the
+# syntax of the XML files.
+
+XML_SCHEMA             =
+
+# The XML_DTD tag can be used to specify an XML DTD,
+# which can be used by a validating XML parser to check the
+# syntax of the XML files.
+
+XML_DTD                =
+
+# If the XML_PROGRAMLISTING tag is set to YES Doxygen will
+# dump the program listings (including syntax highlighting
+# and cross-referencing information) to the XML output. Note that
+# enabling this will significantly increase the size of the XML output.
+
+XML_PROGRAMLISTING     = YES
+
+#---------------------------------------------------------------------------
+# configuration options for the AutoGen Definitions output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_AUTOGEN_DEF tag is set to YES Doxygen will
+# generate an AutoGen Definitions (see autogen.sf.net) file
+# that captures the structure of the code including all
+# documentation. Note that this feature is still experimental
+# and incomplete at the moment.
+
+GENERATE_AUTOGEN_DEF   = NO
+
+#---------------------------------------------------------------------------
+# configuration options related to the Perl module output
+#---------------------------------------------------------------------------
+
+# If the GENERATE_PERLMOD tag is set to YES Doxygen will
+# generate a Perl module file that captures the structure of
+# the code including all documentation. Note that this
+# feature is still experimental and incomplete at the
+# moment.
+
+GENERATE_PERLMOD       = NO
+
+# If the PERLMOD_LATEX tag is set to YES Doxygen will generate
+# the necessary Makefile rules, Perl scripts and LaTeX code to be able
+# to generate PDF and DVI output from the Perl module output.
+
+PERLMOD_LATEX          = NO
+
+# If the PERLMOD_PRETTY tag is set to YES the Perl module output will be
+# nicely formatted so it can be parsed by a human reader.
+# This is useful
+# if you want to understand what is going on.
+# On the other hand, if this
+# tag is set to NO the size of the Perl module output will be much smaller
+# and Perl will parse it just the same.
+
+PERLMOD_PRETTY         = YES
+
+# The names of the make variables in the generated doxyrules.make file
+# are prefixed with the string contained in PERLMOD_MAKEVAR_PREFIX.
+# This is useful so different doxyrules.make files included by the same
+# Makefile don't overwrite each other's variables.
+
+PERLMOD_MAKEVAR_PREFIX =
+
+#---------------------------------------------------------------------------
+# Configuration options related to the preprocessor
+#---------------------------------------------------------------------------
+
+# If the ENABLE_PREPROCESSING tag is set to YES (the default) Doxygen will
+# evaluate all C-preprocessor directives found in the sources and include
+# files.
+
+ENABLE_PREPROCESSING   = YES
+
+# If the MACRO_EXPANSION tag is set to YES Doxygen will expand all macro
+# names in the source code. If set to NO (the default) only conditional
+# compilation will be performed. Macro expansion can be done in a controlled
+# way by setting EXPAND_ONLY_PREDEF to YES.
+
+MACRO_EXPANSION        = NO
+
+# If the EXPAND_ONLY_PREDEF and MACRO_EXPANSION tags are both set to YES
+# then the macro expansion is limited to the macros specified with the
+# PREDEFINED and EXPAND_AS_DEFINED tags.
+
+EXPAND_ONLY_PREDEF     = NO
+
+# If the SEARCH_INCLUDES tag is set to YES (the default) the includes files
+# pointed to by INCLUDE_PATH will be searched when a #include is found.
+
+SEARCH_INCLUDES        = YES
+
+# The INCLUDE_PATH tag can be used to specify one or more directories that
+# contain include files that are not input files but should be processed by
+# the preprocessor.
+
+INCLUDE_PATH           =
+
+# You can use the INCLUDE_FILE_PATTERNS tag to specify one or more wildcard
+# patterns (like *.h and *.hpp) to filter out the header-files in the
+# directories. If left blank, the patterns specified with FILE_PATTERNS will
+# be used.
+
+INCLUDE_FILE_PATTERNS  =
+
+# The PREDEFINED tag can be used to specify one or more macro names that
+# are defined before the preprocessor is started (similar to the -D option of
+# gcc). The argument of the tag is a list of macros of the form: name
+# or name=definition (no spaces). If the definition and the = are
+# omitted =1 is assumed. To prevent a macro definition from being
+# undefined via #undef or recursively expanded use the := operator
+# instead of the = operator.
+
+PREDEFINED             =
+
+# If the MACRO_EXPANSION and EXPAND_ONLY_PREDEF tags are set to YES then
+# this tag can be used to specify a list of macro names that should be expanded.
+# The macro definition that is found in the sources will be used.
+# Use the PREDEFINED tag if you want to use a different macro definition that
+# overrules the definition found in the source code.
+
+EXPAND_AS_DEFINED      =
+
+# If the SKIP_FUNCTION_MACROS tag is set to YES (the default) then
+# doxygen's preprocessor will remove all references to function-like macros
+# that are alone on a line, have an all uppercase name, and do not end with a
+# semicolon, because these will confuse the parser if not removed.
+
+SKIP_FUNCTION_MACROS   = YES
+
+#---------------------------------------------------------------------------
+# Configuration::additions related to external references
+#---------------------------------------------------------------------------
+
+# The TAGFILES option can be used to specify one or more tagfiles. For each
+# tag file the location of the external documentation should be added. The
+# format of a tag file without this location is as follows:
+#
+# TAGFILES = file1 file2 ...
+# Adding location for the tag files is done as follows:
+#
+# TAGFILES = file1=loc1 "file2 = loc2" ...
+# where "loc1" and "loc2" can be relative or absolute paths
+# or URLs. Note that each tag file must have a unique name (where the name does
+# NOT include the path). If a tag file is not located in the directory in which
+# doxygen is run, you must also specify the path to the tagfile here.
+
+TAGFILES               =
+
+# When a file name is specified after GENERATE_TAGFILE, doxygen will create
+# a tag file that is based on the input files it reads.
+
+GENERATE_TAGFILE       =
+
+# If the ALLEXTERNALS tag is set to YES all external classes will be listed
+# in the class index. If set to NO only the inherited external classes
+# will be listed.
+
+ALLEXTERNALS           = NO
+
+# If the EXTERNAL_GROUPS tag is set to YES all external groups will be listed
+# in the modules index. If set to NO, only the current project's groups will
+# be listed.
+
+EXTERNAL_GROUPS        = YES
+
+# The PERL_PATH should be the absolute path and name of the perl script
+# interpreter (i.e. the result of `which perl').
+
+PERL_PATH              = /usr/bin/perl
+
+#---------------------------------------------------------------------------
+# Configuration options related to the dot tool
+#---------------------------------------------------------------------------
+
+# If the CLASS_DIAGRAMS tag is set to YES (the default) Doxygen will
+# generate a inheritance diagram (in HTML, RTF and LaTeX) for classes with base
+# or super classes. Setting the tag to NO turns the diagrams off. Note that
+# this option also works with HAVE_DOT disabled, but it is recommended to
+# install and use dot, since it yields more powerful graphs.
+
+CLASS_DIAGRAMS         = YES
+
+# You can define message sequence charts within doxygen comments using the \msc
+# command. Doxygen will then run the mscgen tool (see
+# http://www.mcternan.me.uk/mscgen/) to produce the chart and insert it in the
+# documentation. The MSCGEN_PATH tag allows you to specify the directory where
+# the mscgen tool resides. If left empty the tool is assumed to be found in the
+# default search path.
+
+MSCGEN_PATH            =
+
+# If set to YES, the inheritance and collaboration graphs will hide
+# inheritance and usage relations if the target is undocumented
+# or is not a class.
+
+HIDE_UNDOC_RELATIONS   = YES
+
+# If you set the HAVE_DOT tag to YES then doxygen will assume the dot tool is
+# available from the path. This tool is part of Graphviz, a graph visualization
+# toolkit from AT&T and Lucent Bell Labs. The other options in this section
+# have no effect if this option is set to NO (the default)
+
+HAVE_DOT               = NO
+
+# The DOT_NUM_THREADS specifies the number of dot invocations doxygen is
+# allowed to run in parallel. When set to 0 (the default) doxygen will
+# base this on the number of processors available in the system. You can set it
+# explicitly to a value larger than 0 to get control over the balance
+# between CPU load and processing speed.
+
+DOT_NUM_THREADS        = 0
+
+# By default doxygen will use the Helvetica font for all dot files that
+# doxygen generates. When you want a differently looking font you can specify
+# the font name using DOT_FONTNAME. You need to make sure dot is able to find
+# the font, which can be done by putting it in a standard location or by setting
+# the DOTFONTPATH environment variable or by setting DOT_FONTPATH to the
+# directory containing the font.
+
+DOT_FONTNAME           = Helvetica
+
+# The DOT_FONTSIZE tag can be used to set the size of the font of dot graphs.
+# The default size is 10pt.
+
+DOT_FONTSIZE           = 10
+
+# By default doxygen will tell dot to use the Helvetica font.
+# If you specify a different font using DOT_FONTNAME you can use DOT_FONTPATH to
+# set the path where dot can find it.
+
+DOT_FONTPATH           =
+
+# If the CLASS_GRAPH and HAVE_DOT tags are set to YES then doxygen
+# will generate a graph for each documented class showing the direct and
+# indirect inheritance relations. Setting this tag to YES will force the
+# CLASS_DIAGRAMS tag to NO.
+
+CLASS_GRAPH            = YES
+
+# If the COLLABORATION_GRAPH and HAVE_DOT tags are set to YES then doxygen
+# will generate a graph for each documented class showing the direct and
+# indirect implementation dependencies (inheritance, containment, and
+# class references variables) of the class with other documented classes.
+
+COLLABORATION_GRAPH    = YES
+
+# If the GROUP_GRAPHS and HAVE_DOT tags are set to YES then doxygen
+# will generate a graph for groups, showing the direct groups dependencies
+
+GROUP_GRAPHS           = YES
+
+# If the UML_LOOK tag is set to YES doxygen will generate inheritance and
+# collaboration diagrams in a style similar to the OMG's Unified Modeling
+# Language.
+
+UML_LOOK               = NO
+
+# If the UML_LOOK tag is enabled, the fields and methods are shown inside
+# the class node. If there are many fields or methods and many nodes the
+# graph may become too big to be useful. The UML_LIMIT_NUM_FIELDS
+# threshold limits the number of items for each type to make the size more
+# managable. Set this to 0 for no limit. Note that the threshold may be
+# exceeded by 50% before the limit is enforced.
+
+UML_LIMIT_NUM_FIELDS   = 10
+
+# If set to YES, the inheritance and collaboration graphs will show the
+# relations between templates and their instances.
+
+TEMPLATE_RELATIONS     = NO
+
+# If the ENABLE_PREPROCESSING, SEARCH_INCLUDES, INCLUDE_GRAPH, and HAVE_DOT
+# tags are set to YES then doxygen will generate a graph for each documented
+# file showing the direct and indirect include dependencies of the file with
+# other documented files.
+
+INCLUDE_GRAPH          = YES
+
+# If the ENABLE_PREPROCESSING, SEARCH_INCLUDES, INCLUDED_BY_GRAPH, and
+# HAVE_DOT tags are set to YES then doxygen will generate a graph for each
+# documented header file showing the documented files that directly or
+# indirectly include this file.
+
+INCLUDED_BY_GRAPH      = YES
+
+# If the CALL_GRAPH and HAVE_DOT options are set to YES then
+# doxygen will generate a call dependency graph for every global function
+# or class method. Note that enabling this option will significantly increase
+# the time of a run. So in most cases it will be better to enable call graphs
+# for selected functions only using the \callgraph command.
+
+CALL_GRAPH             = NO
+
+# If the CALLER_GRAPH and HAVE_DOT tags are set to YES then
+# doxygen will generate a caller dependency graph for every global function
+# or class method. Note that enabling this option will significantly increase
+# the time of a run. So in most cases it will be better to enable caller
+# graphs for selected functions only using the \callergraph command.
+
+CALLER_GRAPH           = NO
+
+# If the GRAPHICAL_HIERARCHY and HAVE_DOT tags are set to YES then doxygen
+# will generate a graphical hierarchy of all classes instead of a textual one.
+
+GRAPHICAL_HIERARCHY    = YES
+
+# If the DIRECTORY_GRAPH, SHOW_DIRECTORIES and HAVE_DOT tags are set to YES
+# then doxygen will show the dependencies a directory has on other directories
+# in a graphical way. The dependency relations are determined by the #include
+# relations between the files in the directories.
+
+DIRECTORY_GRAPH        = YES
+
+# The DOT_IMAGE_FORMAT tag can be used to set the image format of the images
+# generated by dot. Possible values are svg, png, jpg, or gif.
+# If left blank png will be used. If you choose svg you need to set
+# HTML_FILE_EXTENSION to xhtml in order to make the SVG files
+# visible in IE 9+ (other browsers do not have this requirement).
+
+DOT_IMAGE_FORMAT       = png
+
+# If DOT_IMAGE_FORMAT is set to svg, then this option can be set to YES to
+# enable generation of interactive SVG images that allow zooming and panning.
+# Note that this requires a modern browser other than Internet Explorer.
+# Tested and working are Firefox, Chrome, Safari, and Opera. For IE 9+ you
+# need to set HTML_FILE_EXTENSION to xhtml in order to make the SVG files
+# visible. Older versions of IE do not have SVG support.
+
+INTERACTIVE_SVG        = NO
+
+# The tag DOT_PATH can be used to specify the path where the dot tool can be
+# found. If left blank, it is assumed the dot tool can be found in the path.
+
+DOT_PATH               =
+
+# The DOTFILE_DIRS tag can be used to specify one or more directories that
+# contain dot files that are included in the documentation (see the
+# \dotfile command).
+
+DOTFILE_DIRS           =
+
+# The MSCFILE_DIRS tag can be used to specify one or more directories that
+# contain msc files that are included in the documentation (see the
+# \mscfile command).
+
+MSCFILE_DIRS           =
+
+# The DOT_GRAPH_MAX_NODES tag can be used to set the maximum number of
+# nodes that will be shown in the graph. If the number of nodes in a graph
+# becomes larger than this value, doxygen will truncate the graph, which is
+# visualized by representing a node as a red box. Note that doxygen if the
+# number of direct children of the root node in a graph is already larger than
+# DOT_GRAPH_MAX_NODES then the graph will not be shown at all. Also note
+# that the size of a graph can be further restricted by MAX_DOT_GRAPH_DEPTH.
+
+DOT_GRAPH_MAX_NODES    = 50
+
+# The MAX_DOT_GRAPH_DEPTH tag can be used to set the maximum depth of the
+# graphs generated by dot. A depth value of 3 means that only nodes reachable
+# from the root by following a path via at most 3 edges will be shown. Nodes
+# that lay further from the root node will be omitted. Note that setting this
+# option to 1 or 2 may greatly reduce the computation time needed for large
+# code bases. Also note that the size of a graph can be further restricted by
+# DOT_GRAPH_MAX_NODES. Using a depth of 0 means no depth restriction.
+
+MAX_DOT_GRAPH_DEPTH    = 0
+
+# Set the DOT_TRANSPARENT tag to YES to generate images with a transparent
+# background. This is disabled by default, because dot on Windows does not
+# seem to support this out of the box. Warning: Depending on the platform used,
+# enabling this option may lead to badly anti-aliased labels on the edges of
+# a graph (i.e. they become hard to read).
+
+DOT_TRANSPARENT        = NO
+
+# Set the DOT_MULTI_TARGETS tag to YES allow dot to generate multiple output
+# files in one run (i.e. multiple -o and -T options on the command line). This
+# makes dot run faster, but since only newer versions of dot (>1.8.10)
+# support this, this feature is disabled by default.
+
+DOT_MULTI_TARGETS      = NO
+
+# If the GENERATE_LEGEND tag is set to YES (the default) Doxygen will
+# generate a legend page explaining the meaning of the various boxes and
+# arrows in the dot generated graphs.
+
+GENERATE_LEGEND        = YES
+
+# If the DOT_CLEANUP tag is set to YES (the default) Doxygen will
+# remove the intermediate dot files that are used to generate
+# the various graphs.
+
+DOT_CLEANUP            = YES

Examples/SoilWaterStructureInteraction/dynsws/trunk/field_data.f90

+! ------------------------------------------------------------------------
+!>  \brief Module for Field Data
+! ------------------------------------------------------------------------
+MODULE field_data
+USE system_constants      !> Global system constants
+USE log_message_control   !> Printing log/error messages
+USE log_messages          !> Log/error message and sender codes
+USE material_data         !> Material Property Data
+
+IMPLICIT NONE
+PRIVATE
+
+
+
+! ************************************************************************
+! EXPORTS
+! ************************************************************************
+
+
+!> Exported interfaces
+PUBLIC :: fld_initTime, fld_cleanTime, &
+          fld_timeStep, fld_numTimeSteps, &
+          fld_initNode, fld_cleanNode, &
+          fld_numNode, &
+          fld_getCoord, fld_setCoord, &
+          fld_getFix, fld_setFix, &
+          fld_initDof, fld_numDof, fld_getDof, &
+          fld_getDisp, fld_setDisp, &
+          fld_getVel, fld_setVel, &
+          fld_getAcc, fld_setAcc, &
+          fld_getBodyAcc, fld_setBodyAcc, &
+          fld_getStressNode, fld_setStressNode, &
+          fld_getStrainNode, fld_setStrainNode, &
+          fld_initElem, fld_cleanElem, &
+          fld_numElem, &
+          fld_getConnect, fld_setConnect, &
+          fld_volElem, &
+          fld_getMaterial, fld_setMaterial, &
+          fld_getStressElem, fld_setStressElem, &
+          fld_getStrainElem, fld_setStrainElem
+
+
+
+! ************************************************************************
+! LOCAL CONSTANTS
+! ************************************************************************
+
+!> sender code for this module
+INTEGER, PARAMETER :: sdr = FLDDAT
+
+!> subscripts for tensor variables
+INTEGER, PARAMETER, PUBLIC :: s11=1, s22=2, s12=3, s33=4
+
+
+
+! ************************************************************************
+! DATA TYPES
+! ************************************************************************
+
+
+! ------------------------------------------------------------------------
+!>  \brief Coordinate
+!!
+!!  \param x    Set of coordinates
+! ------------------------------------------------------------------------
+TYPE coordT
+  DOUBLE PRECISION, DIMENSION(NDIM) :: x
+END TYPE coordT
+
+
+! ------------------------------------------------------------------------
+!>  \brief Displacement
+!!
+!!  \param u    Set of displacements
+! ------------------------------------------------------------------------
+TYPE dispT
+  DOUBLE PRECISION, DIMENSION(NDIM) :: u
+END TYPE dispT
+
+
+! ------------------------------------------------------------------------
+!>  \brief Velocity
+!!
+!!  \param v    Set of velocities
+! ------------------------------------------------------------------------
+TYPE velT
+  DOUBLE PRECISION, DIMENSION(NDIM) :: v
+END TYPE velT
+
+
+! ------------------------------------------------------------------------
+!>  \brief Acceleration
+!!
+!!  \param a    Set of accelerations
+! ------------------------------------------------------------------------
+TYPE accT
+  DOUBLE PRECISION, DIMENSION(NDIM) :: a
+END TYPE accT
+
+
+! ------------------------------------------------------------------------
+!>  \brief Fixity
+!!
+!!  \param fix   Set of fixities
+! ------------------------------------------------------------------------
+TYPE fixT
+  LOGICAL, DIMENSION(NDIM) :: fix
+END TYPE fixT
+
+
+! ------------------------------------------------------------------------
+!>  \brief Degrees of freedom
+!!
+!!  \param dof   Set of degree of freedom indices
+! ------------------------------------------------------------------------
+TYPE dofT
+  INTEGER, DIMENSION(NDIM) :: dof
+END TYPE dofT
+
+
+! ------------------------------------------------------------------------
+!>  \brief Stress
+!!
+!!  \param sig   Set of stresses
+! ------------------------------------------------------------------------
+TYPE stressT
+  DOUBLE PRECISION, DIMENSION(NTNS) :: sig
+END TYPE stressT
+
+
+! ------------------------------------------------------------------------
+!>  \brief Strain
+!!
+!!  \param eps   Set of strains
+! ------------------------------------------------------------------------
+TYPE strainT
+  DOUBLE PRECISION, DIMENSION(NTNS) :: eps
+END TYPE strainT
+
+
+! ------------------------------------------------------------------------
+!>  \brief Connectivity
+!!
+!!  \param nd   Sequence of node indices
+! ------------------------------------------------------------------------
+TYPE connectT
+  INTEGER, DIMENSION(NNODEL) :: nd
+END TYPE connectT
+
+
+! ------------------------------------------------------------------------
+!>  \brief Node
+!!
+!!  \param num      Node number
+!!  \param pt       Node coordinates
+!!  \param fix      Fixities
+!!  \param dof      Degrees of freedom
+!!  \param disp     Displacement
+!!  \param vel      Velocity
+!!  \param acc      Acceleration
+!!  \param body     Body acceleration
+!!  \param stress   Nodal stress
+!!  \param strain   Nodal strain
+! ------------------------------------------------------------------------
+TYPE nodeT
+  INTEGER       :: num
+  TYPE(coordT)  :: pt
+  TYPE(fixT)    :: fix
+  TYPE(dofT)    :: dof
+  TYPE(dispT)   :: disp
+  TYPE(velT)    :: vel
+  TYPE(accT)    :: acc
+  TYPE(accT)    :: body
+  TYPE(stressT) :: stress
+  TYPE(strainT) :: strain
+END TYPE nodeT
+
+
+! ------------------------------------------------------------------------
+!>  \brief Element
+!!
+!!  \param num      Element number
+!!  \param ico      Connectivity of local nodes
+!!  \param mtl      Material number
+!!  \param stress   Element stress
+!!  \param strain   Element strain
+! ------------------------------------------------------------------------
+TYPE elementT
+  INTEGER         :: num
+  TYPE(connectT)  :: ico
+  INTEGER         :: mtl
+  TYPE(stressT)   :: stress
+  TYPE(strainT)   :: strain
+END TYPE elementT
+
+
+
+! ************************************************************************
+! STATE VARIABLES
+! ************************************************************************
+
+DOUBLE PRECISION, SAVE        :: dTime        = 0.d0    !> time step
+INTEGER,          SAVE        :: nTime        = 0       !> number of time steps
+TYPE(nodeT),      ALLOCATABLE :: nodes(:)               !> set of nodes
+TYPE(elementT),   ALLOCATABLE :: elements(:)            !> set of body elements
+INTEGER,          SAVE        :: ndof         = 0       !> total number of degrees of freedom
+
+
+
+! ************************************************************************
+! INTERFACES
+! ************************************************************************
+
+
+!> \brief Interface to initializer for time-stepping information
+INTERFACE fld_initTime
+  MODULE PROCEDURE fld_init_time_
+  MODULE PROCEDURE fld_init_time_exc_
+END INTERFACE fld_initTime
+
+!> \brief Interface to destructor for time-stepping information
+INTERFACE fld_cleanTime
+  MODULE PROCEDURE fld_clean_time_
+END INTERFACE fld_cleanTime
+
+!> \brief Interface to getter for time step
+INTERFACE fld_timeStep
+  MODULE PROCEDURE fld_time_step_
+END INTERFACE fld_timeStep
+
+!> \brief Interface to getter for number of time steps
+INTERFACE fld_numTimeSteps
+  MODULE PROCEDURE fld_num_time_steps_
+END INTERFACE fld_numTimeSteps
+
+!> \brief Interface to initializer for node information
+INTERFACE fld_initNode
+  MODULE PROCEDURE fld_init_node_
+  MODULE PROCEDURE fld_init_node_exc_
+END INTERFACE fld_initNode
+
+!> \brief Interface to destructor for node information
+INTERFACE fld_cleanNode
+  MODULE PROCEDURE fld_clean_node_
+END INTERFACE fld_cleanNode
+
+!> \brief Interface to getter for number of nodes
+INTERFACE fld_numNode
+  MODULE PROCEDURE fld_num_node_
+END INTERFACE fld_numNode
+
+!> \brief Interface to getter for node coordinates
+INTERFACE fld_getCoord
+  MODULE PROCEDURE fld_get_coord_
+  MODULE PROCEDURE fld_get_coord_exc_
+END INTERFACE fld_getCoord
+
+!> \brief Interface to setter for node coordinates
+INTERFACE fld_setCoord
+  MODULE PROCEDURE fld_set_coord_
+  MODULE PROCEDURE fld_set_coord_exc_
+END INTERFACE fld_setCoord
+
+!> \brief Interface to getter for node fixity
+INTERFACE fld_getFix
+  MODULE PROCEDURE fld_get_fix_
+  MODULE PROCEDURE fld_get_fix_exc_
+END INTERFACE fld_getFix
+
+!> \brief Interface to setter for node fixity
+INTERFACE fld_setFix
+  MODULE PROCEDURE fld_set_fix_
+  MODULE PROCEDURE fld_set_fix_exc_
+END INTERFACE fld_setFix
+
+!> \brief Interface to initializer for degrees of freedom
+INTERFACE fld_initDof
+  MODULE PROCEDURE fld_init_dof_exc_
+END INTERFACE fld_initDof
+
+!> \brief Interface to getter for number of degrees of freedom
+INTERFACE fld_numDof
+  MODULE PROCEDURE fld_num_dof_
+END INTERFACE fld_numDof
+
+!> \brief Interface to getter for degree of freedom
+INTERFACE fld_getDof
+  MODULE PROCEDURE fld_get_dof_
+  MODULE PROCEDURE fld_get_dof_exc_
+END INTERFACE fld_getDof
+
+!> \brief Interface to getter for node displacement
+INTERFACE fld_getDisp
+  MODULE PROCEDURE fld_get_disp_
+  MODULE PROCEDURE fld_get_disp_exc_
+END INTERFACE fld_getDisp
+
+!> \brief Interface to setter for node displacement
+INTERFACE fld_setDisp
+  MODULE PROCEDURE fld_set_disp_
+  MODULE PROCEDURE fld_set_disp_exc_
+END INTERFACE fld_setDisp
+
+!> \brief Interface to getter for node velocity
+INTERFACE fld_getVel
+  MODULE PROCEDURE fld_get_vel_
+  MODULE PROCEDURE fld_get_vel_exc_
+END INTERFACE fld_getVel
+
+!> \brief Interface to setter for node velocity
+INTERFACE fld_setVel
+  MODULE PROCEDURE fld_set_vel_
+  MODULE PROCEDURE fld_set_vel_exc_
+END INTERFACE fld_setVel
+
+!> \brief Interface to getter for node acceleration
+INTERFACE fld_getAcc
+  MODULE PROCEDURE fld_get_acc_
+  MODULE PROCEDURE fld_get_acc_exc_
+END INTERFACE fld_getAcc
+
+!> \brief Interface to setter for node acceleration
+INTERFACE fld_setAcc
+  MODULE PROCEDURE fld_set_acc_
+  MODULE PROCEDURE fld_set_acc_exc_
+END INTERFACE fld_setAcc
+
+!> \brief Interface to getter for body acceleration at node
+INTERFACE fld_getBodyAcc
+  MODULE PROCEDURE fld_get_body_acc_
+  MODULE PROCEDURE fld_get_body_acc_exc_
+END INTERFACE fld_getBodyAcc
+
+!> \brief Interface to setter for body acceleration at node
+INTERFACE fld_setBodyAcc
+  MODULE PROCEDURE fld_set_body_acc_
+  MODULE PROCEDURE fld_set_body_acc_exc_
+END INTERFACE fld_setBodyAcc
+
+!> \brief Interface to getter for node stress
+INTERFACE fld_getStressNode
+  MODULE PROCEDURE fld_get_stress_node_
+  MODULE PROCEDURE fld_get_stress_node_exc_
+END INTERFACE fld_getStressNode
+
+!> \brief Interface to setter for node stress
+INTERFACE fld_setStressNode
+  MODULE PROCEDURE fld_set_stress_node_
+  MODULE PROCEDURE fld_set_stress_node_exc_
+END INTERFACE fld_setStressNode
+
+!> \brief Interface to getter for node strain
+INTERFACE fld_getStrainNode
+  MODULE PROCEDURE fld_get_strain_node_
+  MODULE PROCEDURE fld_get_strain_node_exc_
+END INTERFACE fld_getStrainNode
+
+!> \brief Interface to setter for node strain
+INTERFACE fld_setStrainNode
+  MODULE PROCEDURE fld_set_strain_node_
+  MODULE PROCEDURE fld_set_strain_node_exc_
+END INTERFACE fld_setStrainNode
+
+!> \brief Interface to initializer for elements
+INTERFACE fld_initElem
+  MODULE PROCEDURE fld_init_elem_
+  MODULE PROCEDURE fld_init_elem_exc_
+END INTERFACE fld_initElem
+
+!> \brief Interface to destructor for element information
+INTERFACE fld_cleanElem
+  MODULE PROCEDURE fld_clean_elem_
+END INTERFACE fld_cleanElem
+
+!> \brief Interface to getter for number of elements
+INTERFACE fld_numElem
+  MODULE PROCEDURE fld_num_elem_
+END INTERFACE fld_numElem
+
+!> \brief Interface to getter for element connectivity
+INTERFACE fld_getConnect
+  MODULE PROCEDURE fld_get_connect_
+  MODULE PROCEDURE fld_get_connect_exc_
+END INTERFACE fld_getConnect
+
+!> \brief Interface to setter for element connectivity
+INTERFACE fld_setConnect
+  MODULE PROCEDURE fld_set_connect_
+  MODULE PROCEDURE fld_set_connect_exc_
+END INTERFACE fld_setConnect
+
+!> \brief Interface to getter for volume of element
+INTERFACE fld_volElem
+  MODULE PROCEDURE fld_vol_elem_
+  MODULE PROCEDURE fld_vol_elem_exc_
+END INTERFACE fld_volElem
+
+!> \brief Interface to getter for element material
+INTERFACE fld_getMaterial
+  MODULE PROCEDURE fld_get_material_
+  MODULE PROCEDURE fld_get_material_exc_
+END INTERFACE fld_getMaterial
+
+!> \brief Interface to setter for element material
+INTERFACE fld_setMaterial
+  MODULE PROCEDURE fld_set_material_
+  MODULE PROCEDURE fld_set_material_exc_
+END INTERFACE fld_setMaterial
+
+!> \brief Interface to getter for element stress
+INTERFACE fld_getStressElem
+  MODULE PROCEDURE fld_get_stress_elem_
+  MODULE PROCEDURE fld_get_stress_elem_exc_
+END INTERFACE fld_getStressElem
+
+!> \brief Interface to setter for element stress
+INTERFACE fld_setStressElem
+  MODULE PROCEDURE fld_set_stress_elem_
+  MODULE PROCEDURE fld_set_stress_elem_exc_
+END INTERFACE fld_setStressElem
+
+!> \brief Interface to getter for element strain
+INTERFACE fld_getStrainElem
+  MODULE PROCEDURE fld_get_strain_elem_
+  MODULE PROCEDURE fld_get_strain_elem_exc_
+END INTERFACE fld_getStrainElem
+
+!> \brief Interface to setter for element strain
+INTERFACE fld_setStrainElem
+  MODULE PROCEDURE fld_set_strain_elem_
+  MODULE PROCEDURE fld_set_strain_elem_exc_
+END INTERFACE fld_setStrainElem
+
+
+
+CONTAINS
+
+
+
+! ************************************************************************
+! ACCESS PROGRAMS
+! ************************************************************************
+
+
+! ------------------------------------------------------------------------
+!>  \brief Initializer for time-stepping data (non-exception checking)
+!!
+!!  \param  dt  Time step
+!!  \param  n   Number of time steps
+!!
+!!  This routine sets the module state parameters for time step and total
+!!  number of time steps.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_init_time_ (dt,n)
+  DOUBLE PRECISION, INTENT(IN) :: dt
+  INTEGER, INTENT(IN) :: n
+
+  dTime = dt
+  nTime = n
+
+END SUBROUTINE fld_init_time_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Initializer for time-stepping data (exception checking)
+!!
+!!  \param  dt  Time step
+!!  \param  n   Number of time steps
+!!  \param  exc Error code
+!!
+!!  \exception  EXCEED  Size of time step or number of time steps exceed definined min/max values
+!!
+!!  This routine sets the module state parameters for time step and total
+!!  number of time steps.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_init_time_exc_ (dt,n, exc)
+  DOUBLE PRECISION, INTENT(IN) :: dt
+  INTEGER, INTENT(IN) :: n
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that time step and number of time steps are valid
+  IF (  dt.LT.DTIME_MIN .OR. dt.GT.DTIME_MAX  &
+        .OR. n.LT.1 .OR. n.GT.MAX_TIMESTEPS ) THEN
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    CALL fld_cleanTime()
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL fld_initTime(dt,n)
+
+END SUBROUTINE fld_init_time_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Destructor for time-stepping data
+!!
+!!  This routine resets the module state parameters for time step and
+!!  total number of time steps to 0.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_clean_time_ ()
+
+  dTime = 0.d0
+  nTime = 0
+
+END SUBROUTINE fld_clean_time_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for size of time step
+!!
+!!  \return dt  Time step
+! ------------------------------------------------------------------------
+FUNCTION fld_time_step_ () RESULT(dt)
+  DOUBLE PRECISION :: dt
+
+  dt = dTime
+
+END FUNCTION fld_time_step_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for number of time steps
+!!
+!!  \return n   Number of time steps
+! ------------------------------------------------------------------------
+FUNCTION fld_num_time_steps_ () RESULT(n)
+  DOUBLE PRECISION :: n
+
+  n = nTime
+
+END FUNCTION fld_num_time_steps_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Constructor for node data (non-exception checking)
+!!
+!!  \param  nnod  Number of nodes
+!!
+!!  This routine allocates memory and initializes the state variable that
+!!  contains the set of nodes for the problem.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_init_node_ (nnod)
+  INTEGER, INTENT(IN) :: nnod
+  INTEGER :: i, j     !> loop variables
+
+  !> only reallocate if new dimensions do not match existing dimensions
+  IF (fld_numNode().NE.nnod) THEN
+
+    !> ensure state variable is clear
+    CALL fld_cleanNode()
+
+    !> allocate memory for node data state variable
+    ALLOCATE(nodes(nnod))
+
+  END IF
+
+  !> initialize state variable
+
+  ndof = 0
+
+  DO i = 1,nnod
+
+    !> node number
+    nodes(i)%num   = i
+
+    !> vector variables
+    DO j = 1,NDIM
+      nodes(i)%pt   %x(j)   = 0.d0
+      nodes(i)%fix  %fix(j) = .FALSE.
+      nodes(i)%dof  %dof(j) = 0
+      nodes(i)%disp %u(j)   = 0.d0
+      nodes(i)%vel  %v(j)   = 0.d0
+      nodes(i)%acc  %a(j)   = 0.d0
+      nodes(i)%body %a(j)   = 0.d0
+    END DO
+
+    !> tensor variables
+    DO j = 1,NTNS
+      nodes(i)%stress%sig(j) = 0.d0
+      nodes(i)%strain%eps(j) = 0.d0
+    END DO
+
+  END DO
+
+END SUBROUTINE fld_init_node_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Constructor for node data (exception checking)
+!!
+!!  \param  nnod  Number of nodes
+!!  \param  exc   Error code
+!!
+!!  \exception  ALLOC Failed to allocate memory for node data
+!!  \exception  SZE   Specified number of nodes is invalid
+!!
+!!  This routine allocates memory and initializes the state variable that
+!!  contains the set of nodes for the problem.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_init_node_exc_ (nnod, exc)
+  INTEGER, INTENT(IN) :: nnod
+  INTEGER, INTENT(OUT) :: exc
+  INTEGER :: e        !> status code for memory allocation
+  INTEGER :: i, j     !> loop variables
+
+  !> make sure number of nodes is valid
+  IF (nnod.LT.1 .OR. nnod.GT.MAX_NODES) THEN
+    exc=SZE
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> only reallocate if new dimensions do not match existing dimensions
+  IF (fld_numNode().NE.nnod) THEN
+
+    !> ensure state variable is clear
+    CALL fld_cleanNode()
+
+    !> allocate memory for node data state variable
+    ALLOCATE(nodes(nnod), STAT=e)
+
+    !> make sure memory allocation was successful
+    IF (e.NE.0) THEN
+      exc=ALLOC
+      CALL log_printLogMsg(exc,sdr)
+      RETURN
+    ELSE
+      exc=OK
+    END IF
+
+  END IF
+
+  !> initialize state variable
+
+  ndof = 0
+
+  DO i = 1,nnod
+
+    !> node number
+    nodes(i)%num   = i
+
+    !> vector variables
+    DO j = 1,NDIM
+      nodes(i)%pt   %x(j)   = 0.d0
+      nodes(i)%fix  %fix(j) = .FALSE.
+      nodes(i)%dof  %dof(j) = 0
+      nodes(i)%disp %u(j)   = 0.d0
+      nodes(i)%vel  %v(j)   = 0.d0
+      nodes(i)%acc  %a(j)   = 0.d0
+      nodes(i)%body %a(j)   = 0.d0
+    END DO
+
+    !> tensor variables
+    DO j = 1,NTNS
+      nodes(i)%stress%sig(j) = 0.d0
+      nodes(i)%strain%eps(j) = 0.d0
+    END DO
+
+  END DO
+
+END SUBROUTINE fld_init_node_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Destructor for node data
+!!
+!!  This routine clears the memory allocated to the state variable that
+!!  contains the set of node data for the problem. It also resets the
+!!  degree of freedom counter (since there cannot be degrees of freedom
+!!  without nodes).
+! ------------------------------------------------------------------------
+SUBROUTINE fld_clean_node_ ()
+
+  IF (ALLOCATED(nodes)) DEALLOCATE(nodes)
+
+  ndof = 0
+
+END SUBROUTINE fld_clean_node_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for number of nodes
+!!
+!!  \return nnod  Number of nodes
+!!
+!!  This routine determines the number of data entries that have been
+!!  allocated for node data. It does not check that the node data
+!!  has been populated (i.e. changed from initial zero values).
+! ------------------------------------------------------------------------
+FUNCTION fld_num_node_ () RESULT(nnod)
+  INTEGER :: nnod
+
+  !> if data is initialized, return number of nodes
+  IF (ALLOCATED(nodes)) THEN
+    nnod = SIZE(nodes)
+  ELSE
+    nnod = 0   !> if not initialized, there are no nodes
+  END IF
+
+END FUNCTION fld_num_node_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node coordinates (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!
+!!  \return x     Coordinate value
+!!
+!!  This routine determines the value of the coordinate for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_coord_ (i,j) RESULT(x)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION :: x
+
+  x = nodes(i)%pt%x(j)
+
+END FUNCTION fld_get_coord_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node coordinates (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  exc   Error code
+!!
+!!  \return x     Coordinate value
+!!
+!!  \exception  POSIT The node number is not in [1..fld_numNode()] or the
+!!                    coordinate index is not in [1..NDIM]
+!!
+!!  This routine determines the value of the coordinate for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_coord_exc_ (i,j, exc) RESULT(x)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  DOUBLE PRECISION :: x
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the coordinate index is within [1..NDIM]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NDIM ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    x = 0.d0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  x = fld_getCoord(i,j)
+
+END FUNCTION fld_get_coord_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node coordinates (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  x     Coordinate value
+!!
+!!  This routine sets the value of the coordinate for node number i in
+!!  coordinate direction j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_coord_ (i,j, x)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: x
+
+  nodes(i)%pt%x(j) = x
+
+END SUBROUTINE fld_set_coord_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node coordinates (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  x     Coordinate value
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  The value of the coordinate exceeds prescribed
+!!                      limits
+!!  \exception  POSIT   The node number is not in [1..fld_numNode()] or
+!!                      the coordinate index is not in [1..NDIM]
+!!
+!!  This routine sets the value of the coordinate for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_coord_exc_ (i,j, x, exc)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: x
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the coordinate index is within [1..NDIM]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NDIM ) THEN
+
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE IF (x.LT.COORD_MIN .OR. x.GT.COORD_MAX) THEN
+
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL fld_setCoord(i,j, x)
+
+END SUBROUTINE fld_set_coord_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for fixities (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!
+!!  \return fix   Fixity value
+!!
+!!  This routine determines the value of the fixity for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_fix_ (i,j) RESULT(fix)
+  INTEGER, INTENT(IN) :: i,j
+  LOGICAL :: fix
+
+  fix = nodes(i)%fix%fix(j)
+
+END FUNCTION fld_get_fix_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for fixities (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  exc   Error code
+!!
+!!  \return fix   Fixity value
+!!
+!!  \exception  POSIT The node number is not in [1..fld_numNode()] or the
+!!                    coordinate index is not in [1..NDIM]
+!!
+!!  This routine determines the value of the fixity for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_fix_exc_ (i,j, exc) RESULT(fix)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  LOGICAL :: fix
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the coordinate index is within [1..NDIM]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NDIM ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    fix = .FALSE.
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  fix = fld_getFix(i,j)
+
+END FUNCTION fld_get_fix_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for fixities (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  fix   Fixity value
+!!
+!!  This routine sets the value of the fixity for node number i in
+!!  coordinate direction j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_fix_ (i,j, fix)
+  INTEGER, INTENT(IN) :: i,j
+  LOGICAL, INTENT(IN) :: fix
+
+  nodes(i)%fix%fix(j) = fix
+
+END SUBROUTINE fld_set_fix_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for fixities (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  fix   Fixity value
+!!  \param  exc   Error code
+!!
+!!  \exception  POSIT   The node number is not in [1..fld_numNode()] or
+!!                      the coordinate index is not in [1..NDIM]
+!!
+!!  This routine sets the value of the coordinate for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_fix_exc_ (i,j, fix, exc)
+  INTEGER, INTENT(IN) :: i,j
+  LOGICAL, INTENT(IN) :: fix
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the coordinate index is within [1..NDIM]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NDIM ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL fld_setFix(i,j, fix)
+
+END SUBROUTINE fld_set_fix_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Initializer for nodal degrees of freedom
+!!
+!!  \param  exc   Error code
+!!
+!!  \exception  SZE   The number of degrees of freedom exceeds the maximum
+!!                    defined in the System Constants module
+! ------------------------------------------------------------------------
+SUBROUTINE fld_init_dof_exc_ (exc)
+  INTEGER, INTENT(OUT), OPTIONAL :: exc
+  INTEGER :: i,j    !> loop variables
+
+  !> initialize degree of freedom counter
+  ndof = 0
+
+  !> loop through nodes, setting dof number for unfixed dofs
+  DO i = 1,fld_numNode()
+    DO j = 1,NDIM
+
+      !> if dof is fixed, set dof number to 0
+      IF ( fld_getFix(i,j) ) THEN
+
+        nodes(i)%dof%dof(j) = 0
+
+      !> otherwise, increment dof counter and set dof number
+      ELSE
+
+        ndof = ndof+1
+
+        !> make sure number of dofs does not exceed limit
+        IF (PRESENT(exc) .AND. ndof.GT.MAX_DOFS) THEN
+          exc=SZE
+          CALL log_printLogMsg(exc,sdr)
+          ndof = 0
+          RETURN
+        END IF
+
+        nodes(i)%dof%dof(j) = ndof
+
+      END IF
+
+    END DO
+  END DO
+
+  !> if the loop completed without returning, no exception was raised
+  IF (PRESENT(exc)) exc=OK
+
+END SUBROUTINE fld_init_dof_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for number of degrees of freedom
+!!
+!!  \return n  Number of degrees of freedom
+!!
+!!  This routine determines the number of degrees of freedom for the
+!!  system.
+! ------------------------------------------------------------------------
+FUNCTION fld_num_dof_ () RESULT(n)
+  INTEGER :: n
+
+  n = ndof
+
+END FUNCTION fld_num_dof_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for degree of freedom (non-exception checking)
+!!
+!!  \param  i   Node number
+!!  \param  j   Coordinate index
+!!
+!!  \return dof Degree of freedom number
+!!
+!!  This routine determines the index number associated with degree of
+!!  freedom j for node i. Note that a return value of 0 indicates that the
+!!  degree of freedom is fixed (and will not be necessary for the solution
+!!  of the system).
+! ------------------------------------------------------------------------
+FUNCTION fld_get_dof_ (i,j) RESULT(dof)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER :: dof
+
+  dof = nodes(i)%dof%dof(j)
+
+END FUNCTION fld_get_dof_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for degree of freedom (exception checking)
+!!
+!!  \param  i   Node number
+!!  \param  j   Coordinate index
+!!  \param  exc Error code
+!!
+!!  \return dof Degree of freedom number
+!!
+!!  \exception  POSIT The node number is not in [1..fld_numNode()] or the
+!!                    coordinate index is not in [1..NDIM]
+!!
+!!  This routine determines the index number associated with degree of
+!!  freedom j for node i. Note that a return value of 0 indicates that the
+!!  degree of freedom is fixed (and will not be necessary for the solution
+!!  of the system).
+! ------------------------------------------------------------------------
+FUNCTION fld_get_dof_exc_ (i,j, exc) RESULT(dof)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  INTEGER :: dof
+
+  !> check that the given indices are valid
+  IF (  i.LT.1 .OR. i.GT.fld_numNode()  &
+        .OR. j.LT.1 .OR. j.GT.NDIM )    THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    dof=0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> make sure dofs have been initialized
+  IF (ndof.EQ.0) THEN
+    dof=0
+  ELSE
+    !> call non-exception version
+    dof = fld_getDof(i,j)
+  END IF
+
+END FUNCTION fld_get_dof_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node displacements (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!
+!!  \return u     Displacement value
+!!
+!!  This routine determines the value of the displacement for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_disp_ (i,j) RESULT(u)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION :: u
+
+  u = nodes(i)%disp%u(j)
+
+END FUNCTION fld_get_disp_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node displacements (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  exc   Error code
+!!
+!!  \return u     Displacement value
+!!
+!!  \exception  POSIT The node number is not in [1..fld_numNode()] or the
+!!                    coordinate index is not in [1..NDIM]
+!!
+!!  This routine determines the value of the displacement for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_disp_exc_ (i,j, exc) RESULT(u)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  DOUBLE PRECISION :: u
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the coordinate index is within [1..NDIM]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NDIM ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    u = 0.d0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  u = fld_getDisp(i,j)
+
+END FUNCTION fld_get_disp_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node displacements (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  u     Displacement value
+!!
+!!  This routine sets the value of the displacement for node number i in
+!!  coordinate direction j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_disp_ (i,j, u)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: u
+
+  nodes(i)%disp%u(j) = u
+
+END SUBROUTINE fld_set_disp_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node displacements (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  u     Displacement value
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  The value of the displacement exceeds prescribed
+!!                      limits
+!!  \exception  POSIT   The node number is not in [1..fld_numNode()] or
+!!                      the coordinate index is not in [1..NDIM]
+!!
+!!  This routine sets the value of the displacement for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_disp_exc_ (i,j, u, exc)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: u
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the coordinate index is within [1..NDIM]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NDIM ) THEN
+
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE IF (u.LT.DISP_MIN .OR. u.GT.DISP_MAX) THEN
+
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL fld_setDisp(i,j, u)
+
+END SUBROUTINE fld_set_disp_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node velocities (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!
+!!  \return v     Velocity value
+!!
+!!  This routine determines the value of the velocity for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_vel_ (i,j) RESULT(v)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION :: v
+
+  v = nodes(i)%vel%v(j)
+
+END FUNCTION fld_get_vel_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node velocities (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  exc   Error code
+!!
+!!  \return v     Velocity value
+!!
+!!  \exception  POSIT The node number is not in [1..fld_numNode()] or the
+!!                    coordinate index is not in [1..NDIM]
+!!
+!!  This routine determines the value of the velocity for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_vel_exc_ (i,j, exc) RESULT(v)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  DOUBLE PRECISION :: v
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the coordinate index is within [1..NDIM]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NDIM ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    v = 0.d0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  v = fld_getVel(i,j)
+
+END FUNCTION fld_get_vel_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node velocities (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  v     Velocity value
+!!
+!!  This routine sets the value of the velocity for node number i in
+!!  coordinate direction j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_vel_ (i,j, v)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: v
+
+  nodes(i)%vel%v(j) = v
+
+END SUBROUTINE fld_set_vel_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node velocities (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  v     Velocity value
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  The value of the velocity exceeds prescribed
+!!                      limits
+!!  \exception  POSIT   The node number is not in [1..fld_numNode()] or
+!!                      the coordinate index is not in [1..NDIM]
+!!
+!!  This routine sets the value of the velocity for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_vel_exc_ (i,j, v, exc)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: v
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the coordinate index is within [1..NDIM]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NDIM ) THEN
+
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE IF (v.LT.VEL_MIN .OR. v.GT.VEL_MAX) THEN
+
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL fld_setVel(i,j, v)
+
+END SUBROUTINE fld_set_vel_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node accelerations (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!
+!!  \return a     Acceleration value
+!!
+!!  This routine determines the value of the acceleration for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_acc_ (i,j) RESULT(a)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION :: a
+
+  a = nodes(i)%acc%a(j)
+
+END FUNCTION fld_get_acc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node accelerations (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  exc   Error code
+!!
+!!  \return a     Acceleration value
+!!
+!!  \exception  POSIT The node number is not in [1..fld_numNode()] or the
+!!                    coordinate index is not in [1..NDIM]
+!!
+!!  This routine determines the value of the acceleration for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_acc_exc_ (i,j, exc) RESULT(a)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  DOUBLE PRECISION :: a
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the coordinate index is within [1..NDIM]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NDIM ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    a = 0.d0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  a = fld_getAcc(i,j)
+
+END FUNCTION fld_get_acc_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node accelerations (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  a     Acceleration value
+!!
+!!  This routine sets the value of the acceleration for node number i in
+!!  coordinate direction j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_acc_ (i,j, a)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: a
+
+  nodes(i)%acc%a(j) = a
+
+END SUBROUTINE fld_set_acc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node accelerations (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  a     Acceleration value
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  The value of the acceleration exceeds prescribed
+!!                      limits
+!!  \exception  POSIT   The node number is not in [1..fld_numNode()] or
+!!                      the coordinate index is not in [1..NDIM]
+!!
+!!  This routine sets the value of the acceleration for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_acc_exc_ (i,j, a, exc)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: a
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the coordinate index is within [1..NDIM]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NDIM ) THEN
+
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE IF (a.LT.ACC_MIN .OR. a.GT.ACC_MAX) THEN
+
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL fld_setAcc(i,j, a)
+
+END SUBROUTINE fld_set_acc_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node body accelerations (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!
+!!  \return a     Body acceleration value
+!!
+!!  This routine determines the value of the body acceleration for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_body_acc_ (i,j) RESULT(a)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION :: a
+
+  a = nodes(i)%body%a(j)
+
+END FUNCTION fld_get_body_acc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node body accelerations (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  exc   Error code
+!!
+!!  \return a     Body acceleration value
+!!
+!!  \exception  POSIT The node number is not in [1..fld_numNode()] or the
+!!                    coordinate index is not in [1..NDIM]
+!!
+!!  This routine determines the value of the body acceleration for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_body_acc_exc_ (i,j, exc) RESULT(a)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  DOUBLE PRECISION :: a
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the coordinate index is within [1..NDIM]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NDIM ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    a = 0.d0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  a = fld_getBodyAcc(i,j)
+
+END FUNCTION fld_get_body_acc_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node body accelerations (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  a     Body acceleration value
+!!
+!!  This routine sets the value of the body acceleration for node number i
+!!  in coordinate direction j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_body_acc_ (i,j, a)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: a
+
+  nodes(i)%body%a(j) = a
+
+END SUBROUTINE fld_set_body_acc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node body accelerations (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Coordinate index
+!!  \param  a     Body acceleration value
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  The value of the body acceleration exceeds
+!!                      prescribed limits
+!!  \exception  POSIT   The node number is not in [1..fld_numNode()] or
+!!                      the coordinate index is not in [1..NDIM]
+!!
+!!  This routine sets the value of the body acceleration for node
+!!  number i in coordinate direction j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_body_acc_exc_ (i,j, a, exc)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: a
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the coordinate index is within [1..NDIM]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NDIM ) THEN
+
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE IF (a.LT.ACC_MIN .OR. a.GT.ACC_MAX) THEN
+
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL fld_setBodyAcc(i,j, a)
+
+END SUBROUTINE fld_set_body_acc_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node stresses (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Tensor index
+!!
+!!  \return s     Stress value
+!!
+!!  This routine determines the value of the stress for node
+!!  number i for tensor index j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_stress_node_ (i,j) RESULT(s)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION :: s
+
+  s = nodes(i)%stress%sig(j)
+
+END FUNCTION fld_get_stress_node_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node stresses (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Tensor index
+!!  \param  exc   Error code
+!!
+!!  \return s     Stress value
+!!
+!!  \exception  POSIT The node number is not in [1..fld_numNode()] or the
+!!                    tensor index is not in [1..NTNS]
+!!
+!!  This routine determines the value of the stress for node
+!!  number i for tensor index j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_stress_node_exc_ (i,j, exc) RESULT(s)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  DOUBLE PRECISION :: s
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the tensor index is within [1..NTNS]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NTNS ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    s = 0.d0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  s = fld_getStressNode(i,j)
+
+END FUNCTION fld_get_stress_node_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node stresses (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Tensor index
+!!  \param  s     Stress value
+!!
+!!  This routine sets the value of the stress for node number i
+!!  for tensor index j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_stress_node_ (i,j, s)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: s
+
+  nodes(i)%stress%sig(j) = s
+
+END SUBROUTINE fld_set_stress_node_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node stresses (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Tensor index
+!!  \param  s     Stress value
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  The value of the stress exceeds prescribed limits
+!!  \exception  POSIT   The node number is not in [1..fld_numNode()] or
+!!                      the tensor index is not in [1..NTNS]
+!!
+!!  This routine sets the value of the stress for node number i for
+!!  tensor index j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_stress_node_exc_ (i,j, s, exc)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: s
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the tensor index is within [1..NTNS]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NTNS ) THEN
+
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE IF (s.LT.SIG_MIN .OR. s.GT.SIG_MAX) THEN
+
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL fld_setStressNode(i,j, s)
+
+END SUBROUTINE fld_set_stress_node_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node strains (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Tensor index
+!!
+!!  \return s     Strain value
+!!
+!!  This routine determines the value of the strain for node
+!!  number i for tensor index j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_strain_node_ (i,j) RESULT(s)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION :: s
+
+  s = nodes(i)%strain%eps(j)
+
+END FUNCTION fld_get_strain_node_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for node strains (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Tensor index
+!!  \param  exc   Error code
+!!
+!!  \return s     Strain value
+!!
+!!  \exception  POSIT The node number is not in [1..fld_numNode()] or the
+!!                    tensor index is not in [1..NTNS]
+!!
+!!  This routine determines the value of the strain for node
+!!  number i for tensor index j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_strain_node_exc_ (i,j, exc) RESULT(s)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  DOUBLE PRECISION :: s
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the tensor index is within [1..NTNS]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NTNS ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    s = 0.d0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  s = fld_getStrainNode(i,j)
+
+END FUNCTION fld_get_strain_node_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node strains (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Tensor index
+!!  \param  s     Strain value
+!!
+!!  This routine sets the value of the strain for node number i
+!!  for tensor index j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_strain_node_ (i,j, s)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: s
+
+  nodes(i)%strain%eps(j) = s
+
+END SUBROUTINE fld_set_strain_node_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for node strains (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Tensor index
+!!  \param  s     Strain value
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  The value of the strain exceeds prescribed limits
+!!  \exception  POSIT   The node number is not in [1..fld_numNode()] or
+!!                      the tensor index is not in [1..NTNS]
+!!
+!!  This routine sets the value of the strain for node number i for
+!!  tensor index j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_strain_node_exc_ (i,j, s, exc)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: s
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the node number is within the bounds of the nodes list
+  !!  and that the tensor index is within [1..NTNS]
+  IF ( i.LT.1 .OR. i.GT.fld_numNode() &
+        .OR. j.LT.1 .OR. j.GT.NTNS ) THEN
+
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE IF (s.LT.STR_MIN .OR. s.GT.STR_MAX) THEN
+
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL fld_setStrainNode(i,j, s)
+
+END SUBROUTINE fld_set_strain_node_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Constructor for element data (non-exception checking)
+!!
+!!  \param  nel  Number of elements
+!!
+!!  This routine allocates memory and initializes the state variable that
+!!  contains the set of elements for the problem.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_init_elem_ (nel)
+  INTEGER, INTENT(IN) :: nel
+  INTEGER :: i, j     !> loop variables
+
+  !> only reallocate if new dimensions do not match existing dimensions
+  IF (fld_numElem().NE.nel) THEN
+
+    !> ensure state variable is clear
+    CALL fld_cleanElem()
+
+    !> allocate memory for element data state variable
+    ALLOCATE(elements(nel))
+
+  END IF
+
+  !> initialize state variable
+  DO i = 1,nel
+
+    !> element number
+    elements(i)%num   = i
+
+    !> material number
+    elements(i)%mtl = 0
+
+    !> connectivity
+    DO j = 1,NNODEL
+      elements(i)%ico%nd(j)   = 0
+    END DO
+
+    !> tensor variables
+    DO j = 1,NTNS
+      elements(i)%stress%sig(j) = 0.d0
+      elements(i)%strain%eps(j) = 0.d0
+    END DO
+
+  END DO
+
+END SUBROUTINE fld_init_elem_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Constructor for element data (exception checking)
+!!
+!!  \param  nel   Number of elements
+!!  \param  exc   Error code
+!!
+!!  \exception  ALLOC Failed to allocate memory for element data
+!!  \exception  SZE   Specified number of elements is invalid
+!!
+!!  This routine allocates memory and initializes the state variable that
+!!  contains the set of elements for the problem.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_init_elem_exc_ (nel, exc)
+  INTEGER, INTENT(IN) :: nel
+  INTEGER, INTENT(OUT) :: exc
+  INTEGER :: e        !> status code for memory allocation
+  INTEGER :: i, j     !> loop variables
+
+  !> make sure number of elements is valid
+  IF (nel.LT.1 .OR. nel.GT.MAX_ELEMENTS) THEN
+    exc=SZE
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> only reallocate if new dimensions do not match existing dimensions
+  IF (fld_numElem().NE.nel) THEN
+
+    !> ensure state variable is clear
+    CALL fld_cleanElem()
+
+    !> allocate memory for element data state variable
+    ALLOCATE(elements(nel), STAT=e)
+
+    !> make sure memory allocation was successful
+    IF (e.NE.0) THEN
+      exc=ALLOC
+      CALL log_printLogMsg(exc,sdr)
+      RETURN
+    ELSE
+      exc=OK
+    END IF
+
+  END IF
+
+  !> initialize state variable
+  DO i = 1,nel
+
+    !> element number
+    elements(i)%num   = i
+
+    !> material number
+    elements(i)%mtl = 0
+
+    !> connectivity
+    DO j = 1,NNODEL
+      elements(i)%ico%nd(j)   = 0
+    END DO
+
+    !> tensor variables
+    DO j = 1,NTNS
+      elements(i)%stress%sig(j) = 0.d0
+      elements(i)%strain%eps(j) = 0.d0
+    END DO
+
+  END DO
+
+END SUBROUTINE fld_init_elem_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Destructor for element data
+!!
+!!  This routine clears the memory allocated to the state variable that
+!!  contains the set of element data for the problem.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_clean_elem_ ()
+
+  IF (ALLOCATED(elements)) DEALLOCATE(elements)
+
+END SUBROUTINE fld_clean_elem_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for number of elements
+!!
+!!  \return nel  Number of elements
+!!
+!!  This routine determines the number of data entries that have been
+!!  allocated for element data. It does not check that the element data
+!!  has been populated (i.e. changed from initial zero values).
+! ------------------------------------------------------------------------
+FUNCTION fld_num_elem_ () RESULT(nel)
+  INTEGER :: nel
+
+  !> if data is initialized, return number of elements
+  IF (ALLOCATED(elements)) THEN
+    nel = SIZE(elements)
+  ELSE
+    nel = 0   !> if not initialized, there are no elements
+  END IF
+
+END FUNCTION fld_num_elem_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for connectivity (non-exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  j     Local node index
+!!
+!!  \return n     Global node number
+!!
+!!  This routine determines the global node number associated with local
+!!  node j for element i.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_connect_ (i,j) RESULT(n)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER :: n
+
+  n = elements(i)%ico%nd(j)
+
+END FUNCTION fld_get_connect_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for connectivity (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Local node index
+!!  \param  exc   Error code
+!!
+!!  \return n     Global node number
+!!
+!!  \exception  POSIT The element number is not in [1..fld_numElem()] or
+!!                    the local node index is not in [1..NNODEL]
+!!
+!!  This routine determines the global node number associated with local
+!!  node j for element i.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_connect_exc_ (i,j, exc) RESULT(n)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  INTEGER :: n
+
+  !> check that the element number is within the bounds of the elements
+  !! list and that the local node index is within [1..NNODEL]
+  IF ( i.LT.1 .OR. i.GT.fld_numElem() &
+        .OR. j.LT.1 .OR. j.GT.NNODEL ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    n = 0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  n = fld_getConnect(i,j)
+
+END FUNCTION fld_get_connect_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for connectivity (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Local node index
+!!  \param  n     Global node number
+!!
+!!  This routine sets the global node number associated with local
+!!  node j for element i.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_connect_ (i,j, n)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(IN) :: n
+
+  elements(i)%ico%nd(j) = n
+
+END SUBROUTINE fld_set_connect_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for connectivity (exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  j     Local node index
+!!  \param  n     Global node number
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  The value of the node number exceeds the number of
+!!                      nodes
+!!  \exception  POSIT   The element number is not in [1..fld_numElem()] or
+!!                      the local node index is not in [1..NNODEL]
+!!
+!!  This routine sets the global node number associated with local
+!!  node j for element i.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_connect_exc_ (i,j, n, exc)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(IN) :: n
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the element number is within the bounds of the elements
+  !! list and that the local node index is within [1..NNODEL]
+  IF ( i.LT.1 .OR. i.GT.fld_numElem() &
+        .OR. j.LT.1 .OR. j.GT.NNODEL ) THEN
+
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE IF (n.LT.1 .OR. n.GT.fld_numNode()) THEN
+
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL fld_setConnect(i,j, n)
+
+END SUBROUTINE fld_set_connect_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Compute the volume of an element (non-exception checking)
+!!
+!!  \param  i     Element number
+!!
+!!  \return vol   Volume of element
+!!
+!!  This routine computes the volume of a body element. Note that for a
+!!  2-D plane strain element this is equivalent to the area of the element
+!!  (considering a unit thickness). This is computed as the following
+!!  determinant:
+!!
+!!    V   =  0.5 *  | x1  y1  1 |
+!!                  | x2  y2  1 |
+!!                  | x3  y3  1 |
+!!
+!!  where xj and yj are the (x,y) coordinates of node j of element i.
+! ------------------------------------------------------------------------
+FUNCTION fld_vol_elem_ (i) RESULT(vol)
+  INTEGER, INTENT(IN) :: i
+  DOUBLE PRECISION :: vol
+  DOUBLE PRECISION, DIMENSION(NNODEL,NDIM) :: x  !> element coords
+  INTEGER :: j,k    !> loop variable
+
+  !> get element coords
+  DO k = 1,NDIM
+    DO j = 1,NNODEL
+      x(j,k) = fld_getCoord(elements(i)%ico%nd(j), k)
+    END DO
+  END DO
+
+  !> compute volume
+  vol = ( x(1,1)*x(2,2) - x(2,1)*x(1,2) )   &
+        - ( x(1,1)*x(3,2) - x(3,1)*x(1,2) ) &
+        + ( x(2,1)*x(3,2) - x(3,1)*x(2,2) )
+
+  vol = 0.5d0 * vol
+
+END FUNCTION fld_vol_elem_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Compute the volume of an element (exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  exc   Error code
+!!
+!!  \return vol   Volume of element
+!!
+!!  \exception  POSIT   The specified element number is not within the
+!!                      range [1..fld_numElem()]
+!!
+!!  This routine computes the volume of a body element. Note that for a
+!!  2-D plane strain element this is equivalent to the area of the element
+!!  (considering a unit thickness). This is computed as the following
+!!  determinant:
+!!
+!!    V   =  0.5 *  | x1  y1  1 |
+!!                  | x2  y2  1 |
+!!                  | x3  y3  1 |
+!!
+!!  where xj and yj are the (x,y) coordinates of node j of element i.
+! ------------------------------------------------------------------------
+FUNCTION fld_vol_elem_exc_ (i, exc) RESULT(vol)
+  INTEGER, INTENT(IN) :: i
+  INTEGER, INTENT(OUT) :: exc
+  DOUBLE PRECISION :: vol
+
+  !> make sure the element number is valid
+  IF (i.LT.1 .OR. i.GT.fld_numElem()) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    vol = 0.d0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  vol = fld_volElem(i)
+
+END FUNCTION fld_vol_elem_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for material (non-exception checking)
+!!
+!!  \param  i     Element number
+!!
+!!  \return m     Material number
+!!
+!!  This routine determines the material number associated with element i
+! ------------------------------------------------------------------------
+FUNCTION fld_get_material_ (i) RESULT(m)
+  INTEGER, INTENT(IN) :: i
+  INTEGER :: m
+
+  m = elements(i)%mtl
+
+END FUNCTION fld_get_material_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for material (exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  exc   Error code
+!!
+!!  \return m     Material number
+!!
+!!  \exception  POSIT The element number is not in [1..fld_numElem()]
+!!
+!!  This routine determines the material number associated with element i
+! ------------------------------------------------------------------------
+FUNCTION fld_get_material_exc_ (i, exc) RESULT(m)
+  INTEGER, INTENT(IN) :: i
+  INTEGER, INTENT(OUT) :: exc
+  INTEGER :: m
+
+  !> check that the element number is within the bounds of the elements
+  !! list
+  IF ( i.LT.1 .OR. i.GT.fld_numElem() ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    m = 0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  m = fld_getMaterial(i)
+
+END FUNCTION fld_get_material_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for material (non-exception checking)
+!!
+!!  \param  i     Node number
+!!  \param  m     Material number
+!!
+!!  This routine sets the material number associated with element i.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_material_ (i, m)
+  INTEGER, INTENT(IN) :: i
+  INTEGER, INTENT(IN) :: m
+
+  elements(i)%mtl = m
+
+END SUBROUTINE fld_set_material_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for material (exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  n     Material number
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  The value of the material number exceeds the
+!!                      number of materials
+!!  \exception  POSIT   The element number is not in [1..fld_numElem()]
+!!
+!!  This routine sets the material number associated with element i.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_material_exc_ (i, m, exc)
+  INTEGER, INTENT(IN) :: i
+  INTEGER, INTENT(IN) :: m
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the element number is within the bounds of the elements
+  !! list
+  IF ( i.LT.1 .OR. i.GT.fld_numElem() ) THEN
+
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE IF (m.LT.1 .OR. m.GT.mtl_numMtl()) THEN
+
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL fld_setMaterial(i, m)
+
+END SUBROUTINE fld_set_material_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for element stresses (non-exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  j     Tensor index
+!!
+!!  \return s     Stress value
+!!
+!!  This routine determines the value of the stress for element
+!!  number i for tensor index j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_stress_elem_ (i,j) RESULT(s)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION :: s
+
+  s = elements(i)%stress%sig(j)
+
+END FUNCTION fld_get_stress_elem_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for element stresses (exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  j     Tensor index
+!!  \param  exc   Error code
+!!
+!!  \return s     Stress value
+!!
+!!  \exception  POSIT The element number is not in [1..fld_numElem()] or
+!!                    the tensor index is not in [1..NTNS]
+!!
+!!  This routine determines the value of the stress for element
+!!  number i for tensor index j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_stress_elem_exc_ (i,j, exc) RESULT(s)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  DOUBLE PRECISION :: s
+
+  !> check that the element number is within the bounds of the elements
+  !! list and that the tensor index is within [1..NTNS]
+  IF ( i.LT.1 .OR. i.GT.fld_numElem() &
+        .OR. j.LT.1 .OR. j.GT.NTNS ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    s = 0.d0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  s = fld_getStressElem(i,j)
+
+END FUNCTION fld_get_stress_elem_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for element stresses (non-exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  j     Tensor index
+!!  \param  s     Stress value
+!!
+!!  This routine sets the value of the stress for element number i
+!!  for tensor index j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_stress_elem_ (i,j, s)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: s
+
+  elements(i)%stress%sig(j) = s
+
+END SUBROUTINE fld_set_stress_elem_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for element stresses (exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  j     Tensor index
+!!  \param  s     Stress value
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  The value of the stress exceeds prescribed limits
+!!  \exception  POSIT   The element number is not in [1..fld_numElem()] or
+!!                      the tensor index is not in [1..NTNS]
+!!
+!!  This routine sets the value of the stress for node number i for
+!!  tensor index j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_stress_elem_exc_ (i,j, s, exc)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: s
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the element number is within the bounds of the elements
+  !! list and that the tensor index is within [1..NTNS]
+  IF ( i.LT.1 .OR. i.GT.fld_numElem() &
+        .OR. j.LT.1 .OR. j.GT.NTNS ) THEN
+
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE IF (s.LT.SIG_MIN .OR. s.GT.SIG_MAX) THEN
+
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL fld_setStressElem(i,j, s)
+
+END SUBROUTINE fld_set_stress_elem_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for element strains (non-exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  j     Tensor index
+!!
+!!  \return s     Strain value
+!!
+!!  This routine determines the value of the strain for element
+!!  number i for tensor index j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_strain_elem_ (i,j) RESULT(s)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION :: s
+
+  s = elements(i)%strain%eps(j)
+
+END FUNCTION fld_get_strain_elem_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Getter for element strains (exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  j     Tensor index
+!!  \param  exc   Error code
+!!
+!!  \return s     Strain value
+!!
+!!  \exception  POSIT The element number is not in [1..fld_numElem()] or
+!!                    the tensor index is not in [1..NTNS]
+!!
+!!  This routine determines the value of the strain for element
+!!  number i for tensor index j.
+! ------------------------------------------------------------------------
+FUNCTION fld_get_strain_elem_exc_ (i,j, exc) RESULT(s)
+  INTEGER, INTENT(IN) :: i,j
+  INTEGER, INTENT(OUT) :: exc
+  DOUBLE PRECISION :: s
+
+  !> check that the element number is within the bounds of the elements
+  !! list and that the tensor index is within [1..NTNS]
+  IF ( i.LT.1 .OR. i.GT.fld_numElem() &
+        .OR. j.LT.1 .OR. j.GT.NTNS ) THEN
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    s = 0.d0
+    RETURN
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  s = fld_getStrainElem(i,j)
+
+END FUNCTION fld_get_strain_elem_exc_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for element strains (non-exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  j     Tensor index
+!!  \param  s     Strain value
+!!
+!!  This routine sets the value of the strain for element number i
+!!  for tensor index j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_strain_elem_ (i,j, s)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: s
+
+  elements(i)%strain%eps(j) = s
+
+END SUBROUTINE fld_set_strain_elem_
+
+
+! ------------------------------------------------------------------------
+!>  \brief Setter for element strains (exception checking)
+!!
+!!  \param  i     Element number
+!!  \param  j     Tensor index
+!!  \param  s     Strain value
+!!  \param  exc   Error code
+!!
+!!  \exception  EXCEED  The value of the strain exceeds prescribed limits
+!!  \exception  POSIT   The element number is not in [1..fld_numElem()] or
+!!                      the tensor index is not in [1..NTNS]
+!!
+!!  This routine sets the value of the strain for element number i for
+!!  tensor index j.
+! ------------------------------------------------------------------------
+SUBROUTINE fld_set_strain_elem_exc_ (i,j, s, exc)
+  INTEGER, INTENT(IN) :: i,j
+  DOUBLE PRECISION, INTENT(IN) :: s
+  INTEGER, INTENT(OUT) :: exc
+
+  !> check that the element number is within the bounds of the elements
+  !! list and that the tensor index is within [1..NTNS]
+  IF ( i.LT.1 .OR. i.GT.fld_numElem() &
+        .OR. j.LT.1 .OR. j.GT.NTNS ) THEN
+
+    exc=POSIT
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE IF (s.LT.STR_MIN .OR. s.GT.STR_MAX) THEN
+
+    exc=EXCEED
+    CALL log_printLogMsg(exc,sdr)
+    RETURN
+
+  ELSE
+    exc=OK
+  END IF
+
+  !> call non-exception version
+  CALL fld_setStrainElem(i,j, s)
+
+END SUBROUTINE fld_set_strain_elem_exc_
+
+
+
+! ************************************************************************
+! LOCAL FUNCTIONS
+! ************************************************************************
+
+! none
+
+END MODULE field_data

Examples/SoilWaterStructureInteraction/dynsws/trunk/field_data.mod

+GFORTRAN module version '6' created from field_data.f90 on Sun Apr 29 22:07:07 2012
+MD5:ca051d59b04e33e121dc2e8cbd4440bd -- If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () () () ()
+() () () ())
+
+()
+
+(('fld_cleanelem' 'field_data' 2) ('fld_cleannode' 'field_data' 3) (
+'fld_cleantime' 'field_data' 4) ('fld_getacc' 'field_data' 5 6) (
+'fld_getconnect' 'field_data' 7 8) ('fld_getbodyacc' 'field_data' 9 10)
+('fld_getfix' 'field_data' 11 12) ('fld_getdof' 'field_data' 13 14) (
+'fld_getdisp' 'field_data' 15 16) ('fld_getstrainnode' 'field_data' 17
+18) ('fld_getstressnode' 'field_data' 19 20) ('fld_getstresselem'
+'field_data' 21 22) ('fld_getstrainelem' 'field_data' 23 24) (
+'fld_getmaterial' 'field_data' 25 26) ('fld_initdof' 'field_data' 27) (
+'fld_initelem' 'field_data' 28 29) ('fld_getvel' 'field_data' 30 31) (
+'fld_getcoord' 'field_data' 32 33) ('fld_inittime' 'field_data' 34 35) (
+'fld_numdof' 'field_data' 36) ('fld_numelem' 'field_data' 37) (
+'fld_numnode' 'field_data' 38) ('fld_numtimesteps' 'field_data' 39) (
+'fld_initnode' 'field_data' 40 41) ('fld_setconnect' 'field_data' 42 43)
+('fld_setcoord' 'field_data' 44 45) ('fld_setbodyacc' 'field_data' 46 47)
+('fld_setacc' 'field_data' 48 49) ('fld_setstrainelem' 'field_data' 50
+51) ('fld_setmaterial' 'field_data' 52 53) ('fld_setfix' 'field_data' 54
+55) ('fld_setstrainnode' 'field_data' 56 57) ('fld_setvel' 'field_data'
+58 59) ('fld_setstressnode' 'field_data' 60 61) ('fld_setstresselem'
+'field_data' 62 63) ('fld_timestep' 'field_data' 64) ('fld_volelem'
+'field_data' 65 66) ('fld_setdisp' 'field_data' 67 68))
+
+()
+
+()
+
+()
+
+(69 's11' 'field_data' 's11' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0)
+70 's12' 'field_data' 's12' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
+71 's22' 'field_data' 's22' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
+72 's33' 'field_data' 's33' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
+UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
+INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
+35 'fld_init_time_' 'field_data' 'fld_init_time_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 73 0 (74 75) () 0 () () () 0 0)
+34 'fld_init_time_exc_' 'field_data' 'fld_init_time_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 76 0 (77 78 79) () 0 () () () 0 0)
+4 'fld_clean_time_' 'field_data' 'fld_clean_time_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+64 'fld_time_step_' 'field_data' 'fld_time_step_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+REAL 8 0 0 REAL ()) 0 0 () () 80 () () () 0 0)
+39 'fld_num_time_steps_' 'field_data' 'fld_num_time_steps_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (REAL 8 0 0 REAL ()) 0 0 () () 81 () () () 0 0)
+41 'fld_init_node_' 'field_data' 'fld_init_node_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 82 0 (83) () 0 () () () 0 0)
+40 'fld_init_node_exc_' 'field_data' 'fld_init_node_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 84 0 (85 86) () 0 () () () 0 0)
+3 'fld_clean_node_' 'field_data' 'fld_clean_node_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+38 'fld_num_node_' 'field_data' 'fld_num_node_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 87 () () () 0 0)
+33 'fld_get_coord_' 'field_data' 'fld_get_coord_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+REAL 8 0 0 REAL ()) 88 0 (89 90) () 91 () () () 0 0)
+32 'fld_get_coord_exc_' 'field_data' 'fld_get_coord_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+92 0 (93 94 95) () 96 () () () 0 0)
+45 'fld_set_coord_' 'field_data' 'fld_set_coord_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 97 0 (98 99 100) () 0 () () () 0 0)
+44 'fld_set_coord_exc_' 'field_data' 'fld_set_coord_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 101 0 (102 103 104 105) () 0 () () () 0 0)
+12 'fld_get_fix_' 'field_data' 'fld_get_fix_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+LOGICAL 4 0 0 LOGICAL ()) 106 0 (107 108) () 109 () () () 0 0)
+11 'fld_get_fix_exc_' 'field_data' 'fld_get_fix_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (LOGICAL 4 0 0
+LOGICAL ()) 110 0 (111 112 113) () 114 () () () 0 0)
+55 'fld_set_fix_' 'field_data' 'fld_set_fix_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 115 0 (116 117 118) () 0 () () () 0 0)
+54 'fld_set_fix_exc_' 'field_data' 'fld_set_fix_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 119 0 (120 121 122 123) () 0 () () () 0 0)
+27 'fld_init_dof_exc_' 'field_data' 'fld_init_dof_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT)
+(UNKNOWN 0 0 0 UNKNOWN ()) 124 0 (125) () 0 () () () 0 0)
+36 'fld_num_dof_' 'field_data' 'fld_num_dof_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 126 () () () 0 0)
+14 'fld_get_dof_' 'field_data' 'fld_get_dof_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 127 0 (128 129) () 130 () () () 0 0)
+13 'fld_get_dof_exc_' 'field_data' 'fld_get_dof_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (INTEGER 4 0 0
+INTEGER ()) 131 0 (132 133 134) () 135 () () () 0 0)
+16 'fld_get_disp_' 'field_data' 'fld_get_disp_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+REAL 8 0 0 REAL ()) 136 0 (137 138) () 139 () () () 0 0)
+15 'fld_get_disp_exc_' 'field_data' 'fld_get_disp_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+140 0 (141 142 143) () 144 () () () 0 0)
+68 'fld_set_disp_' 'field_data' 'fld_set_disp_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 145 0 (146 147 148) () 0 () () () 0 0)
+67 'fld_set_disp_exc_' 'field_data' 'fld_set_disp_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 149 0 (150 151 152 153) () 0 () () () 0 0)
+31 'fld_get_vel_' 'field_data' 'fld_get_vel_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+REAL 8 0 0 REAL ()) 154 0 (155 156) () 157 () () () 0 0)
+30 'fld_get_vel_exc_' 'field_data' 'fld_get_vel_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+158 0 (159 160 161) () 162 () () () 0 0)
+59 'fld_set_vel_' 'field_data' 'fld_set_vel_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 163 0 (164 165 166) () 0 () () () 0 0)
+58 'fld_set_vel_exc_' 'field_data' 'fld_set_vel_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 167 0 (168 169 170 171) () 0 () () () 0 0)
+6 'fld_get_acc_' 'field_data' 'fld_get_acc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+REAL 8 0 0 REAL ()) 172 0 (173 174) () 175 () () () 0 0)
+5 'fld_get_acc_exc_' 'field_data' 'fld_get_acc_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+176 0 (177 178 179) () 180 () () () 0 0)
+49 'fld_set_acc_' 'field_data' 'fld_set_acc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 181 0 (182 183 184) () 0 () () () 0 0)
+48 'fld_set_acc_exc_' 'field_data' 'fld_set_acc_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 185 0 (186 187 188 189) () 0 () () () 0 0)
+10 'fld_get_body_acc_' 'field_data' 'fld_get_body_acc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+REAL 8 0 0 REAL ()) 190 0 (191 192) () 193 () () () 0 0)
+9 'fld_get_body_acc_exc_' 'field_data' 'fld_get_body_acc_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8
+0 0 REAL ()) 194 0 (195 196 197) () 198 () () () 0 0)
+47 'fld_set_body_acc_' 'field_data' 'fld_set_body_acc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 199 0 (200 201 202) () 0 () () () 0 0)
+46 'fld_set_body_acc_exc_' 'field_data' 'fld_set_body_acc_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 203 0 (204 205 206 207) () 0 () () () 0 0)
+20 'fld_get_stress_node_' 'field_data' 'fld_get_stress_node_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (REAL 8 0 0 REAL ()) 208 0 (209 210) () 211 () () () 0 0)
+19 'fld_get_stress_node_exc_' 'field_data' 'fld_get_stress_node_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL
+8 0 0 REAL ()) 212 0 (213 214 215) () 216 () () () 0 0)
+61 'fld_set_stress_node_' 'field_data' 'fld_set_stress_node_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 217 0 (218 219 220) () 0 () () () 0 0)
+60 'fld_set_stress_node_exc_' 'field_data' 'fld_set_stress_node_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 221 0 (222 223 224 225) () 0 () () () 0 0)
+18 'fld_get_strain_node_' 'field_data' 'fld_get_strain_node_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (REAL 8 0 0 REAL ()) 226 0 (227 228) () 229 () () () 0 0)
+17 'fld_get_strain_node_exc_' 'field_data' 'fld_get_strain_node_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL
+8 0 0 REAL ()) 230 0 (231 232 233) () 234 () () () 0 0)
+57 'fld_set_strain_node_' 'field_data' 'fld_set_strain_node_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 235 0 (236 237 238) () 0 () () () 0 0)
+56 'fld_set_strain_node_exc_' 'field_data' 'fld_set_strain_node_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 239 0 (240 241 242 243) () 0 () () () 0 0)
+29 'fld_init_elem_' 'field_data' 'fld_init_elem_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 244 0 (245) () 0 () () () 0 0)
+28 'fld_init_elem_exc_' 'field_data' 'fld_init_elem_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 246 0 (247 248) () 0 () () () 0 0)
+2 'fld_clean_elem_' 'field_data' 'fld_clean_elem_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 0 0 () () 0 () () () 0 0)
+37 'fld_num_elem_' 'field_data' 'fld_num_elem_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 249 () () () 0 0)
+8 'fld_get_connect_' 'field_data' 'fld_get_connect_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 250 0 (251 252) () 253 () () () 0 0)
+7 'fld_get_connect_exc_' 'field_data' 'fld_get_connect_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+INTEGER 4 0 0 INTEGER ()) 254 0 (255 256 257) () 258 () () () 0 0)
+43 'fld_set_connect_' 'field_data' 'fld_set_connect_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 259 0 (260 261 262) () 0 () () () 0 0)
+42 'fld_set_connect_exc_' 'field_data' 'fld_set_connect_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 263 0 (264 265 266 267) () 0 () () () 0 0)
+66 'fld_vol_elem_' 'field_data' 'fld_vol_elem_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+268 0 (269) () 270 () () () 0 0)
+65 'fld_vol_elem_exc_' 'field_data' 'fld_vol_elem_exc_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 8 0 0 REAL ())
+271 0 (272 273) () 274 () () () 0 0)
+26 'fld_get_material_' 'field_data' 'fld_get_material_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (
+INTEGER 4 0 0 INTEGER ()) 275 0 (276) () 277 () () () 0 0)
+25 'fld_get_material_exc_' 'field_data' 'fld_get_material_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (
+INTEGER 4 0 0 INTEGER ()) 278 0 (279 280) () 281 () () () 0 0)
+53 'fld_set_material_' 'field_data' 'fld_set_material_' 1 ((PROCEDURE
+UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0
+UNKNOWN ()) 282 0 (283 284) () 0 () () () 0 0)
+52 'fld_set_material_exc_' 'field_data' 'fld_set_material_exc_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 285 0 (286 287 288) () 0 () () () 0 0)
+22 'fld_get_stress_elem_' 'field_data' 'fld_get_stress_elem_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (REAL 8 0 0 REAL ()) 289 0 (290 291) () 292 () () () 0 0)
+21 'fld_get_stress_elem_exc_' 'field_data' 'fld_get_stress_elem_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL
+8 0 0 REAL ()) 293 0 (294 295 296) () 297 () () () 0 0)
+63 'fld_set_stress_elem_' 'field_data' 'fld_set_stress_elem_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 298 0 (299 300 301) () 0 () () () 0 0)
+62 'fld_set_stress_elem_exc_' 'field_data' 'fld_set_stress_elem_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 302 0 (303 304 305 306) () 0 () () () 0 0)
+24 'fld_get_strain_elem_' 'field_data' 'fld_get_strain_elem_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION
+IMPLICIT_PURE) (REAL 8 0 0 REAL ()) 307 0 (308 309) () 310 () () () 0 0)
+23 'fld_get_strain_elem_exc_' 'field_data' 'fld_get_strain_elem_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL
+8 0 0 REAL ()) 311 0 (312 313 314) () 315 () () () 0 0)
+51 'fld_set_strain_elem_' 'field_data' 'fld_set_strain_elem_' 1 ((
+PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 316 0 (317 318 319) () 0 () () () 0 0)
+50 'fld_set_strain_elem_exc_' 'field_data' 'fld_set_strain_elem_exc_' 1
+((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (
+UNKNOWN 0 0 0 UNKNOWN ()) 320 0 (321 322 323 324) () 0 () () () 0 0)
+74 'dt' '' 'dt' 73 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+75 'n' '' 'n' 73 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+77 'dt' '' 'dt' 76 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+78 'n' '' 'n' 76 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+79 'exc' '' 'exc' 76 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+80 'dt' '' 'dt' 325 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+81 'n' '' 'n' 326 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+83 'nnod' '' 'nnod' 82 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+85 'nnod' '' 'nnod' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+86 'exc' '' 'exc' 84 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+87 'nnod' '' 'nnod' 327 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+89 'i' '' 'i' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+90 'j' '' 'j' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+91 'x' '' 'x' 88 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+93 'i' '' 'i' 92 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+94 'j' '' 'j' 92 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+95 'exc' '' 'exc' 92 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+96 'x' '' 'x' 92 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN
+0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+98 'i' '' 'i' 97 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+99 'j' '' 'j' 97 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (
+INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+100 'x' '' 'x' 97 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+102 'i' '' 'i' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+103 'j' '' 'j' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+104 'x' '' 'x' 101 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+105 'exc' '' 'exc' 101 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+107 'i' '' 'i' 106 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+108 'j' '' 'j' 106 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+109 'fix' '' 'fix' 106 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+111 'i' '' 'i' 110 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+112 'j' '' 'j' 110 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+113 'exc' '' 'exc' 110 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+114 'fix' '' 'fix' 110 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+116 'i' '' 'i' 115 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+117 'j' '' 'j' 115 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+118 'fix' '' 'fix' 115 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+120 'i' '' 'i' 119 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+121 'j' '' 'j' 119 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+122 'fix' '' 'fix' 119 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
+123 'exc' '' 'exc' 119 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+125 'exc' '' 'exc' 124 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+126 'n' '' 'n' 328 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+128 'i' '' 'i' 127 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+129 'j' '' 'j' 127 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+130 'dof' '' 'dof' 127 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+132 'i' '' 'i' 131 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+133 'j' '' 'j' 131 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+134 'exc' '' 'exc' 131 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+135 'dof' '' 'dof' 131 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+137 'i' '' 'i' 136 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+138 'j' '' 'j' 136 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+139 'u' '' 'u' 136 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+141 'i' '' 'i' 140 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+142 'j' '' 'j' 140 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+143 'exc' '' 'exc' 140 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+144 'u' '' 'u' 140 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+146 'i' '' 'i' 145 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+147 'j' '' 'j' 145 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+148 'u' '' 'u' 145 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+150 'i' '' 'i' 149 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+151 'j' '' 'j' 149 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+152 'u' '' 'u' 149 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+153 'exc' '' 'exc' 149 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+155 'i' '' 'i' 154 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+156 'j' '' 'j' 154 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+157 'v' '' 'v' 154 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+159 'i' '' 'i' 158 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+160 'j' '' 'j' 158 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+161 'exc' '' 'exc' 158 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+162 'v' '' 'v' 158 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+164 'i' '' 'i' 163 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+165 'j' '' 'j' 163 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+166 'v' '' 'v' 163 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+168 'i' '' 'i' 167 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+169 'j' '' 'j' 167 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+170 'v' '' 'v' 167 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+171 'exc' '' 'exc' 167 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+173 'i' '' 'i' 172 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+174 'j' '' 'j' 172 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+175 'a' '' 'a' 172 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+177 'i' '' 'i' 176 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+178 'j' '' 'j' 176 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+179 'exc' '' 'exc' 176 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+180 'a' '' 'a' 176 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+182 'i' '' 'i' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+183 'j' '' 'j' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+184 'a' '' 'a' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+186 'i' '' 'i' 185 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+187 'j' '' 'j' 185 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+188 'a' '' 'a' 185 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+189 'exc' '' 'exc' 185 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+191 'i' '' 'i' 190 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+192 'j' '' 'j' 190 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+193 'a' '' 'a' 190 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+195 'i' '' 'i' 194 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+196 'j' '' 'j' 194 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+197 'exc' '' 'exc' 194 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+198 'a' '' 'a' 194 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+200 'i' '' 'i' 199 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+201 'j' '' 'j' 199 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+202 'a' '' 'a' 199 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+204 'i' '' 'i' 203 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+205 'j' '' 'j' 203 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+206 'a' '' 'a' 203 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+207 'exc' '' 'exc' 203 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+209 'i' '' 'i' 208 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+210 'j' '' 'j' 208 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+211 's' '' 's' 208 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+213 'i' '' 'i' 212 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+214 'j' '' 'j' 212 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+215 'exc' '' 'exc' 212 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+216 's' '' 's' 212 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+218 'i' '' 'i' 217 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+219 'j' '' 'j' 217 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+220 's' '' 's' 217 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+222 'i' '' 'i' 221 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+223 'j' '' 'j' 221 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+224 's' '' 's' 221 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+225 'exc' '' 'exc' 221 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+227 'i' '' 'i' 226 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+228 'j' '' 'j' 226 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+229 's' '' 's' 226 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+231 'i' '' 'i' 230 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+232 'j' '' 'j' 230 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+233 'exc' '' 'exc' 230 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+234 's' '' 's' 230 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+236 'i' '' 'i' 235 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+237 'j' '' 'j' 235 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+238 's' '' 's' 235 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+240 'i' '' 'i' 239 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+241 'j' '' 'j' 239 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+242 's' '' 's' 239 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+243 'exc' '' 'exc' 239 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+245 'nel' '' 'nel' 244 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+247 'nel' '' 'nel' 246 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+248 'exc' '' 'exc' 246 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+249 'nel' '' 'nel' 329 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+251 'i' '' 'i' 250 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+252 'j' '' 'j' 250 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+253 'n' '' 'n' 250 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+255 'i' '' 'i' 254 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+256 'j' '' 'j' 254 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+257 'exc' '' 'exc' 254 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+258 'n' '' 'n' 254 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+260 'i' '' 'i' 259 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+261 'j' '' 'j' 259 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+262 'n' '' 'n' 259 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+264 'i' '' 'i' 263 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+265 'j' '' 'j' 263 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+266 'n' '' 'n' 263 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+267 'exc' '' 'exc' 263 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+269 'i' '' 'i' 268 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+270 'vol' '' 'vol' 268 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+272 'i' '' 'i' 271 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+273 'exc' '' 'exc' 271 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+274 'vol' '' 'vol' 271 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+276 'i' '' 'i' 275 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+277 'm' '' 'm' 275 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+279 'i' '' 'i' 278 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+280 'exc' '' 'exc' 278 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+281 'm' '' 'm' 278 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+283 'i' '' 'i' 282 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+284 'm' '' 'm' 282 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+286 'i' '' 'i' 285 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+287 'm' '' 'm' 285 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+288 'exc' '' 'exc' 285 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+290 'i' '' 'i' 289 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+291 'j' '' 'j' 289 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+292 's' '' 's' 289 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+294 'i' '' 'i' 293 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+295 'j' '' 'j' 293 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+296 'exc' '' 'exc' 293 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+297 's' '' 's' 293 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+299 'i' '' 'i' 298 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+300 'j' '' 'j' 298 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+301 's' '' 's' 298 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+303 'i' '' 'i' 302 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+304 'j' '' 'j' 302 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+305 's' '' 's' 302 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+306 'exc' '' 'exc' 302 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+308 'i' '' 'i' 307 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+309 'j' '' 'j' 307 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+310 's' '' 's' 307 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+312 'i' '' 'i' 311 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+313 'j' '' 'j' 311 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+314 'exc' '' 'exc' 311 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+315 's' '' 's' 311 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
+UNKNOWN 0 0 RESULT) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+317 'i' '' 'i' 316 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+318 'j' '' 'j' 316 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+319 's' '' 's' 316 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+321 'i' '' 'i' 320 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+322 'j' '' 'j' 320 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+323 's' '' 's' 320 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY)
+(REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
+324 'exc' '' 'exc' 320 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
+)
+
+('s11' 0 69 's12' 0 70 's22' 0 71 's33' 0 72)

Examples/SoilWaterStructureInteraction/dynsws/trunk/field_data_test.f90

+! ------------------------------------------------------------------------
+!>  \brief Module for testing Field Data module
+! ------------------------------------------------------------------------
+MODULE field_data_test
+USE fruit                   !> Unit testing framework
+USE system_constants        !> Global constants
+USE log_message_control     !> Printing log/error messages
+USE log_messages            !> Log/error codes
+USE field_data              !> Field Data module
+
+IMPLICIT NONE
+
+
+CONTAINS
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception on time-stepping initialization
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param dt         Time step size (within limits)
+!!  \param n          Number of time steps (within limits)
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test makes sure that the EXCEED exception is raised when time
+!!  stepping information is initialized to values outside defined limits.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_init_time_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_init_time_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  DOUBLE PRECISION, PARAMETER :: dt=1.d-3
+  INTEGER, PARAMETER :: n=20
+  INTEGER, PARAMETER :: expMsg=EXCEED
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log message file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> attempt to initialize with time step too small
+  CALL fld_initTime(DTIME_MIN-dt,n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> attempt to initialize with time step too large
+  CALL fld_initTime(DTIME_MAX+dt,n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> attempt to initialize with too few time steps
+  CALL fld_initTime(dt,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> attempt to initialize with too many time steps
+  CALL fld_initTime(dt,MAX_TIMESTEPS+n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and reset time-stepping data
+  CALL log_closeLogFile()
+  CALL fld_cleanTime()
+
+END SUBROUTINE test_fld_init_time_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for time step when module is not initialized
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param expected     Expected time step
+!!  \param actual       Actual time step
+!!
+!!  This test makes sure that the time step is returned as 0 when the
+!!  time-stepping data is not initialized
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_time_step_not_initialized
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_time_step_not_initialized'
+  DOUBLE PRECISION, PARAMETER :: expected = 0.d0
+  DOUBLE PRECISION :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> check size of time step
+  actual = fld_timeStep()
+  CALL assertEquals(expected, actual)
+
+END SUBROUTINE test_fld_time_step_not_initialized
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for time step when module is initialized
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param dt           Time step
+!!  \param ntime        Number of time steps
+!!  \param expected     Expected time step
+!!  \param actual       Actual time step
+!!
+!!  This test makes sure that the time step is returned correctly when the
+!!  time-stepping data is initialized
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_time_step_initialized
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_time_step_initialized'
+  DOUBLE PRECISION, PARAMETER :: dt = 1.d-3
+  INTEGER, PARAMETER :: ntime = 100
+  DOUBLE PRECISION, PARAMETER :: expected = dt
+  DOUBLE PRECISION :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize time-stepping data
+  CALL fld_initTime(dt,ntime)
+
+  !> check size of time step
+  actual = fld_timeStep()
+  CALL assertEquals(expected, actual)
+
+  !> reset time-stepping data
+  CALL fld_cleanTime()
+
+END SUBROUTINE test_fld_time_step_initialized
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for number of time steps when module is not initialized
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param expected     Expected number of time steps
+!!  \param actual       Actual number of time steps
+!!
+!!  This test makes sure that the number of time steps is returned as 0
+!!  when the time-stepping data is not initialized
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_num_time_step_not_initialized
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_num_time_step_not_initialized'
+  INTEGER, PARAMETER :: expected = 0
+  INTEGER :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> check number of time steps
+  actual = fld_numTimeSteps()
+  CALL assertEquals(expected, actual)
+
+END SUBROUTINE test_fld_num_time_step_not_initialized
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for time step when module is initialized
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param dt           Time step
+!!  \param ntime        Number of time steps
+!!  \param expected     Expected number of time steps
+!!  \param actual       Actual number of time steps
+!!
+!!  This test makes sure that the number of time steps is returned
+!!  correctly when the time-stepping data is initialized
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_num_time_step_initialized
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_num_time_step_initialized'
+  DOUBLE PRECISION, PARAMETER :: dt = 1.d-3
+  INTEGER, PARAMETER :: ntime = 100
+  INTEGER, PARAMETER :: expected = ntime
+  INTEGER :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize time-stepping data
+  CALL fld_initTime(dt,ntime)
+
+  !> check size of time step
+  actual = fld_numTimeSteps()
+  CALL assertEquals(expected, actual)
+
+  !> reset time-stepping data
+  CALL fld_cleanTime()
+
+END SUBROUTINE test_fld_num_time_step_initialized
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for OK exception message on allocation of nodes
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test initializes the nodes state variable in the field_data
+!!  module and makes sure that the exception message is OK
+!!  (i.e. allocation did not fail).
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_node_allocation_MSG
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_node_allocation_MSG'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: expMsg=OK
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log message file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize module and check the exception
+  CALL fld_initNode(nnod, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and deallocate module
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_node_allocation_MSG
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for SZE exception message on allocation of nodes
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test attempts to initialize the nodes state variable in the field
+!!  data module with invalid size parameters and verifies that the correct
+!!  exception is returned.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_node_allocation_SZE
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_node_allocation_SZE'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: expMsg=SZE
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> try to initialize with nnod=0
+  CALL fld_initNode(0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> ensure module is reset
+  CALL fld_cleanNode()
+
+  !> try to initialize with nnod=MAX_NODES+1
+  CALL fld_initNode(MAX_NODES+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and deallocate module
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_node_allocation_SZE
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for number of node when node data is not initialized
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param expected     Expected number of nodes
+!!  \param actual       Actual number of nodes
+!!
+!!  This test makes sure that the number of nodes is returned as 0
+!!  when the node data is not initialized
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_num_node_not_allocated
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_num_node_not_allocated'
+  INTEGER, PARAMETER :: expected = 0
+  INTEGER :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> check number of materials
+  actual = fld_numNode()
+  CALL assertEquals(expected, actual)
+
+END SUBROUTINE test_fld_num_node_not_allocated
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for number of nodes when node data is initialized
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param expected     Expected number of nodes
+!!  \param actual       Actual number of nodes
+!!
+!!  This test makes sure that the correct number of nodes is returned.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_num_node_allocated
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_num_node_allocated'
+  INTEGER, PARAMETER :: expected = 100
+  INTEGER :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize the module
+  CALL fld_initNode(expected)
+
+  !> check number of nodes
+  actual = fld_numNode()
+  CALL assertEquals(expected, actual)
+
+  !> deallocate the module
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_num_node_allocated
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_getCoord
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param x          Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested coordinate
+!!  direction is not within [1..NDIM].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_coord_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_coord_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION :: x
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to get beyond last node
+  x = fld_getCoord(nnod+1,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first node
+  x = fld_getCoord(0,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last coord
+  x = fld_getCoord(inod,NDIM+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first coord
+  x = fld_getCoord(inod,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_coord_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_setCoord
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param x          Dummy variable for set routine input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested coordinate
+!!  direction is not within [1..NDIM].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_coord_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_coord_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION, PARAMETER :: x = 3.d0
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set beyond last node
+  CALL fld_setCoord(nnod+1,jdim, x, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first node
+  CALL fld_setCoord(0,jdim, x, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set beyond last coord
+  CALL fld_setCoord(inod,NDIM+1, x, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first coord
+  CALL fld_setCoord(inod,0, x, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_coord_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception from fld_setCoord
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test checks that an EXCEED exception is returned when the
+!!  specified input is not within the range defined in the System
+!!  Constants module.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_coord_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_coord_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = EXCEED
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set below minimum
+  CALL fld_setCoord(inod,jdim, COORD_MIN-0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set above maximum
+  CALL fld_setCoord(inod,jdim, COORD_MAX+0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_coord_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value getting and setting in fld_getCoord and fld_setCoord
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expVal     Expected data value
+!!  \param actVal     Actual data value
+!!
+!!  This test checks that the correct value is set using the fld_setCoord
+!!  access program and returned from the fld_getCoord access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_set_coord_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_set_coord_VAL'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  DOUBLE PRECISION, PARAMETER :: expVal = 3.d0
+  DOUBLE PRECISION :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> set coord value
+  CALL fld_setCoord(inod,jdim, expVal)
+  actVal = fld_getCoord(inod,jdim)
+  CALL assertEquals(expVal,actVal)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_set_coord_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_getFix
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param fix        Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested coordinate
+!!  direction is not within [1..NDIM].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_fix_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_fix_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  LOGICAL :: fix
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to get beyond last node
+  fix = fld_getFix(nnod+1,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first node
+  fix = fld_getFix(0,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last coord
+  fix = fld_getFix(inod,NDIM+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first coord
+  fix = fld_getFix(inod,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_fix_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_setFix
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param fix        Dummy variable for set routine input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested coordinate
+!!  direction is not within [1..NDIM].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_fix_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_fix_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  LOGICAL, PARAMETER :: fix = .FALSE.
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set beyond last node
+  CALL fld_setFix(nnod+1,jdim, fix, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first node
+  CALL fld_setFix(0,jdim, fix, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set beyond last coord
+  CALL fld_setFix(inod,NDIM+1, fix, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first coord
+  CALL fld_setFix(inod,0, fix, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_fix_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value getting and setting in fld_getFix and fld_setFix
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expVal     Expected data value
+!!  \param actVal     Actual data value
+!!
+!!  This test checks that the correct value is set using the fld_setCoord
+!!  access program and returned from the fld_getCoord access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_set_fix_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_set_fix_VAL'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  LOGICAL, PARAMETER :: expVal = .TRUE.
+  LOGICAL :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> set coord value
+  CALL fld_setFix(inod,jdim, expVal)
+  actVal = fld_getFix(inod,jdim)
+  CALL assertEquals(expVal,actVal)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_set_fix_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for SZE exception message on initialization of degrees of freedom
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param expDof     Expected number of dofs (after failed init)
+!!  \param actDof     Expected number of dofs
+!!
+!!  This test attempts to initialize the degree of freedom numbers in a
+!!  situation where the number of dofs will exceed the prescribed limit.
+!!  This is done by creating a system with the maximum number of nodes.
+!!  The limit on the number of degrees of freedom is set such that it is
+!!  less than what would be allowed by a system with no fixities and the
+!!  maximum number of nodes.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_dof_initialization_SZE
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_dof_initialization_SZE'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod = MAX_NODES
+  INTEGER, PARAMETER :: expMsg=SZE
+  INTEGER, PARAMETER :: expDof=0
+  INTEGER :: actMsg, actDof
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize node data
+  CALL fld_initNode(nnod)
+
+  !> attempt to initialize degrees of freedom
+  CALL fld_initDof(actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> check the number of dofs
+  actDof = fld_numDof()
+  CALL assertEquals(expDof,actDof)
+
+  !> finalize log file and deallocate module
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_dof_initialization_SZE
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct degree of freedom count when dofs not initialized
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param expDof     Expected number of dofs
+!!  \param actDof     Expected number of dofs
+!!
+!!  This test makes sure that the number of degrees of freedom is returned
+!!  as 0 when the dofs are not initialized.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_num_dof_not_initialized
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_num_dof_not_initialized'
+  INTEGER, PARAMETER :: nnod = 100
+  INTEGER, PARAMETER :: expDof=0
+  INTEGER :: actDof
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize node data
+  CALL fld_initNode(nnod)
+
+  !> check the number of dofs
+  actDof = fld_numDof()
+  CALL assertEquals(expDof,actDof)
+
+  !> deallocate nodes
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_num_dof_not_initialized
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct degree of freedom count when dofs are initialized
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param ifix1      Node number for first fixity
+!!  \param jfix1      Coordinate index for first fixity
+!!  \param ifix2      Node number for second fixity
+!!  \param jfix2      Coordinate index for second fixity
+!!  \param expDof     Expected number of dofs
+!!  \param actDof     Expected number of dofs
+!!
+!!  This test initializes the degree of freedom numbers and makes sure
+!!  that the correct number of dofs is calculated.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_num_dof_initialized
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_num_dof_initialized'
+  INTEGER, PARAMETER :: nnod = 100
+  INTEGER, PARAMETER :: ifix1=5,jfix1=2, ifix2=23,jfix2=1
+  INTEGER, PARAMETER :: expDof=NNOD*NDIM-2
+  INTEGER :: actDof
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize node data
+  CALL fld_initNode(nnod)
+
+  !> set fixities
+  CALL fld_setFix(ifix1,jfix1, .TRUE.)
+  CALL fld_setFix(ifix2,jfix2, .TRUE.)
+
+  !> initialize degrees of freedom
+  CALL fld_initDof()
+
+  !> check the number of dofs
+  actDof = fld_numDof()
+  CALL assertEquals(expDof,actDof)
+
+  !> deallocate nodes
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_num_dof_initialized
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_getDof
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param dof        Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested coordinate
+!!  direction is not within [1..NDIM].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_dof_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_dof_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  INTEGER :: dof
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to get beyond last node
+  dof = fld_getDof(nnod+1,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first node
+  dof = fld_getDof(0,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last coord
+  dof = fld_getDof(inod,NDIM+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first coord
+  dof = fld_getDof(inod,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_dof_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct degree of freedom value return
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param ifix1      Node number for first fixity
+!!  \param jfix1      Coordinate index for first fixity
+!!  \param ifix2      Node number for second fixity
+!!  \param jfix2      Coordinate index for second fixity
+!!  \param idof1      Node number for first dof check
+!!  \param jdof1      Coordinate index for first dof check
+!!  \param expDof1    Expected dof number for first dof check
+!!  \param actDof1    Actual dof number for first dof check
+!!  \param idof2      Node number for second dof check
+!!  \param jdof2      Coordinate index for second dof check
+!!  \param expDof2    Expected dof number for second dof check
+!!  \param actDof2    Actual dof number for second dof check
+!!
+!!  This test initializes the degree of freedom numbers and checks that
+!!  specific degrees of freedom are returned as expected.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_dof_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_dof_VAL'
+  INTEGER, PARAMETER :: nnod = 100
+  INTEGER, PARAMETER :: ifix1=5,jfix1=2, ifix2=23,jfix2=1
+  INTEGER, PARAMETER :: idof1=ifix1, jdof1=jfix1
+  INTEGER, PARAMETER :: idof2=ifix2+1, jdof2=jfix2
+  INTEGER, PARAMETER :: expDof1 = 0
+  INTEGER, PARAMETER :: expDof2 = (idof2-1)*NDIM + jdof2 - 2
+  INTEGER :: actDof1, actDof2
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize node data
+  CALL fld_initNode(nnod)
+
+  !> set fixities
+  CALL fld_setFix(ifix1,jfix1, .TRUE.)
+  CALL fld_setFix(ifix2,jfix2, .TRUE.)
+
+  !> initialize degrees of freedom
+  CALL fld_initDof()
+
+  !> check the dof numbers
+  actDof1 = fld_getDof(idof1,jdof1)
+  CALL assertEquals(expDof1,actDof1)
+
+  actDof2 = fld_getDof(idof2,jdof2)
+  CALL assertEquals(expDof2,actDof2)
+
+  !> deallocate nodes
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_dof_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_getDisp
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param u          Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested coordinate
+!!  direction is not within [1..NDIM].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_disp_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_disp_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION :: u
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to get beyond last node
+  u = fld_getDisp(nnod+1,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first node
+  u = fld_getDisp(0,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last coord
+  u = fld_getDisp(inod,NDIM+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first coord
+  u = fld_getDisp(inod,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_disp_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_setDisp
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param u          Dummy variable for set routine input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested coordinate
+!!  direction is not within [1..NDIM].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_disp_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_disp_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION, PARAMETER :: u = 3.d0
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set beyond last node
+  CALL fld_setDisp(nnod+1,jdim, u, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first node
+  CALL fld_setDisp(0,jdim, u, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set beyond last coord
+  CALL fld_setDisp(inod,NDIM+1, u, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first coord
+  CALL fld_setDisp(inod,0, u, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_disp_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception from fld_setDisp
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test checks that an EXCEED exception is returned when the
+!!  specified input is not within the range defined in the System
+!!  Constants module.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_disp_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_disp_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = EXCEED
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set below minimum
+  CALL fld_setDisp(inod,jdim, DISP_MIN-0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set above maximum
+  CALL fld_setDisp(inod,jdim, DISP_MAX+0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_disp_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value getting and setting in fld_getDisp and fld_setDisp
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expVal     Expected data value
+!!  \param actVal     Actual data value
+!!
+!!  This test checks that the correct value is set using the fld_setDisp
+!!  access program and returned from the fld_getDisp access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_set_disp_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_set_disp_VAL'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  DOUBLE PRECISION, PARAMETER :: expVal = 3.d0
+  DOUBLE PRECISION :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> set coord value
+  CALL fld_setDisp(inod,jdim, expVal)
+  actVal = fld_getDisp(inod,jdim)
+  CALL assertEquals(expVal,actVal)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_set_disp_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_getVel
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param v          Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested coordinate
+!!  direction is not within [1..NDIM].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_vel_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_vel_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION :: v
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to get beyond last node
+  v = fld_getVel(nnod+1,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first node
+  v = fld_getVel(0,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last coord
+  v = fld_getVel(inod,NDIM+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first coord
+  v = fld_getVel(inod,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_vel_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_setVel
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param v          Dummy variable for set routine input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested coordinate
+!!  direction is not within [1..NDIM].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_vel_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_vel_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION, PARAMETER :: v = 3.d0
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set beyond last node
+  CALL fld_setVel(nnod+1,jdim, v, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first node
+  CALL fld_setVel(0,jdim, v, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set beyond last coord
+  CALL fld_setVel(inod,NDIM+1, v, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first coord
+  CALL fld_setVel(inod,0, v, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_vel_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception from fld_setVel
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test checks that an EXCEED exception is returned when the
+!!  specified input is not within the range defined in the System
+!!  Constants module.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_vel_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_vel_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = EXCEED
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set below minimum
+  CALL fld_setVel(inod,jdim, VEL_MIN-0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set above maximum
+  CALL fld_setVel(inod,jdim, VEL_MAX+0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_vel_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value getting and setting in fld_getVel and fld_setVel
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expVal     Expected data value
+!!  \param actVal     Actual data value
+!!
+!!  This test checks that the correct value is set using the fld_setVel
+!!  access program and returned from the fld_getVel access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_set_vel_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_set_vel_VAL'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  DOUBLE PRECISION, PARAMETER :: expVal = 3.d0
+  DOUBLE PRECISION :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> set coord value
+  CALL fld_setVel(inod,jdim, expVal)
+  actVal = fld_getVel(inod,jdim)
+  CALL assertEquals(expVal,actVal)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_set_vel_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_getAcc
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param a          Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested coordinate
+!!  direction is not within [1..NDIM].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_acc_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_acc_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION :: a
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to get beyond last node
+  a = fld_getAcc(nnod+1,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first node
+  a = fld_getAcc(0,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last coord
+  a = fld_getAcc(inod,NDIM+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first coord
+  a = fld_getAcc(inod,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_acc_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_setAcc
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param a          Dummy variable for set routine input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested coordinate
+!!  direction is not within [1..NDIM].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_acc_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_acc_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION, PARAMETER :: a = 3.d0
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set beyond last node
+  CALL fld_setAcc(nnod+1,jdim, a, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first node
+  CALL fld_setAcc(0,jdim, a, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set beyond last coord
+  CALL fld_setAcc(inod,NDIM+1, a, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first coord
+  CALL fld_setAcc(inod,0, a, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_acc_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception from fld_setAcc
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test checks that an EXCEED exception is returned when the
+!!  specified input is not within the range defined in the System
+!!  Constants module.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_acc_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_acc_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = EXCEED
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set below minimum
+  CALL fld_setAcc(inod,jdim, ACC_MIN-0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set above maximum
+  CALL fld_setAcc(inod,jdim, ACC_MAX+0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_acc_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value getting and setting in fld_getAcc and fld_setAcc
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expVal     Expected data value
+!!  \param actVal     Actual data value
+!!
+!!  This test checks that the correct value is set using the fld_setAcc
+!!  access program and returned from the fld_getAcc access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_set_acc_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_set_acc_VAL'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  DOUBLE PRECISION, PARAMETER :: expVal = 3.d0
+  DOUBLE PRECISION :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> set coord value
+  CALL fld_setAcc(inod,jdim, expVal)
+  actVal = fld_getAcc(inod,jdim)
+  CALL assertEquals(expVal,actVal)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_set_acc_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_getBodyAcc
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param a          Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested coordinate
+!!  direction is not within [1..NDIM].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_body_acc_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_body_acc_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION :: a
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to get beyond last node
+  a = fld_getBodyAcc(nnod+1,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first node
+  a = fld_getBodyAcc(0,jdim, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last coord
+  a = fld_getBodyAcc(inod,NDIM+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first coord
+  a = fld_getBodyAcc(inod,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_body_acc_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_setBodyAcc
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param a          Dummy variable for set routine input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested coordinate
+!!  direction is not within [1..NDIM].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_body_acc_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_body_acc_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION, PARAMETER :: a = 3.d0
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set beyond last node
+  CALL fld_setBodyAcc(nnod+1,jdim, a, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first node
+  CALL fld_setBodyAcc(0,jdim, a, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set beyond last coord
+  CALL fld_setBodyAcc(inod,NDIM+1, a, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first coord
+  CALL fld_setBodyAcc(inod,0, a, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_body_acc_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception from fld_setBodyAcc
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test checks that an EXCEED exception is returned when the
+!!  specified input is not within the range defined in the System
+!!  Constants module.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_body_acc_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_body_acc_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  INTEGER, PARAMETER :: expMsg = EXCEED
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set below minimum
+  CALL fld_setBodyAcc(inod,jdim, ACC_MIN-0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set above maximum
+  CALL fld_setBodyAcc(inod,jdim, ACC_MAX+0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_body_acc_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value getting and setting in fld_getBodyAcc and fld_setBodyAcc
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jdim       Coordinate index
+!!  \param expVal     Expected data value
+!!  \param actVal     Actual data value
+!!
+!!  This test checks that the correct value is set using the fld_setBodyAcc
+!!  access program and returned from the fld_getBodyAcc access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_set_body_acc_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_set_body_acc_VAL'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jdim = 2
+  DOUBLE PRECISION, PARAMETER :: expVal = 3.d0
+  DOUBLE PRECISION :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> set coord value
+  CALL fld_setBodyAcc(inod,jdim, expVal)
+  actVal = fld_getBodyAcc(inod,jdim)
+  CALL assertEquals(expVal,actVal)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_set_body_acc_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_getStressNode
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jtns       Tensor index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param s          Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested tensor index
+!!  is not within [1..NTNS].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_stress_node_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_stress_node_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jtns = s22
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION :: s
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to get beyond last node
+  s = fld_getStressNode(nnod+1,jtns, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first node
+  s = fld_getStressNode(0,jtns, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last tensor index
+  s = fld_getStressNode(inod,NTNS+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first tensor index
+  s = fld_getStressNode(inod,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_stress_node_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_setStressNode
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jtns       Tensor index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param s          Dummy variable for set routine input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested tensor index
+!!  is not within [1..NTNS].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_stress_node_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_stress_node_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jtns = s22
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION, PARAMETER :: s = 3.d0
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set beyond last node
+  CALL fld_setStressNode(nnod+1,jtns, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first node
+  CALL fld_setStressNode(0,jtns, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set beyond last tensor index
+  CALL fld_setStressNode(inod,NTNS+1, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first tensor index
+  CALL fld_setStressNode(inod,0, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_stress_node_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception from fld_setStressNode
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jtns       Tensor index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test checks that an EXCEED exception is returned when the
+!!  specified input is not within the range defined in the System
+!!  Constants module.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_stress_node_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_stress_node_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jtns = s22
+  INTEGER, PARAMETER :: expMsg = EXCEED
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set below minimum
+  CALL fld_setStressNode(inod,jtns, SIG_MIN-0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set above maximum
+  CALL fld_setStressNode(inod,jtns, SIG_MAX+0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_stress_node_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value getting and setting in fld_getStressNode
+!!        and fld_setStressNode
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jtns       Tensor index
+!!  \param expVal     Expected data value
+!!  \param actVal     Actual data value
+!!
+!!  This test checks that the correct value is set using the
+!!  fld_setStressNode access program and returned from the
+!!  fld_getStressNode access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_set_stress_node_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_set_stress_node_VAL'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jtns = s22
+  DOUBLE PRECISION, PARAMETER :: expVal = 3.d0
+  DOUBLE PRECISION :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> set coord value
+  CALL fld_setStressNode(inod,jtns, expVal)
+  actVal = fld_getStressNode(inod,jtns)
+  CALL assertEquals(expVal,actVal)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_set_stress_node_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_getStrainNode
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jtns       Tensor index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param s          Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested tensor index
+!!  is not within [1..NTNS].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_strain_node_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_strain_node_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jtns = s22
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION :: s
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to get beyond last node
+  s = fld_getStrainNode(nnod+1,jtns, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first node
+  s = fld_getStrainNode(0,jtns, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last tensor index
+  s = fld_getStrainNode(inod,NTNS+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first tensor index
+  s = fld_getStrainNode(inod,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_strain_node_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_setStrainNode
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jtns       Tensor index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param s          Dummy variable for set routine input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested tensor index
+!!  is not within [1..NTNS].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_strain_node_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_strain_node_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jtns = s22
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION, PARAMETER :: s = 3.d-3
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set beyond last node
+  CALL fld_setStrainNode(nnod+1,jtns, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first node
+  CALL fld_setStrainNode(0,jtns, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set beyond last tensor index
+  CALL fld_setStrainNode(inod,NTNS+1, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first tensor index
+  CALL fld_setStrainNode(inod,0, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_strain_node_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception from fld_setStrainNode
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jtns       Tensor index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test checks that an EXCEED exception is returned when the
+!!  specified input is not within the range defined in the System
+!!  Constants module.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_strain_node_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_strain_node_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jtns = s22
+  INTEGER, PARAMETER :: expMsg = EXCEED
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> try to set below minimum
+  CALL fld_setStrainNode(inod,jtns, STR_MIN-0.1d-4, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set above maximum
+  CALL fld_setStrainNode(inod,jtns, STR_MAX+0.1d-4, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_set_strain_node_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value getting and setting in fld_getStrainNode
+!!        and fld_setStrainNode
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param inod       Node number
+!!  \param jtns       Tensor index
+!!  \param expVal     Expected data value
+!!  \param actVal     Actual data value
+!!
+!!  This test checks that the correct value is set using the
+!!  fld_setStrainNode access program and returned from the
+!!  fld_getStrainNode access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_set_strain_node_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_set_strain_node_VAL'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: inod = 50
+  INTEGER, PARAMETER :: jtns = s22
+  DOUBLE PRECISION, PARAMETER :: expVal = 3.d-3
+  DOUBLE PRECISION :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes
+  CALL fld_initNode(nnod)
+
+  !> set coord value
+  CALL fld_setStrainNode(inod,jtns, expVal)
+  actVal = fld_getStrainNode(inod,jtns)
+  CALL assertEquals(expVal,actVal)
+
+  !> finalize the log file and deallocate the nodes list
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+
+END SUBROUTINE test_fld_get_set_strain_node_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for OK exception message on allocation of elements
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel        Number of elements
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test initializes the elements state variable in the field_data
+!!  module and makes sure that the exception message is OK
+!!  (i.e. allocation did not fail).
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_elem_allocation_MSG
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_elem_allocation_MSG'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: expMsg=OK
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log message file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize module and check the exception
+  CALL fld_initElem(nel, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and deallocate module
+  CALL log_closeLogFile()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_elem_allocation_MSG
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for SZE exception message on allocation of elements
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test attempts to initialize the elements state variable in the
+!!  field data module with invalid size parameters and verifies that the
+!!  correct exception is returned.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_elem_allocation_SZE
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_elem_allocation_SZE'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: expMsg=SZE
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> try to initialize with nel=0
+  CALL fld_initElem(0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> ensure module is reset
+  CALL fld_cleanElem()
+
+  !> try to initialize with nel=MAX_ELEMENTS+1
+  CALL fld_initElem(MAX_ELEMENTS+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize log file and deallocate module
+  CALL log_closeLogFile()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_elem_allocation_SZE
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for number of elements when element data is not initialized
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param expected     Expected number of elements
+!!  \param actual       Actual number of elements
+!!
+!!  This test makes sure that the number of elements is returned as 0
+!!  when the element data is not initialized
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_num_elem_not_allocated
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_num_elem_not_allocated'
+  INTEGER, PARAMETER :: expected = 0
+  INTEGER :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> check number of materials
+  actual = fld_numElem()
+  CALL assertEquals(expected, actual)
+
+END SUBROUTINE test_fld_num_elem_not_allocated
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for number of elements when element data is initialized
+!!
+!!  \param unit_name    Name of unit test (for FRUIT)
+!!  \param expected     Expected number of elements
+!!  \param actual       Actual number of elements
+!!
+!!  This test makes sure that the correct number of elements is returned.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_num_elem_allocated
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_num_elem_allocated'
+  INTEGER, PARAMETER :: expected = 100
+  INTEGER :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize the module
+  CALL fld_initElem(expected)
+
+  !> check number of nodes
+  actual = fld_numElem()
+  CALL assertEquals(expected, actual)
+
+  !> deallocate the module
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_num_elem_allocated
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_getConnect
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jnod       Local node index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param n          Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the element list or the requested local node
+!!  index is not within [1..NNODEL].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_connect_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_connect_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jnod = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  INTEGER :: n
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes
+  CALL fld_initElem(nel)
+
+  !> try to get beyond last element
+  n = fld_getConnect(nel+1,jnod, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first element
+  n = fld_getConnect(0,jnod, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last local node index
+  n = fld_getConnect(iel,NNODEL+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first local node index
+  n = fld_getConnect(iel,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the elements list
+  CALL log_closeLogFile()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_get_connect_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_setConnect
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jnod       Local node index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param n          Dummy variable for set routine input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the element list or the requested local node
+!!  index is not within [1..NNODEL].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_connect_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_connect_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jnod = 2
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  INTEGER, PARAMETER :: n = 10
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes and elements
+  CALL fld_initNode(nnod)
+  CALL fld_initElem(nel)
+
+  !> try to set beyond last element
+  CALL fld_setConnect(nel+1,jnod, n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first element
+  CALL fld_setConnect(0,jnod, n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set beyond last local node index
+  CALL fld_setConnect(iel,NNODEL+1, n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first local node index
+  CALL fld_setConnect(iel,0, n, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes and elements
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_set_connect_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception from fld_setConnect
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nnod       Number of nodes
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jnod       Local node index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test checks that an EXCEED exception is returned when the
+!!  specified input is not within the range defined in the System
+!!  Constants module.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_connect_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_connect_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jnod = 2
+  INTEGER, PARAMETER :: expMsg = EXCEED
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize nodes and elements
+  CALL fld_initNode(nnod)
+  CALL fld_initElem(nel)
+
+  !> try to set below minimum
+  CALL fld_setConnect(iel,jnod, 0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set above maximum
+  CALL fld_setConnect(iel,jnod, nnod+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the nodes and elements
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_set_connect_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value getting and setting in fld_getConnect
+!!        and fld_setConnect
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jnod       Local node index
+!!  \param expVal     Expected data value
+!!  \param actVal     Actual data value
+!!
+!!  This test checks that the correct value is set using the
+!!  fld_setConnect access program and returned from the
+!!  fld_getConnect access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_set_connect_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_set_connect_VAL'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jnod = 2
+  INTEGER, PARAMETER :: expVal = 20
+  INTEGER :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes and elements
+  CALL fld_initNode(nnod)
+  CALL fld_initElem(nel)
+
+  !> set connectivity value
+  CALL fld_setConnect(iel,jnod, expVal)
+  actVal = fld_getConnect(iel,jnod)
+  CALL assertEquals(expVal,actVal)
+
+  !> finalize the log file and deallocate the nodes and elements
+  CALL log_closeLogFile()
+  CALL fld_cleanNode()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_get_set_connect_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception message from fld_volElem
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel        Number of elements
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param vol        Dummy variable for get function return
+!!
+!!  This test makes sure that the correct exception is returned when the
+!!  specified element index is not in the range of the allocated element
+!!  data.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_vol_elem_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_vol_elem_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: expMsg=POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION :: vol
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize elements
+  CALL fld_initElem(nel)
+
+  !> try to get beyond last element
+  vol = fld_volElem(nel+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first element
+  vol = fld_volElem(0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the elements list
+  CALL log_closeLogFile()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_vol_elem_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for element volume when node coordinates not initialized
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param expected   Expected volume of element (zero)
+!!  \param actual     Actual volume of element
+!!
+!!  This test makes sure that the volume of the element is returned as 0
+!!  when the coordinates of the connected nodes have not been set
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_vol_elem_ZERO
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_vol_elem_ZERO'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: nel=100
+  DOUBLE PRECISION, PARAMETER :: expected = 0.d0
+  DOUBLE PRECISION :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes and elements
+  CALL fld_initNode(nnod)
+  CALL fld_initElem(nel)
+
+  !> set connectivity of first element to {1,2,3}
+  CALL fld_setConnect(1,1,1)
+  CALL fld_setConnect(1,2,2)
+  CALL fld_setConnect(1,3,3)
+
+  !> check volume of element
+  actual = fld_volElem(1)
+  CALL assertEquals(expected,actual)
+
+  !> deallocate the elements and nodes
+  CALL fld_cleanNode()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_vol_elem_ZERO
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for element volume when node coordinates initialized
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nnod       Number of nodes
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param expected   Expected volume of element
+!!  \param actual     Actual volume of element
+!!
+!!  This test makes sure that the volume of the element is computed
+!!  correctly for the triangle given by (1,1), (3,2), (2,3)
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_vol_elem_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_vol_elem_VAL'
+  INTEGER, PARAMETER :: nnod=100
+  INTEGER, PARAMETER :: nel=100
+  DOUBLE PRECISION, PARAMETER :: toler = 1.d-14
+  DOUBLE PRECISION, PARAMETER :: expected = 1.5d0
+  DOUBLE PRECISION :: actual
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize nodes and elements
+  CALL fld_initNode(nnod)
+  CALL fld_initElem(nel)
+
+  !> set connectivity of first element to {1,2,3}
+  CALL fld_setConnect(1,1,1)
+  CALL fld_setConnect(1,2,2)
+  CALL fld_setConnect(1,3,3)
+
+  !> set coordinates of nodes
+  CALL fld_setCoord(1,1, 1.d0)
+  CALL fld_setCoord(1,2, 1.d0)
+  CALL fld_setCoord(2,1, 3.d0)
+  CALL fld_setCoord(2,2, 2.d0)
+  CALL fld_setCoord(3,1, 2.d0)
+  CALL fld_setCoord(3,2, 3.d0)
+
+  !> check volume of element
+  actual = fld_volElem(1)
+  CALL assertEquals(expected,actual, toler)
+
+  !> deallocate the elements and nodes
+  CALL fld_cleanNode()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_vol_elem_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_getStressElem
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jtns       Tensor index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param s          Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the element list or the requested tensor index
+!!  is not within [1..NTNS].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_stress_elem_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_stress_elem_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jtns = s22
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION :: s
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize elements
+  CALL fld_initElem(nel)
+
+  !> try to get beyond last element
+  s = fld_getStressElem(nel+1,jtns, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first element
+  s = fld_getStressElem(0,jtns, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last tensor index
+  s = fld_getStressElem(iel,NTNS+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first tensor index
+  s = fld_getStressElem(iel,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the elements list
+  CALL log_closeLogFile()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_get_stress_elem_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_setStressElem
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel        Number of elements
+!!  \param iel        Element number
+!!  \param jtns       Tensor index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param s          Dummy variable for set routine input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the element list or the requested tensor index
+!!  is not within [1..NTNS].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_stress_elem_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_stress_elem_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jtns = s22
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION, PARAMETER :: s = 3.d0
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize elements
+  CALL fld_initElem(nel)
+
+  !> try to set beyond last element
+  CALL fld_setStressElem(nel+1,jtns, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first element
+  CALL fld_setStressElem(0,jtns, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set beyond last tensor index
+  CALL fld_setStressElem(iel,NTNS+1, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first tensor index
+  CALL fld_setStressElem(iel,0, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the elements list
+  CALL log_closeLogFile()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_set_stress_elem_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception from fld_setStressElem
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel       Number of elements
+!!  \param iel       Element number
+!!  \param jtns       Tensor index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test checks that an EXCEED exception is returned when the
+!!  specified input is not within the range defined in the System
+!!  Constants module.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_stress_elem_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_stress_elem_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jtns = s22
+  INTEGER, PARAMETER :: expMsg = EXCEED
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize elements
+  CALL fld_initElem(nel)
+
+  !> try to set below minimum
+  CALL fld_setStressElem(iel,jtns, SIG_MIN-0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set above maximum
+  CALL fld_setStressElem(iel,jtns, SIG_MAX+0.1d0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the elements list
+  CALL log_closeLogFile()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_set_stress_elem_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value getting and setting in fld_getStressElem
+!!        and fld_setStressElem
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nel       Number of elements
+!!  \param iel       Element number
+!!  \param jtns       Tensor index
+!!  \param expVal     Expected data value
+!!  \param actVal     Actual data value
+!!
+!!  This test checks that the correct value is set using the
+!!  fld_setStressElem access program and returned from the
+!!  fld_getStressElem access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_set_stress_elem_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_set_stress_elem_VAL'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jtns = s22
+  DOUBLE PRECISION, PARAMETER :: expVal = 3.d0
+  DOUBLE PRECISION :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize elements
+  CALL fld_initElem(nel)
+
+  !> set coord value
+  CALL fld_setStressElem(iel,jtns, expVal)
+  actVal = fld_getStressElem(iel,jtns)
+  CALL assertEquals(expVal,actVal)
+
+  !> finalize the log file and deallocate the elements list
+  CALL log_closeLogFile()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_get_set_stress_elem_VAL
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_getStrainElem
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel       Number of elements
+!!  \param iel       Element number
+!!  \param jtns       Tensor index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param s          Dummy variable for get function return
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested tensor index
+!!  is not within [1..NTNS].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_strain_elem_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_strain_elem_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jtns = s22
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION :: s
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize elements
+  CALL fld_initElem(nel)
+
+  !> try to get beyond last node
+  s = fld_getStrainElem(nel+1,jtns, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first node
+  s = fld_getStrainElem(0,jtns, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get beyond last tensor index
+  s = fld_getStrainElem(iel,NTNS+1, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to get before first tensor index
+  s = fld_getStrainElem(iel,0, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the elements list
+  CALL log_closeLogFile()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_get_strain_elem_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for POSIT exception from fld_setStrainElem
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel       Number of elements
+!!  \param iel       Element number
+!!  \param jtns       Tensor index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!  \param s          Dummy variable for set routine input
+!!
+!!  This test checks that a POSIT exception is returned when the requested
+!!  location is not inside the node list or the requested tensor index
+!!  is not within [1..NTNS].
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_strain_elem_POSIT
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_strain_elem_POSIT'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jtns = s22
+  INTEGER, PARAMETER :: expMsg = POSIT
+  INTEGER :: actMsg
+  DOUBLE PRECISION, PARAMETER :: s = 3.d-3
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize elements
+  CALL fld_initElem(nel)
+
+  !> try to set beyond last node
+  CALL fld_setStrainElem(nel+1,jtns, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first node
+  CALL fld_setStrainElem(0,jtns, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set beyond last tensor index
+  CALL fld_setStrainElem(iel,NTNS+1, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set before first tensor index
+  CALL fld_setStrainElem(iel,0, s, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the elements list
+  CALL log_closeLogFile()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_set_strain_elem_POSIT
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for EXCEED exception from fld_setStrainElem
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param testName   Filename for log file (required for exceptions)
+!!  \param nel       Number of elements
+!!  \param iel       Element number
+!!  \param jtns       Tensor index
+!!  \param expMsg     Expected log message
+!!  \param actMsg     Actual log message
+!!
+!!  This test checks that an EXCEED exception is returned when the
+!!  specified input is not within the range defined in the System
+!!  Constants module.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_set_strain_elem_EXCEED
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_set_strain_elem_EXCEED'
+  CHARACTER (LEN=*), PARAMETER :: testName = 'testName'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jtns = s22
+  INTEGER, PARAMETER :: expMsg = EXCEED
+  INTEGER :: actMsg
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize log file
+  CALL log_setFileName(testName)
+  CALL log_initLogFile()
+
+  !> initialize elements
+  CALL fld_initElem(nel)
+
+  !> try to set below minimum
+  CALL fld_setStrainElem(iel,jtns, STR_MIN-0.1d-4, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> try to set above maximum
+  CALL fld_setStrainElem(iel,jtns, STR_MAX+0.1d-4, actMsg)
+  CALL assertEquals(expMsg,actMsg)
+
+  !> finalize the log file and deallocate the elements list
+  CALL log_closeLogFile()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_set_strain_elem_EXCEED
+
+
+! ------------------------------------------------------------------------
+!>  \test Test for correct value getting and setting in fld_getStrainElem
+!!        and fld_setStrainElem
+!!
+!!  \param unit_name  Name of unit test (for FRUIT)
+!!  \param nel       Number of elements
+!!  \param iel       Element number
+!!  \param jtns       Tensor index
+!!  \param expVal     Expected data value
+!!  \param actVal     Actual data value
+!!
+!!  This test checks that the correct value is set using the
+!!  fld_setStrainElem access program and returned from the
+!!  fld_getStrainElem access program.
+! ------------------------------------------------------------------------
+SUBROUTINE test_fld_get_set_strain_elem_VAL
+  CHARACTER (LEN=*), PARAMETER :: unit_name = 'test_fld_get_set_strain_elem_VAL'
+  INTEGER, PARAMETER :: nel=100
+  INTEGER, PARAMETER :: iel = 50
+  INTEGER, PARAMETER :: jtns = s22
+  DOUBLE PRECISION, PARAMETER :: expVal = 3.d-3
+  DOUBLE PRECISION :: actVal
+
+  !> initialize unit test
+  CALL set_unit_name(unit_name)
+
+  !> initialize elements
+  CALL fld_initElem(nel)
+
+  !> set coord value
+  CALL fld_setStrainElem(iel,jtns, expVal)
+  actVal = fld_getStrainElem(iel,jtns)
+  CALL assertEquals(expVal,actVal)
+
+  !> finalize the log file and deallocate the elements list
+  CALL log_closeLogFile()
+  CALL fld_cleanElem()
+
+END SUBROUTINE test_fld_get_set_strain_elem_VAL
+
+END MODULE field_data_test