Comment updates

Ben-Mertz · Sep 25, 2019 · a53f95c · a53f95c
1 parent cb2b93f
commit a53f95c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Source/Functions.f90 b/Source/Functions.f90
@@ -113,6 +113,7 @@ REAL FUNCTION interp1d(xData, yData, xq)
     END FUNCTION interp1d
     !-------------------------------------------------------------------------------------------------------------------------------
     ! Performs a direct calculation of the inverse of a 3×3 matrix.
+    ! Source: http://fortranwiki.org/fortran/show/Matrix+inversion
     FUNCTION matinv3(A) RESULT(B)
     REAL(4), INTENT(IN) :: A(3,3)   !! Matrix
     REAL(4)             :: B(3,3)   !! Inverse matrix