rini44.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	rini44 (nel, iout, iprop, ix, xl, mass, xiner, stifm, stifr, viscm, viscr, uvar, nuvar)

Function/Subroutine Documentation

rini44()

subroutine rini44	(	integer	nel,
		integer	iout,
		integer	iprop,
		integer, dimension(4,nel)	ix,
			xl,
			mass,
			xiner,
			stifm,
			stifr,
			viscm,
			viscr,
			uvar,
		integer	nuvar )

Definition at line 35 of file rini44.F.

C-------------------------------------------------------------------------
C     This subroutine initialize springs using user properties.
C----------+---------+---+---+--------------------------------------------
C VAR      | SIZE    |TYP| RW| DEFINITION
C----------+---------+---+---+--------------------------------------------
C IOUT     |  1      | I | R | OUTPUT FILE UNIT (L00 file)
C IPROP    |  1      | I | R | PROPERTY NUMBER
C----------+---------+---+---+--------------------------------------------
C IX       | 3*NEL   | I | R | SPRING CONNECTIVITY
C                            | IX(1,I) NODE 1 ID
C                            | IX(2,I) NODE 2 ID
C                            | IX(3,I) OPTIONAL NODE 3 ID
C                            | IX(4,I) SPRING ID
C XL       |   NEL   | F | R | ELEMENT LENGTH
C----------+---------+---+---+--------------------------------------------
C MASS     |   NEL   | F | W | ELEMENT MASS
C XINER    |   NEL   | F | W | ELEMENT INERTIA (SPHERICAL)
C STIFM    |   NEL   | F | W | ELEMENT STIFNESS (TIME STEP)
C STIFR    |   NEL   | F | W | ELEMENT ROTATION STIFNESS (TIME STEP)
C VISCM    |   NEL   | F | W | ELEMENT VISCOSITY (TIME STEP)
C VISCR    |   NEL   | F | W | ELEMENT ROTATION VISCOSITY (TIME STEP)
C----------+---------+---+---+--------------------------------------------
C UVAR     |NUVAR*NEL| F | W | USER ELEMENT VARIABLES
C NUVAR    |  1      | I | R | NUMBER OF USER ELEMENT VARIABLES
C-------------------------------------------------------------------------
C FUNCTION 
C-------------------------------------------------------------------------
C INTEGER II = GET_U_PNU(I,IP,KK)
C         IFUNCI = GET_U_PNU(I,IP,KFUNC)
C         IPROPI = GET_U_PNU(I,IP,KPROP)
C         IMATI = GET_U_PNU(I,IP,KMAT)
C         I     :     VARIABLE INDEX(1 for first variable,...)
C         IP    :     PROPERTY NUMBER
C         KK    :     PARAMETER KFUNC,KMAT,KPROP
C         THIS FUNCTION RETURN THE USER STORED FUNCTION(IF KK=KFUNC), 
C         MATERIAL(IF KK=KMAT) OR PROPERTY(IF KK=KPROP) NUMBERS. 
C         SEE LECG29 FOR CORRESPONDING ID STORAGE.
C-------------------------------------------------------------------------
C INTEGER IFUNCI = GET_U_MNU(I,IM,KFUNC)
C         I     :     VARIABLE INDEX(1 for first function)
C         IM    :     MATERIAL NUMBER
C         KFUNC :     ONLY FUNCTION ARE YET AVAILABLE.
C         THIS FUNCTION RETURN THE USER STORED FUNCTION NUMBERS(function 
C         referred by users materials).
C         SEE LECM29 FOR CORRESPONDING ID STORAGE.
C-------------------------------------------------------------------------
C my_real PARAMI = GET_U_GEO(I,IP)
C         I     :     PARAMETER INDEX(1 for first parameter,...)
C         IP    :     PROPERTY NUMBER
C         THIS FUNCTION RETURN THE USER GEOMETRY PARAMETERS 
C-------------------------------------------------------------------------
C my_real PARAMI = GET_U_MAT(I,IM)
C         I     :     PARAMETER INDEX(1 for first parameter,...)
C         IM    :     MATERIAL NUMBER
C         THIS FUNCTION RETURN THE USER MATERIAL PARAMETERS 
C         NOTE: GET_U_MAT(0,IMAT) RETURN THE DENSITY
C-------------------------------------------------------------------------
C INTEGER MID = GET_U_PID(IP)
C         IP    :     PROPERTY NUMBER
C         THIS FUNCTION RETURN THE USER PROPERTY ID CORRESPONDING TO
C         USER PROPERTY NUMBER IP. 
C-------------------------------------------------------------------------
C INTEGER PID = GET_U_MID(IM)
C         IM   :     MATERIAL NUMBER
C         THIS FUNCTION RETURN THE USER MATERIAL ID CORRESPONDING TO
C         USER MATERIAL NUMBER IM. 
C-------------------------------------------------------------------------
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   a n d   F u n c t i o n
C----------------------------------------------------------
      INTEGER IOUT,NUVAR,NEL,IPROP,   
     .        IX(4,NEL) ,
     .        GET_U_PNU,GET_U_PID,GET_U_MID,GET_U_MNU,
     .        KFUNC,KMAT,KPROP
      my_real 
     .        xl(nel) ,mass(nel) ,xiner(nel) ,stifm(nel) ,
     .        stifr(nel),viscm(nel) ,viscr(nel),uvar(nuvar,*),
     .        get_u_mat,get_u_geo
      EXTERNAL get_u_pnu,get_u_mnu,get_u_mat,get_u_geo,get_u_pid,
     .        get_u_mid
      parameter(kfunc=29)
      parameter(kmat=31)
      parameter(kprop=47)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      my_real 
     .        amas,iner,k11,k44,k55,k66,k5b,k6c,
     .        xlimg,xlim,xxlim,yy1lim,yy2lim,zz1lim,zz2lim,
     .        ncf,idamping
      INTEGER I
C=======================================================================
        amas  = get_u_geo(8,iprop)
        iner  = get_u_geo(9,iprop)
        k11   = get_u_geo(10,iprop)
        k44   = get_u_geo(11,iprop)
        k55   = get_u_geo(12,iprop)
        k66   = get_u_geo(13,iprop)
        k5b   = get_u_geo(14,iprop)
        k6c   = get_u_geo(15,iprop)
!  strain rate filtering number of cycles:
        ncf   = get_u_geo(35,iprop)
!  flag for damping activation
        idamping = get_u_geo(36,iprop)
C--------------------------------------
C       ELEMENT CHECK
C--------------------------------------
        DO i=1,nel
          IF (xl(i) == zero)THEN
            WRITE(iout,*)' **ERROR ZERO LENGTH SPRING :'
          ENDIF
        ENDDO
C--------------------------------------
C       ELEMENT INITIALIZATION
C--------------------------------------
        DO i=1,nel
          mass(i)   = amas * xl(i)
          xiner(i)  = iner * xl(i)
C EPS
          uvar(1,i)  = zero
          uvar(2,i)  = zero
          uvar(3,i)  = zero
          uvar(4,i)  = zero
          uvar(5,i)  = zero
          uvar(6,i)  = zero
C JPOS
          uvar(7,i)  = zero
          uvar(8,i)  = zero
          uvar(9,i)  = zero
          uvar(10,i) = zero
          uvar(11,i) = zero
          uvar(12,i) = zero
          uvar(13,i) = zero
          uvar(14,i) = zero
          uvar(15,i) = zero
          uvar(16,i) = zero
          uvar(17,i) = zero
          uvar(18,i) = zero
C K
          uvar(19,i) = k11 / xl(i)
          uvar(20,i) = k44 / xl(i)
          uvar(21,i) = k55 / xl(i) / xl(i) / xl(i)
          uvar(22,i) = k66 / xl(i) / xl(i) / xl(i)
          uvar(23,i) = k5b / xl(i) / xl(i) / xl(i)
          uvar(24,i) = k6c / xl(i) / xl(i) / xl(i)
C         FOR NODAL AND ELEMENT TIME STEP COMPUTATION
          uvar(25,i) = max(uvar(19,i),
     .                     uvar(21,i)+abs(uvar(23,i)),
     .                     uvar(22,i)+abs(uvar(24,i)))
          uvar(26,i) = max(uvar(20,i),k55 / xl(i),k66 / xl(i))
          stifm(i) = uvar(25,i)
          stifr(i) = uvar(26,i)
          viscm(i) = zero
          viscr(i) = zero
          uvar(27,i) = mass(i)
          uvar(28,i) = xiner(i)
          uvar(30,i) = one/xl(i)
!
!  add damping (linear + function):
!
          IF (idamping > zero) THEN
            uvar(31,i) = zero
            uvar(32,i) = zero
            uvar(33,i) = zero
            uvar(34,i) = zero
            uvar(35,i) = zero
            uvar(36,i) = zero
          ENDIF ! IF (IDAMPING > ZERO)
! + strain rate filtering
          IF (ncf > zero) THEN
            uvar(37,i) = zero
            uvar(38,i) = zero
            uvar(39,i) = zero
            uvar(40,i) = zero
            uvar(41,i) = zero
            uvar(42,i) = zero
          ENDIF ! IF (NCF > ZERO)
        ENDDO
C-----------
      RETURN