cbastra3pinch.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"
#include "vectorize.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	cbastra3pinch (jft, jlt, nplat, iplat, vdefpinch, epinchxz, epinchyz, ezz, dt1c, ng, ezzpg, epgpinchxz, epgpinchyz, epgpinchzz)

Function/Subroutine Documentation

cbastra3pinch()

subroutine cbastra3pinch	(	integer	jft,
		integer	jlt,
		integer	nplat,
		integer, dimension(*)	iplat,
			vdefpinch,
			epinchxz,
			epinchyz,
			ezz,
			dt1c,
		integer	ng,
			ezzpg,
			epgpinchxz,
			epgpinchyz,
			epgpinchzz )

Definition at line 30 of file cbastra3pinch.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE pinchtype_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   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER JLT,JFT,NPLAT,IPLAT(*),NG
      my_real
     .   vdefpinch(mvsiz,3),dt1c(*),
     .   epinchxz(*),epinchyz(*),ezz(mvsiz),ezzpg(mvsiz,4),
     .   epgpinchxz(mvsiz), epgpinchyz(mvsiz), epgpinchzz(mvsiz)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,EP
C-----------------------------------------------
#include "vectorize.inc"
      DO i=jft,jlt 
        ep=iplat(i)
        epinchxz(ep) = vdefpinch(ep,1) * dt1c(ep)
        epinchyz(ep) = vdefpinch(ep,2) * dt1c(ep)
        ezz(ep)      = vdefpinch(ep,3) * dt1c(ep)
        ezzpg(ep,ng) = ezz(ep)
C       for outputs in TH, strains are accumulated strains
        epgpinchxz(ep) = epgpinchxz(ep) + epinchxz(ep)
        epgpinchyz(ep) = epgpinchyz(ep) + epinchyz(ep)
        epgpinchzz(ep) = epgpinchzz(ep) + ezzpg(ep,ng)
      ENDDO
      RETURN