Searched defs:calcRCRic (Results 1 – 1 of 1) sorted by relevance
1237 subroutine calcRCRic(y,srfIdList,numSrfs) subroutine1243 integer srfIdList(0:MAXSURF), numSrfs, irankCoupled1244 real*8 y(nshg,4) !need velocity and pressure1245 real*8 Qini(0:MAXSURF) !initial flow rate1246 real*8 PdistIni(0:MAXSURF) !initial distal pressure1247 real*8 Pini(0:MAXSURF),CoupleArea(0:MAXSURF) ! initial pressure1248 real*8 VelOnly(nshg,3), POnly(nshg)