brest2.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"
#include "param_c.inc"
#include "vect01_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	brest2 (volt, ic, voln, aire, aires, d1, d2, d3, d4, d5, d6, d1s, d2s, d3s, d4s, d5s, d6s, mat, mat_param, nummat)

Function/Subroutine Documentation

brest2()

subroutine brest2	(		volt,
		integer, dimension(7,*)	ic,
			voln,
			aire,
			aires,
			d1,
			d2,
			d3,
			d4,
			d5,
			d6,
			d1s,
			d2s,
			d3s,
			d4s,
			d5s,
			d6s,
		integer, dimension(*)	mat,
		type(matparam_struct_), dimension(nummat), intent(in)	mat_param,
		integer, intent(in)	nummat )

Definition at line 30 of file brest2.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE matparam_def_mod, ONLY : matparam_struct_
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "param_c.inc"
#include      "vect01_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IC(7,*), MAT(*)
      my_real volt(*), voln(mvsiz),
     .        aire(*), aires(*),
     .        d1(*), d2(*), d3(*), d4(*), d5(*), d6(*),
     .        d1s(*), d2s(*), d3s(*), d4s(*), d5s(*), d6s(*)
      INTEGEr,INTENT(IN) :: NUMMAT
      TYPE(MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(IN) :: MAT_PARAM
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, MT
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
      DO i=lft,llt
        mt=ic(1,i)
        mat(i)=mat_param(mt)%MULTIMAT%MID(jmult)
        voln(i)=volt(i)
        aire(i)=aires(i)
        d1(i)=d1s(i)
        d2(i)=d2s(i)
        d3(i)=d3s(i)
        d4(i)=d4s(i)
        d5(i)=d5s(i)
        d6(i)=d6s(i)
      ENDDO
 
      RETURN