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

Go to the source code of this file.

Functions/Subroutines

subroutine w_fbft (vel, nc, ibft, nfxtemp_l, len_am, proc, nift, lfacther)

Function/Subroutine Documentation

◆ w_fbft()

subroutine w_fbft ( vel,
integer nc,
integer, dimension(nift,*) ibft,
integer nfxtemp_l,
integer len_am,
integer proc,
integer, intent(in) nift,
integer, intent(in) lfacther )

Definition at line 30 of file w_fbft.F.

32C-----------------------------------------------
33C I m p l i c i t T y p e s
34C-----------------------------------------------
35#include "implicit_f.inc"
36C-----------------------------------------------
37C C o m m o n B l o c k s
38C-----------------------------------------------
39#include "param_c.inc"
40C-----------------------------------------------
41C D u m m y A r g u m e n t s
42C-----------------------------------------------
43 INTEGER ,INTENT(IN) :: NIFT
44 INTEGER ,INTENT(IN) :: LFACTHER
45 INTEGER :: NC, LEN_AM, PROC, NFXTEMP_L
46 INTEGER :: IBFT(NIFT,*)
47 my_real :: vel(lfacther,*)
48C-----------------------------------------------
49C F u n c t i o n
50C-----------------------------------------------
51 INTEGER NLOCAL
52 EXTERNAL nlocal
53C-----------------------------------------------
54C L o c a l V a r i a b l e s
55C-----------------------------------------------
56 INTEGER :: I,J,N,N_L
57 my_real :: veltmp(lfacther,nfxtemp_l)
58C-----------------------------------------------
59 n_l = 0
60 DO i = 1, nc
61 n = iabs(ibft(1,i))
62 IF(nlocal(n,proc+1)==1)THEN
63 n_l = n_l + 1
64 DO j = 1, lfacther
65 veltmp(j,n_l) = vel(j,i)
66 ENDDO
67 ENDIF
68 ENDDO
69C
70 CALL write_db(veltmp,lfacther*nfxtemp_l)
71 len_am = len_am + lfacther*nfxtemp_l
72C
73 RETURN
#define my_real
Definition cppsort.cpp:32
integer function nlocal(n, p)
Definition ddtools.F:349
subroutine write_db(a, n)
Definition write_db.F:140