m13law.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	m13law (rdum1, rdum2, rdum3, rdum4, rdum5, rdum6, rdum7, rdum8, rdum9)

Function/Subroutine Documentation

m13law()

subroutine m13law	(	double precision	rdum1,
		double precision	rdum2,
		double precision	rdum3,
		double precision	rdum4,
		double precision	rdum5,
		double precision	rdum6,
		double precision	rdum7,
		double precision	rdum8,
		double precision	rdum9 )

Definition at line 33 of file m13law.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER MAT
      CHARACTER MESG*80, CHAR*5
      double precision
     .          rdum1,rdum2,rdum3,rdum4,rdum5,
     .          rdum6,rdum7,rdum8,rdum9
C-----------------------------------------------
      char = ''
      mat  = 13
      mesg = 'MATERIAL LAW TYPE'//char
      CALL ancmsg(msgid=180,anmode=aninfo,c1=mesg)
      CALL arret(2)
      RETURN
C---------------------------