OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
write_mod Module Reference

Functions/Subroutines

subroutine write_integer (a)
subroutine write_integer_1d (a, n)
subroutine write_integer_2d (a, n, m)
subroutine write_integer_3d (a, l, n, m)
subroutine write_real (a)
subroutine write_real_1d (a, n)
subroutine write_real_2d (a, m, n)
subroutine write_real_3d (a, l, m, n)
subroutine write_double (a)
subroutine write_double_1d (a, n)
subroutine write_double_2d (a, m, n)
subroutine write_double_3d (a, l, m, n)

Function/Subroutine Documentation

◆ write_double()

subroutine write_mod::write_double ( double precision, intent(in) a)
Parameters
[in]avalue to be written

Definition at line 223 of file write_mod.F.

224C-----------------------------------------------
225C I m p l i c i t T y p e s
226C-----------------------------------------------
227 IMPLICIT NONE
228C-----------------------------------------------
229C D u m m y A r g u m e n t s
230C-----------------------------------------------
231 DOUBLE PRECISION , INTENT(IN) :: A !< value to be written
232C-----------------------------------------------
233C L o c a l V a r i a b l e s
234C-----------------------------------------------
235 INTEGER :: ONE
236C-----------------------------------------------
237 one = 1
238 CALL write_dpdb(a,one)
write_dpdb
subroutine write_dpdb(a, n)
Definition write_db.F:302

◆ write_double_1d()

subroutine write_mod::write_double_1d ( double precision, dimension(n), intent(in) a,
integer, intent(in) n )
Parameters
[in]avalue to be written
[in]nsize

Definition at line 247 of file write_mod.F.

248C-----------------------------------------------
249C I m p l i c i t T y p e s
250C-----------------------------------------------
251 IMPLICIT NONE
252C-----------------------------------------------
253C D u m m y A r g u m e n t s
254C-----------------------------------------------
255 DOUBLE PRECISION , INTENT(IN) :: A(N) !< value to be written
256 INTEGER, INTENT(IN) :: N !< size
257C-----------------------------------------------
258C L o c a l V a r i a b l e s
259C-----------------------------------------------
260 INTEGER :: D
261C-----------------------------------------------
262 d = n
263 CALL write_dpdb(a,d)

◆ write_double_2d()

subroutine write_mod::write_double_2d ( double precision, dimension(m,n), intent(in) a,
integer, intent(in) m,
integer, intent(in) n )
Parameters
[in]avalue to be written
[in]msize

Definition at line 271 of file write_mod.F.

272C-----------------------------------------------
273C I m p l i c i t T y p e s
274C-----------------------------------------------
275 IMPLICIT NONE
276C-----------------------------------------------
277C D u m m y A r g u m e n t s
278C-----------------------------------------------
279 DOUBLE PRECISION , INTENT(IN) :: A(M,N) !< value to be written
280 INTEGER, INTENT(IN) :: N,M !< size
281C-----------------------------------------------
282C L o c a l V a r i a b l e s
283C-----------------------------------------------
284 INTEGER :: D
285C-----------------------------------------------
286 d = m * n
287 CALL write_dpdb(a,d)

◆ write_double_3d()

subroutine write_mod::write_double_3d ( double precision, dimension(l,m,n), intent(in) a,
integer, intent(in) l,
integer, intent(in) m,
integer, intent(in) n )
Parameters
[in]avalue to be written
[in]msize

Definition at line 295 of file write_mod.F.

296C-----------------------------------------------
297C I m p l i c i t T y p e s
298C-----------------------------------------------
299 IMPLICIT NONE
300C-----------------------------------------------
301C D u m m y A r g u m e n t s
302C-----------------------------------------------
303 DOUBLE PRECISION , INTENT(IN) :: A(L,M,N) !< value to be written
304 INTEGER , INTENT(IN) :: L,N,M !< size
305C-----------------------------------------------
306C L o c a l V a r i a b l e s
307C-----------------------------------------------
308 INTEGER :: D
309C-----------------------------------------------
310 d = l * m * n
311 CALL write_dpdb(a,d)

◆ write_integer()

subroutine write_mod::write_integer ( integer, intent(in) a)
Parameters
[in]avalue to be written in a file

Definition at line 39 of file write_mod.F.

40C-----------------------------------------------
41C I m p l i c i t T y p e s
42C-----------------------------------------------
43 IMPLICIT NONE
44C-----------------------------------------------
45C D u m m y A r g u m e n t s
46C-----------------------------------------------
47 INTEGER, INTENT(IN) :: A !< value to be written in a file
48C-----------------------------------------------
49C L o c a l V a r i a b l e s
50C-----------------------------------------------
51 INTEGER :: ONE
52C-----------------------------------------------
53 one = 1
54 CALL write_i_c(a,one)
write_i_c
void write_i_c(int *w, int *len)
Definition write_routtines.c:645

◆ write_integer_1d()

subroutine write_mod::write_integer_1d ( integer, dimension(n), intent(in) a,
integer, intent(in) n )
Parameters
[in]avalue to be written in a file
[in]nDimension1

Definition at line 61 of file write_mod.F.

62C-----------------------------------------------
63C I m p l i c i t T y p e s
64C-----------------------------------------------
65 IMPLICIT NONE
66C-----------------------------------------------
67C D u m m y A r g u m e n t s
68C-----------------------------------------------
69 INTEGER, INTENT(IN) :: A(N) !< value to be written in a file
70 INTEGER, INTENT(IN) :: N !< Dimension1
71 CALL write_i_c(a,n)

◆ write_integer_2d()

subroutine write_mod::write_integer_2d ( integer, dimension(n,m), intent(in) a,
integer, intent(in) n,
integer, intent(in) m )
Parameters
[in]avalue to be written in a file
[in]mDimensions

Definition at line 78 of file write_mod.F.

79C-----------------------------------------------
80C I m p l i c i t T y p e s
81C-----------------------------------------------
82 IMPLICIT NONE
83C-----------------------------------------------
84C D u m m y A r g u m e n t s
85C-----------------------------------------------
86 INTEGER, INTENT(IN) :: A(N,M) !< value to be written in a file
87 INTEGER, INTENT(IN) :: N,M !< Dimensions
88C-----------------------------------------------
89C L o c a l V a r i a b l e s
90C-----------------------------------------------
91 INTEGER :: D
92C-----------------------------------------------
93 d = m * n
94 CALL write_i_c(a,d)

◆ write_integer_3d()

subroutine write_mod::write_integer_3d ( integer, dimension(l,n,m), intent(in) a,
integer, intent(in) l,
integer, intent(in) n,
integer, intent(in) m )
Parameters
[in]avalue to be written in a file
[in]mDimensions

Definition at line 101 of file write_mod.F.

102C-----------------------------------------------
103C I m p l i c i t T y p e s
104C-----------------------------------------------
105 IMPLICIT NONE
106C-----------------------------------------------
107C D u m m y A r g u m e n t s
108C-----------------------------------------------
109 INTEGER, INTENT(IN) :: A(L,N,M) !< value to be written in a file
110 INTEGER, INTENT(IN) :: L,N,M !< Dimensions
111C-----------------------------------------------
112C L o c a l V a r i a b l e s
113C-----------------------------------------------
114 INTEGER :: D
115C-----------------------------------------------
116 d = l * m * n
117 CALL write_i_c(a,d)

◆ write_real()

subroutine write_mod::write_real ( intent(in) a)

Definition at line 128 of file write_mod.F.

129C-----------------------------------------------
130C I m p l i c i t T y p e s
131C-----------------------------------------------
132 IMPLICIT NONE
133C-----------------------------------------------
134C D u m m y A r g u m e n t s
135C-----------------------------------------------
136 my_real , INTENT(IN) :: a !< value to be written
137C-----------------------------------------------
138C L o c a l V a r i a b l e s
139C-----------------------------------------------
140 INTEGER :: ONE
141C-----------------------------------------------
142 one = 1
143 CALL write_db(a,one)
my_real
#define my_real
Definition cppsort.cpp:32
write_db
subroutine write_db(a, n)
Definition write_db.F:140

◆ write_real_1d()

subroutine write_mod::write_real_1d ( dimension(n), intent(in) a,
integer, intent(in) n )
Parameters
[in]nsize

Definition at line 151 of file write_mod.F.

152C-----------------------------------------------
153C I m p l i c i t T y p e s
154C-----------------------------------------------
155 IMPLICIT NONE
156C-----------------------------------------------
157C D u m m y A r g u m e n t s
158C-----------------------------------------------
159 my_real , INTENT(IN) :: a(n) !< value to be written
160 INTEGER , INTENT(IN) :: N !< size
161C-----------------------------------------------
162C L o c a l V a r i a b l e s
163C-----------------------------------------------
164 INTEGER :: D
165C-----------------------------------------------
166 d = n
167 CALL write_db(a,d)

◆ write_real_2d()

subroutine write_mod::write_real_2d ( dimension(m,n), intent(in) a,
integer, intent(in) m,
integer, intent(in) n )
Parameters
[in]msize

Definition at line 175 of file write_mod.F.

176C-----------------------------------------------
177C I m p l i c i t T y p e s
178C-----------------------------------------------
179 IMPLICIT NONE
180C-----------------------------------------------
181C D u m m y A r g u m e n t s
182C-----------------------------------------------
183 my_real , INTENT(IN) :: a(m,n) !< value to be written
184 INTEGER, INTENT(IN) :: N,M !< size
185C-----------------------------------------------
186C L o c a l V a r i a b l e s
187C-----------------------------------------------
188 INTEGER :: D
189C-----------------------------------------------
190 d = m * n
191 CALL write_db(a,d)

◆ write_real_3d()

subroutine write_mod::write_real_3d ( dimension(l,m,n), intent(in) a,
integer, intent(in) l,
integer, intent(in) m,
integer, intent(in) n )
Parameters
[in]msize

Definition at line 199 of file write_mod.F.

200C-----------------------------------------------
201C I m p l i c i t T y p e s
202C-----------------------------------------------
203 IMPLICIT NONE
204C-----------------------------------------------
205C D u m m y A r g u m e n t s
206C-----------------------------------------------
207 my_real , INTENT(IN) :: a(l,m,n) !< value to be written
208 INTEGER , INTENT(IN) :: L,N,M !< size
209C-----------------------------------------------
210C L o c a l V a r i a b l e s
211C-----------------------------------------------
212 INTEGER :: D
213C-----------------------------------------------
214 d = l * m * n
215 CALL write_db(a,d)