setnan(r)
c
c	title:
c	*****
c
c	  setnan -- set real*4 number to missing value
c
c	purpose:
c	*******
c
c	  to flag a real number as missing
c
c	parameters:
c	**********
c
c	  r     <- real number to flag as missing
c
	  real r
c
c	code:
c	****
c
	r = 9.9e37
c
c	/* return */
c
	return
c
c	end setnan
c
	end