sr2cm v3.3
07-OCT-94  MJF
22-JAN-96  MJF
22-MAR-99  MJF

Modification of spectra.tmp file to convert units of photons/mAs/sr to
photons/mas/cm2.

example:
	sr2cm << EOF
	distance(cm)
	EOF

argument:
	distance: cm

associated files:

	read: spectra.tmp (see spect.tmp.doc)

	write: spectra.tmp 
		This is an ascii file having the spectra.tmp format.
		The units are modified from photons/mAs/sr (sr = steradian) 
		to photons/mAs/cm^2 (or from ergs/mAs/sr to ergs/mAs/cm^2).

method: 
	photons/mAs/cm^2 = photons/mAs/sr * (1/distance^2)

	The distance is read from the command argument.
	The units code on line three of spectra.tmp must have the second
	value equal to 1. The code changes this value to 2 on output along
	with the unit label on line 4.