subroutine gaulat	(	real (kind=kind_io8), dimension(k)	gaul,
		integer	k
	)

Referenced by ga2la().