/dports/math/lapack95/LAPACK95/EXAMPLES2/ |
H A D | ssyevxet.f90 | 63 CALL LA_SYEVX(A,W,'V',IFAIL=IFAIL) 71 WRITE(NOUT,*) IFAIL(:) 83 CALL LA_SYEVX(A,W,'V',IFAIL=IFAIL, ABSTOL=0.01_WP) 91 WRITE(NOUT,*) IFAIL(:) 102 CALL LA_SYEVX(A,W, 'V', 'L', IFAIL=IFAIL) 110 WRITE(NOUT,*) IFAIL(:) 135 IFAIL=0 136 CALL LA_SYEVX(A, W, JOBZ='V', IFAIL=IFAIL, INFO=INFO) 144 WRITE(NOUT,*) IFAIL(:) 158 CALL LA_SYEVX(A,W, 'V', IFAIL=IFAIL,IL=2,IU=3) [all …]
|
H A D | cheevxet.f90 | 64 CALL LA_HEEVX(A,W,'V',IFAIL=IFAIL) 72 WRITE(NOUT,*) IFAIL(:) 84 CALL LA_HEEVX(A,W,'V',IFAIL=IFAIL, ABSTOL=0.01_WP) 92 WRITE(NOUT,*) IFAIL(:) 103 CALL LA_HEEVX(A,W, 'V', UPLO='L', IFAIL=IFAIL) 111 WRITE(NOUT,*) IFAIL(:) 136 IFAIL=0 137 CALL LA_HEEVX(A, W, JOBZ='V', IFAIL=IFAIL, INFO=INFO) 145 WRITE(NOUT,*) IFAIL(:) 159 CALL LA_HEEVX(A,W, 'V', IFAIL=IFAIL,IL=2,IU=3) [all …]
|
H A D | dsyevxet.f90 | 63 CALL LA_SYEVX(A,W,'V',IFAIL=IFAIL) 71 WRITE(NOUT,*) IFAIL(:) 83 CALL LA_SYEVX(A,W,'V',IFAIL=IFAIL, ABSTOL=0.01_WP) 91 WRITE(NOUT,*) IFAIL(:) 102 CALL LA_SYEVX(A,W, 'V', 'L', IFAIL=IFAIL) 110 WRITE(NOUT,*) IFAIL(:) 135 IFAIL=0 136 CALL LA_SYEVX(A, W, JOBZ='V', IFAIL=IFAIL, INFO=INFO) 144 WRITE(NOUT,*) IFAIL(:) 158 CALL LA_SYEVX(A,W, 'V', IFAIL=IFAIL,IL=2,IU=3) [all …]
|
H A D | zheevxet.f90 | 64 CALL LA_HEEVX(A,W,'V',IFAIL=IFAIL) 72 WRITE(NOUT,*) IFAIL(:) 84 CALL LA_HEEVX(A,W,'V',IFAIL=IFAIL, ABSTOL=0.01_WP) 92 WRITE(NOUT,*) IFAIL(:) 103 CALL LA_HEEVX(A,W, 'V', UPLO='L', IFAIL=IFAIL) 111 WRITE(NOUT,*) IFAIL(:) 136 IFAIL=0 137 CALL LA_HEEVX(A, W, JOBZ='V', IFAIL=IFAIL, INFO=INFO) 145 WRITE(NOUT,*) IFAIL(:) 159 CALL LA_HEEVX(A,W, 'V', IFAIL=IFAIL,IL=2,IU=3) [all …]
|
H A D | zhbgvxet.f90 | 20 INTEGER, ALLOCATABLE :: IFAIL(:) variable 29 ALLOCATE (IFAIL(N), Q(N,N)) 94 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 131 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 146 CALL LA_HBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 154 CALL LA_HBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 161 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL(1:N-1), Q=Q, INFO=INFO ) 168 CALL LA_HBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 174 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(1:N-1,:), INFO=INFO ) 180 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(:,1:N-1), INFO=INFO ) [all …]
|
H A D | chbgvxet.f90 | 20 INTEGER, ALLOCATABLE :: IFAIL(:) variable 29 ALLOCATE (IFAIL(N), Q(N,N)) 94 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 131 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 146 CALL LA_HBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 154 CALL LA_HBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 161 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL(1:N-1), Q=Q, INFO=INFO ) 168 CALL LA_HBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 174 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(1:N-1,:), INFO=INFO ) 180 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(:,1:N-1), INFO=INFO ) [all …]
|
H A D | dsbgvxet.f90 | 20 INTEGER, ALLOCATABLE :: IFAIL(:) variable 29 ALLOCATE (IFAIL(N), Q(N,N)) 132 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 139 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, IL, IU, M, IFAIL, Q, INFO=INFO ) 147 CALL LA_SBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 155 CALL LA_SBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 162 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL(1:N-1), Q=Q, INFO=INFO ) 169 CALL LA_SBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 175 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(1:N-1,:), INFO=INFO ) 181 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(:,1:N-1), INFO=INFO ) [all …]
|
H A D | ssbgvxet.f90 | 20 INTEGER, ALLOCATABLE :: IFAIL(:) variable 29 ALLOCATE (IFAIL(N), Q(N,N)) 132 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 139 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, IL, IU, M, IFAIL, Q, INFO=INFO ) 147 CALL LA_SBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 155 CALL LA_SBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 162 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL(1:N-1), Q=Q, INFO=INFO ) 169 CALL LA_SBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 175 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(1:N-1,:), INFO=INFO ) 181 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(:,1:N-1), INFO=INFO ) [all …]
|
/dports/math/lapack95/LAPACK95/EXAMPLES2/Old000807/ |
H A D | syevxet.base | 80 CALL LA_SYEVX(A,W,'V',IFAIL=IFAIL) 100 CALL LA_SYEVX(A,W,'V',IFAIL=IFAIL, ABSTOL=0.01_WP) 119 CALL LA_SYEVX(A,W, 'V', 'L', IFAIL=IFAIL) 152 IFAIL=0 175 CALL LA_SYEVX(A,W, 'V', IFAIL=IFAIL,IL=2,IU=3) 196 CALL LA_SYEVX(A,W,'V', IFAIL=IFAIL,IL=2) 269 CALL LA_HEEVX(A,W,'V',IFAIL=IFAIL) 308 CALL LA_HEEVX(A,W, 'V', UPLO='L', IFAIL=IFAIL) 341 IFAIL=0 364 CALL LA_HEEVX(A,W, 'V', IFAIL=IFAIL,IL=2,IU=3) [all …]
|
H A D | sbgvxet.base | 41 ALLOCATE (IFAIL(N), Q(N,N)) 144 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 159 CALL LA_SBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 167 CALL LA_SBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 174 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL(1:N-1), Q=Q, INFO=INFO ) 181 CALL LA_SBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 199 CALL LA_SBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 274 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 311 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) 348 CALL LA_HBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO ) [all …]
|
H A D | spevxet.base | 109 WRITE(NOUT,*) 'IFAIL:'; WRITE (NOUT,*) IFAIL 115 CALL LA_SPEVX( A, W, 'U', Z, IL=1, IU=N, M=M, IFAIL=IFAIL, & 121 WRITE(NOUT,*) 'IFAIL:'; WRITE (NOUT,*) IFAIL 186 CALL LA_SPEVX( A, W, IFAIL=IFAIL(1:N-1), INFO=INFO ) 190 WRITE(NOUT,*) 'CALL LA_SPEVX( A, W, IFAIL=IFAIL )' 192 CALL LA_SPEVX( A, W, IFAIL=IFAIL ) 251 WRITE(NOUT,*) 'IFAIL:'; WRITE (NOUT,*) IFAIL 263 WRITE(NOUT,*) 'IFAIL:'; WRITE (NOUT,*) IFAIL 328 CALL LA_HPEVX( A, W, IFAIL=IFAIL(1:N-1), INFO=INFO ) 332 WRITE(NOUT,*) 'CALL LA_HPEVX( A, W, IFAIL=IFAIL )' [all …]
|
/dports/math/slatec/ |
H A D | dpchq3.f | 109 IFAIL = 0 146 IFAIL = IFAIL + 1 172 IFAIL = IFAIL + 1 191 IFAIL = IFAIL + 1 208 IFAIL = IFAIL + 1 224 IFAIL = IFAIL + 1 254 IFAIL = IFAIL + 1 273 IFAIL = IFAIL + 1 289 IFAIL = IFAIL + 1 298 IF ((KPRINT.GE.2).AND.(IFAIL.NE.0)) WRITE (LUN, 3001) IFAIL [all …]
|
H A D | dpchq1.f | 60 INTEGER I1, I2, I3, I4, I5, I6, I7, I8, I9, IFAIL, NPTS 69 IFAIL = 0 76 IF (FAIL) IFAIL = IFAIL + 1 92 IF (FAIL) IFAIL = IFAIL + 2 97 IF (FAIL) IFAIL = IFAIL + 4 107 IF ((KPRINT.GE.2).AND.(IFAIL.NE.0)) WRITE (LUN, 3001) IFAIL 109 IF (IFAIL.EQ.0) THEN
|
H A D | pchqk1.f | 59 INTEGER I1, I2, I3, I4, I5, I6, I7, I8, I9, IFAIL, NPTS 68 IFAIL = 0 75 IF (FAIL) IFAIL = IFAIL + 1 91 IF (FAIL) IFAIL = IFAIL + 2 96 IF (FAIL) IFAIL = IFAIL + 4 106 IF ((KPRINT.GE.2).AND.(IFAIL.NE.0)) WRITE (LUN, 3001) IFAIL 108 IF (IFAIL.EQ.0) THEN
|
H A D | pchqk3.f | 108 IFAIL = 0 145 IFAIL = IFAIL + 1 171 IFAIL = IFAIL + 1 190 IFAIL = IFAIL + 1 207 IFAIL = IFAIL + 1 223 IFAIL = IFAIL + 1 253 IFAIL = IFAIL + 1 272 IFAIL = IFAIL + 1 288 IFAIL = IFAIL + 1 297 IF ((KPRINT.GE.2).AND.(IFAIL.NE.0)) WRITE (LUN, 3001) IFAIL [all …]
|
H A D | dpchq4.f | 70 INTEGER I, IERR, IFAIL, INCFD, ISMEX1(MAXN), ISMEX2(MAXN2), 122 IFAIL = 0 149 IFAIL = IFAIL + 1 155 IFAIL = IFAIL + 1 162 IFAIL = IFAIL + 1 169 IFAIL = IFAIL + 1 188 IFAIL = IFAIL + 1 193 IFAIL = IFAIL + 1 228 IF ((KPRINT.GE.2).AND.(IFAIL.NE.0)) WRITE (LUN, 3001) IFAIL 230 IF (IFAIL.EQ.0) THEN
|
H A D | pchqk4.f | 69 INTEGER I, IERR, IFAIL, INCFD, ISMEX1(MAXN), ISMEX2(MAXN2), 121 IFAIL = 0 148 IFAIL = IFAIL + 1 154 IFAIL = IFAIL + 1 161 IFAIL = IFAIL + 1 168 IFAIL = IFAIL + 1 187 IFAIL = IFAIL + 1 192 IFAIL = IFAIL + 1 227 IF ((KPRINT.GE.2).AND.(IFAIL.NE.0)) WRITE (LUN, 3001) IFAIL 229 IF (IFAIL.EQ.0) THEN
|
/dports/math/lapack95/LAPACK95/TESTING/ |
H A D | la_test_zhpevx.f90 | 2 & ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) argument 23 INTEGER, INTENT(OUT) :: IWORK(1: 5*N), IFAIL(1:N) local 58 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO ) 63 & IVL, IVU, IIL, IIU, M, IFAIL, IABSTOL, INFO ) 70 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO ) 77 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO ) 83 & VL=IVL, VU=IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO ) 92 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO ) 95 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO ) 98 & M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
|
H A D | la_test_dspevx.f90 | 2 & ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) argument 22 INTEGER, INTENT(OUT) :: IWORK(1: 5*N), IFAIL(1:N) local 56 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO ) 61 & IVL, IVU, IIL, IIU, M, IFAIL, IABSTOL, INFO ) 68 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO ) 75 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO ) 81 & VL=IVL, VU=IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO ) 90 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO ) 93 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO ) 96 & M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
|
H A D | la_test_sspevx.f90 | 2 & ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) argument 22 INTEGER, INTENT(OUT) :: IWORK(1: 5*N), IFAIL(1:N) local 56 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO ) 61 & IVL, IVU, IIL, IIU, M, IFAIL, IABSTOL, INFO ) 68 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO ) 75 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO ) 81 & VL=IVL, VU=IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO ) 90 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO ) 93 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO ) 96 & M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
|
H A D | la_test_chpevx.f90 | 2 & ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) argument 23 INTEGER, INTENT(OUT) :: IWORK(1: 5*N), IFAIL(1:N) local 58 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO ) 63 & IVL, IVU, IIL, IIU, M, IFAIL, IABSTOL, INFO ) 70 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO ) 77 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO ) 83 & VL=IVL, VU=IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO ) 92 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO ) 95 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO ) 98 & M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
|
H A D | la_test_ssbevx.f90 | 3 & WORK, IWORK, IFAIL,INFO ) argument 21 INTEGER, INTENT(OUT) :: IFAIL(1:N) local 59 & Z(1:IZ1, 1: IZ2), IVL, IVU, IIL, IIU, M, IFAIL, & 67 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),& 75 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),& 83 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),& 91 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),& 101 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),& 105 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),& 109 & Z(1:IZ1, 1: IZ2), M=M, IFAIL=IFAIL(1:IIFAIL), &
|
H A D | la_test_chbevx.f90 | 3 & WORK, RWORK, IWORK, IFAIL, INFO ) argument 21 INTEGER, INTENT(OUT) :: IFAIL(1:N) local 61 & Z(1:IZ1, 1: IZ2), IVL, IVU, IIL, IIU, M, IFAIL, & 69 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),& 77 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),& 85 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),& 93 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),& 103 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),& 107 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),& 111 & Z(1:IZ1, 1: IZ2), M=M, IFAIL=IFAIL(1:IIFAIL), &
|
H A D | la_test_dsbevx.f90 | 3 & WORK, IWORK, IFAIL,INFO ) argument 21 INTEGER, INTENT(OUT) :: IFAIL(1:N) local 59 & Z(1:IZ1, 1: IZ2), IVL, IVU, IIL, IIU, M, IFAIL, & 67 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),& 75 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),& 83 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),& 91 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),& 101 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),& 105 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),& 109 & Z(1:IZ1, 1: IZ2), M=M, IFAIL=IFAIL(1:IIFAIL), &
|
H A D | la_test_zhbevx.f90 | 3 & WORK, RWORK, IWORK, IFAIL, INFO ) argument 21 INTEGER, INTENT(OUT) :: IFAIL(1:N) local 61 & Z(1:IZ1, 1: IZ2), IVL, IVU, IIL, IIU, M, IFAIL, & 69 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),& 77 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),& 85 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),& 93 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),& 103 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),& 107 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),& 111 & Z(1:IZ1, 1: IZ2), M=M, IFAIL=IFAIL(1:IIFAIL), &
|