| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | extrapolate_d_v_simplec.f | 21 & auv,ipnei,nfacea,nfaceb,ncfd)
32 & nef,ipnei(*),indexf,nfacea,nfaceb,ncfd
50 do indexf=ipnei(iel1)+1,ipnei(iel1+1)
55 do indexf=ipnei(iel2)+1,ipnei(iel2+1)
87 do indexf=ipnei(iel1)+1,ipnei(iel1+1)
93 do indexf=ipnei(iel3)+1,ipnei(iel3+1)
109 do indexf=ipnei(iel1)+1,ipnei(iel1+1)
|
| H A D | newtincf.f | 21 & xxn,ipnei) argument
30 & nmethod,nef,indexf,ipnei(*) local
64 indexf=ipnei(i)
65 do j=1,ipnei(i+1)-ipnei(i)
97 indexf=ipnei(i)
98 do j=1,ipnei(i+1)-ipnei(i)
165 indexf=ipnei(i)
166 do j=1,ipnei(i+1)-ipnei(i)
|
| H A D | create_iau6.f | 19 subroutine create_iau6(nef,ipnei,neiel,jq,irow,nzs,iau6,lakonf) argument
28 integer nef,ipnei(*),neiel(*),jq(*),irow(*),nzs,iau6(6,*), local
34 indexf=ipnei(i)
36 do j=1,ipnei(i+1)-ipnei(i)
|
| H A D | applympc.f | 20 & nodempc,ipnei,neifa,labmpc,xbounact,nactdoh,ifaext,nfaext) argument
29 & ipompc(*),index,iel,iface,nodempc(3,*),ipnei(*),neifa(*), local
65 & *vfa(nodempc(2,index),neifa(ipnei(iel)+iface))
81 vfa(nodempc(2,index),neifa(ipnei(iel)+iface))=
82 & vfa(nodempc(2,index),neifa(ipnei(iel)+iface))-
|
| H A D | correctvel_simplec.f | 20 & ipnei,auv) argument
29 integer i,k,nef,ipnei(*),indexf local
36 do indexf=ipnei(i)+1,ipnei(i+1)
|
| H A D | calcinitialflux.f | 20 & ipnei,nef,neifa,lakonf,flux) argument
29 integer i,j,indexf,ipnei(*),ifa,nef,neifa(*),numfaces local
34 do indexf=ipnei(i)+1,ipnei(i+1)
|
| H A D | extrapol_kel2.f | 19 subroutine extrapol_kel2(ipnei,neifa,vfa,area,xxna,volume,gradkel, argument
27 integer ipnei(*),neifa(*),nefa,nefb,ifa,i,l,indexf,ncfd
41 do indexf=ipnei(i)+1,ipnei(i+1)
|
| H A D | extrapol_dpel2.f | 19 subroutine extrapol_dpel2(ipnei,neifa,vfap,area,xxna,volume, argument
27 integer ipnei(*),neifa(*),nefa,nefb,ifa,i,l,indexf,ncfd local
41 do indexf=ipnei(i)+1,ipnei(i+1)
|
| H A D | extrapol_oel2.f | 19 subroutine extrapol_oel2(ipnei,neifa,vfa,area,xxna,volume, argument
27 integer ipnei(*),neifa(*),nefa,nefb,ifa,i,l,indexf,ncfd
41 do indexf=ipnei(i)+1,ipnei(i+1)
|
| H A D | extrapol_pel2.f | 19 subroutine extrapol_pel2(ipnei,neifa,vfa,area,xxna,volume,gradpel, argument
27 integer ipnei(*),neifa(*),nefa,nefb,ifa,i,l,indexf,ncfd local
41 do indexf=ipnei(i)+1,ipnei(i+1)
|
| H A D | extrapol_tel2.f | 19 subroutine extrapol_tel2(ipnei,neifa,vfa,area,xxna,volume,gradtel, argument
27 integer ipnei(*),neifa(*),nefa,nefb,ifa,i,l,indexf,ncfd local
41 do indexf=ipnei(i)+1,ipnei(i+1)
|
| H A D | topocfd.f | 119 ipnei(i)=ifreenei
175 ifreenei2=ipnei(iel2)+j2
188 ipnei(i)=ifreenei
243 ifreenei2=ipnei(iel2)+j2
256 ipnei(i)=ifreenei
311 ifreenei2=ipnei(iel2)+j2
324 ipnei(nef+1)=ifreenei
648 neiel(ipnei(nelems)+jfaces)=nelemm
651 neij(ipnei(nelems)+jfaces)=jfacem
652 neij(ipnei(nelemm)+jfacem)=jfaces
[all …]
|
| H A D | applympc_dpel.f | 21 & xle,xxi,icyclic,xxn,ipnei,ifatie, argument
33 & neifa(*),icyclic,ifa,indexf,l,m,ipnei(*),ifatie(*), local
74 & *vfa(nodempc(2,index),neifa(ipnei(iel)+iface))
90 vfa(nodempc(2,index),neifa(ipnei(iel)+iface))=
91 & vfa(nodempc(2,index),neifa(ipnei(iel)+iface))-
|
| H A D | extrapol_velmain.c | 32 double *vfa, ITG *ifabou,double *xbounact,ITG *ipnei, in extrapol_velmain() argument
57 vel1=vel;c1=c;ifabou1=ifabou;xbounact1=xbounact;ipnei1=ipnei; in extrapol_velmain()
77 nodempc,ipnei,neifa,labmpc,xbounact,nactdoh, in extrapol_velmain()
84 ipnei1=ipnei;neifa1=neifa;vfa1=vfap;area1=area;xxna1=xxna;volume1=volume; in extrapol_velmain()
102 gradvel1=gradvel;c1=c;ipnei1=ipnei;xxi1=xxi;nface1=nface;ncfd1=ncfd; in extrapol_velmain()
118 ielfa1=ielfa;ipnei1=ipnei;vel1=vel;xlet1=xlet;gradvfa1=gradvfa;xxj1=xxj; in extrapol_velmain()
139 ipnei1=ipnei;xxn1=xxn;vel1=vel;xxi1=xxi;xle1=xle;nef1=nef;nface1=nface; in extrapol_velmain()
159 nodempc,ipnei,neifa,labmpc,xbounact,nactdoh, in extrapol_velmain()
188 gradvel1=gradvel;c1=c;ipnei1=ipnei;xxi1=xxi;nface1=nface;ncfd1=ncfd; in extrapol_velmain()
225 ipnei1=ipnei;xxn1=xxn;vel1=vel;xxi1=xxi;xle1=xle;nef1=nef;nface1=nface; in extrapol_velmain()
[all …]
|
| H A D | extrapol_vel2.f | 19 subroutine extrapol_vel2(ipnei,neifa,vfa,area,xxna,volume,gradvel, argument
27 integer ipnei(*),neifa(*),nefa,nefb,i,k,l,ifa,indexf,ncfd local
43 do indexf=ipnei(i)+1,ipnei(i+1)
|
| H A D | extrapol_pelmain.c | 36 double *xxn,ITG *ipnei,ITG *ifatie,double *coefmpc, in extrapol_pelmain() argument
79 nodempc,ipnei,neifa,labmpc,xbounact,nactdoh, in extrapol_pelmain()
86 ipnei1=ipnei;neifa1=neifa;vfa1=vfap;area1=area;xxna1=xxna;volume1=volume; in extrapol_pelmain()
104 gradpel1=gradpel;c1=c;ipnei1=ipnei;xxi1=xxi;nface1=nface;ncfd1=ncfd; in extrapol_pelmain()
124 ipnei1=ipnei;vel1=vel;xxi1=xxi;xle1=xle;nef1=nef;nface1=nface; in extrapol_pelmain()
143 nodempc,ipnei,neifa,labmpc,xbounact,nactdoh, in extrapol_pelmain()
154 ipnei1=ipnei;neifa1=neifa;vfa1=vfa;area1=area;xxna1=xxna;volume1=volume; in extrapol_pelmain()
172 gradpel1=gradpel;c1=c;ipnei1=ipnei;xxi1=xxi;nface1=nface;ncfd1=ncfd; in extrapol_pelmain()
193 ipnei1=ipnei;vel1=vel;xxi1=xxi;xle1=xle;nef1=nef;nface1=nface; in extrapol_pelmain()
212 nodempc,ipnei,neifa,labmpc,xbounact,nactdoh, in extrapol_pelmain()
|
| H A D | extrapol_oelmain.c | 36 ITG *icyclic,double *xxn,ITG *ipnei,ITG *ifatie, in extrapol_oelmain() argument
83 nodempc,ipnei,neifa,labmpc,xbounact,nactdoh, in extrapol_oelmain()
90 ipnei1=ipnei;neifa1=neifa;vfa1=vfap;area1=area;xxna1=xxna;volume1=volume; in extrapol_oelmain()
108 gradoel1=gradoel;c1=c;ipnei1=ipnei;xxi1=xxi;nface1=nface;ncfd1=ncfd; in extrapol_oelmain()
124 ielfa1=ielfa;ipnei1=ipnei;vel1=vel;xlet1=xlet;gradofa1=gradofa;xxj1=xxj; in extrapol_oelmain()
164 nodempc,ipnei,neifa,labmpc,xbounact,nactdoh, in extrapol_oelmain()
175 ipnei1=ipnei;neifa1=neifa;vfa1=vfa;area1=area;xxna1=xxna;volume1=volume; in extrapol_oelmain()
193 gradoel1=gradoel;c1=c;ipnei1=ipnei;xxi1=xxi;nface1=nface;ncfd1=ncfd; in extrapol_oelmain()
209 ielfa1=ielfa;ipnei1=ipnei;vel1=vel;xlet1=xlet;gradofa1=gradofa;xxj1=xxj; in extrapol_oelmain()
230 ipnei1=ipnei;vel1=vel;xxi1=xxi;xle1=xle;nef1=nef;nface1=nface;inlet1=inlet; in extrapol_oelmain()
[all …]
|
| H A D | extrapol_kelmain.c | 36 ITG *icyclic,double *xxn,ITG *ipnei,ITG *ifatie, in extrapol_kelmain() argument
81 nodempc,ipnei,neifa,labmpc,xbounact,nactdoh, in extrapol_kelmain()
88 ipnei1=ipnei;neifa1=neifa;vfa1=vfap;area1=area;xxna1=xxna;volume1=volume; in extrapol_kelmain()
106 gradkel1=gradkel;c1=c;ipnei1=ipnei;xxi1=xxi;nface1=nface;ncfd1=ncfd; in extrapol_kelmain()
122 ielfa1=ielfa;ipnei1=ipnei;vel1=vel;xlet1=xlet;gradkfa1=gradkfa;xxj1=xxj; in extrapol_kelmain()
162 nodempc,ipnei,neifa,labmpc,xbounact,nactdoh, in extrapol_kelmain()
173 ipnei1=ipnei;neifa1=neifa;vfa1=vfa;area1=area;xxna1=xxna;volume1=volume; in extrapol_kelmain()
191 gradkel1=gradkel;c1=c;ipnei1=ipnei;xxi1=xxi;nface1=nface;ncfd1=ncfd; in extrapol_kelmain()
207 ielfa1=ielfa;ipnei1=ipnei;vel1=vel;xlet1=xlet;gradkfa1=gradkfa;xxj1=xxj; in extrapol_kelmain()
229 ipnei1=ipnei;vel1=vel;xxi1=xxi;xle1=xle;nef1=nef;nface1=nface;inlet1=inlet; in extrapol_kelmain()
[all …]
|
| H A D | extrapol_telmain.c | 35 ITG *icyclic,double *xxn,ITG *ipnei,ITG *ifatie, in extrapol_telmain() argument
78 nodempc,ipnei,neifa,labmpc,xbounact,nactdoh, in extrapol_telmain()
103 gradtel1=gradtel;c1=c;ipnei1=ipnei;xxi1=xxi;ifabou1=ifabou;xxn1=xxn; in extrapol_telmain()
120 ielfa1=ielfa;ipnei1=ipnei;vel1=vel;xlet1=xlet;gradtfa1=gradtfa;xxj1=xxj; in extrapol_telmain()
141 ipnei1=ipnei;vel1=vel;xxi1=xxi;xle1=xle;nef1=nef;nface1=nface; in extrapol_telmain()
160 nodempc,ipnei,neifa,labmpc,xbounact,nactdoh, in extrapol_telmain()
171 ipnei1=ipnei;neifa1=neifa;vfa1=vfa;area1=area;xxna1=xxna;volume1=volume; in extrapol_telmain()
189 gradtel1=gradtel;c1=c;ipnei1=ipnei;xxi1=xxi;ifabou1=ifabou;xxn1=xxn; in extrapol_telmain()
206 ielfa1=ielfa;ipnei1=ipnei;vel1=vel;xlet1=xlet;gradtfa1=gradtfa;xxj1=xxj; in extrapol_telmain()
227 ipnei1=ipnei;vel1=vel;xxi1=xxi;xle1=xle;nef1=nef;nface1=nface; in extrapol_telmain()
[all …]
|
| H A D | correctflux.f | 19 subroutine correctflux(nef,ipnei,neifa,neiel,flux,vfa,advfa,area, argument
27 integer i,nef,indexf,ipnei(*),neifa(*),neiel(*),ielfa(4,*), local
37 do indexf=ipnei(i)+1,ipnei(i+1)
|
| H A D | compfluid.c | 457 xle,xxi,&icyclic,xxn,ipnei,ifatie, in compfluid()
528 mi,ielfa,ipnei,vel,nef,flux, in compfluid()
533 mi,ielfa,ipnei,vel,nef,flux, in compfluid()
713 nmethod,nef,lakonf,xxn,ipnei)); in compfluid()
938 ipnei,&num_cpus,&ncfd); in compfluid()
1091 xle,xxi,&icyclic,xxn,ipnei,ifatie, in compfluid()
1276 xle,xxi,&icyclic,xxn,ipnei,ifatie, in compfluid()
1375 mi,ielfa,ipnei,vel,nef,flux, in compfluid()
1380 mi,ielfa,ipnei,vel,nef,flux, in compfluid()
1470 ipnei,&betam,nef,flux)); in compfluid()
[all …]
|
| H A D | hro_ud.f | 19 subroutine hro_ud(ielfa,vel,ipnei,nef,flux,vfa,nfacea,nfaceb) argument
25 integer ielfa(4,*),i,j,indexf,ipnei(*),iel1,iel2,nef,nfacea, local
42 indexf=ipnei(iel1)+j
|
| H A D | hrk_ud.f | 19 subroutine hrk_ud(ielfa,vel,ipnei,nef,flux,vfa,nfacea,nfaceb) argument
25 integer ielfa(4,*),i,j,indexf,ipnei(*),iel1,iel2,nef,nfacea, local
42 indexf=ipnei(iel1)+j
|
| H A D | rhsp.f | 19 subroutine rhsp(nef,lakonf,ipnei,neifa,neiel,vfa,area, argument
31 integer i,nef,indexf,ipnei(*),j,neifa(*), local
42 do indexf=ipnei(i)+1,ipnei(i+1)
|
| H A D | mafillp.f | 19 subroutine mafillp(nef,lakonf,ipnei,neifa,neiel,vfa,area, argument
30 integer i,nef,indexf,ipnei(*),j,neifa(*),nefa,nefb,
41 indexf=ipnei(i)
42 do j=1,ipnei(i+1)-indexf
|