Home
last modified time | relevance | path

Searched refs:nshg (Results 1 – 25 of 166) sorted by relevance

1234567

/phasta/phSolver/incompressible/
H A Dsoldir.f18 dimension y(nshg,ndof), ac(nshg,ndof),
19 & yold(nshg,ndof), acold(nshg,ndof),
21 & iBC(nshg), BC(nshg,ndofBC),
22 & res(nshg,nflow),
23 & ilwork(nlwork), iper(nshg)
30 real*8 yAlpha(nshg,5), acAlpha(nshg,5)
33 dimension dyf(4*nshg), indx(4*nshg), solinc(nshg,4)
35 dimension globMas(4*nshg,4*nshg)
67 do i=1,nshg
70 do j=1,nshg
[all …]
H A DitrPC.f11 real*8 y(nshg,ndof), acold(nshg,ndof)
69 real*8 y(nshg,ndof), ac(nshg,ndof),
70 & u(nshg,nsd), yold(nshg,ndof),
71 & acold(nshg,ndof), uold(nshg,nsd)
72 dimension iBC(nshg)
121 real*8 y(nshg,ndof), ac(nshg,ndof),
122 & u(nshg,nsd), solinc(nshg,4)
123 dimension iBC(nshg)
152 real*8 y(nshg,ndof), ac(nshg,ndof),
153 & solinc(nshg)
[all …]
H A Dsolfar.f82 real*8 y(nshg,ndof), ac(nshg,ndof),
83 & yold(nshg,ndof), acold(nshg,ndof),
84 & u(nshg,nsd), uold(nshg,nsd),
85 & x(numnp,nsd), BC(nshg,ndofBC),
86 & res(nshg,nflow), tmpres(nshg,nflow),
87 & flowDiag(nshg,4),
88 & sclrDiag(nshg,1),
89 & GradV(nshg,nsdsq)
97 & rowp(nshg*nnz), colm(nshg+1),
98 & iBC(nshg), ilwork(nlwork),
[all …]
H A Dwrite_hessian.c5 write_hessian( double* hessian, double* gradian, int* nshg ) { in write_hessian() argument
8 int* map = ( int* )malloc( (*nshg)*sizeof( int ) ); in write_hessian()
28 for( x=0; x < *nshg; x++ ) fscanf(idmap,"%d\n", map+x ); in write_hessian()
31 fprintf( uhess,"%d\n", *nshg ); in write_hessian()
32 fprintf( vhess,"%d\n", *nshg ); in write_hessian()
33 fprintf( whess,"%d\n", *nshg ); in write_hessian()
38 for( i=0; i< *nshg; i++ ) { in write_hessian()
49 fprintf( uhess, "%f ", hessian[k+(u[j]-1)*(*nshg)] ); in write_hessian()
50 fprintf( vhess, "%f ", hessian[k+(v[j]-1)*(*nshg)] ); in write_hessian()
51 fprintf( whess, "%f ", hessian[k+(w[j]-1)*(*nshg)] ); in write_hessian()
H A DelmStats.f12 integer iBC(nshg), iper(nshg), ilwork(nlwork)
59 do j = 1,nshg
66 do i = 1,nshg
88 real*8 y(nshg,ndof), ac(nshg,ndof), x(numnp,nsd),
92 & BC(nshg,ndofBC), lhsK(9,nnz_tot),
93 & lhsP(4,nnz_tot), res(nshg,ndof)
95 integer iBC(nshg), iper(nshg),
96 & ilwork(nlwork), rowp(nshg,nnz),
97 & colm(nshg+1)
H A Ditrbc.f23 dimension y(nshg,nflow), iBC(nshg),
24 & ac(nshg,nflow), BC(nshg,ndofBC)
26 dimension ilwork(nlwork), iper(nshg)
142 dimension y(nshg,ndof), iBC(nshg),
143 & ac(nshg,ndof), BC(nshg,ndofBC)
145 dimension ilwork(nlwork), iper(nshg)
146 dimension T(nshg)
173 do i = 1,nshg
H A Dstats.f35 integer ilwork(nlwork), iper(nshg), iBC(nshg)
49 allocate ( stsVec(nshg,nResDims) )
52 allocate ( stsReg(nshg) )
53 allocate ( stsMInv(nshg,6) )
54 allocate ( stsB(nshg,3) )
55 allocate ( stsDInv(nshg,3) )
56 allocate ( stsCInv(nshg,6) )
59 allocate ( stsPres(nshg) )
60 allocate ( stsPresSqr(nshg) )
61 allocate ( stsVel(nshg,3) )
[all …]
H A Dgenlmass.f20 allocate (gmass(nshg))
76 & gmass(nshg)
178 real*8 ac(nshg,ndof), res(nshg,4), tmp,tmp1
179 real*8 lhsK(9,nnz_tot), gmass(nshg), rho(nshg)
180 integer rowp(nnz*nshg), colm(nshg+1)
192 do n = 1, nshg
220 real*8 ac(nshg), res(nshg), tmp, tmp1
221 real*8 lhsS(nnz_tot), gmass(nshg), rho(nshg)
222 integer rowp(nnz*nshg), colm(nshg+1)
234 do n = 1, nshg
H A Dbflux.f29 real*8 y(nshg,ndof), ac(nshg,ndof),
30 & u(nshg,nsd), x(numnp,nsd)
31 dimension iBC(nshg),
32 & BC(nshg,ndofBC),
33 & iper(nshg)
41 real*8 flxres(nshg,nflow),
42 & flxLHS(nshg,1), flxnrm(nshg,nsd),
43 & temp(nshg), rtmp(nshg,ndof),
44 & flxTot(nflow), wallssVec(nshg,3)
46 real*8 qres(nshg,nsd*nsd)
[all …]
/phasta/phSolver/compressible/
H A Ditrfdi.f39 dimension y(nshg,ndof), ypre(nshg,nflow),
40 & x(numnp,nsd), ac(nshg,ndof),
41 & rmes(nshg,nflow),
42 & uBrg(nshg,nflow), BDiag(nshg,nflow,nflow),
43 & iBC(nshg), BC(nshg,ndofBC),
45 & iper(nshg)
47 dimension ytmp(nshg,nflow), rtmp(nshg,nflow)
48 dimension tmpy(nshg,ndof)
189 dimension y(nshg,ndof), ypre(nshg,ndof),
191 & rmes(nshg,nflow),
[all …]
H A Dau2mfg.f34 dimension y(nshg,ndof), ypre(nshg,nflow),
35 & x(numnp,nsd), ac(nshg,ndof),
36 & rmes(nshg,nflow), ytmp(nshg,nflow),
37 & res(nshg,nflow), Dy(nshg,nflow),
38 & uBrg(nshg,nflow), BDiag(nshg,nflow,nflow),
39 & iBC(nshg), BC(nshg,ndofBC),
40 & iper(nshg), Dy2(nshg,nflow)
42 dimension uBtmp1(nshg,nflow), uBtmp2(nshg,nflow),
43 & tmpBC(nshg), ilwork(nlwork)
H A Dau1mfg.f39 dimension y(nshg,ndof), ypre(nshg,nflow),
40 & x(numnp,nsd), ac(nshg,ndof),
41 & rmes(nshg,nflow), ytmp(nshg,nflow),
42 & res(nshg,nflow), uBrg(nshg,nflow),
43 & BDiag(nshg,nflow,nflow), iBC(nshg),
44 & BC(nshg,ndofBC), iper(nshg)
46 dimension uBtmp(nshg,nflow), tmpBC(nshg),
H A DitrPC.f10 real*8 y(nshg,ndof), acold(nshg,ndof)
61 real*8 yold(nshg,ndof), acold(nshg,ndof),
62 & y(nshg,ndof), ac(nshg,ndof)
132 real*8 y(nshg,ndof), ac(nshg,ndof), Dy(nshg,nflow)
133 real*8 yold(nshg,ndof), acold(nshg,ndof)
159 real*8 y(nshg,ndof), ac(nshg,ndof), Dyt(nshg)
160 real*8 yold(nshg,ndof), acold(nshg,ndof)
181 real*8 yold(nshg,ndof), acold(nshg,ndof),
182 & y(nshg,ndof), ac(nshg,ndof)
H A Ditrbc.f25 dimension y(nshg,nflow), iBC(nshg),
26 & ac(nshg,nflow), BC(nshg,ndofBC)
28 dimension ilwork(nlwork), iper(nshg)
30 real*8 tmp(nshg), y1(nshg),q1(nshg)
31 dimension rn1(nshg), rmagn1(nshg)
144 npro = nshg
211 dimension y(nshg,ndof), iBC(nshg),
212 & ac(nshg,ndof), BC(nshg,ndofBC)
214 dimension ilwork(nlwork), iper(nshg)
215 dimension T(nshg)
[all …]
H A Dbc3per.f21 dimension iBC(nshg),
22 & res(nshg,nQs), ilwork(nlwork),
23 & iper(nshg)
28 do j = 1,nshg
72 dimension iBC(nshg),
73 & res(nshg),
74 & iper(nshg)
79 do j = 1,nshg
H A Dsolgmr.f42 dimension y(nshg,ndof), ac(nshg,ndof),
43 & yold(nshg,ndof), acold(nshg,ndof),
45 & iBC(nshg), BC(nshg,ndofBC),
46 & res(nshg,nflow),
47 & BDiag(nshg,nflow,nflow),
51 & iper(nshg), EGmass(numel,nedof,nedof)!,
54 dimension Dy(nshg,nflow), rmes(nshg,nflow),
55 & temp(nshg,nflow),
56 & uBrg(nshg,nflow,Kspace+1)
62 real*8 rerr(nshg,10)
[all …]
H A Delmgmr.f23 dimension y(nshg,ndof), ac(nshg,ndof),
25 & iBC(nshg),
26 & BC(nshg,ndofBC),
27 & res(nshg,nflow),
28 & rmes(nshg,nflow), BDiag(nshg,nflow,nflow),
29 & iper(nshg), EGmass(numel,nedof,nedof)
36 dimension qres(nshg, idflx), rmass(nshg)
40 real*8 Bdiagvec(nshg,nflow), rerr(nshg,10)
303 integer col(nshg+1), row(nnz*nshg)
306 dimension y(nshg,ndof), ac(nshg,ndof),
[all …]
H A DrstatCheck.f22 dimension res(nshg,nflow)
23 dimension rtmp(nshg), nrsmax(1), ilwork(nlwork)
27 real*8 y(nshg,ndof),ac(nshg,ndof)
30 if (numpe == 1) nshgt=nshg ! global = this processor
110 dimension rest(nshg)
111 dimension rtmp(nshg), nrsmax(1), ilwork(nlwork)
114 real*8 y(nshg,ndof),ac(nshg,ndof)
119 if (numpe == 1) nshgt=nshg ! global = this processor
/phasta/phSolver/common/
H A Dreadnblk.f118 & c_loc(nshg),ione, dataInt, iotype)
196 fncorpsize = nshg
204 do i = 1,nshg
222 fncorpsize = nshg
224 maxowned=nshg
226 iownnodes=nshg
227 do i =1,nshg
232 allocate(ltg(nshg))
233 do i =1,nshg
239 nshg0 = nshg
[all …]
H A Dqpbc.f15 dimension rmass(nshg), qres(nshg,idflx),
16 & iBC(nshg), iper(nshg),uv(nshg,2),
17 & tmpvec(nshg,4), tmp(nshg)
46 do j= 1,nshg
55 do j= 1,nshg
79 do i = 1, nshg
131 dimension rmass(nshg), qres(nshg,nsd),
132 & iBC(nshg), iper(nshg)
148 do j= 1,nshg
156 do j= 1,nshg
H A Dgenadj.f7 integer rowp(nshg*nnz), colm(nshg+1)
8 integer adjcnt(nshg), row_fill_list(nshg,15*nnz), mloc(1)
36 call sumgatInt ( adjcnt, nshg, nnonzero)
45 do i=1,nshg
51 ibig=10*nshg
55 do i=1,nshg
69 nnza=icnt/nshg +1
70 if(icnt.gt.nnz*nshg) then
H A Dperprep.f7 subroutine setper (nshg) argument
11 allocate (rcount(nshg))
23 subroutine perprep (iBC, iper,nshg) argument
27 dimension iBC(nshg),
28 & iper(nshg)
35 do j = 1,nshg
41 do k=1,nshg
H A DINIprofile.f4 real*8 BC(nshg,ndofBC)
5 real*8 y(nshg,ndof)
6 real*8 x(nshg,nsd)
26 integer inlf_tmp(nshg)
27 real*8 BC(nshg,ndofBC)
28 real*8 y(nshg,ndof)
29 real*8 x(nshg,nsd)
76 real*8 x(nshg,nsd)
77 real*8 y(nshg,ndof)
109 do nn=1,nshg
[all …]
/phasta/phSolver/AMG/
H A Dramg_paratools.f18 integer,intent(in),dimension(nshg+1) :: acolm
28 integer,intent(in),dimension(nshg) :: iBC,iper
29 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
46 integer,dimension(nshg) :: tmp_rowmap,tmp_revrmap
47 real(kind=8),dimension(redun,nshg) :: tmp_rmtx
49 integer,dimension(nshg) :: Pflag
50 integer,dimension(nshg+1) :: Pcolm
59 allocate(lhsGPcolm%p(nshg+1))
100 allocate(sub_revmap%pp(i)%p(nshg))
267 allocate(Prowp%pp(nshg))
[all …]
/phasta/M2N/include/
H A Dnew_interfaceM2N.h28 int* nshg,
41 int* nshg,
53 int* nshg,
67 int* nshg,
74 int* nshg,
82 int* nshg,
89 int* nshg,
100 int* nshg,
113 int* nshg,

1234567