Commit ffdc1568 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix for argument handling

parent 3794b1b8
......@@ -54,7 +54,7 @@ CONTAINS
!Matrices for Hamiltonian and Overlapp
!In noco case we need 4-matrices for each spin channel
nspins=MERGE(2,1,noco%l_noco)
IF (mpi%n_size==1) THEN
IF (mpi%n_size==1) THEN
IF (judft_was_argument("-gpu")) THEN
ALLOCATE(t_gpumat::smat(nspins,nspins),hmat(nspins,nspins))
ELSE
......
......@@ -64,12 +64,8 @@ MODULE m_fleur_arguments
,t_fleur_param(0,"-last_extra","Generate an additional file cdn_last.hdf that contains only the last density","")&
,t_fleur_param(2,"-sd","use starting density N, where N is the index of the density according to -info","")&
,t_fleur_param(1,"-delden","delete densities (either an index N, a range N-M or the keyword 'allbutlast' should be given)","")&
#ifdef CPP_GPU
!GPU paramter
!GPU parameter
,t_fleur_param(0,"-gpu","Use GPU for computing","")&
#else
,t_fleur_param(0,"","","")&
#endif
/)
......
......@@ -42,6 +42,9 @@ CONTAINS
CALL print_argument("-h")
WRITE(*,'(a)')""
WRITE(*,'(a)')"Control FLEUR job:"
#ifdef CPP_GPU
CALL print_argument("-gpu")
#endif
CALL print_argument("-check")
CALL print_argument("-info")
CALL print_argument("-wtime")
......@@ -63,7 +66,8 @@ CONTAINS
CALL print_argument("-last_extra")
CALL print_argument("-sd")
CALL print_argument("-delden")
#endif
#endif
WRITE(*,'(a)')""
WRITE(*,'(a)')"Please check the documentation on www.flapw.de for more details."
......
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