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

This really bothered me.

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