Home
last modified time | relevance | path

Searched refs:MJ (Results 1 – 25 of 1555) sorted by relevance

12345678910>>...63

/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/
H A Dsb04rx.f216 CALL DLARTG( DWORK(MJ+1,MJ-1), DWORK(MJ+1,MJ-2), C,
220 CALL DROT( MJ, DWORK(1,MJ-1), 1, DWORK(1,MJ-2), 1,
227 CALL DLARTG( DWORK(MJ+1,MJ), DWORK(MJ+1,MJ-1), C,
231 CALL DROT( MJ, DWORK(1,MJ), 1, DWORK(1,MJ-1), 1, C,
237 CALL DLARTG( DWORK(MJ+1,MJ+1), DWORK(MJ+1,MJ), C, S,
241 CALL DROT( MJ, DWORK(1,MJ+1), 1, DWORK(1,MJ), 1, C,
278 CALL DLARTG( DWORK(MJ-1,MJ+1), DWORK(MJ-2,MJ+1), C,
289 CALL DLARTG( DWORK(MJ,MJ+1), DWORK(MJ-1,MJ+1), C,
293 CALL DROT( MJ, DWORK(MJ,1), LDDWOR, DWORK(MJ-1,1),
299 CALL DLARTG( DWORK(MJ+1,MJ+1), DWORK(MJ,MJ+1), C, S,
[all …]
H A Dsb04nx.f198 CALL DLARTG( DWORK(MJ+1,MJ), DWORK(MJ+1,MJ-1), C,
200 DWORK(MJ+1,MJ) = R
202 CALL DROT( MJ, DWORK(1,MJ), 1, DWORK(1,MJ-1), 1, C,
208 CALL DLARTG( DWORK(MJ+1,MJ+1), DWORK(MJ+1,MJ), C, S,
210 DWORK(MJ+1,MJ+1) = R
212 CALL DROT( MJ, DWORK(1,MJ+1), 1, DWORK(1,MJ), 1, C,
244 CALL DLARTG( DWORK(MJ,MJ+1), DWORK(MJ-1,MJ+1), C,
248 CALL DROT( MJ, DWORK(MJ,1), LDDWOR, DWORK(MJ-1,1),
254 CALL DLARTG( DWORK(MJ+1,MJ+1), DWORK(MJ,MJ+1), C, S,
256 DWORK(MJ+1,MJ+1) = R
[all …]
H A Dsb04ny.f175 IF ( DWORK(MJ+1,MJ).NE.ZERO ) THEN
176 CALL DLARTG( DWORK(MJ+1,MJ+1), DWORK(MJ+1,MJ), C, S,
178 DWORK(MJ+1,MJ+1) = R
179 DWORK(MJ+1,MJ) = ZERO
180 CALL DROT( MJ, DWORK(1,MJ+1), 1, DWORK(1,MJ), 1, C,
182 CALL DROT( 1, D(MJ+1), 1, D(MJ), 1, C, S )
202 IF ( DWORK(MJ,MJ+1).NE.ZERO ) THEN
203 CALL DLARTG( DWORK(MJ+1,MJ+1), DWORK(MJ,MJ+1), C, S,
205 DWORK(MJ+1,MJ+1) = R
206 DWORK(MJ,MJ+1) = ZERO
[all …]
H A Dsb04ry.f176 IF ( DWORK(MJ+1,MJ).NE.ZERO ) THEN
177 CALL DLARTG( DWORK(MJ+1,MJ+1), DWORK(MJ+1,MJ), C, S,
179 DWORK(MJ+1,MJ+1) = R
180 DWORK(MJ+1,MJ) = ZERO
181 CALL DROT( MJ, DWORK(1,MJ+1), 1, DWORK(1,MJ), 1, C,
183 CALL DROT( 1, D(MJ+1), 1, D(MJ), 1, C, S )
204 IF ( DWORK(MJ,MJ+1).NE.ZERO ) THEN
205 CALL DLARTG( DWORK(MJ+1,MJ+1), DWORK(MJ,MJ+1), C, S,
207 DWORK(MJ+1,MJ+1) = R
208 DWORK(MJ,MJ+1) = ZERO
[all …]
/dports/mail/elm/elm2.5.8/
H A DMakefile.SH86 cd lib && $(MAKE) $(MFLAGS) $(MJ) $@
87 cd src && $(MAKE) $(MFLAGS) $(MJ) $@
88 cd utils && $(MAKE) $(MFLAGS) $(MJ) $@
89 cd doc && $(MAKE) $(MFLAGS) $(MJ) $@
128 cd doc; $(MAKE) $(MFLAGS) $(MJ) $@
131 cd lib; $(MAKE) $(MFLAGS) $(MJ) all
132 cd src; $(MAKE) $(MFLAGS) $(MJ) all
136 cd utils; $(MAKE) $(MFLAGS) $(MJ) all
/dports/print/ghostscript7-base/ghostscript-7.07/gdevmjc-0.8/
H A Dgdevmjc.mak2 ## MJ-700V2C driver
4 # Supports MJ-700V2C, MJ-5000C, MJ-900C, MJ-800C, MJ-500C
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dclasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL CGEMV( 'No transpose', MJ, J-K1,
234 CALL CCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL CAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL CGEMV( 'No transpose', MJ, J-K1,
385 CALL CCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Dzlasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL ZGEMV( 'No transpose', MJ, J-K1,
234 CALL ZCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL ZAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL ZGEMV( 'No transpose', MJ, J-K1,
385 CALL ZCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Ddlasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL DGEMV( 'No transpose', MJ, J-K1,
234 CALL DCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL DAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL DGEMV( 'No transpose', MJ, J-K1,
385 CALL DCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Dslasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL SGEMV( 'No transpose', MJ, J-K1,
234 CALL SCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL SAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL SGEMV( 'No transpose', MJ, J-K1,
385 CALL SCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
/dports/math/blas/lapack-3.10.0/SRC/
H A Ddlasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL DGEMV( 'No transpose', MJ, J-K1,
234 CALL DCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL DAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL DGEMV( 'No transpose', MJ, J-K1,
385 CALL DCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Dzlasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL ZGEMV( 'No transpose', MJ, J-K1,
234 CALL ZCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL ZAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL ZGEMV( 'No transpose', MJ, J-K1,
385 CALL ZCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Dslasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL SGEMV( 'No transpose', MJ, J-K1,
234 CALL SCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL SAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL SGEMV( 'No transpose', MJ, J-K1,
385 CALL SCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Dclasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL CGEMV( 'No transpose', MJ, J-K1,
234 CALL CCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL CAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL CGEMV( 'No transpose', MJ, J-K1,
385 CALL CCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dslasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL SGEMV( 'No transpose', MJ, J-K1,
234 CALL SCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL SAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL SGEMV( 'No transpose', MJ, J-K1,
385 CALL SCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Dclasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL CGEMV( 'No transpose', MJ, J-K1,
234 CALL CCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL CAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL CGEMV( 'No transpose', MJ, J-K1,
385 CALL CCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Dzlasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL ZGEMV( 'No transpose', MJ, J-K1,
234 CALL ZCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL ZAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL ZGEMV( 'No transpose', MJ, J-K1,
385 CALL ZCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Ddlasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL DGEMV( 'No transpose', MJ, J-K1,
234 CALL DCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL DAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL DGEMV( 'No transpose', MJ, J-K1,
385 CALL DCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Dclasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL CGEMV( 'No transpose', MJ, J-K1,
234 CALL CCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL CAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL CGEMV( 'No transpose', MJ, J-K1,
385 CALL CCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Ddlasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL DGEMV( 'No transpose', MJ, J-K1,
234 CALL DCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL DAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL DGEMV( 'No transpose', MJ, J-K1,
385 CALL DCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Dzlasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL ZGEMV( 'No transpose', MJ, J-K1,
234 CALL ZCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL ZAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL ZGEMV( 'No transpose', MJ, J-K1,
385 CALL ZCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Dslasyf_aa.f166 INTEGER J, K, K1, I1, I2, MJ
210 MJ = 1
212 MJ = M-J+1
226 CALL SGEMV( 'No transpose', MJ, J-K1,
234 CALL SCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
242 CALL SAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
361 MJ = 1
363 MJ = M-J+1
377 CALL SGEMV( 'No transpose', MJ, J-K1,
385 CALL SCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Ddlasyf_aa.f169 INTEGER J, K, K1, I1, I2, MJ local
213 MJ = 1
215 MJ = M-J+1
229 CALL DGEMV( 'No transpose', MJ, J-K1,
237 CALL DCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
245 CALL DAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
364 MJ = 1
366 MJ = M-J+1
380 CALL DGEMV( 'No transpose', MJ, J-K1,
388 CALL DCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Dclasyf_aa.f169 INTEGER J, K, K1, I1, I2, MJ local
213 MJ = 1
215 MJ = M-J+1
229 CALL CGEMV( 'No transpose', MJ, J-K1,
237 CALL CCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
245 CALL CAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
364 MJ = 1
366 MJ = M-J+1
380 CALL CGEMV( 'No transpose', MJ, J-K1,
388 CALL CCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]
H A Dzlasyf_aa.f169 INTEGER J, K, K1, I1, I2, MJ
213 MJ = 1
215 MJ = M-J+1
229 CALL ZGEMV( 'No transpose', MJ, J-K1,
237 CALL ZCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
245 CALL ZAXPY( MJ, ALPHA, A( K-2, J ), LDA, WORK( 1 ), 1 )
364 MJ = 1
366 MJ = M-J+1
380 CALL ZGEMV( 'No transpose', MJ, J-K1,
388 CALL ZCOPY( MJ, H( J, J ), 1, WORK( 1 ), 1 )
[all …]

12345678910>>...63