/dports/science/dcl/dcl-5.4.8/src/grph2/ucpack/ |
H A D | ucyady.f | 6 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 D | ucyayr.f | 6 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 D | ucxayr.f | 6 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 D | ucxady.f | 6 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 D | ucxamn.f | 6 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 D | ucyamn.f | 6 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 D | ucxacl.f | 6 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 D | ucyacl.f | 6 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 D | uxaxnm.f | 6 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 D | uxaxlb.f | 8 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 D | uxptmk.f | 6 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 D | uxsaxs.f | 6 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 D | uxplbl.f | 6 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 D | uxpaxs.f | 8 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 D | uxpttl.f | 6 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 D | uxaxdv.f | 6 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 D | uyaxnm.f | 6 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 D | uyaxlb.f | 8 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 D | uyptmk.f | 6 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 D | uysaxs.f | 6 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 D | uyplbl.f | 6 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 D | uypaxs.f | 8 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 D | uypttl.f | 6 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 D | uyaxdv.f | 6 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 D | usdaxs.f | 7 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)
|