1
function task_smd(rtdb)
10
character*40 operation
15
if (.not. rtdb_cget(rtdb,'task:operation', 1,operation))
16
$ call errquit(pname,0, RTDB_ERR)
18
write(*,*) "found operation",operation
19
write(*,*) "Goodbye from task_smd"
23
c $Id: task_smd.F 21176 2011-10-10 06:35:49Z d3y133 $