anchor.diff:     !  Write simulation times and stop
      !............................................................................................................................
   
  -   CALL RunTimes( m_FAST%StrtTime, m_FAST%UsrTime1, m_FAST%SimStrtTime, m_FAST%UsrTime2, m_FAST%t_global, DescStrIn=p_FAST%TDesc )
  +   IF (p_FAST%WrSttsTime) THEN
  +      CALL RunTimes( m_FAST%StrtTime, m_FAST%UsrTime1, m_FAST%SimStrtTime, m_FAST%UsrTime2, m_FAST%t_global, DescStrIn=p_FAST%TDesc )
  +   END IF
  +   
   
      if (StopTheProgram) then
   #if (defined COMPILE_SIMULINK || defined COMPILE_LABVIEW)
  
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:    ! write the data that potentially changes each time step:
     !.................................................................
        
     ! PolyData (.vtp) - Serial vtkPolyData (unstructured) file
     FileName = TRIM(p_FAST%OutFileRoot)//'.WaveSurface.t'//TRIM(Num2LStr(y_FAST%VTK_count))//'.vtp'
        
     call WrVTK_header( FileName, NumberOfPoints, NumberOfLines, NumberOfPolys, Un, ErrStat2, ErrMsg2 )    
  