#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */
typedef int /*<<< orphan*/ FILE;

/* Variables and functions */
int /*<<< orphan*/ QDIFF_(float ***);
int /*<<< orphan*/ fclose(int /*<<< orphan*/ *);
int /*<<< orphan*/ *fopen(char *, char *);
int /*<<< orphan*/ fprintf(int /*<<< orphan*/ *, char *, ...);
int main() {
  FILE *fp;
  float potential[70][70][70];
  char sbuff[128];
  fp = fopen("fort.10", "w");
  fprintf(fp, "gsize=%d\n", 65);
  fprintf(fp, "scale=%.2f\n", 0.5);
  fprintf(fp, "in(unpdb,file=\"fort.13\")\n");
  fprintf(fp, "indi=%.1f\n", 4.0);
  fprintf(fp, "exdi=%.1f\n", 80.0);
  fprintf(fp, "ionrad=%.1f\n", 1.4);
  fprintf(fp, "salt=%.2f\n", 0);
  fprintf(fp, "bndcon=2\n");
  fprintf(fp, "center(777, 777, 0)\n");
  fprintf(fp, "out(phi,file=\"run01.phi\")\n");
  fprintf(fp, "site(a,c,p)\n");
  fprintf(fp, "energy(g,s)\n");
  fclose(fp);
  QDIFF_(potential);
  fp = fopen("fort.10", "w");
  fprintf(fp, "gsize=%d\n", 65);
  fprintf(fp, "scale=%.2f\n", 0.5);
  fprintf(fp, "in(unpdb,file=\"fort.13\")\n");
  fprintf(fp, "indi=%.1f\n", 4.0);
  fprintf(fp, "exdi=%.1f\n", 80.0);
  fprintf(fp, "ionrad=%.1f\n", 1.4);
  fprintf(fp, "salt=%.2f\n", 0);
  fprintf(fp, "bndcon=3\n");
  fprintf(fp, "center(777, 777, 0)\n");
  fprintf(fp, "out(phi,file=\"run01.phi\")\n");
  fprintf(fp, "site(a,c,p)\n");
  fprintf(fp, "energy(g,s)\n");
  fclose(fp);
  QDIFF_(potential);
  fp = fopen("fort.10", "w");
  fprintf(fp, "gsize=%d\n", 65);
  fprintf(fp, "scale=%.2f\n", 0.5);
  fprintf(fp, "in(unpdb,file=\"fort.13\")\n");
  fprintf(fp, "indi=%.1f\n", 4.0);
  fprintf(fp, "exdi=%.1f\n", 80.0);
  fprintf(fp, "ionrad=%.1f\n", 1.4);
  fprintf(fp, "salt=%.2f\n", 0);
  fprintf(fp, "bndcon=3\n");
  fprintf(fp, "center(777, 777, 0)\n");
  fprintf(fp, "out(phi,file=\"run01.phi\")\n");
  fprintf(fp, "site(a,c,p)\n");
  fprintf(fp, "energy(g,s)\n");
  fclose(fp);
  QDIFF_(potential);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x14eff0,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xec7(%rip),%rdi
lea    0xec8(%rip),%rsi
call   1060 <fopen@plt>
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rdi
lea    0xeb6(%rip),%rsi
mov    $0x41,%edx
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xea9(%rip),%rsi
movsd  0xe85(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xe9b(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xea3(%rip),%rsi
movsd  0xe51(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xe94(%rip),%rsi
movsd  0xe2f(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xe85(%rip),%rsi
movsd  0xe0d(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xe78(%rip),%rsi
xor    %edx,%edx
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xe6f(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xe67(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xe6a(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xe73(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xe6e(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
call   1030 <fclose@plt>
lea    -0x14ef70(%rbp),%rdi
call   1050 <QDIFF_@plt>
lea    0xd9c(%rip),%rdi
lea    0xd9d(%rip),%rsi
call   1060 <fopen@plt>
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rdi
lea    0xd8b(%rip),%rsi
mov    $0x41,%edx
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xd7e(%rip),%rsi
movsd  0xd5a(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xd70(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xd78(%rip),%rsi
movsd  0xd26(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xd69(%rip),%rsi
movsd  0xd04(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xd5a(%rip),%rsi
movsd  0xce2(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xd4d(%rip),%rsi
xor    %edx,%edx
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xd98(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xd3c(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xd3f(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xd48(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xd43(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
call   1030 <fclose@plt>
lea    -0x14ef70(%rbp),%rdi
call   1050 <QDIFF_@plt>
lea    0xc71(%rip),%rdi
lea    0xc72(%rip),%rsi
call   1060 <fopen@plt>
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rdi
lea    0xc60(%rip),%rsi
mov    $0x41,%edx
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xc53(%rip),%rsi
movsd  0xc2f(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xc45(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xc4d(%rip),%rsi
movsd  0xbfb(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xc3e(%rip),%rsi
movsd  0xbd9(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xc2f(%rip),%rsi
movsd  0xbb7(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xc22(%rip),%rsi
xor    %edx,%edx
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xc6d(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xc11(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xc14(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xc1d(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xc18(%rip),%rsi
mov    $0x0,%al
call   1040 <fprintf@plt>
mov    -0x10(%rbp),%rdi
call   1030 <fclose@plt>
lea    -0x14ef70(%rbp),%rdi
call   1050 <QDIFF_@plt>
xor    %eax,%eax
add    $0x14eff0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x14ef68,%rsp
lea    0xeb8(%rip),%r13
lea    0xeb9(%rip),%r12
mov    %r13,%rdi
mov    %r12,%rsi
call   1060 <fopen@plt>
mov    %rax,%rbx
lea    0xea6(%rip),%rsi
mov    %rax,%rdi
mov    $0x41,%edx
xor    %eax,%eax
call   1040 <fprintf@plt>
lea    0xe9a(%rip),%rsi
movsd  0xe5e(%rip),%xmm0
mov    %rbx,%rdi
mov    $0x1,%al
call   1040 <fprintf@plt>
lea    0xe8d(%rip),%r15
mov    $0x19,%esi
mov    $0x1,%edx
mov    %r15,%rdi
mov    %rbx,%rcx
call   1070 <fwrite@plt>
lea    0xe8b(%rip),%rsi
movsd  0xe31(%rip),%xmm0
mov    %rbx,%rdi
mov    $0x1,%al
call   1040 <fprintf@plt>
lea    0xe7d(%rip),%r14
movsd  0xe20(%rip),%xmm0
mov    %rbx,%rdi
mov    %r14,%rsi
mov    $0x1,%al
call   1040 <fprintf@plt>
lea    0xe6c(%rip),%rsi
movsd  0xe0c(%rip),%xmm0
mov    %rbx,%rdi
mov    $0x1,%al
call   1040 <fprintf@plt>
lea    0xe60(%rip),%rsi
mov    %rbx,%rdi
xor    %edx,%edx
xor    %eax,%eax
call   1040 <fprintf@plt>
lea    0xe58(%rip),%rdi
mov    $0x9,%esi
mov    $0x1,%edx
mov    %rbx,%rcx
call   1070 <fwrite@plt>
lea    0xe49(%rip),%rdi
mov    $0x14,%esi
mov    $0x1,%edx
mov    %rbx,%rcx
call   1070 <fwrite@plt>
lea    0xe45(%rip),%rdi
mov    $0x1a,%esi
mov    $0x1,%edx
mov    %rbx,%rcx
call   1070 <fwrite@plt>
lea    0xe47(%rip),%rdi
mov    $0xc,%esi
mov    $0x1,%edx
mov    %rbx,%rcx
call   1070 <fwrite@plt>
lea    0xe3b(%rip),%rbp
mov    $0xc,%esi
mov    $0x1,%edx
mov    %rbp,%rdi
mov    %rbx,%rcx
call   1070 <fwrite@plt>
mov    %rbx,%rdi
call   1030 <fclose@plt>
mov    %rsp,%rdi
call   1050 <QDIFF_@plt>
mov    %r13,%rdi
mov    %r12,%rsi
call   1060 <fopen@plt>
mov    %rax,%r13
mov    %rax,%rdi
lea    0xd59(%rip),%r12
mov    %r12,%rsi
mov    $0x41,%edx
xor    %eax,%eax
call   1040 <fprintf@plt>
mov    %r13,%rdi
lea    0xd4a(%rip),%rsi
movsd  0xd0e(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    $0x19,%esi
mov    $0x1,%edx
mov    %r15,%rdi
mov    %r13,%rcx
call   1070 <fwrite@plt>
mov    %r13,%rdi
lea    0xd42(%rip),%r15
mov    %r15,%rsi
movsd  0xce5(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    %r13,%rdi
mov    %r14,%rsi
movsd  0xcd8(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    %r13,%rdi
lea    0xd27(%rip),%r14
mov    %r14,%rsi
movsd  0xcc4(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    %r13,%rdi
lea    0xd18(%rip),%rsi
xor    %edx,%edx
xor    %eax,%eax
call   1040 <fprintf@plt>
lea    0xd67(%rip),%rdi
mov    $0x9,%esi
mov    $0x1,%edx
mov    %r13,%rcx
call   1070 <fwrite@plt>
mov    $0x14,%esi
mov    $0x1,%edx
lea    0xcfa(%rip),%rdi
mov    %r13,%rcx
call   1070 <fwrite@plt>
mov    $0x1a,%esi
mov    $0x1,%edx
lea    0xcf6(%rip),%rbx
mov    %rbx,%rdi
mov    %r13,%rcx
call   1070 <fwrite@plt>
mov    $0xc,%esi
mov    $0x1,%edx
lea    0xcf5(%rip),%rdi
mov    %r13,%rcx
call   1070 <fwrite@plt>
mov    $0xc,%esi
mov    $0x1,%edx
mov    %rbp,%rdi
mov    %r13,%rcx
call   1070 <fwrite@plt>
mov    %r13,%rdi
call   1030 <fclose@plt>
mov    %rsp,%r13
mov    %r13,%rdi
call   1050 <QDIFF_@plt>
lea    0xc1c(%rip),%rdi
lea    0xc1d(%rip),%rsi
call   1060 <fopen@plt>
mov    %rax,%rbp
mov    %rax,%rdi
mov    %r12,%rsi
mov    $0x41,%edx
xor    %eax,%eax
call   1040 <fprintf@plt>
mov    %rbp,%rdi
lea    0xc05(%rip),%rsi
movsd  0xbc9(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    $0x19,%esi
mov    $0x1,%edx
lea    0xbf1(%rip),%rdi
mov    %rbp,%rcx
call   1070 <fwrite@plt>
mov    %rbp,%rdi
mov    %r15,%rsi
movsd  0xba3(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    %rbp,%rdi
lea    0xbef(%rip),%rsi
movsd  0xb92(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    %rbp,%rdi
mov    %r14,%rsi
movsd  0xb85(%rip),%xmm0
mov    $0x1,%al
call   1040 <fprintf@plt>
mov    %rbp,%rdi
lea    0xbd9(%rip),%rsi
xor    %edx,%edx
xor    %eax,%eax
call   1040 <fprintf@plt>
mov    $0x9,%esi
mov    $0x1,%edx
lea    0xc1e(%rip),%rdi
mov    %rbp,%rcx
call   1070 <fwrite@plt>
mov    $0x14,%esi
mov    $0x1,%edx
lea    0xbbb(%rip),%rdi
mov    %rbp,%rcx
call   1070 <fwrite@plt>
mov    $0x1a,%esi
mov    $0x1,%edx
mov    %rbx,%rdi
mov    %rbp,%rcx
call   1070 <fwrite@plt>
mov    $0xc,%esi
mov    $0x1,%edx
lea    0xbbd(%rip),%rdi
mov    %rbp,%rcx
call   1070 <fwrite@plt>
mov    $0xc,%esi
mov    $0x1,%edx
lea    0xbb1(%rip),%rdi
mov    %rbp,%rcx
call   1070 <fwrite@plt>
mov    %rbp,%rdi
call   1030 <fclose@plt>
mov    %r13,%rdi
call   1050 <QDIFF_@plt>
xor    %eax,%eax
add    $0x14ef68,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [8 x i8] c"fort.10\00"
@.str.1 = [2 x i8] c"w\00"
@.str.2 = [10 x i8] c"gsize=%d\0A\00"
@.str.3 = [12 x i8] c"scale=%.2f\0A\00"
@.str.4 = [26 x i8] c"in(unpdb,file=\22fort.13\22)\0A\00"
@.str.5 = [11 x i8] c"indi=%.1f\0A\00"
@.str.6 = [11 x i8] c"exdi=%.1f\0A\00"
@.str.7 = [13 x i8] c"ionrad=%.1f\0A\00"
@.str.8 = [11 x i8] c"salt=%.2f\0A\00"
@.str.9 = [10 x i8] c"bndcon=2\0A\00"
@.str.10 = [21 x i8] c"center(777, 777, 0)\0A\00"
@.str.11 = [27 x i8] c"out(phi,file=\22run01.phi\22)\0A\00"
@.str.12 = [13 x i8] c"site(a,c,p)\0A\00"
@.str.13 = [13 x i8] c"energy(g,s)\0A\00"
@.str.14 = [10 x i8] c"bndcon=3\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32*
%3 = alloca [70 x [70 x [70 x float]]]
%4 = alloca [128 x i8]
store i32 0, i32* %1
%5 = call i32* @fopen(i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0))
store i32* %5, i32** %2
%6 = load i32*, i32** %2
%7 = call i32 (i32*, i8*, ...) @fprintf(i32* %6, i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.2, i64 0, i64 0), i32 65)
%8 = load i32*, i32** %2
%9 = call i32 (i32*, i8*, ...) @fprintf(i32* %8, i8* getelementptr inbounds ([12 x i8], [12 x i8]* @.str.3, i64 0, i64 0), double 5.000000e-01)
%10 = load i32*, i32** %2
%11 = call i32 (i32*, i8*, ...) @fprintf(i32* %10, i8* getelementptr inbounds ([26 x i8], [26 x i8]* @.str.4, i64 0, i64 0))
%12 = load i32*, i32** %2
%13 = call i32 (i32*, i8*, ...) @fprintf(i32* %12, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.5, i64 0, i64 0), double 4.000000e+00)
%14 = load i32*, i32** %2
%15 = call i32 (i32*, i8*, ...) @fprintf(i32* %14, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.6, i64 0, i64 0), double 8.000000e+01)
%16 = load i32*, i32** %2
%17 = call i32 (i32*, i8*, ...) @fprintf(i32* %16, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.7, i64 0, i64 0), double 1.400000e+00)
%18 = load i32*, i32** %2
%19 = call i32 (i32*, i8*, ...) @fprintf(i32* %18, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.8, i64 0, i64 0), i32 0)
%20 = load i32*, i32** %2
%21 = call i32 (i32*, i8*, ...) @fprintf(i32* %20, i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.9, i64 0, i64 0))
%22 = load i32*, i32** %2
%23 = call i32 (i32*, i8*, ...) @fprintf(i32* %22, i8* getelementptr inbounds ([21 x i8], [21 x i8]* @.str.10, i64 0, i64 0))
%24 = load i32*, i32** %2
%25 = call i32 (i32*, i8*, ...) @fprintf(i32* %24, i8* getelementptr inbounds ([27 x i8], [27 x i8]* @.str.11, i64 0, i64 0))
%26 = load i32*, i32** %2
%27 = call i32 (i32*, i8*, ...) @fprintf(i32* %26, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.12, i64 0, i64 0))
%28 = load i32*, i32** %2
%29 = call i32 (i32*, i8*, ...) @fprintf(i32* %28, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.13, i64 0, i64 0))
%30 = load i32*, i32** %2
%31 = call i32 @fclose(i32* %30)
%32 = getelementptr inbounds [70 x [70 x [70 x float]]], [70 x [70 x [70 x float]]]* %3, i64 0, i64 0
%33 = bitcast [70 x [70 x float]]* %32 to float***
%34 = call i32 @QDIFF_(float*** %33)
%35 = call i32* @fopen(i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0))
store i32* %35, i32** %2
%36 = load i32*, i32** %2
%37 = call i32 (i32*, i8*, ...) @fprintf(i32* %36, i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.2, i64 0, i64 0), i32 65)
%38 = load i32*, i32** %2
%39 = call i32 (i32*, i8*, ...) @fprintf(i32* %38, i8* getelementptr inbounds ([12 x i8], [12 x i8]* @.str.3, i64 0, i64 0), double 5.000000e-01)
%40 = load i32*, i32** %2
%41 = call i32 (i32*, i8*, ...) @fprintf(i32* %40, i8* getelementptr inbounds ([26 x i8], [26 x i8]* @.str.4, i64 0, i64 0))
%42 = load i32*, i32** %2
%43 = call i32 (i32*, i8*, ...) @fprintf(i32* %42, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.5, i64 0, i64 0), double 4.000000e+00)
%44 = load i32*, i32** %2
%45 = call i32 (i32*, i8*, ...) @fprintf(i32* %44, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.6, i64 0, i64 0), double 8.000000e+01)
%46 = load i32*, i32** %2
%47 = call i32 (i32*, i8*, ...) @fprintf(i32* %46, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.7, i64 0, i64 0), double 1.400000e+00)
%48 = load i32*, i32** %2
%49 = call i32 (i32*, i8*, ...) @fprintf(i32* %48, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.8, i64 0, i64 0), i32 0)
%50 = load i32*, i32** %2
%51 = call i32 (i32*, i8*, ...) @fprintf(i32* %50, i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.14, i64 0, i64 0))
%52 = load i32*, i32** %2
%53 = call i32 (i32*, i8*, ...) @fprintf(i32* %52, i8* getelementptr inbounds ([21 x i8], [21 x i8]* @.str.10, i64 0, i64 0))
%54 = load i32*, i32** %2
%55 = call i32 (i32*, i8*, ...) @fprintf(i32* %54, i8* getelementptr inbounds ([27 x i8], [27 x i8]* @.str.11, i64 0, i64 0))
%56 = load i32*, i32** %2
%57 = call i32 (i32*, i8*, ...) @fprintf(i32* %56, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.12, i64 0, i64 0))
%58 = load i32*, i32** %2
%59 = call i32 (i32*, i8*, ...) @fprintf(i32* %58, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.13, i64 0, i64 0))
%60 = load i32*, i32** %2
%61 = call i32 @fclose(i32* %60)
%62 = getelementptr inbounds [70 x [70 x [70 x float]]], [70 x [70 x [70 x float]]]* %3, i64 0, i64 0
%63 = bitcast [70 x [70 x float]]* %62 to float***
%64 = call i32 @QDIFF_(float*** %63)
%65 = call i32* @fopen(i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0))
store i32* %65, i32** %2
%66 = load i32*, i32** %2
%67 = call i32 (i32*, i8*, ...) @fprintf(i32* %66, i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.2, i64 0, i64 0), i32 65)
%68 = load i32*, i32** %2
%69 = call i32 (i32*, i8*, ...) @fprintf(i32* %68, i8* getelementptr inbounds ([12 x i8], [12 x i8]* @.str.3, i64 0, i64 0), double 5.000000e-01)
%70 = load i32*, i32** %2
%71 = call i32 (i32*, i8*, ...) @fprintf(i32* %70, i8* getelementptr inbounds ([26 x i8], [26 x i8]* @.str.4, i64 0, i64 0))
%72 = load i32*, i32** %2
%73 = call i32 (i32*, i8*, ...) @fprintf(i32* %72, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.5, i64 0, i64 0), double 4.000000e+00)
%74 = load i32*, i32** %2
%75 = call i32 (i32*, i8*, ...) @fprintf(i32* %74, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.6, i64 0, i64 0), double 8.000000e+01)
%76 = load i32*, i32** %2
%77 = call i32 (i32*, i8*, ...) @fprintf(i32* %76, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.7, i64 0, i64 0), double 1.400000e+00)
%78 = load i32*, i32** %2
%79 = call i32 (i32*, i8*, ...) @fprintf(i32* %78, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.8, i64 0, i64 0), i32 0)
%80 = load i32*, i32** %2
%81 = call i32 (i32*, i8*, ...) @fprintf(i32* %80, i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.14, i64 0, i64 0))
%82 = load i32*, i32** %2
%83 = call i32 (i32*, i8*, ...) @fprintf(i32* %82, i8* getelementptr inbounds ([21 x i8], [21 x i8]* @.str.10, i64 0, i64 0))
%84 = load i32*, i32** %2
%85 = call i32 (i32*, i8*, ...) @fprintf(i32* %84, i8* getelementptr inbounds ([27 x i8], [27 x i8]* @.str.11, i64 0, i64 0))
%86 = load i32*, i32** %2
%87 = call i32 (i32*, i8*, ...) @fprintf(i32* %86, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.12, i64 0, i64 0))
%88 = load i32*, i32** %2
%89 = call i32 (i32*, i8*, ...) @fprintf(i32* %88, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.13, i64 0, i64 0))
%90 = load i32*, i32** %2
%91 = call i32 @fclose(i32* %90)
%92 = getelementptr inbounds [70 x [70 x [70 x float]]], [70 x [70 x [70 x float]]]* %3, i64 0, i64 0
%93 = bitcast [70 x [70 x float]]* %92 to float***
%94 = call i32 @QDIFF_(float*** %93)
ret i32 0
}

LLVM IR (-O2):
@.str = [8 x i8] c"fort.10\00"
@.str.1 = [2 x i8] c"w\00"
@.str.2 = [10 x i8] c"gsize=%d\0A\00"
@.str.3 = [12 x i8] c"scale=%.2f\0A\00"
@.str.4 = [26 x i8] c"in(unpdb,file=\22fort.13\22)\0A\00"
@.str.5 = [11 x i8] c"indi=%.1f\0A\00"
@.str.6 = [11 x i8] c"exdi=%.1f\0A\00"
@.str.7 = [13 x i8] c"ionrad=%.1f\0A\00"
@.str.8 = [11 x i8] c"salt=%.2f\0A\00"
@.str.9 = [10 x i8] c"bndcon=2\0A\00"
@.str.10 = [21 x i8] c"center(777, 777, 0)\0A\00"
@.str.11 = [27 x i8] c"out(phi,file=\22run01.phi\22)\0A\00"
@.str.12 = [13 x i8] c"site(a,c,p)\0A\00"
@.str.13 = [13 x i8] c"energy(g,s)\0A\00"
@.str.14 = [10 x i8] c"bndcon=3\0A\00"
define i32 @main() {
%1 = alloca [70 x [70 x [70 x float]]]
%2 = bitcast [70 x [70 x [70 x float]]]* %1 to i8*
%3 = tail call i32* @fopen(i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0))
%4 = tail call i32 (i32*, i8*, ...) @fprintf(i32* %3, i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.2, i64 0, i64 0), i32 65)
%5 = tail call i32 (i32*, i8*, ...) @fprintf(i32* %3, i8* getelementptr inbounds ([12 x i8], [12 x i8]* @.str.3, i64 0, i64 0), double 5.000000e-01)
%6 = tail call i64 @fwrite(i8* getelementptr inbounds ([26 x i8], [26 x i8]* @.str.4, i64 0, i64 0), i64 25, i64 1, i32* %3)
%7 = tail call i32 (i32*, i8*, ...) @fprintf(i32* %3, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.5, i64 0, i64 0), double 4.000000e+00)
%8 = tail call i32 (i32*, i8*, ...) @fprintf(i32* %3, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.6, i64 0, i64 0), double 8.000000e+01)
%9 = tail call i32 (i32*, i8*, ...) @fprintf(i32* %3, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.7, i64 0, i64 0), double 1.400000e+00)
%10 = tail call i32 (i32*, i8*, ...) @fprintf(i32* %3, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.8, i64 0, i64 0), i32 0)
%11 = tail call i64 @fwrite(i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.9, i64 0, i64 0), i64 9, i64 1, i32* %3)
%12 = tail call i64 @fwrite(i8* getelementptr inbounds ([21 x i8], [21 x i8]* @.str.10, i64 0, i64 0), i64 20, i64 1, i32* %3)
%13 = tail call i64 @fwrite(i8* getelementptr inbounds ([27 x i8], [27 x i8]* @.str.11, i64 0, i64 0), i64 26, i64 1, i32* %3)
%14 = tail call i64 @fwrite(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.12, i64 0, i64 0), i64 12, i64 1, i32* %3)
%15 = tail call i64 @fwrite(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.13, i64 0, i64 0), i64 12, i64 1, i32* %3)
%16 = tail call i32 @fclose(i32* %3)
%17 = bitcast [70 x [70 x [70 x float]]]* %1 to float***
%18 = call i32 @QDIFF_(float*** %17)
%19 = call i32* @fopen(i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0))
%20 = call i32 (i32*, i8*, ...) @fprintf(i32* %19, i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.2, i64 0, i64 0), i32 65)
%21 = call i32 (i32*, i8*, ...) @fprintf(i32* %19, i8* getelementptr inbounds ([12 x i8], [12 x i8]* @.str.3, i64 0, i64 0), double 5.000000e-01)
%22 = call i64 @fwrite(i8* getelementptr inbounds ([26 x i8], [26 x i8]* @.str.4, i64 0, i64 0), i64 25, i64 1, i32* %19)
%23 = call i32 (i32*, i8*, ...) @fprintf(i32* %19, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.5, i64 0, i64 0), double 4.000000e+00)
%24 = call i32 (i32*, i8*, ...) @fprintf(i32* %19, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.6, i64 0, i64 0), double 8.000000e+01)
%25 = call i32 (i32*, i8*, ...) @fprintf(i32* %19, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.7, i64 0, i64 0), double 1.400000e+00)
%26 = call i32 (i32*, i8*, ...) @fprintf(i32* %19, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.8, i64 0, i64 0), i32 0)
%27 = call i64 @fwrite(i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.14, i64 0, i64 0), i64 9, i64 1, i32* %19)
%28 = call i64 @fwrite(i8* getelementptr inbounds ([21 x i8], [21 x i8]* @.str.10, i64 0, i64 0), i64 20, i64 1, i32* %19)
%29 = call i64 @fwrite(i8* getelementptr inbounds ([27 x i8], [27 x i8]* @.str.11, i64 0, i64 0), i64 26, i64 1, i32* %19)
%30 = call i64 @fwrite(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.12, i64 0, i64 0), i64 12, i64 1, i32* %19)
%31 = call i64 @fwrite(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.13, i64 0, i64 0), i64 12, i64 1, i32* %19)
%32 = call i32 @fclose(i32* %19)
%33 = call i32 @QDIFF_(float*** %17)
%34 = call i32* @fopen(i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0))
%35 = call i32 (i32*, i8*, ...) @fprintf(i32* %34, i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.2, i64 0, i64 0), i32 65)
%36 = call i32 (i32*, i8*, ...) @fprintf(i32* %34, i8* getelementptr inbounds ([12 x i8], [12 x i8]* @.str.3, i64 0, i64 0), double 5.000000e-01)
%37 = call i64 @fwrite(i8* getelementptr inbounds ([26 x i8], [26 x i8]* @.str.4, i64 0, i64 0), i64 25, i64 1, i32* %34)
%38 = call i32 (i32*, i8*, ...) @fprintf(i32* %34, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.5, i64 0, i64 0), double 4.000000e+00)
%39 = call i32 (i32*, i8*, ...) @fprintf(i32* %34, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.6, i64 0, i64 0), double 8.000000e+01)
%40 = call i32 (i32*, i8*, ...) @fprintf(i32* %34, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.7, i64 0, i64 0), double 1.400000e+00)
%41 = call i32 (i32*, i8*, ...) @fprintf(i32* %34, i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.8, i64 0, i64 0), i32 0)
%42 = call i64 @fwrite(i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.14, i64 0, i64 0), i64 9, i64 1, i32* %34)
%43 = call i64 @fwrite(i8* getelementptr inbounds ([21 x i8], [21 x i8]* @.str.10, i64 0, i64 0), i64 20, i64 1, i32* %34)
%44 = call i64 @fwrite(i8* getelementptr inbounds ([27 x i8], [27 x i8]* @.str.11, i64 0, i64 0), i64 26, i64 1, i32* %34)
%45 = call i64 @fwrite(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.12, i64 0, i64 0), i64 12, i64 1, i32* %34)
%46 = call i64 @fwrite(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.13, i64 0, i64 0), i64 12, i64 1, i32* %34)
%47 = call i32 @fclose(i32* %34)
%48 = call i32 @QDIFF_(float*** %17)
ret i32 0
}