Home
last modified time | relevance | path

Searched refs:mastset (Results 1 – 6 of 6) sorted by relevance

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dallocont.f35 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 Dtriangucont.f32 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 Dupdatecontpen.f30 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 Dtiefaccont.f38 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 Dtopocfd.f32 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 Dallocation.f2174 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 …]