Searched refs:pressHist (Results 1 – 1 of 1) sorted by relevance
516 subroutine pHist(pressHist,QHist,betas,nTimePoint,nSrfs) argument521 real*8 pressHist(0:MAXSURF) local525 pressHist=zero528 pressHist(k) = pressHist(k) + QHist(j,k)*betas(j,k)