Home
last modified time | relevance | path

Searched refs:xrlfa (Results 1 – 25 of 49) sorted by relevance

12

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dextrapol_dpel1.f19 subroutine extrapol_dpel1(ielfa,xrlfa,vfap,vel,ifabou, argument
30 real*8 xrlfa(3,*),vfap(0:7,*),vel(nef,0:7),xl1 local
36 xl1=xrlfa(1,i)
42 vfap(4,i)=xl1*vel(iel1,4)+xrlfa(2,i)*vel(iel2,4)
65 & +xrlfa(3,i)*vel(abs(ielfa(3,i)),4)
H A Dextrapol_pel1.f19 subroutine extrapol_pel1(ielfa,xrlfa,vfap,vel,ifabou,xbounact, argument
29 real*8 xrlfa(3,*),vfap(0:7,*),vel(nef,0:7),xbounact(*),xl1 local
35 xl1=xrlfa(1,i)
41 vfap(4,i)=xl1*vel(iel1,4)+xrlfa(2,i)*vel(iel2,4)
64 & +xrlfa(3,i)*vel(abs(ielfa(3,i)),4)
H A Dextrapol_vel1.f19 subroutine extrapol_vel1(ielfa,xrlfa,icyclic,ifatie,vfap,vel, argument
30 real*8 xrlfa(3,*),vfap(0:7,*),vel(nef,0:7),c(3,3),xbounact(*), local
39 xl1=xrlfa(1,i)
45 xl2=xrlfa(2,i)
83 vfap(1,i)=xl1*vel(iel1,1)+xrlfa(3,i)*vel(iel3,1)
97 vfap(2,i)=xl1*vel(iel1,2)+xrlfa(3,i)*vel(iel3,2)
111 vfap(3,i)=xl1*vel(iel1,3)+xrlfa(3,i)*vel(iel3,3)
H A Dextrapol_kel1.f19 subroutine extrapol_kel1(ielfa,xrlfa,vfap,vel,ifabou, argument
29 real*8 xrlfa(3,*),vfap(0:7,*),vel(nef,0:7),xl1,
36 xl1=xrlfa(1,i)
42 vfap(6,i)=xl1*vel(iel1,6)+xrlfa(2,i)*vel(iel2,6)
70 vfap(6,i)=xl1*vel(iel1,6)+xrlfa(3,i)*vel(ielfa(3,i),6)
H A Dextrapol_oel1.f19 subroutine extrapol_oel1(ielfa,xrlfa,vfap,vel,ifabou, argument
29 real*8 xrlfa(3,*),vfap(0:7,*),vel(nef,0:7),xl1,dy(*),
36 xl1=xrlfa(1,i)
42 vfap(7,i)=xl1*vel(iel1,7)+xrlfa(2,i)*vel(iel2,7)
70 vfap(7,i)=xl1*vel(iel1,7)+xrlfa(3,i)*vel(ielfa(3,i),7)
H A Dextrapolate_d_v_simple.f19 subroutine extrapolate_d_v_simple(ielfa,xrlfa,adv,advfa, argument
34 real*8 xrlfa(3,*),xl1,xl2,advfa(*),adv(*),vel(nef,0:7),hfa(3,*),
41 xl1=xrlfa(1,i)
47 xl2=xrlfa(2,i)
76 & +xrlfa(3,i)*volume(iel3)/adv(iel3)
78 hfa(j,i)=(xl1*vel(iel1,j)+xrlfa(3,i)*vel(iel3,j))
H A Dextrapol_tel1.f19 subroutine extrapol_tel1(ielfa,xrlfa,vfap,vel,ifabou,xbounact, argument
33 real*8 xrlfa(3,*),vfap(0:7,*),vel(nef,0:7),xbounact(*),xl1 local
39 xl1=xrlfa(1,i)
45 vfap(0,i)=xl1*vel(iel1,0)+xrlfa(2,i)*vel(iel2,0)
H A Dextrapol_oel3.f19 subroutine extrapol_oel3(ielfa,xrlfa,icyclic,ifatie,gradofa, argument
30 real*8 xrlfa(3,*),gradofa(3,*),gradoel(3,*),c(3,3),xxi(3,*), local
37 xl1=xrlfa(1,i)
43 xl2=xrlfa(2,i)
74 & xrlfa(3,i)*gradoel(l,abs(ielfa(3,i)))
H A Dextrapol_kel3.f19 subroutine extrapol_kel3(ielfa,xrlfa,icyclic,ifatie,gradkfa, argument
30 real*8 xrlfa(3,*),gradkfa(3,*),gradkel(3,*),c(3,3),xxi(3,*), local
37 xl1=xrlfa(1,i)
43 xl2=xrlfa(2,i)
74 & xrlfa(3,i)*gradkel(l,abs(ielfa(3,i)))
H A Dextrapol_pel3.f19 subroutine extrapol_pel3(ielfa,xrlfa,icyclic,ifatie,gradpfa, argument
30 real*8 xrlfa(3,*),gradpfa(3,*),gradpel(3,*),c(3,3),xxi(3,*), local
37 xl1=xrlfa(1,i)
43 xl2=xrlfa(2,i)
70 & xrlfa(3,i)*gradpel(l,abs(ielfa(3,i)))
H A Dextrapol_dpel3.f19 subroutine extrapol_dpel3(ielfa,xrlfa,icyclic,ifatie,gradpcfa, argument
30 real*8 xrlfa(3,*),gradpcfa(3,*),gradpcel(3,*),c(3,3),xxi(3,*), local
37 xl1=xrlfa(1,i)
43 xl2=xrlfa(2,i)
70 & xrlfa(3,i)*gradpcel(l,abs(ielfa(3,i)))
H A Dextrapolate_d_v_simplec.f19 subroutine extrapolate_d_v_simplec(ielfa,xrlfa,adv,advfa, argument
34 real*8 xrlfa(3,*),xl1,xl2,advfa(*),adv(*),vel(nef,0:7),hfa(3,*),
41 xl1=xrlfa(1,i)
47 xl2=xrlfa(2,i)
98 & +xrlfa(3,i)*volume(iel3)/a3
101 hfa(j,i)=(xl1*vel(iel1,j)+xrlfa(3,i)*vel(iel3,j))
H A Dextrapol_tel3.f19 subroutine extrapol_tel3(ielfa,xrlfa,icyclic,ifatie,gradtfa, argument
30 real*8 xrlfa(3,*),gradtfa(3,*),gradtel(3,*),c(3,3),xxi(3,*),
37 xl1=xrlfa(1,i)
43 xl2=xrlfa(2,i)
78 & xrlfa(3,i)*gradtel(l,abs(ielfa(3,i)))
H A Dextrapol_vel3.f19 subroutine extrapol_vel3(ielfa,xrlfa,icyclic,ifatie,gradvfa, argument
30 real*8 xrlfa(3,*),gradvfa(3,3,*),gradvel(3,3,*),c(3,3),xxi(3,*), local
37 xl1=xrlfa(1,i)
43 xl2=xrlfa(2,i)
89 & xrlfa(3,i)*gradvel(k,l,ielfa(3,i))
H A Dcompfluid.c301 NNEW(xrlfa,double,3**nface); in compfluid()
443 extrapol_velmain(nface,ielfa,xrlfa,vel,vfa, in compfluid()
455 extrapol_pelmain(nface,ielfa,xrlfa,vel,vfa, in compfluid()
474 extrapol_telmain(nface,ielfa,xrlfa,vel,vfa, in compfluid()
561 extrapol_kelmain(nface,ielfa,xrlfa,vel,vfa, in compfluid()
568 extrapol_oelmain(nface,ielfa,xrlfa,vel,vfa, in compfluid()
1070 extrapol_velmain(nface,ielfa,xrlfa,vel,vfa, in compfluid()
1089 extrapol_pelmain(nface,ielfa,xrlfa,vel,vfa, in compfluid()
1438 extrapol_telmain(nface,ielfa,xrlfa,vel,vfa, in compfluid()
1611 extrapol_kelmain(nface,ielfa,xrlfa,vel,vfa, in compfluid()
[all …]
H A Dextrapol_dpelmain.c31 void extrapol_dpelmain(ITG *nface,ITG *ielfa,double *xrlfa,double *vel, in extrapol_dpelmain() argument
59 ielfa1=ielfa;xrlfa1=xrlfa;vfap1=vfap;vel1=vel;ifabou1=ifabou; in extrapol_dpelmain()
76 FORTRAN(applympc_dpel,(nface,ielfa,xrlfa,vel,vfap, in extrapol_dpelmain()
106 ielfa1=ielfa;xrlfa1=xrlfa;icyclic1=icyclic;ifatie1=ifatie;gradpcfa1=gradpcfa; in extrapol_dpelmain()
H A Dextrapolate_d_v_simplemain.c29 void extrapolate_d_v_simplemain(ITG *nface,ITG *ielfa,double *xrlfa,double *adv, in extrapolate_d_v_simplemain() argument
44 ielfa1=ielfa,xrlfa1=xrlfa;adv1=adv;advfa1=advfa;hfa1=hfa; in extrapolate_d_v_simplemain()
H A Dapplympc_dpel.f19 subroutine applympc_dpel(nface,ielfa,xrlfa,vel,vfa, argument
37 real*8 xrlfa(3,*),vel(nef,0:7),vfa(0:7,*),xbounact(*),xl1,xl2, local
H A Dextrapolate_d_v_simplecmain.c30 void extrapolate_d_v_simplecmain(ITG *nface,ITG *ielfa,double *xrlfa,double *adv, in extrapolate_d_v_simplecmain() argument
46 ielfa1=ielfa,xrlfa1=xrlfa;adv1=adv;advfa1=advfa;hfa1=hfa; in extrapolate_d_v_simplecmain()
H A Dgeocfd.f20 & ielfa,area,ipnei,neiel,xxn,xxi,xle,xlen,xlet,xrlfa,cosa, argument
42 & xle(*),xlen(*),xlet(*),xrlfa(3,*),cosa(*),xsj2(3),xi,et, local
446 xrlfa(2,i)=dd/xlet(index1)
447 xrlfa(1,i)=1.d0-xrlfa(2,i)
487 xrlfa(3,i)=-dd/xl13
488 xrlfa(1,i)=1.d0-xrlfa(3,i)
H A Dextrapol_pelmain.c31 void extrapol_pelmain(ITG *nface,ITG *ielfa,double *xrlfa,double *vel, in extrapol_pelmain() argument
59 ielfa1=ielfa;xrlfa1=xrlfa;vfap1=vfap;vel1=vel;ifabou1=ifabou; in extrapol_pelmain()
103 ielfa1=ielfa;xrlfa1=xrlfa;icyclic1=icyclic;ifatie1=ifatie;gradpfa1=gradpfa; in extrapol_pelmain()
171 ielfa1=ielfa;xrlfa1=xrlfa;icyclic1=icyclic;ifatie1=ifatie;gradpfa1=gradpfa; in extrapol_pelmain()
H A Drhspcomp.f23 & ntmat_,vel,nactdohinv,xrlfa,flux,nefa,nefb,iau6,xxicn, argument
49 & xrlfa(3,*),gamma(*),flux(*),xxicn(3,*) local
H A Dextrapol_oelmain.c32 void extrapol_oelmain(ITG *nface,ITG *ielfa,double *xrlfa,double *vel, in extrapol_oelmain() argument
62 ielfa1=ielfa;xrlfa1=xrlfa;vfap1=vfap;vel1=vel;ifabou1=ifabou; in extrapol_oelmain()
107 ielfa1=ielfa;xrlfa1=xrlfa;icyclic1=icyclic;ifatie1=ifatie;gradofa1=gradofa; in extrapol_oelmain()
192 ielfa1=ielfa;xrlfa1=xrlfa;icyclic1=icyclic;ifatie1=ifatie;gradofa1=gradofa; in extrapol_oelmain()
H A Dextrapol_velmain.c31 void extrapol_velmain(ITG *nface,ITG *ielfa,double *xrlfa,double *vel, in extrapol_velmain() argument
56 ielfa1=ielfa;xrlfa1=xrlfa;icyclic1=icyclic;ifatie1=ifatie;vfap1=vfap; in extrapol_velmain()
101 ielfa1=ielfa;xrlfa1=xrlfa;icyclic1=icyclic;ifatie1=ifatie;gradvfa1=gradvfa; in extrapol_velmain()
187 ielfa1=ielfa;xrlfa1=xrlfa;icyclic1=icyclic;ifatie1=ifatie;gradvfa1=gradvfa; in extrapol_velmain()
H A Dextrapol_kelmain.c32 void extrapol_kelmain(ITG *nface,ITG *ielfa,double *xrlfa,double *vel, in extrapol_kelmain() argument
61 ielfa1=ielfa;xrlfa1=xrlfa;vfap1=vfap;vel1=vel;ifabou1=ifabou; in extrapol_kelmain()
105 ielfa1=ielfa;xrlfa1=xrlfa;icyclic1=icyclic;ifatie1=ifatie;gradkfa1=gradkfa; in extrapol_kelmain()
190 ielfa1=ielfa;xrlfa1=xrlfa;icyclic1=icyclic;ifatie1=ifatie;gradkfa1=gradkfa; in extrapol_kelmain()

12