Function at 0x4139f0
Capabilities:
Write file on windows

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x14
push str.FOR_DIAGNOSTIC_LOG_FILE
mov dword [ebp - 0xc], ebx
mov ebx, eax
mov dword [ebp - 8], edi
mov edi, edx
mov dword [ebp - 4], esi
call fcn.0046ccd0
add esp, 4
test eax, eax
je 0x413a44
cmp edi, 0xaa
je 0x413bac
push 0x4dc074
push eax
call fcn.0046e8a0
add esp, 8
mov esi, eax
test esi, esi
je 0x413a44
push esi
push ebx
call fcn.0046e980
push esi
call fcn.0046ed80
add esp, 0xc
push str.FOR_DISABLE_DIAGNOSTIC_DISPLAY
call fcn.0042bbe0
add esp, 4
test eax, eax
jne 0x413aa5
cmp dword [0x5045e0], 0
je 0x413a73
push 0x2010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
call fcn.004c48d0
add esp, 0xc
jmp 0x413aa5
push 0
call dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
mov ecx, dword [eax + 0x3c]
movzx edx, word [ecx + eax + 0x18]
cmp edx, 0x10b
je 0x413ae8
cmp edi, 0xaa
je 0x413ab4
call fcn.0046cff0
add eax, 0x40
push eax
push ebx
call fcn.0046e980
add esp, 8
xor eax, eax
mov ebx, dword [ebp - 0xc]
mov esi, dword [ebp - 4]
mov edi, dword [ebp - 8]
mov esp, ebp
pop ebp
ret
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 0x413ad7
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x413ac2
dec eax
push 0
lea edx, [ebp - 0x14]
push edx
push eax
push ebx
push esi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x413aa5
movzx eax, word [ecx + eax + 0x5c]
cmp eax, 2
jne 0x413a8b
push 0x4dc0bc
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
test eax, eax
je 0x413b31
push str.MessageBoxA
push eax
call dword [sym.imp.KERNEL32.dll_GetProcAddress]
test eax, eax
je 0x413b31
push 0x12010
push str.Intel_r__Visual_Fortran_run_time_error
push ebx
push 0
call eax
test eax, eax
jne 0x413aa5
cmp edi, 0xaa
je 0x413b3e
jmp 0x413a93
cmp edi, 0xaa
je 0x413b75
jmp 0x413a93
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 0x413b61
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x413b4c
dec eax
push 0
lea edx, [ebp - 0x14]
push edx
push eax
push ebx
push esi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x413aa5
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 0x413b98
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x413b83
dec eax
push 0
lea edx, [ebp - 0x14]
push edx
push eax
push ebx
push esi
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x413aa5
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 0x413a44
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 0x413bf5
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x413be0
dec eax
push 0
lea edx, [ebp - 0x10]
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 0x413a44