Searched refs:yphbarN (Results 1 – 1 of 1) sorted by relevance
| /phasta/M2N/src/ |
| H A D | readnblk.f | 47 real*8, allocatable :: errorsN(:,:), yphbarN(:,:,:), vortN(:,:) local
770 allocate(yphbarN(nshgN,ndofyphbar,numphavg)) ! size of my final mapped field array
771 yphbarN=-9.87654321e32 ! set to absurd, easily recognized value to find holes
794 allocate(yphbarN(1,1,1))
877 yphbarN(intvID,idof,iphavg) =
939 yphbarN(intvID,idof,iphavg) =
1439 & iphavg,numphavg,yphbarN(:,:,iphavg),'d',
1442 deallocate(yphbarN)
|