83 FR_DOUBLE x21,y21,rlaeng,fak,cosq,sinq,sincos;   in esta88()  local
89 y21= yk[2] - yk[1];  in esta88()
91 rlaeng= FR_SQRT(x21*x21 + y21*y21);  in esta88()
99 sinq  = fak * (y21/rlaeng)*(y21/rlaeng);  in esta88()
100 sincos= fak * x21*y21/(rlaeng*rlaeng);  in esta88()
141 FR_DOUBLE x21,y21,z21,rlaeng,h,fak;  in stab88()  local
151 y21= yk[2] - yk[1];  in stab88()
154 rlaeng= FR_SQRT(x21*x21 + y21*y21 + z21*z21);  in stab88()
160 c[2]= y21/rlaeng;  in stab88()
280 FR_DOUBLE x21,y21,z21,rlaeng,slaeng;  in balk88()  local
303 y21 = yk[2]-yk[1];  in balk88()
305 rlaeng = FR_SQRT(x21*x21 + y21*y21 + z21*z21 );  in balk88()
311 c[2] = y21 / rlaeng;  in balk88()
436 FR_DOUBLE x21,y21,rlaeng,feil,fali,sa,ca;  in ebal88()  local
446 y21 = yk[2] - yk[1];  in ebal88()
447 rlaeng = FR_SQRT (x21*x21 + y21*y21);  in ebal88()
453 sa= y21 / rlaeng;  in ebal88()