Skip to content

Commit 36259b8

Browse files
authored
Update m_lapack_example.f90
1 parent 57bc5ec commit 36259b8

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/post_process/m_lapack_example.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -111,10 +111,10 @@ impure subroutine s_lapack_example_eigenvalues()
111111
! Call appropriate LAPACK routine based on precision
112112
#ifdef MFC_SINGLE_PRECISION
113113
call ssyev(jobz, uplo, n, A, n, w, work, lwork, info)
114-
print *, "Using single precision LAPACK (SSYEV)"
114+
print *, "Using LAPACK (SSYEV)"
115115
#else
116116
call dsyev(jobz, uplo, n, A, n, w, work, lwork, info)
117-
print *, "Using double precision LAPACK (DSYEV)"
117+
print *, "Using LAPACK (DSYEV)"
118118
#endif
119119

120120
! Check for success

0 commit comments

Comments
 (0)