Searched refs:body_id2 (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | ParticleUtils.F90 | 448 INTEGER :: t,i,j,imax,body_id,body_id2,mat_id,mat_id2,bf_id,bf_id2,dim,istat local
510 body_id2 = BulkElement2 % BodyId
511 IF( body_id2 == body_id ) CYCLE
515 IF( body_id2 /= body_id ) THEN
520 Body2 => CurrentModel % Bodies(body_id2) % Values
4543 INTEGER :: i,j,k,n,imax,body_id,body_id2,mat_id,mat_id2,dim,ind local
4599 body_id2 = BulkElement2 % BodyId
4601 IF( body_id2 > CurrentModel % NumberOfBodies ) THEN
4602 PRINT *,'BodyIds:',body_id,body_id2,CurrentModel % NumberOfBodies
4606 body_id2 = 0
[all …]
|