anchor.diff:        IF (p%IntMethod .EQ. 4) THEN       ! Allocate Jacobian if AM2 is requested & if there are states (p%qmL > 0)
            n=2*p%qmL
            CALL AllocAry( p%AM2Jac, n, n, 'p%AM2InvJac', ErrStat2, ErrMsg2 ) ! This will be the Jacobian
  -            CALL SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,'SetParameters')
  +            CALL SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName)
            CALL AllocAry( p%AM2JacPiv, n, 'p%AM2JacPiv', ErrStat2, ErrMsg2 )                         
  -            CALL SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,'SetParameters')         
  +            CALL SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName)         
               IF ( ErrStat >= AbortErrLev ) RETURN 
            
                  ! First we calculate the Jacobian:
  
positive.code:          OmegaL(I) = 0.0_ReKi
        END DO     
     
        !....................................................
        ! Set p%PhiL_T and p%PhiLInvOmgL2 for static improvement
        !....................................................
  
negative.code:                                                        
     INTEGER(IntKi)                         :: ErrStat2                                                                    
     CHARACTER(LEN(ErrMsg))                 :: ErrMsg2
     CHARACTER(*), PARAMETER                :: RoutineName = 'CBMatrix'
                                                         
     ErrStat = ErrID_None 
     ErrMsg  = ''
  