Searched refs:dwalN (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
780 allocate(dwalN(nshgN)) ! size of my final mapped field array
781 dwalN=-9.87654321e32 ! set to absurd, easily recognized value to find holes
800 allocate(dwalN(1))
890 dwalN(intvID) = dwal(i)
957 dwalN(intvID) = qrecv ( (i-1)*numvar+sumvar)
1324 dwalN(intvID)=qreadN1 ! fill directly into dwalN
1452 call Write_M2N_Field(myrank,irankN,'a','dwal',4,dwalN,'d',
1454 deallocate(dwalN)
|