Searched refs:ybarN (Results 1 – 1 of 1) sorted by relevance
| /phasta/M2N/src/ |
| H A D | readnblk.f | 46 real*8, allocatable :: pID(:), vID(:), dwalN(:), ybarN(:,:) local
760 allocate(ybarN(nshgN,ndofybar)) ! size of my final mapped field array
761 ybarN=-9.87654321e32 ! set to absurd, easily recognized value to find holes
788 allocate(ybarN(1,1))
864 ybarN(intvID,idof) = ybar(i,idof)
922 ybarN(intvID,idof) = qrecv( (i-1)*numvar+sumvar)
1425 call Write_M2N_Field(myrank,irankN,'a','ybar',4,ybarN,'d',
1427 deallocate(ybarN)
|