void ptens(t, r, m, n) double **t;
int r, n, m;
{
  int j;
  double *d;
  if (r <= 1) {
    d = (double *)t;
    for (j = 1; j <= n; j++)
      printf("%le ", d[j]);
    printf("\n");
  } else {
    for (j = 1; j <= m; j++) {
      d = t[j];
      ptens((double **)d, r - 1, n, n);
      if ((r >= 3) && (j < m))
        printf("\n");
    }
  }
}


x86 assembly (clang, -O0):
<ptens>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
cmpl   $0x1,-0xc(%rbp)
jg     1196 <ptens+0x76>
mov    -0x8(%rbp),%rax
mov    %rax,-0x20(%rbp)
movl   $0x1,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     1183 <ptens+0x63>
mov    -0x20(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
lea    0xe92(%rip),%rdi
mov    $0x1,%al
call   1030 <printf@plt>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    114e <ptens+0x2e>
lea    0xe7b(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
jmp    120a <ptens+0xea>
movl   $0x1,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x10(%rbp),%eax
jg     1205 <ptens+0xe5>
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rdi
mov    -0xc(%rbp),%esi
sub    $0x1,%esi
mov    -0x14(%rbp),%edx
mov    -0x14(%rbp),%ecx
call   1040 <ptens@plt>
cmpl   $0x3,-0xc(%rbp)
jl     11f2 <ptens+0xd2>
mov    -0x18(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    11f2 <ptens+0xd2>
lea    0xe1a(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
jmp    11f7 <ptens+0xd7>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    119d <ptens+0x7d>
jmp    120a <ptens+0xea>
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ptens>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %ecx,%ebx
mov    %rdi,%r14
cmp    $0x2,%esi
jge    1191 <ptens+0x61>
test   %ebx,%ebx
jle    1179 <ptens+0x49>
add    $0x1,%ebx
mov    $0x1,%ebp
lea    0xea8(%rip),%r15
nopl   0x0(%rax,%rax,1)
movsd  (%r14,%rbp,8),%xmm0
mov    %r15,%rdi
mov    $0x1,%al
call   1040 <printf@plt>
add    $0x1,%rbp
cmp    %rbp,%rbx
jne    1160 <ptens+0x30>
mov    $0xa,%edi
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1030 <putchar@plt>
mov    %edx,%r15d
test   %edx,%edx
jle    11f0 <ptens+0xc0>
mov    %esi,%r12d
lea    -0x1(%r12),%ebp
mov    %r15d,%eax
mov    %rax,(%rsp)
add    $0x1,%r15d
mov    $0x1,%r13d
jmp    11c9 <ptens+0x99>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    $0x1,%r13
cmp    %r13,%r15
je     11f0 <ptens+0xc0>
mov    (%r14,%r13,8),%rdi
mov    %ebp,%esi
mov    %ebx,%edx
mov    %ebx,%ecx
call   1050 <ptens@plt>
cmp    $0x3,%r12d
jb     11c0 <ptens+0x90>
cmp    (%rsp),%r13
jae    11c0 <ptens+0x90>
mov    $0xa,%edi
call   1030 <putchar@plt>
jmp    11c0 <ptens+0x90>
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [5 x i8] c"%le \00"
@.str.1 = [2 x i8] c"\0A\00"
define void @ptens(double** %0, i32 %1, i32 %2, i32 %3) {
%5 = alloca double**
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca double*
store double** %0, double*** %5
store i32 %1, i32* %6
store i32 %2, i32* %7
store i32 %3, i32* %8
%11 = load i32, i32* %6
%12 = icmp sle i32 %11, 1
br i1 %12, label %13, label %32
13: ; preds = %4
%14 = load double**, double*** %5
%15 = bitcast double** %14 to double*
store double* %15, double** %10
store i32 1, i32* %9
br label %16
16: ; preds = %27, %13
%17 = load i32, i32* %9
%18 = load i32, i32* %8
%19 = icmp sle i32 %17, %18
br i1 %19, label %20, label %30
20: ; preds = %16
%21 = load double*, double** %10
%22 = load i32, i32* %9
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds double, double* %21, i64 %23
%25 = load double, double* %24
%26 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str, i64 0, i64 0), double %25)
br label %27
27: ; preds = %20
%28 = load i32, i32* %9
%29 = add nsw i32 %28, 1
store i32 %29, i32* %9
br label %16
30: ; preds = %16
%31 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0))
br label %62
32: ; preds = %4
store i32 1, i32* %9
br label %33
33: ; preds = %58, %32
%34 = load i32, i32* %9
%35 = load i32, i32* %7
%36 = icmp sle i32 %34, %35
br i1 %36, label %37, label %61
37: ; preds = %33
%38 = load double**, double*** %5
%39 = load i32, i32* %9
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds double*, double** %38, i64 %40
%42 = load double*, double** %41
store double* %42, double** %10
%43 = load double*, double** %10
%44 = bitcast double* %43 to double**
%45 = load i32, i32* %6
%46 = sub nsw i32 %45, 1
%47 = load i32, i32* %8
%48 = load i32, i32* %8
%49 = load i32, i32* %6
%50 = icmp sge i32 %49, 3
br i1 %50, label %51, label %57
51: ; preds = %37
%52 = load i32, i32* %9
%53 = load i32, i32* %7
%54 = icmp slt i32 %52, %53
br i1 %54, label %55, label %57
55: ; preds = %51
%56 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0))
br label %57
57: ; preds = %55, %51, %37
br label %58
58: ; preds = %57
%59 = load i32, i32* %9
%60 = add nsw i32 %59, 1
store i32 %60, i32* %9
br label %33
61: ; preds = %33
br label %62
62: ; preds = %61, %30
ret void
}

LLVM IR (-O2):
@.str = [5 x i8] c"%le \00"
define void @ptens(double** nocapture %0, i32 %1, i32 %2, i32 %3) {
%5 = icmp slt i32 %1, 2
br i1 %5, label %14, label %6
6: ; preds = %4
%7 = icmp slt i32 %2, 1
br i1 %7, label %41, label %8
8: ; preds = %6
%9 = add nsw i32 %1, -1
%10 = icmp ugt i32 %1, 2
%11 = zext i32 %2 to i64
%12 = add nuw i32 %2, 1
%13 = zext i32 %12 to i64
br label %29
14: ; preds = %4
%15 = icmp slt i32 %3, 1
br i1 %15, label %27, label %16
16: ; preds = %14
%17 = add nuw i32 %3, 1
%18 = zext i32 %17 to i64
br label %19
19: ; preds = %16, %19
%20 = phi i64 [ 1, %16 ], [ %25, %19 ]
%21 = getelementptr inbounds double*, double** %0, i64 %20
%22 = bitcast double** %21 to double*
%23 = load double, double* %22
%24 = tail call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([5 x i8], [5 x i8]* @.str, i64 0, i64 0), double %23)
%25 = add nuw nsw i64 %20, 1
%26 = icmp eq i64 %25, %18
br i1 %26, label %27, label %19
27: ; preds = %19, %14
%28 = tail call i32 @putchar(i32 10)
br label %41
29: ; preds = %8, %38
%30 = phi i64 [ 1, %8 ], [ %39, %38 ]
%31 = getelementptr inbounds double*, double** %0, i64 %30
%32 = bitcast double** %31 to double***
%33 = load double**, double*** %32
tail call void @ptens(double** %33, i32 %9, i32 %3, i32 %3)
%34 = icmp ult i64 %30, %11
%35 = select i1 %10, i1 %34, i1 false
br i1 %35, label %36, label %38
36: ; preds = %29
%37 = tail call i32 @putchar(i32 10)
br label %38
38: ; preds = %29, %36
%39 = add nuw nsw i64 %30, 1
%40 = icmp eq i64 %39, %13
br i1 %40, label %41, label %29
41: ; preds = %38, %6, %27
ret void
}