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

Go to the source code of this file.

Functions/Subroutines

subroutine w_segquadfr (segquadfr, cep, p, cel, nsegquadfr_l, len_ia)

Function/Subroutine Documentation

◆ w_segquadfr()

subroutine w_segquadfr ( integer, dimension(2,*) segquadfr,
integer, dimension(*) cep,
integer p,
integer, dimension(*) cel,
integer nsegquadfr_l,
integer len_ia )

Definition at line 29 of file w_segquadfr.F.

31C-----------------------------------------------
32C I m p l i c i t T y p e s
33C-----------------------------------------------
34#include "implicit_f.inc"
35#include "com01_c.inc"
36C-----------------------------------------------
37C D u m m y A r g u m e n t s
38C-----------------------------------------------
39 INTEGER SEGQUADFR(2,*), CEP(*), P, CEL(*), NSEGQUADFR_L, LEN_IA
40C-----------------------------------------------
41C L o c a l V a r i a b l e s
42C-----------------------------------------------
43 INTEGER I,IL
44 INTEGER FASTMP(2,NSEGQUADFR_L)
45C
46 il=0
47 DO i = 1, nsegquadfr
48 IF(cep(segquadfr(1,i))==p)THEN
49 il=il+1
50 fastmp(1,il) = cel(segquadfr(1,i))
51 fastmp(2,il) = segquadfr(2,i)
52 END IF
53 ENDDO
54C
55 CALL write_i_c(fastmp,2*nsegquadfr_l)
56 len_ia = len_ia + 2*nsegquadfr_l
57 RETURN
void write_i_c(int *w, int *len)