/dports/math/lapack95/LAPACK95/SRC/ |
H A D | la_zgesv1.f90 | 21 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV local 29 SIPIV = SIZE(IPIV) 31 SIPIV = SIZE(A,1) 36 ELSE IF( SIPIV /= SIZE(A,1) )THEN; LINFO = -3
|
H A D | la_dgesv1.f90 | 21 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV local 29 SIPIV = SIZE(IPIV) 31 SIPIV = SIZE(A,1) 36 ELSE IF( SIPIV /= SIZE(A,1) )THEN; LINFO = -3
|
H A D | la_sgesv1.f90 | 21 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV local 29 SIPIV = SIZE(IPIV) 31 SIPIV = SIZE(A,1) 36 ELSE IF( SIPIV /= SIZE(A,1) )THEN; LINFO = -3
|
H A D | la_cgesv1.f90 | 21 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV local 29 SIPIV = SIZE(IPIV) 31 SIPIV = SIZE(A,1) 36 ELSE IF( SIPIV /= SIZE(A,1) )THEN; LINFO = -3
|
H A D | la_cgesv.f90 | 68 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV local 76 SIPIV = SIZE(IPIV) 78 SIPIV = SIZE(A,1) 85 ELSE IF( SIPIV /= SIZE(A,1) )THEN
|
H A D | la_sgesv.f90 | 68 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV local 76 SIPIV = SIZE(IPIV) 78 SIPIV = SIZE(A,1) 85 ELSE IF( SIPIV /= SIZE(A,1) )THEN
|
H A D | la_zgesv.f90 | 68 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV local 76 SIPIV = SIZE(IPIV) 78 SIPIV = SIZE(A,1) 85 ELSE IF( SIPIV /= SIZE(A,1) )THEN
|
H A D | la_dgesv.f90 | 68 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV local 76 SIPIV = SIZE(IPIV) 78 SIPIV = SIZE(A,1) 85 ELSE IF( SIPIV /= SIZE(A,1) )THEN
|
H A D | la_cgbsv1.f90 | 22 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV, LDA, N, LK, KU local 31 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; ENDIF 36 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_sgbsv1.f90 | 22 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV, LDA, N, LK, KU local 31 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; ENDIF 36 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_dgbsv1.f90 | 22 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV, LDA, N, LK, KU local 31 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; ENDIF 36 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_zgbsv1.f90 | 22 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV, LDA, N, LK, KU local 31 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; ENDIF 36 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_cgbsv.f90 | 86 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV, LDA, N, NRHS, LKL, KU local 95 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; ENDIF 100 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_cspsv.f90 | 101 INTEGER :: LINFO, N, NN, NRHS, SIPIV, ISTAT, ISTAT1 local 111 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; END IF 116 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_dspsv.f90 | 101 INTEGER :: LINFO, N, NN, NRHS, SIPIV, ISTAT, ISTAT1 local 111 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; END IF 116 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_dspsv1.f90 | 23 INTEGER :: LINFO, N, NN, SIPIV, ISTAT, ISTAT1 local 33 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; END IF 38 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_dgbsv.f90 | 86 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV, LDA, N, NRHS, LKL, KU local 95 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; ENDIF 100 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_sspsv.f90 | 101 INTEGER :: LINFO, N, NN, NRHS, SIPIV, ISTAT, ISTAT1 local 111 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; END IF 116 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_sspsv1.f90 | 23 INTEGER :: LINFO, N, NN, SIPIV, ISTAT, ISTAT1 local 33 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; END IF 38 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_chpsv.f90 | 101 INTEGER :: LINFO, N, NN, NRHS, SIPIV, ISTAT, ISTAT1 local 111 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; END IF 116 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_chpsv1.f90 | 23 INTEGER :: LINFO, N, NN, SIPIV, ISTAT, ISTAT1 local 33 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; END IF 38 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_zspsv.f90 | 101 INTEGER :: LINFO, N, NN, NRHS, SIPIV, ISTAT, ISTAT1 local 111 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; END IF 116 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_zspsv1.f90 | 23 INTEGER :: LINFO, N, NN, SIPIV, ISTAT, ISTAT1 local 33 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; END IF 38 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_cspsv1.f90 | 23 INTEGER :: LINFO, N, NN, SIPIV, ISTAT, ISTAT1 local 33 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; END IF 38 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|
H A D | la_sgbsv.f90 | 86 INTEGER :: LINFO, ISTAT, ISTAT1, SIPIV, LDA, N, NRHS, LKL, KU local 95 IF( PRESENT(IPIV) )THEN; SIPIV = SIZE(IPIV); ELSE; SIPIV = N; ENDIF 100 ELSE IF( SIPIV /= N )THEN; LINFO = -4
|