OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
tag_node_from_rbody.F File Reference
#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine tag_node_from_rbody (nrb, rbody, clause_node, ind, tagnod, rby_msn)

Function/Subroutine Documentation

◆ tag_node_from_rbody()

subroutine tag_node_from_rbody ( integer nrb,
integer, dimension(*) rbody,
integer, dimension(*) clause_node,
integer ind,
integer, dimension(*) tagnod,
integer, dimension(2,nrbody), intent(in) rby_msn )

Definition at line 30 of file tag_node_from_rbody.F.

33C-----------------------------------------------
34C M o d u l e s
35C-----------------------------------------------
36 USE message_mod
37C-----------------------------------------------
38C I m p l i c i t T y p e s
39C-----------------------------------------------
40#include "implicit_f.inc"
41C-----------------------------------------------
42C C o m m o n B l o c k s
43C-----------------------------------------------
44#include "com04_c.inc"
45C-----------------------------------------------
46C D u m m y A r g u m e n t s
47C-----------------------------------------------
48 INTEGER NRB,IND
49 INTEGER TAGNOD(*),CLAUSE_NODE(*),RBODY(*)
50 INTEGER, INTENT(IN), DIMENSION(2,NRBODY) :: RBY_MSN
51C-----------------------------------------------
52C L o c a l V a r i a b l e s
53C-----------------------------------------------
54 INTEGER I,IRB,NOD
55C=======================================================================
56!
57 DO i=1,nrb
58 irb = rbody(i)
59
60 nod = rby_msn(2,irb)
61
62 IF(tagnod(nod) == 0)THEN
63 tagnod(nod) = 1
64 ind = ind+1
65 clause_node(ind) = nod
66 ENDIF
67
68 ENDDO ! DO I=1,NRB
69!---
70 RETURN
subroutine tagnod(ix, nix, nix1, nix2, numel, iparte, tagbuf, npart)
Definition tagnod.F:29