Searched refs:qoldN (Results 1 – 1 of 1) sorted by relevance
| /phasta/M2N/src/ |
| H A D | readnblk.f | 45 real*8, allocatable :: qreadN(:), qoldN(:,:) local
756 allocate(qoldN(nshgN,ndof))! size of my final mapped field array
757 qoldN=-9.87654321e32 ! set to absurd, easily recognized value to find holes
786 allocate(qoldN(1,1))
859 qoldN(intvID,idof) = qold(i,idof)
916 qoldN(intvID,idof) = qrecv( (i-1)*numvar+sumvar )
1297 qoldN(intvID,1:ndof)=qreadN(1:ndof) ! fill directly into qoldN
1421 call Write_M2N_SolOnly(myrank,irankN,lstep,nshgN,ndof,qoldN)
1422 deallocate(qoldN)
|