stack_mod Module Reference

Data Types
type	stack_ply
type	stack_info_

Functions/Subroutines
subroutine	stack_ply_alloc (stack, ipart_stack, npt_stack, ns_stack)

Variables
integer, dimension(:,:), allocatable	ply_info

Function/Subroutine Documentation

stack_ply_alloc()

subroutine stack_mod::stack_ply_alloc	(	type(stack_ply), intent(inout)	stack,
		integer, intent(in)	ipart_stack,
		integer, intent(in)	npt_stack,
		integer, intent(in)	ns_stack )

Definition at line 149 of file stack_mod.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
          USE message_mod
C-----------------------------------------------------------------------
          IMPLICIT NONE
C-----------------------------------------------
C   m y _ r e a l
C-----------------------------------------------
#include      "my_real.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
          TYPE(STACK_PLY),INTENT(INOUT) :: STACK
          INTEGER,INTENT(IN) :: IPART_STACK
          INTEGER,INTENT(IN) :: NPT_STACK
          INTEGER,INTENT(IN) :: NS_STACK
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
          INTEGER IERR
C-----------------------------------------------
          IF(ipart_stack >0) THEN
 
               
               ALLOCATE(stack%IGEO(4*npt_stack+2,ns_stack),stat=ierr)
               IF(ierr/=0) THEN
                  CALL ancmsg(msgid=19,anmode=aninfo,c1='(/PROP/STACK/...)')
                  CALL arret(2)
               ENDIF
               stack%IGEO = 0
 
               ALLOCATE(stack%GEO(6*npt_stack+1,ns_stack),stat=ierr)
               IF(ierr/=0) THEN
                   CALL ancmsg(msgid=19,anmode=aninfo,c1='(/PROP/STACK/...)')
                   CALL arret(2)
               ENDIF
               stack%GEO = 0.0
 
               ALLOCATE(stack%PM(20,ns_stack),stat=ierr)
               IF(ierr/=0) THEN
                   CALL ancmsg(msgid=19,anmode=aninfo,c1='(/PROP/STACK/...)')
                   CALL arret(2)
               ENDIF
               stack%PM = 0.0
          ELSE
               ALLOCATE(stack%IGEO(0,0),stack%GEO(0,0),stack%PM(0,0))
          ENDIF 
 

Variable Documentation

ply_info

integer, dimension(:,:), allocatable stack_mod::ply_info

Definition at line 133 of file stack_mod.F.

      INTEGER , DIMENSION(:,:), ALLOCATABLE :: 
     .      PLY_INFO