Lines Matching refs:MAXSURF

813       do isrf = 0,MAXSURF
1071       integer   nsrfIdList(0:MAXSURF), numSrfs
1076       real*8    NewQ(0:MAXSURF) !temporary unknown for the flow rate
1226       real*8  PdistCur(0:MAXSURF), timestepRCR
1243       integer   srfIdList(0:MAXSURF), numSrfs, irankCoupled
1245       real*8    Qini(0:MAXSURF) !initial flow rate
1246       real*8    PdistIni(0:MAXSURF) !initial distal pressure
1247       real*8    Pini(0:MAXSURF),CoupleArea(0:MAXSURF) ! initial pressure
1250       allocate (RCRic(0:MAXSURF))
1279       integer   srfIdList(0:MAXSURF), numSrfs, irankCoupled, i, k
1280       real*8    scal(nshg), scalInt(0:MAXSURF), scalIntProc(0:MAXSURF)
1303         npars=MAXSURF+1