Lines Matching refs:YC
8 REAL*4 XC(8),YC(8),ZC(8),ROTAINV(3,3) local
23 CALL PROBOI(XC,YC,ZC)
28 U2 = YC(IPERM(3,I))-YC(IPERM(1,I))
31 V2 = YC(IPERM(4,I))-YC(IPERM(2,I))
39 U2 = YC(IPERM(3,I))-YC(IPERM(1,I))
42 V2 = YC(IPERM(4,I))-YC(IPERM(2,I))
47 & (YC(IPERM(1,I))+YC(IPERM(2,I))+YC(IPERM(3,I))+YC(IPERM(4,I)))
105 CALL GRILLE(PROPY,NECHY,XC,YC,ZC,8,5,4,1)
106 CALL GRILLE(PROPZ,NECHZ,XC,YC,ZC,4,8,1,5)
108 CALL GRILLE(PROPY,NECHY,XC,YC,ZC,7,6,3,2)
109 CALL GRILLE(PROPZ,NECHZ,XC,YC,ZC,3,7,2,6)
111 CALL GRILLE(PROPZ,NECHZ,XC,YC,ZC,2,6,1,5)
112 CALL GRILLE(PROPX,NECHX,XC,YC,ZC,6,5,2,1)
114 CALL GRILLE(PROPZ,NECHZ,XC,YC,ZC,4,8,3,7)
115 CALL GRILLE(PROPX,NECHX,XC,YC,ZC,7,8,3,4)
117 CALL GRILLE(PROPX,NECHX,XC,YC,ZC,2,1,3,4)
118 CALL GRILLE(PROPY,NECHY,XC,YC,ZC,3,2,4,1)
120 CALL GRILLE(PROPX,NECHX,XC,YC,ZC,6,5,7,8)
121 CALL GRILLE(PROPY,NECHY,XC,YC,ZC,7,6,8,5)
134 TOTO = SENS*(XC(I)+YC(I)+ZC(I))
143 & +(YC(I)-XPUP(2))**2
158 CALL TICS(XC,YC,ZC,I,J,IPRES,ILOIN,TAILLE,INUM)
159 CALL TICS(XC,YC,ZC,I,K,IPRES,ILOIN,TAILLE,INUM)
160 CALL TICS(XC,YC,ZC,K,L,IPRES,ILOIN,TAILLE,INUM)
314 CALL GRILLE(PROPY,NECHY,XC,YC,ZC,8,5,4,1)
315 CALL GRILLE(PROPZ,NECHZ,XC,YC,ZC,4,8,1,5)
317 CALL GRILLE(PROPY,NECHY,XC,YC,ZC,7,6,3,2)
318 CALL GRILLE(PROPZ,NECHZ,XC,YC,ZC,3,7,2,6)
320 CALL GRILLE(PROPZ,NECHZ,XC,YC,ZC,2,6,1,5)
321 CALL GRILLE(PROPX,NECHX,XC,YC,ZC,6,5,2,1)
323 CALL GRILLE(PROPZ,NECHZ,XC,YC,ZC,4,8,3,7)
324 CALL GRILLE(PROPX,NECHX,XC,YC,ZC,7,8,3,4)
326 CALL GRILLE(PROPX,NECHX,XC,YC,ZC,2,1,3,4)
327 CALL GRILLE(PROPY,NECHY,XC,YC,ZC,3,2,4,1)
329 CALL GRILLE(PROPX,NECHX,XC,YC,ZC,6,5,7,8)
330 CALL GRILLE(PROPY,NECHY,XC,YC,ZC,7,6,8,5)