init_iflags.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	init_iflags (iflags, isize, jsize)

Function/Subroutine Documentation

init_iflags()

subroutine init_iflags	(	integer(kind=1), dimension (0:isize+1,0:jsize+1)	iflags,
			isize,
			jsize
	)

Definition at line 5 of file init_iflags.f.

c
c      # Need this routine to initialize since iflags is part of double 
c      # precision alloc array but is used as an integer(kind=1) to save storage.

       implicit double precision (a-h,o-z)

       integer(kind=1)  iflags (0:isize+1,0:jsize+1)

         do j = 1, jsize
         do i = 1, isize
           iflags(i,j) = 0
           enddo
         enddo

       return