OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
upidmid.F File Reference
#include "implicit_f.inc"
#include "param_c.inc"
#include "units_c.inc"
#include "scr05_c.inc"
#include "com04_c.inc"
#include "task_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine upidmid_dum (ierr)
program __upidmid_f__
program __upidmid_f__1__
integer function get_u_pnu (ivar, ip, k)
integer function get_u_mnu (ivar, im, k)
integer function get_u_pid (ip)
integer function get_u_mid (im)
integer function get_u_m (mid)
integer function get_u_p (pid)
integer function get_u_proc ()
integer function get_u_task ()

Function/Subroutine Documentation

◆ __upidmid_f__()

program __upidmid_f__

Definition at line 46 of file upidmid.F.

◆ __upidmid_f__1__()

program __upidmid_f__1__

Definition at line 101 of file upidmid.F.

◆ get_u_m()

integer function get_u_m ( integer, intent(in) mid)

Definition at line 390 of file upidmid.F.

391C-----------------------------------------------
392C I m p l i c i t T y p e s
393C-----------------------------------------------
394#include "implicit_f.inc"
395C-----------------------------------------------
396C C o m m o n B l o c k s
397C-----------------------------------------------
398#include "com04_c.inc"
399C-----------------------------------------------
400C D u m m y A r g u m e n t s
401C-----------------------------------------------
402 INTEGER,INTENT(IN) :: MID
403C-----------------------------------------------
404C L o c a l V a r i a b l e s
405C-----------------------------------------------
406 INTEGER I,GET_U_MID
407 EXTERNAL get_u_mid
408C-----------------------------------------------
409C S o u r c e L i n e s
410C-----------------------------------------------
411 get_u_m = 0
412 DO i=1,nummat
413 IF(get_u_mid(i)==mid)THEN
414 get_u_m = i
415 RETURN
416 ENDIF
417 ENDDO
418 RETURN
get_u_m
integer function get_u_m(mid)
Definition upidmid.F:391
get_u_mid
integer function get_u_mid(im)
Definition upidmid.F:360

◆ get_u_mid()

integer function get_u_mid ( integer, intent(in) im)

Definition at line 359 of file upidmid.F.

360C-----------------------------------------------
361C I m p l i c i t T y p e s
362C-----------------------------------------------
363#include "implicit_f.inc"
364C-----------------------------------------------
365C C o m m o n B l o c k s
366C-----------------------------------------------
367#include "param_c.inc"
368C-----------------------------------------------
369C D u m m y A r g u m e n t s
370C-----------------------------------------------
371 INTEGER,INTENT(IN) :: IM
372C-----------------------------------------------
373C L o c a l V a r i a b l e s
374C-----------------------------------------------
375 INTEGER DEPLA
376C-----------------------------------------
377C GET_U_MID =IPM(1,IM)
378C---
379 depla = 1+(im-1)*npropmi
380 CALL get_var_user_i(19,depla,get_u_mid)
381C---
382 RETURN
depla
subroutine depla(v, d, x, vr, dr, xdp, ddp, numnod)
Definition depla.F:29
get_var_user_i
void get_var_user_i(int *buf, int *decalage, int *resultat)
Definition eng_callback_c.c:163

◆ get_u_mnu()

integer function get_u_mnu ( integer, intent(in) ivar,
integer, intent(in) im,
integer, intent(in) k )

Definition at line 251 of file upidmid.F.

252C-----------------------------------------------
253C I m p l i c i t T y p e s
254C-----------------------------------------------
255#include "implicit_f.inc"
256C-----------------------------------------------
257C C o m m o n B l o c k s
258C-----------------------------------------------
259#include "param_c.inc"
260#include "units_c.inc"
261C-----------------------------------------------
262C D u m m y A r g u m e n t s
263C-----------------------------------------------
264 INTEGER,INTENT(IN) :: IVAR,IM,K
265C-----------------------------------------------
266C L o c a l V a r i a b l e s
267C-----------------------------------------------
268 INTEGER KFUNC,DEPLA,NFUNC
269 parameter(kfunc=29)
270C-----------------------------------------------
271C S o u r c e L i n e s
272C-----------------------------------------------
273C NFUNC = IPM(10,IM))
274 depla = 10+(im-1)*npropmi
275 CALL get_var_user_i(19,depla,nfunc)
276C
277 IF (ivar > nfunc)THEN
278 WRITE(iout,*) ' **ERROR IN FUNCTION GET_U_MNU(INDEX,IP,GEO,BUFGEO,',k,'), INDEX(',ivar,') EXCEED ALLOCATED VALUE(',nfunc,')'
279 WRITE(istdo,*)' **ERROR IN FUNCTION GET_U_MNU(INDEX,IP,GEO,BUFGEO,',k,'), INDEX(',ivar,') EXCEED ALLOCATED VALUE(',nfunc,')'
280 ELSEIF(k==kfunc) THEN
281C GET_U_MNU = IFUNC = IPM(10+IVAR,IM))
282 depla = 10+ivar+(im-1)*npropmi
283 CALL get_var_user_i(19,depla,get_u_mnu)
284C
285 ENDIF
286C
287 RETURN
get_u_mnu
integer function get_u_mnu(ivar, im, k)
Definition upidmid.F:252

◆ get_u_p()

integer function get_u_p ( integer, intent(in) pid)

Definition at line 426 of file upidmid.F.

427C-----------------------------------------------
428C I m p l i c i t T y p e s
429C-----------------------------------------------
430#include "implicit_f.inc"
431C-----------------------------------------------
432C C o m m o n B l o c k s
433C-----------------------------------------------
434#include "com04_c.inc"
435C-----------------------------------------------
436C D u m m y A r g u m e n t s
437C-----------------------------------------------
438 INTEGER,INTENT(IN) :: PID
439C-----------------------------------------------
440C L o c a l V a r i a b l e s
441C-----------------------------------------------
442 INTEGER I,GET_U_PID
443 EXTERNAL get_u_pid
444C-----------------------------------------------
445C S o u r c e L i n e s
446C-----------------------------------------------
447 get_u_p = 0
448 DO i=1,numgeo
449 IF(get_u_pid(i)==pid)THEN
450 get_u_p = i
451 RETURN
452 ENDIF
453 ENDDO
454 RETURN
get_u_p
integer function get_u_p(pid)
Definition upidmid.F:427
get_u_pid
integer function get_u_pid(ip)
Definition upidmid.F:312

◆ get_u_pid()

integer function get_u_pid ( integer, intent(in) ip)

Definition at line 311 of file upidmid.F.

312C-----------------------------------------------
313C I m p l i c i t T y p e s
314C-----------------------------------------------
315#include "implicit_f.inc"
316C-----------------------------------------------
317C C o m m o n B l o c k s
318C----------------------------------------------
319#include "param_c.inc"
320C-----------------------------------------------
321C D u m m y A r g u m e n t s
322C-----------------------------------------------
323 INTEGER,INTENT(IN) :: IP
324C-----------------------------------------------
325C L o c a l V a r i a b l e s
326C-----------------------------------------------
327 INTEGER DEPLA,VAR
328C-----------------------------------------------
329C S o u r c e C o d e
330C-----------------------------------------------
331C GET_U_PID = NINT(GEO(40,IP))
332 depla = 1+(ip-1)*npropgi
333 CALL get_var_user_i(20,depla,var)
334 get_u_pid = var
335C---
336 RETURN

◆ get_u_pnu()

integer function get_u_pnu ( integer, intent(in) ivar,
integer, intent(in) ip,
integer, intent(in) k )

Definition at line 176 of file upidmid.F.

177C-----------------------------------------------
178C I m p l i c i t T y p e s
179C-----------------------------------------------
180#include "implicit_f.inc"
181C-----------------------------------------------
182C C o m m o n B l o c k s
183C-----------------------------------------------
184#include "param_c.inc"
185#include "units_c.inc"
186#include "scr05_c.inc"
187C-----------------------------------------------
188C D u m m y A r g u m e n t s
189C-----------------------------------------------
190 INTEGER,INTENT(IN) :: IVAR,IP,K
191C-----------------------------------------------
192C L o c a l V a r i a b l e s
193C-----------------------------------------------
194 INTEGER DEPLA,NVAR
195 my_real nv
196C-----------------------------------------------
197C S o u r c e L i n e s
198C-----------------------------------------------
199C GEO(I,J) == LOCA(ISH3+I+(J-1)*NPROPG)
200C BUFGEO(I) == LOCA(ISH4+I)
201C
202 get_u_pnu = 0
203 depla=k-1+(ip-1)*npropg
204 IF (iresp==1) THEN
205 CALL get_var_user_f_sp(3,depla,nv)
206 ELSE
207 CALL get_var_user_f(3,depla,nv)
208 ENDIF
209 nvar=nint(nv)
210C NVAR = NINT(GEO(K-1,IP))
211 IF(ivar>nvar)THEN
212 WRITE(iout,*) ' **ERROR IN FUNCTION GET_U_PNU(INDEX,IP,GEO,BUFGEO,',k,'), INDEX(',ivar,') EXCEED ALLOCATED VALUE(',nvar,')'
213 WRITE(istdo,*)' **ERROR IN FUNCTION GET_U_PNU(INDEX,IP,GEO,BUFGEO,',k,'), INDEX(',ivar,') EXCEED ALLOCATED VALUE(',nvar,')'
214 ELSE
215 depla=k+(ip-1)*npropg
216 IF (iresp==1) THEN
217 CALL get_var_user_f_sp(3,depla,nv)
218 depla=nint(nv)-1+ivar
219 CALL get_var_user_f_sp(4,depla,nv)
220 ELSE
221 CALL get_var_user_f(3,depla,nv)
222 depla=nint(nv)-1+ivar
223 CALL get_var_user_f(4,depla,nv)
224 ENDIF
225 get_u_pnu=nint(nv)
226C GET_U_PNU = NINT(BUFGEO(NINT(GEO(K,IP))-1+IVAR))
227 ENDIF
228C
229 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
get_var_user_f
void get_var_user_f(int *buf, int *decalage, double *resultat)
Definition eng_callback_c.c:88
get_var_user_f_sp
void get_var_user_f_sp(int *buf, int *decalage, float *resultat)
Definition eng_callback_c.c:108
nvar
integer function nvar(text)
Definition nvar.F:32
get_u_pnu
integer function get_u_pnu(ivar, ip, k)
Definition upidmid.F:177

◆ get_u_proc()

integer function get_u_proc

Definition at line 460 of file upidmid.F.

461C-----------------------------------------------
462C I m p l i c i t T y p e s
463C-----------------------------------------------
464#include "implicit_f.inc"
465C-----------------------------------------------
466C C o m m o n B l o c k s
467C-----------------------------------------------
468#include "task_c.inc"
469C-----------------------------------------------
470C S o u r c e L i n e s
471C-----------------------------------------------
472 get_u_proc = ispmd+1
473C
474 RETURN
get_u_proc
integer function get_u_proc()
Definition upidmid.F:461

◆ get_u_task()

integer function get_u_task

Definition at line 482 of file upidmid.F.

483C-----------------------------------------------
484C I m p l i c i t T y p e s
485C-----------------------------------------------
486#include "implicit_f.inc"
487C-----------------------------------------------
488C L o c a l V a r i a b l e s
489C-----------------------------------------------
490 INTEGER OMP_GET_THREAD_NUM
491 EXTERNAL omp_get_thread_num
492C-----------------------------------------------
493C S o u r c e L i n e s
494C-----------------------------------------------
495 get_u_task = omp_get_thread_num()+1
496C
497 RETURN
get_u_task
integer function get_u_task()
Definition upidmid.F:483

◆ upidmid_dum()

subroutine upidmid_dum ( integer ierr)

Definition at line 32 of file upidmid.F.

33C-----------------------------------------------
34C I m p l i c i t T y p e s
35C-----------------------------------------------
36#include "implicit_f.inc"
37C-----------------------------------------------
38C D u m m y A r g u m e n t s
39C-----------------------------------------------
40 INTEGER IERR
41C-----------------------------------------------
42C S o u r c e L i n e s
43C-----------------------------------------------
44 ierr=0