| /phasta/shapeFunction/src/ |
| H A D | Fn.c | 20 double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18; in Fn() local
35 t1 = s*s; in Fn()
36 f = t1-3.0/4.0*s+3.0/28.0; in Fn()
42 t1 = r*r; in Fn()
43 f = t1-3.0/4.0*r+3.0/28.0; in Fn()
46 t1 = s*s; in Fn()
47 f = t1*s-6.0/5.0*t1+2.0/5.0*s-1.0/30.0; in Fn()
50 t1 = s*s; in Fn()
51 f = r*t1-3.0/5.0*r*s+r/15-t1/5+2.0/15.0*s-1.0/60.0; in Fn()
54 t1 = r*r; in Fn()
[all …]
|
| H A D | En.c | 19 double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t18; in En() local
30 t1 = s*s; in En()
32 f = t1-3.0*r*s+t3; in En()
35 t1 = s*s; in En()
37 f = t1*s-6.0*r*t1+6.0*t4*s-t4*r; in En()
40 t1 = s*s; in En()
41 t2 = t1*t1; in En()
44 f = t2-10.0*r*t1*s+20.0*t5*t1-10.0*t5*r*s+t9; in En()
47 t1 = s*s; in En()
48 t2 = t1*t1; in En()
[all …]
|
| H A D | FnDrv.c | 19 double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18; in FnDrv() local
50 t1 = s*s; in FnDrv()
52 drv[1] = 3.0*t1-12.0/5.0*s+2.0/5.0; in FnDrv()
55 t1 = s*s; in FnDrv()
56 drv[0] = t1-3.0/5.0*s+1.0/15.0; in FnDrv()
65 t1 = r*r; in FnDrv()
66 drv[0] = 3.0*t1-12.0/5.0*r+2.0/5.0; in FnDrv()
70 t1 = s*s; in FnDrv()
72 drv[1] = 4.0*t1*s-5.0*t1+20.0/11.0*s-2.0/11.0; in FnDrv()
75 t1 = s*s; in FnDrv()
[all …]
|
| H A D | Bn.c | 21 double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18; in Bn() local
39 t1 = t*t; in Bn()
42 f = t1+6.0/5.0*t*t2+3.0/10.0*t4; in Bn()
48 t1 = s*s; in Bn()
51 f = t1+6.0/7.0*t2*s+t4/7; in Bn()
60 t1 = r*r; in Bn()
61 f = t1-2.0/3.0*r+1.0/12.0; in Bn()
64 t1 = t*t; in Bn()
67 f = t1*t+12.0/7.0*t3*t1+6.0/7.0*t*t5+4.0/35.0*t3*t5; in Bn()
76 t1 = s*s; in Bn()
[all …]
|
| H A D | EnDrv.c | 18 double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18; in EnDrv() local
35 t1 = s*s; in EnDrv()
38 drv[0] = -6.0*t1+12.0*t2-3.0*t3; in EnDrv()
39 drv[1] = 3.0*t1-12.0*t2+6.0*t3; in EnDrv()
42 t1 = s*s; in EnDrv()
43 t2 = t1*s; in EnDrv()
44 t3 = r*t1; in EnDrv()
52 t1 = s*s; in EnDrv()
53 t2 = t1*t1; in EnDrv()
54 t4 = r*t1*s; in EnDrv()
[all …]
|
| H A D | BnDrv.c | 20 double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18; in BnDrv() local
46 t1 = 6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0; in BnDrv()
47 drv[0] = t1; in BnDrv()
48 drv[1] = t1; in BnDrv()
77 t1 = t*t; in BnDrv()
81 t5 = 12.0/7.0*t1+12.0/7.0*t3+12.0/35.0*t4; in BnDrv()
84 drv[2] = 3.0*t1+24.0/7.0*t3+6.0/7.0*t4; in BnDrv()
87 t1 = t*t; in BnDrv()
93 drv[0] = 2.0/9.0*t1+4.0/15.0*t3+t4/15+t7; in BnDrv()
94 drv[1] = t1+6.0/5.0*t3+3.0/10.0*t4+t7; in BnDrv()
[all …]
|
| H A D | modeShapeDrv.c | 30 double rs,rst2,P1P2,t,P1,P2,dP1,dP2,t1,t2; in F_modeShapeTriDrv() local
64 double Pr,Ps,Pt,dPr,dPs,dPt,w,rst,rstw2,PrPsPt,t1; in R_modeShapeTetDrv() local
|
| /phasta/phSolver/incompressible/ |
| H A D | e3lhs.f | 45 dimension t1(npro,3), t2(npro,3), t3(npro,3),
80 t1(:,1) = uBar(:,1) * shg(:,b,1)
88 tmp2 = tmp1 + t1(:,1) * shpfun(:,aa)
104 t1(:,1) = tauC * shg(:,b,1)
105 t1(:,2) = tauC * shg(:,b,2)
106 t1(:,3) = tauC * shg(:,b,3)
143 & + t1(:,1) * shg(:,aa,1)
146 & + t1(:,2) * shg(:,aa,2)
149 & + t1(:,3) * shg(:,aa,3)
152 tmp1 = t1(:,1) * shg(:,aa,2)
[all …]
|
| /phasta/phSolver/common/ |
| H A D | tmrc.c | 21 double t1 = 6.25e-10*TB; /* = 1/1.6e9 */ in TMRC() local
29 double t1 = 0; in TMRC()
36 t1 = ((double) tv.tv_sec) + 1.e-6 * ((double) tv.tv_usec); in TMRC()
40 return t1; in TMRC()
|
| H A D | phio_stream.cc | 30 phastaioTime t0,t1; in stream_openfile() local
42 phastaio_time(&t1); in stream_openfile()
43 const size_t elapsed = phastaio_time_diff(&t0,&t1); in stream_openfile()
104 phastaioTime t0,t1; in stream_closefile() local
107 phastaio_time(&t1); in stream_closefile()
108 const size_t elapsed = phastaio_time_diff(&t0,&t1); in stream_closefile()
|
| H A D | blowerControl.f90 | 101 real*8 :: t0, t1, t2, t3, t4, vmax, vmin local
127 t1 = t0 + blower(iBlower)%t_riseTime
128 t2 = t1 + blower(iBlower)%t_fullOn
136 if(t0 <= t .and. t < t1) then !rising edge
137 vmagref = (vmax - vmin)*(t - t0)/(t1 - t0) + vmin
138 elseif(t1 <= t .and. t < t2) then !high
|
| H A D | bctint.f | 142 real*8 t0,tlen,t1,tstart,tend local
168 t1 = t0 + tlen
171 & write(*,*) 'necessary bct timing: from ',t0,' to ',t1
217 nper = t1/BCt(ntpts,4)
218 tend = t1-nper*BCt(ntpts,4)
|
| /phasta/phastaIO/ |
| H A D | phiotmrc.cc | 20 double t1 = 6.25e-10*TB; // = 1/1.6e9 in phiotmrc() local
34 double t1 = ((double) tv.tv_sec) + 1.e-6 * ((double) tv.tv_usec); in phiotmrc()
38 return t1; in phiotmrc()
|
| H A D | phastaIO.cc | 1459 phastaioTime t0,t1; in readDataBlock() local
1477 phastaio_time(&t1); in readDataBlock()
1478 const size_t elapsed = phastaio_time_diff(&t0,&t1); in readDataBlock()
1557 phastaioTime t0,t1; in readdatablock() local
1568 phastaio_time(&t1); in readdatablock()
1569 const size_t elapsed = phastaio_time_diff(&t0,&t1); in readdatablock()
1578 phastaioTime t0,t1; in readdatablock() local
1589 phastaio_time(&t1); in readdatablock()
1590 const size_t elapsed = phastaio_time_diff(&t0,&t1); in readdatablock()
1828 phastaioTime t0,t1; in writeDataBlock() local
[all …]
|
| /phasta/M2NFixBnd/src/ |
| H A D | tmrc.c | 23 double t1 = 6.25e-10*TB; // = 1/1.6e9 in TMRC() local
37 double t1 = ((double) tv.tv_sec) + 1.e-6 * ((double) tv.tv_usec); in TMRC()
41 return t1; in TMRC()
|
| /phasta/AcuStat/src/ |
| H A D | tmrc.c | 23 double t1 = 6.25e-10*TB; // = 1/1.6e9 in TMRC() local
37 double t1 = ((double) tv.tv_sec) + 1.e-6 * ((double) tv.tv_usec); in TMRC()
41 return t1; in TMRC()
|
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 503 real(kind=8),dimension(nshg,1) :: t1,t1a local
512 call fMtxVdimVecMult(t1a,diag(:,4),t1,1,1,1,1,nshg)
515 call commOut(t1,ilwork,1,iper,iBC,BC)
516 call fLesSparseApG(colm,rowp,lhsP,t1,t2,nshg,nnz_tot)
525 t2b(:,4) = t1(:,1)
527 call fLesSparseApNGtC(colm,rowp,lhsP,t2b,t1,nshg,nnz_tot)
528 call commIn(t1,ilwork,1,iper,iBC,BC)
531 call fMtxVdimVecMult(t1,diag(:,4),t1a,1,1,1,1,nshg)
560 real(kind=8),dimension(nshg,1) :: t1,t1a local
566 call fMtxVdimVecMult(t1a,diag(:,4),t1,1,1,1,1,nshg)
[all …]
|
| /phasta/phSolver/incompressible/e3source/ |
| H A D | e3source.fRHSonly | 58 c$$$ t1 = x**2
59 c$$$ t2 = t1**2
66 c$$$ t15 = nu*t1
70 c$$$ t22 = t1*x
85 c$$$ t77 = t2*t1*t5
98 c$$$ t1 = x**2
99 c$$$ t2 = t1**2
106 c$$$ t18 = t1*x
111 c$$$ t39 = t2*t1*t32
113 c$$$ t43 = t1*t32
[all …]
|
| H A D | e3source.fimplicit | 58 c$$$ t1 = x**2
59 c$$$ t2 = t1**2
66 c$$$ t15 = nu*t1
70 c$$$ t22 = t1*x
85 c$$$ t77 = t2*t1*t5
98 c$$$ t1 = x**2
99 c$$$ t2 = t1**2
106 c$$$ t18 = t1*x
111 c$$$ t39 = t2*t1*t32
113 c$$$ t43 = t1*t32
[all …]
|