| /dports/science/dcl/dcl-5.4.8/demo/grph1/sgpack/ |
| H A D | sgksx1.f | 17 CALL SGQWND( UX1, UX2, UY1, UY2 )
20 UYC=(UY1+UY2)/2
22 CALL SGLNZU( UX1, UY1, UX2, UY1, 1 )
23 CALL SGLNZU( UX2, UY1, UX2, UY2, 1 )
25 CALL SGLNZU( UX1, UY2, UX1, UY1, 1 )
35 CALL SGQWND( UX1, UX2, UY1, UY2 )
38 UYC=(UY1+UY2)/2
40 CALL SGLNZU( UX1, UY1, UX2, UY1, 1 )
41 CALL SGLNZU( UX2, UY1, UX2, UY2, 1 )
43 CALL SGLNZU( UX1, UY2, UX1, UY1, 1 )
|
| /dports/science/dcl/dcl-5.4.8/src/grph1/szpack/ |
| H A D | szoplu.f | 25 CALL STFRAD(UX, UY, UX1, UY1)
27 CALL STFROT(UX1, UY1, TX, TY)
30 CALL STFTRN(UX1, UY1, VX, VY)
35 UY0 = UY1
41 CALL STFRAD(UX, UY, UX1, UY1)
43 CALL SZPIPL(UX0, UY0, UX1, UY1, 0)
56 UY0 = UY1
|
| H A D | szoptu.f | 27 CALL STFRAD(UX, UY, UX1, UY1)
32 UY0 = UY1
35 CALL SZPIPL(UX0, UY0, UX1, UY1, 1)
48 UY0 = UY1
|
| H A D | szlazu.f | 4 SUBROUTINE SZLAZU(UX1,UY1,UX2,UY2) argument
17 IF (UX1.EQ.UX2 .AND. UY1.EQ.UY2) RETURN
20 CALL SZMVLU(UX1,UY1)
30 CALL SZPIPZ(UX1,UY1,UX2,UY2,NN)
32 CALL STFRAD(UX1,PI/RDUNIT/2-UY1,PH1,TH1)
|
| H A D | szlnzu.f | 4 SUBROUTINE SZLNZU(UX1,UY1,UX2,UY2) argument
8 CALL SZMVLU(UX1,UY1)
|
| /dports/science/dcl/dcl-5.4.8/demo/grph2/udegpk/ |
| H A D | u2df02.f | 11 REAL P(NX, NY), UY1(NY), UY2(MY)
27 UY1(J) = SIN( ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD )
40 CALL GRSWND( XMIN, XMAX, UY1(1), UY1(NY) )
49 CALL UYAXLB( 'L', UY1, NY, UY2, CH, NC, MY )
50 CALL UYAXLB( 'R', UY1, NY, UY2, CH, NC, MY )
54 CALL UWSGYA( UY1, NY )
|
| H A D | u2df03.f | 14 REAL P(NX, NY), UY1(NY), UY2(MY)
30 UY1(J) = SIN( ( YMIN + (YMAX-YMIN) * (J-1) / (NY-1) ) * DRAD )
43 CALL GRSWND( XMIN, XMAX, UY1(1), UY1(NY) )
52 CALL UYAXLB( 'L', UY1, NY, UY2, CH, NC, MY )
53 CALL UYAXLB( 'R', UY1, NY, UY2, CH, NC, MY )
57 CALL UWSGYA( UY1(IYZ1), NYZ )
|
| /dports/science/dcl/dcl-5.4.8/src/grph1/stpack/ |
| H A D | stftrf.f | 21 CALL STFRAD(UX, UY, UX1, UY1)
24 CALL STFROT(UX1, UY1, TX, TY)
27 CALL STFTRN(UX1, UY1, VX, VY)
41 CALL STIROT(TX, TY, UX1, UY1)
43 CALL STITRN(VX, VY, UX1, UY1)
46 CALL STIRAD(UX1, UY1, UX, UY)
|
| /dports/science/dcl/dcl-5.4.8/src/grph2/uhpack/ |
| H A D | uhbxlz.f | 60 UY1 = UYMIN + DY*(I-1)
63 UY1 = UPY(I)
67 IF ((UPX(I).EQ.RMISS .OR. UY1.EQ.RMISS .OR. UY2.EQ.RMISS)
72 CALL SZPLLU(UPX(I),UY1)
75 CALL SZMVLU(UPX(I),UY1)
|
| H A D | uhbxfz.f | 59 UY1 = UYMIN + DY*(I-1)
62 UY1 = UPY(I)
80 # UY1.EQ.RMISS .OR. UY2.EQ.RMISS) .AND. LMISS)) THEN
85 CALL SZPLLU(UX2, UY1)
86 CALL SZPLLU(UX1, UY1)
|
| H A D | uhbxaz.f | 66 UY1 = UYMIN + DY*(I-1)
69 UY1 = UPY(I)
87 # UY1.EQ.RMISS .OR. UY2.EQ.RMISS) .AND. LMISS)) THEN
89 CALL STFTRF(UX1, UY1, VX1, VY1)
|
| /dports/science/dcl/dcl-5.4.8/src/grph2/uvpack/ |
| H A D | uvbxfz.f | 67 UY1 = UREF
69 UY1 = UPY1(I)
80 # UY1.EQ.RMISS .OR. UY2.EQ.RMISS) .AND. LMISS)) THEN
85 CALL SZPLLU(UX2, UY1)
86 CALL SZPLLU(UX1, UY1)
|
| H A D | uvbxaz.f | 74 UY1 = UREF
76 UY1 = UPY1(I)
87 # UY1.EQ.RMISS .OR. UY2.EQ.RMISS) .AND. LMISS)) THEN
89 CALL STFTRF(UX1, UY1, VX1, VY1)
92 IF (UY2 .GT. UY1) THEN
|
| /dports/science/dcl/dcl-5.4.8/demo/rakuraku/u2d/ |
| H A D | u2d3.f | 9 REAL P(NX,NY), UY1(NY), UY2(MY)
19 UY1(J) = SLAT
47 CALL UYAXLB( 'R', UY1, NY, UY2, CH, 3, MY )
51 CALL UWSGYA( UY1, NY )
|
| /dports/science/dcl/dcl-5.4.8/src/grph2/uypack/ |
| H A D | uyaxnm.f | 6 SUBROUTINE UYAXNM(CSIDE,UY1,N1,UY2,N2) argument
8 REAL UY1(*),UY2(*) local
23 CALL UYPTMK(CSIDE,1,UY1,N1)
|
| H A D | uyaxlb.f | 8 SUBROUTINE UYAXLB(CSIDE,UY1,N1,UY2,CH,NC,N2) argument
10 REAL UY1(*),UY2(*) local
25 CALL UYPTMK(CSIDE,1,UY1,N1)
|
| /dports/science/dcl/dcl-5.4.8/src/grph2/oldsrc/ |
| H A D | uflnzu.f | 4 SUBROUTINE UFLNZU(UX1,UY1,UX2,UY2,INDEX) argument
8 CALL SGLAZU(UX1,UY1,UX2,UY2,1,INDEX)
|
| H A D | uflnu.f | 6 SUBROUTINE UFLNU(UX1,UY1,UX2,UY2) argument
11 CALL SGLAU(UX1,UY1,UX2,UY2)
|
| /dports/science/dcl/dcl-5.4.8/src/grph1/sgpack/ |
| H A D | sglnzu.f | 4 SUBROUTINE SGLNZU(UX1,UY1,UX2,UY2,INDEX) argument
16 CALL SZLNZU(UX1,UY1,UX2,UY2)
|
| H A D | sglazu.f | 4 SUBROUTINE SGLAZU(UX1,UY1,UX2,UY2,ITYPE,INDEX) argument
20 CALL SZLAZU(UX1,UY1,UX2,UY2)
|
| H A D | sglnxu.f | 2 SUBROUTINE SGLNXU(UX1,UY1,UX2,UY2,INDEX,ICOLOR) argument
23 CALL SZLNZU(UX1,UY1,UX2,UY2)
|
| H A D | sglaxu.f | 2 SUBROUTINE SGLAXU(UX1,UY1,UX2,UY2,ITYPE,INDEX,ICOLOR) argument
27 CALL SZLAZU(UX1,UY1,UX2,UY2)
|
| H A D | sglnu.f | 6 SUBROUTINE SGLNU(UX1,UY1,UX2,UY2) argument
22 CALL SZLNZU(UX1,UY1,UX2,UY2)
|
| H A D | sglau.f | 6 SUBROUTINE SGLAU(UX1,UY1,UX2,UY2) argument
26 CALL SZLAZU(UX1,UY1,UX2,UY2)
|
| /dports/science/dcl/dcl-5.4.8/src/grph2/ulpack/ |
| H A D | ulylog.f | 11 DIMENSION BL(10),BS(10),UY1(MAXS),UY2(MAXL),UYT(MAXL)
73 UY1(NBS)=SGN*BS(IB)*10.**IP
142 IF(NBS.NE.0) CALL UYPTMK(CSIDE,1,UY1,NBS)
|