Commit 2e9dd009 authored by Alexander Neukirchen's avatar Alexander Neukirchen

This really bothered me.

parent fdf5cc1e
......@@ -33,7 +33,7 @@ do
-make) make_directly=1;;
-warn_only) CLI_WARN_ONLY=1;;
-d) debug=1;;
-*) error="Unkown argument";;
-*) error="Unknown argument";;
*) break;; # terminate while loop
esac
shift
......@@ -58,7 +58,7 @@ then
fi
if [ $# -gt 0 ]
then
error="Extra unkown arguments"
error="Extra unknown arguments"
fi
#check if -h or -help was given as argument
......
......@@ -73,7 +73,7 @@ CONTAINS
ELSE IF (input%forcemix==2) THEN
CALL simple_bfgs(pos,force,displace)
ELSE
CALL juDFT_error('unkown mixing scheme for forces', calledby='relaxation')
CALL juDFT_error('Unknown mixing scheme for forces', calledby='relaxation')
END IF
!Check for convergence of forces/displacements
......
......@@ -215,7 +215,7 @@
WRITE (6,9030) a2(1),a2(2),a2(3)
ELSE
WRITE (6,*) 'rw_inp: latnam ',latnam,' unknown'
CALL juDFT_error("Unkown lattice name",calledby="rw_inp")
CALL juDFT_error("Unknown lattice name",calledby="rw_inp")
ENDIF
!
!
......
......@@ -100,7 +100,7 @@ CONTAINS
CASE('gen ','sym ')
CALL judft_error("Specifying the symmetries no longer supported in inpgen")
CASE default
CALL judft_error(("Unkown input in:"//line))
CALL judft_error(("Unknown input in:"//line))
END SELECT
ELSE
IF (aa.ne.0) THEN
......
......@@ -80,7 +80,7 @@ CONTAINS
END IF
ENDDO param_loop
IF (n>SIZE(params)) THEN
PRINT *,"Unkown command line argument:"//str
PRINT *,"Unknown command line argument:"//str
check_arguments=.FALSE.
END IF
i=i+1
......
......@@ -129,8 +129,8 @@ module m_hdf_accessprp
ENDIF
ENDIF
#endif
write(0,*) "Driver name unkown:",driver
call judft_error("Unkown driver",calledby="gf_io2dmat")
write(0,*) "Driver name unknown:",driver
call judft_error("Unknown driver",calledby="gf_io2dmat")
ENDDO readloop
100 close(999)
......
......@@ -631,7 +631,7 @@ CONTAINS
!>
SUBROUTINE juDFT_time_lastlocation()
IF (ASSOCIATED(current_timer)) THEN
WRITE (0, *) "Last kown location:"
WRITE (0, *) "Last known location:"
WRITE (0, *) "Last timer:", current_timer%name
IF (lastline > 0) THEN
WRITE (0, *) "File:", TRIM(lastfile), ":", lastline
......
......@@ -116,7 +116,7 @@ MODULE m_types_xcpot_inbuild
! if exact exchange calculation do nothing
vxc = 0
ELSE
CALL juDFT_error("Unkown LDA potential",calledby="type xcpot")
CALL juDFT_error("Unknown LDA potential",calledby="type xcpot")
ENDIF
ENDIF
!
......@@ -194,7 +194,7 @@ MODULE m_types_xcpot_inbuild
ELSEIF (xcpot%is_name("exx")) THEN
CALL juDFT_error('EXX should now be treated as a GGA functional', calledby='xcpot_get_exc')
ELSE
CALL juDFT_error("Unkown LDA potential",calledby="type xcpot")
CALL juDFT_error("Unknown LDA potential",calledby="type xcpot")
ENDIF
ENDIF
!c-----> hartree units
......
......@@ -131,7 +131,7 @@ MODULE m_types_xcpot_inbuild_nofunction
xcpot%icorr=n
ENDIF
ENDDO
if (xcpot%icorr==0) CALL judft_error("Unkown xc-potential:"//xcpot%inbuild_name,calledby="types_xcpot.F90")
if (xcpot%icorr==0) CALL judft_error("Unknown xc-potential:"//xcpot%inbuild_name,calledby="types_xcpot.F90")
IF (xcpot%l_relativistic)THEN
xcpot%DATA%krla=1
ELSE
......
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