c -- task.h
c
c    Task types, which are part of the work vector interchanged with
c    getwork/assignwork.
c
c Argument(s) are work vector cast in various types:
c
c (1) IN: tile x
c (2) IN: tile y
c (3) IN: tasktype 
c (4) IN: write cdump if <> 0 (is in fact dump number, ndump)
c (5) IN: nstep
c (6) IN: dtime (real), OUT: courmx (real)
c (7-8)  OUT: dtask(4) sumkntc (double)
c (9-10) OUT: dtask(5) sumprs (double)
c
c Size (bytes) of task vector:
      integer ntask
      parameter (ntask=10*4)

c Interpretation of task info:  (tilex, tiley, task, dumpflag, dtime/courno, ek, eh)
c where tiles are numbered 1.. and task is defined in task.h
c
      real rtask(20)
      real*8 dtask(10)
      integer task(20)
      equivalence (rtask(1), task(1), dtask(1) )

      common /taskcom/ task

      integer WAKEUP_TASK, SLEEP_TASK, UPDATE_TASK, TERMN8_TASK, INIT_TASK,
     &        SYNC_TASK, CREATE_TASK, PING_TASK

      parameter( WAKEUP_TASK=1, SLEEP_TASK=2, UPDATE_TASK= 3, INIT_TASK=4,
     &           SYNC_TASK=5, CREATE_TASK=6, PING_TASK=7,
     &           TERMN8_TASK=8 )