dtmain.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	dtmain (geo, pm, ipm, pid, mat, fv, eint, temp, deltax, rk, re, bufmat, ddeltax, aire, vol, dtx, igeo, igtyp)

Function/Subroutine Documentation

dtmain()

subroutine dtmain	(		geo,
			pm,
		integer, dimension(*)	ipm,
		integer, dimension(*)	pid,
		integer, dimension(*)	mat,
			fv,
			eint,
			temp,
			deltax,
			rk,
			re,
		dimension(*), intent(in)	bufmat,
			ddeltax,
			aire,
			vol,
			dtx,
		integer, dimension(npropgi,*)	igeo,
		integer, intent(in)	igtyp )

Definition at line 64 of file dtmain.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE elbufdef_mod            
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "vect01_c.inc"
#include      "units_c.inc"
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ,INTENT(IN) :: IGTYP
      INTEGER             :: IPM(*), PID(*), MAT(*),IGEO(NPROPGI,*)
      my_real             :: pm(*),geo(*),fv,eint(*),temp(*),deltax(*),rk(*),re(*), ddeltax(*),
     .     aire(*), vol(*), dtx(*)
      my_real, INTENT(IN) :: bufmat(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s 
C-----------------------------------------------
C=======================================================================
      SELECT CASE(mtn)
c
      CASE (1,2,13,22,28,29,30,31,33,35)
        CALL dt1law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
      CASE (3,4,23)
        CALL dt3law(pm,eint,geo,pid,mat, ddeltax, aire, vol, dtx)
      CASE (5,97)
        CALL dt5law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
      CASE (6,17)
        CALL dt6law(pm,eint,rk,re,geo,pid,mat, ddeltax, aire, vol, dtx)
      CASE (7,8,9)
      CASE (10,102)
        CALL dt10law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
      CASE (11)
        CALL dt11law(ddeltax, dtx)
      CASE (12,14)
        CALL dt14law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
      CASE (15,24)
        CALL dt15law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
      CASE (16)
        CALL dt16law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
      CASE (18)
        CALL dt18law(pm,ipm,mat,eint,temp,deltax, dtx)
      CASE (21)
        CALL dt21law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
      CASE (25)
        CALL dt25law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
      CASE (34)
        CALL dt34law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
      CASE (19,20,26,27,32)
        CONTINUE
      CASE (37)
        CALL dt37law(pm,geo,pid,mat,bufmat,ipm, ddeltax, aire, vol, dtx)
      CASE (38,88)
        CALL dt38law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
      CASE (42,69)
        CALL dt42law(pm,geo,pid,mat, ddeltax, aire, vol, dtx, llt )
      CASE (51)
        CALL dt51law(pm,geo,pid,mat,bufmat,ipm, ddeltax, aire, vol, dtx)
      CASE (59,83,116,117)
          dtx(lft:llt) = ep20
          WRITE(iout,1000) mtn
      CASE (120)
        IF (igtyp == 43)THEN
          dtx(lft:llt) = ep20
          WRITE(iout,1000) mtn
        ELSE
          CALL dt1law(pm,geo,pid,mat, ddeltax, aire, vol, dtx )
        ENDIF
      CASE (105)
        CALL dt105law(pm,geo,pid,mat, ddeltax, aire, vol, dtx)
      CASE (70)
        CALL dt70law(pm,geo,pid,mat, ddeltax, aire, vol, dtx,igeo )
      CASE DEFAULT
        CALL dt1law(pm,geo,pid,mat, ddeltax, aire, vol, dtx )
      END SELECT
C-----------
 1000 FORMAT(/,1x,' ELEMENT TIME STEP IS NOT COMPUTED FOR MATERIAL LAW NO',i4,/)
C-----------
      RETURN