Skip to content

Commit

Permalink
Remove ' from comments, because that's apparently a thing...
Browse files Browse the repository at this point in the history
  • Loading branch information
william-dawson committed Nov 15, 2023
1 parent e172f89 commit f3c2206
Show file tree
Hide file tree
Showing 3 changed files with 4 additions and 4 deletions.
4 changes: 2 additions & 2 deletions Source/Fortran/ConvergenceMonitorModule.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down
2 changes: 1 addition & 1 deletion Source/Fortran/EigenExaModule.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion Source/Fortran/FermiOperatorModule.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit f3c2206

Please sign in to comment.