cbaener.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	cbaener (forpg, eint, jft, jlt, off, vol, exy, nel)
subroutine	cbaeners (jft, jlt, off, area, thk0, def, forpg, eint, dt, nel)

Function/Subroutine Documentation

cbaener()

subroutine cbaener	(		forpg,
			eint,
		integer	jft,
		integer	jlt,
			off,
			vol,
			exy,
		integer	nel )

Definition at line 28 of file cbaener.F.

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 JFT ,JLT,NEL
       my_real 
     .     vol(*),off(*), exy(*) ,forpg(nel,5),eint(nel,2) 
C-----------------------------------------------
C   L O C A L   V A R I A B L E S
C-----------------------------------------------
        INTEGER I 
        my_real  thoff 
C=======================================================================
        DO i=jft,jlt
          thoff = half* off(i)*vol(i)
          eint(i,1) = eint(i,1) - forpg(i,3)*exy(i)*thoff
       ENDDO
c------------
       RETURN

cbaeners()

subroutine cbaeners	(	integer	jft,
		integer	jlt,
			off,
			area,
			thk0,
			def,
			forpg,
			eint,
			dt,
		integer	nel )

Definition at line 58 of file cbaener.F.

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
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 JFT ,JLT,NEL
       my_real 
     .     area(*),thk0(*),off(*), def(mvsiz,8) ,forpg(nel,5),eint(nel,2),dt 
C-----------------------------------------------
C   L O C A L   V A R I A B L E S
C-----------------------------------------------
        INTEGER I 
        my_real  thoff 
C
        DO i=jft,jlt
          thoff = off(i)* area(i)*thk0(i)*dt*half
          eint(i,1) = eint(i,1) + forpg(i,3)*def(i,3)*thoff
       ENDDO
       RETURN