function cget(n); complex :: cget; character(len=*),intent(in) :: n; call get_args(n,cget); end function cget