Home
last modified time | relevance | path

Searched refs:CSIDE (Results 1 – 25 of 54) sorted by relevance

123

/dports/science/dcl/dcl-5.4.8/src/grph2/ucpack/
H A Ducyady.f6 SUBROUTINE UCYADY(CSIDE,JD0,ND) argument
8 CHARACTER CSIDE*1 local
17 IF (.NOT.LUYCHK(CSIDE)) THEN
27 CALL UYPAXS(CSIDE,2)
58 CALL UZIGET('ICENTY'//CSIDE,ICENT)
59 CALL UZIGET('IROTLY'//CSIDE,IROTA)
60 CALL UZIGET('IROTCY'//CSIDE,IROTC)
63 CALL UZISET('ICENTY'//CSIDE,0)
64 CALL UZISET('IROTLY'//CSIDE,IROTC)
67 CALL UYPTMK(CSIDE,1,UY,NN)
[all …]
H A Ducyayr.f6 SUBROUTINE UCYAYR(CSIDE,JD0,ND) argument
8 CHARACTER CSIDE*1 local
17 IF (.NOT.LUYCHK(CSIDE)) THEN
27 CALL UYPAXS(CSIDE,2)
48 CALL UZIGET('ICENTY'//CSIDE,ICENT)
49 CALL UZIGET('IROTLY'//CSIDE,IROTA)
50 CALL UZIGET('IROTCY'//CSIDE,IROTC)
53 CALL UZISET('ICENTY'//CSIDE,0)
54 CALL UZISET('IROTLY'//CSIDE,IROTC)
59 CALL UYPTMK(CSIDE,2,UY,NN)
[all …]
H A Ducxayr.f6 SUBROUTINE UCXAYR(CSIDE,JD0,ND) argument
8 CHARACTER CSIDE*1 local
17 IF (.NOT.LUXCHK(CSIDE)) THEN
27 CALL UXPAXS(CSIDE,2)
48 CALL UZIGET('ICENTX'//CSIDE,ICENT)
49 CALL UZIGET('IROTLX'//CSIDE,IROTA)
50 CALL UZIGET('IROTCX'//CSIDE,IROTC)
53 CALL UZISET('ICENTX'//CSIDE,0)
54 CALL UZISET('IROTLX'//CSIDE,IROTC)
59 CALL UXPTMK(CSIDE,2,UX,NN)
[all …]
H A Ducxady.f6 SUBROUTINE UCXADY(CSIDE,JD0,ND) argument
8 CHARACTER CSIDE*1 local
17 IF (.NOT.LUXCHK(CSIDE)) THEN
27 CALL UXPAXS(CSIDE,2)
58 CALL UZIGET('ICENTX'//CSIDE,ICENT)
59 CALL UZIGET('IROTLX'//CSIDE,IROTA)
60 CALL UZIGET('IROTCX'//CSIDE,IROTC)
63 CALL UZISET('ICENTX'//CSIDE,0)
64 CALL UZISET('IROTLX'//CSIDE,IROTC)
67 CALL UXPTMK(CSIDE,1,UX,NN)
[all …]
H A Ducxamn.f6 SUBROUTINE UCXAMN(CSIDE,JD0,ND) argument
8 CHARACTER CSIDE*1 local
17 IF (.NOT.LUXCHK(CSIDE)) THEN
34 CALL UXPAXS(CSIDE,2)
58 CALL UZIGET('ICENTX'//CSIDE,ICENT)
59 CALL UZIGET('IROTLX'//CSIDE,IROTA)
60 CALL UZIGET('IROTCX'//CSIDE,IROTC)
63 CALL UZISET('ICENTX'//CSIDE,0)
64 CALL UZISET('IROTLX'//CSIDE,IROTC)
67 CALL UXPTMK(CSIDE,2,UX,NN)
[all …]
H A Ducyamn.f6 SUBROUTINE UCYAMN(CSIDE,JD0,ND) argument
8 CHARACTER CSIDE*1 local
17 IF (.NOT.LUYCHK(CSIDE)) THEN
34 CALL UYPAXS(CSIDE,2)
58 CALL UZIGET('ICENTY'//CSIDE,ICENT)
59 CALL UZIGET('IROTLY'//CSIDE,IROTA)
60 CALL UZIGET('IROTCY'//CSIDE,IROTC)
63 CALL UZISET('ICENTY'//CSIDE,0)
64 CALL UZISET('IROTLY'//CSIDE,IROTC)
67 CALL UYPTMK(CSIDE,2,UY,NN)
[all …]
H A Ducxacl.f6 SUBROUTINE UCXACL(CSIDE,JD0,ND) argument
8 CHARACTER CSIDE*1 local
13 IF (.NOT.LUXCHK(CSIDE)) THEN
23 CALL UXPAXS(CSIDE,2)
25 CALL UCXADY(CSIDE,JD0,ND)
26 CALL UCXAMN(CSIDE,JD0,ND)
27 CALL UCXAYR(CSIDE,JD0,ND)
H A Ducyacl.f6 SUBROUTINE UCYACL(CSIDE,JD0,ND) argument
8 CHARACTER CSIDE*1 local
13 IF (.NOT.LUYCHK(CSIDE)) THEN
23 CALL UYPAXS(CSIDE,2)
25 CALL UCYADY(CSIDE,JD0,ND)
26 CALL UCYAMN(CSIDE,JD0,ND)
27 CALL UCYAYR(CSIDE,JD0,ND)
/dports/science/dcl/dcl-5.4.8/src/grph2/uxpack/
H A Duxaxnm.f6 SUBROUTINE UXAXNM(CSIDE,UX1,N1,UX2,N2) argument
9 CHARACTER CSIDE*1 local
14 IF (.NOT.(LUXCHK(CSIDE))) THEN
20 CALL UXPAXS(CSIDE,2)
23 CALL UXPTMK(CSIDE,1,UX1,N1)
27 CALL UXPTMK(CSIDE,2,UX2,N2)
28 CALL UZLGET('LABELX'//CSIDE,LABEL)
30 CALL UXPNUM(CSIDE,1,UX2,N2)
H A Duxaxlb.f8 SUBROUTINE UXAXLB(CSIDE,UX1,N1,UX2,CH,NC,N2) argument
11 CHARACTER CSIDE*1,CH(*)*(*) local
16 IF (.NOT.(LUXCHK(CSIDE))) THEN
22 CALL UXPAXS(CSIDE,2)
25 CALL UXPTMK(CSIDE,1,UX1,N1)
29 CALL UXPTMK(CSIDE,2,UX2,N2)
30 CALL UZLGET('LABELX'//CSIDE,LABEL)
32 CALL UXPLBL(CSIDE,1,UX2,CH,NC,N2)
H A Duxptmk.f6 SUBROUTINE UXPTMK(CSIDE,ISLCT,UX,N) argument
9 CHARACTER CSIDE*1 local
15 IF (.NOT.(LUXCHK(CSIDE))) THEN
27 CALL UZRGET('ROFFX'//CSIDE,ROFFX)
28 CALL UZRGET('ROFGX'//CSIDE,ROFGX)
34 IF (.NOT.LCHREQ(CSIDE,'U')) THEN
36 IF (LCHREQ(CSIDE,'B')) THEN
59 CALL UZRSET('ROFFX'//CSIDE,ROFFX)
H A Duxsaxs.f6 SUBROUTINE UXSAXS(CSIDE) argument
8 CHARACTER CSIDE*1 local
13 IF (.NOT.LUXCHK(CSIDE)) THEN
17 CALL UZRGET('ROFFX'//CSIDE,ROFFX)
24 IF (.NOT.LCHREQ(CSIDE,'U')) THEN
25 IF (LCHREQ(CSIDE,'B')) THEN
43 CALL UXSAXZ(CSIDE,ROFFX)
H A Duxplbl.f6 SUBROUTINE UXPLBL(CSIDE,ISLCT,UX,CH,NC,N) argument
9 CHARACTER CSIDE*1,CH(*)*(*) local
15 IF (.NOT.(LUXCHK(CSIDE))) THEN
31 CALL UZRGET('ROFFX'//CSIDE,ROFFX)
33 CALL UZIGET('ICENTX'//CSIDE,ICENT)
34 CALL UZIGET('IROTLX'//CSIDE,IROTA)
45 IF (.NOT.LCHREQ(CSIDE,'U')) THEN
47 IF (LCHREQ(CSIDE,'B')) THEN
86 CALL UZRSET('ROFFX'//CSIDE,ROFFX)
H A Duxpaxs.f8 SUBROUTINE UXPAXS(CSIDE,ISLCT) argument
10 CHARACTER CSIDE*1 local
16 IF (.NOT.(LUXCHK(CSIDE))) THEN
23 CALL UZRGET('ROFFX'//CSIDE,ROFFX)
24 CALL UZRGET('ROFGX'//CSIDE,ROFGX)
34 IF (.NOT.LCHREQ(CSIDE,'U')) THEN
35 IF (LCHREQ(CSIDE,'B')) THEN
H A Duxpttl.f6 SUBROUTINE UXPTTL(CSIDE,ISLCT,CTTL,PX) argument
8 CHARACTER CSIDE*1,CTTL*(*) local
15 IF (.NOT.(LUXCHK(CSIDE))) THEN
29 CALL UZRGET('ROFFX'//CSIDE,ROFFX)
31 CALL UZIGET('IROTCX'//CSIDE,IROTA)
39 IF (.NOT.LCHREQ(CSIDE,'U')) THEN
40 IF (LCHREQ(CSIDE,'B')) THEN
76 CALL UZRSET('ROFFX'//CSIDE,ROFFX)
H A Duxaxdv.f6 SUBROUTINE UXAXDV(CSIDE,DX1,DX2) argument
11 CHARACTER CSIDE*1 local
18 IF (.NOT.(LUXCHK(CSIDE))) THEN
62 CALL UXPAXS(CSIDE,2)
95 CALL UXPTMK(CSIDE,1,UX,NN)
117 CALL UXPTMK(CSIDE,2,UX,NN)
118 CALL UZLGET('LABELX'//CSIDE,LABEL)
120 CALL UXPNUM(CSIDE,1,UX,NN)
/dports/science/dcl/dcl-5.4.8/src/grph2/uypack/
H A Duyaxnm.f6 SUBROUTINE UYAXNM(CSIDE,UY1,N1,UY2,N2) argument
9 CHARACTER CSIDE*1 local
14 IF (.NOT.(LUYCHK(CSIDE))) THEN
20 CALL UYPAXS(CSIDE,2)
23 CALL UYPTMK(CSIDE,1,UY1,N1)
27 CALL UYPTMK(CSIDE,2,UY2,N2)
28 CALL UZLGET('LABELY'//CSIDE,LABEL)
30 CALL UYPNUM(CSIDE,1,UY2,N2)
H A Duyaxlb.f8 SUBROUTINE UYAXLB(CSIDE,UY1,N1,UY2,CH,NC,N2) argument
11 CHARACTER CSIDE*1,CH(*)*(*) local
16 IF (.NOT.(LUYCHK(CSIDE))) THEN
22 CALL UYPAXS(CSIDE,2)
25 CALL UYPTMK(CSIDE,1,UY1,N1)
29 CALL UYPTMK(CSIDE,2,UY2,N2)
30 CALL UZLGET('LABELY'//CSIDE,LABEL)
32 CALL UYPLBL(CSIDE,1,UY2,CH,NC,N2)
H A Duyptmk.f6 SUBROUTINE UYPTMK(CSIDE,ISLCT,UY,N) argument
9 CHARACTER CSIDE*1 local
15 IF (.NOT.(LUYCHK(CSIDE))) THEN
27 CALL UZRGET('ROFFY'//CSIDE,ROFFY)
28 CALL UZRGET('ROFGY'//CSIDE,ROFGY)
34 IF (.NOT.LCHREQ(CSIDE,'U')) THEN
36 IF (LCHREQ(CSIDE,'L')) THEN
59 CALL UZRSET('ROFFY'//CSIDE,ROFFY)
H A Duysaxs.f6 SUBROUTINE UYSAXS(CSIDE) argument
8 CHARACTER CSIDE*1 local
13 IF (.NOT.(LUYCHK(CSIDE))) THEN
17 CALL UZRGET('ROFFY'//CSIDE,ROFFY)
24 IF (.NOT.LCHREQ(CSIDE,'U')) THEN
25 IF (LCHREQ(CSIDE,'L')) THEN
43 CALL UYSAXZ(CSIDE,ROFFY)
H A Duyplbl.f6 SUBROUTINE UYPLBL(CSIDE,ISLCT,UY,CH,NC,N) argument
9 CHARACTER CSIDE*1,CH(*)*(*) local
15 IF (.NOT.(LUYCHK(CSIDE))) THEN
31 CALL UZRGET('ROFFY'//CSIDE,ROFFY)
33 CALL UZIGET('ICENTY'//CSIDE,ICENT)
34 CALL UZIGET('IROTLY'//CSIDE,IROTA)
45 IF (.NOT.LCHREQ(CSIDE,'U')) THEN
47 IF (LCHREQ(CSIDE,'L')) THEN
86 CALL UZRSET('ROFFY'//CSIDE,ROFFY)
H A Duypaxs.f8 SUBROUTINE UYPAXS(CSIDE,ISLCT) argument
10 CHARACTER CSIDE*1 local
16 IF (.NOT.(LUYCHK(CSIDE))) THEN
23 CALL UZRGET('ROFFY'//CSIDE,ROFFY)
24 CALL UZRGET('ROFGY'//CSIDE,ROFGY)
35 IF (.NOT.LCHREQ(CSIDE,'U')) THEN
36 IF (LCHREQ(CSIDE,'L')) THEN
H A Duypttl.f6 SUBROUTINE UYPTTL(CSIDE,ISLCT,CTTL,PX) argument
8 CHARACTER CSIDE*1,CTTL*(*) local
15 IF (.NOT.(LUYCHK(CSIDE))) THEN
29 CALL UZRGET('ROFFY'//CSIDE,ROFFY)
31 CALL UZIGET('IROTCY'//CSIDE,IROTA)
39 IF (.NOT.LCHREQ(CSIDE,'U')) THEN
40 IF (LCHREQ(CSIDE,'L')) THEN
76 CALL UZRSET('ROFFY'//CSIDE,ROFFY)
H A Duyaxdv.f6 SUBROUTINE UYAXDV(CSIDE,DY1,DY2) argument
11 CHARACTER CSIDE*1 local
18 IF (.NOT.(LUYCHK(CSIDE))) THEN
62 CALL UYPAXS(CSIDE,2)
95 CALL UYPTMK(CSIDE,1,UY,NN)
117 CALL UYPTMK(CSIDE,2,UY,NN)
118 CALL UZLGET('LABELY'//CSIDE,LABEL)
120 CALL UYPNUM(CSIDE,1,UY,NN)
/dports/science/dcl/dcl-5.4.8/src/grph2/uspack/
H A Dusdaxs.f7 CHARACTER CSIDE*4, CS*1 local
12 CALL USCGET('CXSIDE', CSIDE)
13 NCS = LENZ(CSIDE)
15 CS = CSIDE(I:I)
23 CALL USCGET('CYSIDE', CSIDE)
24 NCS = LENZ(CSIDE)
26 CS = CSIDE(I:I)

123