anchor.diff:             Enorm = 0.0D0
              Enorm = DOT_PRODUCT(ui_temp,feqv)
              IF(Enorm .GT. Eref/TOLF) THEN
  -               WRITE(*,*) "Solution is diverging, exit N-R"
  +               call WrScr( "Solution is diverging, exit N-R" )
                  piter=niter
              ELSEIF(Enorm .LE. Eref) THEN
                  RETURN
  
positive.code:    INTEGER(IntKi)                  :: temp_id
  !   INTEGER(IntKi)                  :: temp_count
  
     Eref = 0.0D0
     DO i=1,niter
         StifK(:,:) = 0.0D0
  
negative.code:    REAL(ReKi),         INTENT(INOUT):: aaNf(:)
     REAL(ReKi),         INTENT(INOUT):: xxNf(:)
  
     INTEGER(IntKi),     INTENT(  OUT):: ErrStat     ! Error status of the operation
     CHARACTER(*),       INTENT(  OUT):: ErrMsg      ! Error message if ErrStat /= ErrID_None
  
     ! local variables
     INTEGER(IntKi)                   :: ErrStat2    ! Temporary Error status
     CHARACTER(ErrMsgLen)             :: ErrMsg2     ! Temporary Error message
     CHARACTER(*), PARAMETER          :: RoutineName = 'BD_DynamicSolutionGA2'         
     
     REAL(ReKi)                       :: errf
     REAL(ReKi)                       :: StifK(dof_total,dof_total)
     REAL(ReKi)                       :: RHS(dof_total)
  