| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | identifytiedface.f | 26 character*81 tieset(3,*),slavset,set(*) local
34 slavset=tieset(2,i)
35 ipos=index(slavset,' ')
36 slavset(ipos:ipos)='T'
40 call cident81(set,slavset,nset,id)
43 if(slavset.eq.set(id)) then
48 slavset(ipos:ipos)='S'
54 call cident81(set,slavset,nset,id)
57 if(slavset.eq.set(id)) then
65 & slavset
|
| H A D | allocont.f | 35 character*81 tieset(3,*),mastset,set(*),slavset local
136 slavset=tieset(2,i)
137 ipos=index(slavset,' ')-1
138 if(slavset(ipos:ipos).eq.'T') then
144 elseif(slavset(ipos:ipos).eq.'M') then
150 elseif(slavset(ipos:ipos).eq.'P') then
156 elseif(slavset(ipos:ipos).eq.'G') then
181 call cident81(set,slavset,nset,id)
184 if(slavset.eq.set(id)) then
192 & slavset(1:ipos-1)
[all …]
|
| H A D | nortanslav.f | 44 character*81 tieset(3,*),slavset,set(*) local
110 slavset=tieset(2,i)
111 ipos=index(slavset,' ')
112 if(slavset(ipos-1:ipos-1).eq.'S') cycle
117 if(set(j)(1:ipos-2).eq.slavset(1:ipos-2)) exit
121 & slavset
|
| H A D | nodestiedface.f | 29 character*81 tieset(3,*),slavset,set(*) local
76 slavset=tieset(2,i)
80 call cident81(set,slavset,nset,id)
83 if(slavset.eq.set(id)) then
|
| H A D | findsurface.f | 28 character*81 tieset(3,*),slavset
59 slavset=tieset(2,m)
63 ipos=index(slavset,' ')-1
64 if(slavset(ipos:ipos).eq.'S') then
|
| H A D | tiefaccont.f | 38 character*81 tieset(3,*),slavset,mastset,set(*)
107 slavset=tieset(2,i)
111 ipos=index(slavset,' ')-1
116 if(slavset(ipos:ipos).eq.'S') then
125 call cident81(set,slavset,nset,id)
128 if(slavset.eq.set(id)) then
134 if((set(j)(1:ipos-1).eq.slavset(1:ipos-1)).and.
|
| H A D | createmddof.f | 38 character*81 tieset(3,*),rightset,set(*),slavset,noset,prset(*) local
388 slavset=tieset(2,i)
392 ipos=index(slavset,' ')-1
397 if(slavset(ipos:ipos).eq.'S') then
414 call cident81(set,slavset,nset,id)
417 if(slavset.eq.set(id)) then
423 if((set(j)(1:ipos-1).eq.slavset(1:ipos-1)).and.
|
| H A D | gentiedmpc.f | 33 character*81 tieset(3,*),slavset,set(*) local
152 slavset=tieset(2,i)
166 call cident81(set,slavset,nset,id)
169 if(slavset.eq.set(id)) then
|
| H A D | topocfd.f | 32 character*81 set(*),noset,tieset(3,*),slavset,mastset local
334 slavset=tieset(2,itie)
341 call cident81(set,slavset,nset,id)
344 if(slavset.eq.set(id)) then
|
| H A D | adjustcontactnodes.f | 30 character*81 tieset(3,*),slavset,set(*),noset local
81 slavset=tieset(2,i)
|
| H A D | genfirstactif.f | 43 character*81 tieset(3,*),slavset,set(*),noset
72 slavset=tieset(2,i)
|
| H A D | gendualcoeffs.f | 49 character*81 tieset(3,*),slavset local
77 slavset=tieset(2,i)
78 ipos=index(slavset,' ')
79 if(slavset(ipos-1:ipos-1).eq.'S') cycle
|
| H A D | allocation.f | 49 character*81 set(*),noset,elset,slavset,mastset,noelset,submset, local
2421 slavset=textpart(1)(1:80)
2422 slavset(81:81)=' '
2423 iposs=index(slavset,' ')
2424 slavsets=slavset
2426 slavsett=slavset
2492 write(*,*) ' slave set:',slavset(1:iposs-1)
|
| H A D | gencontelem_n2f.f | 34 character*81 tieset(3,*),slavset,set(*),noset,setname local
158 slavset=tieset(2,i)
|