Function:     irim_putpars

Purpose:      write destripe parameters from irds at (snip,sdet)

Category:     IRAS

Author:       Do Kester		

Use:  
int irim_putpars( 
	fchar		irds,	  IN: name of irds
	fint		snip,     IN: sequential snip numbers
	fint		sdet,	  IN: sequential detector number
	float		*cal,     IN: parameters; BASE, DRIFT, GAIN
	fint		nc,       IN: number of params present
	float		scale )   IN: stddev belonging with this fit

returns: >= 0 : number of destripe parameters being written
	 < 0  : error writing

Comment:      This routine is not callable in Fortran

Updates:        09 Jun 1992: DK, Creation date
		28 Jan 1993: DK, delete keys which are not written &&
				 include gain in testoutput.