Make - generate simple 2-D synthetics with crossing plane waves

Make n1=100 n2=14 n3=1 n=3 p=3 t1=4 t2=4 > synth.H

Plane waves have fixed slopes, but random amplitudes

from par	integer	n1 =100, n2 =14, n3 =1	data size
	integer	n =3	slope
	integer	p =3	power for generating random distribution
	integer	t1 =3, t2 =3	width of trinalge smoother on the two waves

Modules: triangle.lop , random.f90 (for compatibility with Fortran-77)

See also: Hole