C ------ hpfarm.f ------------------------------------- 16.09.97 ----
C 							M.Pester
C asynchrone Mandelbrot-Version: Prozessor 0 selbst realisiert
C Bildschirmausgabe und versendet neue Aufgaben an diejenigen 
C Prozessoren, die als erste bereit sind
	Program FarmMand
	include 'farmnet.inc'
	include 'include/trnet.inc'

	Parameter (mEGA=1,mRain1=2,mRain2=3)
	Parameter (MAXA=2 000 000)
	INTEGER A(MAXA)
	LOGICAL WEITER,Quiet
	COMMON /reserv/ A

	call FarmInit	
C			! asynchrone Kommunikation Master-Slave

	if (ICH .EQ. 0) call ginitx(mEGA,IER)
	call ATree_Down_0(1,IER)
	if (IER .NE. 0) goto 9999
	IF (ICH .EQ. 0) then
	  call RestartMandel
	  call ChangeWinSize(iwidth,iheight)
	endif
1	CONTINUE
	if (ICH .EQ. 0) then
	  call GetWinSize(iwidth,iheight)
	  call IniRange(iwidth,iheight,Quiet)
	endif
	if (NPROC .GT. 1) then
	  if (ICH .EQ. 0) then
	    call a_master(A,iwidth,iheight,Quiet)
	  else
	    call a_slave(A)
	  endif
	else
	  call single(A,iwidth,iheight,Quiet)
	endif
	if (ICH .EQ. 0) then
	  call newrange(iwidth,iheight,WEITER)
	endif
	call ATree_Down_0(1,WEITER)
	if (WEITER) goto 1
9999	continue
	if (NPROC .gt. 1) call farmclose
	END