Lines Matching refs:usrHd
132 void lesPrepDiag( UsrHd usrHd ) in lesPrepDiag() argument
136 if ( (usrHd->eqnType) == 1 ) { /* continuity & momentum */ in lesPrepDiag()
138 drvlesPrepDiag( usrHd->flowDiag, in lesPrepDiag()
139 usrHd->ilwork, usrHd->iBC, in lesPrepDiag()
140 usrHd->BC, usrHd->iper, in lesPrepDiag()
141 usrHd->rowp, usrHd->colm, in lesPrepDiag()
142 usrHd->lhsK, usrHd->lhsP) ; in lesPrepDiag()
145 if ( (usrHd->eqnType) == 2 ) { /* temperature or scalar variable */ in lesPrepDiag()
147 drvsclrDiag ( usrHd->sclrDiag, usrHd->ilwork, in lesPrepDiag()
148 usrHd->iBC, usrHd->BC, in lesPrepDiag()
149 usrHd->iper, usrHd->rowp, in lesPrepDiag()
150 usrHd->colm, usrHd->lhsS ) ; in lesPrepDiag()
164 void lesDiagScaleCp ( UsrHd usrHd, in lesDiagScaleCp() argument
179 if ( (usrHd->eqnType) == 1 ) { in lesDiagScaleCp()
183 srcpnt = usrPointer ( usrHd, srcId, srcOff, nSrcDims ) ; in lesDiagScaleCp()
184 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDstDims ) ; in lesDiagScaleCp()
187 usrHd->flowDiag+diagOff*usrHd->nNodes, in lesDiagScaleCp()
193 &(usrHd->nNodes) ) ; in lesDiagScaleCp()
196 if ( (usrHd->eqnType) == 2 ) { in lesDiagScaleCp()
200 srcpnt = usrPointer ( usrHd, srcId, srcOff, nSrcDims ) ; in lesDiagScaleCp()
201 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDstDims ) ; in lesDiagScaleCp()
204 usrHd->sclrDiag+diagOff*usrHd->nNodes, in lesDiagScaleCp()
210 &(usrHd->nNodes) ) ; in lesDiagScaleCp()
223 void lesZero ( UsrHd usrHd, in lesZero() argument
234 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ); in lesZero()
236 flesZero( dstpnt, &nDims, &(usrHd->nNodes) ); in lesZero()
247 void lesCp ( UsrHd usrHd, in lesCp() argument
262 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesCp()
263 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesCp()
265 dim = usrHd->nNodes ; in lesCp()
278 void lesScale ( UsrHd usrHd, in lesScale() argument
290 dim = usrHd->nNodes ; in lesScale()
292 dstpnt = usrPointer( usrHd, dstId, dstOff, nDims ) ; in lesScale()
307 void lesScaleCp ( UsrHd usrHd, in lesScaleCp() argument
323 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesScaleCp()
324 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesScaleCp()
326 dim = usrHd->nNodes ; in lesScaleCp()
343 void lesAdd ( UsrHd usrHd, in lesAdd() argument
358 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesAdd()
359 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesAdd()
361 dim = usrHd->nNodes ; in lesAdd()
377 void lesSub ( UsrHd usrHd, in lesSub() argument
392 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesSub()
393 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesSub()
395 dim = usrHd->nNodes ; in lesSub()
411 Real lesDot1 ( UsrHd usrHd, in lesDot1() argument
424 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesDot1()
426 dim = usrHd->nNodes ; in lesDot1()
448 Real lesDot2 ( UsrHd usrHd, in lesDot2() argument
465 src1pnt = usrPointer ( usrHd, src1Id, src1Off, nDims ); in lesDot2()
466 src2pnt = usrPointer ( usrHd, src2Id, src2Off, nDims ); in lesDot2()
468 dim = usrHd->nNodes ; in lesDot2()
489 void lesDaxpy ( UsrHd usrHd, in lesDaxpy() argument
505 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesDaxpy()
506 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesDaxpy()
508 dim = usrHd->nNodes ; in lesDaxpy()
525 void lesDxpay ( UsrHd usrHd, in lesDxpay() argument
541 srcpnt = usrPointer ( usrHd, srcId, srcOff, nDims ) ; in lesDxpay()
542 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesDxpay()
544 dim = usrHd->nNodes ; in lesDxpay()
561 void lesInv ( UsrHd usrHd, in lesInv() argument
572 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDims ) ; in lesInv()
574 dim = usrHd->nNodes ; in lesInv()
587 void lesBlkDot2 ( UsrHd usrHd, in lesBlkDot2() argument
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()
637 void lesBlkDaxpy ( UsrHd usrHd, in lesBlkDaxpy() argument
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()
678 void lesBlkDyeax ( UsrHd usrHd, in lesBlkDyeax() argument
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()
720 void lesBlkDmaxpy ( UsrHd usrHd, in lesBlkDmaxpy() argument
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()
761 void lesVdimCp ( UsrHd usrHd, in lesVdimCp() argument
774 srcpnt = usrPointer ( usrHd, srcId, srcOff, nSrcDims ) ; in lesVdimCp()
775 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDstDims ) ; in lesVdimCp()
782 &(usrHd->nNodes) ); in lesVdimCp()
793 void lesVdimDot2 ( UsrHd usrHd, in lesVdimDot2() argument
815 src1pnt = usrPointer ( usrHd, src1Id, src1Off, nSrc1Dims ) ; in lesVdimDot2()
816 src2pnt = usrPointer ( usrHd, src2Id, src2Off, nSrc2Dims ) ; in lesVdimDot2()
824 &(usrHd->nNodes) ); in lesVdimDot2()
839 void lesVdimDaxpy ( UsrHd usrHd, in lesVdimDaxpy() argument
857 srcpnt = usrPointer ( usrHd, srcId, srcOff, nSrcDims ) ; in lesVdimDaxpy()
858 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDstDims ) ; in lesVdimDaxpy()
866 &(usrHd->nNodes) ) ; in lesVdimDaxpy()
877 void lesApG ( UsrHd usrHd, in lesApG() argument
897 pOff = 3 * usrHd->nNodes ; in lesApG()
898 qOff = 0 * usrHd->nNodes ; in lesApG()
900 srcpnt = usrPointer ( usrHd, srcId, srcOff, nSrcDims ) ; in lesApG()
903 usrHd->flowDiag+pOff, in lesApG()
904 usrHd->lesP, in lesApG()
909 &(usrHd->nNodes) ) ; in lesApG()
911 commOut ( usrHd->lesP, usrHd->ilwork, &nPs, in lesApG()
912 usrHd->iper, usrHd->iBC, usrHd->BC ); in lesApG()
914 fLesSparseApG( usrHd->colm, usrHd->rowp, usrHd->lhsP, in lesApG()
915 usrHd->lesP, usrHd->lesQ, &(usrHd->nNodes), in lesApG()
916 &(usrHd->nnz_tot)); in lesApG()
918 commIn ( usrHd->lesQ, usrHd->ilwork, &nQs, in lesApG()
919 usrHd->iper, usrHd->iBC, usrHd->BC ); in lesApG()
921 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDstDims ) ; in lesApG()
923 fMtxVdimVecMult( usrHd->lesQ, in lesApG()
924 usrHd->flowDiag+qOff, in lesApG()
930 &(usrHd->nNodes) ) ; in lesApG()
942 void lesApKG ( UsrHd usrHd, in lesApKG() argument
971 p1Off = 0 * usrHd->nNodes ; in lesApKG()
972 p2Off = 3 * usrHd->nNodes ; in lesApKG()
973 qOff = 0 * usrHd->nNodes ; in lesApKG()
975 src1pnt = usrPointer ( usrHd, src1Id, src1Off, nSrc1Dims ) ; in lesApKG()
976 src2pnt = usrPointer ( usrHd, src2Id, src2Off, nSrc2Dims ) ; in lesApKG()
979 usrHd->flowDiag+p1Off, in lesApKG()
980 usrHd->lesP+p1Off, in lesApKG()
985 &(usrHd->nNodes) ) ; in lesApKG()
988 usrHd->flowDiag+p2Off, in lesApKG()
989 usrHd->lesP+p2Off, in lesApKG()
994 &(usrHd->nNodes) ); in lesApKG()
996 commOut ( usrHd->lesP, usrHd->ilwork, &nPs, in lesApKG()
997 usrHd->iper, usrHd->iBC, usrHd->BC ); in lesApKG()
999 fLesSparseApKG( usrHd->colm, usrHd->rowp, usrHd->lhsK, in lesApKG()
1000 usrHd->lhsP, usrHd->lesP, usrHd->lesQ, in lesApKG()
1001 &(usrHd->nNodes),&(usrHd->nnz_tot)); in lesApKG()
1003 commIn ( usrHd->lesQ, usrHd->ilwork, &nQs, in lesApKG()
1004 usrHd->iper, usrHd->iBC, usrHd->BC ); in lesApKG()
1007 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDstDims ) ; in lesApKG()
1009 fMtxVdimVecMult( usrHd->lesQ, in lesApKG()
1010 usrHd->flowDiag+qOff, in lesApKG()
1016 &(usrHd->nNodes) ) ; in lesApKG()
1027 void lesApNGt ( UsrHd usrHd, in lesApNGt() argument
1047 pOff = 0 * usrHd->nNodes ; in lesApNGt()
1048 qOff = 3 * usrHd->nNodes ; in lesApNGt()
1050 srcpnt = usrPointer ( usrHd, srcId, srcOff, nSrcDims ) ; in lesApNGt()
1053 usrHd->flowDiag+pOff, in lesApNGt()
1054 usrHd->lesP, in lesApNGt()
1059 &(usrHd->nNodes) ) ; in lesApNGt()
1061 commOut ( usrHd->lesP, usrHd->ilwork, &nPs, in lesApNGt()
1062 usrHd->iper, usrHd->iBC, usrHd->BC ); in lesApNGt()
1064 fLesSparseApNGt( usrHd->colm, usrHd->rowp, in lesApNGt()
1065 usrHd->lhsP, usrHd->lesP, usrHd->lesQ, in lesApNGt()
1066 &(usrHd->nNodes),&(usrHd->nnz_tot)); in lesApNGt()
1068 commIn ( usrHd->lesQ, usrHd->ilwork, &nQs, in lesApNGt()
1069 usrHd->iper, usrHd->iBC, usrHd->BC ); in lesApNGt()
1071 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDstDims ) ; in lesApNGt()
1073 fMtxVdimVecMult( usrHd->lesQ, in lesApNGt()
1074 usrHd->flowDiag+qOff, in lesApNGt()
1080 &(usrHd->nNodes) ) ; in lesApNGt()
1092 void lesApNGtC ( UsrHd usrHd, in lesApNGtC() argument
1121 p1Off = 0 * usrHd->nNodes ; in lesApNGtC()
1122 p2Off = 3 * usrHd->nNodes ; in lesApNGtC()
1123 qOff = 3 * usrHd->nNodes ; in lesApNGtC()
1125 src1pnt = usrPointer ( usrHd, src1Id, src1Off, nSrc1Dims ) ; in lesApNGtC()
1126 src2pnt = usrPointer ( usrHd, src2Id, src2Off, nSrc2Dims ) ; in lesApNGtC()
1129 usrHd->flowDiag+p1Off, in lesApNGtC()
1130 usrHd->lesP+p1Off, in lesApNGtC()
1135 &(usrHd->nNodes) ) ; in lesApNGtC()
1138 usrHd->flowDiag+p2Off, in lesApNGtC()
1139 usrHd->lesP+p2Off, in lesApNGtC()
1144 &(usrHd->nNodes) ) ; in lesApNGtC()
1145 commOut ( usrHd->lesP, usrHd->ilwork, &nPs, in lesApNGtC()
1146 usrHd->iper, usrHd->iBC, usrHd->BC ); in lesApNGtC()
1148 fLesSparseApNGtC( usrHd->colm, usrHd->rowp, in lesApNGtC()
1149 usrHd->lhsP, usrHd->lesP, usrHd->lesQ, in lesApNGtC()
1150 &(usrHd->nNodes),&(usrHd->nnz_tot)); in lesApNGtC()
1152 commIn ( usrHd->lesQ, usrHd->ilwork, &nQs, in lesApNGtC()
1153 usrHd->iper, usrHd->iBC, usrHd->BC ); in lesApNGtC()
1155 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDstDims ) ; in lesApNGtC()
1157 fMtxVdimVecMult( usrHd->lesQ, in lesApNGtC()
1158 usrHd->flowDiag+qOff, in lesApNGtC()
1164 &(usrHd->nNodes) ) ; in lesApNGtC()
1176 void lesApFull ( UsrHd usrHd, in lesApFull() argument
1196 pOff = 0 * usrHd->nNodes ; in lesApFull()
1197 qOff = 0 * usrHd->nNodes ; in lesApFull()
1199 srcpnt = usrPointer ( usrHd, srcId, srcOff, nSrcDims ) ; in lesApFull()
1202 usrHd->flowDiag+pOff, in lesApFull()
1203 usrHd->lesP, in lesApFull()
1208 &(usrHd->nNodes) ) ; in lesApFull()
1209 commOut ( usrHd->lesP, usrHd->ilwork, &nPs, in lesApFull()
1210 usrHd->iper, usrHd->iBC, usrHd->BC ); in lesApFull()
1212 fLesSparseApFull( usrHd->colm, usrHd->rowp, usrHd->lhsK, in lesApFull()
1213 usrHd->lhsP, usrHd->lesP, usrHd->lesQ, in lesApFull()
1214 &(usrHd->nNodes),&(usrHd->nnz_tot)); in lesApFull()
1216 commIn ( usrHd->lesQ, usrHd->ilwork, &nQs, in lesApFull()
1217 usrHd->iper, usrHd->iBC, usrHd->BC ); in lesApFull()
1219 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDstDims ) ; in lesApFull()
1221 fMtxVdimVecMult( usrHd->lesQ, in lesApFull()
1222 usrHd->flowDiag+qOff, in lesApFull()
1228 &(usrHd->nNodes) ) ; in lesApFull()
1239 void lesApSclr ( UsrHd usrHd, in lesApSclr() argument
1267 srcpnt = usrPointer ( usrHd, srcId, srcOff, nSrcDims ) ; in lesApSclr()
1268 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDstDims ) ; in lesApSclr()
1272 usrHd->sclrDiag+pOff, in lesApSclr()
1273 usrHd->lesP, in lesApSclr()
1278 &(usrHd->nNodes) ) ; in lesApSclr()
1279 commOut ( usrHd->lesP, usrHd->ilwork, &nPs, in lesApSclr()
1280 usrHd->iper, usrHd->iBC, usrHd->BC ); in lesApSclr()
1282 fLesSparseApSclr( usrHd->colm, usrHd->rowp, usrHd->lhsS, in lesApSclr()
1283 usrHd->lesP, usrHd->lesQ, in lesApSclr()
1284 &(usrHd->nNodes),&(usrHd->nnz_tot)); in lesApSclr()
1286 commIn ( usrHd->lesQ, usrHd->ilwork, &nQs, in lesApSclr()
1287 usrHd->iper, usrHd->iBC, usrHd->BC ); in lesApSclr()
1292 fMtxVdimVecMult ( usrHd->lesQ, in lesApSclr()
1293 usrHd->sclrDiag+qOff, in lesApSclr()
1294 usrHd->lesP, in lesApSclr()
1299 &(usrHd->nNodes) ) ; in lesApSclr()
1302 usrHd->lesP, in lesApSclr()
1305 &(usrHd->nNodes) ) ; in lesApSclr()
1307 flesCp ( usrHd->lesP, in lesApSclr()
1310 &(usrHd->nNodes) ) ; in lesApSclr()
1314 fMtxVdimVecMult ( usrHd->lesQ, in lesApSclr()
1315 usrHd->sclrDiag+qOff, in lesApSclr()
1321 &(usrHd->nNodes) ) ; in lesApSclr()
1331 void lesPrecPPE(UsrHd usrHd, in lesPrecPPE() argument
1341 srcpnt = usrPointer ( usrHd, srcId, srcOff, nSrcDims ) ; in lesPrecPPE()
1342 dstpnt = usrPointer ( usrHd, dstId, dstOff, nDstDims ) ; in lesPrecPPE()
1344 ramg_interface( usrHd->colm, in lesPrecPPE()
1345 usrHd->rowp,usrHd->lhsK,usrHd->lhsP,usrHd->flowDiag, in lesPrecPPE()
1347 usrHd->ilwork,usrHd->BC,usrHd->iBC,usrHd->iper in lesPrecPPE()