OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
spmd_fvb_anod.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!|| spmd_fvb_anod ../engine/source/mpi/anim/spmd_fvb_anod.F
25!||--- called by ------------------------------------------------------
26!|| genani ../engine/source/output/anim/generate/genani.f
27!||--- calls -----------------------------------------------------
28!|| write_r_c ../common_source/tools/input_output/write_routines.c
29!||--- uses -----------------------------------------------------
30!|| fvbag_mod ../engine/share/modules/fvbag_mod.F
31!|| spmd_comm_world_mod ../engine/source/mpi/spmd_comm_world.F90
32!||====================================================================
33 SUBROUTINE spmd_fvb_anod()
34C-----------------------------------------------
35C M o d u l e s
36C-----------------------------------------------
37 USE fvbag_mod
38C-----------------------------------------------
39C I m p l i c i t T y p e s
40C-----------------------------------------------
41 USE spmd_comm_world_mod, ONLY : spmd_comm_world
42#include "implicit_f.inc"
43C-----------------------------------------------------------------
44C M e s s a g e P a s s i n g
45C-----------------------------------------------
46#include "spmd.inc"
47C-----------------------------------------------
48C C o m m o n B l o c k s
49C-----------------------------------------------
50#include "task_c.inc"
51C-----------------------------------------------
52C L o c a l V a r i a b l e s
53C-----------------------------------------------
54#ifdef MPI
55 INTEGER I, PMAIN, J, ITAG, MSGOFF, STAT(MPI_STATUS_SIZE),
56 . IERR, LEN, NNS_ANIM, JJ,MSGOFF2
58 . , DIMENSION(:), ALLOCATABLE :: rbuf
59 REAL R4
60C-----------------------------------------------
61 DATA msgoff/7038/
62 DATA msgoff2/7039/
63C-----------------------------------------------
64C
65 DO i=1,nfvbag
66 pmain=fvspmd(i)%PMAIN
67 IF (ispmd==0) THEN
68 IF (ispmd==pmain-1) THEN
69 DO j=1,fvdata(i)%NNS_ANIM
70 r4=fvdata(i)%NOD_ANIM(1,j)
71 CALL write_r_c(r4,1)
72 r4=fvdata(i)%NOD_ANIM(2,j)
73 CALL write_r_c(r4,1)
74 r4=fvdata(i)%NOD_ANIM(3,j)
75 CALL write_r_c(r4,1)
76 ENDDO
77 ELSE
78 itag=msgoff
79 CALL mpi_recv(nns_anim, 1, mpi_integer,
80 . it_spmd(pmain), itag, spmd_comm_world,
81 . stat, ierr)
82C
83 len=3*nns_anim
84 ALLOCATE(rbuf(len))
85 itag=msgoff2
86 CALL mpi_recv(rbuf, len, real, it_spmd(pmain),
87 . itag, spmd_comm_world, stat, ierr)
88C
89 DO j=1,len
90 r4=rbuf(j)
91 CALL write_r_c(r4,1)
92 ENDDO
93 DEALLOCATE(rbuf)
94 ENDIF
95 ELSE
96 IF (ispmd==pmain-1) THEN
97 itag=msgoff
98 CALL mpi_send(fvdata(i)%NNS_ANIM, 1, mpi_integer,
99 . it_spmd(1), itag, spmd_comm_world,
100 . ierr)
101C
102 len=3*fvdata(i)%NNS_ANIM
103 ALLOCATE(rbuf(len))
104 jj=0
105 DO j=1,fvdata(i)%NNS_ANIM
106 jj=jj+1
107 rbuf(jj)=fvdata(i)%NOD_ANIM(1,j)
108 jj=jj+1
109 rbuf(jj)=fvdata(i)%NOD_ANIM(2,j)
110 jj=jj+1
111 rbuf(jj)=fvdata(i)%NOD_ANIM(3,j)
112 ENDDO
113 itag=msgoff2
114 CALL mpi_send(rbuf, len, real, it_spmd(1),
115 . itag, spmd_comm_world, ierr)
116C
117 DEALLOCATE(rbuf)
118 ENDIF
119 ENDIF
120 ENDDO
121C
122#endif
123 RETURN
124 END
#define my_real
Definition cppsort.cpp:32
subroutine genani(x, d, v, a, bufel, ixs, ixq, ixc, ixt, ixp, ixr, ixtg, swaft, smas, sxnorm, siad, iparg, pm, geo, ms, sinvert, cont, smater, icut, skew, xcut, fint, itab, sel2fa, fext, fopt, lpby, npby, nstrf, rwbuf, nprw, tani, elbuf_tab, mat_param, dd_iad, weight, eani, ipart, cluster, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, ipartur, iparttg, rby, swa4, tors, nom_opt, igrsurf, bufsf, idata, rdata, siadg, bufmat, bufgeo, kxx, ixx, ipartx, suix, sxusr, snfacptx, sixedge, sixfacet, sixsolid, snumx1, snumx2, snumx3, soffx1, soffx2, soffx3, smass1, smass2, smass3, sfunc1, sfunc2, sfunc3, kxsp, ixsp, nod2sp, ipartsp, spbuf, ixs10, ixs20, ixs16, vr, monvol, volmon, ipm, igeo, nodglob, iad_elem, fr_elem, fr_sec, fr_rby2, iad_rby2, fr_wall, iflow, rflow, fncont, ftcont, temp, thke, err_thk_sh4, err_thk_sh3, diag_sms, ipari, fncont2, dr, ale_connectivity, irbe2, irbe3, lrbe2, lrbe3, fr_rbe2, fr_rbe3m, iad_rbe2, dxancg, nod_pxfem, iel_pxfem, zi_ply, vgaz, fcontg, fncontg, ftcontg, fanreac, inod_crk, iel_crk, elcutc, iadc_crk, pdama2, res_sms, weight_md, nodglobxfe, nodedge, fcluster, mcluster, xfem_tab, w, nv46, ipartig3d, kxig3d, ixig3d, sig3dsolid, knot, wige, nercvois, nesdvois, lercvois, lesdvois, crkedge, indx_crk, xedge4n, xedge3n, stack, sph2sol, stifn, stifr, igrnod, h3d_data, subset, multi_fvm, knotlocpc, knotlocel, fcont_max, fncontp2, ftcontp2, glob_therm, drape_sh4n, drape_sh3n, drapeg, output)
Definition genani.F:240
subroutine mpi_recv(buf, cnt, datatype, source, tag, comm, status, ierr)
Definition mpi.f:461
subroutine mpi_send(buf, cnt, datatype, dest, tag, comm, ierr)
Definition mpi.f:480
type(fvbag_spmd), dimension(:), allocatable fvspmd
Definition fvbag_mod.F:129
type(fvbag_data), dimension(:), allocatable fvdata
Definition fvbag_mod.F:128
integer nfvbag
Definition fvbag_mod.F:127
subroutine spmd_fvb_anod()
void write_r_c(float *w, int *len)