sff_rsource__()

int sff_rsource__	(	integer *	lu,
		char *	typ,
		char *	cs,
		real *	c1,
		real *	c2,
		real *	c3,
		char *	date,
		char *	time,
		integer *	ierr,
		ftnlen	typ_len,
		ftnlen	cs_len,
		ftnlen	date_len,
		ftnlen	time_len
	)