writeboun.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	writeboun (nodeboun, ndirboun, xboun, typeboun, nboun)

Function/Subroutine Documentation

writeboun()

subroutine writeboun	(	integer, dimension(*)	nodeboun,
		integer, dimension(*)	ndirboun,
		real*8, dimension(*)	xboun,
		character*1, dimension(*)	typeboun,
		integer	nboun
	)

!
!     writes an MPC to standard output (for debugging purposes)
!
      implicit none
!
      character*1 typeboun(*)
      integer nodeboun(*),ndirboun(*),nboun,i
      real*8 xboun(*)
!
      write(*,*)
      write(*,'(''SPC '')') 
      do i=1,nboun
         write(*,'(i5,1x,i10,1x,i5,1x,e11.4,1x,a1)') i,nodeboun(i),
     &             ndirboun(i),xboun(i),typeboun(i)
      enddo
!
      return