anchor.diff:     ! write the data that potentially changes each time step:
      !.................................................................
         
  -   ! PolyData (.vtp) � Serial vtkPolyData (unstructured) file
  +   ! PolyData (.vtp) - Serial vtkPolyData (unstructured) file
      FileName = TRIM(FileRootName)//'.vtp'
         
      call WrVTK_header( FileName, NumberOfPoints, NumberOfLines, NumberOfPolys, Un, ErrStat2, ErrMsg2 )    
  
positive.code:    !! Display simulation status every SttsTime-seconds (i.e., n_SttsTime steps):
     !----------------------------------------------------------------------------------------   
        
     IF ( MOD( n_t_global + 1, p_FAST%n_SttsTime ) == 0 ) THEN
        
        if (.not. Cmpl4SFun) then   
           CALL SimStatus( m_FAST%TiLstPrn, m_FAST%PrevClockTime, m_FAST%t_global, p_FAST%TMax, p_FAST%TDesc )
        end if
        
     ENDIF   
       
  END SUBROUTINE FAST_Solution
  !----------------------------------------------------------------------------------------------------------------------------------
  
negative.code: 
     if (present(ExternInitData)) then
        CallStart = .not. ExternInitData%FarmIntegration ! .and. ExternInitData%TurbineID == 1
        if (ExternInitData%TurbineID > 0) p_FAST%TDesc = 'T'//trim(num2lstr(ExternInitData%TurbineID)) 
     else
        CallStart = .true.
     end if
             
     
        ! Init NWTC_Library, display copyright and version information:
     if (CallStart) then
        AbortErrLev = ErrID_Fatal                                 ! Until we read otherwise from the FAST input file, we abort only on FATAL errors
        CALL FAST_ProgStart( FAST_Ver )
        p_FAST%WrSttsTime = .TRUE.
     else
        ! if we don't call the start data (e.g., from FAST.Farm), we won't override AbortErrLev either 
        CALL DispNVD( FAST_Ver )
        p_FAST%WrSttsTime = .FALSE.
     end if
     
     IF (PRESENT(InFile)) THEN
  