ran tapenade

mdolab · Oct 10, 2022 · a5666c5 · a5666c5
1 parent 1984517
commit a5666c5
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/adjoint/curveUtils_b.f90 b/src/adjoint/curveUtils_b.f90
@@ -144,7 +144,7 @@ SUBROUTINE COMPUTETANGENT_B(x1, x1b, x2, x2b, tangent, tangentb)
 ! EXECUTION
 ! Get the relative vectors for the bar element
     x21 = x2 - x1
-! Normalize vector (dot defined in Utilities.F90)
+! Normalize vector (dot defined in utilities.F90)
     dummyvec = x21
     CALL DOT(x21, dummyvec, dotresult)
     x21b = 0.0_8
@@ -181,7 +181,7 @@ SUBROUTINE COMPUTETANGENT(x1, x2, tangent)
 ! EXECUTION
 ! Get the relative vectors for the bar element
     x21 = x2 - x1
-! Normalize vector (dot defined in Utilities.F90)
+! Normalize vector (dot defined in utilities.F90)
     dummyvec = x21
     CALL DOT(x21, dummyvec, dotresult)
     tangent = x21/SQRT(dotresult)

diff --git a/src/adjoint/curveUtils_d.f90 b/src/adjoint/curveUtils_d.f90
@@ -127,7 +127,7 @@ SUBROUTINE COMPUTETANGENT_D(x1, x1d, x2, x2d, tangent, tangentd)
 ! Get the relative vectors for the bar element
     x21d = x2d - x1d
     x21 = x2 - x1
-! Normalize vector (dot defined in Utilities.F90)
+! Normalize vector (dot defined in utilities.F90)
     dummyvecd = x21d
     dummyvec = x21
     CALL DOT_D0(x21, x21d, dummyvec, dummyvecd, dotresult, dotresultd)
@@ -161,7 +161,7 @@ SUBROUTINE COMPUTETANGENT(x1, x2, tangent)
 ! EXECUTION
 ! Get the relative vectors for the bar element
     x21 = x2 - x1
-! Normalize vector (dot defined in Utilities.F90)
+! Normalize vector (dot defined in utilities.F90)
     dummyvec = x21
     CALL DOT(x21, dummyvec, dotresult)
     result1 = SQRT(dotresult)