cjoint.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "param_c.inc"
#include "sms_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	cjoint (a, ar, v, vr, x, fsav, ljoint, ms, in, iadcj, fr_cj, tag_lnk_sms, itask)

Function/Subroutine Documentation

cjoint()

subroutine cjoint	(		a,
			ar,
			v,
			vr,
			x,
			fsav,
		integer, dimension(*)	ljoint,
			ms,
			in,
		integer, dimension(nspmd+1,*)	iadcj,
		integer, dimension(*)	fr_cj,
		integer, dimension(*)	tag_lnk_sms,
		integer	itask )

Definition at line 32 of file cjoint.F.

        USE joint_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 LJOINT(*), FR_CJ(*), IADCJ(NSPMD+1,*), TAG_LNK_SMS(*),
     .        ITASK
        my_real
     .   a(3,numnod), ar(3,numnod), v(3,numnod), vr(3,numnod), x(3,numnod), fsav(nthvki,*),
     .   ms(*), in(*)
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com01_c.inc"
#include      "com04_c.inc"
#include      "param_c.inc"
#include      "sms_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER K, N, NN, KIND(NJOINT), ICSIZE
        LOGICAL :: CONDITION
C-----------------------------------------------
C
        k=1
        DO n=1,njoint
            kind(n) = k
            IF(idtmins==0.AND.idtmins_int==0)THEN
                k = k +1
            ELSE
                k=k+ljoint(k)+1
            ENDIF
        END DO
 
        IF(idtmins==0.AND.idtmins_int==0)THEN
            DO n=1,njoint
                nn=ninter+nrwall+nrbody+nsect+n
                k = kind(n)
                condition = ( (cyl_join(n)%NUMBER_NODE>0).OR.(cyl_join(n)%NUMBER_MAIN_NODE>0) )
                IF(condition) CALL telesc(n,a,ar,v,vr,x,fsav(1,nn),ms,in,itask)
            END DO
        ELSE
            DO n=1,njoint
                IF(tag_lnk_sms(n)/=0)cycle
                nn=ninter+nrwall+nrbody+nsect+n
                k = kind(n)
                condition = ( (cyl_join(n)%NUMBER_NODE>0).OR.(cyl_join(n)%NUMBER_MAIN_NODE>0) )
                IF(condition) CALL telesc(n,a,ar,v,vr,x,fsav(1,nn),ms,in,itask)
            END DO
        END IF
 
        RETURN