int PlaneCouetteFlow_u(int *iwork, double *rwork, int nPoints, double t,
                       double *x, double *u) {
  int i;
  double vx = rwork[0], h = rwork[1];
  double ys = rwork[3];
  double Y;
  for (i = 0; i < nPoints; i++) {
    Y = x[i * 3 + 1] - ys;
    u[i] = vx * (Y / h);
  }
  return 0;
}


x86 assembly (clang, -O0):
<PlaneCouetteFlow_u>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movsd  %xmm0,-0x20(%rbp)
mov    %rcx,-0x28(%rbp)
mov    %r8,-0x30(%rbp)
mov    -0x10(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x10(%rbp),%rax
movsd  0x8(%rax),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x10(%rbp),%rax
movsd  0x18(%rax),%xmm0
movsd  %xmm0,-0x50(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11a3 <PlaneCouetteFlow_u+0xa3>
mov    -0x28(%rbp),%rax
imul   $0x3,-0x34(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x40(%rbp),%xmm0
movsd  -0x58(%rbp),%xmm1
divsd  -0x48(%rbp),%xmm1
mulsd  %xmm1,%xmm0
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    114c <PlaneCouetteFlow_u+0x4c>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<PlaneCouetteFlow_u>:
test   %edx,%edx
jle    121b <PlaneCouetteFlow_u+0x11b>
movsd  (%rsi),%xmm0
movsd  0x8(%rsi),%xmm1
movsd  0x18(%rsi),%xmm2
mov    %edx,%eax
cmp    $0x3,%edx
jb     113b <PlaneCouetteFlow_u+0x3b>
lea    0x8(%rcx),%rsi
lea    (%rax,%rax,2),%rdx
lea    (%rcx,%rdx,8),%rdx
add    $0xfffffffffffffff8,%rdx
cmp    %r8,%rdx
jbe    113f <PlaneCouetteFlow_u+0x3f>
lea    (%r8,%rax,8),%rdx
cmp    %rdx,%rsi
jae    113f <PlaneCouetteFlow_u+0x3f>
xor    %edx,%edx
jmp    1198 <PlaneCouetteFlow_u+0x98>
mov    %eax,%edx
and    $0x1,%edx
test   %rdx,%rdx
mov    $0x2,%edi
cmovne %rdx,%rdi
mov    %rax,%rdx
sub    %rdi,%rdx
movapd %xmm2,%xmm3
unpcklpd %xmm2,%xmm3
movapd %xmm1,%xmm4
unpcklpd %xmm1,%xmm4
movapd %xmm0,%xmm5
unpcklpd %xmm0,%xmm5
xor    %edi,%edi
movupd 0x10(%rsi),%xmm6
movlpd (%rsi),%xmm6
subpd  %xmm3,%xmm6
divpd  %xmm4,%xmm6
mulpd  %xmm5,%xmm6
movupd %xmm6,(%r8,%rdi,8)
add    $0x2,%rdi
add    $0x30,%rsi
cmp    %rdi,%rdx
jne    1170 <PlaneCouetteFlow_u+0x70>
mov    %eax,%edi
sub    %edx,%edi
mov    %rdx,%rsi
not    %rsi
test   $0x1,%dil
je     11c8 <PlaneCouetteFlow_u+0xc8>
lea    (%rdx,%rdx,2),%rdi
movsd  0x8(%rcx,%rdi,8),%xmm3
subsd  %xmm2,%xmm3
divsd  %xmm1,%xmm3
mulsd  %xmm0,%xmm3
movsd  %xmm3,(%r8,%rdx,8)
add    $0x1,%rdx
add    %rax,%rsi
je     121b <PlaneCouetteFlow_u+0x11b>
lea    (%rdx,%rdx,2),%rsi
lea    (%rcx,%rsi,8),%rcx
add    $0x20,%rcx
nopl   0x0(%rax)
movsd  -0x18(%rcx),%xmm3
subsd  %xmm2,%xmm3
divsd  %xmm1,%xmm3
mulsd  %xmm0,%xmm3
movsd  %xmm3,(%r8,%rdx,8)
movsd  (%rcx),%xmm3
subsd  %xmm2,%xmm3
divsd  %xmm1,%xmm3
mulsd  %xmm0,%xmm3
movsd  %xmm3,0x8(%r8,%rdx,8)
add    $0x2,%rdx
add    $0x30,%rcx
cmp    %rdx,%rax
jne    11e0 <PlaneCouetteFlow_u+0xe0>
xor    %eax,%eax
ret

LLVM IR (-O0):
define i32 @PlaneCouetteFlow_u(i32* %0, double* %1, i32 %2, double %3, double* %4, double* %5) {
%7 = alloca i32*
%8 = alloca double*
%9 = alloca i32
%10 = alloca double
%11 = alloca double*
%12 = alloca double*
%13 = alloca i32
%14 = alloca double
%15 = alloca double
%16 = alloca double
%17 = alloca double
store i32* %0, i32** %7
store double* %1, double** %8
store i32 %2, i32* %9
store double %3, double* %10
store double* %4, double** %11
store double* %5, double** %12
%18 = load double*, double** %8
%19 = getelementptr inbounds double, double* %18, i64 0
%20 = load double, double* %19
store double %20, double* %14
%21 = load double*, double** %8
%22 = getelementptr inbounds double, double* %21, i64 1
%23 = load double, double* %22
store double %23, double* %15
%24 = load double*, double** %8
%25 = getelementptr inbounds double, double* %24, i64 3
%26 = load double, double* %25
store double %26, double* %16
store i32 0, i32* %13
br label %27
27: ; preds = %50, %6
%28 = load i32, i32* %13
%29 = load i32, i32* %9
%30 = icmp slt i32 %28, %29
br i1 %30, label %31, label %53
31: ; preds = %27
%32 = load double*, double** %11
%33 = load i32, i32* %13
%34 = mul nsw i32 %33, 3
%35 = add nsw i32 %34, 1
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds double, double* %32, i64 %36
%38 = load double, double* %37
%39 = load double, double* %16
%40 = fsub double %38, %39
store double %40, double* %17
%41 = load double, double* %14
%42 = load double, double* %17
%43 = load double, double* %15
%44 = fdiv double %42, %43
%45 = fmul double %41, %44
%46 = load double*, double** %12
%47 = load i32, i32* %13
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds double, double* %46, i64 %48
store double %45, double* %49
br label %50
50: ; preds = %31
%51 = load i32, i32* %13
%52 = add nsw i32 %51, 1
store i32 %52, i32* %13
br label %27
53: ; preds = %27
ret i32 0
}

LLVM IR (-O2):
define i32 @PlaneCouetteFlow_u(i32* nocapture readnone %0, double* nocapture %1, i32 %2, double %3, double* nocapture %4, double* nocapture writeonly %5) {
%7 = load double, double* %1
%8 = getelementptr inbounds double, double* %1, i64 1
%9 = load double, double* %8
%10 = getelementptr inbounds double, double* %1, i64 3
%11 = load double, double* %10
%12 = icmp sgt i32 %2, 0
br i1 %12, label %13, label %92
13: ; preds = %6
%14 = zext i32 %2 to i64
%15 = icmp ult i32 %2, 3
br i1 %15, label %51, label %16
16: ; preds = %13
%17 = getelementptr double, double* %5, i64 %14
%18 = getelementptr double, double* %4, i64 1
%19 = mul nuw nsw i64 %14, 3
%20 = add nsw i64 %19, -1
%21 = getelementptr double, double* %4, i64 %20
%22 = icmp ugt double* %21, %5
%23 = icmp ult double* %18, %17
%24 = and i1 %22, %23
br i1 %24, label %51, label %25
25: ; preds = %16
%26 = and i64 %14, 1
%27 = icmp eq i64 %26, 0
%28 = select i1 %27, i64 2, i64 %26
%29 = sub nsw i64 %14, %28
%30 = insertelement <2 x double> poison, double %11, i64 0
%31 = shufflevector <2 x double> %30, <2 x double> poison, <2 x i32> zeroinitializer
%32 = insertelement <2 x double> poison, double %9, i64 0
%33 = shufflevector <2 x double> %32, <2 x double> poison, <2 x i32> zeroinitializer
%34 = insertelement <2 x double> poison, double %7, i64 0
%35 = shufflevector <2 x double> %34, <2 x double> poison, <2 x i32> zeroinitializer
br label %36
36: ; preds = %36, %25
%37 = phi i64 [ 0, %25 ], [ %49, %36 ]
%38 = mul nuw nsw i64 %37, 3
%39 = or i64 %38, 1
%40 = getelementptr inbounds double, double* %4, i64 %39
%41 = bitcast double* %40 to <6 x double>*
%42 = load <6 x double>, <6 x double>* %41
%43 = shufflevector <6 x double> %42, <6 x double> poison, <2 x i32> <i32 0, i32 3>
%44 = fsub <2 x double> %43, %31
%45 = fdiv <2 x double> %44, %33
%46 = fmul <2 x double> %35, %45
%47 = getelementptr inbounds double, double* %5, i64 %37
%48 = bitcast double* %47 to <2 x double>*
store <2 x double> %46, <2 x double>* %48
%49 = add nuw i64 %37, 2
%50 = icmp eq i64 %49, %29
br i1 %50, label %51, label %36
51: ; preds = %36, %16, %13
%52 = phi i64 [ 0, %16 ], [ 0, %13 ], [ %29, %36 ]
%53 = sub nsw i64 %14, %52
%54 = xor i64 %52, -1
%55 = and i64 %53, 1
%56 = icmp eq i64 %55, 0
br i1 %56, label %67, label %57
57: ; preds = %51
%58 = mul nuw nsw i64 %52, 3
%59 = add nuw nsw i64 %58, 1
%60 = getelementptr inbounds double, double* %4, i64 %59
%61 = load double, double* %60
%62 = fsub double %61, %11
%63 = fdiv double %62, %9
%64 = fmul double %7, %63
%65 = getelementptr inbounds double, double* %5, i64 %52
store double %64, double* %65
%66 = add nuw nsw i64 %52, 1
br label %67
67: ; preds = %57, %51
%68 = phi i64 [ %52, %51 ], [ %66, %57 ]
%69 = sub nsw i64 0, %14
%70 = icmp eq i64 %54, %69
br i1 %70, label %92, label %71
71: ; preds = %67, %71
%72 = phi i64 [ %90, %71 ], [ %68, %67 ]
%73 = mul nuw nsw i64 %72, 3
%74 = add nuw nsw i64 %73, 1
%75 = getelementptr inbounds double, double* %4, i64 %74
%76 = load double, double* %75
%77 = fsub double %76, %11
%78 = fdiv double %77, %9
%79 = fmul double %7, %78
%80 = getelementptr inbounds double, double* %5, i64 %72
store double %79, double* %80
%81 = add nuw nsw i64 %72, 1
%82 = mul nuw nsw i64 %81, 3
%83 = add nuw nsw i64 %82, 1
%84 = getelementptr inbounds double, double* %4, i64 %83
%85 = load double, double* %84
%86 = fsub double %85, %11
%87 = fdiv double %86, %9
%88 = fmul double %7, %87
%89 = getelementptr inbounds double, double* %5, i64 %81
store double %88, double* %89
%90 = add nuw nsw i64 %72, 2
%91 = icmp eq i64 %90, %14
br i1 %91, label %92, label %71
92: ; preds = %67, %71, %6
ret i32 0
}