Home
last modified time | relevance | path

Searched refs:VPY (Results 1 – 25 of 61) sorted by relevance

123

/dports/science/dcl/dcl-5.4.8/src/grph1/szpack/
H A Dszplzv.f4 SUBROUTINE SZPLZV(N,VPX,VPY) argument
6 REAL VPX(*),VPY(*) local
19 CALL SZMVLV(VPX(1),VPY(1))
21 CALL SZPLLV(VPX(I),VPY(I))
26 IF (VPX(I).EQ.RMISS .OR. VPY(I).EQ.RMISS) THEN
29 CALL SZPLLV(VPX(I),VPY(I))
31 CALL SZMVLV(VPX(I),VPY(I))
H A Dsztnsv.f6 SUBROUTINE SZTNSV(N,VPX,VPY,IROTA,RSPCE,ITYPE,INDEX) argument
8 REAL VPX(*),VPY(*) local
30 DB1=+XCOS*VPX(1)+XSIN*VPY(1)
34 DBI=+XCOS*VPX(I)+XSIN*VPY(I)
45 DA1=-XSIN*VPX(1)+XCOS*VPY(1)
49 DAI=-XSIN*VPX(I)+XCOS*VPY(I)
84 Y3=VPY(IC)
86 Y4=VPY(IA)
99 DAIB=-XSIN*VPX(IB)+XCOS*VPY(IB)
100 DAIA=-XSIN*VPX(IA)+XCOS*VPY(IA)
H A Dsztnzv.f4 SUBROUTINE SZTNZV(N,VPX,VPY) argument
6 REAL VPX(*),VPY(*) local
11 CALL SZSTTV(VPX(I),VPY(I))
13 CALL SZSTTV(VPX(1),VPY(1))
H A Dszpmzv.f4 SUBROUTINE SZPMZV(N,VPX,VPY) argument
6 REAL VPX(*),VPY(*) local
19 LFLAG=LMISS .AND. (VPX(I).EQ.RMISS .OR. VPY(I).EQ.RMISS)
21 CALL SZTXZV(VPX(I),VPY(I),CMARK)
H A Dszm3zv.f4 SUBROUTINE SZM3ZV(N,VPX,VPY,VPZ) argument
6 REAL VPX(*),VPY(*),VPZ(*) local
26 + (VPX(I).EQ.RMISS .OR. VPY(I).EQ.RMISS .OR. VPZ(I).EQ.RMISS)
28 CALL STFPR3(VPX(I), VPY(I), VPZ(I), RX, RY)
H A Dszt3zv.f4 SUBROUTINE SZT3ZV(VPX,VPY,VPZ) argument
6 REAL VPX(3), VPY(3), VPZ(3), RX(3), RY(3) local
17 CALL STFPR3 (VPX(I), VPY(I), VPZ(I), RX(I), RY(I))
H A Dszopts.f12 REAL VPX(NMAX),VPY(NMAX) local
48 VPY(NN)=VY
56 CALL SZTNSV(NN,VPX,VPY,IROTA,RSPCE,ITYPE,INDEX)
58 CALL SZTNSV(NN,VPX,VPY,IROTA+90,RSPCE,ITYPE,INDEX)
/dports/science/dcl/dcl-5.4.8/src/grph2/uxpack/
H A Duxptmz.f27 CALL STFTRF(UX(I),UPY,VPX,VPY)
28 VPY=VPY+ROFFX
29 CALL SZLNZV(VPX,VPY,VPX,VPY+RTICK)
H A Duxplbb.f40 CALL STFTRF(UX(I),UPY,VPX1,VPY)
41 CALL STFTRF(UX(I+1),UPY,VPX2,VPY)
56 VPY=VPY+ROFFX
57 CALL SZTXZV(VPX,VPY,CH(I)(1:LC))
H A Duxplba.f37 CALL STFTRF(UX(I),UPY,VPX,VPY)
38 VPY=VPY+ROFFX
39 CALL SZTXZV(VPX,VPY,CH(I)(1:LC))
/dports/science/dcl/dcl-5.4.8/src/grph1/scpack/
H A Dscplzv.f4 SUBROUTINE SCPLZV(N,VPX,VPY,VPZ,INDEX) argument
6 REAL VPX(*),VPY(*),VPZ(*) local
21 CALL SZL3ZV(N,VPX,VPY,VPZ)
H A Dsctnzv.f4 SUBROUTINE SCTNZV(VPX,VPY,VPZ,ITPAT1,ITPAT2) argument
6 REAL VPX(*),VPY(*),VPZ(*) local
18 CALL SZT3ZV(VPX,VPY,VPZ)
H A Dscpmzv.f4 SUBROUTINE SCPMZV(N,VPX,VPY,VPZ,ITYPE,INDEX,RSIZE) argument
6 REAL VPX(*),VPY(*),VPZ(*) local
32 CALL SZM3ZV(N,VPX,VPY,VPZ)
H A Dscplu.f8 REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*) local
32 ENTRY SCPLV(N,VPX,VPY,VPZ)
46 CALL SZL3ZV(N,VPX,VPY,VPZ)
H A Dsctnu.f8 REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*) local
29 ENTRY SCTNV(VPX,VPY,VPZ)
40 CALL SZT3ZV(VPX,VPY,VPZ)
/dports/science/dcl/dcl-5.4.8/src/grph1/sgpack/
H A Dsgplzv.f4 SUBROUTINE SGPLZV(N,VPX,VPY,ITYPE,INDEX) argument
6 REAL VPX(*),VPY(*) local
25 CALL SZPLZV(N,VPX,VPY)
H A Dsgtnzv.f4 SUBROUTINE SGTNZV(N,VPX,VPY,ITPAT) argument
6 REAL VPX(*),VPY(*) local
21 CALL SZTNZV(N,VPX,VPY)
H A Dsgpmzv.f4 SUBROUTINE SGPMZV(N,VPX,VPY,ITYPE,INDEX,RSIZE) argument
6 REAL VPX(*),VPY(*) local
32 CALL SZPMZV(N,VPX,VPY)
H A Dsgplxv.f2 SUBROUTINE SGPLXV(N,VPX,VPY,ITYPE,INDEX,ICOLOR) argument
4 REAL VPX(*),VPY(*) local
31 CALL SZPLZV(N,VPX,VPY)
H A Dsgtnxv.f2 SUBROUTINE SGTNXV(N,VPX,VPY,ITPAT,ICOLOR) argument
4 REAL VPX(*),VPY(*) local
28 CALL SZTNZV(N,VPX,VPY)
H A Dsgpmxv.f2 SUBROUTINE SGPMXV(N,VPX,VPY,ITYPE,INDEX,ICOLOR,RSIZE) argument
4 REAL VPX(*),VPY(*) local
38 CALL SZPMZV(N,VPX,VPY)
H A Dsgtnu.f8 REAL UPX(*),UPY(*),VPX(*),VPY(*),RPX(*),RPY(*) local
32 ENTRY SGTNV(N,VPX,VPY)
46 CALL SZTNZV(N,VPX,VPY)
/dports/science/dcl/dcl-5.4.8/src/grph2/oldsrc/
H A Dubplzv.f4 SUBROUTINE UBPLZV(N,VPX,VPY,ITYPE,INDEX,CHARX,RSIZE) argument
6 REAL VPX(*),VPY(*) local
20 CALL SGPLZV(N,VPX,VPY,ITYPE,INDEX)
H A Dubplu.f8 REAL UPX(*),UPY(*),VPX(*),VPY(*) local
27 ENTRY UBPLV(N,VPX,VPY)
34 CALL SGPLV(N,VPX,VPY)
/dports/science/dcl/dcl-5.4.8/src/grph2/uypack/
H A Duyptmz.f27 CALL STFTRF(UPX,UY(I),VPX,VPY)
29 CALL SZLNZV(VPX,VPY,VPX+RTICK,VPY)

123