Home
last modified time | relevance | path

Searched refs:nvecsQ (Results 1 – 18 of 18) sorted by relevance

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/peigs/ctof/
H A Dmxm25_f.c61 Integer me, nvecsQ, nvecsW, nvecsZ; local
74 nvecsQ = count_list( me, mapQ, n1);
79 matW =(DoublePrecision **)( work + nvecsQ);
80 matZ =(DoublePrecision **)( work + nvecsQ + nvecsW);
82 dscrat =(DoublePrecision *)( work + nvecsQ + nvecsW + nvecsZ );
84 for( i = 0; i < nvecsQ; i++ )
H A Dcholeski_f.c54 Integer me, nvecsQ; local
124 nvecsQ = count_list( me, mapQ, n);
126 if( nvecsQ < 1) {
131 dscrat =(DoublePrecision *)( work + nvecsQ );
/dports/science/nwchem-data/nwchem-7.0.2-release/src/peigs/ctof/
H A Dmxm25_f.c61 Integer me, nvecsQ, nvecsW, nvecsZ; local
74 nvecsQ = count_list( me, mapQ, n1);
79 matW =(DoublePrecision **)( work + nvecsQ);
80 matZ =(DoublePrecision **)( work + nvecsQ + nvecsW);
82 dscrat =(DoublePrecision *)( work + nvecsQ + nvecsW + nvecsZ );
84 for( i = 0; i < nvecsQ; i++ )
H A Dcholeski_f.c54 Integer me, nvecsQ; local
124 nvecsQ = count_list( me, mapQ, n);
126 if( nvecsQ < 1) {
131 dscrat =(DoublePrecision *)( work + nvecsQ );
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/peigs/src/c/
H A Dmxm25.c132 Integer jj, i, nvecsQ, nvecsW, l1, l2; local
176 nvecsQ = fil_mapvec_( &me, &l1, mapQ, mapvecQ );
178 iscrat += nvecsQ;
182 if ( nvecsW + nvecsQ == 0 )
277 for ( jndx = 0; jndx < nvecsQ; jndx++ ){
282 for ( indx = 0; indx < nvecsQ; indx++ )
292 for (jndx = 0; jndx < nvecsQ; jndx++ ){
305 isize = nvecsQ*l2;
337 nvecsQ = isize;
368 nvecsQ = isize;
[all …]
H A Dmxm88.c122 Integer nvecsW, nvecsQ, j, iQ; local
208 nvecsQ = count_list( me, mapQ, n);
211 for ( j = 0; j < nvecsQ; j++ )
262 nvecsQ = fil_mapvec_( &me, &ll, mapQ, mapvecQ );
263 iscrat += nvecsQ;
269 if (( nvecsQ == 0 ) && ( nvecsW == 0 ))
H A Dpdspeval.c264 mapZ_0, nvecsQ, nvecsA, nvecsZ, nvecsZ2, local
584 nvecsQ = nvecsA;
596 d_scrat += nvecsQ * msize;
617 buff_ptr += nvecsQ;
631 for (indx = 0; indx < nvecsQ; indx++)
638 if (nvecsA + nvecsQ > 0) {
H A Dmemreq_eval.c108 Integer nvecsA, nvecsQ, nvecsQ_max, nvecsZ, nvecsZ_max, nvecsB; local
238 nvecsQ = nvecsA;
334 d_pdspevx += ( nvecsQ + 2 ) * msize;
339 ptr_pdspevx = nvecsQ + ptr_pstein;
H A Dpdspevx.c268 mapZ_0, nvecsQ, nvecsA, nvecsZ, nvecsZ2, local
629 nvecsQ = nvecsA;
644 d_scrat += nvecsQ * msize;
659 buff_ptr += nvecsQ;
681 for (indx = 0; indx < nvecsQ; indx++){
692 if (nvecsA + nvecsQ > 0) {
1114 if (nvecsQ + nvecsZ > 0) {
H A Dmemreq2.c109 Integer nvecsA, nvecsQ, nvecsQ_max, nvecsZ, nvecsZ_max, nvecsB; local
239 nvecsQ = nvecsA;
388 d_pdspevx += ( nvecsQ + 2 ) * msize;
394 ptr_pdspevx = nvecsQ + ptr_pstein;
H A Dmemreq.c109 Integer nvecsA, nvecsQ, nvecsQ_max, nvecsZ, nvecsZ_max, nvecsB; local
239 nvecsQ = nvecsA;
388 d_pdspevx += ( nvecsQ + 2 ) * msize;
394 ptr_pdspevx = nvecsQ + ptr_pstein;
/dports/science/nwchem-data/nwchem-7.0.2-release/src/peigs/src/c/
H A Dmxm25.c132 Integer jj, i, nvecsQ, nvecsW, l1, l2; local
176 nvecsQ = fil_mapvec_( &me, &l1, mapQ, mapvecQ );
178 iscrat += nvecsQ;
182 if ( nvecsW + nvecsQ == 0 )
277 for ( jndx = 0; jndx < nvecsQ; jndx++ ){
282 for ( indx = 0; indx < nvecsQ; indx++ )
292 for (jndx = 0; jndx < nvecsQ; jndx++ ){
305 isize = nvecsQ*l2;
337 nvecsQ = isize;
368 nvecsQ = isize;
[all …]
H A Dmxm88.c122 Integer nvecsW, nvecsQ, j, iQ; local
208 nvecsQ = count_list( me, mapQ, n);
211 for ( j = 0; j < nvecsQ; j++ )
262 nvecsQ = fil_mapvec_( &me, &ll, mapQ, mapvecQ );
263 iscrat += nvecsQ;
269 if (( nvecsQ == 0 ) && ( nvecsW == 0 ))
H A Dpdspeval.c264 mapZ_0, nvecsQ, nvecsA, nvecsZ, nvecsZ2, local
584 nvecsQ = nvecsA;
596 d_scrat += nvecsQ * msize;
617 buff_ptr += nvecsQ;
631 for (indx = 0; indx < nvecsQ; indx++)
638 if (nvecsA + nvecsQ > 0) {
H A Dmemreq_eval.c108 Integer nvecsA, nvecsQ, nvecsQ_max, nvecsZ, nvecsZ_max, nvecsB; local
238 nvecsQ = nvecsA;
334 d_pdspevx += ( nvecsQ + 2 ) * msize;
339 ptr_pdspevx = nvecsQ + ptr_pstein;
H A Dpdspevx.c268 mapZ_0, nvecsQ, nvecsA, nvecsZ, nvecsZ2, local
629 nvecsQ = nvecsA;
644 d_scrat += nvecsQ * msize;
659 buff_ptr += nvecsQ;
681 for (indx = 0; indx < nvecsQ; indx++){
692 if (nvecsA + nvecsQ > 0) {
1114 if (nvecsQ + nvecsZ > 0) {
H A Dmemreq2.c109 Integer nvecsA, nvecsQ, nvecsQ_max, nvecsZ, nvecsZ_max, nvecsB; local
239 nvecsQ = nvecsA;
388 d_pdspevx += ( nvecsQ + 2 ) * msize;
394 ptr_pdspevx = nvecsQ + ptr_pstein;
H A Dmemreq.c109 Integer nvecsA, nvecsQ, nvecsQ_max, nvecsZ, nvecsZ_max, nvecsB; local
239 nvecsQ = nvecsA;
388 d_pdspevx += ( nvecsQ + 2 ) * msize;
394 ptr_pdspevx = nvecsQ + ptr_pstein;