Home
last modified time | relevance | path

Searched refs:v (Results 1 – 15 of 15) sorted by relevance

/phasta/svLS/
H A DADDBCMUL.f54 REAL*8, ALLOCATABLE :: v(:,:), coef(:) local
71 IF (.NOT.ALLOCATED(v)) ALLOCATE(v(dof,nNo))
72 v = 0D0
76 v(i,Ac) = face(faIn)%valM(i,a)
79 S = coef(faIn)*DOTV(dof, mynNo, commu, v, X)
83 Y(i,Ac) = Y(i,Ac) + v(i,Ac)*S
H A DBC.f53 REAL*8, ALLOCATABLE :: v(:,:) local
97 IF (.NOT.ALLOCATED(v)) ALLOCATE(v(dof,lhs%nNo))
98 v = 0D0
101 v(:,Ac) = lhs%face(faIn)%val(:,a)
103 CALL COMMUV(dof, lhs%nNo, lhs%commu, lhs%cS, v)
107 lhs%face(faIn)%val(:,a) = v(:,Ac)
H A DNSSOLVER.f270 REAL*8, ALLOCATABLE :: v(:,:) local
275 IF (.NOT.ALLOCATED(v)) ALLOCATE(v(nsd,nNo))
276 v = 0D0
280 v(i,Ac) = face(faIn)%valM(i,a)
283 face(faIn)%nS = NORMV(nsd, mynNo, commu, v)**2D0
/phasta/phSolver/common/
H A DphString.cc11 void phstr_appendInt(char* dest, int v) { in phstr_appendInt() argument
13 ss << dest << v; in phstr_appendInt()
18 void phstr_appendDbl(char* dest, double v) { in phstr_appendDbl() argument
20 ss << dest << v; in phstr_appendDbl()
H A DslpwBC.f14 real*8 det,det3x3,tmp,u,v,w local
204 v=BC(4)
212 BC(3)=-wn1(2)/wn1(1)*v-wn1(3)/wn1(1)*w ! u is determined by v and w
216 BC(5)=-wn1(1)/wn1(3)*u-wn1(2)/wn1(3)*v ! w is determined by u and v
223 v=BC(4)
253 BC(3)=(c10*c7-c6*c11)/det-(c10*c5-c6*c9)/det*v ! u is determined by v
254 BC(5)=(c11*c4-c8*c7)/det-(c4*c9-c5*c8)/det*v ! w is determined by v
H A DphIO.cc119 void phio_appendInt(char* dest, int v) { in phio_appendInt() argument
121 ss << dest << v << '.'; in phio_appendInt()
H A DphString.h7 void phstr_appendInt(char* dest, int v);
H A Dnewshape.cc617 for(int v=0;v<3;v++) in HexShapeAndDrv() local
619 if((n[vrt[0]][v]==n[vrt[1]][v])&&(n[vrt[1]][v]==n[vrt[2]][v])) in HexShapeAndDrv()
620 normal=v; in HexShapeAndDrv()
621 sign=n[vrt[0]][v]; in HexShapeAndDrv()
/phasta/phSolver/AMG/
H A Dramg_cheby.f9 subroutine ramg_cheby_apply(u,v,r,level,colm,rowp,lhsK,lhsP, argument
26 real(kind=8),intent(in),dimension(amg_nshg(level)) :: v,r local
53 call ramg_calcAv_g(level,pAux,v,colm,rowp,lhsK,lhsP,
55 cy1 = v-1.1*3.0/beta*(pAux-r)
65 u = chebyomega*(cy1-v+chebygamma*cz1)+v
82 call ramg_calcAv_g(level,pAux,v,colm,rowp,lhsK,lhsP,
86 epx = v+epdk
H A Dramg_tools.f107 & u,v,gcomm)
113 real(kind=8),intent(in),dimension(gnshg) :: v local
123 u(i) = u(i)+glhs(k)*v(j)
137 subroutine ramg_calcAv_g(level,u,v,colm,rowp,lhsK,lhsP, argument
153 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v local
164 call ramg_PPEAp(u,v,colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
167 call ramg_commOut(v,level,ilwork,1,iper,iBC,BC)
176 u(i) = u(i)+amg_A_lhs(level)%p(k,1)*v(j)
199 subroutine ramg_calcAv_b(level,u,v,
211 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v variable
[all …]
H A Dramg_smoother.f7 & u,v)
20 real(kind=8),intent(in),dimension(nshg) :: v local
27 call commOut(v,ilwork,1,iper,iBC,BC)
28 call fLesSparseApG(colm,rowp,lhsP,v,utmp,nshg,nnz_tot)
39 utmp4(:,4) = v
59 & r,u,v) argument
66 real(kind=8),intent(in),dimension(Anshg) :: v,r local
81 tmp = Alhs(k)*v(j)
97 & r,u,v,clevel,pflag, argument
108 real(kind=8),intent(in),dimension(anshg) :: v,r local
[all …]
H A Dramg_mls.f496 subroutine ramg_mls_calcPAv(level,u,v,colm,rowp,lhsK,lhsP, argument
512 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v local
518 call ramg_calcAv_g(level,aux,v,colm,rowp,lhsK,lhsP,
563 subroutine ramg_mls_apply(u,v,r,level,colm,rowp,lhsK,lhsP, argument
580 real(kind=8),intent(in),dimension(amg_nshg(level)) :: v,r local
592 call ramg_calcAv_g(level,aux,v,colm,rowp,lhsK,lhsP,
598 call ramg_mls_apply_fwd(u,v,aux,level,colm,rowp,lhsK,lhsP,
601 call ramg_mls_apply_post(u,v,aux,level,colm,rowp,lhsK,lhsP,
605 u = v-1.1*u
610 subroutine ramg_mls_apply_fwd(u,v,r,level,colm,rowp,lhsK,lhsP, argument
[all …]
/phasta/phSolver/testIC-DSIM/
H A Dgeom.sms168 4 24+7+v-h-6
169 4 24+8+c-i-v
174 0 34-r-v-n+x
H A Dgeom.sdm167 4 24+7+v-h-6
168 4 24+8+c-i-v
/phasta/phSolver/incompressible/
H A Dwrite_hessian.c25 int v[6] = { 2, 11, 20, 14, 23, 26 }; in write_hessian() local
50 fprintf( vhess, "%f ", hessian[k+(v[j]-1)*(*nshg)] ); in write_hessian()