// File: myudelson[P]hmm-scalable/FitBit.cpp
// Function: FitBit::checkConvergenceSingle(FitResult*)
bool FitBit::checkConvergenceSingle(FitResult *fr) {
    
    NUMBER criterion = 0;
    bool res = false;
    switch (this->tol_mode) {
        case 'p':
            for(NPAR i=0; i<this->nS; i++)
            {
                if(this->pi != NULL) criterion += pow( this->pi[i]-this->PIm1[i], 2 )/*:0*/;
                for(NPAR j=0; (this->A != NULL) && j<this->nS; j++) {
                    criterion += pow(this->A[i][j] - this->Am1[i][j],2);
                }
                for(NPAR k=0; (this->B != NULL) && k<this->nO; k++) {
                    criterion += pow(this->B[i][k] - this->Bm1[i][k],2);
                }
            }
            
        case 'l':
            criterion = (fr->pOmid-fr->pO)/fr->ndat;
            res = criterion < this->tol;
            break;
    }
    return res;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq -0x8(%rbp), %rax
movq %rax, -0x28(%rbp)
movq $0x0, -0x18(%rbp)
movb $0x0, -0x19(%rbp)
movsbl 0x108(%rax), %eax
movl %eax, -0x20(%rbp)
subl $0x6c, %eax
je 0xebe0
jmp 0xea69
movl -0x20(%rbp), %eax
subl $0x70, %eax
jne 0xec21
jmp 0xea77
movb $0x0, -0x1a(%rbp)
movq -0x28(%rbp), %rcx
movsbl -0x1a(%rbp), %eax
movsbl 0x1(%rcx), %ecx
cmpl %ecx, %eax
jge 0xebde
movq -0x28(%rbp), %rax
cmpq $0x0, 0x10(%rax)
je 0xeace
movq -0x28(%rbp), %rax
movq 0x10(%rax), %rcx
movsbq -0x1a(%rbp), %rdx
movsd (%rcx,%rdx,8), %xmm0
movq 0x28(%rax), %rax
movsbq -0x1a(%rbp), %rcx
subsd (%rax,%rcx,8), %xmm0
movl $0x2, %edi
callq 0xf6b0
addsd -0x18(%rbp), %xmm0
movsd %xmm0, -0x18(%rbp)
movb $0x0, -0x1b(%rbp)
movq -0x28(%rbp), %rcx
xorl %eax, %eax
cmpq $0x0, 0x18(%rcx)
movb %al, -0x29(%rbp)
je 0xeaf6
movq -0x28(%rbp), %rcx
movsbl -0x1b(%rbp), %eax
movsbl 0x1(%rcx), %ecx
cmpl %ecx, %eax
setl %al
movb %al, -0x29(%rbp)
movb -0x29(%rbp), %al
testb $0x1, %al
jne 0xeaff
jmp 0xeb4f
movq -0x28(%rbp), %rax
movq 0x18(%rax), %rcx
movsbq -0x1a(%rbp), %rdx
movq (%rcx,%rdx,8), %rcx
movsbq -0x1b(%rbp), %rdx
movsd (%rcx,%rdx,8), %xmm0
movq 0x30(%rax), %rax
movsbq -0x1a(%rbp), %rcx
movq (%rax,%rcx,8), %rax
movsbq -0x1b(%rbp), %rcx
subsd (%rax,%rcx,8), %xmm0
movl $0x2, %edi
callq 0xf6b0
addsd -0x18(%rbp), %xmm0
movsd %xmm0, -0x18(%rbp)
movb -0x1b(%rbp), %al
addb $0x1, %al
movb %al, -0x1b(%rbp)
jmp 0xead2
movb $0x0, -0x1c(%rbp)
movq -0x28(%rbp), %rcx
xorl %eax, %eax
cmpq $0x0, 0x20(%rcx)
movb %al, -0x2a(%rbp)
je 0xeb76
movq -0x28(%rbp), %rcx
movsbl -0x1c(%rbp), %eax
movsbl (%rcx), %ecx
cmpl %ecx, %eax
setl %al
movb %al, -0x2a(%rbp)
movb -0x2a(%rbp), %al
testb $0x1, %al
jne 0xeb7f
jmp 0xebcf
movq -0x28(%rbp), %rax
movq 0x20(%rax), %rcx
movsbq -0x1a(%rbp), %rdx
movq (%rcx,%rdx,8), %rcx
movsbq -0x1c(%rbp), %rdx
movsd (%rcx,%rdx,8), %xmm0
movq 0x38(%rax), %rax
movsbq -0x1a(%rbp), %rcx
movq (%rax,%rcx,8), %rax
movsbq -0x1c(%rbp), %rcx
subsd (%rax,%rcx,8), %xmm0
movl $0x2, %edi
callq 0xf6b0
addsd -0x18(%rbp), %xmm0
movsd %xmm0, -0x18(%rbp)
movb -0x1c(%rbp), %al
addb $0x1, %al
movb %al, -0x1c(%rbp)
jmp 0xeb53
jmp 0xebd1
movb -0x1a(%rbp), %al
addb $0x1, %al
movb %al, -0x1a(%rbp)
jmp 0xea7b
jmp 0xebe0
movq -0x28(%rbp), %rax
movq -0x10(%rbp), %rcx
movsd 0x10(%rcx), %xmm0
movq -0x10(%rbp), %rcx
subsd 0x18(%rcx), %xmm0
movq -0x10(%rbp), %rcx
cvtsi2sdl 0x24(%rcx), %xmm1
divsd %xmm1, %xmm0
movsd %xmm0, -0x18(%rbp)
movsd -0x18(%rbp), %xmm1
movsd 0x100(%rax), %xmm0
ucomisd %xmm1, %xmm0
seta %al
andb $0x1, %al
movb %al, -0x19(%rbp)
movb -0x19(%rbp), %al
andb $0x1, %al
addq $0x30, %rsp
popq %rbp
retq
nopl (%rax)