anchor.diff:        CALL FARM_CalcOutput(t, farm, ErrStat, ErrMsg)      
            CALL CheckError( ErrStat, ErrMsg  )
         
  +      CALL SimStatus( PrevSimTime, PrevClockTime, t, farm%p%TMax )
  +         
      END DO ! n_t_global
      
      
  
positive.code: 
  
     END SUBROUTINE CheckError   
     !............................................................................................................................... 
     SUBROUTINE Cleanup()
     
        
     END SUBROUTINE Cleanup
  END PROGRAM FAST_Farm
  !**********************************************************************************************************************************
  
negative.code:             END IF
              
              call FARM_End(farm, ErrStat2, ErrMsg2)                                 
              call ProgAbort('', TrapErrors=.FALSE., TimeWait=3._ReKi )
              
           END IF
  