Elemsd dev

src/modules/BaseType/src/BaseType.F90

@@ -805,13 +805,13 @@ END SUBROUTINE lag_elem_refelem
 !----------------------------------------------------------------------------
 
 TYPE :: FEVariable_
-  REAL(DFP), ALLOCATABLE :: R1(:), R2(:, :), R3(:, :, :), &
-    & R4(:, :, :, :)
-  REAL(DFP) :: R0 = 0.
-  INTEGER(I4B) :: DefineOn = 0 !Nodal, Quadrature
-  INTEGER(I4B) :: VarType = 0 !Space, SpaceTime, Constant
-  INTEGER(I4B) :: Rank = 0 ! Scalar, Vector, Matrix
-  INTEGER(I4B) :: CaseType = 0
+  REAL(DFP), ALLOCATABLE :: r1(:), r2(:, :), r3(:, :, :), &
+    & r4(:, :, :, :)
+  REAL(DFP) :: r0 = 0.
+  INTEGER(I4B) :: defineOn = 0 !Nodal, Quadrature
+  INTEGER(I4B) :: varType = 0 !Space, SpaceTime, Constant
+  INTEGER(I4B) :: rank = 0 ! Scalar, Vector, Matrix
+  INTEGER(I4B) :: caseType = 0
 END TYPE FEVariable_
 
 PUBLIC :: FEVariable_
@@ -1075,17 +1075,13 @@ END SUBROUTINE lag_elem_refelem
 ! update: 2021-11-06
 ! summary: Derivative class contains symbols for derivatives
 
-TYPE :: Derivative_
-  CHARACTER(LEN=1) :: NONE = ' '
-  CHARACTER(LEN=2) :: dt = 'dt'
-  CHARACTER(LEN=2) :: dx = 'dx'
-  CHARACTER(LEN=3) :: dxi = 'dxi'
-  CHARACTER(LEN=3) :: dxj = 'dxj'
-  INTEGER(I4B) :: order = 1
-END TYPE Derivative_
-
-TYPE(Derivative_), PARAMETER, PUBLIC :: FirstDerivative = &
-     & Derivative_(order=1)
+INTEGER(I4B), parameter, public :: DEL_NONE = 0
+INTEGER(I4B), parameter, public :: DEL_X = 1
+INTEGER(I4B), parameter, public :: DEL_Y = 2
+INTEGER(I4B), parameter, public :: DEL_Z = 3
+INTEGER(I4B), parameter, public :: DEL_X_ALL = 4
+!!
+INTEGER(I4B), parameter, public :: DEL_t = -1
 
 !----------------------------------------------------------------------------
 !                                                            ElementData_

src/modules/CSRMatrix/src/CSRMatrix_Method.F90

@@ -16,8 +16,8 @@
 !
 
 !> authors: Vikas Sharma, Ph. D.
-! date: 	22 March 2021
-! summary: 	This module contains methods for [[CSRMatrix_]]
+! date: 22 March 2021
+! summary: This module contains methods for [[CSRMatrix_]]
 
 MODULE CSRMatrix_Method
 USE GlobalData
@@ -2941,4 +2941,4 @@ END FUNCTION csrMat_Permute2
 !----------------------------------------------------------------------------
 
 
-END MODULE CSRMatrix_Method
+END MODULE CSRMatrix_Method