Home
last modified time | relevance | path

Searched refs:ibounstart (Results 1 – 5 of 5) sorted by relevance

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dretainednodaldofss.f40 & nset,nboun,nboun_,istat,n,i,j,k,l,ibounstart,ibounend, local
80 read(textpart(2)(1:10),'(i10)',iostat=istat) ibounstart
88 ibounend=ibounstart
109 call bounadd(l,ibounstart,ibounend,bounval,
144 call bounadd(k,ibounstart,ibounend,bounval,
157 call bounadd(k,ibounstart,ibounend,bounval,
H A Dboundaryfs.f45 & nset,nboun,nboun_,istat,n,i,j,k,l,ibounstart,ibounend, local
147 read(textpart(3)(1:10),'(i10)',iostat=istat) ibounstart
155 ibounend=ibounstart
195 call bounaddf(l,ibounstart,ibounend,bounval,
252 call bounaddf(k,ibounstart,ibounend,bounval,
265 call bounaddf(k,ibounstart,ibounend,bounval,
H A Dcouplings.f389 ibounstart=1
395 & typeboun,co,ibounstart,ibounend)
412 if(ibounstart.lt.1) then
423 ibounend=ibounstart
440 elseif(ibounend.lt.ibounstart) then
462 & node,typeboun,co,ibounstart,ibounend)
841 if(ibounstart.lt.1) then
852 ibounend=ibounstart
862 ibounstart=max(4,ibounstart)
871 elseif(ibounend.lt.ibounstart) then
[all …]
H A Dboundarys.f41 & nset,nboun,nboun_,istat,n,i,j,k,l,ibounstart,ibounend, local
322 read(textpart(2)(1:10),'(i10)',iostat=istat) ibounstart
330 ibounend=ibounstart
378 call bounadd(l,ibounstart,ibounend,bounval,
428 call bounadd(k,ibounstart,ibounend,bounval,
457 call bounadd(k,ibounstart,ibounend,bounval,
H A Dallocation.f185 ibounend=ibounstart
194 ibound=ibounend-ibounstart+1
267 ibounend=ibounstart
276 ibound=ibounend-ibounstart+1
666 ibounend=ibounstart
675 ibounstart=max(4,ibounstart)
677 ibound=max(0,ibounend-ibounstart+1)
1554 ibounend=ibounstart
1563 ibound=ibounend-ibounstart+1
1961 ibounend=ibounstart
[all …]