// File: myudelson[P]hmm-scalable/FitBitSlicedA.cpp
// Function: FitBitSlicedA::checkConvergence(FitResult*)
bool FitBitSlicedA::checkConvergence(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 z=0; z<this->nZ; z++)
                for(NPAR i=0; i<this->nS; i++)
                {
                    for(NPAR j=0; (this->A != NULL) && j<this->nS; j++) {
                        criterion += pow(this->A[z][i][j] - this->Am1[z][i][j],2);
                    }
                    
                }
            for(NPAR i=0; i<this->nS; i++)
            {
                for(NPAR k=0; (this->B != NULL) && k<this->nO; k++) {
                    criterion += pow(this->B[i][k] - this->Bm1[i][k],2);
                }
            }
            res = sqrt(criterion) < this->tol; // double the truth or false
            break;
        case 'l':
            criterion = (fr->pOmid-fr->pO)/fr->ndat;
            res = criterion < this->tol;
            break;
    }
    return res;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x40, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq -0x8(%rbp), %rax
movq %rax, -0x30(%rbp)
movq $0x0, -0x18(%rbp)
movb $0x0, -0x19(%rbp)
movsbl 0xf0(%rax), %eax
movl %eax, -0x24(%rbp)
subl $0x6c, %eax
je 0x10dd8
jmp 0x10bb9
movl -0x24(%rbp), %eax
subl $0x70, %eax
jne 0x10e19
jmp 0x10bc7
movb $0x0, -0x1a(%rbp)
movq -0x30(%rbp), %rcx
movsbl -0x1a(%rbp), %eax
movsbl 0x1(%rcx), %ecx
cmpl %ecx, %eax
jge 0x10c26
movq -0x30(%rbp), %rax
cmpq $0x0, 0x10(%rax)
je 0x10c1a
movq -0x30(%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)
jmp 0x10c1c
movb -0x1a(%rbp), %al
addb $0x1, %al
movb %al, -0x1a(%rbp)
jmp 0x10bcb
movb $0x0, -0x1b(%rbp)
movq -0x30(%rbp), %rcx
movsbl -0x1b(%rbp), %eax
movsbl 0x2(%rcx), %ecx
cmpl %ecx, %eax
jge 0x10d0a
movb $0x0, -0x1c(%rbp)
movq -0x30(%rbp), %rcx
movsbl -0x1c(%rbp), %eax
movsbl 0x1(%rcx), %ecx
cmpl %ecx, %eax
jge 0x10cfb
movb $0x0, -0x1d(%rbp)
movq -0x30(%rbp), %rcx
xorl %eax, %eax
cmpq $0x0, 0x18(%rcx)
movb %al, -0x31(%rbp)
je 0x10c7e
movq -0x30(%rbp), %rcx
movsbl -0x1d(%rbp), %eax
movsbl 0x1(%rcx), %ecx
cmpl %ecx, %eax
setl %al
movb %al, -0x31(%rbp)
movb -0x31(%rbp), %al
testb $0x1, %al
jne 0x10c87
jmp 0x10cec
movq -0x30(%rbp), %rax
movq 0x18(%rax), %rcx
movsbq -0x1b(%rbp), %rdx
movq (%rcx,%rdx,8), %rcx
movsbq -0x1c(%rbp), %rdx
movq (%rcx,%rdx,8), %rcx
movsbq -0x1d(%rbp), %rdx
movsd (%rcx,%rdx,8), %xmm0
movq 0x30(%rax), %rax
movsbq -0x1b(%rbp), %rcx
movq (%rax,%rcx,8), %rax
movsbq -0x1c(%rbp), %rcx
movq (%rax,%rcx,8), %rax
movsbq -0x1d(%rbp), %rcx
subsd (%rax,%rcx,8), %xmm0
movl $0x2, %edi
callq 0xf6b0
addsd -0x18(%rbp), %xmm0
movsd %xmm0, -0x18(%rbp)
movb -0x1d(%rbp), %al
addb $0x1, %al
movb %al, -0x1d(%rbp)
jmp 0x10c5a
jmp 0x10cee
movb -0x1c(%rbp), %al
addb $0x1, %al
movb %al, -0x1c(%rbp)
jmp 0x10c42
jmp 0x10cfd
movb -0x1b(%rbp), %al
addb $0x1, %al
movb %al, -0x1b(%rbp)
jmp 0x10c2a
movb $0x0, -0x1e(%rbp)
movq -0x30(%rbp), %rcx
movsbl -0x1e(%rbp), %eax
movsbl 0x1(%rcx), %ecx
cmpl %ecx, %eax
jge 0x10db1
movb $0x0, -0x1f(%rbp)
movq -0x30(%rbp), %rcx
xorl %eax, %eax
cmpq $0x0, 0x20(%rcx)
movb %al, -0x32(%rbp)
je 0x10d49
movq -0x30(%rbp), %rcx
movsbl -0x1f(%rbp), %eax
movsbl (%rcx), %ecx
cmpl %ecx, %eax
setl %al
movb %al, -0x32(%rbp)
movb -0x32(%rbp), %al
testb $0x1, %al
jne 0x10d52
jmp 0x10da2
movq -0x30(%rbp), %rax
movq 0x20(%rax), %rcx
movsbq -0x1e(%rbp), %rdx
movq (%rcx,%rdx,8), %rcx
movsbq -0x1f(%rbp), %rdx
movsd (%rcx,%rdx,8), %xmm0
movq 0x38(%rax), %rax
movsbq -0x1e(%rbp), %rcx
movq (%rax,%rcx,8), %rax
movsbq -0x1f(%rbp), %rcx
subsd (%rax,%rcx,8), %xmm0
movl $0x2, %edi
callq 0xf6b0
addsd -0x18(%rbp), %xmm0
movsd %xmm0, -0x18(%rbp)
movb -0x1f(%rbp), %al
addb $0x1, %al
movb %al, -0x1f(%rbp)
jmp 0x10d26
jmp 0x10da4
movb -0x1e(%rbp), %al
addb $0x1, %al
movb %al, -0x1e(%rbp)
jmp 0x10d0e
movsd -0x18(%rbp), %xmm0
callq 0x5220
movq -0x30(%rbp), %rax
movaps %xmm0, %xmm1
movsd 0xe8(%rax), %xmm0
ucomisd %xmm1, %xmm0
seta %al
andb $0x1, %al
movb %al, -0x19(%rbp)
jmp 0x10e19
movq -0x30(%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 0xe8(%rax), %xmm0
ucomisd %xmm1, %xmm0
seta %al
andb $0x1, %al
movb %al, -0x19(%rbp)
movb -0x19(%rbp), %al
andb $0x1, %al
addq $0x40, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)