Searched refs:qreadN (Results 1 – 1 of 1) sorted by relevance
| /phasta/M2N/src/ |
| H A D | readnblk.f | 45 real*8, allocatable :: qreadN(:), qoldN(:,:) local
1286 allocate(qreadN(ndofRead))
1289 read(700+l) intvID,(qreadN(k),k=1,ndofRead) ! read a line in binary format
1291 read(700+l,925) intvID,(qreadN(k),k=1,ndofRead) ! read a line in ascii format
1297 qoldN(intvID,1:ndof)=qreadN(1:ndof) ! fill directly into qoldN
1309 deallocate(qreadN)
|