extern void tekdrv_c(fint *,fint *,float *,fint *,fchar,fint *);