Searched refs:ndofdwal (Results 1 – 2 of 2) sorted by relevance
515 ndofdwal=0525 ndofdwal=intfromfile(2)526 if(ndofdwal .ne. 0) then 527 if(ndofdwal.ne.1) then529 write(*,*) warning, ndofdwal
68 integer :: ndofdwal,ndofybar,ndoferrors,ndofyphbar,ndofvort local524 ndofdwal=0535 ndofdwal=intfromfile(2)538 if(ndofdwal .ne. 0) then 539 if(ndofdwal.ne.1) then541 write(*,*) warning, ndofdwal818 & +(numphavg*ndofyphbar)+ndofvort+ndofdwal