m105init.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	m105init (ipm, detonators, pm, nuvar, uvar, uparam, x, mat, iparg, iform, ix, nix, bufmat, rho0, tb)

Function/Subroutine Documentation

m105init()

subroutine m105init	(	integer, dimension(npropmi,*)	ipm,
		type(detonators_struct_)	detonators,
			pm,
		integer	nuvar,
			uvar,
			uparam,
			x,
		integer, dimension(*)	mat,
		integer, dimension(nparg)	iparg,
		integer	iform,
		integer, dimension(nix,*)	ix,
		integer	nix,
			bufmat,
			rho0,
			tb )

Definition at line 33 of file m105init.F.

      USE detonators_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      "com01_c.inc"
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IPM(NPROPMI,*),MAT(*), IPARG(NPARG),IFORM,NIX,IX(NIX,*)
      my_real  
     .   pm(npropm,*),uvar(*),
     .   uparam(*), x(3,*), bufmat(*), rho0, tb(*)
      TYPE(DETONATORS_STRUCT_)::DETONATORS
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,NUVAR, GG1, GG2, GG3, ISFLUID
      INTEGER NPH,IFLG,NV46
C-----------------------------------------------
 
      !---------------------------------!
      ! Compute Burning Time            !
      !---------------------------------!
      nph = 1
      IF(n2d==0)THEN
        CALL m5in3 (pm,mat,0,detonators,tb,iparg,x,ix,nix)
      ELSE
        CALL m5in2 (pm,mat,0,detonators,tb,x,ix,nix)
      ENDIF
 
C-----------------------------------------------
      RETURN