Skip to content

modified base type #148

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
vickysharma0812 merged 1 commit into from
Jun 15, 2022
Merged

modified base type #148

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
82 changes: 41 additions & 41 deletions src/modules/BaseType/src/BaseType.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -87,7 +87,7 @@ MODULE BaseType
! summary: Contains the pointer to the [[BoundingBox_]] data type.

TYPE :: BoundingBoxPointer_
CLASS(BoundingBoxPointer_), POINTER :: Ptr => NULL()
CLASS(BoundingBoxPointer_), POINTER :: ptr => NULL()
END TYPE BoundingBoxPointer_

PUBLIC :: BoundingBoxPointer_
Expand Down Expand Up @@ -115,7 +115,7 @@ MODULE BaseType
& Val=NULL())

TYPE :: RealMatrixPointer_
CLASS(RealMatrix_), POINTER :: Ptr => NULL()
CLASS(RealMatrix_), POINTER :: ptr => NULL()
END TYPE RealMatrixPointer_

PUBLIC :: RealMatrixPointer_
Expand All @@ -140,7 +140,7 @@ MODULE BaseType
TYPE(IntVector_), PUBLIC, PARAMETER :: TypeIntVector = IntVector_(Val=NULL())

TYPE :: IntVectorPointer_
CLASS(IntVector_), POINTER :: Ptr => NULL()
CLASS(IntVector_), POINTER :: ptr => NULL()
END TYPE IntVectorPointer_

PUBLIC :: IntVectorPointer_
Expand All @@ -166,7 +166,7 @@ MODULE BaseType
& tDimension=1_I4B, Val=NULL())

TYPE :: RealVectorPointer_
CLASS(RealVector_), POINTER :: Ptr => NULL()
CLASS(RealVector_), POINTER :: ptr => NULL()
END TYPE RealVectorPointer_

PUBLIC :: RealVectorPointer_
Expand Down Expand Up @@ -196,7 +196,7 @@ MODULE BaseType
!----------------------------------------------------------------------------

TYPE :: Vector3DPointer_
CLASS(Vector3D_), POINTER :: Ptr => NULL()
CLASS(Vector3D_), POINTER :: ptr => NULL()
END TYPE Vector3DPointer_

PUBLIC :: Vector3DPointer_
Expand All @@ -220,7 +220,7 @@ MODULE BaseType
& IndexValue_(Indx=0, Val=0.0_DFP)

TYPE :: IndexValuePointer_
CLASS(IndexValue_), POINTER :: Ptr => NULL()
CLASS(IndexValue_), POINTER :: ptr => NULL()
END TYPE IndexValuePointer_

PUBLIC :: IndexValuePointer_
Expand Down Expand Up @@ -249,7 +249,7 @@ MODULE BaseType
TYPE(DOF_), PUBLIC, PARAMETER :: TypeDOF = DOF_(MAP=NULL(), ValMap=NULL())

TYPE :: DOFPointer_
CLASS(DOF_), POINTER :: Ptr => NULL()
CLASS(DOF_), POINTER :: ptr => NULL()
END TYPE DOFPointer_

PUBLIC :: DOFPointer_
Expand Down Expand Up @@ -335,7 +335,7 @@ MODULE BaseType
TYPE(CSRMatrix_), PUBLIC, PARAMETER :: TypeCSRMatrix = CSRMatrix_(A=NULL())

TYPE :: CSRMatrixPointer_
CLASS(CSRMatrix_), POINTER :: Ptr => NULL()
CLASS(CSRMatrix_), POINTER :: ptr => NULL()
END TYPE CSRMatrixPointer_

PUBLIC :: CSRMatrixPointer_
Expand Down Expand Up @@ -390,7 +390,7 @@ MODULE BaseType
& IterationData_( header=NULL() )

TYPE :: IterationDataPointer_
CLASS(IterationData_), POINTER :: Ptr => NULL()
CLASS(IterationData_), POINTER :: ptr => NULL()
END TYPE IterationDataPointer_

PUBLIC :: IterationDataPointer_
Expand All @@ -415,7 +415,7 @@ MODULE BaseType
& TypeVoigtRank2Tensor = VoigtRank2Tensor_()

TYPE :: VoigtRank2TensorPointer
CLASS(VoigtRank2Tensor_), POINTER :: Ptr => NULL()
CLASS(VoigtRank2Tensor_), POINTER :: ptr => NULL()
END TYPE VoigtRank2TensorPointer

PUBLIC :: VoigtRank2TensorPointer
Expand All @@ -442,7 +442,7 @@ MODULE BaseType
& TypeRank2Tensor = Rank2Tensor_()

TYPE :: Rank2TensorPointer_
CLASS(Rank2Tensor_), POINTER :: Ptr => NULL()
CLASS(Rank2Tensor_), POINTER :: ptr => NULL()
END TYPE Rank2TensorPointer_

PUBLIC :: Rank2TensorPointer_
Expand All @@ -459,7 +459,7 @@ MODULE BaseType
& TypeDeformationGradient = DeformationGradient_()

TYPE :: DeformationGradientPointer_
CLASS(DeformationGradient_), POINTER :: Ptr => NULL()
CLASS(DeformationGradient_), POINTER :: ptr => NULL()
END TYPE DeformationGradientPointer_

PUBLIC :: DeformationGradientPointer_
Expand Down Expand Up @@ -489,7 +489,7 @@ MODULE BaseType
& TypeLeftCauchyGreen = LeftCauchyGreen_()

TYPE :: LeftCauchyGreenPointer_
CLASS(LeftCauchyGreen_), POINTER :: Ptr => NULL()
CLASS(LeftCauchyGreen_), POINTER :: ptr => NULL()
END TYPE LeftCauchyGreenPointer_

PUBLIC :: LeftCauchyGreenPointer_
Expand Down Expand Up @@ -519,7 +519,7 @@ MODULE BaseType
& TypeRightCauchyGreen = RightCauchyGreen_()

TYPE :: RightCauchyGreenPointer_
CLASS(RightCauchyGreen_), POINTER :: Ptr => NULL()
CLASS(RightCauchyGreen_), POINTER :: ptr => NULL()
END TYPE RightCauchyGreenPointer_

PUBLIC :: RightCauchyGreenPointer_
Expand All @@ -537,7 +537,7 @@ MODULE BaseType
& TypeStrain = Strain_()

TYPE :: StrainPointer_
CLASS(Strain_), POINTER :: Ptr => NULL()
CLASS(Strain_), POINTER :: ptr => NULL()
END TYPE StrainPointer_

PUBLIC :: StrainPointer_
Expand All @@ -555,7 +555,7 @@ MODULE BaseType
& TypeAlmansiStrain = AlmansiStrain_()

TYPE :: AlmansiStrainPointer_
CLASS(AlmansiStrain_), POINTER :: Ptr => NULL()
CLASS(AlmansiStrain_), POINTER :: ptr => NULL()
END TYPE AlmansiStrainPointer_

PUBLIC :: AlmansiStrainPointer_
Expand All @@ -573,7 +573,7 @@ MODULE BaseType
& TypeGreenStrain = GreenStrain_()

TYPE :: GreenStrainPointer_
CLASS(GreenStrain_), POINTER :: Ptr => NULL()
CLASS(GreenStrain_), POINTER :: ptr => NULL()
END TYPE GreenStrainPointer_

PUBLIC :: GreenStrainPointer_
Expand All @@ -591,7 +591,7 @@ MODULE BaseType
& TypeSmallStrain = SmallStrain_()

TYPE :: SmallStrainPointer_
CLASS(SmallStrain_), POINTER :: Ptr => NULL()
CLASS(SmallStrain_), POINTER :: ptr => NULL()
END TYPE SmallStrainPointer_

PUBLIC :: SmallStrainPointer_
Expand All @@ -607,15 +607,15 @@ MODULE BaseType
!{!pages/ReferenceElement_.md}

TYPE :: ReferenceTopology_
INTEGER(I4B), ALLOCATABLE :: Nptrs(:)
INTEGER(I4B) :: Name = 0
INTEGER(I4B) :: XiDimension = 0
INTEGER(I4B), ALLOCATABLE :: nptrs(:)
INTEGER(I4B) :: name = 0
INTEGER(I4B) :: xiDimension = 0
END TYPE ReferenceTopology_

PUBLIC :: ReferenceTopology_

TYPE :: ReferenceTopologyPointer_
CLASS(ReferenceTopology_), POINTER :: Ptr => NULL()
CLASS(ReferenceTopology_), POINTER :: ptr => NULL()
END TYPE ReferenceTopologyPointer_

PUBLIC :: ReferenceTopologyPointer_
Expand All @@ -638,7 +638,7 @@ MODULE BaseType
INTEGER(I4B) :: xiDimension = 0
!! Xidimension
INTEGER(I4B) :: name = 0
!! Name of the element
!! name of the element
INTEGER(I4B) :: order = 0
!! Order of element
INTEGER(I4B) :: nsd = 0
Expand All @@ -655,7 +655,7 @@ MODULE BaseType
PUBLIC :: ReferenceElement_

TYPE :: ReferenceElementPointer_
CLASS(ReferenceElement_), POINTER :: Ptr => NULL()
CLASS(ReferenceElement_), POINTER :: ptr => NULL()
END TYPE ReferenceElementPointer_

PUBLIC :: ReferenceElementPointer_
Expand Down Expand Up @@ -687,7 +687,7 @@ END SUBROUTINE highorder_refelem

TYPE(ReferencePoint_), PARAMETER, PUBLIC :: &
& TypeReferencePoint = ReferencePoint_( &
& XiJ=NULL(), EntityCounts=[0, 0, 0, 0], XiDimension=0, Name=0, &
& XiJ=NULL(), EntityCounts=[0, 0, 0, 0], xiDimension=0, name=0, &
& Topology=NULL(), Order=0, NSD=0)

!----------------------------------------------------------------------------
Expand All @@ -707,7 +707,7 @@ END SUBROUTINE highorder_refelem

TYPE(ReferenceLine_), PARAMETER, PUBLIC :: &
& TypeReferenceLine = ReferenceLine_( &
& XiJ=NULL(), EntityCounts=[0, 0, 0, 0], XiDimension=0, Name=0, &
& XiJ=NULL(), EntityCounts=[0, 0, 0, 0], xiDimension=0, name=0, &
& Topology=NULL(), Order=0, NSD=0)

!----------------------------------------------------------------------------
Expand All @@ -726,7 +726,7 @@ END SUBROUTINE highorder_refelem

TYPE(ReferenceTriangle_), PARAMETER, PUBLIC :: &
& TypeReferenceTriangle = ReferenceTriangle_( &
& XiJ=NULL(), EntityCounts=[0, 0, 0, 0], XiDimension=0, Name=0, &
& XiJ=NULL(), EntityCounts=[0, 0, 0, 0], xiDimension=0, name=0, &
& Topology=NULL(), Order=0, NSD=0)

!----------------------------------------------------------------------------
Expand All @@ -747,7 +747,7 @@ END SUBROUTINE highorder_refelem
TYPE(ReferenceQuadrangle_), PARAMETER, PUBLIC :: &
& TypeReferenceQuadrangle &
& = ReferenceQuadrangle_( &
& XiJ=NULL(), EntityCounts=[0, 0, 0, 0], XiDimension=0, Name=0, &
& XiJ=NULL(), EntityCounts=[0, 0, 0, 0], xiDimension=0, name=0, &
& Topology=NULL(), Order=0, NSD=0)

!----------------------------------------------------------------------------
Expand All @@ -768,7 +768,7 @@ END SUBROUTINE highorder_refelem
TYPE(ReferenceTetrahedron_), PARAMETER, PUBLIC :: &
& TypeReferenceTetrahedron &
& = ReferenceTetrahedron_( &
& XiJ=NULL(), EntityCounts=[0, 0, 0, 0], XiDimension=0, Name=0, &
& XiJ=NULL(), EntityCounts=[0, 0, 0, 0], xiDimension=0, name=0, &
& Topology=NULL(), Order=0, NSD=0)

!----------------------------------------------------------------------------
Expand All @@ -791,8 +791,8 @@ END SUBROUTINE highorder_refelem
& = ReferenceHexahedron_( &
& XiJ=NULL(), &
& EntityCounts=[0, 0, 0, 0], &
& XiDimension=0, &
& Name=0, &
& xiDimension=0, &
& name=0, &
& Topology=NULL(), &
& Order=0, &
& NSD=0)
Expand All @@ -816,8 +816,8 @@ END SUBROUTINE highorder_refelem
& = ReferencePrism_( &
& XiJ=NULL(), &
& EntityCounts=[0, 0, 0, 0], &
& XiDimension=0, &
& Name=0, &
& xiDimension=0, &
& name=0, &
& Topology=NULL(), &
& Order=0, &
& NSD=0)
Expand All @@ -841,8 +841,8 @@ END SUBROUTINE highorder_refelem
& = ReferencePyramid_( &
& XiJ=NULL(), &
& EntityCounts=[0, 0, 0, 0], &
& XiDimension=0, &
& Name=0, &
& xiDimension=0, &
& name=0, &
& Topology=NULL(), &
& Order=0, &
& NSD=0)
Expand Down Expand Up @@ -1068,7 +1068,7 @@ END SUBROUTINE highorder_refelem
& TypeQuadraturePoint = QuadraturePoint_(points=NULL())

TYPE :: QuadraturePointPointer_
CLASS(QuadraturePoint_), POINTER :: Ptr => NULL()
CLASS(QuadraturePoint_), POINTER :: ptr => NULL()
END TYPE QuadraturePointPointer_

PUBLIC :: QuadraturePointPointer_
Expand Down Expand Up @@ -1216,7 +1216,7 @@ END SUBROUTINE highorder_refelem
INTEGER(I4B) :: NNE = -1
INTEGER(I4B) :: NNS = -1
INTEGER(I4B) :: NNT = -1
INTEGER(I4B) :: XiDimension = -1
INTEGER(I4B) :: xiDimension = -1
INTEGER(I4B) :: ElemTopology = -1
INTEGER(I4B) :: SpaceElemTopo = -1
INTEGER(I4B) :: TimeElemTopo = -1
Expand All @@ -1229,7 +1229,7 @@ END SUBROUTINE highorder_refelem
TYPE(ElementData_), PARAMETER, PUBLIC :: TypeElementData = ElementData_()

TYPE :: ElementDataPointer_
CLASS(ElementData_), POINTER :: Ptr => NULL()
CLASS(ElementData_), POINTER :: ptr => NULL()
END TYPE ElementDataPointer_

PUBLIC :: ElementDataPointer_
Expand Down Expand Up @@ -1267,7 +1267,7 @@ END SUBROUTINE highorder_refelem
& Jacobian=NULL())

TYPE :: ShapeDataPointer_
CLASS(ShapeDataPointer_), POINTER :: Ptr => NULL()
CLASS(ShapeDataPointer_), POINTER :: ptr => NULL()
END TYPE ShapeDataPointer_

PUBLIC :: ShapeDataPointer_
Expand Down Expand Up @@ -1299,7 +1299,7 @@ END SUBROUTINE highorder_refelem
PUBLIC :: STShapeData_

TYPE :: STShapeDataPointer_
CLASS(STShapeData_), POINTER :: Ptr => NULL()
CLASS(STShapeData_), POINTER :: ptr => NULL()
END TYPE STShapeDataPointer_

PUBLIC :: STShapeDataPointer_
Expand Down Expand Up @@ -1354,7 +1354,7 @@ END SUBROUTINE highorder_refelem
& Normal=NULL())

TYPE :: ElemShapeDataPointer_
CLASS(ShapeDataPointer_), POINTER :: Ptr => NULL()
CLASS(ShapeDataPointer_), POINTER :: ptr => NULL()
END TYPE ElemShapeDataPointer_

PUBLIC :: ElemShapeDataPointer_
Expand Down