extern fint prntrdim_c(fint *,fint *,fint *);