void make_cyclic(double *array1, double *array2, int nlon, int nlat) {
  int i, j;
  int ij1, ij2;
  for (j = 0; j < nlat; ++j) {
    for (i = 0; i < nlon; ++i) {
      ij1 = j * nlon + i;
      ij2 = j * (nlon + 1) + i;
      array2[ij2] = array1[ij1];
    }
  }
  for (j = 0; j < nlat; ++j) {
    ij2 = j * (nlon + 1);
    array2[ij2 + nlon] = array2[ij2];
  }
}


x86 assembly (clang, -O0):
<make_cyclic>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    1192 <make_cyclic+0x92>
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    117f <make_cyclic+0x7f>
mov    -0x20(%rbp),%eax
imul   -0x14(%rbp),%eax
add    -0x1c(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x20(%rbp),%eax
mov    -0x14(%rbp),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
add    -0x1c(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    112c <make_cyclic+0x2c>
jmp    1184 <make_cyclic+0x84>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1119 <make_cyclic+0x19>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    11e1 <make_cyclic+0xe1>
mov    -0x20(%rbp),%eax
mov    -0x14(%rbp),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
mov    %eax,-0x28(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    -0x14(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1199 <make_cyclic+0x99>
pop    %rbp
ret

x86 assembly (clang, -O2):
<make_cyclic>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
test   %ecx,%ecx
jle    1423 <make_cyclic+0x323>
lea    0x1(%rdx),%eax
movslq %edx,%rbp
cltq
mov    %ecx,-0x44(%rsp)
mov    %ecx,%r10d
mov    %ebp,%r8d
mov    %r8d,%ecx
and    $0xfffffffc,%ecx
mov    %rcx,-0x8(%rsp)
add    $0xfffffffffffffffc,%rcx
mov    %rcx,-0x10(%rsp)
mov    %rcx,%rbx
shr    $0x2,%rbx
add    $0x1,%rbx
mov    %rbx,%rcx
mov    %rbx,-0x18(%rsp)
and    $0xfffffffffffffffe,%rbx
mov    %rbx,-0x20(%rsp)
mov    %r8d,%r9d
and    $0x3,%r9d
lea    0x30(%rdi),%r13
mov    %rbp,-0x50(%rsp)
lea    0x0(,%rbp,8),%r12
lea    0x30(%rsi),%rcx
mov    %rax,-0x30(%rsp)
lea    0x0(,%rax,8),%r11
xor    %r15d,%r15d
mov    %rdi,-0x28(%rsp)
mov    %rsi,-0x58(%rsp)
mov    %rdx,-0x38(%rsp)
mov    %r9,-0x40(%rsp)
jmp    11b9 <make_cyclic+0xb9>
cs nopw 0x0(%rax,%rax,1)
add    $0x1,%r15
add    %r12,%r13
add    %r11,%rcx
add    %r11,%rsi
add    %r12,%rdi
cmp    %r10,%r15
je     135c <make_cyclic+0x25c>
test   %edx,%edx
jle    11a0 <make_cyclic+0xa0>
cmp    $0x4,%edx
jae    11d0 <make_cyclic+0xd0>
xor    %ebp,%ebp
jmp    12e0 <make_cyclic+0x1e0>
nopl   0x0(%rax)
mov    %r10,%rdx
mov    %r15,%r14
imul   -0x30(%rsp),%r14
mov    %r15,%r9
imul   -0x50(%rsp),%r9
lea    (%r9,%r8,1),%rax
mov    -0x58(%rsp),%rbp
lea    0x0(,%r14,8),%rbx
add    %rbp,%rbx
mov    -0x28(%rsp),%r10
lea    (%r10,%rax,8),%rax
cmp    %rax,%rbx
jae    1233 <make_cyclic+0x133>
lea    (%r14,%r8,1),%rax
lea    0x0(,%rax,8),%rax
add    %rbp,%rax
lea    (%r10,%r9,8),%rbx
cmp    %rax,%rbx
jae    1233 <make_cyclic+0x133>
xor    %ebp,%ebp
mov    %rdx,%r10
mov    -0x38(%rsp),%rdx
mov    -0x40(%rsp),%r9
jmp    12e0 <make_cyclic+0x1e0>
cmpq   $0x0,-0x10(%rsp)
je     1287 <make_cyclic+0x187>
mov    -0x20(%rsp),%rax
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movups -0x30(%r13,%rbp,8),%xmm0
movups -0x20(%r13,%rbp,8),%xmm1
movups %xmm0,-0x30(%rcx,%rbp,8)
movups %xmm1,-0x20(%rcx,%rbp,8)
movups -0x10(%r13,%rbp,8),%xmm0
movups 0x0(%r13,%rbp,8),%xmm1
movups %xmm0,-0x10(%rcx,%rbp,8)
movups %xmm1,(%rcx,%rbp,8)
add    $0x8,%rbp
add    $0xfffffffffffffffe,%rax
jne    1250 <make_cyclic+0x150>
jmp    1289 <make_cyclic+0x189>
xor    %ebp,%ebp
testb  $0x1,-0x18(%rsp)
mov    %rdx,%r10
je     12b9 <make_cyclic+0x1b9>
add    %rbp,%r9
add    %rbp,%r14
mov    -0x28(%rsp),%rax
movups (%rax,%r9,8),%xmm0
movups 0x10(%rax,%r9,8),%xmm1
mov    -0x58(%rsp),%rax
movups %xmm0,(%rax,%r14,8)
movups %xmm1,0x10(%rax,%r14,8)
mov    -0x8(%rsp),%rax
mov    %rax,%rbp
cmp    %r8,%rax
mov    -0x38(%rsp),%rdx
mov    -0x40(%rsp),%r9
je     11a0 <make_cyclic+0xa0>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %rbp,%rax
not    %rax
add    %r8,%rax
test   %r9,%r9
je     1314 <make_cyclic+0x214>
mov    %r9,%rbx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsd  (%rdi,%rbp,8),%xmm0
movsd  %xmm0,(%rsi,%rbp,8)
add    $0x1,%rbp
add    $0xffffffffffffffff,%rbx
jne    1300 <make_cyclic+0x200>
cmp    $0x3,%rax
jb     11a0 <make_cyclic+0xa0>
xchg   %ax,%ax
movsd  (%rdi,%rbp,8),%xmm0
movsd  %xmm0,(%rsi,%rbp,8)
movsd  0x8(%rdi,%rbp,8),%xmm0
movsd  %xmm0,0x8(%rsi,%rbp,8)
movsd  0x10(%rdi,%rbp,8),%xmm0
movsd  %xmm0,0x10(%rsi,%rbp,8)
movsd  0x18(%rdi,%rbp,8),%xmm0
movsd  %xmm0,0x18(%rsi,%rbp,8)
add    $0x4,%rbp
cmp    %rbp,%r8
jne    1320 <make_cyclic+0x220>
jmp    11a0 <make_cyclic+0xa0>
cmpl   $0x0,-0x44(%rsp)
mov    -0x30(%rsp),%r14
jle    1423 <make_cyclic+0x323>
lea    -0x1(%r10),%rax
mov    %r10d,%ecx
and    $0x3,%ecx
cmp    $0x3,%rax
jae    1380 <make_cyclic+0x280>
xor    %edx,%edx
jmp    13e7 <make_cyclic+0x2e7>
and    $0xfffffffc,%r10d
mov    %r14,%rsi
shl    $0x4,%rsi
mov    -0x50(%rsp),%rdx
lea    (%rsi,%rdx,8),%r8
mov    %r14,%rbp
shl    $0x5,%rbp
lea    (%rdx,%r14,1),%r9
lea    (%r11,%r11,2),%rax
lea    (%rax,%rdx,8),%rdi
xor    %edx,%edx
mov    -0x58(%rsp),%rbx
xchg   %ax,%ax
movsd  (%rbx),%xmm0
movsd  %xmm0,(%rbx,%r12,1)
movsd  (%rbx,%r14,8),%xmm0
movsd  %xmm0,(%rbx,%r9,8)
movsd  (%rbx,%rsi,1),%xmm0
movsd  %xmm0,(%rbx,%r8,1)
movsd  (%rbx,%rax,1),%xmm0
movsd  %xmm0,(%rbx,%rdi,1)
add    $0x4,%rdx
add    %rbp,%rbx
cmp    %rdx,%r10
jne    13b0 <make_cyclic+0x2b0>
test   %rcx,%rcx
mov    -0x58(%rsp),%rsi
je     1423 <make_cyclic+0x323>
mov    -0x50(%rsp),%rax
lea    (%rsi,%rax,8),%rax
imul   %r14,%rdx
shl    $0x3,%rdx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  (%rsi,%rdx,1),%xmm0
movsd  %xmm0,(%rax,%rdx,1)
add    %r11,%rdx
add    $0xffffffffffffffff,%rcx
jne    1410 <make_cyclic+0x310>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @make_cyclic(double* %0, double* %1, i32 %2, i32 %3) {
%5 = alloca double*
%6 = alloca double*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
store double* %0, double** %5
store double* %1, double** %6
store i32 %2, i32* %7
store i32 %3, i32* %8
store i32 0, i32* %10
br label %13
13: ; preds = %47, %4
%14 = load i32, i32* %10
%15 = load i32, i32* %8
%16 = icmp slt i32 %14, %15
br i1 %16, label %17, label %50
17: ; preds = %13
store i32 0, i32* %9
br label %18
18: ; preds = %43, %17
%19 = load i32, i32* %9
%20 = load i32, i32* %7
%21 = icmp slt i32 %19, %20
br i1 %21, label %22, label %46
22: ; preds = %18
%23 = load i32, i32* %10
%24 = load i32, i32* %7
%25 = mul nsw i32 %23, %24
%26 = load i32, i32* %9
%27 = add nsw i32 %25, %26
store i32 %27, i32* %11
%28 = load i32, i32* %10
%29 = load i32, i32* %7
%30 = add nsw i32 %29, 1
%31 = mul nsw i32 %28, %30
%32 = load i32, i32* %9
%33 = add nsw i32 %31, %32
store i32 %33, i32* %12
%34 = load double*, double** %5
%35 = load i32, i32* %11
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds double, double* %34, i64 %36
%38 = load double, double* %37
%39 = load double*, double** %6
%40 = load i32, i32* %12
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds double, double* %39, i64 %41
store double %38, double* %42
br label %43
43: ; preds = %22
%44 = load i32, i32* %9
%45 = add nsw i32 %44, 1
store i32 %45, i32* %9
br label %18
46: ; preds = %18
br label %47
47: ; preds = %46
%48 = load i32, i32* %10
%49 = add nsw i32 %48, 1
store i32 %49, i32* %10
br label %13
50: ; preds = %13
store i32 0, i32* %10
br label %51
51: ; preds = %71, %50
%52 = load i32, i32* %10
%53 = load i32, i32* %8
%54 = icmp slt i32 %52, %53
br i1 %54, label %55, label %74
55: ; preds = %51
%56 = load i32, i32* %10
%57 = load i32, i32* %7
%58 = add nsw i32 %57, 1
%59 = mul nsw i32 %56, %58
store i32 %59, i32* %12
%60 = load double*, double** %6
%61 = load i32, i32* %12
%62 = sext i32 %61 to i64
%63 = getelementptr inbounds double, double* %60, i64 %62
%64 = load double, double* %63
%65 = load double*, double** %6
%66 = load i32, i32* %12
%67 = load i32, i32* %7
%68 = add nsw i32 %66, %67
%69 = sext i32 %68 to i64
%70 = getelementptr inbounds double, double* %65, i64 %69
store double %64, double* %70
br label %71
71: ; preds = %55
%72 = load i32, i32* %10
%73 = add nsw i32 %72, 1
store i32 %73, i32* %10
br label %51
74: ; preds = %51
ret void
}

LLVM IR (-O2):
define void @make_cyclic(double* nocapture %0, double* nocapture %1, i32 %2, i32 %3) {
%5 = icmp sgt i32 %3, 0
br i1 %5, label %6, label %193
6: ; preds = %4
%7 = icmp sgt i32 %2, 0
%8 = add i32 %2, 1
%9 = sext i32 %2 to i64
%10 = sext i32 %8 to i64
%11 = zext i32 %3 to i64
%12 = zext i32 %2 to i64
%13 = and i64 %12, 4294967292
%14 = add nsw i64 %13, -4
%15 = lshr exact i64 %14, 2
%16 = add nuw nsw i64 %15, 1
%17 = icmp ult i32 %2, 4
%18 = and i64 %12, 4294967292
%19 = and i64 %16, 1
%20 = icmp eq i64 %14, 0
%21 = and i64 %16, 9223372036854775806
%22 = icmp eq i64 %19, 0
%23 = icmp eq i64 %18, %12
%24 = and i64 %12, 3
%25 = icmp eq i64 %24, 0
br label %26
26: ; preds = %6, %147
%27 = phi i64 [ 0, %6 ], [ %148, %147 ]
%28 = mul i64 %27, %10
%29 = getelementptr double, double* %1, i64 %28
%30 = add i64 %28, %12
%31 = getelementptr double, double* %1, i64 %30
%32 = mul i64 %27, %9
%33 = getelementptr double, double* %0, i64 %32
%34 = add i64 %32, %12
%35 = getelementptr double, double* %0, i64 %34
br i1 %7, label %36, label %147
36: ; preds = %26
%37 = mul nsw i64 %27, %9
%38 = mul nsw i64 %27, %10
br i1 %17, label %91, label %39
39: ; preds = %36
%40 = icmp ult double* %29, %35
%41 = icmp ult double* %33, %31
%42 = and i1 %40, %41
br i1 %42, label %91, label %43
43: ; preds = %39
br i1 %20, label %75, label %44
44: ; preds = %43, %44
%45 = phi i64 [ %72, %44 ], [ 0, %43 ]
%46 = phi i64 [ %73, %44 ], [ 0, %43 ]
%47 = add nsw i64 %45, %37
%48 = add nsw i64 %45, %38
%49 = getelementptr inbounds double, double* %0, i64 %47
%50 = bitcast double* %49 to <2 x double>*
%51 = load <2 x double>, <2 x double>* %50
%52 = getelementptr inbounds double, double* %49, i64 2
%53 = bitcast double* %52 to <2 x double>*
%54 = load <2 x double>, <2 x double>* %53
%55 = getelementptr inbounds double, double* %1, i64 %48
%56 = bitcast double* %55 to <2 x double>*
store <2 x double> %51, <2 x double>* %56
%57 = getelementptr inbounds double, double* %55, i64 2
%58 = bitcast double* %57 to <2 x double>*
store <2 x double> %54, <2 x double>* %58
%59 = or i64 %45, 4
%60 = add nsw i64 %59, %37
%61 = add nsw i64 %59, %38
%62 = getelementptr inbounds double, double* %0, i64 %60
%63 = bitcast double* %62 to <2 x double>*
%64 = load <2 x double>, <2 x double>* %63
%65 = getelementptr inbounds double, double* %62, i64 2
%66 = bitcast double* %65 to <2 x double>*
%67 = load <2 x double>, <2 x double>* %66
%68 = getelementptr inbounds double, double* %1, i64 %61
%69 = bitcast double* %68 to <2 x double>*
store <2 x double> %64, <2 x double>* %69
%70 = getelementptr inbounds double, double* %68, i64 2
%71 = bitcast double* %70 to <2 x double>*
store <2 x double> %67, <2 x double>* %71
%72 = add nuw i64 %45, 8
%73 = add i64 %46, 2
%74 = icmp eq i64 %73, %21
br i1 %74, label %75, label %44
75: ; preds = %44, %43
%76 = phi i64 [ 0, %43 ], [ %72, %44 ]
br i1 %22, label %90, label %77
77: ; preds = %75
%78 = add nsw i64 %76, %37
%79 = add nsw i64 %76, %38
%80 = getelementptr inbounds double, double* %0, i64 %78
%81 = bitcast double* %80 to <2 x double>*
%82 = load <2 x double>, <2 x double>* %81
%83 = getelementptr inbounds double, double* %80, i64 2
%84 = bitcast double* %83 to <2 x double>*
%85 = load <2 x double>, <2 x double>* %84
%86 = getelementptr inbounds double, double* %1, i64 %79
%87 = bitcast double* %86 to <2 x double>*
store <2 x double> %82, <2 x double>* %87
%88 = getelementptr inbounds double, double* %86, i64 2
%89 = bitcast double* %88 to <2 x double>*
store <2 x double> %85, <2 x double>* %89
br label %90
90: ; preds = %75, %77
br i1 %23, label %147, label %91
91: ; preds = %39, %36, %90
%92 = phi i64 [ 0, %39 ], [ 0, %36 ], [ %18, %90 ]
%93 = xor i64 %92, -1
%94 = add nsw i64 %93, %12
br i1 %25, label %106, label %95
95: ; preds = %91, %95
%96 = phi i64 [ %103, %95 ], [ %92, %91 ]
%97 = phi i64 [ %104, %95 ], [ 0, %91 ]
%98 = add nsw i64 %96, %37
%99 = add nsw i64 %96, %38
%100 = getelementptr inbounds double, double* %0, i64 %98
%101 = load double, double* %100
%102 = getelementptr inbounds double, double* %1, i64 %99
store double %101, double* %102
%103 = add nuw nsw i64 %96, 1
%104 = add i64 %97, 1
%105 = icmp eq i64 %104, %24
br i1 %105, label %106, label %95
106: ; preds = %95, %91
%107 = phi i64 [ %92, %91 ], [ %103, %95 ]
%108 = icmp ult i64 %94, 3
br i1 %108, label %147, label %120
109: ; preds = %147
br i1 %5, label %110, label %193
110: ; preds = %109
%111 = add nsw i32 %2, 1
%112 = sext i32 %111 to i64
%113 = sext i32 %2 to i64
%114 = zext i32 %3 to i64
%115 = add nsw i64 %114, -1
%116 = and i64 %114, 3
%117 = icmp ult i64 %115, 3
br i1 %117, label %179, label %118
118: ; preds = %110
%119 = and i64 %114, 4294967292
br label %150
120: ; preds = %106, %120
%121 = phi i64 [ %145, %120 ], [ %107, %106 ]
%122 = add nsw i64 %121, %37
%123 = add nsw i64 %121, %38
%124 = getelementptr inbounds double, double* %0, i64 %122
%125 = load double, double* %124
%126 = getelementptr inbounds double, double* %1, i64 %123
store double %125, double* %126
%127 = add nuw nsw i64 %121, 1
%128 = add nsw i64 %127, %37
%129 = add nsw i64 %127, %38
%130 = getelementptr inbounds double, double* %0, i64 %128
%131 = load double, double* %130
%132 = getelementptr inbounds double, double* %1, i64 %129
store double %131, double* %132
%133 = add nuw nsw i64 %121, 2
%134 = add nsw i64 %133, %37
%135 = add nsw i64 %133, %38
%136 = getelementptr inbounds double, double* %0, i64 %134
%137 = load double, double* %136
%138 = getelementptr inbounds double, double* %1, i64 %135
store double %137, double* %138
%139 = add nuw nsw i64 %121, 3
%140 = add nsw i64 %139, %37
%141 = add nsw i64 %139, %38
%142 = getelementptr inbounds double, double* %0, i64 %140
%143 = load double, double* %142
%144 = getelementptr inbounds double, double* %1, i64 %141
store double %143, double* %144
%145 = add nuw nsw i64 %121, 4
%146 = icmp eq i64 %145, %12
br i1 %146, label %147, label %120
147: ; preds = %106, %120, %90, %26
%148 = add nuw nsw i64 %27, 1
%149 = icmp eq i64 %148, %11
br i1 %149, label %109, label %26
150: ; preds = %150, %118
%151 = phi i64 [ 0, %118 ], [ %176, %150 ]
%152 = phi i64 [ 0, %118 ], [ %177, %150 ]
%153 = mul nsw i64 %151, %112
%154 = getelementptr inbounds double, double* %1, i64 %153
%155 = load double, double* %154
%156 = add nsw i64 %153, %113
%157 = getelementptr inbounds double, double* %1, i64 %156
store double %155, double* %157
%158 = or i64 %151, 1
%159 = mul nsw i64 %158, %112
%160 = getelementptr inbounds double, double* %1, i64 %159
%161 = load double, double* %160
%162 = add nsw i64 %159, %113
%163 = getelementptr inbounds double, double* %1, i64 %162
store double %161, double* %163
%164 = or i64 %151, 2
%165 = mul nsw i64 %164, %112
%166 = getelementptr inbounds double, double* %1, i64 %165
%167 = load double, double* %166
%168 = add nsw i64 %165, %113
%169 = getelementptr inbounds double, double* %1, i64 %168
store double %167, double* %169
%170 = or i64 %151, 3
%171 = mul nsw i64 %170, %112
%172 = getelementptr inbounds double, double* %1, i64 %171
%173 = load double, double* %172
%174 = add nsw i64 %171, %113
%175 = getelementptr inbounds double, double* %1, i64 %174
store double %173, double* %175
%176 = add nuw nsw i64 %151, 4
%177 = add i64 %152, 4
%178 = icmp eq i64 %177, %119
br i1 %178, label %179, label %150
179: ; preds = %150, %110
%180 = phi i64 [ 0, %110 ], [ %176, %150 ]
%181 = icmp eq i64 %116, 0
br i1 %181, label %193, label %182
182: ; preds = %179, %182
%183 = phi i64 [ %190, %182 ], [ %180, %179 ]
%184 = phi i64 [ %191, %182 ], [ 0, %179 ]
%185 = mul nsw i64 %183, %112
%186 = getelementptr inbounds double, double* %1, i64 %185
%187 = load double, double* %186
%188 = add nsw i64 %185, %113
%189 = getelementptr inbounds double, double* %1, i64 %188
store double %187, double* %189
%190 = add nuw nsw i64 %183, 1
%191 = add i64 %184, 1
%192 = icmp eq i64 %191, %116
br i1 %192, label %193, label %182
193: ; preds = %179, %182, %4, %109
ret void
}