anchor.diff:       w(j) = y(j)-2*y(j+1)+y(j+2)
     END DO
   
  -  print *, '3) determine lamr, a0, a1, a2, x1, x2'
  +! print *, '3) determine lamr, a0, a1, a2, x1, x2'
     lamr = lam*Tcu
     a0 = 6.d0 + lamr*2.d0/3.d0
     a1 = 4.d0 - lamr/6.d0
  
positive.code:      alpha = 0.5d0*(x1 - SQRT(x1**2-4.d0))
       beta  = 0.5d0*(x2 + SQRT(x2**2-4.d0))
    END IF
    print *, 'alpha, beta = ', alpha, beta
  
  ! IF (JJ > LOG10(alpha*beta) - (nc-1)*2*LOG10(ABS(alpha))) THEN 
    IF (JJ > LOG10(DBLE(alpha*beta)) - (nc-1)*2*LOG10(ABS(alpha))) THEN 
       print *, '5) JJ if block: GREATER THAN'
  
       !Use untruncated algorithm since NN > nc-2 
       !Factor coefficient matrix, solve triangular systems, find trace 
  
negative.code:      tr1 = tr1+g1
       tr3 = 0.d0
  
       !print *, '8) Loop to produce tr1 etc'
       DO j=3,NN 
          d = a0 - mu*e(j-1) - f(j-2)
          f(j) = 1.d0 / d
  