OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
sensor_base.F File Reference
#include "implicit_f.inc"
#include "comlock.inc"
#include "param_c.inc"
#include "com04_c.inc"
#include "userlib.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine sensor_base (sensors, nsensor, time, timestep, xsens, ipari, partsav2, gauge, fsav, x, v, a, acc, nprw, subset, igrsurf, igrnod, python)

Function/Subroutine Documentation

◆ sensor_base()

subroutine sensor_base ( type (sensors_), intent(inout) sensors,
integer, intent(in) nsensor,
intent(in) time,
intent(in) timestep,
intent(inout) xsens,
integer, dimension(npari,ninter), intent(in) ipari,
intent(in) partsav2,
intent(in) gauge,
intent(in) fsav,
intent(in) x,
intent(in) v,
intent(in) a,
intent(in) acc,
integer, dimension(*), intent(in) nprw,
type (subset_), dimension(nsubs), intent(in) subset,
type(surf_), dimension(nsurf), intent(in) igrsurf,
type(group_), dimension(ngrnod), intent(in) igrnod,
type(python_), intent(inout) python )

Definition at line 53 of file sensor_base.F.

57C-----------------------------------------------
58C M o d u l e s
59C-----------------------------------------------
60 USE python_funct_mod
61 USE sensor_python_mod
62 USE groupdef_mod
63 USE sensor_mod
64 USE message_mod
65C-----------------------------------------------
66C I m p l i c i t T y p e s
67C-----------------------------------------------
68#include "implicit_f.inc"
69#include "comlock.inc"
70C-----------------------------------------------
71C C o m m o n B l o c k s
72C-----------------------------------------------
73#include "param_c.inc"
74#include "com04_c.inc"
75#include "userlib.inc"
76C-----------------------------------------------
77C D u m m y A r g u m e n t s
78C-----------------------------------------------
79 INTEGER ,INTENT(IN) :: NSENSOR
80 INTEGER ,DIMENSION(NPARI,NINTER) ,INTENT(IN) :: IPARI
81 INTEGER ,DIMENSION(*) ,INTENT(IN) :: NPRW
82 my_real ,DIMENSION(3,NUMNOD) ,INTENT(IN) :: x,v,a
83 my_real ,DIMENSION(12,NSENSOR) ,INTENT(INOUT) :: xsens
84 my_real ,DIMENSION(LLACCELM,*) ,INTENT(IN) :: acc
85 my_real ,DIMENSION(NTHVKI,*) ,INTENT(IN) :: fsav
86 my_real ,DIMENSION(LLGAUGE,*) ,INTENT(IN) :: gauge
87 my_real ,DIMENSION(2,*) ,INTENT(IN) :: partsav2
88 my_real ,INTENT(IN) :: time,timestep
89 TYPE (SUBSET_) ,DIMENSION(NSUBS) ,INTENT(IN) :: SUBSET
90 TYPE(SURF_) ,DIMENSION(NSURF) ,INTENT(IN) :: IGRSURF
91 TYPE(GROUP_) ,DIMENSION(NGRNOD) ,INTENT(IN) :: IGRNOD
92 TYPE (SENSORS_) ,INTENT(INOUT) :: SENSORS
93 TYPE(PYTHON_), INTENT(INOUT) :: PYTHON
94C-----------------------------------------------
95C L o c a l V a r i a b l e s
96C-----------------------------------------------
97 INTEGER TYP,ISENS,SENS_ID,SIZE,STABS,SFSAV
98 CHARACTER(LEN=256) :: OPTION
99 LOGICAL :: ANY_PYTHON_SENSOR
100 INTEGER, DIMENSION(:), ALLOCATABLE :: UIDS
101 DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: RESULTS
102 INTEGER, DIMENSION(:), ALLOCATABLE :: STATUSES
103 INTEGER, DIMENSION(:), ALLOCATABLE :: TYPES
104C-----------------------------------------------
105C D e s c r i p t i o n
106C-----------------------------------------------
107C this routine checks activation condition of all basic sensor types
108C=======================================================================
109 any_python_sensor = .false.
110 stabs = sensors%STABSEN
111 sfsav = sensors%SFSAV
112c--------------------------------------------------
113c Parallel loop over sensor list
114c--------------------------------------------------
115
116!$OMP PARALLEL DO PRIVATE(ISENS,TYP)
117c--------------------------------------------------
118 DO isens = 1,nsensor
119 sensors%SENSOR_TAB(isens)%RESULTS(sensor_result_size) = zero
120 typ = sensors%SENSOR_TAB(isens)%TYPE
121C--------------------------------
122C SENSOR - TIME
123C--------------------------------
124 IF (typ == 0) THEN
125
126 CALL sensor_time(sensors%SENSOR_TAB(isens) ,time ,timestep)
127
128C--------------------------------
129C SENSOR - ACCELEROMETER
130C--------------------------------
131 ELSEIF (typ == 1) THEN
132c
133 CALL sensor_acc(sensors%SENSOR_TAB(isens) ,acc)
134c
135C--------------------------------
136C SENSOR - DISTANCE
137C--------------------------------
138 ELSEIF (typ == 2) THEN
139c
140 CALL sensor_dist(sensors%SENSOR_TAB(isens) ,x ,xsens(1,isens))
141c
142C--------------------------------
143C SENSOR - CONTACT
144C--------------------------------
145 ELSEIF (typ == 6)THEN
146 CALL sensor_contact(sensors%SENSOR_TAB(isens),
147 . ipari ,sfsav ,stabs ,sensors%TABSENSOR ,sensors%FSAV)
148
149C--------------------------------
150C SENSOR - RWALL
151C--------------------------------
152 ELSEIF(typ == 7)THEN
153
154 CALL sensor_rwall(sensors%SENSOR_TAB(isens) ,
155 . nprw ,sfsav ,stabs ,sensors%TABSENSOR ,sensors%FSAV)
156
157C--------------------------------
158C SENSOR - NODAL VELOCITY
159C--------------------------------
160 ELSEIF(typ == 9)THEN
161
162 CALL sensor_vel(sensors%SENSOR_TAB(isens),v)
163
164C--------------------------------
165C SENSOR - GAUGE
166C--------------------------------
167 ELSEIF (typ == 10) THEN
168
169 CALL sensor_gauge(sensors%SENSOR_TAB(isens) ,gauge)
170
171C--------------------------------
172C SENSOR - RBODY
173C--------------------------------
174 ELSEIF (typ == 11) THEN
175
176 CALL sensor_rbody(sensors%SENSOR_TAB(isens),sfsav ,stabs ,sensors%TABSENSOR,sensors%FSAV)
177
178
179C--------------------------------
180C SENSOR - SECTION
181C--------------------------------
182 ELSEIF (typ == 12) THEN
183
184 CALL sensor_section(sensors%SENSOR_TAB(isens),
185 . sfsav ,stabs ,sensors%TABSENSOR ,fsav ,sensors%FSAV )
186
187C--------------------------------
188C SENSOR WORK
189C--------------------------------
190 ELSEIF (typ == 13)THEN
191
192 CALL sensor_work(sensors%SENSOR_TAB(isens),x ,xsens(1,isens) ,
193 . sfsav ,stabs ,sensors%TABSENSOR ,sensors%FSAV )
194c
195c--------------------------------
196c SENSOR --- ENERGY ---
197c--------------------------------
198 ELSEIF (typ == 14) THEN
199
200 CALL sensor_energy(sensors%SENSOR_TAB(isens),isens ,subset,partsav2,
201 * sensors%NSENSOR,sensors%SENSOR_STRUCT )
202c
203c--------------------------------
204c SENSOR Distance to surface
205C--------------------------------
206 ELSEIF (typ == 15) THEN
207c
208 CALL sensor_dist_surf(sensors%SENSOR_TAB(isens) ,x ,igrsurf )
209c
210c--------------------------------
211c SENSOR HIC
212c--------------------------------
213 ELSEIF (typ == 16) THEN
214c
215 CALL sensor_hic(sensors%SENSOR_TAB(isens) ,a ,acc )
216c
217c--------------------------------
218c SENSOR TEMPERATURE
219c--------------------------------
220 ELSEIF (typ == 17) THEN
221c
222 CALL sensor_temp(sensors%SENSOR_TAB(isens) ,isens ,igrnod)
223c
224c--------------------------------
225 ELSEIF (typ == 19) THEN
226c--------------------------------
227c SENSOR NIC-Nij
228c
229 CALL sensor_nic(sensors%SENSOR_TAB(isens) )
230c
231c--------------------------------
232 ELSEIF (typ == 29) THEN
233c--------------------------------
234c USER SENSOR TYPE 29
235
236 sens_id = sensors%SENSOR_TAB(isens)%SENS_ID
237
238 IF (userl_avail==1) THEN
239 CALL eng_userlib_user_sens(typ,sens_id)
240 ELSE
241 ! ----------------
242 ! ERROR to be printed & exit
243 option='USER SENSOR 29'
244 size=len_trim(option)
245 CALL ancmsg(msgid=257,c1=option(1:size),anmode=aninfo)
246 CALL arret(2)
247 ! ----------------
248 ENDIF
249c--------------------------------
250 ELSEIF (typ == 30) THEN
251c--------------------------------
252c USER SENSOR TYPE 30
253
254 sens_id = sensors%SENSOR_TAB(isens)%SENS_ID
255
256 IF (userl_avail==1) THEN
257 CALL eng_userlib_user_sens(typ,sens_id)
258 ELSE
259 ! ----------------
260 ! ERROR to be printed & exit
261 option='USER SENSOR 30'
262 size=len_trim(option)
263 CALL ancmsg(msgid=257,c1=option(1:size),anmode=aninfo)
264 CALL arret(2)
265 ! ----------------
266 ENDIF
267c--------------------------------
268 ELSEIF (typ == 31) THEN
269c--------------------------------
270c USER SENSOR TYPE 31
271 sens_id = sensors%SENSOR_TAB(isens)%SENS_ID
272
273 IF (userl_avail==1) THEN
274 CALL eng_userlib_user_sens(typ,sens_id)
275 ELSE
276 ! ----------------
277 ! ERROR to be printed & exit
278 option='USER SENSOR 31'
279 size=len_trim(option)
280 CALL ancmsg(msgid=257,c1=option(1:size),anmode=aninfo)
281 CALL arret(2)
282 ! ----------------
283 ENDIF
284 ELSEIF (typ == sensor_type_python) THEN
285c CALL SENSOR_PYTHON(SENSORS%SENSOR_TAB(ISENS) )
286 any_python_sensor = .true.
287 ENDIF ! TYP
288c----
289 END DO ! ISENS
290c--------------------------------------------------
291c END of parallel loop
292!$OMP END PARALLEL DO
293c--------------------------------------------------
294 IF(python%NB_FUNCTS > 0) THEN
295 ALLOCATE(uids(nsensor))
296 ALLOCATE(results(sensor_result_size,nsensor))
297 ALLOCATE(statuses(nsensor))
298 ALLOCATE(types(nsensor))
299 DO isens = 1,nsensor
300 typ = sensors%SENSOR_TAB(isens)%TYPE
301 types(isens) = typ
302 uids(isens) = sensors%SENSOR_TAB(isens)%SENS_ID
303 statuses(isens) = sensors%SENSOR_TAB(isens)%STATUS
304 results(1:sensor_result_size,isens) = sensors%SENSOR_TAB(isens)%RESULTS(1:sensor_result_size)
305 END DO ! ISENS
306 CALL python_update_sensors(types,uids,statuses,results,nsensor)
307 DEALLOCATE(types)
308 DEALLOCATE(uids)
309 DEALLOCATE(results)
310 DEALLOCATE(statuses)
311 ENDIF
312 IF (any_python_sensor) THEN
313 DO isens = 1,nsensor
314 typ = sensors%SENSOR_TAB(isens)%TYPE
315 IF (typ == sensor_type_python) THEN
316 CALL sensor_python(sensors%SENSOR_TAB(isens))
317 ENDIF ! TYP
318 END DO ! ISENS
319 ENDIF
320c
321c--------------------------------------------------
322 IF (stabs > 0) sensors%FSAV(1:12,1:6,1:sfsav) = zero
323
324c-----------
325 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
groupdef_mod
Definition groupdef_mod.F:662
message_mod
Definition message_mod.F:1249
sensor_acc
subroutine sensor_acc(sensor, acc)
Definition sensor_acc.F:32
sensor_contact
subroutine sensor_contact(sensor, ipari, dimfb, stabs, tabs, fbsav6)
Definition sensor_contact.F:35
sensor_dist
subroutine sensor_dist(sensor, x, xsens)
Definition sensor_dist.F:32
sensor_dist_surf
subroutine sensor_dist_surf(sensor, x, igrsurf)
Definition sensor_dist_surf.F:34
sensor_energy
subroutine sensor_energy(sensor, isens, subset, partsav2, nsensor, sensor_struct)
Definition sensor_energy.F:33
sensor_gauge
subroutine sensor_gauge(sensor, gauge)
Definition sensor_gauge.F:32
sensor_hic
subroutine sensor_hic(sensor, accn, accel)
Definition sensor_hic.F:33
sensor_nic
subroutine sensor_nic(sensor)
Definition sensor_nic.F:33
sensor_rbody
subroutine sensor_rbody(sensor, dimfb, stabs, tabs, fbsav6)
Definition sensor_rbody.F:32
sensor_rwall
subroutine sensor_rwall(sensor, nprw, dimfb, stabs, tabs, fbsav6)
Definition sensor_rwall.F:33
sensor_section
subroutine sensor_section(sensor, dimfb, stabs, tabs, fsav, fbsav6)
Definition sensor_section.F:33
sensor_temp
subroutine sensor_temp(sensor, isens, igrnod)
Definition sensor_temp.F:32
sensor_time
subroutine sensor_time(sensor, time, timestep)
Definition sensor_time.F:33
sensor_vel
subroutine sensor_vel(sensor, v)
Definition sensor_vel.F:34
sensor_work
subroutine sensor_work(sensor, x, xsens, dimfb, stabs, tabs, fbsav6)
Definition sensor_work.F:33
ancmsg
subroutine ancmsg(msgid, msgtype, anmode, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, r1, r2, r3, r4, r5, r6, r7, r8, r9, c1, c2, c3, c4, c5, c6, c7, c8, c9, prmode)
Definition message.F:889
arret
subroutine arret(nn)
Definition arret.F:87