real*4 a,b,c,x,y,dx,dy
	integer*2 h,k,l
	a=1/117.
	b=1/178
	c=1/199.5
	beta=74
	open (unit=3,name='cell.ps',status='new')
	write(3,*)'%!PS-Adobe'
	write(3,*)'200 300 translate'
	write(3,*)'1000. 1000. scale'

	pi=4*atan(1.0)
	beta=pi*beta/180.
	a=a/sin(beta)
	c=c/sin(beta)
	dx=c*sin(beta)
	dy=c*cos(beta)

	do 100 h=0,5
	y=h*a
	x=0.
	write(3,*)x,y,' moveto'
	x=x+5*dx
	y=y+5*dy
100	write(3,*)x,y,' lineto'

	do 200 l=0,5
	x=l*dx
	y=l*dy
	write(3,*)x,y,' moveto'
	y=y+5*a
200	write(3,*)x,y,' lineto'
	write(3,*)'stroke showpage'
	close (unit=3)
	end