| /dports/science/dcl/dcl-5.4.8/src/grph2/uxpack/ |
| H A D | uxpnum.f | 6 SUBROUTINE UXPNUM(CSIDE,ISLCT,UX,N) argument
22 IF (.NOT.(0.LE.ISLCT .AND. ISLCT.LE.2)) THEN
40 CALL UXPLBL(CSIDE,ISLCT,UX,CH,LCH,N)
|
| H A D | uxpaxs.f | 8 SUBROUTINE UXPAXS(CSIDE,ISLCT) argument
19 IF (.NOT.(0.LE.ISLCT .AND. ISLCT.LE.2)) THEN
27 WRITE(CSLCT,'(I1)') ISLCT
|
| H A D | uxptmk.f | 6 SUBROUTINE UXPTMK(CSIDE,ISLCT,UX,N) argument
18 IF (.NOT.(0.LE.ISLCT .AND. ISLCT.LE.2)) THEN
25 WRITE(CSLCT,'(I1)') ISLCT
|
| H A D | uxpttl.f | 6 SUBROUTINE UXPTTL(CSIDE,ISLCT,CTTL,PX) argument
18 IF (.NOT.(0.LE.ISLCT .AND. ISLCT.LE.2)) THEN
27 WRITE(CSLCT,'(I1)') ISLCT
|
| H A D | uxplbl.f | 6 SUBROUTINE UXPLBL(CSIDE,ISLCT,UX,CH,NC,N) argument
18 IF (.NOT.(0.LE.ISLCT .AND. ISLCT.LE.2)) THEN
29 WRITE(CSLCT,'(I1)') ISLCT
|
| /dports/science/dcl/dcl-5.4.8/src/grph2/uypack/ |
| H A D | uypnum.f | 6 SUBROUTINE UYPNUM(CSIDE,ISLCT,UY,N) argument
22 IF (.NOT.(0.LE.ISLCT .AND. ISLCT.LE.2)) THEN
40 CALL UYPLBL(CSIDE,ISLCT,UY,CH,LCH,N)
|
| H A D | uypaxs.f | 8 SUBROUTINE UYPAXS(CSIDE,ISLCT) argument
19 IF (.NOT.(0.LE.ISLCT .AND. ISLCT.LE.2)) THEN
27 WRITE(CSLCT,'(I1)') ISLCT
|
| H A D | uyptmk.f | 6 SUBROUTINE UYPTMK(CSIDE,ISLCT,UY,N) argument
18 IF (.NOT.(0.LE.ISLCT .AND. ISLCT.LE.2)) THEN
25 WRITE(CSLCT,'(I1)') ISLCT
|
| H A D | uypttl.f | 6 SUBROUTINE UYPTTL(CSIDE,ISLCT,CTTL,PX) argument
18 IF (.NOT.(0.LE.ISLCT .AND. ISLCT.LE.2)) THEN
27 WRITE(CSLCT,'(I1)') ISLCT
|
| H A D | uyplbl.f | 6 SUBROUTINE UYPLBL(CSIDE,ISLCT,UY,CH,NC,N) argument
18 IF (.NOT.(0.LE.ISLCT .AND. ISLCT.LE.2)) THEN
29 WRITE(CSLCT,'(I1)') ISLCT
|
| /dports/science/dcl/dcl-5.4.8/src/grph2/uspack/ |
| H A D | uspaxs.f | 6 SUBROUTINE USPAXS(CSIDE, ISLCT) argument
19 CALL UXPAXS(CS, ISLCT)
24 CALL UYPAXS(CS, ISLCT)
|
| H A D | usptmk.f | 6 SUBROUTINE USPTMK(CSIDE, ISLCT, POS, N) argument
19 CALL UXPTMK(CS, ISLCT, POS, N)
23 CALL UYPTMK(CS, ISLCT, POS, N)
|
| H A D | uspttl.f | 6 SUBROUTINE USPTTL(CSIDE, ISLCT, CTTL, POS) argument
18 CALL UXPTTL(CS, ISLCT, CTTL, POS)
22 CALL UYPTTL(CS, ISLCT, CTTL, POS)
|
| H A D | uspnum.f | 6 SUBROUTINE USPNUM(CSIDE, ISLCT, POS, N) argument
19 CALL UXPNUM(CS, ISLCT, POS, N)
23 CALL UYPNUM(CS, ISLCT, POS, N)
|
| H A D | usplbl.f | 6 SUBROUTINE USPLBL(CSIDE, ISLCT, POS, CH, NC, N) argument
19 CALL UXPLBL(CS, ISLCT, POS, CH, NC, N)
23 CALL UYPLBL(CS, ISLCT, POS, CH, NC, N)
|
| /dports/math/xlapack/lapack-3.10.0/TESTING/EIG/ |
| H A D | cdrvsx.f | 476 INTEGER IDUMMA( 1 ), IOLDSD( 4 ), ISLCT( 20 ),
771 $ RCDEIN, RCDVIN, NSLCT, ISLCT, 0, RESULT,
823 READ( NIUNIT, FMT = * )( ISLCT( I ), I = 1, NSLCT )
831 $ ISLCT, ISRT, RESULT, WORK, LWORK, RWORK, BWORK,
|
| H A D | ddrvsx.f | 492 INTEGER IDUMMA( 1 ), IOLDSD( 4 ), ISLCT( 20 ),
789 $ ISLCT, RESULT, WORK, NNWORK, IWORK, BWORK,
842 $ READ( NIUNIT, FMT = * )( ISLCT( I ), I = 1, NSLCT )
850 $ RCDEIN, RCDVIN, NSLCT, ISLCT, RESULT, WORK, LWORK,
|
| H A D | zdrvsx.f | 476 INTEGER IDUMMA( 1 ), IOLDSD( 4 ), ISLCT( 20 ),
771 $ RCDEIN, RCDVIN, NSLCT, ISLCT, 0, RESULT,
823 READ( NIUNIT, FMT = * )( ISLCT( I ), I = 1, NSLCT )
831 $ ISLCT, ISRT, RESULT, WORK, LWORK, RWORK, BWORK,
|
| H A D | sdrvsx.f | 492 INTEGER IDUMMA( 1 ), IOLDSD( 4 ), ISLCT( 20 ),
789 $ ISLCT, RESULT, WORK, NNWORK, IWORK, BWORK,
842 $ READ( NIUNIT, FMT = * )( ISLCT( I ), I = 1, NSLCT )
850 $ RCDEIN, RCDVIN, NSLCT, ISLCT, RESULT, WORK, LWORK,
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/ |
| H A D | ddrvsx.f | 495 INTEGER IDUMMA( 1 ), IOLDSD( 4 ), ISLCT( 20 ),
792 $ ISLCT, RESULT, WORK, NNWORK, IWORK, BWORK,
845 $ READ( NIUNIT, FMT = * )( ISLCT( I ), I = 1, NSLCT )
853 $ RCDEIN, RCDVIN, NSLCT, ISLCT, RESULT, WORK, LWORK,
|
| H A D | zdrvsx.f | 479 INTEGER IDUMMA( 1 ), IOLDSD( 4 ), ISLCT( 20 ),
774 $ RCDEIN, RCDVIN, NSLCT, ISLCT, 0, RESULT,
826 READ( NIUNIT, FMT = * )( ISLCT( I ), I = 1, NSLCT )
834 $ ISLCT, ISRT, RESULT, WORK, LWORK, RWORK, BWORK,
|
| H A D | cdrvsx.f | 479 INTEGER IDUMMA( 1 ), IOLDSD( 4 ), ISLCT( 20 ),
774 $ RCDEIN, RCDVIN, NSLCT, ISLCT, 0, RESULT,
826 READ( NIUNIT, FMT = * )( ISLCT( I ), I = 1, NSLCT )
834 $ ISLCT, ISRT, RESULT, WORK, LWORK, RWORK, BWORK,
|
| /dports/math/blas/lapack-3.10.0/TESTING/EIG/ |
| H A D | sdrvsx.f | 492 INTEGER IDUMMA( 1 ), IOLDSD( 4 ), ISLCT( 20 ),
789 $ ISLCT, RESULT, WORK, NNWORK, IWORK, BWORK,
842 $ READ( NIUNIT, FMT = * )( ISLCT( I ), I = 1, NSLCT )
850 $ RCDEIN, RCDVIN, NSLCT, ISLCT, RESULT, WORK, LWORK,
|
| H A D | cdrvsx.f | 476 INTEGER IDUMMA( 1 ), IOLDSD( 4 ), ISLCT( 20 ),
771 $ RCDEIN, RCDVIN, NSLCT, ISLCT, 0, RESULT,
823 READ( NIUNIT, FMT = * )( ISLCT( I ), I = 1, NSLCT )
831 $ ISLCT, ISRT, RESULT, WORK, LWORK, RWORK, BWORK,
|
| H A D | ddrvsx.f | 492 INTEGER IDUMMA( 1 ), IOLDSD( 4 ), ISLCT( 20 ),
789 $ ISLCT, RESULT, WORK, NNWORK, IWORK, BWORK,
842 $ READ( NIUNIT, FMT = * )( ISLCT( I ), I = 1, NSLCT )
850 $ RCDEIN, RCDVIN, NSLCT, ISLCT, RESULT, WORK, LWORK,
|