Home
last modified time | relevance | path

Searched refs:nb (Results 1 – 3 of 3) sorted by relevance

/phasta/phSolver/common/
H A Dgenibc.f55 nb = nBC(n)
58 itemp( 1) = mod(iBCtmp(nb) ,2) - mod(iBCtmp(nb)/ 4,2)
59 itemp( 2) = mod(iBCtmp(nb)/ 8,2)
60 itemp( 3) = mod(iBCtmp(nb)/16,2)
61 itemp( 4) = mod(iBCtmp(nb)/32,2)
62 itemp(ndof) = mod(iBCtmp(nb)/ 2,2)
H A Dcmass.f32 integer ne, na, nb, nodlcla, nodlclb, iel local
60 do nb = 1, nshl
61 shp2 = shape(iel,na) * shape(iel,nb)
62 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
85 integer ne, na, nb, nodlcla, nodlclb, iel local
160 do nb = 1, nods !nenl !nshl
161 shp2 = shape(iel,na) * shape(iel,nb)
162 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
208 integer ne, na, nb, nodlcla, nodlclb, iel local
277 do nb = 1, nshl
[all …]
/phasta/phSolver/incompressible/
H A Dftools.f52 subroutine fMtxVdimVecMult( a, b, c, na, nb, nc, m, n ) argument
57 integer na, nb, nc, m, n local
58 real*8 a(n,na), b(n,nb), c(n,nc)
928 subroutine fMtxVdimVecCp( a, b, na, nb, m, n ) argument
933 integer na, nb, m, n local
934 real*8 a(n,na), b(n,nb)
989 subroutine fMtxVdimVecDot2( a, b, c, na, nb, m, n ) argument
994 integer na, nb, m, n local
995 real*8 a(n,na), b(n,nb), c(m)
1061 subroutine fMtxVdimVecDaxpy( a, b, c, na, nb, m, n ) argument
[all …]