i2for28p.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i2for28p (x, v, vr, a, ar, ms, in, stifn, stifr, weight, irectm, nsv, irtlm, csts, skew, dr, dl, fini, fsav, fncont, nsn, i0, i2size, iadi2, fskyi2, stfn_pen, stfr_pen, visc, penflag, irot, noint, nodnx_sms, dmint2, dt2t, neltst, ityptst, mmas, smas, siner, miner, msr, ipena, adi, idel2, nir, nmn, dpara, nmas, dmast, adm, h3d_data, fncontp, ftcontp)

Function/Subroutine Documentation

i2for28p()

subroutine i2for28p	(		x,
			v,
			vr,
			a,
			ar,
			ms,
			in,
			stifn,
			stifr,
		integer, dimension(*)	weight,
		integer, dimension(4,*)	irectm,
		integer, dimension(*)	nsv,
		integer, dimension(*)	irtlm,
			csts,
			skew,
			dr,
			dl,
			fini,
			fsav,
			fncont,
		integer	nsn,
		integer	i0,
		integer	i2size,
		integer, dimension(4,*)	iadi2,
			fskyi2,
			stfn_pen,
			stfr_pen,
			visc,
		integer	penflag,
		integer	irot,
		integer	noint,
		integer, dimension(*)	nodnx_sms,
			dmint2,
			dt2t,
		integer	neltst,
		integer	ityptst,
			mmas,
			smas,
			siner,
			miner,
		integer, dimension(*)	msr,
		integer, dimension(*)	ipena,
			adi,
		integer	idel2,
		integer	nir,
		integer	nmn,
			dpara,
			nmas,
			dmast,
			adm,
		type (h3d_database)	h3d_data,
			fncontp,
			ftcontp )

Definition at line 33 of file i2for28p.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE h3d_mod
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  NSN,NMN,NOINT,NELTST,ITYPTST,IDEL2,I0,I2SIZE,PENFLAG,IROT,NIR
      INTEGER  IRECTM(4,*),NSV(*),MSR(*),IRTLM(*),WEIGHT(*),IADI2(4,*),
     .   NODNX_SMS(*),IPENA(*)
      my_real
     .   visc,dt2t
      my_real
     .   x(3,*),v(3,*),a(3,*),vr(3,*),ar(3,*),ms(*),in(*),fini(6,4,*),
     .   dl(3,4,*),dr(3,4,*),stifn(*),stifr(*),stfn_pen(*),stfr_pen(*),
     .   fsav(*),fncont(3,*),dmint2(4,*),
     .   csts(2,*),smas(*),mmas(*),siner(*),miner(*),adi(*),skew(9,*),
     .   fskyi2(i2size,*),
     .   dpara(7,*),dmast,adm(*),nmas(*),fncontp(3,*)   ,ftcontp(3,*) 
      TYPE (H3D_DATABASE) :: H3D_DATA
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,ISN,NI,I0BASE,NINDXC,NINDXP
      INTEGER IADX(NSN),INDXC(NSN),INDXP(NSN)
C===============================================
      indxc(1:nsn) = 0      
      indxp(1:nsn) = 0      
      iadx(1:nsn)  = 0      
      nindxc = 0     
      nindxp = 0     
      i0base = i0
      ni     = 0     
C----------------      
      DO i=1,nsn
        isn = abs(nsv(i))
        IF (weight(isn) == 1) THEN
          ni = ni+1
          iadx(i) = ni
        ENDIF
c
        IF (ipena(i) == 0) THEN     
          nindxc = nindxc + 1       
          indxc(i) = i              
        ELSE                        
          nindxp = nindxp + 1
          indxp(i) = i              
        ENDIF                       
      ENDDO
c-----------
      IF (nindxc > 0) THEN
        i0 = i0base
        CALL i2for28p_cin(
     1       nsn      ,nmn     ,a      ,irectm  ,dpara   ,
     2       msr      ,nsv     ,irtlm  ,ms      ,weight  ,
     3       ar       ,in      ,x      ,stifn   ,stifr   ,
     4       fskyi2   ,iadi2   ,fsav   ,dmast   ,adm     ,
     5       mmas     ,i0      ,nir    ,i2size  ,idel2   ,
     6       smas     ,siner   ,csts   ,fncont  ,indxc   ,
     7       iadx     ,h3d_data,fncontp,ftcontp)
c
      ENDIF
c
      IF (nindxp > 0) THEN
        i0 = i0base
        CALL i2for28p_pen(                                               
     .       x         ,v         ,vr        ,a         ,ar        ,
     .       ms        ,in        ,stifn     ,stifr     ,weight    ,
     .       nsv       ,irtlm     ,csts      ,skew      ,dl        ,
     .       dr        ,fini      ,fsav      ,fncont    ,nsn       ,
     .       i0        ,i2size    ,iadi2     ,fskyi2    ,stfn_pen  ,
     .       stfr_pen  ,visc      ,penflag   ,irot      ,noint     ,
     .       nodnx_sms ,dmint2    ,dt2t      ,neltst    ,ityptst   ,
     .       irectm    ,indxp     ,iadx      ,
     .       h3d_data  ,fncontp   ,ftcontp)
c
      ENDIF 
      i0 = i0base + ni                                                         
c-----------
      RETURN