extern fint phtogr_c(fchar,fint *,double *,double *);