anchor.diff:     integer(IntKi)                :: ErrStat2                                                           ! temporary Error status
      character(ErrMsgLen)          :: ErrMsg2                                                            ! temporary Error message
      type(FVW_ConstraintStateType) :: z_guess                                                                              ! <
  -   integer(IntKi) :: iW, iSpan, iAge
  +   integer(IntKi) :: iW, iSpan, nP, nFWEff
   
      ErrStat = ErrID_None
      ErrMsg  = ""
  
positive.code:          endif
           call WrVTK_FVW(p, x, z, m, 'vtk_out/FVW', m%VTKstep, 9)
        endif
        m%VTKstep = m%VTKstep + 1  ! Increment VTK counter no matter what
     endif
  
  
  contains
  
negative.code:    character(*),                  intent(  out) :: ErrMsg     !< Error message if ErrStat /= ErrID_None
     ! local variables
     type(FVW_ContinuousStateType) :: dxdt ! time derivatives of continuous states
     real(ReKi)     :: dt
     integer(IntKi)       :: ErrStat2      ! temporary error status of the operation
     character(ErrMsgLen) :: ErrMsg2       ! temporary error message
  