/dports/math/lapack95/LAPACK95/SRC/ |
H A D | la_dstevd.f90 | 62 INTEGER :: N, LD, ISTAT1, S1Z, S2Z, LWORK, LIWORK local 82 LWORK = MAX( 1, LWORKN ); LIWORK = MAX( 1, LIWORKN ) 85 LIWORK = MAX( 3+5*N, LIWORKV ) 87 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 90 IF( LSAME(LJOBZ,'N') )THEN; LWORK = 1; LIWORK = 1 93 LIWORK = 3+5*N; END IF 94 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 100 IWORK, LIWORK, LINFO ) 103 IWORK, LIWORK, LINFO )
|
H A D | la_sstevd.f90 | 62 INTEGER :: N, LD, ISTAT1, S1Z, S2Z, LWORK, LIWORK local 82 LWORK = MAX( 1, LWORKN ); LIWORK = MAX( 1, LIWORKN ) 85 LIWORK = MAX( 3+5*N, LIWORKV ) 87 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 90 IF( LSAME(LJOBZ,'N') )THEN; LWORK = 1; LIWORK = 1 93 LIWORK = 3+5*N; END IF 94 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 100 IWORK, LIWORK, LINFO ) 103 IWORK, LIWORK, LINFO )
|
H A D | la_chbgvd.f90 | 106 LDAB, LDBB, LWORK, LIWORK, LRWORK, IWORKMIN(1) local 128 LIWORK = -1 134 & IWORKMIN, LIWORK, LINFO ) 138 & IWORKMIN, LIWORK, LINFO ) 142 LIWORK = IWORKMIN(1) 146 LIWORK =2 * LIWORK + 1 148 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 153 & LIWORK, LINFO ) 157 & LIWORK, LINFO )
|
H A D | la_zhbgvd.f90 | 106 LDAB, LDBB, LWORK, LIWORK, LRWORK, IWORKMIN(1) local 128 LIWORK = -1 134 & IWORKMIN, LIWORK, LINFO ) 138 & IWORKMIN, LIWORK, LINFO ) 142 LIWORK = IWORKMIN(1) 146 LIWORK =2 * LIWORK + 1 148 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 153 & LIWORK, LINFO ) 157 & LIWORK, LINFO )
|
H A D | la_sspevd.f90 | 83 INTEGER :: N, NN, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LIWORK local 106 LWORK = MAX( 1, 2*N, LWORKN ); LIWORK = MAX( 1, LIWORKN ) 109 LIWORK = MAX( 3+5*N, LIWORKV ) 111 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 114 IF( LSAME(LJOBZ,'N') )THEN; LWORK = MAX( 1, 2*N ); LIWORK = 1 117 LIWORK = 3+5*N; END IF 118 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 124 IWORK, LIWORK, LINFO ) 127 IWORK, LIWORK, LINFO )
|
H A D | la_dspevd.f90 | 83 INTEGER :: N, NN, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LIWORK local 106 LWORK = MAX( 1, 2*N, LWORKN ); LIWORK = MAX( 1, LIWORKN ) 109 LIWORK = MAX( 3+5*N, LIWORKV ) 111 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 114 IF( LSAME(LJOBZ,'N') )THEN; LWORK = MAX( 1, 2*N ); LIWORK = 1 117 LIWORK = 3+5*N; END IF 118 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 124 IWORK, LIWORK, LINFO ) 127 IWORK, LIWORK, LINFO )
|
H A D | la_ssbevd.f90 | 88 INTEGER :: N, KD, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LIWORK, LGN local 110 LWORK = MAX( 1, 2*N, LWORKN ); LIWORK = MAX( 1, LIWORKN ) 113 LIWORK = MAX( 3+5*N, LIWORKV ) 115 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 118 IF( LSAME(LJOBZ,'N') )THEN; LWORK = MAX( 1, 2*N ); LIWORK = 1 119 ELSE; LWORK = 1 + 5*N + 2*N**2; LIWORK = 3+5*N; END IF 120 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 126 IWORK, LIWORK, LINFO ) 129 IWORK, LIWORK, LINFO )
|
H A D | la_dsbevd.f90 | 88 INTEGER :: N, KD, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LIWORK, LGN local 110 LWORK = MAX( 1, 2*N, LWORKN ); LIWORK = MAX( 1, LIWORKN ) 113 LIWORK = MAX( 3+5*N, LIWORKV ) 115 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 118 IF( LSAME(LJOBZ,'N') )THEN; LWORK = MAX( 1, 2*N ); LIWORK = 1 119 ELSE; LWORK = 1 + 5*N + 2*N**2; LIWORK = 3+5*N; END IF 120 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 126 IWORK, LIWORK, LINFO ) 129 IWORK, LIWORK, LINFO )
|
H A D | la_sggsvd.f90 | 164 INTEGER, POINTER :: LIWORK(:) local 186 LIWORK => IWORK 188 ALLOCATE( LIWORK(MAX(1,N)), STAT=ISTAT ) 199 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO ) 203 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, LIWORK, LINFO ) 209 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO ) 213 LLV, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, LIWORK, LINFO ) 221 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO ) 225 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, LIWORK, LINFO ) 231 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO ) [all …]
|
H A D | la_dggsvd.f90 | 164 INTEGER, POINTER :: LIWORK(:) local 186 LIWORK => IWORK 188 ALLOCATE( LIWORK(MAX(1,N)), STAT=ISTAT ) 199 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO ) 203 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, LIWORK, LINFO ) 209 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO ) 213 LLV, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, LIWORK, LINFO ) 221 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO ) 225 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, LIWORK, LINFO ) 231 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO ) [all …]
|
H A D | la_chbevd.f90 | 88 INTEGER :: N, KD, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LRWORK, LIWORK, LGN local 112 LWORK = MAX( 1, N, LWORKN ); LIWORK = MAX( 1, LIWORKN ) 117 LIWORK = MAX( 3+5*N, LIWORKV ) 119 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 123 LRWORK = MAX(1,N); LIWORK = 1 125 LWORK = MAX(1, 2*N**2); LIWORK = 3+5*N; END IF 126 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 132 RWORK, LRWORK, IWORK, LIWORK, LINFO ) 135 RWORK, LRWORK, IWORK, LIWORK, LINFO )
|
H A D | la_zhbevd.f90 | 88 INTEGER :: N, KD, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LRWORK, LIWORK, LGN local 112 LWORK = MAX( 1, N, LWORKN ); LIWORK = MAX( 1, LIWORKN ) 117 LIWORK = MAX( 3+5*N, LIWORKV ) 119 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 123 LRWORK = MAX(1,N); LIWORK = 1 125 LWORK = MAX(1, 2*N**2); LIWORK = 3+5*N; END IF 126 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 132 RWORK, LRWORK, IWORK, LIWORK, LINFO ) 135 RWORK, LRWORK, IWORK, LIWORK, LINFO )
|
H A D | la_zggsvd.f90 | 164 INTEGER, POINTER :: LIWORK(:) local 187 LIWORK => IWORK 189 ALLOCATE( LIWORK(MAX(1,N)), STAT=ISTAT ) 203 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) 207 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) 213 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) 217 LLV, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) 225 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) 229 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) 235 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) [all …]
|
H A D | la_cggsvd.f90 | 164 INTEGER, POINTER :: LIWORK(:) local 187 LIWORK => IWORK 189 ALLOCATE( LIWORK(MAX(1,N)), STAT=ISTAT ) 203 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) 207 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) 213 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) 217 LLV, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) 225 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) 229 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) 235 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO ) [all …]
|
H A D | la_chpevd.f90 | 83 INTEGER :: N, NN, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LRWORK, LIWORK, LGN local 109 LWORK = MAX( 1, N, LWORKN ); LIWORK = MAX( 1, LIWORKN ) 114 LIWORK = MAX( 3+5*N, LIWORKV ) 117 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 121 LRWORK = MAX(1, 2*N ); LIWORK = 1 122 ELSE; LWORK = MAX( 1, 2*N ); LIWORK = 2+5*N 124 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 130 RWORK, LRWORK, IWORK, LIWORK, LINFO ) 133 RWORK, LRWORK, IWORK, LIWORK, LINFO )
|
H A D | la_zhpevd.f90 | 83 INTEGER :: N, NN, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LRWORK, LIWORK, LGN local 109 LWORK = MAX( 1, N, LWORKN ); LIWORK = MAX( 1, LIWORKN ) 114 LIWORK = MAX( 3+5*N, LIWORKV ) 117 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 121 LRWORK = MAX(1, 2*N ); LIWORK = 1 122 ELSE; LWORK = MAX( 1, 2*N ); LIWORK = 2+5*N 124 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 130 RWORK, LRWORK, IWORK, LIWORK, LINFO ) 133 RWORK, LRWORK, IWORK, LIWORK, LINFO )
|
H A D | la_ssbgvd.f90 | 106 LDAB, LDBB, LWORK, LIWORK, IWORKMIN(1) local 126 LIWORK = -1 130 & LDBB, W, Z, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO ) 133 & LDBB, W, LLZ, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO ) 136 LIWORK = IWORKMIN(1) 137 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 141 & LDBB, W, Z, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO ) 144 & LDBB, W, LLZ, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO )
|
H A D | la_sspgvd.f90 | 107 INTEGER :: LWORK, LIWORK local 133 LIWORK = -1 136 & Z, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO ) 139 & LLZ, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO ) 142 LIWORK= IWORKMIN(1) 143 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 147 & Z, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO ) 150 & LLZ, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO )
|
H A D | la_dsbgvd.f90 | 106 LDAB, LDBB, LWORK, LIWORK, IWORKMIN(1) local 126 LIWORK = -1 130 & LDBB, W, Z, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO ) 133 & LDBB, W, LLZ, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO ) 136 LIWORK = IWORKMIN(1) 137 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 141 & LDBB, W, Z, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO ) 144 & LDBB, W, LLZ, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO )
|
H A D | la_dspgvd.f90 | 107 INTEGER :: LWORK, LIWORK local 133 LIWORK = -1 136 & Z, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO ) 139 & LLZ, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO ) 142 LIWORK= IWORKMIN(1) 143 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT) 147 & Z, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO ) 150 & LLZ, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO )
|
H A D | la_chpgvd.f90 | 107 INTEGER :: LWORK, LIWORK, LRWORK local 136 LIWORK = -1 140 & LIWORK, LINFO ) 144 & LIWORK, LINFO ) 149 LIWORK= IWORKMIN(1) 151 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 155 & Z, S1Z, WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, & 159 & LLZ, S1Z, WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, &
|
H A D | la_zhpgvd.f90 | 107 INTEGER :: LWORK, LIWORK, LRWORK local 136 LIWORK = -1 140 & LIWORK, LINFO ) 144 & LIWORK, LINFO ) 149 LIWORK= IWORKMIN(1) 151 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 155 & Z, S1Z, WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, & 159 & LLZ, S1Z, WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, &
|
H A D | la_cheevd.f90 | 84 INTEGER :: N, LINFO, LD, ISTAT, ISTAT1, LIWORK, LMWORK, LWORK, LRWORK local 119 LIWORK = -1 121 & RWORKMIN, LRWORK, IWORKMIN, LIWORK, LINFO ) 124 LIWORK = IWORKMIN(1) 125 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 134 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 145 RWORK, LRWORK, IWORK, LIWORK, LINFO )
|
H A D | la_zheevd.f90 | 84 INTEGER :: N, LINFO, LD, ISTAT, ISTAT1, LIWORK, LMWORK, LWORK, LRWORK local 119 LIWORK = -1 121 & RWORKMIN, LRWORK, IWORKMIN, LIWORK, LINFO ) 124 LIWORK = IWORKMIN(1) 125 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 134 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT) 145 RWORK, LRWORK, IWORK, LIWORK, LINFO )
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/fft/pfft1.0/pfft/ |
H A D | pfft3d.F | 35 $ LWORK, WORK, LIWORK, IWORK, INFO ) 39 INTEGER ISIGN, N1, N2, N3, LWORK, LIWORK, INFO 40 INTEGER MAP1(N3), MAP2(N2), IWORK(LIWORK) 248 $ LWORK, WORK, LIWORK, IWORK, INFO ) 257 $ LWORK, WORK, LIWORK, IWORK, INFO )
|