OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
create_h3d_solid_scalar.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_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_solid_scalar.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_scalar(H3D_DATA,ID_SOLID_SCALAR,ID_INPUT,TEXT1,STEXT1,
37 . COMMENT, SCOMMENT, IPART,KEY3_GLOB,
38 . LAYER,IR,IS,IT,IUVAR,
39 . IDMDS,IVARMDS,ID_MAT_MDS,MDS_LABEL,SMDS_LABEL,
40 . ID ,MODE,IGRPART)
41C-----------------------------------------------
42C M o d u l e s
43C-----------------------------------------------
44 USE h3d_mod
45 USE names_and_titles_mod, ONLY: ncharline100
46 USE groupdef_mod
47 USE create_h3d_output_per_part_mod
48C-----------------------------------------------
49C I m p l i c i t T y p e s
50C-----------------------------------------------
51#include "implicit_f.inc"
52C-----------------------------------------------
53C D u m m y A r g u m e n t s
54C-----------------------------------------------
55 TYPE (H3D_DATABASE) :: H3D_DATA
56 INTEGER ID_SOLID_SCALAR,ID_INPUT,STEXT1,SCOMMENT,
57 . LAYER,IUVAR,IR,IS,IT,IDMDS,IVARMDS,SMDS_LABEL,
58 . ID_MAT_MDS,ID
59 INTEGER IPART(LIPART1,*)
60 CHARACTER(LEN=STEXT1) :: TEXT1
61 CHARACTER(LEN=NCHARLINE100) :: KEY3_GLOB
62 CHARACTER(LEN=SCOMMENT) :: COMMENT
63 CHARACTER(LEN=64) :: MDS_LABEL
64 INTEGER ,INTENT(IN) :: MODE
65 TYPE(group_) ,DIMENSION(NGRPART) ,INTENT(IN) :: IGRPART
66C-----------------------------------------------
67C C o m m o n B l o c k s
68C-----------------------------------------------
69#include "com04_c.inc"
70#include "scr17_c.inc"
71C-----------------------------------------------
72C E x t e r n a l F u n c t i o n s
73C-----------------------------------------------
74 INTEGER NVAR
75C-----------------------------------------------
76C L o c a l V a r i a b l e s
77C-----------------------------------------------
78 CHARACTER(LEN=NCHARLINE100) :: CARTE,CARTE1
79 INTEGER I,J,L,N_H3D_PART
80C=========================================================================
81 H3D_DATA%N_OUTP_H3D = h3d_data%N_OUTP_H3D + 1
82 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%OK = 1
83 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%KEYWORD = key3_glob
84 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%N_OUTP = h3d_data%N_OUTP_H3D + 3
85 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%ETYPE = 3
86 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%OUTP_TYPE = 1
87 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%LAYER = layer
88 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%IR = ir
89 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%IS = is
90 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%IT = it
91 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%OBJECT_ID = id
92 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%IUVAR = iuvar
93 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%IDMDS = idmds
94 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%IDMATMDS = id_mat_mds
95 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%IMDSVAR = ivarmds
96 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%MDSVAR_NAME = trim(mds_label)
97 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%SMDSVAR_NAME = smds_label
98 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%IS_INFO1 = 0
99 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%S_STRING1 = stext1
100 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%STRING1(1:stext1) = text1(1:stext1)
101 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%S_COMMENT = scomment
102 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%COMMENT(1:scomment) = comment(1:scomment)
103 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%MODE = mode
104
105 n_h3d_part = h3d_data%INPUT_LIST(id_input)%NB_PART
106 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%N_H3D_PART_LIST = n_h3d_part
107
108 IF (n_h3d_part /= 0 )
109 . ALLOCATE(h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%PART_LIST(n_h3d_part))
110 ALLOCATE(h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%PART(npart))
111c
112c DO I=1,N_H3D_PART
113c H3D_DATA%OUTPUT_LIST(H3D_DATA%N_OUTP_H3D)%PART_LIST(I) =
114c . H3D_DATA%INPUT_LIST(ID_INPUT)%PART_LIST(I)
115c
116c ENDDO
117 IF (n_h3d_part /= 0 ) THEN
118 DO i=1,npart
119 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%PART(i) = 0
120 ENDDO
121 ELSE
122 DO i=1,npart
123 h3d_data%OUTPUT_LIST(h3d_data%N_OUTP_H3D)%PART(i) = 1
124 ENDDO
125 ENDIF
126
127c DO J=1,N_H3D_PART
128c print *,'ds la construct_lect',H3D_DATA%INPUT_LIST(ID_INPUT)%PART_LIST(J)
129c ENDDO
130
131 CALL create_h3d_output_per_part(n_h3d_part,h3d_data,id_input,lipart1,npart,ipart,ngrpart,igrpart)
132
133c DO J=1,NPART
134c print *,'ds la construct',H3D_DATA%OUTPUT_LIST(H3D_DATA%N_OUTP_H3D)%PART(J)
135c ENDDO
136
137 RETURN
138 999 print *,'error lecture'
139 CALL arret(0)
140 END
create_h3d_solid_scalar
subroutine create_h3d_solid_scalar(h3d_data, id_solid_scalar, id_input, text1, stext1, comment, scomment, ipart, key3_glob, layer, ir, is, it, iuvar, idmds, ivarmds, id_mat_mds, mds_label, smds_label, id, mode, igrpart)
Definition create_h3d_solid_scalar.F:41
groupdef_mod
Definition groupdef_mod.F:662
h3d_mod
Definition h3d_mod.F:308
names_and_titles_mod
Definition names_and_titles_mod.F:997
names_and_titles_mod::ncharline100
integer, parameter ncharline100
Definition names_and_titles_mod.F:1002
arret
subroutine arret(nn)
Definition arret.F:87
groupdef_mod::group_
Definition groupdef_mod.F:700