extern float ircc_mask_c(fint *,float *,float *,float *,float *);