Searched refs:noelset (Results 1 – 4 of 4) sorted by relevance
| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | noelsets.f | 30 character*81 set(*),noelset local
62 noelset(81:81)=' '
63 ipos=index(noelset,' ')
64 noelset(ipos:ipos)='N'
89 noelset(81:81)=' '
90 ipos=index(noelset,' ')
91 noelset(ipos:ipos)='E'
172 set(id+1)=noelset
280 noelset(81:81)=' '
319 & noelset
[all …]
|
| H A D | modelchanges.f | 31 character*81 tieset(3,*),noelset,set(*)
179 noelset=textpart(i)(1:80)
180 noelset(81:81)=' '
181 ipos=index(noelset,' ')
182 noelset(ipos:ipos)='E'
185 call cident81(set,noelset,nset,j)
187 if(noelset.eq.set(j)) then
202 if(noelset.ne.set(j)) then
203 noelset(ipos:ipos)=' '
205 & ' element set ',noelset
|
| H A D | surfaces.f | 30 character*81 set(*),noset,elset,noelset local
53 noelset(1:80)=textpart(i)(6:85)
54 noelset(81:81)=' '
84 ipos=index(noelset,' ')
90 noelset(ipos:ipos)=type
100 call cident81(set,noelset,nset,id)
102 if(set(id).eq.noelset) then
160 set(id+1)=noelset
|
| H A D | allocation.f | 1195 noelset=textpart(2)(6:85)
1196 noelset(81:81)=' '
1197 ipos=index(noelset,' ')
1198 noelset(ipos:ipos)='N'
1201 noelset=textpart(2)(7:86)
1202 noelset(81:81)=' '
1203 ipos=index(noelset,' ')
1204 noelset(ipos:ipos)='E'
1233 set(nn)=noelset
1270 noelset(81:81)=' '
[all …]
|