| /dports/science/dcl/dcl-5.4.8/src/grph1/scpack/ |
| H A D | sctnzv.f | 4 SUBROUTINE SCTNZV(VPX,VPY,VPZ,ITPAT1,ITPAT2) argument
9 IF (ITPAT1.EQ.0 .OR. ITPAT2.EQ.0) THEN
13 IF (ITPAT1.LT.0 .OR. ITPAT2.LE.0) THEN
17 CALL SZT3OP(ITPAT1, ITPAT2)
|
| H A D | sctnzu.f | 4 SUBROUTINE SCTNZU(UPX,UPY,UPZ,ITPAT1,ITPAT2) argument
9 IF (ITPAT1.EQ.0 .OR. ITPAT2.EQ.0) THEN
13 IF (ITPAT1.LT.0 .OR. ITPAT2.LE.0) THEN
17 CALL SZT3OP(ITPAT1, ITPAT2)
|
| H A D | sctnu.f | 45 ENTRY SCSTNP(ITPAT1, ITPAT2)
48 ITPT2Z=ITPAT2
52 ENTRY SCQTNP(ITPAT1, ITPAT2)
55 ITPAT2=ITPT2Z
|
| /dports/science/dcl/dcl-5.4.8/src/grph2/uhpack/ |
| H A D | uhdifz.f | 4 SUBROUTINE UHDIFZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2) argument
19 IF (ITPAT1.EQ.0 .OR. ITPAT2.EQ.0) THEN
23 IF (ITPAT1.LT.0 .OR. ITPAT2.LT.0) THEN
44 WRITE(COBJ,'(2I8)') ITPAT1, ITPAT2
109 CALL SZSTNI(ITPAT2)
135 CALL SZSTNI(ITPAT2)
151 CALL SZSTNI(ITPAT2)
|
| H A D | uhbraz.f | 4 SUBROUTINE UHBRAZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2,RSIZE) argument
19 IF (ITPAT1.EQ.0 .OR. ITPAT2.EQ.0) THEN
23 IF (ITPAT1.LT.0 .OR. ITPAT2.LT.0) THEN
52 WRITE(COBJ,'(2I8,F8.5)') ITPAT1, ITPAT2, RSIZE
100 CALL SZSTNI(ITPAT2)
|
| H A D | uhbxaz.f | 4 SUBROUTINE UHBXAZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2) argument
19 IF (ITPAT1.EQ.0 .OR. ITPAT2.EQ.0) THEN
23 IF (ITPAT1.LT.0 .OR. ITPAT2.LT.0) THEN
45 WRITE(COBJ,'(2I8)') ITPAT1, ITPAT2
95 CALL SZSTNI(ITPAT2)
|
| H A D | uhbxa.f | 8 CALL UUQARP(ITPAT1, ITPAT2)
10 CALL UHBXAZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2)
|
| H A D | uhdif.f | 9 CALL UUQARP(ITPAT1, ITPAT2)
11 CALL UHDIFZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2)
|
| H A D | uhbra.f | 9 CALL UUQARP(ITPAT1, ITPAT2)
12 CALL UHBRAZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2,RSIZE)
|
| /dports/science/dcl/dcl-5.4.8/src/grph2/uvpack/ |
| H A D | uvdifz.f | 4 SUBROUTINE UVDIFZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2) argument
19 IF (ITPAT1.EQ.0 .OR. ITPAT2.EQ.0) THEN
23 IF (ITPAT1.LT.0 .OR. ITPAT2.LT.0) THEN
44 WRITE(COBJ,'(2I8)') ITPAT1, ITPAT2
109 CALL SZSTNI(ITPAT2)
135 CALL SZSTNI(ITPAT2)
151 CALL SZSTNI(ITPAT2)
|
| H A D | uvbxaz.f | 4 SUBROUTINE UVBXAZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2) argument
19 IF (ITPAT1.EQ.0 .OR. ITPAT2.EQ.0) THEN
23 IF (ITPAT1.LT.0 .OR. ITPAT2.LT.0) THEN
45 WRITE(COBJ,'(2I8)') ITPAT1, ITPAT2
95 CALL SZSTNI(ITPAT2)
|
| H A D | uvbraz.f | 4 SUBROUTINE UVBRAZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2,RSIZE) argument
19 IF (ITPAT1.EQ.0 .OR. ITPAT2.EQ.0) THEN
23 IF (ITPAT1.LT.0 .OR. ITPAT2.LT.0) THEN
52 WRITE(COBJ,'(2I8,F8.5)') ITPAT1, ITPAT2, RSIZE
100 CALL SZSTNI(ITPAT2)
|
| H A D | uvdif.f | 9 CALL UUQARP(ITPAT1, ITPAT2)
11 CALL UVDIFZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2)
|
| H A D | uvbxa.f | 9 CALL UUQARP(ITPAT1, ITPAT2)
11 CALL UVBXAZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2)
|
| H A D | uvbra.f | 9 CALL UUQARP(ITPAT1, ITPAT2)
12 CALL UVBRAZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2,RSIZE)
|
| /dports/science/dcl/dcl-5.4.8/src/grph1/szpack/ |
| H A D | szt3op.f | 6 SUBROUTINE SZT3OP(ITPAT1,ITPAT2) argument
19 WRITE(COBJ,'(2I8)') ITPAT1, ITPAT2
24 ITPT2 = ITPAT2
|