| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | applyboun.f | 98 ifabou(-ielfa(2,ifa)+j)=iboun
142 ifabou(-ielfa(2,ifa)+j)=-mpc
161 ifabou(-ielfa(2,ifa)+6)=id
214 if((ifabou(indexb+1).eq.0).or.
215 & (ifabou(indexb+2).eq.0).or.
216 & (ifabou(indexb+3).eq.0)) then
225 ifabou(indexb+5)=id
260 if((ifabou(indexb+1).ne.0).and.
261 & (ifabou(indexb+2).ne.0).and.
262 & (ifabou(indexb+3).ne.0).and.
[all …]
|
| H A D | extrapol_vel1.f | 20 & c,ifabou,xbounact,ipnei,xxn,nef,nfacea,nfaceb,ncfd) argument
27 integer ielfa(4,*),icyclic,ifatie(*),ifabou(*),ipnei(*),nfacea, local
74 if(ifabou(ipointer+1).gt.0) then
78 vfap(1,i)=xbounact(ifabou(ipointer+1))
88 if(ifabou(ipointer+2).gt.0) then
92 vfap(2,i)=xbounact(ifabou(ipointer+2))
102 if(ifabou(ipointer+3).gt.0) then
106 vfap(3,i)=xbounact(ifabou(ipointer+3))
116 if(ifabou(ipointer+5).lt.0) then
|
| H A D | correctflux.f | 20 & vel,alet,ielfa,ale,ifabou,nefa,nefb,xxnj,gradpcfa) argument
28 & iel,ifa,ifabou(*),indexb,nefa,nefb local
52 if(((ifabou(indexb+1).eq.0).or.
53 & (ifabou(indexb+2).eq.0).or.
54 & (ifabou(indexb+3).eq.0)).and.
55 & (ifabou(indexb+4).ne.0)) then
|
| H A D | mafillp.f | 20 & advfa,xlet,cosa,volume,au,ad,jq,irow,ap,ielfa,ifabou,xle,
32 & ifabou(*),neq,jq(*),iel2,indexb,indexf2,
57 if(((ifabou(indexb+1).eq.0).or.
58 & (ifabou(indexb+2).eq.0).or.
59 & ( ifabou(indexb+3).eq.0)).and.
60 & (ifabou(indexb+4).ne.0)) then
|
| H A D | extrapol_oel1.f | 19 subroutine extrapol_oel1(ielfa,xrlfa,vfap,vel,ifabou, argument
26 integer ielfa(4,*),ifabou(*),nfacea,nfaceb,nef,i,iel1,iel2,
55 if(ifabou(ipointer+5).gt.0) then
59 vfap(7,i)=dy(ifabou(ipointer+5))*umfa(i)/vfa(5,i)
61 & (ifabou(ipointer+5).lt.0)) then
|
| H A D | extrapol_vel4.f | 19 subroutine extrapol_vel4(ielfa,vfa,vfap,gradvfa,rf,ifabou, argument
29 integer ielfa(4,*),ifabou(*),ipnei(*),nef,nfacea,nfaceb,i,j, local
59 if(ifabou(ipointer+1).gt.0) then
69 if(ifabou(ipointer+2).gt.0) then
79 if(ifabou(ipointer+3).gt.0) then
89 if(ifabou(ipointer+5).lt.0) then
|
| H A D | mafillk.f | 21 & body,volume,ielfa,lakonf,ifabou,nbody,neq, argument
36 & ipointer,ifabou(*),nbody,neq,indexb,nactdohinv(*), local
119 if(((ifabou(indexb+1).ne.0).and.
120 & (ifabou(indexb+2).ne.0).and.
121 & (ifabou(indexb+3).ne.0)).or.
166 if((ifabou(ipointer+5).ne.0).or.
167 & (ifabou(ipointer+1).ne.0).or.
168 & (ifabou(ipointer+2).ne.0).or.
169 & (ifabou(ipointer+3).ne.0)) then
|
| H A D | mafillo.f | 21 & body,volume,ielfa,lakonf,ifabou,nbody,neq, argument
36 & ipointer,ifabou(*),nbody,neq,indexb,nactdohinv(*), local
105 if(((ifabou(indexb+1).ne.0).and.
106 & (ifabou(indexb+2).ne.0).and.
107 & (ifabou(indexb+3).ne.0)).or.
152 if((ifabou(ipointer+5).ne.0).or.
153 & (ifabou(ipointer+1).ne.0).or.
154 & (ifabou(ipointer+2).ne.0).or.
155 & (ifabou(ipointer+3).ne.0)) then
|
| H A D | extrapol_tel1.f | 19 subroutine extrapol_tel1(ielfa,xrlfa,vfap,vel,ifabou,xbounact, argument
31 integer ielfa(4,*),ifabou(*),nfacea,nfaceb,nef,i,iel1,iel2 local
51 if(ifabou(-iel2).gt.0) then
55 vfap(0,i)=xbounact(ifabou(-iel2))
|
| H A D | extrapol_dpel1.f | 19 subroutine extrapol_dpel1(ielfa,xrlfa,vfap,vel,ifabou, argument
27 integer ielfa(4,*),ifabou(*),nfacea,nfaceb,nef,i,iel1,iel2, local
50 if(ifabou(-iel2+4).gt.0) then
51 ibou=ifabou(-iel2+4)
|
| H A D | extrapol_pel1.f | 19 subroutine extrapol_pel1(ielfa,xrlfa,vfap,vel,ifabou,xbounact, argument
26 integer ielfa(4,*),ifabou(*),nfacea,nfaceb,nef,i,iel1,iel2, local
49 if(ifabou(-iel2+4).gt.0) then
50 ibou=ifabou(-iel2+4)
|
| H A D | extrapol_kel1.f | 19 subroutine extrapol_kel1(ielfa,xrlfa,vfap,vel,ifabou, argument
26 integer ielfa(4,*),ifabou(*),nfacea,nfaceb,nef,i,iel1,iel2,
55 if(ifabou(ipointer+5).gt.0) then
61 & (ifabou(ipointer+5).lt.0)) then
|
| H A D | extrapol_pel4.f | 19 subroutine extrapol_pel4(ielfa,vfa,vfap,gradpfa,rf,ifabou, argument
29 integer ielfa(4,*),ifabou(*),ipnei(*),nef,nfacea,nfaceb,i,indexf, local
55 if(ifabou(-iel2+4).gt.0) then
56 ibou=ifabou(-iel2+4)
|
| H A D | extrapol_kel4.f | 19 subroutine extrapol_kel4(ielfa,vfa,vfap,gradkfa,rf,ifabou, argument
32 integer ielfa(4,*),ifabou(*),nfacea,nfaceb,nef,i,iel1,iel2,
58 if(ifabou(ipointer+5).gt.0) then
64 & (ifabou(ipointer+5).lt.0)) then
|
| H A D | extrapol_oel4.f | 19 subroutine extrapol_oel4(ielfa,vfa,vfap,gradofa,rf,ifabou, argument
32 integer ielfa(4,*),ifabou(*),nfacea,nfaceb,nef,i,iel1,iel2, local
58 if(ifabou(ipointer+5).gt.0) then
64 & (ifabou(ipointer+5).lt.0)) then
|
| H A D | mafillpcomp.f | 20 & advfa,xlet,cosa,volume,au,ad,jq,irow,ap,ielfa,ifabou,xle, argument
40 & ifabou(*),neq,jq(*),indexb, local
79 if((ifabou(indexb+4).eq.0).and.
80 & (ifabou(indexb+5).eq.0)) then
109 & (ifabou(indexb+4).eq.0)) then
137 & (ifabou(indexb+4).ne.0)) then
|
| H A D | extrapol_tel3.f | 20 & gradtel,c,ipnei,xxi,ifabou,xxn,xload,nfacea,nfaceb,ncfd)
28 & iel1,iel2,i,l,indexf,ifabou(*),ncfd
72 if(ifabou(-iel2).gt.0) then
86 if(ifabou(-iel2+6).eq.0) then
89 q=xload(1,ifabou(-iel2+6))
|
| H A D | applympc.f | 19 subroutine applympc(nface,ielfa,is,ie,ifabou,ipompc,vfa,coefmpc, argument
28 integer i,j,nface,ielfa(4,*),ipointer,is,ie,ifabou(*),mpc, local
42 if(ifabou(ipointer+j).ge.0) cycle
43 mpc=-ifabou(ipointer+j)
|
| H A D | mafillt.f | 21 & body,volume,ielfa,lakonf,ifabou,nbody,neq, argument
36 & ipointer,ifabou(*),nbody,neq,indexb,nactdohinv(*), local
81 if((ifabou(indexb).ne.0).or.
133 if(ifabou(ipointer+6).gt.0) then
137 b(i)=b(i)-xload(1,ifabou(ipointer+6))
144 elseif(ifabou(ipointer).ne.0) then
|
| H A D | applympc_dpel.f | 20 & ifabou,xbounact,nef,gradpcel,gradpcfa,neifa,rf,area,volume, argument
32 integer nface,ielfa(4,*),ifabou(*),i,iel1,iel2,nef,ibou, local
51 if(ifabou(ipointer+4).ge.0) cycle
52 mpc=-ifabou(ipointer+4)
|
| H A D | cataloguenodes.f | 19 subroutine cataloguenodes(ipofano,ifano,ifreefa,ielfa,ifabou, argument
29 & ifabou(*),iel,indexe,ipkon(*),k,node,ifaceq(8,6),nface,i,j, local
59 if(ifabou(-indexb+5).gt.0) then
122 if((ifabou(-indexb+1).ne.0).and.
123 & (ifabou(-indexb+2).ne.0).and.
124 & (ifabou(-indexb+3).ne.0)) then
187 if(ifabou(-indexb+4).ne.0) then
250 if(ifabou(-indexb+5).lt.0) then
|
| H A D | mafilltcomp.f | 21 & body,volume,ielfa,lakonf,ifabou,nbody,neq, argument
36 & ipointer,ifabou(*),nbody,neq,indexb,nactdohinv(*), local
80 if((ifabou(indexb).ne.0).or.
132 if(ifabou(ipointer+6).gt.0) then
136 b(i)=b(i)-xload(1,ifabou(ipointer+6))
139 elseif(ifabou(ipointer).ne.0) then
|
| H A D | extrapol_tel4.f | 19 subroutine extrapol_tel4(ielfa,vfa,vfap,gradtfa,rf,ifabou, argument
32 integer ielfa(4,*),ifabou(*),nfacea,nfaceb,nef,i,iel1,iel2, local
56 if(ifabou(-iel2).gt.0) then
|
| H A D | correctfluxcomp.f | 20 & area,vel,alet,ielfa,ale,ifabou,ielmatf,mi,shcon, argument
35 & iel,ifa,ifabou(*),mi(*),ielmatf(mi(3),*),ntmat_,imat,indexb, local
74 if(ifabou(indexb+4).ne.0) then
122 & (ifabou(indexb+4).eq.0)) then
|
| H A D | extrapol_telmain.c | 32 double *vfa,ITG *ifabou,double *xbounact,ITG *nef, in extrapol_telmain() argument
58 ielfa1=ielfa;xrlfa1=xrlfa;vfap1=vfap;vel1=vel;ifabou1=ifabou; in extrapol_telmain()
77 FORTRAN(applympc,(nface,ielfa,&is,&ie,ifabou,ipompc,vfap,coefmpc, in extrapol_telmain()
103 gradtel1=gradtel;c1=c;ipnei1=ipnei;xxi1=xxi;ifabou1=ifabou;xxn1=xxn; in extrapol_telmain()
140 ielfa1=ielfa;vfa1=vfa;vfap1=vfap;gradtfa1=gradtfa;rf1=rf;ifabou1=ifabou; in extrapol_telmain()
159 FORTRAN(applympc,(nface,ielfa,&is,&ie,ifabou,ipompc,vfa,coefmpc, in extrapol_telmain()
189 gradtel1=gradtel;c1=c;ipnei1=ipnei;xxi1=xxi;ifabou1=ifabou;xxn1=xxn; in extrapol_telmain()
226 ielfa1=ielfa;vfa1=vfa;vfap1=vfap;gradtfa1=gradtfa;rf1=rf;ifabou1=ifabou; in extrapol_telmain()
245 FORTRAN(applympc,(nface,ielfa,&is,&ie,ifabou,ipompc,vfa,coefmpc, in extrapol_telmain()
|