Lines Matching refs:nDims
26 int *nDstDims, int *nDims, int *nNodes );
35 int *nDims, int *nNodes);
37 void FLESZERO( double *dstpnt, int *nDims, int *nNodes);
39 void FLESCP( double *srcpnt, double *dstpnt, int *nDims,
44 int *nDims,
50 int *nDims,
55 int *nDims,
60 int *nDims,
67 double FLESDOT1( double *srcpnt, int* nDims, int* dim );
69 double FLESDOT2(double *src1pnt, double *src2pnt, int* nDims, int* dim );
75 int *nDims, int *dim);
77 void FLESINV( double *dstpnt, int *nDims, int *dim ) ;
99 int *nSrc1Dims,int *nSrc2Dims, int *nDims, int *nNodes);
102 int *nSrcDims, int *nDstDims, int *nDims,
172 Integer nDims ) in lesDiagScaleCp() argument
192 &nDims, in lesDiagScaleCp()
209 &nDims, in lesDiagScaleCp()
225 Integer nDims ) in lesZero() argument
234 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ); in lesZero()
236 flesZero( dstpnt, &nDims, &(usrHd->nNodes) ); in lesZero()
250 Integer nDims ) in lesCp() argument
262 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesCp()
263 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesCp()
267 flesCp( srcpnt, dstpnt, &nDims, &dim ) ; in lesCp()
281 Integer nDims ) in lesScale() argument
292 dstpnt = usrPointer( usrHd, dstId, dstOff, nDims ) ; in lesScale()
296 &nDims, in lesScale()
311 Integer nDims ) in lesScaleCp() argument
323 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesScaleCp()
324 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesScaleCp()
331 &nDims, in lesScaleCp()
346 Integer nDims ) in lesAdd() argument
358 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesAdd()
359 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesAdd()
365 &nDims, in lesAdd()
380 Integer nDims ) in lesSub() argument
392 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesSub()
393 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesSub()
399 &nDims, in lesSub()
413 Integer nDims ) in lesDot1() argument
424 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesDot1()
429 &nDims, in lesDot1()
451 Integer nDims ) in lesDot2() argument
465 src1pnt = usrPointer ( usrHd, src1Id, src1Off, nDims ); in lesDot2()
466 src2pnt = usrPointer ( usrHd, src2Id, src2Off, nDims ); in lesDot2()
472 &nDims, in lesDot2()
493 Integer nDims ) in lesDaxpy() argument
505 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesDaxpy()
506 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesDaxpy()
513 &nDims, in lesDaxpy()
529 Integer nDims ) in lesDxpay() argument
541 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesDxpay()
542 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesDxpay()
549 &nDims, in lesDxpay()
563 Integer nDims ) in lesInv() argument
572 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesInv()
576 flesInv( dstpnt, &nDims, &dim ) ; in lesInv()
592 Integer nDims ) in lesBlkDot2() argument
602 if ( mDims * nDims == 0 ) { in lesBlkDot2()
611 src1pnt = usrPointer ( usrHd, src1Id, src1Off, nDims ) ; in lesBlkDot2()
612 src2pnt = usrPointer ( usrHd, src2Id, src2Off, nDims ) ; in lesBlkDot2()
614 dim = nDims * usrHd->nNodes ; in lesBlkDot2()
642 Integer nDims ) in lesBlkDaxpy() argument
651 if ( mDims * nDims == 0 ) { in lesBlkDaxpy()
658 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesBlkDaxpy()
659 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesBlkDaxpy()
661 dim = nDims * usrHd->nNodes ; in lesBlkDaxpy()
683 Integer nDims ) in lesBlkDyeax() argument
692 if ( mDims * nDims == 0 ) { in lesBlkDyeax()
693 lesZero ( usrHd, dstId, nDims ) ; in lesBlkDyeax()
700 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesBlkDyeax()
701 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesBlkDyeax()
703 dim = nDims * usrHd->nNodes ; in lesBlkDyeax()
725 Integer nDims ) in lesBlkDmaxpy() argument
734 if ( mDims * nDims == 0 ) { in lesBlkDmaxpy()
741 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesBlkDmaxpy()
742 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesBlkDmaxpy()
744 dim = nDims * usrHd->nNodes ; in lesBlkDmaxpy()
768 Integer nDims ) in lesVdimCp() argument
781 &nDims, in lesVdimCp()
801 Integer nDims ) in lesVdimDot2() argument
809 if ( nDims == 0 ) { in lesVdimDot2()
813 coefp = (double *) malloc (nDims * sizeof(double)) ; in lesVdimDot2()
823 &nDims, in lesVdimDot2()
828 &nDims ) ; in lesVdimDot2()
847 Integer nDims ) in lesVdimDaxpy() argument
853 if ( nDims == 0 ) { in lesVdimDaxpy()
865 &nDims, in lesVdimDaxpy()