anchor.diff:        ! Get the arrays of data to be stored in the output file
      CALL FAST_PackTurbineType( ReKiBuf, DbKiBuf, IntKiBuf, Turbine, ErrStat2, ErrMsg2 )
         CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  -      IF (ErrStat >= AbortErrLev ) RETURN
  +      if (ErrStat >= AbortErrLev ) then
  +         call cleanup()
  +         RETURN
  +      end if
  +      
         
      ArraySizes = 0   
      IF ( ALLOCATED(ReKiBuf)  ) ArraySizes(1) = SIZE(ReKiBuf)
  
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:          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 not TmpTime 
           IF (p%WrVTK > VTK_None) THEN
              TmpRate = p%n_VTKTime*p%DT
              if (.not. EqualRealNos(TmpRate, TmpTime)) then
  