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

Go to the source code of this file.

Functions/Subroutines

subroutine spmd_sg_fani (rdum1, rdum2, idum1, idum2, idum3, idum4)
subroutine spmd_get_mult (lagcomc, lagcomk, n_mult, bll, iadll, lll, jll, sll, xll, comntag, icftag, jcftag, fr_lagf, n_ik)
subroutine spmd_gg_mult (a, ar, v, vr, ms, in, ag, arg, vg, vrg, msg, ing, fr_lagf, isiz, nbnodl, indexlag, nodglob, llagf, nlagf_l)
subroutine spmd_sg_mult (a, ar, ag, arg, fr_lagf, isiz, nbnodl, llagf, nlagf_l)
subroutine spmd_exch_mult (a, ar, llagf, nlagf_l, fr_lagf, iad_elem, fr_elem, lrbuf, isiz)

Function/Subroutine Documentation

◆ spmd_exch_mult()

subroutine spmd_exch_mult ( a,
ar,
integer, dimension(*) llagf,
integer nlagf_l,
integer, dimension(3,*) fr_lagf,
integer, dimension(2,*) iad_elem,
integer, dimension(*) fr_elem,
integer lrbuf,
integer isiz )

Definition at line 892 of file spmd_lag.F.

895C-----------------------------------------------
896C I m p l i c i t T y p e s
897C-----------------------------------------------
898 USE spmd_comm_world_mod, ONLY : spmd_comm_world
899#include "implicit_f.inc"
900C-----------------------------------------------
901C D u m m y A r g u m e n t s
902C-----------------------------------------------
903 INTEGER NLAGF_L,LRBUF,ISIZ,
904 . FR_LAGF(3,*),LLAGF(*),IAD_ELEM(2,*),FR_ELEM(*)
905 my_real
906 . a(3,*), ar(3,*)
907C-----------------------------------------------
908C L o c a l V a r i a b l e s
909C-----------------------------------------------
910 RETURN
my_real
#define my_real
Definition cppsort.cpp:32

◆ spmd_get_mult()

subroutine spmd_get_mult ( lagcomc,
lagcomk,
integer n_mult,
bll,
integer, dimension(*) iadll,
integer, dimension(*) lll,
integer, dimension(*) jll,
integer, dimension(*) sll,
xll,
integer, dimension(*) comntag,
integer, dimension(*) icftag,
integer, dimension(*) jcftag,
integer, dimension(3,*) fr_lagf,
integer n_ik )

Definition at line 721 of file spmd_lag.F.

725C-----------------------------------------------
726C I m p l i c i t T y p e s
727C-----------------------------------------------
728 USE spmd_comm_world_mod, ONLY : spmd_comm_world
729#include "implicit_f.inc"
730C-----------------------------------------------
731C D u m m y A r g u m e n t s
732C-----------------------------------------------
733 INTEGER N_MULT, N_IK,
734 . LLL(*), JLL(*), SLL(*), IADLL(*),
735 . COMNTAG(*), ICFTAG(*), JCFTAG(*), FR_LAGF(3,*)
736 my_real
737 . lagcomk(4,*),lagcomc(2,*), xll(*), bll(*)
738C-----------------------------------------------
739C L O C A L V A R I A B L E S
740C-----------------------------------------------
741 INTEGER I,NCL,IKL,N
742
743 DO n = 1, n_mult
744 iadll(n+1) = iadll(n)+nint(lagcomc(1,n))
745 bll(n) = lagcomc(2,n)
746C ICTAG et JCFTAG : id (pas de cond. autre que fixe pour le moment !)
747 icftag(n) = n
748 jcftag(n) = n
749 END DO
750 DO n = 1, n_ik
751 lll(n) = nint(lagcomk(1,n))
752 jll(n) = nint(lagcomk(2,n))
753 sll(n) = nint(lagcomk(3,n))
754 xll(n) = lagcomk(4,n)
755C mise a jour du flag directement ici et non dans LTAG_FXV
756 comntag(lll(n)) = comntag(lll(n))+1
757 END DO
758C
759 RETURN

◆ spmd_gg_mult()

subroutine spmd_gg_mult ( a,
ar,
v,
vr,
ms,
in,
ag,
arg,
vg,
vrg,
msg,
ing,
integer, dimension(3,*) fr_lagf,
integer isiz,
integer nbnodl,
integer, dimension(*) indexlag,
integer, dimension(*) nodglob,
integer, dimension(*) llagf,
integer nlagf_l )

Definition at line 769 of file spmd_lag.F.

774C-----------------------------------------------
775C I m p l i c i t T y p e s
776C-----------------------------------------------
777 USE spmd_comm_world_mod, ONLY : spmd_comm_world
778#include "implicit_f.inc"
779C-----------------------------------------------
780C C o m m o n B l o c k s
781C-----------------------------------------------
782#include "com01_c.inc"
783C-----------------------------------------------
784C D u m m y A r g u m e n t s
785C-----------------------------------------------
786 INTEGER FR_LAGF(3,*), INDEXLAG(*), NODGLOB(*), LLAGF(*),
787 . NBNODL, NLAGF_L, ISIZ
788 my_real
789 . a(3,*), ar(3,*), v(3,*), vr(3,*), ms(*), in(*),
790 . ag(3,*), arg(3,*), vg(3,*), vrg(3,*), msg(*), ing(*)
791C-----------------------------------------------
792C L O C A L V A R I A B L E S
793C-----------------------------------------------
794 INTEGER I,N
795C
796 IF(iroddl/=0)THEN
797 DO i = 1, nlagf_l
798 n = llagf(i)
799 indexlag(nodglob(n)) = i
800 ag(1,i) = a(1,n)
801 ag(2,i) = a(2,n)
802 ag(3,i) = a(3,n)
803 msg(i) = ms(n)
804 vg(1,i) = v(1,n)
805 vg(2,i) = v(2,n)
806 vg(3,i) = v(3,n)
807 arg(1,i)= ar(1,n)
808 arg(2,i)= ar(2,n)
809 arg(3,i)= ar(3,n)
810 ing(i) = in(n)
811 vrg(1,i)= vr(1,n)
812 vrg(2,i)= vr(2,n)
813 vrg(3,i)= vr(3,n)
814 END DO
815 ELSE
816 DO i = 1, nlagf_l
817 n = llagf(i)
818 indexlag(nodglob(n)) = i
819 ag(1,i) = a(1,n)
820 ag(2,i) = a(2,n)
821 ag(3,i) = a(3,n)
822 msg(i) = ms(n)
823 vg(1,i) = v(1,n)
824 vg(2,i) = v(2,n)
825 vg(3,i) = v(3,n)
826 END DO
827 END IF
828C
829 RETURN

◆ spmd_sg_fani()

subroutine spmd_sg_fani ( rdum1,
rdum2,
integer idum1,
integer idum2,
integer idum3,
integer idum4 )

Definition at line 701 of file spmd_lag.F.

703C-----------------------------------------------
704 USE spmd_comm_world_mod, ONLY : spmd_comm_world
705#include "implicit_f.inc"
706C-----------------------------------------------
707 integer
708 . idum1, idum2, idum3, idum4, idum5
709 my_real
710 . rdum1, rdum2, rdum3, rdum4, rdum5
711 RETURN

◆ spmd_sg_mult()

subroutine spmd_sg_mult ( a,
ar,
ag,
arg,
integer, dimension(3,*) fr_lagf,
integer isiz,
integer nbnodl,
integer, dimension(*) llagf,
integer nlagf_l )

Definition at line 839 of file spmd_lag.F.

842C-----------------------------------------------
843C I m p l i c i t T y p e s
844C-----------------------------------------------
845 USE spmd_comm_world_mod, ONLY : spmd_comm_world
846#include "implicit_f.inc"
847C-----------------------------------------------
848C C o m m o n B l o c k s
849C-----------------------------------------------
850#include "com01_c.inc"
851C-----------------------------------------------
852C D u m m y A r g u m e n t s
853C-----------------------------------------------
854 INTEGER FR_LAGF(3,*), LLAGF(*),
855 . NBNODL, NLAGF_L, ISIZ
856 my_real
857 . a(3,*), ar(3,*),ag(3,*), arg(3,*)
858C-----------------------------------------------
859C L O C A L V A R I A B L E S
860C-----------------------------------------------
861 INTEGER I,N
862C
863 IF(iroddl/=0)THEN
864 DO i = 1, nlagf_l
865 n = llagf(i)
866 a(1,n) = ag(1,i)
867 a(2,n) = ag(2,i)
868 a(3,n) = ag(3,i)
869 ar(1,n) = arg(1,i)
870 ar(2,n) = arg(2,i)
871 ar(3,n) = arg(3,i)
872 END DO
873 ELSE
874 DO i = 1, nlagf_l
875 n = llagf(i)
876 a(1,n) = ag(1,i)
877 a(2,n) = ag(2,i)
878 a(3,n) = ag(3,i)
879 END DO
880 END IF
881C
882 RETURN