anchor.diff:           p%n_VTKTime = HUGE(p%n_VTKTime)
         ELSE         
            p%n_VTKTime = NINT( TmpTime / p%DT )
  -         ! I'll warn if p%n_VTKTime*p%DT is necessarially TmpTime 
  +         ! I'll warn if p%n_VTKTime*p%DT is not TmpTime 
            IF (p%WrVTK > VTK_None) THEN
               TmpRate = p%n_VTKTime*p%DT
               if (.not. EqualRealNos(TmpRate, TmpTime)) then
  
positive.code:       CALL GetNewUnit( unOut, ErrStat2, ErrMsg2 )      
        CALL OpenBOutFile ( unOut, FileName, ErrStat2, ErrMsg2)
           CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
           IF (ErrStat >= AbortErrLev ) RETURN
    
           ! checkpoint file header:
        WRITE (unOut, IOSTAT=ErrStat2)   INT(ReKi              ,B4Ki)     ! let's make sure we've got the correct number of bytes for reals on restart.
  
negative.code:       end if      
     END IF
     
     call cleanup()
     
  contains
     subroutine cleanup()
        IF ( ALLOCATED(ReKiBuf)  ) DEALLOCATE(ReKiBuf)
        IF ( ALLOCATED(DbKiBuf)  ) DEALLOCATE(DbKiBuf)
        IF ( ALLOCATED(IntKiBuf) ) DEALLOCATE(IntKiBuf)   
     end subroutine cleanup                  
  END SUBROUTINE FAST_CreateCheckpoint_T
  !----------------------------------------------------------------------------------------------------------------------------------
  !> Routine that calls FAST_RestoreFromCheckpoint_T for an array of Turbine data structures. 
  