read_elgroup_param.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	read_elgroup_param (mat_elem)

Function/Subroutine Documentation

read_elgroup_param()

subroutine read_elgroup_param

(

type (mat_elem_), intent(inout)

mat_elem

)

Definition at line 32 of file read_elgroup_param.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE mat_elem_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      TYPE (mat_elem_) ,INTENT(INOUT) :: mat_elem
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NG,NGROUP,LEN
      my_real, DIMENSION(:,:), ALLOCATABLE :: rbuf
C=======================================================================
c     allocation of element group parameters
      ngroup = mat_elem%NGROUP
      ALLOCATE (mat_elem%GROUP_PARAM(ngroup) )
 
      len = 2
      ALLOCATE(rbuf(ngroup,len))
      CALL read_db(rbuf, len*ngroup)
c
      DO ng = 1, ngroup
        mat_elem%GROUP_PARAM(ng)%VISC_DM = rbuf(ng,1)
        mat_elem%GROUP_PARAM(ng)%VISC_DN = rbuf(ng,2)
      ENDDO
c
      DEALLOCATE( rbuf )
c-----------
      RETURN