diff --git a/Source/Fortran/ConvergenceMonitorModule.F90 b/Source/Fortran/ConvergenceMonitorModule.F90
index e0daf25f..91048f3a 100644
--- a/Source/Fortran/ConvergenceMonitorModule.F90
+++ b/Source/Fortran/ConvergenceMonitorModule.F90
@@ -18,7 +18,7 @@ MODULE ConvergenceMonitor
      REAL(NTREAL), DIMENSION(:), ALLOCATABLE :: win_long
      !> The number of values that have been added
      INTEGER :: nval
-     !> We aren't converged if the average isn't below this.
+     !> We are not converged if the average is not below this.
      REAL(NTREAL) :: loose_cutoff
      !> We definitely are converged if the last value is below this.
      REAL(NTREAL) :: tight_cutoff
@@ -40,7 +40,7 @@ PURE SUBROUTINE ConstructMonitor(this, short_len_in, long_len_in, &
     INTEGER, INTENT(IN), OPTIONAL :: short_len_in
     !> The length of the long window (default: 6)
     INTEGER, INTENT(IN), OPTIONAL :: long_len_in
-    !> If the average is greater than this than we aren't 
+    !> If the average is greater than this than we are not
     !! converged (default: 0.01)
     REAL(NTREAL), INTENT(IN), OPTIONAL :: loose_cutoff_in
     !> If the last value is less than this, we definitely are converged 
diff --git a/Source/Fortran/EigenExaModule.F90 b/Source/Fortran/EigenExaModule.F90
index c94b3e91..19c31db0 100644
--- a/Source/Fortran/EigenExaModule.F90
+++ b/Source/Fortran/EigenExaModule.F90
@@ -164,7 +164,7 @@ END SUBROUTINE EigenExa_c
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !> Setup the eigen exa data structures.
   SUBROUTINE InitializeEigenExa(A, nvals, eigenvectors, exa)
-    !> The matrix we're working on.
+    !> The matrix we are working on.
     TYPE(Matrix_ps), INTENT(IN) :: A
     !> Number of eigenvalues to compute.
     INTEGER, INTENT(IN) :: nvals
diff --git a/Source/Fortran/FermiOperatorModule.F90 b/Source/Fortran/FermiOperatorModule.F90
index e428632b..1ab0a666 100644
--- a/Source/Fortran/FermiOperatorModule.F90
+++ b/Source/Fortran/FermiOperatorModule.F90
@@ -522,7 +522,7 @@ SUBROUTINE ComputeX(W, I, pool, threshold, Out, W2_out)
     REAL(NTREAL), INTENT(IN) :: threshold
     !> The result matrix.
     TYPE(Matrix_ps), INTENT(INOUT) :: Out
-    !> If you want the wave operator's square
+    !> If you want square of the wave operator
     TYPE(Matrix_ps), INTENT(INOUT), OPTIONAL :: W2_out
     !! Local matrices.
     TYPE(Matrix_ps) :: W2, Temp