Revert Changes. Removed type-bound getter since getters already exist

Author: abrooks1085

random_numbers/mersennetwister.F90

@@ -116,9 +116,6 @@ module MersenneTwister_mod
   type randomNumberSequence
     integer                            :: currentElement ! = blockSize
     integer, dimension(0:blockSize -1) :: state ! = 0
-   contains
-    procedure :: get_currentElement
-    procedure :: get_state
   end type randomNumberSequence
 
   !> @ingroup mersennetwister_mod
@@ -133,19 +130,6 @@ module MersenneTwister_mod
 !> @{
 ! -------------------------------------------------------------
 contains
-  function get_currentElement(this) result(currentElement)
-    class(randomNumberSequence) :: this
-    integer                     :: currentElement
-
-    currentElement = this%currentElement
-  end function get_currentElement
-
-  function get_state(this) result(state)
-    class(randomNumberSequence)       :: this
-    integer, dimension(0:blockSize-1) :: state
-
-    state = this%state
-  end function get_state
   ! -------------------------------------------------------------
   ! Private functions
   ! ---------------------------

random_numbers/random_numbers.F90

@@ -39,9 +39,7 @@ module random_numbers_mod
   !> @brief Type to hold a stream of randomly generated numbers
   !> @ingroup random_numbers_mod
   type randomNumberStream
-    type(randomNumberSequence), target :: theNumbers
-   contains
-    procedure :: get_theNumbers
+    type(randomNumberSequence) :: theNumbers
   end type randomNumberStream
 
   !> Returns scalar, 1 or 2 D random real numbers
@@ -69,13 +67,6 @@ module random_numbers_mod
 !> @{
 
 contains
-  function get_theNumbers(this) result(theNumbers)
-    class(randomNumberStream)          :: this
-    type(randomNumberSequence), target :: theNumbers
-
-    theNumbers => this%theNumbers
-
-  end function get_theNumbers
 
   !> Initialization
   function initializeRandomNumberStream_S(seed) result(new)