EXC!TiNG Recipes



This page will contain recipes for delicious dishes which were prepared by at least one node and tasted by members of at least two nodes.


EXC!TiNG Reindeer
EXC!TiNG Nocino
EXC!TiNG Bread 

      program reindeerdinner

C     delivered by Riksgränsen

      implicit double precision (a-h, o-z)
      logical reindeer_hunted, still_hungry


      still_hungry = .TRUE.
 100  reindeer_hunted = .FALSE.

      IF (reindeer_hunted.EQ.TRUE.) THEN  
        WRITE(*,*) "Number of participants"
        READ(*,*) npart
        WRITE(*,*) "Number of vegetarians"
        READ(*,*) nveg
      ELSE
        CALL hunt(reindeer, reindeer_hunted)
        GOTO 100
      ENDIF

C     just an estimate
      nexciteds = 3*SQRT(2*npart*nveg)

      CALL bbq(reindeer)

      nslices = npart - nveg

      DO i= 1, nslices
        CALL slice(reindeer, nslices)
      ENDDO

      DO i = 1, 2*nveg + nslices
        CALL prepare_sidedish
      ENDDO
     
      DO i = 1,npart
	CALL serve_food(i)
      ENDDO

      CALL consume(npart,stillhungry)

      IF (stillhungry.EQ.TRUE.) THEN
        GOTO 100
      ENDIF 

      CALL digest(npart)
      CALL get_some_drinks(nexciteds)
      CALL remember_this_event_forever

      END PROGRAM reindeerdinner






program nocino

!    delivered by Elisa Molinari/Modena
!    to be installed soon

end






program bread

!    delivered by CAD/Graz
!    to be installed soon

end