init.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	init (nktet, inodfa, ipofa, netet_)

Function/Subroutine Documentation

init()

subroutine init	(	integer	nktet,
		integer, dimension(4,*)	inodfa,
		integer, dimension(*)	ipofa,
		integer	netet_
	)

!
      implicit none
!
      integer nktet,i,netet_,inodfa(4,*),ipofa(*)
!
!     initialization of ipofa and inodfa
!
      do i=1,nktet
         ipofa(i)=0
      enddo
      do i=1,4*netet_
         inodfa(4,i)=i+1
      enddo
      inodfa(4,4*netet_)=0
!
      return