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

Go to the source code of this file.

Functions/Subroutines

subroutine c_ibcscyc (ibcscyc, lbcscyc, proc, nbcscyc_l, llcyc_l)

Function/Subroutine Documentation

◆ c_ibcscyc()

subroutine c_ibcscyc ( integer, dimension(4,*) ibcscyc,
integer, dimension(2,*) lbcscyc,
integer proc,
integer nbcscyc_l,
integer llcyc_l )

Definition at line 30 of file c_ibcscyc.F.

31C-----------------------------------------------
32C M o d u l e s
33C-----------------------------------------------
34C-----------------------------------------------
35C I m p l i c i t T y p e s
36C-----------------------------------------------
37#include "implicit_f.inc"
38C-----------------------------------------------
39C C o m m o n B l o c k s
40C-----------------------------------------------
41#include "com04_c.inc"
42C-----------------------------------------------
43C D u m m y A r g u m e n t s
44C-----------------------------------------------
45 INTEGER IBCSCYC(4,*),LBCSCYC(2,*),PROC ,NBCSCYC_L,LLCYC_L
46C-----------------------------------------------
47C F u n c t i o n
48C-----------------------------------------------
49 INTEGER NLOCAL
50 EXTERNAL nlocal
51C-----------------------------------------------
52C L o c a l V a r i a b l e s
53C-----------------------------------------------
54 INTEGER I, J, K, NSN, ILP, N,P,M,NS,PROC1,N1,N2,LLCYC_L0
55
56C-----------------------------------------------
57 nbcscyc_l = 0
58C
59 proc1 = proc + 1
60 llcyc_l = 0
61 DO i = 1, nbcscyc
62 nsn = ibcscyc(3,i)
63 k = ibcscyc(1,i)
64 llcyc_l0 = llcyc_l
65 DO j = 1, nsn
66 n1 = lbcscyc(1,k+j)
67 n2 = lbcscyc(2,k+j)
68 IF(nlocal(n1,proc1)==1.AND.nlocal(n2,proc1)==1) llcyc_l = llcyc_l + 1
69 ENDDO
70C
71 IF (llcyc_l>llcyc_l0) nbcscyc_l = nbcscyc_l+1
72 ENDDO
73C print *,'NBCSCYC_L,LLCYC_L,proc=',NBCSCYC_L,LLCYC_L,proc1
74C --------------------------------
75 RETURN
integer function nlocal(n, p)
Definition ddtools.F:349