void gctp_(incoor, insys, inzone, inparm, inunit, indatum, ipr, efile, jpr,
           pfile, outcoor, outsys, outzone, outparm, outunit, fn27, fn83,
           iflg) double *incoor;
long *insys;
long *inzone;
double *inparm;
long *inunit;
long *indatum;
long *ipr;
char *efile;
long *jpr;
char *pfile;
double *outcoor;
long *outsys;
long *outzone;
double *outparm;
long *outunit;
long *iflg;
{
  gctp(incoor, insys, inzone, inparm, inunit, indatum, ipr, efile, jpr, pfile,
       outcoor, outsys, outzone, outparm, outunit, fn27, fn83, iflg);
  return;
}


x86 assembly (clang, -O0):
<gctp_>:
push   %rbp
mov    %rsp,%rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0xb8,%rsp
mov    0x68(%rbp),%rax
mov    0x60(%rbp),%eax
mov    0x58(%rbp),%eax
mov    0x50(%rbp),%rax
mov    0x48(%rbp),%rax
mov    0x40(%rbp),%rax
mov    0x38(%rbp),%rax
mov    0x30(%rbp),%rax
mov    0x28(%rbp),%rax
mov    0x20(%rbp),%rax
mov    0x18(%rbp),%rax
mov    0x10(%rbp),%rax
mov    %rdi,-0x30(%rbp)
mov    %rsi,-0x38(%rbp)
mov    %rdx,-0x40(%rbp)
mov    %rcx,-0x48(%rbp)
mov    %r8,-0x50(%rbp)
mov    %r9,-0x58(%rbp)
mov    -0x30(%rbp),%rdi
mov    -0x38(%rbp),%rsi
mov    -0x40(%rbp),%rdx
mov    -0x48(%rbp),%rcx
mov    -0x50(%rbp),%r8
mov    -0x58(%rbp),%r9
mov    0x10(%rbp),%rax
mov    %rax,-0x80(%rbp)
mov    0x18(%rbp),%rax
mov    %rax,-0x78(%rbp)
mov    0x20(%rbp),%rax
mov    %rax,-0x70(%rbp)
mov    0x28(%rbp),%rax
mov    %rax,-0x68(%rbp)
mov    0x30(%rbp),%r13
mov    0x38(%rbp),%r12
mov    0x40(%rbp),%r15
mov    0x48(%rbp),%r14
mov    0x50(%rbp),%rbx
mov    0x58(%rbp),%r11d
mov    0x60(%rbp),%r10d
mov    0x68(%rbp),%rax
mov    %rax,-0x60(%rbp)
mov    -0x80(%rbp),%rax
mov    %rax,(%rsp)
mov    -0x78(%rbp),%rax
mov    %rax,0x8(%rsp)
mov    -0x70(%rbp),%rax
mov    %rax,0x10(%rsp)
mov    -0x68(%rbp),%rax
mov    %rax,0x18(%rsp)
mov    -0x60(%rbp),%rax
mov    %r13,0x20(%rsp)
mov    %r12,0x28(%rsp)
mov    %r15,0x30(%rsp)
mov    %r14,0x38(%rsp)
mov    %rbx,0x40(%rsp)
mov    %r11d,0x48(%rsp)
mov    %r10d,0x50(%rsp)
mov    %rax,0x58(%rsp)
mov    $0x0,%al
call   1030 <gctp@plt>
add    $0xb8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

x86 assembly (clang, -O2):
<gctp_>:
push   %rbx
sub    $0x60,%rsp
movaps 0x70(%rsp),%xmm0
movaps 0x80(%rsp),%xmm1
movaps 0x90(%rsp),%xmm2
movaps 0xa0(%rsp),%xmm3
mov    0xb0(%rsp),%r10
mov    0xb8(%rsp),%r11d
mov    0xc0(%rsp),%eax
mov    0xc8(%rsp),%rbx
mov    %rbx,0x58(%rsp)
mov    %eax,0x50(%rsp)
mov    %r11d,0x48(%rsp)
mov    %r10,0x40(%rsp)
movups %xmm3,0x30(%rsp)
movups %xmm2,0x20(%rsp)
movups %xmm1,0x10(%rsp)
movups %xmm0,(%rsp)
xor    %eax,%eax
call   1030 <gctp@plt>
add    $0x60,%rsp
pop    %rbx
ret

LLVM IR (-O0):
define void @gctp_(double* %0, i64* %1, i64* %2, double* %3, i64* %4, i64* %5, i64* %6, i8* %7, i64* %8, i8* %9, double* %10, i64* %11, i64* %12, double* %13, i64* %14, i32 %15, i32 %16, i64* %17) {
%19 = alloca double*
%20 = alloca i64*
%21 = alloca i64*
%22 = alloca double*
%23 = alloca i64*
%24 = alloca i64*
%25 = alloca i64*
%26 = alloca i8*
%27 = alloca i64*
%28 = alloca i8*
%29 = alloca double*
%30 = alloca i64*
%31 = alloca i64*
%32 = alloca double*
%33 = alloca i64*
%34 = alloca i32
%35 = alloca i32
%36 = alloca i64*
store double* %0, double** %19
store i64* %1, i64** %20
store i64* %2, i64** %21
store double* %3, double** %22
store i64* %4, i64** %23
store i64* %5, i64** %24
store i64* %6, i64** %25
store i8* %7, i8** %26
store i64* %8, i64** %27
store i8* %9, i8** %28
store double* %10, double** %29
store i64* %11, i64** %30
store i64* %12, i64** %31
store double* %13, double** %32
store i64* %14, i64** %33
store i32 %15, i32* %34
store i32 %16, i32* %35
store i64* %17, i64** %36
%37 = load double*, double** %19
%38 = load i64*, i64** %20
%39 = load i64*, i64** %21
%40 = load double*, double** %22
%41 = load i64*, i64** %23
%42 = load i64*, i64** %24
%43 = load i64*, i64** %25
%44 = load i8*, i8** %26
%45 = load i64*, i64** %27
%46 = load i8*, i8** %28
%47 = load double*, double** %29
%48 = load i64*, i64** %30
%49 = load i64*, i64** %31
%50 = load double*, double** %32
%51 = load i64*, i64** %33
%52 = load i32, i32* %34
%53 = load i32, i32* %35
%54 = load i64*, i64** %36
%55 = call i32 (double*, i64*, i64*, double*, i64*, i64*, i64*, i8*, i64*, i8*, double*, i64*, i64*, double*, i64*, i32, i32, i64*, ...) bitcast (i32 (...)* @gctp to i32 (double*, i64*, i64*, double*, i64*, i64*, i64*, i8*, i64*, i8*, double*, i64*, i64*, double*, i64*, i32, i32, i64*, ...)*)(double* %37, i64* %38, i64* %39, double* %40, i64* %41, i64* %42, i64* %43, i8* %44, i64* %45, i8* %46, double* %47, i64* %48, i64* %49, double* %50, i64* %51, i32 %52, i32 %53, i64* %54)
ret void
}

LLVM IR (-O2):
define void @gctp_(double* %0, i64* %1, i64* %2, double* %3, i64* %4, i64* %5, i64* %6, i8* %7, i64* %8, i8* %9, double* %10, i64* %11, i64* %12, double* %13, i64* %14, i32 %15, i32 %16, i64* %17) {
%19 = tail call i32 (double*, i64*, i64*, double*, i64*, i64*, i64*, i8*, i64*, i8*, double*, i64*, i64*, double*, i64*, i32, i32, i64*, ...) bitcast (i32 (...)* @gctp to i32 (double*, i64*, i64*, double*, i64*, i64*, i64*, i8*, i64*, i8*, double*, i64*, i64*, double*, i64*, i32, i32, i64*, ...)*)(double* %0, i64* %1, i64* %2, double* %3, i64* %4, i64* %5, i64* %6, i8* %7, i64* %8, i8* %9, double* %10, i64* %11, i64* %12, double* %13, i64* %14, i32 %15, i32 %16, i64* %17)
ret void
}