Commit d5e3e924 authored by Matthias Redies's avatar Matthias Redies


parent d8ea0854
......@@ -363,7 +363,7 @@ CONTAINS
bashlp(:n_grid_pt) = mpbasis%radbasfn_mt(:n_grid_pt, n_radbasfn, l, itype)
IF (SQRT(rdum**2 + rdum1**2) <= 1E-06 .AND. mpi%irank == 0) &
WRITE (6, *) 'Warning: Norm is smaller thann 1E-06!'
WRITE (6, *) 'Warning: Norm is smaller than 1E-06!'
! change function n_radbasfn such that n_radbasfn is orthogonal to i
! since the functions radbasfn_mt have been orthogonal on input
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment