sff_wsource__()

int sff_wsource__	(	integer *	lu,
		char *	typh,
		char *	cs,
		real *	c1,
		real *	c2,
		real *	c3,
		char *	date,
		char *	time,
		ftnlen	typh_len,
		ftnlen	cs_len,
		ftnlen	date_len,
		ftnlen	time_len
	)