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

Go to the source code of this file.

Functions/Subroutines

subroutine h3d_write_tensor (iok_part, is_written, tensor, nel, offset, nft, value, is_written_tensor)

Function/Subroutine Documentation

◆ h3d_write_tensor()

subroutine h3d_write_tensor ( integer, dimension(*), intent(in) iok_part,
integer, dimension(*), intent(out) is_written,
intent(out) tensor,
integer, intent(in) nel,
integer, intent(in) offset,
integer, intent(in) nft,
intent(inout) value,
integer, dimension(*), intent(in) is_written_tensor )

Definition at line 32 of file h3d_write_tensor.F.

35C-----------------------------------------------
36C I m p l i c i t T y p e s
37C-----------------------------------------------
38#include "implicit_f.inc"
39C-----------------------------------------------
40C D u m m y A r g u m e n t s
41C-----------------------------------------------
42 my_real, DIMENSION(6,*), INTENT(INOUT) :: VALUE
43 my_real, DIMENSION(6,*), INTENT(OUT) :: tensor
44 INTEGER, INTENT(IN) :: NEL,OFFSET,NFT
45 INTEGER, DIMENSION(*), INTENT(IN) :: IOK_PART
46 INTEGER, DIMENSION(*), INTENT(OUT) :: IS_WRITTEN
47 INTEGER, DIMENSION(*), INTENT(IN) :: IS_WRITTEN_TENSOR
48C-----------------------------------------------
49C L o c a l V a r i a b l e s
50C-----------------------------------------------
51 INTEGER :: I
52C-----------------------------------------------
53 DO i=1,nel
54 tensor(1,offset+nft+i) = value(1,i)
55 tensor(2,offset+nft+i) = value(2,i)
56 tensor(3,offset+nft+i) = value(3,i)
57 tensor(4,offset+nft+i) = value(4,i)
58 tensor(5,offset+nft+i) = value(5,i)
59 tensor(6,offset+nft+i) = value(6,i)
60 IF(iok_part(i) == 1 .AND. is_written_tensor(i) == 1) is_written(offset+nft+i)= 1
61 value(1:6,i) = zero
62 ENDDO
63
64 RETURN
#define my_real
Definition cppsort.cpp:32