Searched refs:qybarcumul (Results 1 – 1 of 1) sorted by relevance
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 70 real*8, allocatable :: qybarcumul(:,:),qerrorcumul(:,:) local
230 allocate( qybarcumul(nshg2,ndofybar) ) ; qybarcumul = 0.d0
239 qybarcumul(:,:) = qybarcumul(:,:) + qread (:,:)*sumts
431 qybarcumul(:,:) = qybarcumul(:,:)/totsumts
465 & qybarcumul, 'd', nshg2, ndofybar, tablets(numts,1))
484 deallocate(qybarcumul, qold)
|