phSolver/incompressible/usr.c

39 static LesHd lesArray[8];  variable
164         lesArray[ *lesId ] = lesNew( fileName, *lmport, &lmNum, *eqnType,
213             lesArray[ *lesId ] = lesNew( lmhost, *lmport, &lmNum, *eqnType,
221             lesArray[ *lesId ] = lesNew( lmhost, *lmport, &lmNum, *eqnType,
228         lesArray[ *lesId ] = lesNew( lmhost, *lmport, &lmNum, *eqnType,
254     nPrjs = (Integer) lesGetPar( lesArray[ *lesId ], LES_ACT_PRJS );
255     PrjSrcId = (Integer) lesGetPar( lesArray[ *lesId ], LES_PRJ_VEC_ID );
279     nPresPrjs = (Integer) lesGetPar( lesArray[ *lesId ], LES_ACT_PRES_PRJS );
280     PresPrjSrcId =(Integer)lesGetPar( lesArray[ *lesId ], LES_PRES_PRJ_VEC_ID );
364     lesSetPar( lesArray[ *lesId ], LES_ACT_PRJS, (Real) nPrjs );
365     PrjSrcId = (Integer) lesGetPar( lesArray[ *lesId ], LES_PRJ_VEC_ID );
398     lesSetPar( lesArray[ *lesId ], LES_ACT_PRES_PRJS, (Real) nPresPrjs );
399     PresPrjSrcId=(Integer)lesGetPar( lesArray[ *lesId ], LES_PRES_PRJ_VEC_ID );
416     lesSolve( lesArray[ *lesId ], usrHd );