imp_setb.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	imp_setb (f, m, iddl, ndof, b)
subroutine	imp_setbp (f, m, iddl, ndof, ikc, inloc, b)
subroutine	imp_setba (f, m, iddl, ndof, b, iflag)

Function/Subroutine Documentation

imp_setb()

subroutine imp_setb	(		f,
			m,
		integer, dimension(*)	iddl,
		integer, dimension(*)	ndof,
			b )

Definition at line 39 of file imp_setb.F.

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"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER  IDDL(*),NDOF(*)
C     REAL
      my_real
     . f(3,*),m(3,*),b(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,K,ND,ID,JR
C------------------------------------------
       DO i = 1,numnod
        nd = iddl(i)
        DO j =1,ndof(i)
         id = nd + j
         IF (j>3) THEN
          jr=j-3
          b(id) = m(jr,i)
         ELSE
          b(id) = f(j,i)
         ENDIF
        ENDDO
       ENDDO
C--------------------------------------------
      RETURN

imp_setba()

subroutine imp_setba	(		f,
			m,
		integer, dimension(*)	iddl,
		integer, dimension(*)	ndof,
			b,
		integer	iflag )

Definition at line 133 of file imp_setb.F.

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"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER  IDDL(*),NDOF(*),IFLAG
C     REAL
      my_real
     . f(3,*),m(3,*),b(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,K,ND,ID,JR
C------------------------------------------
      IF (iflag==1) THEN
       DO i = 1,numnod
        nd = iddl(i)
        DO j =1,ndof(i)
         id = nd + j
         IF (j>3) THEN
          jr=j-3
          b(id) = b(id)+m(jr,i)
         ELSE
          b(id) = b(id)+f(j,i)
         ENDIF
        ENDDO
       ENDDO
      ELSE
       DO i = 1,numnod
        nd = iddl(i)
        DO j =1,ndof(i)
         id = nd + j
         IF (j>3) THEN
          jr=j-3
          b(id) = b(id)-m(jr,i)
         ELSE
          b(id) = b(id)-f(j,i)
         ENDIF
        ENDDO
       ENDDO
      ENDIF 
C--------------------------------------------
      RETURN

imp_setbp()

subroutine imp_setbp	(		f,
			m,
		integer, dimension(*)	iddl,
		integer, dimension(*)	ndof,
		integer, dimension(*)	ikc,
		integer, dimension(*)	inloc,
			b )

Definition at line 83 of file imp_setb.F.

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"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER  IDDL(*),NDOF(*),IKC(*),INLOC(*)
C     REAL
      my_real
     . f(3,*),m(3,*),b(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,N,K,ND,ID,JR,NKC
C------------------------------------------
      nkc=0
      DO n = 1,numnod
       i=inloc(n)
       DO j=1,ndof(i)
        nd = iddl(i)+j
        id = nd-nkc
        IF (ikc(nd)<1) THEN
          IF (j<=3) THEN
           b(id)=b(id)+f(j,i)
          ELSE 
           b(id)=b(id)+m(j-3,i)
          ENDIF
        ELSE 
          nkc=nkc+1
        ENDIF
       ENDDO
      ENDDO
C--------------------------------------------
      RETURN