mmain.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"
#include "param_c.inc"
#include "vect01_c.inc"
#include "scr17_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	mmain (pm, elbuf_str, ix, nix, x, geo, iparg, nel, skew, bufmat, ipart, ipartel, nummat, matparam, imat, ipm, ngl, pid, npf, tf, mfxx, mfxy, mfxz, mfyx, mfyy, mfyz, mfzx, mfzy, mfzz, rx, ry, rz, sx, sy, sz, gama, voln, dvol, s1, s2, s3, s4, s5, s6, dxx, dyy, dzz, d4, d5, d6, wxx, wyy, wzz)

Function/Subroutine Documentation

mmain()

subroutine mmain	(		pm,
		type (elbuf_struct_), target	elbuf_str,
		integer, dimension(nix,*)	ix,
		integer, intent(in)	nix,
			x,
			geo,
		integer, dimension(*)	iparg,
		integer, intent(in)	nel,
			skew,
			bufmat,
		integer, dimension(lipart1,*)	ipart,
		integer, dimension(*)	ipartel,
		integer, intent(in)	nummat,
		type(matparam_struct_), dimension(nummat), intent(inout)	matparam,
		integer, intent(in)	imat,
		integer, dimension(npropmi,*)	ipm,
		integer, dimension(*)	ngl,
		integer, dimension(*)	pid,
		integer, dimension(*)	npf,
			tf,
			mfxx,
			mfxy,
			mfxz,
			mfyx,
			mfyy,
			mfyz,
			mfzx,
			mfzy,
			mfzz,
			rx,
			ry,
			rz,
			sx,
			sy,
			sz,
			gama,
			voln,
			dvol,
			s1,
			s2,
			s3,
			s4,
			s5,
			s6,
			dxx,
			dyy,
			dzz,
			d4,
			d5,
			d6,
			wxx,
			wyy,
			wzz )

Definition at line 32 of file mmain.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE mat_elem_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "param_c.inc"
#include      "vect01_c.inc"
#include      "scr17_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ,INTENT(IN) :: NUMMAT
      INTEGER ,INTENT(IN) :: IMAT
      INTEGER ,INTENT(IN) :: NIX,NEL
      INTEGER IX(NIX,*), IPARG(*),
     .        IPART(LIPART1,*),IPARTEL(*),IPM(NPROPMI,*),
     .        NGL(*), PID(*), NPF(*)
      my_real
     .   x(*), geo(*), pm(npropm,*),
     .   skew(lskew,*),bufmat(*),
     .   mfxx(*)  ,mfxy(*)  ,mfxz(*)  ,mfyx(*)  ,mfyy(*)  ,
     .   mfyz(*)  ,mfzx(*)  ,mfzy(*)  ,mfzz(*) ,
     .   rx(*)    ,ry(*)    ,rz(*)    ,
     .   sx(*)    ,sy(*)    ,sz(*)    ,gama(nel,6),
     .   voln(*)  ,dvol(*),
     .   tf(*)    ,dxx(*)   ,dyy(*)   ,dzz(*),
     .   d4(*)    ,d5(*)    ,d6(*),
     .   wxx(*)   ,wyy(*)   ,wzz(*),
     .   s1(*)    ,s2(*)    ,s3(*) ,
     .   s4(*)    ,s5(*)    ,s6(*)
      TYPE (ELBUF_STRUCT_), TARGET :: ELBUF_STR
      TYPE(MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(INOUT) :: MATPARAM
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NUVAR,NVARTMP,NUVARR
      my_real
     .   tx(mvsiz), ty(mvsiz), tz(mvsiz),
     .   vis(mvsiz), cxx(mvsiz), off(mvsiz), epsd(mvsiz)
C-----
      TYPE(G_BUFEL_) ,POINTER :: GBUF
      TYPE(L_BUFEL_) ,POINTER :: LBUF     
      TYPE(BUF_MAT_) ,POINTER :: MBUF  
C=======================================================================
      IF (mtn >= 28 .AND. mtn /= 49.OR.mtn ==1) THEN
        gbuf  => elbuf_str%GBUF
        lbuf  => elbuf_str%BUFLY(1)%LBUF(1,1,1)
        mbuf  => elbuf_str%BUFLY(1)%MAT(1,1,1)
        nuvar =  elbuf_str%BUFLY(1)%NVAR_MAT
        nvartmp =  elbuf_str%BUFLY(1)%NVARTMP
        off   =  one
        epsd  =  zero
C
        CALL mulaw(lft      ,llt      ,nft      ,mtn      ,jcvt    ,
     2             pm       ,off      ,gbuf%SIG ,gbuf%EINT,gbuf%RHO,
     3             gbuf%VOL ,lbuf%STRA,gama     ,
     4             mbuf%VAR ,bufmat   ,tf       ,npf      ,
     5             imat     ,ngl      ,nuvar    ,nvartmp, mbuf%VARTMP,
     6             geo      ,pid      ,epsd     ,
     8             wxx      ,wyy      ,wzz      ,jsph     ,cxx    ,
     a             voln     ,vis      ,dxx      ,
     b             dyy      ,dzz      ,d4       ,d5       ,d6     ,
     c             dvol     ,s1       ,s2       ,s3       ,s4     ,
     d             s5       ,s6       ,rx       ,ry       ,rz     ,
     e             sx       ,sy       ,sz       ,tx       ,ty     ,
     f             tz       ,ismstr   ,
     g             mfxx     ,mfxy     ,mfxz     ,mfyx     ,mfyy   ,
     h             mfyz     ,mfzx     ,mfzy     ,mfzz     ,ipm    ,
     i             isorth   ,nel      ,matparam)
     j             
      ENDIF
C------------
      RETURN