Function at 0x418834
Capabilities:
Resolve function by parsing pe exports

Disassembly:
push ebp
mov ebp, esp
push edi
push esi
push ebx
sub esp, 0x55c
fld dword [0x46a034]
fstp dword [ebp - 0x40]
fldz
fstp dword [ebp - 0x44]
fld dword [ebp - 0x40]
fld dword [0x46a044]
fmulp st(1)
fstp dword [ebp - 0x48]
mov dword [esp + 8], 0x32
lea eax, [ebp - 0xaa]
mov dword [esp + 4], eax
mov dword [esp], 0x4681f8
call sym.__gfortran_getarg_i4
mov dword [esp + 0x10], 0
mov dword [esp + 0xc], 0x469dd4
mov dword [esp + 8], 1
lea eax, [ebp - 0xaa]
mov dword [esp + 4], eax
mov dword [esp], 0x32
call sym.__gfortran_string_index
sub eax, 1
mov dword [ebp - 0x154], eax
mov eax, dword [ebp - 0x154]
test eax, eax
jg 0x418933
lea eax, [ebp - 0xaa]
mov edx, dword [0x469dd5]
mov dword [eax], edx
movzx edx, word [0x469dd9]
mov word [eax + 4], dx
lea eax, [ebp - 0xaa]
add eax, 6
mov dword [eax], 0x20202020
mov dword [eax + 4], 0x20202020
mov dword [eax + 8], 0x20202020
mov dword [eax + 0xc], 0x20202020
mov dword [eax + 0x10], 0x20202020
mov dword [eax + 0x14], 0x20202020
mov dword [eax + 0x18], 0x20202020
mov dword [eax + 0x1c], 0x20202020
mov dword [eax + 0x20], 0x20202020
mov dword [eax + 0x24], 0x20202020
mov dword [eax + 0x28], 0x20202020
mov dword [ebp - 0x154], 6
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x1c4
mov eax, dword [ebp - 0x154]
mov edx, 0
test eax, eax
cmovs eax, edx
add eax, 4
mov edx, 1
test eax, eax
cmove eax, edx
mov dword [esp], eax
call sym._malloc
mov ebx, eax
mov eax, dword [ebp - 0x154]
mov edx, 0
test eax, eax
cmovns edx, eax
mov eax, dword [ebp - 0x154]
mov ecx, 0
test eax, eax
cmovs eax, ecx
lea ecx, [eax + 4]
mov dword [esp + 0x14], 0x469ddb
mov dword [esp + 0x10], 4
lea eax, [ebp - 0xaa]
mov dword [esp + 0xc], eax
mov dword [esp + 8], edx
mov dword [esp + 4], ebx
mov dword [esp], ecx
call sym.__gfortran_concat_string
mov dword [ebp - 0x404], ebx
mov eax, dword [ebp - 0x154]
mov edx, 0
test eax, eax
cmovs eax, edx
add eax, 4
mov dword [ebp - 0x408], eax
mov dword [ebp - 0x400], 0x4684b8
mov dword [ebp - 0x3fc], 7
mov dword [ebp - 0x38c], 0
mov dword [ebp - 0x430], 0x1000300
mov dword [ebp - 0x42c], 8
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_open
mov dword [esp], ebx
call sym._free
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x1c5
mov eax, dword [ebp - 0x154]
mov edx, 0
test eax, eax
cmovs eax, edx
add eax, 3
mov edx, 1
test eax, eax
cmove eax, edx
mov dword [esp], eax
call sym._malloc
mov ebx, eax
mov eax, dword [ebp - 0x154]
mov edx, 0
test eax, eax
cmovns edx, eax
mov eax, dword [ebp - 0x154]
mov ecx, 0
test eax, eax
cmovs eax, ecx
lea ecx, [eax + 3]
mov dword [esp + 0x14], 0x469ddf
mov dword [esp + 0x10], 3
lea eax, [ebp - 0xaa]
mov dword [esp + 0xc], eax
mov dword [esp + 8], edx
mov dword [esp + 4], ebx
mov dword [esp], ecx
call sym.__gfortran_concat_string
mov dword [ebp - 0x404], ebx
mov eax, dword [ebp - 0x154]
mov edx, 0
test eax, eax
cmovs eax, edx
add eax, 3
mov dword [ebp - 0x408], eax
mov dword [ebp - 0x400], 0x4684b8
mov dword [ebp - 0x3fc], 7
mov dword [ebp - 0x38c], 0
mov dword [ebp - 0x430], 0x1000300
mov dword [ebp - 0x42c], 9
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_open
mov dword [esp], ebx
call sym._free
mov dword [esp + 0xf8], 0x32
mov dword [esp + 0xf4], 0x32
lea eax, [ebp - 0x154]
mov dword [esp + 0xf0], eax
lea eax, [ebp - 0xaa]
mov dword [esp + 0xec], eax
lea eax, [ebp - 0x158]
mov dword [esp + 0xe8], eax
lea eax, [ebp - 0x17c]
mov dword [esp + 0xe4], eax
lea eax, [ebp - 0x15c]
mov dword [esp + 0xe0], eax
lea eax, [ebp - 0xe4]
mov dword [esp + 0xdc], eax
lea eax, [ebp - 0x274]
mov dword [esp + 0xd8], eax
lea eax, [ebp - 0x1d4]
mov dword [esp + 0xd4], eax
lea eax, [ebp - 0x27c]
mov dword [esp + 0xd0], eax
lea eax, [ebp - 0x260]
mov dword [esp + 0xcc], eax
lea eax, [ebp - 0x248]
mov dword [esp + 0xc8], eax
lea eax, [ebp - 0x270]
mov dword [esp + 0xc4], eax
lea eax, [ebp - 0x258]
mov dword [esp + 0xc0], eax
lea eax, [ebp - 0x240]
mov dword [esp + 0xbc], eax
lea eax, [ebp - 0xc8]
mov dword [esp + 0xb8], eax
lea eax, [ebp - 0x22c]
mov dword [esp + 0xb4], eax
lea eax, [ebp - 0xf4]
mov dword [esp + 0xb0], eax
lea eax, [ebp - 0x268]
mov dword [esp + 0xac], eax
lea eax, [ebp - 0x250]
mov dword [esp + 0xa8], eax
lea eax, [ebp - 0x238]
mov dword [esp + 0xa4], eax
lea eax, [ebp - 0x78]
mov dword [esp + 0xa0], eax
lea eax, [ebp - 0x70]
mov dword [esp + 0x9c], eax
lea eax, [ebp - 0x1c8]
mov dword [esp + 0x98], eax
lea eax, [ebp - 0x1b0]
mov dword [esp + 0x94], eax
lea eax, [ebp - 0x178]
mov dword [esp + 0x90], eax
lea eax, [ebp - 0x170]
mov dword [esp + 0x8c], eax
lea eax, [ebp - 0x14c]
mov dword [esp + 0x88], eax
lea eax, [ebp - 0x1fc]
mov dword [esp + 0x84], eax
lea eax, [ebp - 0x1e8]
mov dword [esp + 0x80], eax
lea eax, [ebp - 0x1a0]
mov dword [esp + 0x7c], eax
lea eax, [ebp - 0x164]
mov dword [esp + 0x78], eax
lea eax, [ebp - 0x278]
mov dword [esp + 0x74], eax
lea eax, [ebp - 0x25c]
mov dword [esp + 0x70], eax
lea eax, [ebp - 0x244]
mov dword [esp + 0x6c], eax
lea eax, [ebp - 0x26c]
mov dword [esp + 0x68], eax
lea eax, [ebp - 0x254]
mov dword [esp + 0x64], eax
lea eax, [ebp - 0x23c]
mov dword [esp + 0x60], eax
lea eax, [ebp - 0xc4]
mov dword [esp + 0x5c], eax
lea eax, [ebp - 0x228]
mov dword [esp + 0x58], eax
lea eax, [ebp - 0xf0]
mov dword [esp + 0x54], eax
lea eax, [ebp - 0x264]
mov dword [esp + 0x50], eax
lea eax, [ebp - 0x24c]
mov dword [esp + 0x4c], eax
lea eax, [ebp - 0x234]
mov dword [esp + 0x48], eax
lea eax, [ebp - 0x74]
mov dword [esp + 0x44], eax
lea eax, [ebp - 0x6c]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x1c4]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0x1ac]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x174]
mov dword [esp + 0x34], eax
lea eax, [ebp - 0x16c]
mov dword [esp + 0x30], eax
lea eax, [ebp - 0x148]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0xd4]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0xd8]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0xd0]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x1d8]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0xcc]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x220]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x21c]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x132]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0xc0]
mov dword [esp + 8], eax
lea eax, [ebp - 0xfc]
mov dword [esp + 4], eax
lea eax, [ebp - 0xf8]
mov dword [esp], eax
call sym._input1_
mov eax, dword [ebp - 0x158]
test eax, eax
jg 0x418dec
mov dword [ebp - 0x158], 1
mov dword [esp + 0x20], 0x32
lea eax, [ebp - 0x20c]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x210]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x274]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x1b8]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x1a8]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x188]
mov dword [esp + 8], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x132]
mov dword [esp], eax
call sym._geominp_
lea eax, [ebp - 0x184]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1c0]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x13c]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x144]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x1b8]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 8], eax
lea eax, [ebp - 0x188]
mov dword [esp + 4], eax
lea eax, [ebp - 0x1b4]
mov dword [esp], eax
call sym._edges_
lea eax, [ebp - 0x148]
mov dword [esp + 8], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 4], eax
lea eax, [ebp - 0x188]
mov dword [esp], eax
call sym._triangls_
mov eax, dword [ebp - 0x148]
test eax, eax
je 0x418f43
mov eax, dword [ebp - 0x148]
cmp eax, 3
jg 0x418f43
lea eax, [ebp - 0x278]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0x25c]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0x244]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x26c]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x254]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x23c]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x264]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x24c]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x234]
mov dword [esp + 8], eax
mov dword [esp + 4], 0x4681f8
lea eax, [ebp - 0x1b4]
mov dword [esp], eax
call sym._wgctform_
mov eax, dword [ebp - 0x14c]
test eax, eax
je 0x418fc8
mov eax, dword [ebp - 0x14c]
cmp eax, 3
jg 0x418fc8
lea eax, [ebp - 0x27c]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0x260]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0x248]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x270]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x258]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x240]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x268]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x250]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x238]
mov dword [esp + 8], eax
mov dword [esp + 4], 0x4681fc
lea eax, [ebp - 0x1b4]
mov dword [esp], eax
call sym._wgctform_
mov eax, dword [ebp - 0x148]
test eax, eax
je 0x418ff2
mov eax, dword [ebp - 0x14c]
test eax, eax
je 0x418ff2
mov eax, dword [ebp - 0x148]
cmp eax, 4
je 0x418ff2
mov eax, dword [ebp - 0x14c]
cmp eax, 4
jne 0x41902e
mov dword [esp + 0x14], 0x1f64c80
mov dword [esp + 0x10], 0x1f03200
lea eax, [ebp - 0xd4]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0xd8]
mov dword [esp + 8], eax
lea eax, [ebp - 0xd0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x18c]
mov dword [esp], eax
call sym._imedge_
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x20d
mov dword [ebp - 0x3fc], str._3X_Freq____Theta____Phi_2_6X_Mag_6X_Phs___1P___1X_FREQUENCY_E12.5__GHz___Wavenumber_E12.5_
mov dword [ebp - 0x3f8], 0x30
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 9
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
fld dword [ebp - 0xc0]
fldz
fucompi st(1)
jp 0x41909c
fldz
fucompi st(1)
fstp st(0)
je 0x4190c4
jmp 0x41909e
fstp st(0)
fld dword [ebp - 0xfc]
fld dword [ebp - 0xf8]
fsubp st(1)
fld dword [ebp - 0xc0]
fdivp st(1)
fstp dword [esp]
call sym._lroundf
add eax, 1
mov dword [ebp - 0x3c], eax
jmp 0x4190cb
mov dword [ebp - 0x3c], 1
fld dword [ebp - 0xcc]
fldz
fucompi st(1)
jp 0x4190e1
fldz
fucompi st(1)
fstp st(0)
je 0x419109
jmp 0x4190e3
fstp st(0)
fld dword [ebp - 0x220]
fld dword [ebp - 0x21c]
fsubp st(1)
fld dword [ebp - 0xcc]
fdivp st(1)
fstp dword [esp]
call sym._lroundf
add eax, 1
mov dword [ebp - 0x38], eax
jmp 0x419110
mov dword [ebp - 0x38], 1
fld dword [ebp - 0x1d8]
fmul dword [ebp - 0x40]
fld dword [0x46a038]
fdivp st(1)
fstp dword [ebp - 0x1dc]
mov ebx, dword [ebp - 0x3c]
mov dword [ebp - 0x28], 1
cmp dword [ebp - 0x28], ebx
setg al
movzx eax, al
test eax, eax
jne 0x41cc8a
mov eax, dword [ebp - 0x28]
sub eax, 1
mov dword [ebp - 0x45c], eax
fild dword [ebp - 0x45c]
fld dword [ebp - 0xc0]
fmulp st(1)
fld dword [ebp - 0xf8]
faddp st(1)
fstp dword [ebp - 0x100]
fld dword [ebp - 0x100]
fmul dword [ebp - 0x40]
fld dword [0x46a064]
fmulp st(1)
fld dword [0x46a074]
fdivp st(1)
fstp dword [ebp - 0x160]
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x221
mov dword [ebp - 0x3fc], 0x469e14
mov dword [ebp - 0x3f8], 0x37
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 8
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x100]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x160]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x222
mov dword [ebp - 0x3fc], 0x469e14
mov dword [ebp - 0x3f8], 0x37
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 6
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x100]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x160]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov eax, dword [ebp - 0x148]
test eax, eax
je 0x419791
mov eax, dword [ebp - 0x148]
cmp eax, 4
je 0x419791
mov dword [ebp - 0x150], 1
mov eax, dword [ebp - 0x150]
cmp eax, 0x7d0
setg al
movzx eax, al
test eax, eax
jne 0x419355
mov dword [ebp - 0x2c], 1
cmp dword [ebp - 0x2c], 0x7d0
setg al
movzx eax, al
test eax, eax
jne 0x419343
mov eax, dword [ebp - 0x2c]
imul edx, eax, 0x7d0
mov eax, dword [ebp - 0x150]
add eax, edx
sub eax, 0x7d1
fld dword [0x4682a0]
fstp dword [eax*8 + 0x208aa00]
fld dword [0x4682a4]
fstp dword [eax*8 + 0x208aa04]
add dword [ebp - 0x2c], 1
jmp 0x4192fc
nop
mov eax, dword [ebp - 0x150]
add eax, 1
mov dword [ebp - 0x150], eax
jmp 0x4192e0
nop
mov dword [ebp - 0x150], 1
mov eax, dword [ebp - 0x150]
cmp eax, 0x186a0
setg al
movzx eax, al
test eax, eax
jne 0x4193ae
mov eax, dword [ebp - 0x150]
sub eax, 1
add eax, 0x249f0
fld dword [0x4682a0]
fstp dword [eax*8 + 0x128b5ca0]
fld dword [0x4682a4]
fstp dword [eax*8 + 0x128b5ca4]
mov eax, dword [ebp - 0x150]
add eax, 1
mov dword [ebp - 0x150], eax
jmp 0x419360
nop
mov eax, dword [ebp - 0x148]
cmp eax, 1
jne 0x41945f
lea eax, [ebp - 0x1c0]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x34], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x30], eax
lea eax, [ebp - 0x1e8]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0x1a0]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0x164]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x1c4]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1ac]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x174]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x16c]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0xf0]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x74]
mov dword [esp + 8], eax
lea eax, [ebp - 0x6c]
mov dword [esp + 4], eax
mov dword [esp], 0x4681f8
call sym._rwgs_
jmp 0x419791
mov eax, dword [ebp - 0x148]
cmp eax, 2
jne 0x419519
lea eax, [ebp - 0x1c0]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x34], eax
lea eax, [ebp - 0x1fc]
mov dword [esp + 0x30], eax
lea eax, [ebp - 0x1e8]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0x1a0]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0x164]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x1c4]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1ac]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x174]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x16c]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0xf0]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x74]
mov dword [esp + 8], eax
lea eax, [ebp - 0x6c]
mov dword [esp + 4], eax
mov dword [esp], 0x4681f8
call sym._coaxs_
jmp 0x419791
mov eax, dword [ebp - 0x148]
cmp eax, 3
jne 0x4195d3
lea eax, [ebp - 0x1c0]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x34], eax
lea eax, [ebp - 0x1fc]
mov dword [esp + 0x30], eax
lea eax, [ebp - 0x1e8]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0x1a0]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0x164]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x1c4]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1ac]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x174]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x16c]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0xf0]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x74]
mov dword [esp + 8], eax
lea eax, [ebp - 0x6c]
mov dword [esp + 4], eax
mov dword [esp], 0x4681f8
call sym._cwgs_
jmp 0x419791
mov eax, dword [ebp - 0x148]
cmp eax, 5
jne 0x419791
mov esi, dword [ebp - 0x18c]
mov dword [ebp - 0x24], 1
cmp dword [ebp - 0x24], esi
setg al
movzx eax, al
test eax, eax
jne 0x419790
mov eax, dword [ebp - 0x24]
sub eax, 1
add eax, 0x30d40
mov eax, dword [eax*4 + 0x134584e0]
cmp eax, 1
jne 0x419787
fld dword [ebp - 0x160]
fldz
fmul st(1)
fld st(1)
faddp st(2)
fldz
faddp st(2)
fld st(0)
fmul dword [ebp - 0x48]
fldz
fmul st(3)
fldz
fmulp st(3)
fxch st(3)
fmul dword [ebp - 0x48]
fxch st(3)
fsubp st(1)
fxch st(2)
faddp st(1)
mov eax, dword [ebp - 0x24]
sub eax, 1
add eax, 0x493e0
fld dword [eax*4 + 0x134584e0]
fld st(0)
fmul st(3)
fldz
fmul st(3)
fldz
fmulp st(5)
fxch st(3)
fmulp st(2)
fsubrp st(2)
faddp st(2)
fld dword [ebp - 0x6c]
fsqrt
mov eax, dword [ebp - 0x24]
sub eax, 1
fldz
fdiv st(1)
fldz
fmul st(1)
faddp st(2)
fld st(3)
fmul st(1)
fadd st(3)
fxch st(1)
fmulp st(3)
fxch st(2)
fsubp st(3)
fdiv st(1), st(0)
fdivp st(2)
lea edx, [eax + 0x249f0]
fstp dword [edx*8 + 0x128b5ca0]
add eax, 0x249f0
fstp dword [eax*8 + 0x128b5ca4]
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x23e
mov dword [ebp - 0x3fc], str.__Discrete_port_source_edge_length__E10.5________________________Nodes:__2I8_parana.intUNFORMATTED__ANGLE__Theta__deg.__F8.2_parana.inc_1X_A30_2I7__1P_1X_3I6_2E13.5_parana.matparana.edg
mov dword [ebp - 0x3f8], 0x52
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 8
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov eax, dword [ebp - 0x24]
sub eax, 1
add eax, 0x493e0
shl eax, 2
add eax, 0x134584e0
mov dword [esp + 8], 4
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov eax, dword [ebp - 0x24]
sub eax, 1
shl eax, 2
add eax, 0x134584e0
mov dword [esp + 8], 4
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
mov eax, dword [ebp - 0x24]
sub eax, 1
add eax, 0x186a0
shl eax, 2
add eax, 0x134584e0
mov dword [esp + 8], 4
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
add dword [ebp - 0x24], 1
jmp 0x4195ef
nop
mov eax, dword [ebp - 0x14c]
test eax, eax
je 0x419aec
mov eax, dword [ebp - 0x14c]
cmp eax, 3
jg 0x419aec
mov dword [ebp - 0x150], 1
mov eax, dword [ebp - 0x150]
cmp eax, 0x7d0
setg al
movzx eax, al
test eax, eax
jne 0x419832
mov dword [ebp - 0x2c], 1
cmp dword [ebp - 0x2c], 0x7d0
setg al
movzx eax, al
test eax, eax
jne 0x419820
mov eax, dword [ebp - 0x2c]
imul edx, eax, 0x1388
mov eax, dword [ebp - 0x150]
add eax, edx
sub eax, 0x1389
add eax, 0x3d0900
fld dword [0x4682a0]
fstp dword [eax*8 + 0x208aa00]
fld dword [0x4682a4]
fstp dword [eax*8 + 0x208aa04]
add dword [ebp - 0x2c], 1
jmp 0x4197d4
nop
mov eax, dword [ebp - 0x150]
add eax, 1
mov dword [ebp - 0x150], eax
jmp 0x4197b8
nop
mov eax, dword [ebp - 0x14c]
cmp eax, 1
jne 0x41992d
fld dword [ebp - 0x78]
fld dword [ebp - 0x70]
fcompi st(1)
fstp st(0)
jb 0x419864
mov dword [ebp - 0x168], 1
mov dword [ebp - 0x1a4], 0
jmp 0x419878
mov dword [ebp - 0x168], 0
mov dword [ebp - 0x1a4], 1
mov dword [ebp - 0x1ec], 1
mov dword [ebp - 0x200], 1
lea eax, [ebp - 0x184]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x34], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x30], eax
lea eax, [ebp - 0x1ec]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0x1a4]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0x168]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x1c8]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1b0]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x178]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x170]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0xf4]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x78]
mov dword [esp + 8], eax
lea eax, [ebp - 0x70]
mov dword [esp + 4], eax
mov dword [esp], 0x4681fc
call sym._rwgs_
jmp 0x419aec
mov eax, dword [ebp - 0x14c]
cmp eax, 2
jne 0x419a0f
mov dword [ebp - 0x168], 0
mov dword [ebp - 0x1a4], 1
mov dword [ebp - 0x1ec], 1
mov dword [ebp - 0x200], 1
lea eax, [ebp - 0x184]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x34], eax
lea eax, [ebp - 0x200]
mov dword [esp + 0x30], eax
lea eax, [ebp - 0x1ec]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0x1a4]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0x168]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x1c8]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1b0]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x178]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x170]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0xf4]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x78]
mov dword [esp + 8], eax
lea eax, [ebp - 0x70]
mov dword [esp + 4], eax
mov dword [esp], 0x4681fc
call sym._coaxs_
jmp 0x419aec
mov eax, dword [ebp - 0x14c]
cmp eax, 3
jne 0x419aec
mov dword [ebp - 0x168], 1
mov dword [ebp - 0x1a4], 1
mov dword [ebp - 0x1ec], 1
mov dword [ebp - 0x200], 1
lea eax, [ebp - 0x184]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x34], eax
lea eax, [ebp - 0x200]
mov dword [esp + 0x30], eax
lea eax, [ebp - 0x1ec]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0x1a4]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0x168]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x1c8]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1b0]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x178]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x170]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0xf4]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x78]
mov dword [esp + 8], eax
lea eax, [ebp - 0x70]
mov dword [esp + 4], eax
mov dword [esp], 0x4681fc
call sym._cwgs_
mov dword [ebp - 0x150], 1
mov eax, dword [ebp - 0x150]
cmp eax, 0x2625a0
setg al
movzx eax, al
test eax, eax
jne 0x419b3f
mov eax, dword [ebp - 0x150]
sub eax, 1
fld dword [0x4682a0]
fstp dword [eax*8 + 0xfdcb400]
fld dword [0x4682a4]
fstp dword [eax*8 + 0xfdcb404]
mov eax, dword [ebp - 0x150]
add eax, 1
mov dword [ebp - 0x150], eax
jmp 0x419af6
nop
lea eax, [ebp - 0x198]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 8], eax
lea eax, [ebp - 0x188]
mov dword [esp + 4], eax
lea eax, [ebp - 0x1b4]
mov dword [esp], eax
call sym._interior_
mov eax, dword [ebp - 0x210]
test eax, eax
je 0x419b98
lea eax, [ebp - 0x160]
mov dword [esp + 4], eax
lea eax, [ebp - 0x18c]
mov dword [esp], eax
call sym._reswire_
mov eax, dword [ebp - 0x20c]
test eax, eax
je 0x419bf0
lea eax, [ebp - 0x19c]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x1b8]
mov dword [esp + 8], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 4], eax
lea eax, [ebp - 0x188]
mov dword [esp], eax
call sym._rfaces_
lea eax, [ebp - 0x198]
mov dword [esp + 8], eax
lea eax, [ebp - 0x19c]
mov dword [esp + 4], eax
lea eax, [ebp - 0x160]
mov dword [esp], eax
call sym._ressurf_
cmp dword [ebp - 0x38], 1
jle 0x419ea0
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x279
mov dword [ebp - 0x404], 0x469e9e
mov dword [ebp - 0x408], 0xa
mov dword [ebp - 0x400], 0x4684b8
mov dword [ebp - 0x3fc], 7
mov dword [ebp - 0x3f0], 0x469ea8
mov dword [ebp - 0x3ec], 0xb
mov dword [ebp - 0x38c], 0
mov dword [ebp - 0x430], 0x1000b00
mov dword [ebp - 0x42c], 7
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_open
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x27a
mov dword [ebp - 0x430], 0
mov dword [ebp - 0x42c], 7
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [ebp - 0x44c], 0
mov dword [ebp - 0x448], 0
mov dword [ebp - 0x444], 0
mov dword [ebp - 0x44c], 4
mov byte [ebp - 0x444], 1
mov byte [ebp - 0x443], 1
mov dword [ebp - 0x438], 1
mov dword [ebp - 0x434], 0x2625a0
mov dword [ebp - 0x43c], 1
mov dword [ebp - 0x454], 0x110de100
mov dword [ebp - 0x450], 0xffffffff
mov dword [esp + 0xc], 0
mov dword [esp + 8], 4
lea eax, [ebp - 0x454]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_array_write
mov dword [ebp - 0x44c], 0
mov dword [ebp - 0x448], 0
mov dword [ebp - 0x444], 0
mov dword [ebp - 0x44c], 4
mov byte [ebp - 0x444], 1
mov byte [ebp - 0x443], 1
mov dword [ebp - 0x438], 1
mov dword [ebp - 0x434], 0x2625a0
mov dword [ebp - 0x43c], 1
mov dword [ebp - 0x454], 0x11a67780
mov dword [ebp - 0x450], 0xffffffff
mov dword [esp + 0xc], 0
mov dword [esp + 8], 4
lea eax, [ebp - 0x454]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_array_write
mov dword [ebp - 0x44c], 0
mov dword [ebp - 0x448], 0
mov dword [ebp - 0x444], 0
mov dword [ebp - 0x44c], 8
mov byte [ebp - 0x444], 1
mov byte [ebp - 0x443], 4
mov dword [ebp - 0x438], 1
mov dword [ebp - 0x434], 0x2625a0
mov dword [ebp - 0x43c], 1
mov dword [ebp - 0x454], 0xfdcb400
mov dword [ebp - 0x450], 0xffffffff
mov dword [esp + 0xc], 0
mov dword [esp + 8], 4
lea eax, [ebp - 0x454]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_array_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x27b
mov dword [ebp - 0x430], 0
mov dword [ebp - 0x42c], 7
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_close
mov esi, dword [ebp - 0x38]
mov dword [ebp - 0x1c], 1
cmp dword [ebp - 0x1c], esi
setg al
movzx eax, al
test eax, eax
jne 0x41cc80
mov eax, dword [ebp - 0x1c]
sub eax, 1
mov dword [ebp - 0x45c], eax
fild dword [ebp - 0x45c]
fld dword [ebp - 0xcc]
fmulp st(1)
fld dword [ebp - 0x21c]
faddp st(1)
fstp dword [ebp - 0x224]
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x282
mov dword [ebp - 0x3fc], 0x469eb3
mov dword [ebp - 0x3f8], 0x1e
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 8
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x224]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x283
mov dword [ebp - 0x3fc], 0x469eb3
mov dword [ebp - 0x3f8], 0x1e
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 6
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x224]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
fld dword [ebp - 0x224]
fmul dword [ebp - 0x40]
fld dword [0x46a038]
fdivp st(1)
fstp dword [ebp - 0x230]
mov eax, dword [ebp - 0x148]
test eax, eax
je 0x41a003
mov eax, dword [ebp - 0x148]
cmp eax, 4
jne 0x41a1b4
mov dword [ebp - 0x150], 1
mov eax, dword [ebp - 0x150]
cmp eax, 0x1388
setg al
movzx eax, al
test eax, eax
jne 0x41a082
mov dword [ebp - 0x2c], 1
cmp dword [ebp - 0x2c], 0x1388
setg al
movzx eax, al
test eax, eax
jne 0x41a070
mov eax, dword [ebp - 0x2c]
imul edx, eax, 0x7d0
mov eax, dword [ebp - 0x150]
add eax, edx
sub eax, 0x7d1
fld dword [0x4682a0]
fstp dword [eax*8 + 0x208aa00]
fld dword [0x4682a4]
fstp dword [eax*8 + 0x208aa04]
add dword [ebp - 0x2c], 1
jmp 0x41a029
nop
mov eax, dword [ebp - 0x150]
add eax, 1
mov dword [ebp - 0x150], eax
jmp 0x41a00d
nop
mov dword [ebp - 0x150], 1
mov eax, dword [ebp - 0x150]
cmp eax, 0x186a0
setg al
movzx eax, al
test eax, eax
jne 0x41a0db
mov eax, dword [ebp - 0x150]
sub eax, 1
add eax, 0x249f0
fld dword [0x4682a0]
fstp dword [eax*8 + 0x128b5ca0]
fld dword [0x4682a4]
fstp dword [eax*8 + 0x128b5ca4]
mov eax, dword [ebp - 0x150]
add eax, 1
mov dword [ebp - 0x150], eax
jmp 0x41a08d
nop
lea eax, [ebp - 0x158]
mov dword [esp + 0x54], eax
mov dword [esp + 0x50], 0x1f64c80
mov dword [esp + 0x4c], 0x1f03200
lea eax, [ebp - 0x1c0]
mov dword [esp + 0x48], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x44], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0xc4]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x228]
mov dword [esp + 0x34], eax
mov dword [esp + 0x30], 0x468924
lea eax, [ebp - 0xf0]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0xd4]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0xd8]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0xd0]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1c4]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x1ac]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x174]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x16c]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x1dc]
mov dword [esp + 8], eax
lea eax, [ebp - 0x230]
mov dword [esp + 4], eax
mov dword [esp], 0x4681f8
call sym._perradc_
mov eax, dword [ebp - 0x14c]
test eax, eax
je 0x41a1cd
mov eax, dword [ebp - 0x14c]
cmp eax, 4
jne 0x41a328
mov dword [ebp - 0x150], 1
mov eax, dword [ebp - 0x150]
cmp eax, 0x1388
setg al
movzx eax, al
test eax, eax
jne 0x41a251
mov dword [ebp - 0x2c], 1
cmp dword [ebp - 0x2c], 0x1388
setg al
movzx eax, al
test eax, eax
jne 0x41a23f
mov eax, dword [ebp - 0x2c]
imul edx, eax, 0x1388
mov eax, dword [ebp - 0x150]
add eax, edx
sub eax, 0x1389
add eax, 0x3d0900
fld dword [0x4682a0]
fstp dword [eax*8 + 0x208aa00]
fld dword [0x4682a4]
fstp dword [eax*8 + 0x208aa04]
add dword [ebp - 0x2c], 1
jmp 0x41a1f3
nop
mov eax, dword [ebp - 0x150]
add eax, 1
mov dword [ebp - 0x150], eax
jmp 0x41a1d7
nop
mov dword [esp + 0x54], 0x4684dc
mov dword [esp + 0x50], 0x1f64c80
mov dword [esp + 0x4c], 0x1f03200
lea eax, [ebp - 0x184]
mov dword [esp + 0x48], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x44], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0xc8]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x22c]
mov dword [esp + 0x34], eax
mov dword [esp + 0x30], 0x468924
lea eax, [ebp - 0xf4]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0xd4]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0xd8]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0xd0]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1c8]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x1b0]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x178]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x170]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x1dc]
mov dword [esp + 8], eax
lea eax, [ebp - 0x230]
mov dword [esp + 4], eax
mov dword [esp], 0x4681fc
call sym._perradc_
mov eax, dword [ebp - 0x1d0]
cmp eax, 1
jne 0x41a5df
cmp dword [ebp - 0x1c], 1
jne 0x41a5df
cmp dword [ebp - 0x28], 1
jne 0x41a5df
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x29f
mov dword [ebp - 0x404], 0x469ed1
mov dword [ebp - 0x408], 0xa
mov dword [ebp - 0x400], 0x4684b8
mov dword [ebp - 0x3fc], 7
mov dword [ebp - 0x38c], 0
mov dword [ebp - 0x430], 0x1000300
mov dword [ebp - 0x42c], 0xc
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_open
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2a0
mov dword [ebp - 0x3fc], 0x469edb
mov dword [ebp - 0x3f8], 0xc
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 0xc
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 0x32
lea eax, [ebp - 0x132]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_character_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1b4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x18c]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov edi, dword [ebp - 0x18c]
mov dword [ebp - 0x150], 1
mov eax, dword [ebp - 0x150]
cmp edi, eax
setl al
movzx eax, al
test eax, eax
jne 0x41a5a8
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2a2
mov dword [ebp - 0x3fc], 0x469ee7
mov dword [ebp - 0x3f8], 0x12
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 0xc
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x150]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
mov eax, dword [ebp - 0x150]
sub eax, 1
shl eax, 2
add eax, 0x134584e0
mov dword [esp + 8], 4
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
mov eax, dword [ebp - 0x150]
sub eax, 1
add eax, 0x186a0
shl eax, 2
add eax, 0x134584e0
mov dword [esp + 8], 4
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
mov eax, dword [ebp - 0x150]
sub eax, 1
add eax, 0x249f0
shl eax, 3
add eax, 0x128b5ca0
mov dword [esp + 8], 4
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_complex_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov eax, dword [ebp - 0x150]
add eax, 1
mov dword [ebp - 0x150], eax
jmp 0x41a47b
nop
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2a5
mov dword [ebp - 0x430], 0
mov dword [ebp - 0x42c], 0xc
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_close
cmp dword [ebp - 0x1c], 1
jle 0x41a88f
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2ae
mov dword [ebp - 0x404], 0x469e9e
mov dword [ebp - 0x408], 0xa
mov dword [ebp - 0x400], 0x468f00
mov dword [ebp - 0x3fc], 3
mov dword [ebp - 0x3f0], 0x469ea8
mov dword [ebp - 0x3ec], 0xb
mov dword [ebp - 0x38c], 0
mov dword [ebp - 0x430], 0x1000b00
mov dword [ebp - 0x42c], 7
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_open
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2af
mov dword [ebp - 0x430], 0
mov dword [ebp - 0x42c], 7
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_read
mov dword [ebp - 0x44c], 0
mov dword [ebp - 0x448], 0
mov dword [ebp - 0x444], 0
mov dword [ebp - 0x44c], 4
mov byte [ebp - 0x444], 1
mov byte [ebp - 0x443], 1
mov dword [ebp - 0x438], 1
mov dword [ebp - 0x434], 0x2625a0
mov dword [ebp - 0x43c], 1
mov dword [ebp - 0x454], 0x110de100
mov dword [ebp - 0x450], 0xffffffff
mov dword [esp + 0xc], 0
mov dword [esp + 8], 4
lea eax, [ebp - 0x454]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_array
mov dword [ebp - 0x44c], 0
mov dword [ebp - 0x448], 0
mov dword [ebp - 0x444], 0
mov dword [ebp - 0x44c], 4
mov byte [ebp - 0x444], 1
mov byte [ebp - 0x443], 1
mov dword [ebp - 0x438], 1
mov dword [ebp - 0x434], 0x2625a0
mov dword [ebp - 0x43c], 1
mov dword [ebp - 0x454], 0x11a67780
mov dword [ebp - 0x450], 0xffffffff
mov dword [esp + 0xc], 0
mov dword [esp + 8], 4
lea eax, [ebp - 0x454]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_array
mov dword [ebp - 0x44c], 0
mov dword [ebp - 0x448], 0
mov dword [ebp - 0x444], 0
mov dword [ebp - 0x44c], 8
mov byte [ebp - 0x444], 1
mov byte [ebp - 0x443], 4
mov dword [ebp - 0x438], 1
mov dword [ebp - 0x434], 0x2625a0
mov dword [ebp - 0x43c], 1
mov dword [ebp - 0x454], 0xfdcb400
mov dword [ebp - 0x450], 0xffffffff
mov dword [esp + 0xc], 0
mov dword [esp + 8], 4
lea eax, [ebp - 0x454]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_array
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_read_done
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2b0
mov dword [ebp - 0x430], 0
mov dword [ebp - 0x42c], 7
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_close
mov eax, dword [ebp - 0x18c]
mov dword [ebp - 0x190], eax
mov eax, dword [ebp - 0x198]
mov dword [ebp - 0x194], eax
mov eax, dword [ebp - 0x184]
mov dword [ebp - 0x180], eax
mov eax, dword [ebp - 0x13c]
mov dword [ebp - 0x138], eax
mov eax, dword [ebp - 0x1c0]
mov dword [ebp - 0x1bc], eax
mov eax, dword [ebp - 0x144]
mov dword [ebp - 0x140], eax
mov eax, dword [ebp - 0x148]
test eax, eax
je 0x41a905
mov eax, dword [ebp - 0x14c]
test eax, eax
je 0x41a905
mov eax, dword [ebp - 0x148]
cmp eax, 4
je 0x41a905
mov eax, dword [ebp - 0x14c]
cmp eax, 4
jne 0x41a9eb
mov dword [esp + 0x20], 0x1f64c80
mov dword [esp + 0x1c], 0x1f03200
lea eax, [ebp - 0xd4]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0xd8]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0xd0]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x1dc]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x230]
mov dword [esp + 8], eax
lea eax, [ebp - 0x160]
mov dword [esp + 4], eax
lea eax, [ebp - 0x18c]
mov dword [esp], eax
call sym._perbc_
mov dword [esp + 0x34], 0x1f64c80
mov dword [esp + 0x30], 0x1f03200
lea eax, [ebp - 0x138]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0x180]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0x140]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0x1bc]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x194]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x190]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x13c]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x184]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x144]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x1c0]
mov dword [esp + 8], eax
lea eax, [ebp - 0x198]
mov dword [esp + 4], eax
lea eax, [ebp - 0x18c]
mov dword [esp], eax
call sym._cmpress2_
cmp dword [ebp - 0x28], 1
jne 0x41aa50
mov eax, dword [ebp - 0x1d4]
cmp eax, 1
jne 0x41aa50
cmp dword [ebp - 0x1c], 1
jne 0x41aa50
mov dword [esp + 0x1c], 0xa
lea eax, [ebp - 0x138]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x180]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x140]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x1bc]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x194]
mov dword [esp + 8], eax
mov dword [esp + 4], 0x4681f8
mov dword [esp], 0x469ef9
call sym._matsave_
mov ecx, dword [ebp - 0x190]
mov dword [ebp - 0x150], 1
mov eax, dword [ebp - 0x150]
cmp ecx, eax
setl al
movzx eax, al
test eax, eax
jne 0x41aabd
mov eax, dword [ebp - 0x150]
sub eax, 1
mov edx, dword [ebp - 0x150]
sub edx, 1
fld dword [eax*8 + 0x1fc6704]
fld dword [eax*8 + 0x1fc6700]
lea eax, [edx + 0x3d090]
fstp dword [eax*8 + 0x128b5ca0]
lea eax, [edx + 0x3d090]
fstp dword [eax*8 + 0x128b5ca4]
mov eax, dword [ebp - 0x150]
add eax, 1
mov dword [ebp - 0x150], eax
jmp 0x41aa60
nop
mov eax, dword [ebp - 0x15c]
cmp eax, 1
jne 0x41ab22
lea eax, [ebp - 0x180]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1bc]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x138]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x140]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x194]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x17c]
mov dword [esp + 8], eax
lea eax, [ebp - 0xe4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x190]
mov dword [esp], eax
call sym._cgsolve_
jmp 0x41abe2
mov eax, dword [ebp - 0x15c]
cmp eax, 2
jne 0x41ab83
lea eax, [ebp - 0x180]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1bc]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x138]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x140]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x194]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x17c]
mov dword [esp + 8], eax
lea eax, [ebp - 0xe4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x190]
mov dword [esp], eax
call sym._bcgrad_
jmp 0x41abe2
mov eax, dword [ebp - 0x15c]
cmp eax, 3
jne 0x41abe2
lea eax, [ebp - 0x180]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1bc]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x138]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x140]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x194]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x17c]
mov dword [esp + 8], eax
lea eax, [ebp - 0xe4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x190]
mov dword [esp], eax
call sym._dpbcg_
mov edi, dword [ebp - 0x190]
mov dword [ebp - 0x20], 1
cmp dword [ebp - 0x20], edi
setg al
movzx eax, al
test eax, eax
jne 0x41ac38
mov eax, dword [ebp - 0x20]
lea edx, [eax - 1]
mov eax, dword [ebp - 0x20]
sub eax, 1
lea ecx, [edx + 0x3d090]
fld dword [ecx*8 + 0x128b5ca0]
add edx, 0x3d090
fld dword [edx*8 + 0x128b5ca4]
fxch st(1)
fstp dword [eax*8 + 0x1fc6700]
fstp dword [eax*8 + 0x1fc6704]
add dword [ebp - 0x20], 1
jmp 0x41abef
nop
mov eax, dword [ebp - 0x148]
test eax, eax
je 0x41ac63
mov eax, dword [ebp - 0x14c]
test eax, eax
je 0x41ac63
mov eax, dword [ebp - 0x148]
cmp eax, 4
je 0x41ac63
mov eax, dword [ebp - 0x14c]
cmp eax, 4
jne 0x41acc7
mov dword [esp + 0x24], 0x1f64c80
mov dword [esp + 0x20], 0x1f03200
lea eax, [ebp - 0xd4]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0xd8]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0xd0]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x1dc]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x230]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x160]
mov dword [esp + 8], eax
lea eax, [ebp - 0x190]
mov dword [esp + 4], eax
lea eax, [ebp - 0x18c]
mov dword [esp], eax
call sym._restedg_
cmp dword [ebp - 0x28], 1
jne 0x41afae
mov eax, dword [ebp - 0x1d0]
cmp eax, 1
jne 0x41afae
cmp dword [ebp - 0x1c], 1
jne 0x41afae
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2e3
mov dword [ebp - 0x404], 0x469f03
mov dword [ebp - 0x408], 0xa
mov dword [ebp - 0x400], 0x4684b8
mov dword [ebp - 0x3fc], 7
mov dword [ebp - 0x38c], 0
mov dword [ebp - 0x430], 0x1000300
mov dword [ebp - 0x42c], 0xb
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_open
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2e4
mov dword [ebp - 0x3fc], 0x469edb
mov dword [ebp - 0x3f8], 0xc
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 0xb
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 0x32
lea eax, [ebp - 0x132]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_character_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1b4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x18c]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov edi, dword [ebp - 0x18c]
mov dword [ebp - 0x150], 1
mov eax, dword [ebp - 0x150]
cmp edi, eax
setl al
movzx eax, al
test eax, eax
jne 0x41af77
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2e7
mov dword [ebp - 0x3fc], str._1P_1X_I6_1X_2I6_2_2X_E11.4__3X_E11.4_parana.fld_1P_1X_I4_6_1X_E11.3_____PORT_I2__RESPONSE:__1P_2x_E10.3_0P_2F8.2_2_1P_E12.5_0P_F8.2__
mov dword [ebp - 0x3f8], 0x26
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 0xb
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x150]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
mov eax, dword [ebp - 0x150]
sub eax, 1
shl eax, 2
add eax, 0x134584e0
mov dword [esp + 8], 4
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
mov eax, dword [ebp - 0x150]
sub eax, 1
add eax, 0x186a0
shl eax, 2
add eax, 0x134584e0
mov dword [esp + 8], 4
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
mov eax, dword [ebp - 0x150]
sub eax, 1
add eax, 0x3d090
shl eax, 3
add eax, 0x128b5ca0
mov dword [esp + 8], 4
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_complex_write
mov eax, dword [ebp - 0x150]
sub eax, 1
add eax, 0x493e0
shl eax, 2
add eax, 0x134584e0
mov dword [esp + 8], 4
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov eax, dword [ebp - 0x150]
add eax, 1
mov dword [ebp - 0x150], eax
jmp 0x41ae1a
nop
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2ea
mov dword [ebp - 0x430], 0
mov dword [ebp - 0x42c], 0xb
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_close
cmp dword [ebp - 0x28], 1
jne 0x41b29c
mov eax, dword [ebp - 0x1cc]
test eax, eax
jle 0x41b29c
cmp dword [ebp - 0x1c], 1
jne 0x41b29c
lea eax, [ebp - 0x188]
mov dword [esp + 8], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 4], eax
lea eax, [ebp - 0x1b4]
mov dword [esp], eax
call sym._nodefld_
mov dword [esp + 0x24], 0x32
lea eax, [ebp - 0x100]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x132]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0xd4]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0xd8]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0xd0]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x74]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x6c]
mov dword [esp + 8], eax
lea eax, [ebp - 0x188]
mov dword [esp + 4], eax
lea eax, [ebp - 0x1b4]
mov dword [esp], eax
call sym._ideasout_
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2f1
mov dword [ebp - 0x404], 0x469f36
mov dword [ebp - 0x408], 0xa
mov dword [ebp - 0x400], 0x4684b8
mov dword [ebp - 0x3fc], 7
mov dword [ebp - 0x38c], 0
mov dword [ebp - 0x430], 0x1000300
mov dword [ebp - 0x42c], 0xb
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_open
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2f2
mov dword [ebp - 0x3fc], 0x469edb
mov dword [ebp - 0x3f8], 0xc
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 0xb
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 0x32
lea eax, [ebp - 0x132]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_character_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1b4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov edi, dword [ebp - 0x1b4]
mov dword [ebp - 0x150], 1
mov eax, dword [ebp - 0x150]
cmp edi, eax
setl al
movzx eax, al
test eax, eax
jne 0x41b265
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2f4
mov dword [ebp - 0x3fc], 0x469f40
mov dword [ebp - 0x3f8], 0x16
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 0xb
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x150]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
mov dword [ebp - 0x34], 1
mov eax, dword [ebp - 0x430]
and eax, 3
and eax, 1
test al, al
jne 0x41b243
cmp dword [ebp - 0x34], 3
setg al
movzx eax, al
test eax, eax
jne 0x41b243
mov edx, dword [ebp - 0x150]
mov eax, edx
add eax, eax
add edx, eax
mov eax, dword [ebp - 0x34]
add eax, edx
sub eax, 4
shl eax, 3
add eax, 0x128b5ca0
mov dword [esp + 8], 4
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_complex_write
add dword [ebp - 0x34], 1
jmp 0x41b1e9
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov eax, dword [ebp - 0x150]
add eax, 1
mov dword [ebp - 0x150], eax
jmp 0x41b162
nop
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2f7
mov dword [ebp - 0x430], 0
mov dword [ebp - 0x42c], 0xb
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_close
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x2fc
mov dword [ebp - 0x3fc], 0x469f56
mov dword [ebp - 0x3f8], 0x1a
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 8
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
mov dword [esp + 4], 0x4681f8
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov eax, dword [ebp - 0x148]
test eax, eax
je 0x41b32b
mov eax, dword [ebp - 0x148]
cmp eax, 4
jne 0x41b416
lea eax, [ebp - 0x1f0]
mov dword [esp + 0x58], eax
lea eax, [ebp - 0xec]
mov dword [esp + 0x54], eax
lea eax, [ebp - 0xe0]
mov dword [esp + 0x50], eax
lea eax, [ebp - 0x1c0]
mov dword [esp + 0x4c], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x48], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x44], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x158]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0xc4]
mov dword [esp + 0x38], eax
mov dword [esp + 0x34], 0x468924
lea eax, [ebp - 0xf0]
mov dword [esp + 0x30], eax
lea eax, [ebp - 0x228]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0xd4]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0xd8]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0xd0]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1c4]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x1ac]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x174]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x16c]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x1dc]
mov dword [esp + 8], eax
lea eax, [ebp - 0x230]
mov dword [esp + 4], eax
mov dword [esp], 0x4681f8
call sym._grlobes_
jmp 0x41b778
mov eax, dword [ebp - 0x148]
cmp eax, 1
jne 0x41b4da
lea eax, [ebp - 0x208]
mov dword [esp + 0x44], eax
lea eax, [ebp - 0x1f0]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x1c0]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x34], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x30], eax
lea eax, [ebp - 0x1e8]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0x1a0]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0x164]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x1c4]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1ac]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x174]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x16c]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0xf0]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x74]
mov dword [esp + 8], eax
lea eax, [ebp - 0x6c]
mov dword [esp + 4], eax
mov dword [esp], 0x4681f8
call sym._rwgci_
jmp 0x41b778
mov eax, dword [ebp - 0x148]
cmp eax, 2
jne 0x41b5a8
lea eax, [ebp - 0x208]
mov dword [esp + 0x48], eax
lea eax, [ebp - 0x1f0]
mov dword [esp + 0x44], eax
lea eax, [ebp - 0x1c0]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x34], eax
lea eax, [ebp - 0x1fc]
mov dword [esp + 0x30], eax
lea eax, [ebp - 0x1e8]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0x1a0]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0x164]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x1c4]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1ac]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x174]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x16c]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0xf0]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x74]
mov dword [esp + 8], eax
lea eax, [ebp - 0x6c]
mov dword [esp + 4], eax
mov dword [esp], 0x4681f8
call sym._coaxci_
jmp 0x41b778
mov eax, dword [ebp - 0x148]
cmp eax, 3
jne 0x41b676
lea eax, [ebp - 0x208]
mov dword [esp + 0x48], eax
lea eax, [ebp - 0x1f0]
mov dword [esp + 0x44], eax
lea eax, [ebp - 0x1c0]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x34], eax
lea eax, [ebp - 0x1fc]
mov dword [esp + 0x30], eax
lea eax, [ebp - 0x1e8]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0x1a0]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0x164]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x1c4]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1ac]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x174]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x16c]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0xf0]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x74]
mov dword [esp + 8], eax
lea eax, [ebp - 0x6c]
mov dword [esp + 4], eax
mov dword [esp], 0x4681f8
call sym._cwgci_
jmp 0x41b778
mov eax, dword [ebp - 0x148]
cmp eax, 5
jne 0x41b778
mov edx, dword [ebp - 0x18c]
mov dword [ebp - 0x30], 1
cmp dword [ebp - 0x30], edx
setg al
movzx eax, al
test eax, eax
jne 0x41b757
mov eax, dword [ebp - 0x30]
sub eax, 1
add eax, 0x30d40
mov eax, dword [eax*4 + 0x134584e0]
cmp eax, 1
jne 0x41b74e
mov eax, dword [ebp - 0x30]
sub eax, 1
lea ecx, [eax + 0x3d090]
fld dword [ecx*8 + 0x128b5ca0]
add eax, 0x3d090
fld dword [eax*8 + 0x128b5ca4]
mov eax, dword [ebp - 0x30]
sub eax, 1
add eax, 0x493e0
fld dword [eax*4 + 0x134584e0]
fld st(0)
fmul st(3)
fldz
fmul st(3)
fldz
fmulp st(5)
fxch st(2)
fmulp st(3)
fsubrp st(1)
fstp dword [ebp - 0x64]
faddp st(1)
fstp dword [ebp - 0x68]
fld dword [ebp - 0x68]
fld dword [ebp - 0x64]
fstp dword [ebp - 0x50]
fstp dword [ebp - 0x4c]
fld dword [ebp - 0x6c]
fsqrt
fldz
fdiv st(1)
fldz
fmul st(1)
faddp st(2)
fld st(0)
fmul dword [ebp - 0x68]
fadd dword [ebp - 0x64]
fxch st(1)
fmul dword [ebp - 0x64]
fld dword [ebp - 0x68]
fsubrp st(1)
fxch st(1)
fdiv st(2)
fxch st(1)
fdivrp st(2)
fld1
fsubp st(1)
fstp dword [ebp - 0x208]
fstp dword [ebp - 0x204]
add dword [ebp - 0x30], 1
jmp 0x41b692
nop
fld dword [ebp - 0x204]
fld dword [ebp - 0x208]
fstp dword [esp]
fstp dword [esp + 4]
call sym._cabsf
fmul st(0)
fstp dword [ebp - 0x1f0]
mov eax, dword [ebp - 0x148]
test eax, eax
je 0x41b791
mov eax, dword [ebp - 0x148]
cmp eax, 4
jne 0x41bdba
lea eax, [ebp - 0xe0]
mov dword [esp], eax
call sym._phase_
fld dword [0x46a038]
fmulp st(1)
fdiv dword [ebp - 0x40]
fstp dword [ebp - 0x1e0]
lea eax, [ebp - 0xec]
mov dword [esp], eax
call sym._phase_
fld dword [0x46a038]
fmulp st(1)
fdiv dword [ebp - 0x40]
fstp dword [ebp - 0x1e4]
mov eax, dword [ebp - 0x158]
cmp eax, 1
je 0x41b7e9
mov eax, dword [ebp - 0x158]
cmp eax, 2
jne 0x41ba95
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x319
mov dword [ebp - 0x3fc], 0x469f70
mov dword [ebp - 0x3f8], 0x2a
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 9
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x100]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x224]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1d8]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
fld dword [ebp - 0xdc]
fld dword [ebp - 0xe0]
fstp dword [esp]
fstp dword [esp + 4]
call sym._cabsf
fstp dword [ebp - 0x280]
mov dword [esp + 8], 4
lea eax, [ebp - 0x280]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1e0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
fld dword [ebp - 0xe8]
fld dword [ebp - 0xec]
fstp dword [esp]
fstp dword [esp + 4]
call sym._cabsf
fstp dword [ebp - 0x284]
mov dword [esp + 8], 4
lea eax, [ebp - 0x284]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1e4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x31a
mov dword [ebp - 0x3fc], str.___PORT_I2__RESPONSE:__2_1P_E12.5_0P_F8.2___28X_2_1P_E12.5_0P_F8.2_____Conservation_Check:_Total_Power_F8.4_
mov dword [ebp - 0x3f8], 0x2f
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 6
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
mov dword [esp + 4], 0x4681f8
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
fld dword [ebp - 0xdc]
fld dword [ebp - 0xe0]
fstp dword [esp]
fstp dword [esp + 4]
call sym._cabsf
fstp dword [ebp - 0x288]
mov dword [esp + 8], 4
lea eax, [ebp - 0x288]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1e0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
fld dword [ebp - 0xe8]
fld dword [ebp - 0xec]
fstp dword [esp]
fstp dword [esp + 4]
call sym._cabsf
fstp dword [ebp - 0x28c]
mov dword [esp + 8], 4
lea eax, [ebp - 0x28c]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1e4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
nop
jmp 0x41bfc3
fld dword [ebp - 0xe0]
fld dword [ebp - 0xe8]
fsubp st(1)
fld dword [0x46a050]
fdivp st(1)
fstp dword [ebp - 0x54]
fld dword [ebp - 0xec]
fld dword [ebp - 0xdc]
faddp st(1)
fld dword [0x46a050]
fdivp st(1)
fstp dword [ebp - 0x58]
fld dword [ebp - 0xe0]
fld dword [ebp - 0xe8]
faddp st(1)
fld dword [0x46a050]
fdivp st(1)
fstp dword [ebp - 0x5c]
fld dword [ebp - 0xdc]
fld dword [ebp - 0xec]
fsubp st(1)
fld dword [0x46a050]
fdivp st(1)
fstp dword [ebp - 0x60]
fld dword [ebp - 0x54]
fld st(0)
fmulp st(1)
fld dword [ebp - 0x58]
fmul st(0)
faddp st(1)
fsqrt
fstp dword [ebp - 0xb8]
fld dword [ebp - 0x54]
fstp dword [ebp - 0x294]
fld dword [ebp - 0x58]
fstp dword [ebp - 0x290]
lea eax, [ebp - 0x294]
mov dword [esp], eax
call sym._phase_
fld dword [0x46a038]
fmulp st(1)
fdiv dword [ebp - 0x40]
fstp dword [ebp - 0xbc]
fld dword [ebp - 0x5c]
fld st(0)
fmulp st(1)
fld dword [ebp - 0x60]
fmul st(0)
faddp st(1)
fsqrt
fstp dword [ebp - 0xb0]
fld dword [ebp - 0x5c]
fstp dword [ebp - 0x29c]
fld dword [ebp - 0x60]
fstp dword [ebp - 0x298]
lea eax, [ebp - 0x29c]
mov dword [esp], eax
call sym._phase_
fld dword [0x46a038]
fmulp st(1)
fdiv dword [ebp - 0x40]
fstp dword [ebp - 0xb4]
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x325
mov dword [ebp - 0x3fc], 0x469f70
mov dword [ebp - 0x3f8], 0x2a
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 9
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x100]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x224]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1d8]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xb8]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xbc]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xb0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xb4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x326
mov dword [ebp - 0x3fc], str.___PORT_I2__RESPONSE:__2_1P_E12.5_0P_F8.2___28X_2_1P_E12.5_0P_F8.2_____Conservation_Check:_Total_Power_F8.4_
mov dword [ebp - 0x3f8], 0x2f
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 6
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
mov dword [esp + 4], 0x4681f8
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xb8]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xbc]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xb0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xb4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
jmp 0x41bfc3
lea eax, [ebp - 0x208]
mov dword [esp], eax
call sym._phase_
fld dword [0x46a038]
fmulp st(1)
fdiv dword [ebp - 0x40]
fstp dword [ebp - 0x1e0]
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x32a
mov dword [ebp - 0x3fc], 0x469f70
mov dword [ebp - 0x3f8], 0x2a
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 9
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x100]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x224]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1d8]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
fld dword [ebp - 0x204]
fld dword [ebp - 0x208]
fstp dword [esp]
fstp dword [esp + 4]
call sym._cabsf
fstp dword [ebp - 0x2a0]
mov dword [esp + 8], 4
lea eax, [ebp - 0x2a0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1e0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x32b
mov dword [ebp - 0x3fc], str.___PORT_I2__RESPONSE:__2_1P_E12.5_0P_F8.2___28X_2_1P_E12.5_0P_F8.2_____Conservation_Check:_Total_Power_F8.4_
mov dword [ebp - 0x3f8], 0x2f
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 6
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
mov dword [esp + 4], 0x4681f8
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
fld dword [ebp - 0x204]
fld dword [ebp - 0x208]
fstp dword [esp]
fstp dword [esp + 4]
call sym._cabsf
fstp dword [ebp - 0x2a4]
mov dword [esp + 8], 4
lea eax, [ebp - 0x2a4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1e0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x332
mov dword [ebp - 0x3fc], 0x469f56
mov dword [ebp - 0x3f8], 0x1a
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 8
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
mov dword [esp + 4], 0x4681fc
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov eax, dword [ebp - 0x14c]
test eax, eax
je 0x41c052
mov eax, dword [ebp - 0x14c]
cmp eax, 4
jne 0x41c13d
lea eax, [ebp - 0x1f4]
mov dword [esp + 0x58], eax
lea eax, [ebp - 0xec]
mov dword [esp + 0x54], eax
lea eax, [ebp - 0xe0]
mov dword [esp + 0x50], eax
lea eax, [ebp - 0x184]
mov dword [esp + 0x4c], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x48], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x44], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x158]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0xc8]
mov dword [esp + 0x38], eax
mov dword [esp + 0x34], 0x468924
lea eax, [ebp - 0xf4]
mov dword [esp + 0x30], eax
lea eax, [ebp - 0x22c]
mov dword [esp + 0x2c], eax
lea eax, [ebp - 0xd4]
mov dword [esp + 0x28], eax
lea eax, [ebp - 0xd8]
mov dword [esp + 0x24], eax
lea eax, [ebp - 0xd0]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x160]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1c8]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x1b0]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x178]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0x170]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x1dc]
mov dword [esp + 8], eax
lea eax, [ebp - 0x230]
mov dword [esp + 4], eax
mov dword [esp], 0x4681fc
call sym._grlobes_
jmp 0x41c382
mov eax, dword [ebp - 0x14c]
cmp eax, 1
jne 0x41c1fb
lea eax, [ebp - 0x218]
mov dword [esp + 0x44], eax
lea eax, [ebp - 0x1f4]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x184]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x34], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x30], eax
mov dword [esp + 0x2c], 0x4681f8
mov dword [esp + 0x28], 0x4681f8
mov dword [esp + 0x24], 0x4681f8
lea eax, [ebp - 0x160]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x1c8]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1b0]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x178]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x170]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0xf4]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x78]
mov dword [esp + 8], eax
lea eax, [ebp - 0x70]
mov dword [esp + 4], eax
mov dword [esp], 0x4681fc
call sym._rwgci_
jmp 0x41c382
mov eax, dword [ebp - 0x14c]
cmp eax, 2
jne 0x41c2c1
lea eax, [ebp - 0x218]
mov dword [esp + 0x48], eax
lea eax, [ebp - 0x1f4]
mov dword [esp + 0x44], eax
lea eax, [ebp - 0x184]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x34], eax
mov dword [esp + 0x30], 0x4681f8
mov dword [esp + 0x2c], 0x4681f8
mov dword [esp + 0x28], 0x4681f8
mov dword [esp + 0x24], 0x4681f8
lea eax, [ebp - 0x160]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x1c8]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1b0]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x178]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x170]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0xf4]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x78]
mov dword [esp + 8], eax
lea eax, [ebp - 0x70]
mov dword [esp + 4], eax
mov dword [esp], 0x4681fc
call sym._coaxci_
jmp 0x41c382
mov eax, dword [ebp - 0x14c]
cmp eax, 3
jne 0x41c382
lea eax, [ebp - 0x218]
mov dword [esp + 0x48], eax
lea eax, [ebp - 0x1f4]
mov dword [esp + 0x44], eax
lea eax, [ebp - 0x184]
mov dword [esp + 0x40], eax
lea eax, [ebp - 0x18c]
mov dword [esp + 0x3c], eax
lea eax, [ebp - 0x188]
mov dword [esp + 0x38], eax
lea eax, [ebp - 0x1b4]
mov dword [esp + 0x34], eax
mov dword [esp + 0x30], 0x4681f8
mov dword [esp + 0x2c], 0x4681f8
mov dword [esp + 0x28], 0x4681f8
mov dword [esp + 0x24], 0x4681f8
lea eax, [ebp - 0x160]
mov dword [esp + 0x20], eax
lea eax, [ebp - 0x1c8]
mov dword [esp + 0x1c], eax
lea eax, [ebp - 0x1b0]
mov dword [esp + 0x18], eax
lea eax, [ebp - 0x178]
mov dword [esp + 0x14], eax
lea eax, [ebp - 0x170]
mov dword [esp + 0x10], eax
lea eax, [ebp - 0xf4]
mov dword [esp + 0xc], eax
lea eax, [ebp - 0x78]
mov dword [esp + 8], eax
lea eax, [ebp - 0x70]
mov dword [esp + 4], eax
mov dword [esp], 0x4681fc
call sym._cwgci_
mov eax, dword [ebp - 0x14c]
test eax, eax
je 0x41c39b
mov eax, dword [ebp - 0x14c]
cmp eax, 4
jne 0x41c964
lea eax, [ebp - 0xe0]
mov dword [esp], eax
call sym._phase_
fld dword [0x46a038]
fmulp st(1)
fdiv dword [ebp - 0x40]
fstp dword [ebp - 0x1e0]
lea eax, [ebp - 0xec]
mov dword [esp], eax
call sym._phase_
fld dword [0x46a038]
fmulp st(1)
fdiv dword [ebp - 0x40]
fstp dword [ebp - 0x1e4]
mov eax, dword [ebp - 0x158]
cmp eax, 1
je 0x41c3f3
mov eax, dword [ebp - 0x158]
cmp eax, 2
jne 0x41c63f
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x345
mov dword [ebp - 0x3fc], 0x469fcb
mov dword [ebp - 0x3f8], 0x19
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 9
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
fld dword [ebp - 0xdc]
fld dword [ebp - 0xe0]
fstp dword [esp]
fstp dword [esp + 4]
call sym._cabsf
fstp dword [ebp - 0x2a8]
mov dword [esp + 8], 4
lea eax, [ebp - 0x2a8]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1e0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
fld dword [ebp - 0xe8]
fld dword [ebp - 0xec]
fstp dword [esp]
fstp dword [esp + 4]
call sym._cabsf
fstp dword [ebp - 0x2ac]
mov dword [esp + 8], 4
lea eax, [ebp - 0x2ac]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1e4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x346
mov dword [ebp - 0x3fc], str.___PORT_I2__RESPONSE:__2_1P_E12.5_0P_F8.2___28X_2_1P_E12.5_0P_F8.2_____Conservation_Check:_Total_Power_F8.4_
mov dword [ebp - 0x3f8], 0x2f
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 6
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
mov dword [esp + 4], 0x4681fc
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
fld dword [ebp - 0xdc]
fld dword [ebp - 0xe0]
fstp dword [esp]
fstp dword [esp + 4]
call sym._cabsf
fstp dword [ebp - 0x2b0]
mov dword [esp + 8], 4
lea eax, [ebp - 0x2b0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1e0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
fld dword [ebp - 0xe8]
fld dword [ebp - 0xec]
fstp dword [esp]
fstp dword [esp + 4]
call sym._cabsf
fstp dword [ebp - 0x2b4]
mov dword [esp + 8], 4
lea eax, [ebp - 0x2b4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1e4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
nop
jmp 0x41cb0d
fld dword [ebp - 0xe0]
fld dword [ebp - 0xe8]
fsubp st(1)
fld dword [0x46a050]
fdivp st(1)
fstp dword [ebp - 0x54]
fld dword [ebp - 0xec]
fld dword [ebp - 0xdc]
faddp st(1)
fld dword [0x46a050]
fdivp st(1)
fstp dword [ebp - 0x58]
fld dword [ebp - 0xe0]
fld dword [ebp - 0xe8]
faddp st(1)
fld dword [0x46a050]
fdivp st(1)
fstp dword [ebp - 0x5c]
fld dword [ebp - 0xdc]
fld dword [ebp - 0xec]
fsubp st(1)
fld dword [0x46a050]
fdivp st(1)
fstp dword [ebp - 0x60]
fld dword [ebp - 0x54]
fld st(0)
fmulp st(1)
fld dword [ebp - 0x58]
fmul st(0)
faddp st(1)
fsqrt
fstp dword [ebp - 0xb8]
fld dword [ebp - 0x54]
fstp dword [ebp - 0x2bc]
fld dword [ebp - 0x58]
fstp dword [ebp - 0x2b8]
lea eax, [ebp - 0x2bc]
mov dword [esp], eax
call sym._phase_
fld dword [0x46a038]
fmulp st(1)
fdiv dword [ebp - 0x40]
fstp dword [ebp - 0xbc]
fld dword [ebp - 0x5c]
fld st(0)
fmulp st(1)
fld dword [ebp - 0x60]
fmul st(0)
faddp st(1)
fsqrt
fstp dword [ebp - 0xb0]
fld dword [ebp - 0x5c]
fstp dword [ebp - 0x2c4]
fld dword [ebp - 0x60]
fstp dword [ebp - 0x2c0]
lea eax, [ebp - 0x2c4]
mov dword [esp], eax
call sym._phase_
fld dword [0x46a038]
fmulp st(1)
fdiv dword [ebp - 0x40]
fstp dword [ebp - 0xb4]
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x351
mov dword [ebp - 0x3fc], 0x469f70
mov dword [ebp - 0x3f8], 0x2a
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 9
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x100]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x224]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1d8]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xb8]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xbc]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xb0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xb4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x352
mov dword [ebp - 0x3fc], str.___PORT_I2__RESPONSE:__2_1P_E12.5_0P_F8.2___28X_2_1P_E12.5_0P_F8.2_____Conservation_Check:_Total_Power_F8.4_
mov dword [ebp - 0x3f8], 0x2f
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 6
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
mov dword [esp + 4], 0x4681fc
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xb8]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xbc]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xb0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0xb4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
jmp 0x41cb0d
lea eax, [ebp - 0x218]
mov dword [esp], eax
call sym._phase_
fld dword [0x46a038]
fmulp st(1)
fdiv dword [ebp - 0x40]
fstp dword [ebp - 0x1e4]
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x356
mov dword [ebp - 0x3fc], 0x469fcb
mov dword [ebp - 0x3f8], 0x19
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 9
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
fld dword [ebp - 0x214]
fld dword [ebp - 0x218]
fstp dword [esp]
fstp dword [esp + 4]
call sym._cabsf
fstp dword [ebp - 0x2c8]
mov dword [esp + 8], 4
lea eax, [ebp - 0x2c8]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1e4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x357
mov dword [ebp - 0x3fc], str.___PORT_I2__RESPONSE:__2_1P_E12.5_0P_F8.2___28X_2_1P_E12.5_0P_F8.2_____Conservation_Check:_Total_Power_F8.4_
mov dword [ebp - 0x3f8], 0x2f
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 6
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
mov dword [esp + 8], 4
mov dword [esp + 4], 0x4681fc
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_integer_write
fld dword [ebp - 0x214]
fld dword [ebp - 0x218]
fstp dword [esp]
fstp dword [esp + 4]
call sym._cabsf
fstp dword [ebp - 0x2cc]
mov dword [esp + 8], 4
lea eax, [ebp - 0x2cc]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
mov dword [esp + 8], 4
lea eax, [ebp - 0x1e4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov eax, dword [ebp - 0x210]
test eax, eax
je 0x41cb37
lea eax, [ebp - 0x1f8]
mov dword [esp + 8], eax
mov dword [esp + 4], 0x468924
lea eax, [ebp - 0x18c]
mov dword [esp], eax
call sym._wcurr_
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x35e
mov dword [ebp - 0x3fc], 0x469fe4
mov dword [ebp - 0x3f8], 0x2b
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 6
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
fld dword [ebp - 0x1f0]
fld dword [ebp - 0x1f4]
faddp st(1)
fld dword [ebp - 0x1f8]
faddp st(1)
fstp dword [ebp - 0x2d0]
mov dword [esp + 8], 4
lea eax, [ebp - 0x2d0]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x35f
mov dword [ebp - 0x3fc], 0x469fe4
mov dword [ebp - 0x3f8], 0x2b
mov dword [ebp - 0x430], 0x1000
mov dword [ebp - 0x42c], 8
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write
fld dword [ebp - 0x1f0]
fld dword [ebp - 0x1f4]
faddp st(1)
fld dword [ebp - 0x1f8]
faddp st(1)
fstp dword [ebp - 0x2d4]
mov dword [esp + 8], 4
lea eax, [ebp - 0x2d4]
mov dword [esp + 4], eax
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_transfer_real_write
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_write_done
mov dword [esp], 0x46a010
call sym.__gfortran_flush_i4
mov dword [esp], 0x46a014
call sym.__gfortran_flush_i4
add dword [ebp - 0x1c], 1
jmp 0x419eaa
nop
add dword [ebp - 0x28], 1
jmp 0x419131
nop
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x368
mov dword [ebp - 0x430], 0
mov dword [ebp - 0x42c], 8
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_close
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x369
mov dword [ebp - 0x430], 0
mov dword [ebp - 0x42c], 9
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_close
mov dword [ebp - 0x428], str.parana224.F
mov dword [ebp - 0x424], 0x36a
mov dword [ebp - 0x430], 0
mov dword [ebp - 0x42c], 0xe
lea eax, [ebp - 0x430]
mov dword [esp], eax
call sym.__gfortran_st_close
mov byte [esp + 8], 0
mov dword [esp + 4], 0
mov dword [esp], 0
call sym.__gfortran_stop_string