i2for28.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

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

Function/Subroutine Documentation

i2for28()

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

Definition at line 33 of file i2for28.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,PENFLAG,IROT
      INTEGER  IRECTM(4,*),NSV(*),MSR(*),IRTLM(*),WEIGHT(*),
     .   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,*),sav_for_pena(8,*),ms_pena(*),
     .   csts(2,*),smas(*),mmas(*),siner(*),adi(*),skew(9,*),fncontp(3,*),
     .   ftcontp(3,*) 
      my_real
     .   dpara(7,*),dmast,adm(*),
     .   nmas(*),sav_iner_poff(*)
      TYPE (H3D_DATABASE) :: H3D_DATA
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,NI,NINDXC,NINDXP
      INTEGER INDXC(NSN),INDXP(NSN)
C=======================================================================
      indxc(1:nsn) = 0      
      indxp(1:nsn) = 0 
      nindxc = 0     
      nindxp = 0     
C----------------          
      DO i=1,nsn
        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
        CALL i2for28_cin(
     1   nsn       ,nmn       ,a         ,irectm     ,dpara     ,
     2   msr       ,nsv       ,irtlm     ,ms         ,weight    ,
     3   ar        ,in        ,x         ,stifn      ,stifr     ,
     4   fsav      ,dmast     ,adm       ,nmas       ,idel2     ,
     5   smas      ,siner     ,csts      ,fncont     ,indxc     ,
     6   sav_iner_poff,h3d_data,fncontp  ,ftcontp   )
C
      ENDIF
c
      IF (nindxp > 0) THEN
         CALL i2for28_pen(                                               
     .       x         ,v         ,vr        ,a           ,ar        ,
     .       ms_pena   ,in        ,stifn     ,stifr       ,weight    ,
     .       nsv       ,irtlm     ,csts      ,skew        ,dl        ,
     .       dr        ,fini      ,fsav      ,fncont      ,nsn       ,
     .       stfn_pen  ,stfr_pen  ,visc      ,penflag     ,irot      ,
     .       noint     ,nodnx_sms ,dmint2    ,sav_for_pena,irectm    ,
     .       dt2t      ,neltst    ,ityptst   ,indxp       ,sav_iner_poff,
     .       h3d_data  ,fncontp   ,ftcontp)
c
      ENDIF                                                            
c-----------
      RETURN