| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | loadadd.f | 19 subroutine loadadd(nelement,label,value,nelemload,sideload, argument
26 character*20 label,sideload(*)
42 if (sideload(id).eq.label) then
76 elseif(sideload(id).lt.label) then
109 sideload(j)=sideload(j-1)
123 sideload(id+1)=label
|
| H A D | e_c3d_rhs.f | 39 character*20 sideload(*) local
177 if((sideload(id)(1:2).ne.'BX').and.
178 & (sideload(id)(1:2).ne.'BY').and.
179 & (sideload(id)(1:2).ne.'BZ')) then
297 if(sideload(id)(3:4).eq.'NU') then
323 if(sideload(id)(1:2).eq.'BX')
325 if(sideload(id)(1:2).eq.'BY')
328 if(sideload(id)(1:2).eq.'BZ')
400 if(sideload(id)(1:1).ne.'P') then
404 read(sideload(id)(2:2),'(i1)') ig
[all …]
|
| H A D | addizdofdload.f | 19 subroutine addizdofdload(nelemload,sideload,ipkon,kon,lakon, argument
29 character*20 sideload(*) local
56 if(sideload(iload)(1:1).eq.'P') then
57 read(sideload(iload)(2:2),'(i1)') ig
99 if(sideload(iload)(3:4).eq.'NU') then
112 elseif(sideload(iload)(1:1).eq.'B') then
140 if(sideload(iload)(3:4).eq.'NU') then
|
| H A D | loadaddp.f | 19 subroutine loadaddp(nelement,label,nelemload,sideload, argument
26 character*20 label,sideload(*) local
42 if(sideload(id).eq.label) then
80 sideload(j)=sideload(j-1)
93 sideload(id+1)=label
|
| H A D | addimdnodedload.f | 19 subroutine addimdnodedload(nelemload,sideload,ipkon,kon,lakon, argument
30 character*20 sideload(*) local
60 if((sideload(iload)(1:1).eq.'P').and.
61 & (sideload(iload)(3:4).eq.'NU')) then
62 read(sideload(iload)(2:2),'(i1)') ig
99 if(sideload(iload)(3:4).eq.'NU') then
121 elseif((sideload(iload)(1:1).eq.'B').and.
122 & (sideload(iload)(3:4).eq.'NU')) then
|
| H A D | loadaddt.f | 20 & sideload,xload,nload,nload_,iamload,iamptemp, argument
27 character*20 label,sideload(*) local
43 if(sideload(id).eq.label) then
85 sideload(j)=sideload(j-1)
98 sideload(id+1)=label
|
| H A D | genadvecelem.f | 20 & sideload,nelemload,nkon,network)
28 character*20 sideload(*)
98 if((sideload(i)(1:1).eq.'F').and.
99 & (sideload(i)(3:4).eq.'FC')) then
114 read(sideload(i)(2:2),'(i1)') jface
186 sideload(nload)=' '
190 sideload(i)(1:1)=' '
|
| H A D | e_c3d_rhs_th.f | 21 & sideload,xload,nload,idist,dtime, argument
36 character*20 sideload(*) local
153 if(sideload(id)(1:2).ne.'BF') then
277 if(sideload(id)(1:2).ne.'BF') then
317 if((sideload(id)(1:1).ne.'F').and.
318 & (sideload(id)(1:1).ne.'R').and.
319 & (sideload(id)(1:1).ne.'S')) then
323 read(sideload(id)(2:2),'(i1)') ig
421 if(sideload(id)(3:4).eq.'NU') then
430 if(sideload(id)(1:1).eq.'S') then
[all …]
|
| H A D | identifytransform.f | 19 subroutine identifytransform(nelement,label,nelemload,sideload, argument
27 character*20 label,sideload(*) local
42 if (sideload(id).eq.label) then
44 elseif(sideload(id).lt.label) then
|
| H A D | e_c3d_th.f | 22 & sideload,xload,nload,idist,iexpl,dtime, argument
48 character*20 sideload(*) local
597 if((sideload(id)(1:1).ne.'F').and.
598 & (sideload(id)(1:1).ne.'R').and.
599 & (sideload(id)(1:1).ne.'S')) then
604 ig=ichar(sideload(id)(2:2))-48
674 if((sideload(id)(1:1).eq.'R').and.
675 & (sideload(id)(3:4).ne.'CR').and.
742 if((sideload(id)(3:4).eq.'NU').or.
743 & (sideload(id)(5:6).eq.'NU')) then
[all …]
|
| H A D | dfluxs.f | 20 & ialset,nset,nelemload,sideload,xload,nload,nload_, argument
34 character*20 sideload(*),label local
63 if((sideload(j)(1:1).eq.'S').or.
64 & (sideload(j)(1:2).eq.'BF')) then
65 sideload(j)(3:4)=' '
206 call loadadd(l,label,xmagnitude,nelemload,sideload,
287 call loadadd(l,label,xmagnitude,nelemload,sideload,
296 & sideload,xload,nload,nload_,
|
| H A D | applyboun.f | 20 & nboun,typeboun,nelemload,nload,sideload,isolidsurf,nsolidsurf, argument
32 character*20 sideload(*),labmpc(*) local
154 if(sideload(id)(1:1).eq.'S') then
155 read(sideload(id)(2:2),'(i1)') ig
182 if(sideload(id)(1:1).eq.'M') then
183 read(sideload(id)(2:2),'(i1)') ig
|
| H A D | advecforc.f | 20 & nload,lakon,xload,istep,time,ttime,dtime,sideload,vold,mi, argument
32 character*20 sideload(*),sideloadl local
95 ig=ichar(sideload(id)(2:2))-48
181 if((sideload(id)(3:4).eq.'NU').or.
182 & (sideload(id)(5:6).eq.'NU')) then
189 jltyp=ichar(sideload(id)(2:2))-38
191 sideloadl=sideload(id)
|
| H A D | gasmechbc.f | 19 subroutine gasmechbc(vold,nload,sideload, argument
24 character*20 sideload(*) local
36 if(sideload(i)(3:4).eq.'NP') then
|
| H A D | advecstiff.f | 20 & nload,lakon,xload,istep,time,ttime,dtime,sideload,vold,mi, argument
32 character*20 sideload(*),sideloadl local
89 read(sideload(id)(2:2),'(i1)') ig
175 if((sideload(id)(3:4).eq.'NU').or.
176 & (sideload(id)(5:6).eq.'NU')) then
183 read(sideload(id)(2:2),'(i1)') jltyp
186 sideloadl=sideload(id)
|
| H A D | radmatrix.f | 26 subroutine radmatrix(ntr,adrad,aurad,bcr,sideload,nelemload, argument
35 character*20 sideload(*)
85 read(sideload(i)(2:2),'(i1)') ig
189 read(sideload(i)(2:2),'(i1)') jltyp
191 if(sideload(i)(5:6).ne.'NU') then
256 if(sideload(i)(5:6).eq.'NU') then
268 & sideload(i),node,areaj,vold,mi,iemchange)
276 if(sideload(i)(5:6).eq.'NU') then
|
| H A D | flowresult.f | 19 subroutine flowresult(ntg,itg,cam,vold,v,nload,sideload, argument
25 character*20 sideload(*) local
111 if(sideload(i)(3:4).eq.'FC') then
120 if(sideload(i)(3:4).eq.'NP') then
|
| H A D | massflows.f | 20 & ialset,nset,nelemload,sideload,xload,nload,nload_,iamload, argument
32 character*20 sideload(*),label local
111 call loadadd(l,label,xmagnitude,nelemload,sideload,
180 call loadadd(l,label,xmagnitude,nelemload,sideload,
189 & sideload,xload,nload,nload_,
|
| H A D | dloads.f | 20 & ialset,nset,nelemload,sideload,xload,nload,nload_, argument
35 character*20 sideload(*),label local
71 if(sideload(j)(1:1).eq.'P') then
72 sideload(j)(3:4)=' '
393 call loadadd(l,label,xxmagnitude,nelemload,sideload,
397 call loadaddp(l,label,nelemload,sideload,
526 & sideload,xload,nload,nload_,iamload,
530 & sideload,xload,nload,nload_,iamload,
562 & sideload,xload,nload,nload_,
566 & sideload,xload,nload,nload_,
|
| H A D | printoutebhe.f | 22 & nelemload,nload,sideload,xload,rhcon,nrhcon,ntmat_,ipobody, argument
31 character*20 sideload(*) local
99 & sideload,nload,nelemload,xload,bhetot,
108 & sideload,nload,nelemload,xload,bhetot,
118 & sideload,nload,nelemload,xload,bhetot,
|
| H A D | films.f | 20 & ialset,nset,nelemload,sideload,xload,nload,nload_,
33 character*20 sideload(*),label
63 if(sideload(j)(1:1).eq.'F') then
64 sideload(j)(3:4)=' '
299 call loadaddt(l,label,xmagfilm,xmagtemp,nelemload,sideload,
377 & sideload,xload,nload,nload_,iamload,
385 & sideload,xload,nload,nload_,iamload,
|
| H A D | e_c3d_v1rhs.f | 37 character*20 sideload(*)
543 if(sideload(id)(1:2).ne.'BF') then
547 if(sideload(id)(3:4).eq.'NU') then
706 if((sideload(id)(1:1).ne.'F').and.
707 & (sideload(id)(1:1).ne.'R').and.
708 & (sideload(id)(1:1).ne.'S')) then
712 igl=ichar(sideload(id)(2:2))-48
948 if((sideload(id)(3:4).eq.'NU').or.
975 jltyp=ichar(sideload(id)(2:2))-48
977 if(sideload(id)(1:1).eq.'S') then
[all …]
|
| H A D | radiates.f | 20 & ialset,nset,nelemload,sideload,xload,nload,nload_,
34 character*20 sideload(*),label
76 if(sideload(j)(1:1).eq.'R') then
77 sideload(j)(3:4)=' '
322 call loadaddt(l,label,xmagradi,xmagtemp,nelemload,sideload,
400 & sideload,xload,nload,nload_,iamload,
408 & sideload,xload,nload,nload_,iamload,
|
| H A D | resultsprint.f | 25 & nshcon,cocon,ncocon,ntmat_,sideload,icfd,inomat,pslavsurf, argument
46 character*20 sideload(*),labmpc(*) local
115 & nelemload,nload,sideload,xload,rhcon,nrhcon,ntmat_,ipobody,
403 if((sideload(i)(3:4).ne.'FC').and.
404 & (sideload(i)(3:4).ne.'NP')) cycle
411 if((node.gt.0).and.(sideload(i)(1:1).ne.' ')) then
422 if((sideload(i)(3:4).ne.'CR')) cycle
429 if((node.gt.0).and.(sideload(i)(1:1).ne.' ')) then
|
| H A D | ufaceload.f | 20 & nelemload,sideload,nload,ne,nk) argument
46 character*20 sideload(*) local
|