srw_imp.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "com08_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	fv_rwl (iddl, ikc, ndof, ud, v, a)
subroutine	fv_rwl0 (iddl, ifix, ndof, iadk, jdik, diag_k, lt_k, ud, b)
subroutine	rwl_impd (ud)
subroutine	fv_rwlr0 (iddl, b)

Function/Subroutine Documentation

fv_rwl()

subroutine fv_rwl	(	integer, dimension(*)	iddl,
		integer, dimension(*)	ikc,
		integer, dimension(*)	ndof,
			ud,
			v,
			a )

Definition at line 32 of file srw_imp.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE imp_rwl
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
#include      "com08_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IDDL(*),IKC(*),NDOF(*)
C     REAL
      my_real
     .  ud(3,*), v(3,*), a(3,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, I, J, K,I1,J1,K1,ND,ID,NL,IERR1,IERR2
C     REAL
C-----------------------------------------------
      n_rwl = 0
      DO i = 1,numnod
       IF (ndof(i)>0) THEN
        nd = iddl(i)+1
        IF (ikc(nd)==10) n_rwl=n_rwl+1
       ENDIF
      ENDDO
      IF (n_rwl==0) RETURN
C--------allocation------ 
      IF(ALLOCATED(in_rwl)) DEALLOCATE(in_rwl)
      ALLOCATE(in_rwl(n_rwl),stat=ierr1)
      IF(ALLOCATED(nor_rwl)) DEALLOCATE(nor_rwl)
      ALLOCATE(nor_rwl(3,n_rwl),stat=ierr2)
      nl = 0
      DO i = 1,numnod
       IF (ndof(i)>0) THEN
        nd = iddl(i)
        IF (ikc(nd+1)==10) THEN
         nl=nl+1
         in_rwl(nl)=i
         nor_rwl(1,nl) = a(1,i)
         nor_rwl(2,nl) = a(2,i)
         nor_rwl(3,nl) = a(3,i)
         CALL l_dir0(nor_rwl(1,nl),j)
         ud(j,i) = v(1,i)*dt2/nor_rwl(j,nl)
         ikc(nd+1)=0
         ikc(nd+j)=10
        ENDIF
       ENDIF
      ENDDO
C
      RETURN

fv_rwl0()

subroutine fv_rwl0	(	integer, dimension(*)	iddl,
		integer, dimension(*)	ifix,
		integer, dimension(*)	ndof,
		integer, dimension(*)	iadk,
		integer, dimension(*)	jdik,
			diag_k,
			lt_k,
			ud,
			b )

Definition at line 102 of file srw_imp.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE imp_rwl
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 
     .        IDDL(*),IFIX(*),IADK(*),JDIK(*),NDOF(*)   
C     REAL
      my_real
     .  ud(3,*), diag_k(*),lt_k(*),b(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, I, J, K,IR
C     REAL
      my_real
     .   ej(3)
C----------------sliding RW ->FXVEL local---------------
      ir =0
      DO i = 1,n_rwl
        n=in_rwl(i)
        ej(1)=nor_rwl(1,i)
        ej(2)=nor_rwl(2,i)
        ej(3)=nor_rwl(3,i)
        CALL l_dir(ej,j)
        CALL fv_updk(n     ,iddl  ,ej    ,j     ,ir    ,
     1               iadk  ,jdik  ,diag_k,lt_k  ,b     ,ud     )
      ENDDO
C
      RETURN

fv_rwlr0()

subroutine fv_rwlr0	(	integer, dimension(*)	iddl,
			b )

Definition at line 195 of file srw_imp.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE imp_rwl
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 
     .        IDDL(*)  
C     REAL
      my_real
     .  b(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, I, J, K,IR,ID
C     REAL
      my_real
     .   ej(3)
C----------------sliding RW ->FXVEL local- RHS seulement--------------
      ir =0
      DO i = 1,n_rwl
        n=in_rwl(i)
        ej(1)=nor_rwl(1,i)
        ej(2)=nor_rwl(2,i)
        ej(3)=nor_rwl(3,i)
        CALL l_dir(ej,j)
        id = iddl(n)
        CALL bc_updb(id    ,ej    ,j     ,ir    ,b     )
      ENDDO
C
      RETURN

rwl_impd()

subroutine rwl_impd

(

ud

)

Definition at line 151 of file srw_imp.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE imp_rwl
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-----------------------------------------------
      my_real
     .  ud(3,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, I, J 
C     REAL
      my_real
     .   ej(3)
C---------------------------------------------------------------
      DO i = 1,n_rwl
        n=in_rwl(i)
        ej(1)=nor_rwl(1,i)
        ej(2)=nor_rwl(2,i)
        ej(3)=nor_rwl(3,i)
        CALL l_dir(ej,j)
        CALL bc_updd(n     ,ej   ,j     ,ud     )
      ENDDO
C
      RETURN