init_trim.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	init_trim (ninter)

Function/Subroutine Documentation

init_trim()

subroutine init_trim

(

integer, intent(in)

ninter

)

Definition at line 30 of file init_trim.F.

C Initialize arrays that are use to decide if bounding boxes
C of each interfaces should be trimmed or not
C============================================================================
C   M o d u l e s
C-----------------------------------------------
      USE tri7box
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
      INTEGER, INTENT(IN) :: NINTER 
        ALLOCATE(to_trim(ninter))
        ALLOCATE(first_test(ninter))
        to_trim(1:ninter) = .true.
        first_test(1:ninter) = .true.