Searched refs:ndofvort (Results 1 – 3 of 3) sorted by relevance
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 65 integer :: ierror, idwal, iphavg, ivort, ndofvort local
375 ndofvort=intfromfile(2)
376 allocate( qvorticity(nshg2,ndofvort) )
378 allocate( qread(nshg2,ndofvort) ) ; qread = 0.d0
379 iqsiz=nshg2*ndofvort
382 qvorticity(1:nshg2,1:ndofvort) = qread(1:nshg2,1:ndofvort)
456 & 'd', nshg2, ndofvort, tablets(numts,1))
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 480 ndofvort=0
491 ndofvort=intfromfile(2)
494 if(ndofvort .ne. 0) then
495 allocate(vort(nshg,ndofvort))
497 allocate(qread(nshg2,ndofvort))
498 iqsiz = nshg2*ndofvort
501 vort(1:nshg2,1:ndofvort)=qread(1:nshg2,1:ndofvort)
654 call commuMax (vort, point2ilwork, ndofvort, 'in '//char(0))
655 call commuMax (vort, point2ilwork, ndofvort, 'out'//char(0))
743 do idof=1,ndofvort
[all …]
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 68 integer :: ndofdwal,ndofybar,ndoferrors,ndofyphbar,ndofvort local
492 ndofvort=0
503 ndofvort=intfromfile(2)
506 if(ndofvort .ne. 0) then
507 allocate( vort(nshg,ndofvort) )
508 iqsiz=nshg*ndofvort
775 allocate( vortN(nshgN,ndofvort))
818 & +(numphavg*ndofyphbar)+ndofvort+ndofdwal
884 do idof=1,ndofvort
946 do idof=1,ndofvort
[all …]
|