Function at 0x40e820
Capabilities:
Terminate process
Write file on windows

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x45c
mov eax, dword [ebp + 8]
mov dword [ebp - 0xc], ebx
mov dword [ebp - 0x10], edi
mov dword [ebp - 0x14], esi
mov dword [ebp - 0x3f0], eax
call dword [sym.imp.KERNEL32.dll_IsDebuggerPresent]
test eax, eax
jne 0x40e867
push str.FOR__IS_DEBUGGER_PRESENT
call fcn.0042ab50
add esp, 4
test eax, eax
jne 0x40e867
push str.FOR_DEBUGGER_IS_PRESENT
call fcn.0042ab50
add esp, 4
test eax, eax
je 0x40e86e
mov esi, 1
jmp 0x40e870
xor esi, esi
push str.FOR_DISABLE_STACK_TRACE
call fcn.0042ab50
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.004085a0
add esp, 0x10
xor ebx, ebx
test eax, eax
movzx eax, word [ebp - 0x3f0]
mov dword [ebp - 8], eax
sete bl
cmp dword [0x4f6760], 0
je 0x40e9c5
mov dword [0x4f6760], 0
call dword [sym.imp.KERNEL32.dll_GetThreadLocale]
push str.ifcore_msg.dll
push eax
push str._lu__s
lea edx, [ebp - 0x8e]
push edx
call fcn.004665d0
add esp, 0x10
lea eax, [ebp - 0x8e]
push eax
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
mov dword [0x5036b8], eax
test eax, eax
je 0x40ed9a
mov dword [0x4f6764], 0
xor eax, eax
mov edi, 0x1c2
mov dword [ebp - 0x44c], ebx
mov ebx, eax
mov dword [ebp - 0x448], esi
mov eax, edi
mov edx, 0x4f9620
lea ecx, [ebp - 0x1c]
call fcn.0040f6b0
mov ecx, dword [ebp - 0x1c]
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x40e944
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40e92f
dec eax
mov esi, eax
lea edx, [ebx*4 + 0x4f6768]
push edx
push 0
inc esi
push esi
call fcn.004085a0
push esi
push dword [ebp - 0x1c]
push dword [ebx*4 + 0x4f6768]
call fcn.00466960
add esp, 0x18
inc ebx
inc edi
cmp ebx, 5
jl 0x40e91b
mov eax, 0x1c7
mov edx, 0x4f9620
mov ebx, dword [ebp - 0x44c]
lea ecx, [ebp - 0x1c]
mov esi, dword [ebp - 0x448]
call fcn.0040f6b0
push 0x10
push dword [ebp - 0x1c]
push str.forrtl
call fcn.00466960
add esp, 0xc
mov eax, 0x1f9
mov edx, 0x4f9620
lea ecx, [ebp - 0x1c]
call fcn.0040f6b0
push 0x40
push dword [ebp - 0x1c]
push str.Intel_r__Visual_Fortran_run_time_error
call fcn.00466960
add esp, 0xc
mov ecx, dword [ebp - 8]
xor edx, edx
lea eax, [edx*8]
cmp ecx, dword [eax + edx*4 + 0x4f51a0]
je 0x40f3eb
inc edx
cmp edx, 0x1d0
jl 0x40e9ca
xor edi, edi
mov dword [ebp - 4], edi
cmp dword [ebp + 0xc], 0
jle 0x40ea0c
lea eax, [ebp + 0x10]
push eax
push edi
lea edx, [ebp - 0x3a0]
push edx
call fcn.00466f70
add esp, 0xc
lea edi, [ebp - 0x3a0]
mov eax, dword [0x4f9638]
test eax, eax
mov dword [ebp - 0x3ec], eax
je 0x40ea8d
mov ecx, edi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x40ea34
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40ea1f
dec eax
mov dword [ebp - 0x450], eax
cmp eax, dword [ebp - 0x3ec]
jb 0x40ea59
push dword [ebp - 0x3ec]
push edi
push dword [0x4f9634]
call fcn.004ae0f0
add esp, 0xc
jmp 0x40ea8d
push dword [ebp - 0x450]
push edi
push dword [0x4f9634]
call fcn.004ae0f0
mov eax, dword [ebp - 0x450]
mov edx, dword [0x4f9638]
sub edx, eax
push edx
mov ecx, dword [0x4f9634]
push 0x20
add ecx, eax
push ecx
call fcn.004ae150
add esp, 0x18
push 0x4f9628
call fcn.004080c0
add esp, 4
mov eax, dword [0x4f962c]
test eax, eax
jne 0x40eae5
push str.FORT0
mov dword [0x4f962c], 1
call fcn.00465960
mov dword [ebp - 0x450], eax
add esp, 4
cmp dword [ebp - 0x450], 0
je 0x40eae5
call fcn.004670f0
add eax, 0x40
push eax
push 0x4ce560
push dword [ebp - 0x450]
call fcn.00467670
add esp, 0xc
mov eax, dword [ebp - 4]
test ebx, ebx
mov dword [0x4f9628], 0
mov edx, dword [eax*4 + 0x4f6768]
mov dword [ebp - 0x3ec], edx
je 0x40eb31
push dword [ebp - 8]
push dword [ebp - 0x3ec]
push 0x4f9420
call fcn.004665d0
push edi
push 0x4f9420
push str._s_s_r_n
push dword [ebp - 0x18]
call fcn.004665d0
add esp, 0x1c
jmp 0x40ed52
mov ecx, edx
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x40eb4a
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40eb35
dec eax
mov ecx, edi
mov dword [ebp - 0x450], eax
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x40eb69
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40eb54
dec eax
mov edx, dword [ebp - 0x450]
lea ecx, [ebp - 0x18]
push ecx
push 0
lea eax, [edx + eax + 0x15]
push eax
call fcn.004085a0
add esp, 0xc
test eax, eax
je 0x40ed24
mov eax, dword [ebp - 0x3f0]
mov dword [ebp - 0x30], 0x1f6
mov dword [ebp - 0x2c], 1
mov dword [ebp - 0x28], eax
cmp dword [0x4f6760], 0
je 0x40ecbb
mov dword [0x4f6760], 0
call dword [sym.imp.KERNEL32.dll_GetThreadLocale]
push str.ifcore_msg.dll
push eax
push str._lu__s
lea edx, [ebp - 0x3f0]
push edx
call fcn.004665d0
add esp, 0x10
lea eax, [ebp - 0x3f0]
push eax
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
mov dword [0x5036b8], eax
test eax, eax
je 0x40edac
mov dword [0x4f6764], 0
xor eax, eax
mov edi, 0x1c2
mov dword [ebp - 0x44c], ebx
mov ebx, eax
mov dword [ebp - 0x448], esi
mov eax, edi
mov edx, 0x4f9620
lea ecx, [ebp - 0x24]
call fcn.0040f6b0
mov ecx, dword [ebp - 0x24]
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x40ec3a
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40ec25
dec eax
mov esi, eax
lea edx, [ebx*4 + 0x4f6768]
push edx
push 0
inc esi
push esi
call fcn.004085a0
push esi
push dword [ebp - 0x24]
push dword [ebx*4 + 0x4f6768]
call fcn.00466960
add esp, 0x18
inc ebx
inc edi
cmp ebx, 5
jl 0x40ec11
mov eax, 0x1c7
mov edx, 0x4f9620
mov ebx, dword [ebp - 0x44c]
lea ecx, [ebp - 0x24]
mov esi, dword [ebp - 0x448]
call fcn.0040f6b0
push 0x10
push dword [ebp - 0x24]
push str.forrtl
call fcn.00466960
add esp, 0xc
mov eax, 0x1f9
mov edx, 0x4f9620
lea ecx, [ebp - 0x24]
call fcn.0040f6b0
push 0x40
push dword [ebp - 0x24]
push str.Intel_r__Visual_Fortran_run_time_error
call fcn.00466960
add esp, 0xc
xor edx, edx
lea eax, [edx*8]
cmp dword [eax + edx*4 + 0x4f51a0], 0x1f6
je 0x40edd8
inc edx
cmp edx, 0x1d0
jl 0x40ecbd
xor eax, eax
mov dword [ebp - 0x450], eax
cmp dword [ebp - 0x2c], 0
jle 0x40edbe
lea eax, [ebp - 0x28]
push eax
push dword [ebp - 0x450]
push 0x4f9520
call fcn.00466f70
add esp, 0xc
call fcn.004670f0
push 0x4f9520
push 0x4ce4c8
add eax, 0x40
push eax
call fcn.004676d0
add esp, 0xc
jmp 0x40ed52
push dword [ebp - 8]
push dword [ebp - 0x3ec]
push 0x4f9420
call fcn.004665d0
push edi
push 0x4f9420
push str._s_s_r_n
push dword [ebp - 0x18]
call fcn.004665d0
add esp, 0x1c
mov ebx, 2
cmp dword [ebp - 4], 4
je 0x40f101
mov eax, dword [0x503498]
test eax, eax
je 0x40ed77
cmp dword [ebp - 0x444], 0
jne 0x40ed77
cmp ebx, 1
je 0x40ee8a
test ebx, ebx
jne 0x40eec7
test esi, esi
je 0x40ed8d
cmp dword [ebp - 4], 3
je 0x40f0ec
mov ebx, dword [ebp - 0xc]
mov esi, dword [ebp - 0x14]
mov edi, dword [ebp - 0x10]
mov esp, ebp
pop ebp
ret
cmp dword [0x4f6764], 0
je 0x40e906
jmp 0x40e9c5
cmp dword [0x4f6764], 0
je 0x40ebfc
jmp 0x40ecbb
push 0x100
push dword [ebp - 0x450]
push 0x4f9520
call fcn.00466960
jmp 0x40ed04
mov ecx, dword [eax + edx*4 + 0x4f51a4]
mov dword [0x4f9620], ecx
cmp dword [0x4f6764], 0
je 0x40ee00
mov eax, dword [eax + edx*4 + 0x4f51a8]
mov dword [ebp - 0x450], eax
jmp 0x40ece6
push 0
mov eax, dword [eax + edx*4 + 0x4f51a8]
lea edx, [ebp - 0x38]
push 0x200
push edx
push 0x409
mov dword [ebp - 0x450], eax
push 0x800001f6
push dword [0x5036b8]
push 0x900
call dword [sym.imp.KERNEL32.dll_FormatMessageA]
test eax, eax
je 0x40ece6
mov ecx, dword [ebp - 0x38]
mov dword [ebp - 0x450], ecx
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x40ee5b
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40ee46
dec eax
cmp eax, 1
jbe 0x40ece6
mov edx, dword [ebp - 0x450]
cmp byte [edx + eax - 2], 0xd
jne 0x40ece6
cmp byte [edx + eax - 1], 0xa
jne 0x40ece6
mov byte [edx + eax - 2], 0
jmp 0x40ece6
cmp dword [eax + 4], 0
jne 0x40eeba
cmp dword [ebp - 4], 3
je 0x40eeba
cmp dword [ebp - 8], 0x197
je 0x40eeba
cmp dword [ebp - 8], 0x196
je 0x40eeba
cmp dword [ebp - 8], 0x195
je 0x40eeba
cmp dword [ebp - 8], 0x194
jne 0x40eec7
push dword [ebp - 0x18]
push dword [eax]
call fcn.0042aff0
add esp, 8
push str.FOR_DIAGNOSTIC_LOG_FILE
mov ebx, dword [ebp - 0x18]
call fcn.00465960
add esp, 4
test eax, eax
je 0x40ef0c
cmp dword [ebp - 8], 0xaa
je 0x40f085
push 0x4ce560
push eax
call fcn.00467c70
add esp, 8
mov edi, eax
test edi, edi
je 0x40ef0c
push edi
push ebx
call fcn.00467d30
push edi
call fcn.00467fd0
add esp, 0xc
push str.FOR_DISABLE_DIAGNOSTIC_DISPLAY
call fcn.0042ab50
add esp, 4
test eax, eax
jne 0x40ef6e
cmp dword [0x5033e0], 0
je 0x40ef3b
push 0x2010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
call fcn.004b8010
add esp, 0xc
jmp 0x40ef6e
push 0
call dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
mov ecx, dword [eax + 0x3c]
movzx edx, word [ecx + eax + 0x18]
cmp edx, 0x10b
je 0x40efb5
cmp dword [ebp - 8], 0xaa
je 0x40ef7e
call fcn.004670f0
add eax, 0x40
push eax
push ebx
call fcn.00467d30
add esp, 8
push dword [ebp - 0x18]
call fcn.00408660
add esp, 4
jmp 0x40ed7f
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 0x40efa1
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40ef8c
dec eax
push 0
lea edx, [ebp - 0x448]
push edx
push eax
push ebx
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x40ef6e
movzx eax, word [ecx + eax + 0x5c]
cmp eax, 2
jne 0x40ef53
push str.user32.dll
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
test eax, eax
je 0x40f003
push 0x4ce564
push eax
call dword [sym.imp.KERNEL32.dll_GetProcAddress]
test eax, eax
je 0x40f003
push 0x12010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
push 0
call eax
test eax, eax
jne 0x40ef6e
cmp dword [ebp - 8], 0xaa
je 0x40f011
jmp 0x40ef5c
cmp dword [ebp - 8], 0xaa
je 0x40f04b
jmp 0x40ef5c
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 0x40f034
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40f01f
dec eax
push 0
lea edx, [ebp - 0x450]
push edx
push eax
push ebx
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x40ef6e
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 0x40f06e
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40f059
dec eax
push 0
lea edx, [ebp - 0x44c]
push edx
push eax
push ebx
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x40ef6e
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 0x40ef0c
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 0x40f0ce
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40f0b9
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 0x40ef0c
mov eax, dword [0x503498]
cmp dword [eax + 4], 0
jne 0x40ed8d
int3
cmp dword [ebp - 0x444], 0
jne 0x40f118
mov eax, dword [0x503498]
test eax, eax
je 0x40f118
cmp ebx, 1
je 0x40f140
test ebx, ebx
jne 0x40f14d
mov eax, dword [0x503498]
test eax, eax
je 0x40f372
cmp dword [eax + 4], 0
je 0x40f372
mov ebx, dword [ebp - 0xc]
mov esi, dword [ebp - 0x14]
mov edi, dword [ebp - 0x10]
mov esp, ebp
pop ebp
ret
push dword [ebp - 0x18]
push dword [eax]
call fcn.0042aff0
add esp, 8
push str.FOR_DIAGNOSTIC_LOG_FILE
mov ebx, dword [ebp - 0x18]
call fcn.00465960
add esp, 4
test eax, eax
je 0x40f192
cmp dword [ebp - 8], 0xaa
je 0x40f30b
push 0x4ce560
push eax
call fcn.00467c70
add esp, 8
mov edi, eax
test edi, edi
je 0x40f192
push edi
push ebx
call fcn.00467d30
push edi
call fcn.00467fd0
add esp, 0xc
push str.FOR_DISABLE_DIAGNOSTIC_DISPLAY
call fcn.0042ab50
add esp, 4
test eax, eax
jne 0x40f1f4
cmp dword [0x5033e0], 0
je 0x40f1c1
push 0x2010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
call fcn.004b8010
add esp, 0xc
jmp 0x40f1f4
push 0
call dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
mov ecx, dword [eax + 0x3c]
movzx edx, word [ecx + eax + 0x18]
cmp edx, 0x10b
je 0x40f23b
cmp dword [ebp - 8], 0xaa
je 0x40f204
call fcn.004670f0
add eax, 0x40
push eax
push ebx
call fcn.00467d30
add esp, 8
push dword [ebp - 0x18]
call fcn.00408660
add esp, 4
jmp 0x40f11c
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 0x40f227
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40f212
dec eax
push 0
lea edx, [ebp - 0x448]
push edx
push eax
push ebx
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x40f1f4
movzx eax, word [ecx + eax + 0x5c]
cmp eax, 2
jne 0x40f1d9
push str.user32.dll
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
test eax, eax
je 0x40f289
push 0x4ce564
push eax
call dword [sym.imp.KERNEL32.dll_GetProcAddress]
test eax, eax
je 0x40f289
push 0x12010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
push 0
call eax
test eax, eax
jne 0x40f1f4
cmp dword [ebp - 8], 0xaa
je 0x40f297
jmp 0x40f1e2
cmp dword [ebp - 8], 0xaa
je 0x40f2d1
jmp 0x40f1e2
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 0x40f2ba
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40f2a5
dec eax
push 0
lea edx, [ebp - 0x450]
push edx
push eax
push ebx
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x40f1f4
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 0x40f2f4
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40f2df
dec eax
push 0
lea edx, [ebp - 0x44c]
push edx
push eax
push ebx
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x40f1f4
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 0x40f192
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 0x40f354
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40f33f
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 0x40f192
call fcn.0042b290
mov eax, dword [0x503498]
test eax, eax
je 0x40f393
push eax
call fcn.00408660
add esp, 4
mov dword [0x503498], 0
test esi, esi
je 0x40f398
int3
push str.f77_dump_flag
call fcn.0042ab50
add esp, 4
test eax, eax
jne 0x40f3e6
push str.decfort_dump_flag
call fcn.0042ab50
add esp, 4
test eax, eax
jne 0x40f3e6
cmp dword [0x4f9630], 0
jne 0x40f3e6
cmp dword [0x5033e0], 0
je 0x40f3db
push 1
call fcn.004b8150
add esp, 4
jmp 0x40ed8d
push dword [ebp - 8]
call fcn.00468280
add esp, 4
call fcn.004689c0
mov ecx, dword [eax + edx*4 + 0x4f51a4]
mov dword [ebp - 4], ecx
cmp dword [0x4f6764], 0
je 0x40f407
mov edi, dword [eax + edx*4 + 0x4f51a8]
jmp 0x40f469
push 0
mov edi, dword [eax + edx*4 + 0x4f51a8]
lea edx, [ebp - 0x20]
mov eax, dword [ebp - 8]
push 0x200
push edx
push 0x409
lea ecx, [eax - 0x80000000]
push ecx
push dword [0x5036b8]
push 0x900
call dword [sym.imp.KERNEL32.dll_FormatMessageA]
test eax, eax
je 0x40f469
mov edi, dword [ebp - 0x20]
mov ecx, edi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x40f459
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40f444
dec eax
cmp eax, 1
jbe 0x40f469
cmp byte [edi + eax - 2], 0xd
je 0x40f5f5
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 0x40e9ec
cmp dword [0x4f6760], 0
je 0x40f5b6
mov dword [0x4f6760], 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.004665d0
add esp, 0x10
lea eax, [ebp - 0x440]
push eax
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
mov dword [0x5036b8], eax
test eax, eax
je 0x40f60a
mov dword [0x4f6764], 0
xor edx, edx
mov eax, 0x1c2
mov dword [ebp - 0x450], edi
mov edi, eax
mov dword [ebp - 0x44c], ebx
mov dword [ebp - 0x448], esi
mov esi, edx
mov eax, edi
mov edx, 0x4f9620
lea ecx, [ebp - 0x34]
call fcn.0040f6b0
mov ecx, dword [ebp - 0x34]
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x40f52f
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40f51a
dec eax
mov ebx, eax
lea ecx, [esi*4 + 0x4f6768]
push ecx
push 0
inc ebx
push ebx
call fcn.004085a0
push ebx
push dword [ebp - 0x34]
push dword [esi*4 + 0x4f6768]
call fcn.00466960
add esp, 0x18
inc esi
inc edi
cmp esi, 5
jl 0x40f506
mov eax, 0x1c7
mov edx, 0x4f9620
mov edi, dword [ebp - 0x450]
lea ecx, [ebp - 0x34]
mov ebx, dword [ebp - 0x44c]
mov esi, dword [ebp - 0x448]
call fcn.0040f6b0
push 0x10
push dword [ebp - 0x34]
push str.forrtl
call fcn.00466960
add esp, 0xc
mov eax, 0x1f9
mov edx, 0x4f9620
lea ecx, [ebp - 0x34]
call fcn.0040f6b0
push 0x40
push dword [ebp - 0x34]
push str.Intel_r__Visual_Fortran_run_time_error
call fcn.00466960
add esp, 0xc
xor edx, edx
lea eax, [edx*8]
cmp dword [eax + edx*4 + 0x4f51a0], 0x1f4
je 0x40f619
inc edx
cmp edx, 0x1d0
jl 0x40f5b8
push edi
push 0x4ce4c8
lea eax, [ebp - 0x217]
push eax
call fcn.004665d0
add esp, 0xc
lea edi, [ebp - 0x217]
jmp 0x40e9ec
cmp byte [edi + eax - 1], 0xa
jne 0x40f469
mov byte [edi + eax - 2], 0
jmp 0x40f469
cmp dword [0x4f6764], 0
je 0x40f4e9
jmp 0x40f5b6
mov ecx, dword [eax + edx*4 + 0x4f51a4]
mov dword [ebp - 4], ecx
cmp dword [0x4f6764], 0
je 0x40f635
mov edi, dword [eax + edx*4 + 0x4f51a8]
jmp 0x40f5d5
push 0
mov edi, dword [eax + edx*4 + 0x4f51a8]
lea eax, [ebp - 0x3c]
push 0x200
push eax
push 0x409
push 0x800001f4
push dword [0x5036b8]
push 0x900
call dword [sym.imp.KERNEL32.dll_FormatMessageA]
test eax, eax
je 0x40f5d5
mov edi, dword [ebp - 0x3c]
mov ecx, edi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x40f686
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x40f671
dec eax
cmp eax, 1
jbe 0x40f5d5
cmp byte [edi + eax - 2], 0xd
jne 0x40f5d5
cmp byte [edi + eax - 1], 0xa
jne 0x40f5d5
mov byte [edi + eax - 2], 0
jmp 0x40f5d5