PROGRAM PROJECT
      DIMENSION A(216)
      DATA A /25*0.9,25*0.7,25*0.5,25*0.30, 25*0.1,25*-0.1,25*-0.3,25*-0.5,16*-0.7/
      OPEN (8,FILE='data.dat',STATUS='unknown')
      print *, ' Writing out a 6 by 6 by 6 cube of data'
      print *, ' This may not look too pretty! Do try your own'
      DO 10 J=1,216
      IF (A(J).GT. 1.0 .or. A(J). LT. -1.0) THEN
C The default settings for Explorer assume the data is in
C the range -1 to plus 1. Your own data can either be
C normalised to be within this range, or you can use
C the dials in Explorer to readjust this range!
      print *, ' Data outside range -1 to +1'
      ENDIF
   10 CONTINUE
      CALL WRITER (A)
      END
      SUBROUTINE WRITER (A)
      DIMENSION A(216)
      WRITE (8,10)
 10   FORMAT ('6'/'6'/'6'/'0.0')
      WRITE (8,20) (A(J), J=1,216)
  20  FORMAT (F6.4)
      RETURN
      END