/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/ |
H A D | sb04rx.f | 216 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 D | sb04nx.f | 198 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 D | sb04ny.f | 175 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 D | sb04ry.f | 176 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 D | Makefile.SH | 86 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 D | gdevmjc.mak | 2 ## 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 D | clasyf_aa.f | 166 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 D | zlasyf_aa.f | 166 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 D | dlasyf_aa.f | 166 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 D | slasyf_aa.f | 166 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 D | dlasyf_aa.f | 166 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 D | zlasyf_aa.f | 166 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 D | slasyf_aa.f | 166 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 D | clasyf_aa.f | 166 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 D | slasyf_aa.f | 166 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 D | clasyf_aa.f | 166 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 D | zlasyf_aa.f | 166 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 D | dlasyf_aa.f | 166 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 D | clasyf_aa.f | 166 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 D | dlasyf_aa.f | 166 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 D | zlasyf_aa.f | 166 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 D | slasyf_aa.f | 166 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 D | dlasyf_aa.f | 169 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 D | clasyf_aa.f | 169 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 D | zlasyf_aa.f | 169 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 …]
|