i21cor3t.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i21cor3t (jlt, xloc, irect, cand_e, cand_n, igap, gap, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, xi, yi, zi, ix1, ix2, ix3, ix4, nsn, gap_s, gapv, gapmax, gapmin, curv_max, depth, xm0, drad, dgapload)

Function/Subroutine Documentation

i21cor3t()

subroutine i21cor3t	(	integer	jlt,
			xloc,
		integer, dimension(4,*)	irect,
		integer, dimension(*)	cand_e,
		integer, dimension(*)	cand_n,
		integer	igap,
			gap,
			x1,
			x2,
			x3,
			x4,
			y1,
			y2,
			y3,
			y4,
			z1,
			z2,
			z3,
			z4,
			xi,
			yi,
			zi,
		integer, dimension(mvsiz)	ix1,
		integer, dimension(mvsiz)	ix2,
		integer, dimension(mvsiz)	ix3,
		integer, dimension(mvsiz)	ix4,
		integer	nsn,
			gap_s,
			gapv,
			gapmax,
			gapmin,
			curv_max,
			depth,
			xm0,
		intent(in)	drad,
		intent(in)	dgapload )

Definition at line 28 of file i21cor3t.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.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 IRECT(4,*), CAND_E(*), CAND_N(*),
     .    JLT,IDT, NOINT, NSN, IGAP ,ITYP
      INTEGER IX1(MVSIZ), IX2(MVSIZ), IX3(MVSIZ), IX4(MVSIZ)
C     REAL
      my_real
     .   xloc(3,*), gapv(*), gap_s(*),curv_max(*),
     .   gap, gapmax, gapmin, depth, xm0(3,*)
      my_real , INTENT(IN) :: dgapload,drad
C     REAL ou REAL*8
      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)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I ,J  ,IL, L, NN, IG,JFT
C-----------------------------------------------
      IF(igap==0)THEN
        DO i=1,jlt
C Depth >= gap
          gapv(i)=max(depth+dgapload,drad)
        END DO
      ELSE
        DO i=1,jlt
          gapv(i)=gap_s(cand_n(i))
          gapv(i)=min(gapv(i),gapmax)
          gapv(i)=max(gapmin,gapv(i))
C
          gapv(i)=max(depth,drad,gapv(i)+dgapload)
        END DO
      END IF
C
      DO i=1,jlt
       ig = cand_n(i)
       xi(i) = xloc(1,ig)
       yi(i) = xloc(2,ig)
       zi(i) = xloc(3,ig)
C
       l  = cand_e(i)
C
       ix1(i)=irect(1,l)
       x1(i)=xm0(1,ix1(i))
       y1(i)=xm0(2,ix1(i))
       z1(i)=xm0(3,ix1(i))
C
       ix2(i)=irect(2,l)
       x2(i)=xm0(1,ix2(i))
       y2(i)=xm0(2,ix2(i))
       z2(i)=xm0(3,ix2(i))
C
       ix3(i)=irect(3,l)
       x3(i)=xm0(1,ix3(i))
       y3(i)=xm0(2,ix3(i))
       z3(i)=xm0(3,ix3(i))
C
       ix4(i)=irect(4,l)
       x4(i)=xm0(1,ix4(i))
       y4(i)=xm0(2,ix4(i))
       z4(i)=xm0(3,ix4(i))
C
      END DO
 
c      IF(ITYP == 7)THEN
c        DO I=1,JLT
c          GAPV(I) = GAPV(I) + CURV_MAX(CAND_E(I))
c        END DO
c      ENDIF
C
      RETURN