anchor.diff:  
       WRITE(ounit,'(I4, F10.3, F10.4, ES15.4, 12F9.2)') step, t2, rho/tbeta, &
       tpow2/tpow1, (bpos(n), n = 1, nb)
  -    
  +
       IF (maxi) THEN
           WRITE(*,'(I4, F10.3, F10.4, ES15.4, A35)') step, t2, rho/tbeta, &
           tpow2/tpow1, 'OUTER ITERATION DID NOT CONVERGE'
       ELSE
           WRITE(*,'(I4, F10.3, F10.4, ES15.4)') step, t2, rho/tbeta, &
           tpow2/tpow1
  -    END IF  
  -
  -    IF (maxi) tranw = .TRUE.    
  -    
  +    END IF
  +
  +    IF (maxi) tranw = .TRUE.
  +
   END DO
   
   ! Second Time Step
  
positive.code: 
      WRITE(ounit,'(I4, F10.3, F10.4, ES15.4, 4F10.2)') step, t2, rho/tbeta, &
      xppow, tm-273.15, mtm-273.15, tf-273.15, mtf-273.15
      
      IF (maxi) THEN
          WRITE(*,'(I4, F10.3, F10.4, ES15.4, A35)') step, t2, rho/tbeta, &
          xppow, 'OUTER ITERATION DID NOT CONVERGE'
  
negative.code: 
      WRITE(ounit,'(I4, F10.3, F10.4, ES15.4, 4F10.2)') step, t2, rho/tbeta, &
      xppow, tm-273.15, mtm-273.15, tf-273.15, mtf-273.15
  
      IF (maxi) THEN
          WRITE(*,'(I4, F10.3, F10.4, ES15.4, A35)') step, t2, rho/tbeta, &
          xppow, 'OUTER ITERATION DID NOT CONVERGE'
  