Searched refs:mastset (Results 1 – 6 of 6) sorted by relevance
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | allocont.f | 35 character*81 tieset(3,*),mastset,set(*),slavset local 63 mastset=tieset(3,i) 70 call cident81(set,mastset,nset,id) 73 if(mastset.eq.set(id)) then 78 ipos=index(mastset,' ') 80 & mastset(1:ipos-2)
|
H A D | triangucont.f | 32 character*81 tieset(3,*),mastset,set(*) 103 mastset=tieset(3,i) 110 call cident81(set,mastset,nset,id) 113 if(mastset.eq.set(id)) then 119 & mastset
|
H A D | updatecontpen.f | 30 character*81 tieset(3,*),mastset,set(*) local 122 mastset=tieset(3,i) 126 call cident81(set,mastset,nset,id) 129 if(mastset.eq.set(id)) then 372 mastset=tieset(3,i) 379 call cident81(set,mastset,nset,id) 382 if(mastset.eq.set(id)) then 387 ipos=index(mastset,' ') 389 & mastset(1:ipos-2)
|
H A D | tiefaccont.f | 38 character*81 tieset(3,*),slavset,mastset,set(*) 528 mastset=tieset(3,i) 532 call cident81(set,mastset,nset,id) 535 if(mastset.eq.set(id)) then
|
H A D | topocfd.f | 32 character*81 set(*),noset,tieset(3,*),slavset,mastset local 335 mastset=tieset(3,itie) 353 call cident81(set,mastset,nset,id) 356 if(mastset.eq.set(id)) then
|
H A D | allocation.f | 2174 mastset(1:80)=textpart(j)(13:92) 2175 mastset(81:81)=' ' 2176 ipos=index(mastset,' ') 2177 mastset(ipos:ipos)='E' 2181 call cident81(set,mastset,nset_,id) 2184 if(set(id).eq.mastset) then 2429 mastset=textpart(2)(1:80) 2430 mastset(81:81)=' ' 2431 iposm=index(mastset,' ') 2432 mastsets=mastset [all …]
|