Fix compilation bug.

PrasadBabarendaGamage · Aug 11, 2013 · 8ffbae5 · 8ffbae5
1 parent 1b72c68
commit 8ffbae5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/problem_routines.f90 b/src/problem_routines.f90
@@ -3045,7 +3045,7 @@ SUBROUTINE Problem_SolverGeometricTransformationSolve(geometricTransformationSol
     REAL(DP) :: nodalParameters(3),nodalParametersTrans(3),transformationMatrix(4,4)
     TYPE(DOMAIN_TYPE), POINTER :: domain
     TYPE(DOMAIN_NODES_TYPE), POINTER :: domainNodes
-    TYPE(LOGICAL) :: transformBC=.FALSE.,sameBases=.TRUE.
+    LOGICAL :: transformBC=.FALSE.,sameBases=.TRUE.
 
     CALL ENTERS("Problem_SolverGeometricTransformationSolve",err,error,*999)