set_dd_mat_weight.F File Reference

#include "implicit_f.inc"
#include "userlib.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	set_dd_mat_weight (mat_weight1pt, mat_weight5pt, elem_type)
subroutine	init_mat_weight (nummat)

Function/Subroutine Documentation

init_mat_weight()

subroutine init_mat_weight

(

integer

nummat

)

Definition at line 64 of file set_dd_mat_weight.F.

C----------------------------------------------- 
      USE ddweights_mod
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
       INTEGER NUMMAT
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
         ALLOCATE (ddweights(1:2,1:2,1:nummat+1))
         ddweights(1:2,1:2,1:nummat+1)=zero

set_dd_mat_weight()

subroutine set_dd_mat_weight	(		mat_weight1pt,
			mat_weight5pt,
		integer	elem_type )

Definition at line 28 of file set_dd_mat_weight.F.

C----------------------------------------------- 
      USE ddweights_mod
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   A n a l y s e   M o d u l e
C-----------------------------------------------
#include      "userlib.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
       my_real mat_weight1pt,mat_weight5pt
       INTEGER ELEM_TYPE
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
C
C       print*,'MAT_NUMBER', MAT_NUMBER ,'WEIGHT:',MAT_WEIGHT1PT,MAT_WEIGHT5PT
C
       
       ddweights(1,elem_type,mat_number)=mat_weight1pt
       ddweights(2,elem_type,mat_number)=mat_weight5pt
 
!       DDWEIGHTS(1,2,MAT_NUMBER)=0.9
!       DDWEIGHTS(2,2,MAT_NUMBER)=3.7