cutmain.F File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cutmain (icut, xcut, ixs, xyz0, d, nodcut, nelcut, icbuf, cbuf, len, nbf)

Function/Subroutine Documentation

cutmain()

subroutine cutmain	(	integer, dimension(44,*)	icut,
			xcut,
		integer, dimension(nixs,*)	ixs,
			xyz0,
			d,
		integer	nodcut,
		integer	nelcut,
		integer, dimension(*)	icbuf,
			cbuf,
		integer	len,
		integer	nbf )

Definition at line 30 of file cutmain.F.

C------------------------------------------
C COMPTAGE DU NOMBRE D'ELEMENTS COUPES
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "scrcut_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      my_real
     .   xcut(7,*),xyz0(3,*),d(3,*),cbuf(*)
      INTEGER ICUT(44,*),IXS(NIXS,*),ICBUF(*),NODCUT,NELCUT,LEN,NBF
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IC,ITYP,NUMTOT,NUMEL,
     .MIC1,MIC2,MIC3,MIC4,MIC5,MIC6,MAC1,MAC2,MAC3
      mic1=1
      mic2=mic1+10*len
      mic3=mic2+12*len
      mic4=mic3+6*len
      mic5=mic4+ncuts
      mic6=mic5+ncuts
      mac1=1
      mac2=mac1+18*len
      mac3=mac2+6*len
      DO ic=1,ncuts
        ityp=icut(1,ic)
        CALL cutcon(ityp,xcut(1,ic),xcut(4,ic),xyz0,ixs,d,
     .              numtot,numel,
     .              icbuf(mic1),icbuf(mic2),icbuf(mic3),
     .              cbuf(mac1),cbuf(mac2),nodcut) 
        nodcut=nodcut+numtot
        nelcut=nelcut+numel
        icbuf(mic4)=nelcut+nbf
        icbuf(mic5)=nodcut          
        mic1=mic1+5*numel
        mic2=mic2+numtot*2
        mic4=mic4+1
        mic5=mic5+1
        mac1=mac1+3*numtot
        mac2=mac2+numtot
      ENDDO
      RETURN