rgjoint.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "mvsiz_p.inc"
#include "parit_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine

rgjoint (jft, jlt, ipartr, nel, nuvar, iout, iprop, iadr, fsky, fskyv, off, forx, fory, forz, e, dx, dy, dz, rx, ry, rz, xmom, ymom, zmom, uvar, stifn, stifr, ixr, tani, rby, x, vx, vr, sti, stir, ms, in, partsav, dt1, dt2t, f, ar, fx1, fx2, fy1, fy2, fz1, fz2, mx1, mx2, my1, my2, mz1, mz2, gresav, grth, igrth, msrt, dmelrt, neltst, ityptst, igtyp, sensor_tab, nc1, nc2, xdp, x0_err, h3d_data, jsms, igre, nft, nsensor)

Function/Subroutine Documentation

rgjoint()

subroutine rgjoint	(	integer	jft,
		integer	jlt,
		integer, dimension(*)	ipartr,
		integer	nel,
		integer	nuvar,
		integer	iout,
		integer	iprop,
		integer, dimension(3,*)	iadr,
			fsky,
			fskyv,
			off,
			forx,
			fory,
			forz,
			e,
			dx,
			dy,
			dz,
			rx,
			ry,
			rz,
			xmom,
			ymom,
			zmom,
			uvar,
			stifn,
			stifr,
		integer, dimension(nixr,*)	ixr,
			tani,
			rby,
			x,
			vx,
			vr,
			sti,
			stir,
			ms,
			in,
			partsav,
			dt1,
			dt2t,
			f,
			ar,
			fx1,
			fx2,
			fy1,
			fy2,
			fz1,
			fz2,
			mx1,
			mx2,
			my1,
			my2,
			mz1,
			mz2,
			gresav,
		integer, dimension(*)	grth,
		integer, dimension(*)	igrth,
			msrt,
			dmelrt,
		integer	neltst,
		integer	ityptst,
		integer	igtyp,
		type (sensor_str_), dimension(nsensor), intent(in)	sensor_tab,
		integer, dimension(*)	nc1,
		integer, dimension(*)	nc2,
		double precision, dimension(3,*)	xdp,
			x0_err,
		type(h3d_database)	h3d_data,
		integer, intent(in)	jsms,
		integer, intent(in)	igre,
		integer, intent(in)	nft,
		integer, intent(in)	nsensor )

Definition at line 39 of file rgjoint.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE h3d_mod
      USE sensor_mod
C-------------------------------------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "com04_c.inc"
#include      "mvsiz_p.inc"
#include      "parit_c.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, INTENT(IN) :: NFT,NSENSOR
      INTEGER, INTENT(IN) :: IGRE
      INTEGER, INTENT(IN) :: JSMS
      INTEGER JFT,JLT,IOUT,NEL,NUVAR,IPROP,
     .        IPARTR(*),IXR(NIXR,*),IADR(3,*),GRTH(*),IGRTH(*),
     .        NELTST,ITYPTST,IGTYP,NC1(*),NC2(*)
      my_real
     .   dt1, dt2t, uvar(nuvar,*),stifn(*),stifr(*), off(*), e(*),
     .   x(*), vx(*), vr(*),dx(*),dy(*),dz(*), rx(*),ry(*),rz(*), 
     .   f(*) , forx(*), fory(*), forz(*), 
     .   ar(*), xmom(*), ymom(*), zmom(*),
     .   fx1(mvsiz),fy1(mvsiz),fz1(mvsiz),
     .   fx2(mvsiz),fy2(mvsiz),fz2(mvsiz),
     .   mx1(mvsiz),my1(mvsiz),mz1(mvsiz),
     .   mx2(mvsiz),my2(mvsiz),mz2(mvsiz),rby(*),
     .   partsav(*),tani(15,*),ms(*),in(*),fsky(*),fskyv(*),gresav(*),
     .   msrt(*), dmelrt(*),x0_err(3,*)
      DOUBLE PRECISION XDP(3,*)
      TYPE(H3D_DATABASE) :: H3D_DATA
      TYPE (SENSOR_STR_) ,DIMENSION(NSENSOR) , INTENT(IN) :: SENSOR_TAB
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER ISENS
      my_real
     .   umas(mvsiz),uiner(mvsiz),
     .   rot1(3,mvsiz),rot2(3,mvsiz),sti(3,mvsiz),stir(3,mvsiz),
     .   xkm(mvsiz),xkr(mvsiz),xcm(mvsiz),xcr(mvsiz)
      DOUBLE PRECISION XL(MVSIZ,3)
C=======================================================================
C
      CALL rskew33(jft    ,jlt     ,ixr    ,iout   ,iprop,
     .             nuvar  ,uvar    ,rby    ,x      ,xl   ,
     .             rot1   ,rot2    ,dx     ,dy     ,dz   ,
     .             rx     ,ry      ,rz     ,vr     ,igtyp,
     .             nsensor,sensor_tab,isens  ,nc1    ,nc2  ,
     .             xdp)         
C
      CALL ruser33(nel   ,iout   ,iprop  ,nuvar   ,uvar  ,
     .             forx  ,fory   ,forz   ,xmom    ,ymom  ,
     .             zmom  ,xkm    ,xkr    ,xcm     ,xcr   ,
     .             xl    ,umas   ,uiner  ,off     ,e     ,
     .             rot1  ,rot2   ,dx     ,dy      ,dz    ,
     .             rx    ,ry     ,rz     ,igtyp   ,isens ,
     .             x0_err)
C
      CALL rdtime33(
     1   jft,     jlt,     dt2t,    neltst,
     2   ityptst, ixr,     e,       sti,
     3   stir,    off,     xkm,     xkr,
     4   xcm,     xcr,     umas,    uiner,
     5   forx,    fory,    forz,    xmom,
     6   ymom,    zmom,    rot1,    rot2,
     7   msrt,    dmelrt,  nuvar,   uvar,
     8   igtyp,   jsms)
C
      CALL rbilan33(
     1   jft,     jlt,     e,       partsav,
     2   umas,    vx,      ipartr,  gresav,
     3   grth,    igrth,   nc1,     nc2,
     4   igre)
      CALL ranim33 (jft,jlt,forx,fory,forz,xmom,ymom,zmom,xl,tani,h3d_data)
C
      IF(iparit==0)THEN
        CALL rcum33(jft   ,jlt    ,xl    ,nc1   ,nc2   ,
     .              f     ,forx   ,fory  ,forz  ,ar    ,
     .              xmom  ,ymom   ,zmom  ,sti   ,stir  ,
     .              stifn ,stifr  ,fx1   ,fx2   ,fy1   ,
     .              fy2   ,fz1    ,fz2   ,mx1   ,mx2   ,
     .              my1   ,my2    ,mz1   ,mz2   ,nuvar ,
     .              uvar)
      ELSE
        CALL rcum33p(
     1   jft,     jlt,     xl,      fsky,
     2   fskyv,   forx,    fory,    forz,
     3   xmom,    ymom,    zmom,    sti,
     4   stir,    fx1,     fx2,     fy1,
     5   fy2,     fz1,     fz2,     mx1,
     6   mx2,     my1,     my2,     mz1,
     7   mz2,     iadr,    nuvar,   uvar,
     8   nft)
      ENDIF
C-------------------------------
      RETURN