/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | extrapol_dpel1.f | 19 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 D | extrapol_pel1.f | 19 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 D | extrapol_vel1.f | 19 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 D | extrapol_kel1.f | 19 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 D | extrapol_oel1.f | 19 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 D | extrapolate_d_v_simple.f | 19 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 D | extrapol_tel1.f | 19 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 D | extrapol_oel3.f | 19 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 D | extrapol_kel3.f | 19 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 D | extrapol_pel3.f | 19 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 D | extrapol_dpel3.f | 19 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 D | extrapolate_d_v_simplec.f | 19 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 D | extrapol_tel3.f | 19 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 D | extrapol_vel3.f | 19 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 D | compfluid.c | 301 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 D | extrapol_dpelmain.c | 31 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 D | extrapolate_d_v_simplemain.c | 29 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 D | applympc_dpel.f | 19 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 D | extrapolate_d_v_simplecmain.c | 30 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 D | geocfd.f | 20 & 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 D | extrapol_pelmain.c | 31 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 D | rhspcomp.f | 23 & ntmat_,vel,nactdohinv,xrlfa,flux,nefa,nefb,iau6,xxicn, argument 49 & xrlfa(3,*),gamma(*),flux(*),xxicn(3,*) local
|
H A D | extrapol_oelmain.c | 32 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 D | extrapol_velmain.c | 31 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 D | extrapol_kelmain.c | 32 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()
|