TITLE	GRAND GAUSSIAN RANDOM NUMBER GENERATOR
	SUBTTL	V.001  R.S.TOMLINSON  20 AUG 68
	ENTRY	GRAND
	INTERN	GRAND
	EXTERN	RANDOM,ALOG,SIN,SQRT

; CALL:	JSA 16,GRAND
;	ARG 02,<MEAN>
;	ARG 02,<VARIANCE>
;	RESULTS IN AC0

GRAND:	0
	JSA 16,RANDOM
	JUMP 2,[0]
	JUMP 2,[1.0]
	MOVEM 0,T1#
	JSA 16,RANDOM
	JUMP 2,[0]
	JUMP 2,[6.28318531]
	MOVEM 0,T2#
	JSA 16,ALOG
	JUMP 2,T1
	FSC 0,1
	MOVNM 0,T1
	JSA 16,SQRT
	JUMP 2,T1
	MOVEM 0,T1
	JSA 16,SIN
	JUMP 2,T2
	FMPR 0,T1
	FMPR 0,@1(16)
	FADR 0,@0(16)
	JRA 16,2(16)

	END