Function at 0x4db180
Capabilities:
Terminate process
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 0x4db1c7
push str.FOR__IS_DEBUGGER_PRESENT
call fcn.0050c6d0
add esp, 4
test eax, eax
jne 0x4db1c7
push str.FOR_DEBUGGER_IS_PRESENT
call fcn.0050c6d0
add esp, 4
test eax, eax
je 0x4db1d0
mov dword [ebp - 0x14], 1
jmp 0x4db1d7
mov dword [ebp - 0x14], 0
push str.FOR_DISABLE_STACK_TRACE
call fcn.0050c6d0
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.00505140
add esp, 0x10
xor ebx, ebx
test eax, eax
movzx eax, word [ebp - 0x264]
mov dword [ebp - 4], eax
sete bl
cmp dword [0x6351f8], 0
je 0x4db313
mov dword [0x6351f8], 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.005526f0
add esp, 0x10
push esi
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
mov dword [0xa829c4], eax
test eax, eax
je 0x4db7e8
mov dword [0x6351fc], 0
xor edi, edi
cmp edi, 5
je 0x4db7d1
mov edx, 0x642380
lea eax, [edi + 0x1c2]
lea ecx, [ebp - 0x1c]
call fcn.004dc110
mov ecx, dword [ebp - 0x1c]
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x4db29f
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4db28a
dec eax
mov esi, eax
lea eax, [edi*4 + 0x635200]
push eax
push 0
inc esi
push esi
call fcn.00505140
push esi
push dword [ebp - 0x1c]
push dword [edi*4 + 0x635200]
call fcn.005525c0
add esp, 0x18
inc edi
cmp edi, 6
jl 0x4db269
mov eax, 0x1c7
mov edx, 0x642380
lea ecx, [ebp - 0x1c]
call fcn.004dc110
push 0x10
push dword [ebp - 0x1c]
push str.forrtl
call fcn.005525c0
add esp, 0xc
mov eax, 0x1f9
mov edx, 0x642380
lea ecx, [ebp - 0x1c]
call fcn.004dc110
push 0x40
push dword [ebp - 0x1c]
push str.Intel_r__Visual_Fortran_run_time_error
call fcn.005525c0
add esp, 0xc
mov ecx, dword [ebp - 4]
xor edx, edx
lea eax, [edx*8]
cmp ecx, dword [eax + edx*4 + 0x633c20]
je 0x4dbe36
inc edx
cmp edx, 0x1d2
jl 0x4db318
cmp dword [ebp + 0xc], 0
jle 0x4db355
lea eax, [ebp + 0x10]
push eax
push edi
lea edx, [ebp - 0x3f0]
push edx
call fcn.00552be0
add esp, 0xc
lea edi, [ebp - 0x3f0]
mov eax, dword [0x642398]
test eax, eax
mov dword [ebp - 0x448], eax
je 0x4db3d6
mov ecx, edi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x4db37d
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4db368
dec eax
mov dword [ebp - 0x450], eax
cmp eax, dword [ebp - 0x448]
jb 0x4db3a2
push dword [ebp - 0x448]
push edi
push dword [0x642394]
call fcn.005a35a0
add esp, 0xc
jmp 0x4db3d6
push dword [ebp - 0x450]
push edi
push dword [0x642394]
call fcn.005a35a0
mov eax, dword [ebp - 0x450]
mov edx, dword [0x642398]
sub edx, eax
push edx
mov ecx, dword [0x642394]
push 0x20
add ecx, eax
push ecx
call fcn.005a3600
add esp, 0x18
push 0x642388
call fcn.004fa4d0
add esp, 4
mov eax, dword [0x64238c]
test eax, eax
jne 0x4db42e
push str.FORT0
mov dword [0x64238c], 1
call fcn.00552d40
mov dword [ebp - 0x450], eax
add esp, 4
cmp dword [ebp - 0x450], 0
je 0x4db42e
call fcn.00553490
add eax, 0x40
push eax
push 0x5ecbd8
push dword [ebp - 0x450]
call fcn.00553a10
add esp, 0xc
mov eax, dword [esi*4 + 0x635200]
mov dword [0x642388], 0
mov dword [ebp - 0x260], eax
cmp dword [0x633bc0], 0
jne 0x4db45b
mov eax, dword [0x642160]
mov dword [ebp - 0x258], eax
jmp 0x4db4aa
push str.libicaf.dll
call dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
test eax, eax
je 0x4db47d
push str.for_rtl_THIS_IMAGE
push eax
call dword [sym.imp.KERNEL32.dll_GetProcAddress]
mov dword [0x642164], eax
jmp 0x4db482
mov eax, dword [0x642164]
test eax, eax
je 0x4db495
call eax
mov dword [ebp - 0x258], eax
mov dword [0x642160], eax
jmp 0x4db4a0
mov eax, dword [0x642160]
mov dword [ebp - 0x258], eax
mov dword [0x633bc0], 0
cmp dword [ebp - 0x258], 0
je 0x4db4c0
mov eax, dword [str.In_coarray_image__d_n]
mov dword [ebp - 0x25c], eax
jmp 0x4db4c8
xor eax, eax
mov dword [ebp - 0x25c], eax
test ebx, ebx
jne 0x4db73d
mov ecx, dword [ebp - 0x260]
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x4db4ed
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4db4d8
dec eax
mov ecx, edi
mov dword [ebp - 0x450], eax
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x4db50c
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4db4f7
dec eax
mov edx, dword [ebp - 0x450]
cmp dword [ebp - 0x258], 0
lea ecx, [edx + eax + 0x15]
mov dword [ebp - 0x448], ecx
je 0x4db548
mov ecx, dword [ebp - 0x25c]
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x4db542
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4db52d
dec eax
add dword [ebp - 0x448], eax
lea eax, [ebp - 0x18]
push eax
push 0
push dword [ebp - 0x448]
call fcn.00505140
add esp, 0xc
test eax, eax
je 0x4db6e3
mov eax, dword [ebp - 0x264]
mov dword [ebp - 0x30], 1
mov dword [ebp - 0x2c], eax
cmp dword [0x6351f8], 0
je 0x4db687
mov dword [0x6351f8], 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.005526f0
add esp, 0x10
lea eax, [ebp - 0x267]
push eax
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
mov dword [0xa829c4], eax
test eax, eax
je 0x4db811
mov dword [0x6351fc], 0
mov dword [ebp - 0x44c], ebx
xor edi, edi
cmp edi, 5
je 0x4db7fa
mov edx, 0x642380
lea eax, [edi + 0x1c2]
lea ecx, [ebp - 0x24]
call fcn.004dc110
mov ecx, dword [ebp - 0x24]
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x4db60d
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4db5f8
dec eax
mov ebx, eax
lea eax, [edi*4 + 0x635200]
push eax
push 0
inc ebx
push ebx
call fcn.00505140
push ebx
push dword [ebp - 0x24]
push dword [edi*4 + 0x635200]
call fcn.005525c0
add esp, 0x18
inc edi
cmp edi, 6
jl 0x4db5d7
mov eax, 0x1c7
mov edx, 0x642380
mov ebx, dword [ebp - 0x44c]
lea ecx, [ebp - 0x24]
call fcn.004dc110
push 0x10
push dword [ebp - 0x24]
push str.forrtl
call fcn.005525c0
add esp, 0xc
mov eax, 0x1f9
mov edx, 0x642380
lea ecx, [ebp - 0x24]
call fcn.004dc110
push 0x40
push dword [ebp - 0x24]
push str.Intel_r__Visual_Fortran_run_time_error
call fcn.005525c0
add esp, 0xc
xor edx, edx
lea eax, [edx*8]
cmp dword [eax + edx*4 + 0x633c20], 0x1f6
je 0x4db838
inc edx
cmp edx, 0x1d2
jl 0x4db689
cmp dword [ebp - 0x30], 0
jle 0x4db823
lea eax, [ebp - 0x2c]
push eax
push edi
push 0x642280
call fcn.00552be0
add esp, 0xc
call fcn.00553490
push 0x642280
push 0x5ecb40
add eax, 0x40
push eax
call fcn.00553a70
jmp 0x4db786
push dword [ebp - 4]
push dword [ebp - 0x260]
push 0x642180
call fcn.005526f0
push edi
push 0x642180
push str._s_s_r_n
push dword [ebp - 0x18]
call fcn.005526f0
add esp, 0x1c
cmp dword [ebp - 0x258], 0
jne 0x4db71c
mov ebx, 2
jmp 0x4db789
push dword [ebp - 0x258]
push dword [ebp - 0x25c]
mov edx, dword [ebp - 0x18]
add edx, eax
push edx
call fcn.005526f0
add esp, 0xc
mov ebx, 2
jmp 0x4db789
push dword [ebp - 4]
push dword [ebp - 0x260]
push 0x642180
call fcn.005526f0
push edi
push 0x642180
push str._s_s_r_n
push dword [ebp - 0x18]
call fcn.005526f0
add esp, 0x1c
cmp dword [ebp - 0x258], 0
je 0x4db789
push dword [ebp - 0x258]
push dword [0x635214]
mov edx, dword [ebp - 0x18]
add edx, eax
push edx
call fcn.005526f0
add esp, 0xc
cmp esi, 4
je 0x4dbb4a
mov eax, dword [0xa829c0]
test eax, eax
je 0x4db7ad
cmp dword [ebp - 0x444], 0
jne 0x4db7ad
cmp ebx, 1
je 0x4db8d4
test ebx, ebx
jne 0x4db910
cmp dword [ebp - 0x14], 0
je 0x4db7c4
cmp esi, 3
je 0x4dbb35
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, 0x642380
lea ecx, [ebp - 0x1c]
call fcn.004dc110
jmp 0x4db285
cmp dword [0x6351fc], 0
je 0x4db267
jmp 0x4db313
mov eax, 0x30b
mov edx, 0x642380
lea ecx, [ebp - 0x24]
call fcn.004dc110
jmp 0x4db5f3
cmp dword [0x6351fc], 0
je 0x4db5cf
jmp 0x4db687
push 0x100
push edi
push 0x642280
call fcn.005525c0
jmp 0x4db6c3
mov ecx, dword [eax + edx*4 + 0x633c24]
mov dword [0x642380], ecx
cmp dword [0x6351fc], 0
je 0x4db85a
mov edi, dword [eax + edx*4 + 0x633c28]
jmp 0x4db6aa
push 0
mov edi, dword [eax + edx*4 + 0x633c28]
lea eax, [ebp - 0x38]
push 0x200
push eax
push 0x409
push 0x800001f6
push dword [0xa829c4]
push 0x900
call dword [sym.imp.KERNEL32.dll_FormatMessageA]
test eax, eax
je 0x4db6aa
mov edi, dword [ebp - 0x38]
mov ecx, edi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x4db8ab
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4db896
dec eax
cmp eax, 1
jbe 0x4db6aa
cmp byte [edi + eax - 2], 0xd
jne 0x4db6aa
cmp byte [edi + eax - 1], 0xa
jne 0x4db6aa
mov byte [edi + eax - 2], 0
jmp 0x4db6aa
cmp dword [eax + 4], 0
jne 0x4db903
cmp esi, 3
je 0x4db903
cmp dword [ebp - 4], 0x197
je 0x4db903
cmp dword [ebp - 4], 0x196
je 0x4db903
cmp dword [ebp - 4], 0x195
je 0x4db903
cmp dword [ebp - 4], 0x194
jne 0x4db910
push dword [ebp - 0x18]
push dword [eax]
call fcn.0050c770
add esp, 8
push str.FOR_DIAGNOSTIC_LOG_FILE
mov ebx, dword [ebp - 0x18]
call fcn.00552d40
add esp, 4
test eax, eax
je 0x4db955
cmp dword [ebp - 4], 0xaa
je 0x4dbace
push 0x5ecbd8
push eax
call fcn.00554010
add esp, 8
mov edi, eax
test edi, edi
je 0x4db955
push edi
push ebx
call fcn.005540d0
push edi
call fcn.00554370
add esp, 0xc
push str.FOR_DISABLE_DIAGNOSTIC_DISPLAY
call fcn.0050c6d0
add esp, 4
test eax, eax
jne 0x4db9b7
cmp dword [0x64c7c0], 0
je 0x4db984
push 0x2010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
call fcn.005ad440
add esp, 0xc
jmp 0x4db9b7
push 0
call dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
mov ecx, dword [eax + 0x3c]
movzx edx, word [ecx + eax + 0x18]
cmp edx, 0x10b
je 0x4db9fe
cmp dword [ebp - 4], 0xaa
je 0x4db9c7
call fcn.00553490
add eax, 0x40
push eax
push ebx
call fcn.005540d0
add esp, 8
push dword [ebp - 0x18]
call fcn.00505200
add esp, 4
jmp 0x4db7b5
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 0x4db9ea
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4db9d5
dec eax
push 0
lea edx, [ebp - 0x448]
push edx
push eax
push ebx
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x4db9b7
movzx eax, word [ecx + eax + 0x5c]
cmp eax, 2
jne 0x4db99c
push 0x5ecc20
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
test eax, eax
je 0x4dba4c
push 0x5ecbdc
push eax
call dword [sym.imp.KERNEL32.dll_GetProcAddress]
test eax, eax
je 0x4dba4c
push 0x12010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
push 0
call eax
test eax, eax
jne 0x4db9b7
cmp dword [ebp - 4], 0xaa
je 0x4dba5a
jmp 0x4db9a5
cmp dword [ebp - 4], 0xaa
je 0x4dba94
jmp 0x4db9a5
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 0x4dba7d
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4dba68
dec eax
push 0
lea edx, [ebp - 0x450]
push edx
push eax
push ebx
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x4db9b7
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 0x4dbab7
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4dbaa2
dec eax
push 0
lea edx, [ebp - 0x44c]
push edx
push eax
push ebx
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x4db9b7
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 0x4db955
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 0x4dbb17
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4dbb02
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 0x4db955
mov eax, dword [0xa829c0]
cmp dword [eax + 4], 0
jne 0x4db7c4
int3
cmp dword [ebp - 0x444], 0
jne 0x4dbb61
mov eax, dword [0xa829c0]
test eax, eax
je 0x4dbb61
cmp ebx, 1
je 0x4dbb89
test ebx, ebx
jne 0x4dbb96
mov eax, dword [0xa829c0]
test eax, eax
je 0x4dbdbb
cmp dword [eax + 4], 0
je 0x4dbdbb
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.0050c770
add esp, 8
push str.FOR_DIAGNOSTIC_LOG_FILE
mov ebx, dword [ebp - 0x18]
call fcn.00552d40
add esp, 4
test eax, eax
je 0x4dbbdb
cmp dword [ebp - 4], 0xaa
je 0x4dbd54
push 0x5ecbd8
push eax
call fcn.00554010
add esp, 8
mov esi, eax
test esi, esi
je 0x4dbbdb
push esi
push ebx
call fcn.005540d0
push esi
call fcn.00554370
add esp, 0xc
push str.FOR_DISABLE_DIAGNOSTIC_DISPLAY
call fcn.0050c6d0
add esp, 4
test eax, eax
jne 0x4dbc3d
cmp dword [0x64c7c0], 0
je 0x4dbc0a
push 0x2010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
call fcn.005ad440
add esp, 0xc
jmp 0x4dbc3d
push 0
call dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
mov ecx, dword [eax + 0x3c]
movzx edx, word [ecx + eax + 0x18]
cmp edx, 0x10b
je 0x4dbc84
cmp dword [ebp - 4], 0xaa
je 0x4dbc4d
call fcn.00553490
add eax, 0x40
push eax
push ebx
call fcn.005540d0
add esp, 8
push dword [ebp - 0x18]
call fcn.00505200
add esp, 4
jmp 0x4dbb65
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 0x4dbc70
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4dbc5b
dec eax
push 0
lea edx, [ebp - 0x448]
push edx
push eax
push ebx
push esi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x4dbc3d
movzx eax, word [ecx + eax + 0x5c]
cmp eax, 2
jne 0x4dbc22
push 0x5ecc20
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
test eax, eax
je 0x4dbcd2
push 0x5ecbdc
push eax
call dword [sym.imp.KERNEL32.dll_GetProcAddress]
test eax, eax
je 0x4dbcd2
push 0x12010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
push 0
call eax
test eax, eax
jne 0x4dbc3d
cmp dword [ebp - 4], 0xaa
je 0x4dbce0
jmp 0x4dbc2b
cmp dword [ebp - 4], 0xaa
je 0x4dbd1a
jmp 0x4dbc2b
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 0x4dbd03
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4dbcee
dec eax
push 0
lea edx, [ebp - 0x450]
push edx
push eax
push ebx
push esi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x4dbc3d
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 0x4dbd3d
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4dbd28
dec eax
push 0
lea edx, [ebp - 0x44c]
push edx
push eax
push ebx
push esi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x4dbc3d
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 0x4dbbdb
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 0x4dbd9d
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4dbd88
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 0x4dbbdb
call fcn.0050ce00
mov eax, dword [0xa829c0]
test eax, eax
je 0x4dbddc
push eax
call fcn.00505200
add esp, 4
mov dword [0xa829c0], 0
cmp dword [ebp - 0x14], 0
je 0x4dbde3
int3
push str.f77_dump_flag
call fcn.0050c6d0
add esp, 4
test eax, eax
jne 0x4dbe31
push str.decfort_dump_flag
call fcn.0050c6d0
add esp, 4
test eax, eax
jne 0x4dbe31
cmp dword [0x642390], 0
jne 0x4dbe31
cmp dword [0x64c7c0], 0
je 0x4dbe26
push 1
call fcn.005ad580
add esp, 4
jmp 0x4db7c4
push dword [ebp - 4]
call fcn.00554680
add esp, 4
call fcn.00554e10
mov esi, dword [eax + edx*4 + 0x633c24]
cmp dword [0x6351fc], 0
je 0x4dbe4f
mov edi, dword [eax + edx*4 + 0x633c28]
jmp 0x4dbeb1
push 0
mov edi, dword [eax + edx*4 + 0x633c28]
lea edx, [ebp - 0x20]
mov eax, dword [ebp - 4]
push 0x200
push edx
push 0x409
lea ecx, [eax - 0x80000000]
push ecx
push dword [0xa829c4]
push 0x900
call dword [sym.imp.KERNEL32.dll_FormatMessageA]
test eax, eax
je 0x4dbeb1
mov edi, dword [ebp - 0x20]
mov ecx, edi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x4dbea1
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4dbe8c
dec eax
cmp eax, 1
jbe 0x4dbeb1
cmp byte [edi + eax - 2], 0xd
je 0x4dc036
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 0x4db335
cmp dword [0x6351f8], 0
je 0x4dbff7
mov dword [0x6351f8], 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.005526f0
add esp, 0x10
lea eax, [ebp - 0x440]
push eax
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
mov dword [0xa829c4], eax
test eax, eax
je 0x4dc062
mov dword [0x6351fc], 0
xor eax, eax
mov dword [ebp - 0x44c], ebx
mov dword [ebp - 0x450], esi
mov esi, eax
cmp esi, 5
je 0x4dc04b
mov edx, 0x642380
lea eax, [esi + 0x1c2]
lea ecx, [ebp - 0x34]
call fcn.004dc110
mov ecx, dword [ebp - 0x34]
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x4dbf77
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4dbf62
dec eax
mov ebx, eax
lea edx, [esi*4 + 0x635200]
push edx
push 0
inc ebx
push ebx
call fcn.00505140
push ebx
push dword [ebp - 0x34]
push dword [esi*4 + 0x635200]
call fcn.005525c0
add esp, 0x18
inc esi
cmp esi, 6
jl 0x4dbf41
mov eax, 0x1c7
mov edx, 0x642380
mov ebx, dword [ebp - 0x44c]
lea ecx, [ebp - 0x34]
mov esi, dword [ebp - 0x450]
call fcn.004dc110
push 0x10
push dword [ebp - 0x34]
push str.forrtl
call fcn.005525c0
add esp, 0xc
mov eax, 0x1f9
mov edx, 0x642380
lea ecx, [ebp - 0x34]
call fcn.004dc110
push 0x40
push dword [ebp - 0x34]
push str.Intel_r__Visual_Fortran_run_time_error
call fcn.005525c0
add esp, 0xc
xor edx, edx
lea eax, [edx*8]
cmp dword [eax + edx*4 + 0x633c20], 0x1f4
je 0x4dc071
inc edx
cmp edx, 0x1d2
jl 0x4dbff9
push edi
push 0x5ecb40
lea eax, [ebp - 0x217]
push eax
call fcn.005526f0
add esp, 0xc
lea edi, [ebp - 0x217]
jmp 0x4db335
cmp byte [edi + eax - 1], 0xa
jne 0x4dbeb1
mov byte [edi + eax - 2], 0
jmp 0x4dbeb1
mov eax, 0x30b
mov edx, 0x642380
lea ecx, [ebp - 0x34]
call fcn.004dc110
jmp 0x4dbf5d
cmp dword [0x6351fc], 0
je 0x4dbf31
jmp 0x4dbff7
mov esi, dword [eax + edx*4 + 0x633c24]
cmp dword [0x6351fc], 0
je 0x4dc08a
mov edi, dword [eax + edx*4 + 0x633c28]
jmp 0x4dc016
push 0
mov edi, dword [eax + edx*4 + 0x633c28]
lea eax, [ebp - 0x3c]
push 0x200
push eax
push 0x409
push 0x800001f4
push dword [0xa829c4]
push 0x900
call dword [sym.imp.KERNEL32.dll_FormatMessageA]
test eax, eax
je 0x4dc016
mov edi, dword [ebp - 0x3c]
mov ecx, edi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x4dc0db
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x4dc0c6
dec eax
cmp eax, 1
jbe 0x4dc016
cmp byte [edi + eax - 2], 0xd
jne 0x4dc016
cmp byte [edi + eax - 1], 0xa
jne 0x4dc016
mov byte [edi + eax - 2], 0
jmp 0x4dc016