create_line_from_surface.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	create_line_from_surface (clause, keyset, opt_a, opt_e, delbuf, go_in_array)

Function/Subroutine Documentation

create_line_from_surface()

subroutine create_line_from_surface	(	type (set_)	clause,
		character(len=ncharfield)	keyset,
		integer	opt_a,
		integer	opt_e,
		type (set_scratch)	delbuf,
		logical	go_in_array )

Definition at line 33 of file create_line_from_surface.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE setdef_mod
      USE set_scratch_mod
      USE names_and_titles_mod , ONLY : ncharfield
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER OPT_A,OPT_E
      CHARACTER(LEN=NCHARFIELD):: KEYSET
      TYPE (SET_) :: CLAUSE
      TYPE (SET_SCRATCH) ::  DELBUF
      LOGICAL GO_IN_ARRAY
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IEXT
C=======================================================================
 
 
!------------------
      iext = 1  ! par default (external surface)
      IF ( opt_a == 1 .OR. keyset == 'ALL' .OR. 
     .                     keyset == 'BOX' .OR.
     .                     keyset == 'BOX2')  iext = 2 ! all surfaces (internal + external)
!------------------
 
      CALL create_line_from_surface_ext_all(clause ,iext ,opt_e,delbuf,go_in_array)
 
C-----------
      RETURN