2
c Task handler for real time TDDFT
4
logical function task_rt_tddft(rtdb)
10
#include "mafdecls.fh"
19
double precision cputime, walltime
21
logical sodft_rt_tddft
23
external sodft_rt_tddft
27
cputime = util_cpusec()
28
walltime = util_wallsec()
31
if (.not. rtdb_cget(rtdb, 'task:theory', 1, theory))
32
& call errquit('task:rt_tddft: theory not specified',0, RTDB_ERR)
34
if (theory.eq.'dft') then
35
status = dft_rt_tddft(rtdb)
36
elseif (theory.eq.'sodft') then
37
status = sodft_rt_tddft(rtdb)
44
cputime = util_cpusec() - cputime
45
walltime = util_wallsec() - walltime
47
task_rt_tddft = status