Function at 0x101489f0
Capabilities:
Write file on windows

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x45c
mov eax, dword [ebp + 8]
mov dword [ebp - 8], ebx
mov dword [ebp - 0xc], edi
mov dword [ebp - 0x10], esi
mov dword [ebp - 0x264], eax
call dword [sym.imp.KERNEL32.dll_IsDebuggerPresent]
test eax, eax
jne 0x10148a37
push str.FOR__IS_DEBUGGER_PRESENT
call fcn.10155190
add esp, 4
test eax, eax
jne 0x10148a37
push str.FOR_DEBUGGER_IS_PRESENT
call fcn.10155190
add esp, 4
test eax, eax
je 0x10148a40
mov dword [ebp - 0x14], 1
jmp 0x10148a47
mov dword [ebp - 0x14], 0
push str.FOR_DISABLE_STACK_TRACE
call fcn.10155190
xor edx, edx
test eax, eax
lea eax, [ebp - 0x18]
push eax
push 0
push 0x4000
setne dl
mov dword [ebp - 0x444], edx
call fcn.10146480
add esp, 0x10
xor ebx, ebx
test eax, eax
movzx eax, word [ebp - 0x264]
mov dword [ebp - 4], eax
sete bl
cmp dword [0x101e5278], 0
je 0x10148b83
mov dword [0x101e5278], 0
call dword [sym.imp.KERNEL32.dll_GetThreadLocale]
push str.ifcore_msg.dll
push eax
push str._lu__s
lea esi, [ebp - 0x8e]
push esi
call fcn.10129fab
add esp, 0x10
push esi
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
mov dword [0x10540f18], eax
test eax, eax
je 0x10149058
mov dword [0x101e527c], 0
xor edi, edi
cmp edi, 5
je 0x10149041
mov edx, 0x103ee360
lea eax, [edi + 0x1c2]
lea ecx, [ebp - 0x1c]
call fcn.10149980
mov ecx, dword [ebp - 0x1c]
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x10148b0f
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10148afa
dec eax
mov esi, eax
lea eax, [edi*4 + 0x101e5280]
push eax
push 0
inc esi
push esi
call fcn.10146480
push esi
push dword [ebp - 0x1c]
push dword [edi*4 + 0x101e5280]
call fcn.1017a2a0
add esp, 0x18
inc edi
cmp edi, 6
jl 0x10148ad9
mov eax, 0x1c7
mov edx, 0x103ee360
lea ecx, [ebp - 0x1c]
call fcn.10149980
push 0x10
push dword [ebp - 0x1c]
push str.forrtl
call fcn.1017a2a0
add esp, 0xc
mov eax, 0x1f9
mov edx, 0x103ee360
lea ecx, [ebp - 0x1c]
call fcn.10149980
push 0x40
push dword [ebp - 0x1c]
push str.Intel_r__Visual_Fortran_run_time_error
call fcn.1017a2a0
add esp, 0xc
mov ecx, dword [ebp - 4]
xor edx, edx
lea eax, [edx*8]
cmp ecx, dword [eax + edx*4 + 0x101e3ca0]
je 0x101496a6
inc edx
cmp edx, 0x1d2
jl 0x10148b88
cmp dword [ebp + 0xc], 0
jle 0x10148bc5
lea eax, [ebp + 0x10]
push eax
push edi
lea edx, [ebp - 0x3f0]
push edx
call fcn.1012966e
add esp, 0xc
lea edi, [ebp - 0x3f0]
mov eax, dword [0x103ee378]
test eax, eax
mov dword [ebp - 0x448], eax
je 0x10148c46
mov ecx, edi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x10148bed
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10148bd8
dec eax
mov dword [ebp - 0x450], eax
cmp eax, dword [ebp - 0x448]
jb 0x10148c12
push dword [ebp - 0x448]
push edi
push dword [0x103ee374]
call fcn.10171700
add esp, 0xc
jmp 0x10148c46
push dword [ebp - 0x450]
push edi
push dword [0x103ee374]
call fcn.10171700
mov eax, dword [ebp - 0x450]
mov edx, dword [0x103ee378]
sub edx, eax
push edx
mov ecx, dword [0x103ee374]
push 0x20
add ecx, eax
push ecx
call fcn.101715a0
add esp, 0x18
push 0x103ee368
call fcn.1014a570
add esp, 4
mov eax, dword [0x103ee36c]
test eax, eax
jne 0x10148c9e
push str.FORT0
mov dword [0x103ee36c], 1
call fcn.101412c9
mov dword [ebp - 0x450], eax
add esp, 4
cmp dword [ebp - 0x450], 0
je 0x10148c9e
call fcn.1013aef9
add eax, 0x40
push eax
push 0x101bbdac
push dword [ebp - 0x450]
call fcn.1017a55e
add esp, 0xc
mov eax, dword [esi*4 + 0x101e5280]
mov dword [0x103ee368], 0
mov dword [ebp - 0x260], eax
cmp dword [0x101e3c40], 0
jne 0x10148ccb
mov eax, dword [0x103ee140]
mov dword [ebp - 0x258], eax
jmp 0x10148d1a
push str.libicaf.dll
call dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
test eax, eax
je 0x10148ced
push str.for_rtl_THIS_IMAGE
push eax
call dword [sym.imp.KERNEL32.dll_GetProcAddress]
mov dword [0x103ee144], eax
jmp 0x10148cf2
mov eax, dword [0x103ee144]
test eax, eax
je 0x10148d05
call eax
mov dword [ebp - 0x258], eax
mov dword [0x103ee140], eax
jmp 0x10148d10
mov eax, dword [0x103ee140]
mov dword [ebp - 0x258], eax
mov dword [0x101e3c40], 0
cmp dword [ebp - 0x258], 0
je 0x10148d30
mov eax, dword [str.In_coarray_image__d_n]
mov dword [ebp - 0x25c], eax
jmp 0x10148d38
xor eax, eax
mov dword [ebp - 0x25c], eax
test ebx, ebx
jne 0x10148fad
mov ecx, dword [ebp - 0x260]
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x10148d5d
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10148d48
dec eax
mov ecx, edi
mov dword [ebp - 0x450], eax
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x10148d7c
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10148d67
dec eax
mov edx, dword [ebp - 0x450]
cmp dword [ebp - 0x258], 0
lea ecx, [edx + eax + 0x15]
mov dword [ebp - 0x448], ecx
je 0x10148db8
mov ecx, dword [ebp - 0x25c]
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x10148db2
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10148d9d
dec eax
add dword [ebp - 0x448], eax
lea eax, [ebp - 0x18]
push eax
push 0
push dword [ebp - 0x448]
call fcn.10146480
add esp, 0xc
test eax, eax
je 0x10148f53
mov eax, dword [ebp - 0x264]
mov dword [ebp - 0x30], 1
mov dword [ebp - 0x2c], eax
cmp dword [0x101e5278], 0
je 0x10148ef7
mov dword [0x101e5278], 0
call dword [sym.imp.KERNEL32.dll_GetThreadLocale]
push str.ifcore_msg.dll
push eax
push str._lu__s
lea edx, [ebp - 0x267]
push edx
call fcn.10129fab
add esp, 0x10
lea eax, [ebp - 0x267]
push eax
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
mov dword [0x10540f18], eax
test eax, eax
je 0x10149081
mov dword [0x101e527c], 0
mov dword [ebp - 0x44c], ebx
xor edi, edi
cmp edi, 5
je 0x1014906a
mov edx, 0x103ee360
lea eax, [edi + 0x1c2]
lea ecx, [ebp - 0x24]
call fcn.10149980
mov ecx, dword [ebp - 0x24]
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x10148e7d
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10148e68
dec eax
mov ebx, eax
lea eax, [edi*4 + 0x101e5280]
push eax
push 0
inc ebx
push ebx
call fcn.10146480
push ebx
push dword [ebp - 0x24]
push dword [edi*4 + 0x101e5280]
call fcn.1017a2a0
add esp, 0x18
inc edi
cmp edi, 6
jl 0x10148e47
mov eax, 0x1c7
mov edx, 0x103ee360
mov ebx, dword [ebp - 0x44c]
lea ecx, [ebp - 0x24]
call fcn.10149980
push 0x10
push dword [ebp - 0x24]
push str.forrtl
call fcn.1017a2a0
add esp, 0xc
mov eax, 0x1f9
mov edx, 0x103ee360
lea ecx, [ebp - 0x24]
call fcn.10149980
push 0x40
push dword [ebp - 0x24]
push str.Intel_r__Visual_Fortran_run_time_error
call fcn.1017a2a0
add esp, 0xc
xor edx, edx
lea eax, [edx*8]
cmp dword [eax + edx*4 + 0x101e3ca0], 0x1f6
je 0x101490a8
inc edx
cmp edx, 0x1d2
jl 0x10148ef9
cmp dword [ebp - 0x30], 0
jle 0x10149093
lea eax, [ebp - 0x2c]
push eax
push edi
push 0x103ee260
call fcn.1012966e
add esp, 0xc
call fcn.1013aef9
push 0x103ee260
push 0x101bbd40
add eax, 0x40
push eax
call fcn.1017a584
jmp 0x10148ff6
push dword [ebp - 4]
push dword [ebp - 0x260]
push 0x103ee160
call fcn.10129fab
push edi
push 0x103ee160
push str._s_s_r_n
push dword [ebp - 0x18]
call fcn.10129fab
add esp, 0x1c
cmp dword [ebp - 0x258], 0
jne 0x10148f8c
mov ebx, 2
jmp 0x10148ff9
push dword [ebp - 0x258]
push dword [ebp - 0x25c]
mov edx, dword [ebp - 0x18]
add edx, eax
push edx
call fcn.10129fab
add esp, 0xc
mov ebx, 2
jmp 0x10148ff9
push dword [ebp - 4]
push dword [ebp - 0x260]
push 0x103ee160
call fcn.10129fab
push edi
push 0x103ee160
push str._s_s_r_n
push dword [ebp - 0x18]
call fcn.10129fab
add esp, 0x1c
cmp dword [ebp - 0x258], 0
je 0x10148ff9
push dword [ebp - 0x258]
push dword [0x101e5294]
mov edx, dword [ebp - 0x18]
add edx, eax
push edx
call fcn.10129fab
add esp, 0xc
cmp esi, 4
je 0x101493ba
mov eax, dword [0x10540ce8]
test eax, eax
je 0x1014901d
cmp dword [ebp - 0x444], 0
jne 0x1014901d
cmp ebx, 1
je 0x10149144
test ebx, ebx
jne 0x10149180
cmp dword [ebp - 0x14], 0
je 0x10149034
cmp esi, 3
je 0x101493a5
mov ebx, dword [ebp - 8]
mov esi, dword [ebp - 0x10]
mov edi, dword [ebp - 0xc]
mov esp, ebp
pop ebp
ret
mov eax, 0x30b
mov edx, 0x103ee360
lea ecx, [ebp - 0x1c]
call fcn.10149980
jmp 0x10148af5
cmp dword [0x101e527c], 0
je 0x10148ad7
jmp 0x10148b83
mov eax, 0x30b
mov edx, 0x103ee360
lea ecx, [ebp - 0x24]
call fcn.10149980
jmp 0x10148e63
cmp dword [0x101e527c], 0
je 0x10148e3f
jmp 0x10148ef7
push 0x100
push edi
push 0x103ee260
call fcn.1017a2a0
jmp 0x10148f33
mov ecx, dword [eax + edx*4 + 0x101e3ca4]
mov dword [0x103ee360], ecx
cmp dword [0x101e527c], 0
je 0x101490ca
mov edi, dword [eax + edx*4 + 0x101e3ca8]
jmp 0x10148f1a
push 0
mov edi, dword [eax + edx*4 + 0x101e3ca8]
lea eax, [ebp - 0x38]
push 0x200
push eax
push 0x409
push 0x800001f6
push dword [0x10540f18]
push 0x900
call dword [sym.imp.KERNEL32.dll_FormatMessageA]
test eax, eax
je 0x10148f1a
mov edi, dword [ebp - 0x38]
mov ecx, edi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x1014911b
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10149106
dec eax
cmp eax, 1
jbe 0x10148f1a
cmp byte [edi + eax - 2], 0xd
jne 0x10148f1a
cmp byte [edi + eax - 1], 0xa
jne 0x10148f1a
mov byte [edi + eax - 2], 0
jmp 0x10148f1a
cmp dword [eax + 4], 0
jne 0x10149173
cmp esi, 3
je 0x10149173
cmp dword [ebp - 4], 0x197
je 0x10149173
cmp dword [ebp - 4], 0x196
je 0x10149173
cmp dword [ebp - 4], 0x195
je 0x10149173
cmp dword [ebp - 4], 0x194
jne 0x10149180
push dword [ebp - 0x18]
push dword [eax]
call fcn.10156910
add esp, 8
push str.FOR_DIAGNOSTIC_LOG_FILE
mov ebx, dword [ebp - 0x18]
call fcn.101412c9
add esp, 4
test eax, eax
je 0x101491c5
cmp dword [ebp - 4], 0xaa
je 0x1014933e
push 0x101bbdac
push eax
call fcn.1017a74c
add esp, 8
mov edi, eax
test edi, edi
je 0x101491c5
push edi
push ebx
call fcn.1012e1b4
push edi
call fcn.1012dc14
add esp, 0xc
push str.FOR_DISABLE_DIAGNOSTIC_DISPLAY
call fcn.10155190
add esp, 4
test eax, eax
jne 0x10149227
cmp dword [0x103f788c], 0
je 0x101491f4
push 0x2010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
call fcn.1017bf00
add esp, 0xc
jmp 0x10149227
push 0
call dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
mov ecx, dword [eax + 0x3c]
movzx edx, word [ecx + eax + 0x18]
cmp edx, 0x10b
je 0x1014926e
cmp dword [ebp - 4], 0xaa
je 0x10149237
call fcn.1013aef9
add eax, 0x40
push eax
push ebx
call fcn.1012e1b4
add esp, 8
push dword [ebp - 0x18]
call fcn.10146540
add esp, 4
jmp 0x10149025
push 0xfffffffffffffff4
call dword [sym.imp.KERNEL32.dll_GetStdHandle]
mov edi, eax
mov ecx, ebx
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x1014925a
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10149245
dec eax
push 0
lea edx, [ebp - 0x448]
push edx
push eax
push ebx
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x10149227
movzx eax, word [ecx + eax + 0x5c]
cmp eax, 2
jne 0x1014920c
push str.user32.dll
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
test eax, eax
je 0x101492bc
push 0x101bbdb0
push eax
call dword [sym.imp.KERNEL32.dll_GetProcAddress]
test eax, eax
je 0x101492bc
push 0x12010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
push 0
call eax
test eax, eax
jne 0x10149227
cmp dword [ebp - 4], 0xaa
je 0x101492ca
jmp 0x10149215
cmp dword [ebp - 4], 0xaa
je 0x10149304
jmp 0x10149215
push 0xfffffffffffffff4
call dword [sym.imp.KERNEL32.dll_GetStdHandle]
mov edi, eax
mov ecx, ebx
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x101492ed
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x101492d8
dec eax
push 0
lea edx, [ebp - 0x450]
push edx
push eax
push ebx
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x10149227
push 0xfffffffffffffff4
call dword [sym.imp.KERNEL32.dll_GetStdHandle]
mov edi, eax
mov ecx, ebx
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x10149327
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10149312
dec eax
push 0
lea edx, [ebp - 0x44c]
push edx
push eax
push ebx
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x10149227
xor edx, edx
push edx
push 0x80
push 4
push edx
push edx
push 0x40000000
push eax
call dword [sym.imp.KERNEL32.dll_CreateFileA]
mov edi, eax
cmp edi, 0xffffffff
je 0x101491c5
push 2
xor eax, eax
push eax
push eax
push edi
call dword [sym.imp.KERNEL32.dll_SetFilePointer]
mov ecx, ebx
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x10149387
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10149372
dec eax
push 0
lea edx, [ebp - 0x444]
push edx
push eax
push ebx
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
push edi
call dword [sym.imp.KERNEL32.dll_CloseHandle]
jmp 0x101491c5
mov eax, dword [0x10540ce8]
cmp dword [eax + 4], 0
jne 0x10149034
int3
cmp dword [ebp - 0x444], 0
jne 0x101493d1
mov eax, dword [0x10540ce8]
test eax, eax
je 0x101493d1
cmp ebx, 1
je 0x101493f9
test ebx, ebx
jne 0x10149406
mov eax, dword [0x10540ce8]
test eax, eax
je 0x1014962b
cmp dword [eax + 4], 0
je 0x1014962b
mov ebx, dword [ebp - 8]
mov esi, dword [ebp - 0x10]
mov edi, dword [ebp - 0xc]
mov esp, ebp
pop ebp
ret
push dword [ebp - 0x18]
push dword [eax]
call fcn.10156910
add esp, 8
push str.FOR_DIAGNOSTIC_LOG_FILE
mov ebx, dword [ebp - 0x18]
call fcn.101412c9
add esp, 4
test eax, eax
je 0x1014944b
cmp dword [ebp - 4], 0xaa
je 0x101495c4
push 0x101bbdac
push eax
call fcn.1017a74c
add esp, 8
mov esi, eax
test esi, esi
je 0x1014944b
push esi
push ebx
call fcn.1012e1b4
push esi
call fcn.1012dc14
add esp, 0xc
push str.FOR_DISABLE_DIAGNOSTIC_DISPLAY
call fcn.10155190
add esp, 4
test eax, eax
jne 0x101494ad
cmp dword [0x103f788c], 0
je 0x1014947a
push 0x2010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
call fcn.1017bf00
add esp, 0xc
jmp 0x101494ad
push 0
call dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
mov ecx, dword [eax + 0x3c]
movzx edx, word [ecx + eax + 0x18]
cmp edx, 0x10b
je 0x101494f4
cmp dword [ebp - 4], 0xaa
je 0x101494bd
call fcn.1013aef9
add eax, 0x40
push eax
push ebx
call fcn.1012e1b4
add esp, 8
push dword [ebp - 0x18]
call fcn.10146540
add esp, 4
jmp 0x101493d5
push 0xfffffffffffffff4
call dword [sym.imp.KERNEL32.dll_GetStdHandle]
mov esi, eax
mov ecx, ebx
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x101494e0
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x101494cb
dec eax
push 0
lea edx, [ebp - 0x448]
push edx
push eax
push ebx
push esi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x101494ad
movzx eax, word [ecx + eax + 0x5c]
cmp eax, 2
jne 0x10149492
push str.user32.dll
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
test eax, eax
je 0x10149542
push 0x101bbdb0
push eax
call dword [sym.imp.KERNEL32.dll_GetProcAddress]
test eax, eax
je 0x10149542
push 0x12010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
push 0
call eax
test eax, eax
jne 0x101494ad
cmp dword [ebp - 4], 0xaa
je 0x10149550
jmp 0x1014949b
cmp dword [ebp - 4], 0xaa
je 0x1014958a
jmp 0x1014949b
push 0xfffffffffffffff4
call dword [sym.imp.KERNEL32.dll_GetStdHandle]
mov esi, eax
mov ecx, ebx
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x10149573
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x1014955e
dec eax
push 0
lea edx, [ebp - 0x450]
push edx
push eax
push ebx
push esi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x101494ad
push 0xfffffffffffffff4
call dword [sym.imp.KERNEL32.dll_GetStdHandle]
mov esi, eax
mov ecx, ebx
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x101495ad
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10149598
dec eax
push 0
lea edx, [ebp - 0x44c]
push edx
push eax
push ebx
push esi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x101494ad
xor edx, edx
push edx
push 0x80
push 4
push edx
push edx
push 0x40000000
push eax
call dword [sym.imp.KERNEL32.dll_CreateFileA]
mov esi, eax
cmp esi, 0xffffffff
je 0x1014944b
push 2
xor eax, eax
push eax
push eax
push esi
call dword [sym.imp.KERNEL32.dll_SetFilePointer]
mov ecx, ebx
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x1014960d
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x101495f8
dec eax
push 0
lea edx, [ebp - 0x444]
push edx
push eax
push ebx
push esi
call dword [sym.imp.KERNEL32.dll_WriteFile]
push esi
call dword [sym.imp.KERNEL32.dll_CloseHandle]
jmp 0x1014944b
call fcn.1014fda0
mov eax, dword [0x10540ce8]
test eax, eax
je 0x1014964c
push eax
call fcn.10146540
add esp, 4
mov dword [0x10540ce8], 0
cmp dword [ebp - 0x14], 0
je 0x10149653
int3
push str.f77_dump_flag
call fcn.10155190
add esp, 4
test eax, eax
jne 0x101496a1
push str.decfort_dump_flag
call fcn.10155190
add esp, 4
test eax, eax
jne 0x101496a1
cmp dword [0x103ee370], 0
jne 0x101496a1
cmp dword [0x103f788c], 0
je 0x10149696
push 1
call fcn.1017bf00
add esp, 4
jmp 0x10149034
push dword [ebp - 4]
call fcn.1012ebe6
add esp, 4
call fcn.1013aa38
mov esi, dword [eax + edx*4 + 0x101e3ca4]
cmp dword [0x101e527c], 0
je 0x101496bf
mov edi, dword [eax + edx*4 + 0x101e3ca8]
jmp 0x10149721
push 0
mov edi, dword [eax + edx*4 + 0x101e3ca8]
lea edx, [ebp - 0x20]
mov eax, dword [ebp - 4]
push 0x200
push edx
push 0x409
lea ecx, [eax - 0x80000000]
push ecx
push dword [0x10540f18]
push 0x900
call dword [sym.imp.KERNEL32.dll_FormatMessageA]
test eax, eax
je 0x10149721
mov edi, dword [ebp - 0x20]
mov ecx, edi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x10149711
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x101496fc
dec eax
cmp eax, 1
jbe 0x10149721
cmp byte [edi + eax - 2], 0xd
je 0x101498a6
xor edx, edx
lea eax, [ebp - 0x217]
push edx
push 0x189
push eax
push edx
push edx
push edi
push 0x600
call dword [sym.imp.KERNEL32.dll_FormatMessageA]
test eax, eax
jne 0x10148ba5
cmp dword [0x101e5278], 0
je 0x10149867
mov dword [0x101e5278], 0
call dword [sym.imp.KERNEL32.dll_GetThreadLocale]
push str.ifcore_msg.dll
push eax
push str._lu__s
lea edx, [ebp - 0x440]
push edx
call fcn.10129fab
add esp, 0x10
lea eax, [ebp - 0x440]
push eax
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
mov dword [0x10540f18], eax
test eax, eax
je 0x101498d2
mov dword [0x101e527c], 0
xor eax, eax
mov dword [ebp - 0x44c], ebx
mov dword [ebp - 0x450], esi
mov esi, eax
cmp esi, 5
je 0x101498bb
mov edx, 0x103ee360
lea eax, [esi + 0x1c2]
lea ecx, [ebp - 0x34]
call fcn.10149980
mov ecx, dword [ebp - 0x34]
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x101497e7
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x101497d2
dec eax
mov ebx, eax
lea edx, [esi*4 + 0x101e5280]
push edx
push 0
inc ebx
push ebx
call fcn.10146480
push ebx
push dword [ebp - 0x34]
push dword [esi*4 + 0x101e5280]
call fcn.1017a2a0
add esp, 0x18
inc esi
cmp esi, 6
jl 0x101497b1
mov eax, 0x1c7
mov edx, 0x103ee360
mov ebx, dword [ebp - 0x44c]
lea ecx, [ebp - 0x34]
mov esi, dword [ebp - 0x450]
call fcn.10149980
push 0x10
push dword [ebp - 0x34]
push str.forrtl
call fcn.1017a2a0
add esp, 0xc
mov eax, 0x1f9
mov edx, 0x103ee360
lea ecx, [ebp - 0x34]
call fcn.10149980
push 0x40
push dword [ebp - 0x34]
push str.Intel_r__Visual_Fortran_run_time_error
call fcn.1017a2a0
add esp, 0xc
xor edx, edx
lea eax, [edx*8]
cmp dword [eax + edx*4 + 0x101e3ca0], 0x1f4
je 0x101498e1
inc edx
cmp edx, 0x1d2
jl 0x10149869
push edi
push 0x101bbd40
lea eax, [ebp - 0x217]
push eax
call fcn.10129fab
add esp, 0xc
lea edi, [ebp - 0x217]
jmp 0x10148ba5
cmp byte [edi + eax - 1], 0xa
jne 0x10149721
mov byte [edi + eax - 2], 0
jmp 0x10149721
mov eax, 0x30b
mov edx, 0x103ee360
lea ecx, [ebp - 0x34]
call fcn.10149980
jmp 0x101497cd
cmp dword [0x101e527c], 0
je 0x101497a1
jmp 0x10149867
mov esi, dword [eax + edx*4 + 0x101e3ca4]
cmp dword [0x101e527c], 0
je 0x101498fa
mov edi, dword [eax + edx*4 + 0x101e3ca8]
jmp 0x10149886
push 0
mov edi, dword [eax + edx*4 + 0x101e3ca8]
lea eax, [ebp - 0x3c]
push 0x200
push eax
push 0x409
push 0x800001f4
push dword [0x10540f18]
push 0x900
call dword [sym.imp.KERNEL32.dll_FormatMessageA]
test eax, eax
je 0x10149886
mov edi, dword [ebp - 0x3c]
mov ecx, edi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x1014994b
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10149936
dec eax
cmp eax, 1
jbe 0x10149886
cmp byte [edi + eax - 2], 0xd
jne 0x10149886
cmp byte [edi + eax - 1], 0xa
jne 0x10149886
mov byte [edi + eax - 2], 0
jmp 0x10149886