H A D | pzbssolver2.f90 | 186 LLD, INDH, INDX, INDY, INDRWORK, INDWORK, I local 244 LLD = MAX( LROWS, 1 ) 245 LOCALMAT = LLD*LCOLS 247 LLD, INFO ) 260 CALL ZGEEV( 'V', 'V', TWON, WORK, LLD, LAMBDA, WORK, LLD, & 261 WORK, LLD, ZTMP, -1, DTMP, INFO ) 287 CALL ZGEEV( 'V', 'V', TWON, WORK( INDH ), LLD, LAMBDA, & 288 WORK( INDY ), LLD, WORK( INDX ), LLD, WORK( INDWORK ), & 291 ZTMP = ZDOTC( TWON, WORK( INDX + 2*(I-1)*LLD ), 1, & 292 WORK( INDY + 2*(I-1)*LLD ), 1 ) [all …]
|