subroutine readcli()
flush(unit=6)
call set_args(command)
! integer
call get_args('x',x)
call get_args('y',y)
call get_args('z',z)
call get_args('ints',ints)
call get_args_fixed_size('ithree',ithree)
! logical
call get_args('l_x',l_x)
call get_args('l_y',l_y)
call get_args('logicals',logicals)
call get_args_fixed_size('lfive',lfive)
! real
call get_args('r_x',r_x)
call get_args('r_y',r_y)
call get_args('r_z',r_z)
call get_args('reals',reals)
call get_args_fixed_size('rfour',rfour)
! character
call get_args_fixed_length('string',string)
! complex
call get_args('c_x',c_x)
call get_args('c_y',c_y)
call get_args('c_z',c_z)
call get_args('c_aarr',c_aarr)
call get_args_fixed_size('c_three',c_three)
!
call get_args('casen',casen)
end subroutine readcli