parcut.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	parcut (ixc, nelcut)

Function/Subroutine Documentation

parcut()

subroutine parcut	(	integer, dimension(5,*)	ixc,
		integer	nelcut )

Definition at line 30 of file parcut.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "com04_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IXC(5,*),NELCUT
C-----------------------------------------------
      INTEGER II(4),N,NS
C
      ns=numnod-1
      DO 80 n=1,nelcut
          ii(1) = ixc(1,n)+ns
          ii(2) = ixc(2,n)+ns
          ii(3) = ixc(3,n)+ns
          ii(4) = ixc(4,n)+ns
          CALL write_i_c(ii,4)
  80  CONTINUE
      RETURN