extern fint irtp_sa2bphf_c(fint *,fint *,fchar,fint *);