i21sto.F File Reference

#include "implicit_f.inc"
#include "comlock.inc"
#include "mvsiz_p.inc"
#include "lockon.inc"
#include "lockoff.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i21sto (j_stok, irect, xloc, ii_stok, cand_n, cand_e, mulnsn, noint, marge, i_mem, prov_n, prov_e, eshift, inacti, nsn, igap, gap, gap_s, gapmin, gapmax, curv_max, xm0, nod_normal, depth, drad, dgapload)

Function/Subroutine Documentation

i21sto()

subroutine i21sto	(	integer	j_stok,
		integer, dimension(4,*)	irect,
			xloc,
		integer	ii_stok,
		integer, dimension(*)	cand_n,
		integer, dimension(*)	cand_e,
		integer	mulnsn,
		integer	noint,
			marge,
		integer	i_mem,
		integer, dimension(mvsiz)	prov_n,
		integer, dimension(mvsiz)	prov_e,
		integer	eshift,
		integer	inacti,
		integer	nsn,
		integer	igap,
			gap,
			gap_s,
			gapmin,
			gapmax,
			curv_max,
			xm0,
			nod_normal,
			depth,
		intent(in)	drad,
		intent(in)	dgapload )

Definition at line 31 of file i21sto.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "comlock.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER I_MEM, NSN,IGAP
      INTEGER J_STOK,MULNSN,NOINT,INACTI,ESHIFT,II_STOK
      INTEGER IRECT(4,*),CAND_N(*),CAND_E(*)
      INTEGER PROV_N(MVSIZ),PROV_E(MVSIZ)
C     REAL
      my_real
     .        xloc(3,*), gap_s(*), 
     .        marge, gap, gapmin, gapmax, curv_max(*),
     .        depth, xm0(3,*), nod_normal(3,*)
      my_real , INTENT(IN) :: dgapload,drad
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,K_STOK,I_STOK,N,NE,J
      INTEGER IX1(MVSIZ), IX2(MVSIZ), IX3(MVSIZ), IX4(MVSIZ)
C     REAL
      my_real
     .   x1(mvsiz), x2(mvsiz), x3(mvsiz), x4(mvsiz),
     .   y1(mvsiz), y2(mvsiz), y3(mvsiz), y4(mvsiz),
     .   z1(mvsiz), z2(mvsiz), z3(mvsiz), z4(mvsiz),
     .   xi(mvsiz), yi(mvsiz), zi(mvsiz),
     .   nnx1(mvsiz), nnx2(mvsiz), nnx3(mvsiz), nnx4(mvsiz),
     .   nny1(mvsiz), nny2(mvsiz), nny3(mvsiz), nny4(mvsiz),
     .   nnz1(mvsiz), nnz2(mvsiz), nnz3(mvsiz), nnz4(mvsiz),
     .   pene(mvsiz), gapv(mvsiz)
C-----------------------------------------------
        CALL i21cor3t(j_stok ,xloc ,irect ,prov_e ,
     1               prov_n  ,igap ,gap   ,x1    ,x2     ,
     2               x3      ,x4   ,y1    ,y2   ,y3   ,
     3               y4      ,z1   ,z2    ,z3   ,z4   ,
     4               xi      ,yi   ,zi    ,ix1   ,ix2    ,  
     5               ix3     ,ix4  ,nsn   ,gap_s ,gapv   ,
     6               gapmax  ,gapmin,curv_max,depth ,xm0 ,
     7               drad    ,dgapload)
C-----------------------------------------------
        CALL i7pen3(j_stok ,marge  ,x1    ,x2     ,x3   ,
     .               x4    ,y1     ,y2    ,y3     ,y4   ,
     .               z1    ,z2     ,z3    ,z4     ,xi   ,
     .               yi    ,zi     ,pene  ,ix1    ,ix2  ,
     .               ix3   ,ix4    ,igap  ,gap    ,gapv )
C-----------------------------------------------
        k_stok = 0
        DO i=1,j_stok
          IF(pene(i)/=zero) k_stok = k_stok + 1
        ENDDO
        IF(k_stok==0)RETURN
C
#include "lockon.inc"
          i_stok = ii_stok 
          IF(i_stok+k_stok>mulnsn) THEN
            i_mem = 2
#include "lockoff.inc"
            RETURN
          ENDIF
          ii_stok   = i_stok + k_stok
#include "lockoff.inc"
C-----------------------------------------------
        DO i=1,j_stok
          IF(pene(i)/=zero)THEN
            i_stok = i_stok + 1
            cand_n(i_stok) = prov_n(i)
            cand_e(i_stok) = prov_e(i)+eshift
          ENDIF
        ENDDO
C-----------------------------------------------
      RETURN