static DF1(jtbasis1){DECLF;A z;D*x;I j;V*v; PREF1(jtbasis1); RZ(w=vi(w)); switch(*AV(w)){ case 0: GA(z,FL,3,1,0); x=DAV(z); v=VAV(fs); j=v->mr; x[0]=j<=-RMAX?-inf:j>=RMAX?inf:j; j=v->lr; x[1]=j<=-RMAX?-inf:j>=RMAX?inf:j; j=v->rr; x[2]=j<=-RMAX?-inf:j>=RMAX?inf:j; R pcvt(INT,z); case -1: R lrep(inv (fs)); case 1: R lrep(iden(fs)); default: ASSERT(0,EVDOMAIN); }}
static F1(jtdfrep){RZ(w); R NOUN&AT(w)?w:lrep(w);}