program MAIN
*             ====
*     Random function of 2 variables
*     ------------------------------
c     parameter (LIMIT=1000)
      parameter (LIMIT=20)
      open(1,file='t')
      open(2,file='coor2d.dat')
      open(3,file='coor3d.dat')
      do 10 i=1,LIMIT
      x=ran(is)
      y=ran(is)
      z=ran(is)
      t=ran(is)
* ... Input 'voronoi':
      write(1,*) x,y
* ... Input 'Contour' & 'tetras':
      write(2,*) x,y,z
* ... Input 'Isosurf':
      write(3,*) x,y,z,t
10    continue
      end