mattab_usr2sys.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	mattab_usr2sys (titr, mat_id, ntable, table, ntabl, itable)

Function/Subroutine Documentation

mattab_usr2sys()

subroutine mattab_usr2sys	(	character(len=nchartitle), intent(in)	titr,
		integer, intent(in)	mat_id,
		integer, intent(in)	ntable,
		type(ttable), dimension(ntable)	table,
		integer, intent(in)	ntabl,
		integer, dimension(ntabl)	itable )

Definition at line 38 of file mattab_usr2sys.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
      USE table_mod
      USE names_and_titles_mod , ONLY : nchartitle
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-----------------------------------------------
      INTEGER ,INTENT(IN)  :: MAT_ID
      INTEGER ,INTENT(IN)  :: NTABLE  ! total number of function tables
      INTEGER ,INTENT(IN)  :: NTABL   ! number of function tables in material/failure law
      INTEGER      ,DIMENSION(NTABL)   :: ITABLE    ! Table IDs in material law
      TYPE(TTABLE) ,DIMENSION(NTABLE)  :: TABLE
      CHARACTER(LEN=NCHARTITLE) ,INTENT(IN) :: TITR
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,TABL_ID,OK
C=======================================================================
      DO i=1,ntabl          ! number of tables in material                 
        tabl_id = itable(i)
        IF (tabl_id > 0) THEN
          ok = 0
          DO j=1,ntable     ! total number of tables                
           IF (tabl_id == table(j)%NOTABLE) THEN           
              itable(i) = j
              ok = 1
              EXIT                            
            ENDIF                              
          ENDDO                                
          IF (ok == 0) THEN
            CALL ancmsg(msgid=779, msgtype=msgerror, anmode=aninfo,
     .                  i1=mat_id  ,
     .                  c1=titr,
     .                  i2=tabl_id )
            itable(i) = 0
          ENDIF                                 
        ENDIF                                 
c
      ENDDO  ! I=1,NTABL 
c-----------
      RETURN