Home
last modified time | relevance | path

Searched refs:SIPIV (Results 1 – 25 of 96) sorted by relevance

1234

/dports/math/lapack95/LAPACK95/SRC/
H A Dla_zgesv1.f9021 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 Dla_dgesv1.f9021 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 Dla_sgesv1.f9021 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 Dla_cgesv1.f9021 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 Dla_cgesv.f9068 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 Dla_sgesv.f9068 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 Dla_zgesv.f9068 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 Dla_dgesv.f9068 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 Dla_cgbsv1.f9022 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 Dla_sgbsv1.f9022 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 Dla_dgbsv1.f9022 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 Dla_zgbsv1.f9022 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 Dla_cgbsv.f9086 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 Dla_cspsv.f90101 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 Dla_dspsv.f90101 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 Dla_dspsv1.f9023 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 Dla_dgbsv.f9086 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 Dla_sspsv.f90101 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 Dla_sspsv1.f9023 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 Dla_chpsv.f90101 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 Dla_chpsv1.f9023 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 Dla_zspsv.f90101 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 Dla_zspsv1.f9023 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 Dla_cspsv1.f9023 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 Dla_sgbsv.f9086 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

1234