gasmechbc.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gasmechbc (vold, nload, sideload, nelemload, xload, mi)

Function/Subroutine Documentation

gasmechbc()

subroutine gasmechbc	(	real*8, dimension(0:mi(2),*)	vold,
		integer	nload,
		character*20, dimension(*)	sideload,
		integer, dimension(2,*)	nelemload,
		real*8, dimension(2,*)	xload,
		integer, dimension(*)	mi
	)

!     
      implicit none
!     
      character*20 sideload(*) 
!     
      integer i,nload,node,nelemload(2,*),mi(*)
!     
      real*8 vold(0:mi(2),*),xload(2,*)
!
!     updating the boudary conditions in a mechanical
!     calculation coming from a previous thermal calculation
!     
!     updating the pressure boundary conditions
!     
      do i=1,nload
         if(sideload(i)(3:4).eq.'NP') then
            node=nelemload(2,i)
            xload(1,i)=vold(2,node)
         endif
      enddo
!      
      return