OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
create_h3d_solid_vector.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| create_h3d_solid_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_solid_vector.F
25!||--- called by ------------------------------------------------------
26!|| lech3d ../engine/source/output/h3d/h3d_build_fortran/lech3d.f
27!||--- calls -----------------------------------------------------
28!|| arret ../engine/source/system/arret.F
29!|| create_h3d_output_per_part ../engine/source/output/h3d/h3d_build_fortran/create_h3d_output_per_part.F90
30!||--- uses -----------------------------------------------------
31!|| create_h3d_output_per_part_mod ../engine/source/output/h3d/h3d_build_fortran/create_h3d_output_per_part.F90
32!|| groupdef_mod ../common_source/modules/groupdef_mod.F
33!|| h3d_mod ../engine/share/modules/h3d_mod.F
34!|| names_and_titles_mod ../common_source/modules/names_and_titles_mod.F
35!||====================================================================
36 SUBROUTINE create_h3d_solid_vector(H3D_DATA,ID_SOLID_VECTOR,ID_INPUT,TEXT1,STEXT1,
37 . COMMENT, SCOMMENT, IPART,KEY3_GLOB,
38 . LAYER,IR,IS,IT,IUVAR,IGRPART)
39C-----------------------------------------------
40C M o d u l e s
41C-----------------------------------------------
42 USE h3d_mod
43 USE names_and_titles_mod, ONLY: ncharline100
44 USE groupdef_mod
45 USE create_h3d_output_per_part_mod
46C-----------------------------------------------
47C I m p l i c i t T y p e s
48C-----------------------------------------------
49#include "implicit_f.inc"
50C-----------------------------------------------
51C C o m m o n B l o c k s
52C-----------------------------------------------
53C-----------------------------------------------
54C D u m m y A r g u m e n t s
55C-----------------------------------------------
56 TYPE (H3D_DATABASE) :: H3D_DATA
57 INTEGER ID_SOLID_VECTOR,ID_INPUT,STEXT1,SCOMMENT,
58 . layer,iuvar,ir,is,it
59 INTEGER IPART(LIPART1,*)
60 CHARACTER(LEN=STEXT1) :: TEXT1
61 CHARACTER(LEN=SCOMMENT) :: COMMENT
62 CHARACTER(LEN=NCHARLINE100) :: KEY3_GLOB
63 TYPE(group_) ,DIMENSION(NGRPART) ,INTENT(IN) :: IGRPART
64C-----------------------------------------------
65C C o m m o n B l o c k s
66C-----------------------------------------------
67#include "com04_c.inc"
68#include "scr17_c.inc"
69C-----------------------------------------------
70C E x t e r n a l F u n c t i o n s
71C-----------------------------------------------
72C-----------------------------------------------
73C L o c a l V a r i a b l e s
74C-----------------------------------------------
75 INTEGER I,N_H3D_PART
76C=========================================================================
77 h3d_data%N_OUTP_H3D = h3d_data%N_OUTP_H3D + 1
78 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%OK = 1
79 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%KEYWORD = key3_glob
80 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%N_OUTP = h3d_data%N_OUTP_H3D + 3
81 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%ETYPE = 3
82 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%OUTP_TYPE = 2
83 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%LAYER = layer
84 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%IR = ir
85 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%IS = is
86 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%IT = it
87 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%IUVAR = iuvar
88 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%IS_INFO1 = 0
89 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%S_STRING1 = stext1
90 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%STRING1(1:stext1) = text1(1:stext1)
91 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%S_STRING2 = 0
92 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%S_COMMENT = scomment
93 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%COMMENT(1:scomment) = comment(1:scomment)
94
95 n_h3d_part = h3d_data%INPUT_LIST(id_input)%NB_PART
96 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%N_H3D_PART_LIST = n_h3d_part
97
98 IF (n_h3d_part /= 0 )
99 . ALLOCATE(h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%PART_LIST(n_h3d_part))
100 ALLOCATE(h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%PART(npart))
101c
102c DO I=1,N_H3D_PART
103c H3D_DATA%OUTPUT_LIST(H3D_DATA%N_OUTP_H3D)%PART_LIST(I) =
104c . H3D_DATA%INPUT_LIST(ID_INPUT)%PART_LIST(I)
105c
106c ENDDO
107 IF (n_h3d_part /= 0 ) THEN
108 DO i=1,npart
109 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%PART(i) = 0
110 ENDDO
111 ELSE
112 DO i=1,npart
113 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%PART(i) = 1
114 ENDDO
115 ENDIF
116
117c DO J=1,N_H3D_PART
118c print *,'ds la construct_lect',H3D_DATA%INPUT_LIST(ID_INPUT)%PART_LIST(J)
119c ENDDO
120
121 CALL create_h3d_output_per_part(n_h3d_part,h3d_data,id_input,lipart1,npart,ipart,ngrpart,igrpart)
122
123c DO J=1,NPART
124c print *,'ds la construct',H3D_DATA%OUTPUT_LIST(H3D_DATA%N_OUTP_H3D)%PART(J)
125c ENDDO
126
127 RETURN
128 CALL arret(0)
129 END
create_h3d_solid_vector
subroutine create_h3d_solid_vector(h3d_data, id_solid_vector, id_input, text1, stext1, comment, scomment, ipart, key3_glob, layer, ir, is, it, iuvar, igrpart)
Definition create_h3d_solid_vector.F:39
lech3d
subroutine lech3d(output, geo, igeo, ipm, ipart, h3d_data, multi_fvm, ipari, iparg, tag_skins6, mds_label, mds_output_table, mds_nmat, max_depvar, mds_ndepsvar, elbuf_str, stack, ibcl, iloadp, lloadp, loads, mat_param, pblast, igrpart, npc, tf, snpc, stf)
Definition lech3d.F:97
groupdef_mod
Definition groupdef_mod.F:668
h3d_mod
Definition h3d_mod.F:311
names_and_titles_mod
Definition names_and_titles_mod.F:1002
names_and_titles_mod::ncharline100
integer, parameter ncharline100
Definition names_and_titles_mod.F:1007
arret
subroutine arret(nn)
Definition arret.F:86
groupdef_mod::group_
Definition groupdef_mod.F:706