write_count_joint_sms.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	c_joint_sms (ljoint, proc, ljoint_l)
subroutine	w_joint_sms (ljoint, cep, cel, proc, nodlocal, ljoint_l, len_ia)

Function/Subroutine Documentation

c_joint_sms()

subroutine c_joint_sms	(	integer, dimension(*)	ljoint,
		integer	proc,
		integer	ljoint_l )

Definition at line 30 of file write_count_joint_sms.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
 
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  PROC, LJOINT_L,
     .          LJOINT(*)
C-----------------------------------------------
C   F u n c t i o n
C-----------------------------------------------
      INTEGER  NLOCAL
      EXTERNAL nlocal 
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, NN, K, NSN, J
C
      ljoint_l = njoint
      k = 1
      DO n = 1, njoint
        nsn=ljoint(k)
        DO j = 1, nsn
          nn = ljoint(k+j)
          IF(nlocal(nn,proc+1)==1)THEN
            ljoint_l = ljoint_l + 1
          ENDIF
        ENDDO
        k = k + nsn + 1
      ENDDO
C
      RETURN

w_joint_sms()

subroutine w_joint_sms	(	integer, dimension(*)	ljoint,
		integer, dimension(*)	cep,
		integer, dimension(*)	cel,
		integer	proc,
		integer, dimension(*)	nodlocal,
		integer	ljoint_l,
		integer	len_ia )

Definition at line 81 of file write_count_joint_sms.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------     
 
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  PROC, LJOINT_L, LEN_IA, NODLOCAL(*),
     .          LJOINT(*), CEP(*), CEL(*)
C-----------------------------------------------
C   F u n c t i o n
C-----------------------------------------------
      INTEGER  NLOCAL
      EXTERNAL nlocal
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, NN, K, J, NSN, K_L, NSN_L, LJOIN_L(LJOINT_L)
C
      k_l = 1
      k = 1
      DO n = 1, njoint
        nsn=ljoint(k)
        nsn_l = 0
        DO j = 1, nsn
          nn = ljoint(k+j)
          IF(nlocal(nn,proc+1)==1)THEN
            nsn_l = nsn_l + 1
            ljoin_l(k_l+nsn_l) = nodlocal(nn)
          ENDIF
        ENDDO
        ljoin_l(k_l) = nsn_l
        k_l = k_l + nsn_l + 1
        k = k + nsn + 1
      ENDDO
C
      CALL write_i_c(ljoin_l,ljoint_l)
      len_ia = len_ia + ljoint_l
C
      RETURN