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

Go to the source code of this file.

Functions/Subroutines

subroutine usensor_dum (ierr)
integer function get_u_numsens (idsens)
integer function get_u_sens_id (isens)
integer function set_u_sens_value (nsens, ivar, var)
integer function get_u_sens_value (nsens, ivar, var)
integer function set_u_sens_maxvalue (nsens, ivar, var)
integer function get_u_sens_fpar (nsens, ivar, var)
integer function get_u_sens_ipar (nsens, ivar, var)
integer function set_u_sens_acti (nsens)
integer function set_u_sens_deacti (nsens)
program __usensor_f__
program __usensor_f__1__
program __usensor_f__2__

Function/Subroutine Documentation

◆ __usensor_f__()

program __usensor_f__

Definition at line 483 of file usensor.F.

◆ __usensor_f__1__()

program __usensor_f__1__

Definition at line 535 of file usensor.F.

◆ __usensor_f__2__()

program __usensor_f__2__

Definition at line 596 of file usensor.F.

◆ get_u_numsens()

integer function get_u_numsens ( integer idsens)

Definition at line 49 of file usensor.F.

50C-----------------------------------------------
51C M o d u l e s
52C-----------------------------------------------
53 USE sensor_mod
54 USE user_interface_mod
55C-----------------------------------------------
56C I m p l i c i t T y p e s
57C-----------------------------------------------
58#include "implicit_f.inc"
59C-----------------------------------------------
60C C o m m o n B l o c k s
61C-----------------------------------------------
62#include "com04_c.inc"
63C-----------------------------------------------
64C D u m m y A r g u m e n t s
65C-----------------------------------------------
66 INTEGER IDSENS
67 INTEGER J,ID,ITYP
68C=======================================================================
69C
70 get_u_numsens = 0
71 IF(idsens<=0)THEN
72 RETURN
73 ENDIF
74C---
75 DO j=1,sensors%NSENSOR
76
77 id = sensors%SENSOR_TAB(j)%SENS_ID
78 ityp = sensors%SENSOR_TAB(j)%TYPE
79
80 IF(idsens==id)THEN
81 IF (ityp>=29 .AND. ityp<=31)THEN
82 get_u_numsens = j
83 RETURN
84 ENDIF
85
86 ENDIF
87
88 ENDDO
89C---
90 RETURN
id
initmumps id
Definition multiplerhs_example.m:4
get_u_numsens
integer function get_u_numsens(idsens)
Definition usensor.F:50

◆ get_u_sens_fpar()

integer function get_u_sens_fpar ( integer nsens,
integer ivar,
var )

Definition at line 288 of file usensor.F.

289C-----------------------------------------------
290C M o d u l e s
291C-----------------------------------------------
292 USE sensor_mod
293 USE user_interface_mod
294C-----------------------------------------------
295C I m p l i c i t T y p e s
296C-----------------------------------------------
297#include "implicit_f.inc"
298C-----------------------------------------------
299C C o m m o n B l o c k s
300C-----------------------------------------------
301#include "units_c.inc"
302C-----------------------------------------------
303C D u m m y A r g u m e n t s
304C-----------------------------------------------
305 INTEGER NSENS,IVAR,ITYP
306 my_real var
307C=======================================================================
308C
309
310 get_u_sens_fpar = -1
311
312 IF(ivar>nsenparr)THEN
313
314 WRITE(iout,*) ' **ERROR NUMBER OF USER PARAMETER(',ivar,') EXCEED MAXNUPARAM(',nsenparr,')'
315 WRITE(istdo,*) ' **ERROR NUMBER OF USER PARAMETER(',ivar,') EXCEED MAXNUPARAM(',nsenparr,')'
316 get_u_sens_fpar = nsenparr
317
318 RETURN
319 ENDIF
320C
321 ityp = sensors%SENSOR_TAB(nsens)%TYPE
322
323 IF ( ityp>=29 .AND. ityp<=31 )THEN
324
325 var = sensors%SENSOR_TAB(nsens)%FLOAT_USERPARAM(ivar)
326 get_u_sens_fpar = 0
327
328 ENDIF
329C---
330 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
get_u_sens_fpar
integer function get_u_sens_fpar(nsens, ivar, var)
Definition usensor.F:289

◆ get_u_sens_id()

integer function get_u_sens_id ( integer isens)

Definition at line 98 of file usensor.F.

99C-----------------------------------------------
100C M o d u l e s
101C-----------------------------------------------
102 USE sensor_mod
103 USE user_interface_mod
104C-----------------------------------------------
105C I m p l i c i t T y p e s
106C-----------------------------------------------
107#include "implicit_f.inc"
108C-----------------------------------------------
109C D u m m y A r g u m e n t s
110C-----------------------------------------------
111 INTEGER ISENS
112C=======================================================================
113 get_u_sens_id = 0
114
115 IF(isens<=0)THEN
116 RETURN
117 ENDIF
118
119 get_u_sens_id = sensors%SENSOR_TAB(isens)%SENS_ID
120C---
121 RETURN
get_u_sens_id
integer function get_u_sens_id(isens)
Definition usensor.F:99

◆ get_u_sens_ipar()

integer function get_u_sens_ipar ( integer nsens,
integer ivar,
integer var )

Definition at line 345 of file usensor.F.

346C-----------------------------------------------
347C M o d u l e s
348C-----------------------------------------------
349 USE sensor_mod
350 USE user_interface_mod
351C-----------------------------------------------
352C I m p l i c i t T y p e s
353C-----------------------------------------------
354#include "implicit_f.inc"
355C-----------------------------------------------
356C C o m m o n B l o c k s
357C-----------------------------------------------
358#include "units_c.inc"
359C-----------------------------------------------
360C D u m m y A r g u m e n t s
361C-----------------------------------------------
362 INTEGER NSENS,IVAR,VAR,ITYP
363C=======================================================================
364 get_u_sens_ipar = -1
365
366 IF(ivar>nsenpari)THEN
367
368 WRITE(iout,*) ' **ERROR NUMBER OF USER PARAMETER(',ivar,') EXCEED MAXNUPARAM(',nsenpari,')'
369 WRITE(istdo,*) ' **ERROR NUMBER OF USER PARAMETER(',ivar,') EXCEED MAXNUPARAM(',nsenpari,')'
370
371 get_u_sens_ipar = nsenpari
372
373 RETURN
374
375 ENDIF
376
377 ityp = sensors%SENSOR_TAB(nsens)%TYPE
378
379 IF (ityp>=29 .AND. ityp<=31)THEN
380
381 var = sensors%SENSOR_TAB(nsens)%INTEGER_USERPARAM(ivar)
382 get_u_sens_ipar = 0
383
384 ENDIF
385C---
386 RETURN
get_u_sens_ipar
integer function get_u_sens_ipar(nsens, ivar, var)
Definition usensor.F:346

◆ get_u_sens_value()

integer function get_u_sens_value ( integer nsens,
integer ivar,
var )

Definition at line 189 of file usensor.F.

190C-----------------------------------------------
191C M o d u l e s
192C-----------------------------------------------
193 USE sensor_mod
194 USE user_interface_mod
195C-----------------------------------------------
196C I m p l i c i t T y p e s
197C-----------------------------------------------
198#include "implicit_f.inc"
199C-----------------------------------------------
200C D u m m y A r g u m e n t s
201C-----------------------------------------------
202 INTEGER NSENS,IVAR,ITYP
203 my_real var
204C=======================================================================
205 get_u_sens_value = -1
206
207 IF(nsens==0)THEN
208 var = 0.0
209 RETURN
210 ENDIF
211
212 IF(ivar>lsenbuf-1)THEN
213 WRITE(*,*)"ERROR READING USER SENSOR / TOO MANY VARIABLES"
214 RETURN
215 ENDIF
216
217 ityp = sensors%SENSOR_TAB(nsens)%TYPE
218
219 IF (ityp>=29 .AND. ityp<=31)THEN
220
221 var = sensors%SENSOR_TAB(nsens)%FLOAT_USERBUF(ivar)
222 get_u_sens_value = 0
223
224 ENDIF
225C---
226 RETURN
get_u_sens_value
integer function get_u_sens_value(nsens, ivar, var)
Definition usensor.F:190

◆ set_u_sens_acti()

integer function set_u_sens_acti ( integer nsens)

Definition at line 394 of file usensor.F.

395C-----------------------------------------------
396C M o d u l e s
397C-----------------------------------------------
398 USE sensor_mod
399 USE user_interface_mod
400C-----------------------------------------------
401C I m p l i c i t T y p e s
402C-----------------------------------------------
403#include "implicit_f.inc"
404C-----------------------------------------------
405C C o m m o n B l o c k s
406C-----------------------------------------------
407#include "com08_c.inc"
408#include "com04_c.inc"
409C-----------------------------------------------
410C D u m m y A r g u m e n t s
411C-----------------------------------------------
412 INTEGER NSENS,ITYP
413 my_real tstart,setvar
414c========================================================================
415 set_u_sens_acti = -1
416
417
418 IF (nsens > 0 .OR. nsens <= sensors%NSENSOR ) THEN
419 ityp = sensors%SENSOR_TAB(nsens)%TYPE
420
421 IF (ityp >= 29 .AND. ityp <= 31)THEN
422
423 tstart = sensors%SENSOR_TAB(nsens)%TSTART
424 setvar = min(tt,tstart)
425
426 sensors%SENSOR_TAB(nsens)%TSTART = setvar
427 sensors%SENSOR_TAB(nsens)%STATUS = 1
428 set_u_sens_acti = 0
429
430 ENDIF
431
432 ENDIF
433C---
434 RETURN
min
#define min(a, b)
Definition macros.h:20
set_u_sens_acti
integer function set_u_sens_acti(nsens)
Definition usensor.F:395

◆ set_u_sens_deacti()

integer function set_u_sens_deacti ( integer nsens)

Definition at line 443 of file usensor.F.

444C-----------------------------------------------
445C M o d u l e s
446C-----------------------------------------------
447 USE sensor_mod
448 USE user_interface_mod
449C-----------------------------------------------
450C I m p l i c i t T y p e s
451C-----------------------------------------------
452#include "implicit_f.inc"
453C-----------------------------------------------
454C C o m m o n B l o c k s
455C-----------------------------------------------
456#include "com04_c.inc"
457C-----------------------------------------------
458C D u m m y A r g u m e n t s
459C-----------------------------------------------
460 INTEGER NSENS,ITYP
461c========================================================================
462 set_u_sens_deacti = -1
463
464 IF (nsens >= 1 .OR. nsens <= sensors%NSENSOR) THEN
465
466 ityp = sensors%SENSOR_TAB(nsens)%TYPE
467
468 IF (ityp >= 29 .AND. ityp <= 31)THEN
469 sensors%SENSOR_TAB(nsens)%TSTART = ep30
470 set_u_sens_deacti = 0
471 ENDIF
472 ENDIF
473C---
474 RETURN
set_u_sens_deacti
integer function set_u_sens_deacti(nsens)
Definition usensor.F:444

◆ set_u_sens_maxvalue()

integer function set_u_sens_maxvalue ( integer nsens,
integer ivar,
var )

Definition at line 236 of file usensor.F.

237C-----------------------------------------------
238C M o d u l e s
239C-----------------------------------------------
240 USE sensor_mod
241 USE user_interface_mod
242C-----------------------------------------------
243C I m p l i c i t T y p e s
244C-----------------------------------------------
245#include "implicit_f.inc"
246C-----------------------------------------------
247C C o m m o n B l o c k s
248C-----------------------------------------------
249
250C-----------------------------------------------
251C D u m m y A r g u m e n t s
252C-----------------------------------------------
253 INTEGER NSENS,IVAR
254 my_real var,maxv
255C=======================================================================
256 set_u_sens_maxvalue = -1
257
258 IF(nsens==0)THEN
259 RETURN
260 ENDIF
261
262 IF (ivar>nsenparr) THEN
263 WRITE(*,*)"ERROR WRITING USER SENSOR / TOO MANY VARIABLES"
264 RETURN
265 ENDIF
266
267 maxv = sensors%SENSOR_TAB(nsens)%FLOAT_USERBUF(ivar)
268 maxv = max(maxv,var)
269 sensors%SENSOR_TAB(nsens)%FLOAT_USERBUF(ivar) = maxv
270 set_u_sens_maxvalue = 0
271C---
272 RETURN
max
#define max(a, b)
Definition macros.h:21
set_u_sens_maxvalue
integer function set_u_sens_maxvalue(nsens, ivar, var)
Definition usensor.F:237

◆ set_u_sens_value()

integer function set_u_sens_value ( integer nsens,
integer ivar,
var )

Definition at line 137 of file usensor.F.

138C-----------------------------------------------
139C M o d u l e s
140C-----------------------------------------------
141 USE sensor_mod
142 USE user_interface_mod
143C-----------------------------------------------
144C I m p l i c i t T y p e s
145C-----------------------------------------------
146#include "implicit_f.inc"
147C-----------------------------------------------
148C D u m m y A r g u m e n t s
149C-----------------------------------------------
150 INTEGER NSENS,ITYP,IVAR
151 my_real var
152C=======================================================================
153 set_u_sens_value = -1
154
155 IF(nsens==0)THEN
156 RETURN
157 ENDIF
158
159 IF(ivar>lsenbuf-1)THEN
160 WRITE(*,*)"ERROR WRITING USER SENSOR / TOO MANY VARIABLES"
161 RETURN
162 ENDIF
163
164 ityp = sensors%SENSOR_TAB(nsens)%TYPE
165C
166 IF (ityp>=29 .AND. ityp<=31)THEN
167
168 sensors%SENSOR_TAB(nsens)%FLOAT_USERBUF(ivar) = var
169 set_u_sens_value = 0
170
171 ENDIF
172C---
173 RETURN
set_u_sens_value
integer function set_u_sens_value(nsens, ivar, var)
Definition usensor.F:138

◆ usensor_dum()

subroutine usensor_dum ( integer ierr)

Definition at line 29 of file usensor.F.

30C---------+---------+---+---+--------------------------------------------
31#include "implicit_f.inc"
32 INTEGER IERR
33 ierr=0