spback3.F File Reference

#include "implicit_f.inc"
#include "sphcom.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	spback3 (sig, qvis, sti, ssp, wa, ssp_eq, die, nel, lft, llt, nft)

Function/Subroutine Documentation

spback3()

subroutine spback3	(		sig,
			qvis,
			sti,
			ssp,
			wa,
			ssp_eq,
			die,
		integer	nel,
		integer, intent(inout)	lft,
		integer, intent(inout)	llt,
		integer, intent(inout)	nft )

Definition at line 28 of file spback3.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      "sphcom.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(INOUT) :: LFT
      INTEGER, INTENT(INOUT) :: LLT
      INTEGER, INTENT(INOUT) :: NFT
      INTEGER NEL
C     REAL
      my_real
     .   sig(nel,6),qvis(*),sti(*),ssp(*),wa(kwasph,*),
     .   ssp_eq(*),die(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,N
C     REAL
C-----------------------------------------------
C     overloads D in WA.
      DO i=lft,llt
       n=nft+i
       wa(1,n)=sig(i,1)
       wa(2,n)=sig(i,2)
       wa(3,n)=sig(i,3)
       wa(4,n)=sig(i,4)
       wa(5,n)=sig(i,5)
       wa(6,n)=sig(i,6)
       wa(7,n)=sti(i)
       wa(8,n)=ssp(i)
C      SSP_EQ comes back from MDTSPH and is the equivalent material sound speed
C      (including material viscosity)
       wa(9,n)=ssp_eq(i)
C      Thermique
       wa(15,n)=wa(15,n)+die(i)  
      ENDDO
      RETURN