sensor_ener_sav.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	sensor_ener_sav (nsensor, sensor_tab, partsav, partsav2)

Function/Subroutine Documentation

sensor_ener_sav()

subroutine sensor_ener_sav	(	integer, intent(in)	nsensor,
		type (sensor_str_), dimension(nsensor)	sensor_tab,
			partsav,
			partsav2 )

Definition at line 30 of file sensor_ener_sav.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------  
      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   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "param_c.inc"
#include      "com04_c.inc"
#include      "parit_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ,INTENT(IN) :: NSENSOR
      my_real :: partsav(npsav,*),partsav2(2,*)
      TYPE (SENSOR_STR_) ,DIMENSION(NSENSOR) :: SENSOR_TAB
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,K
C-----------------------------------------------
      IF(iparit==0) THEN
        DO k=1,nsensor
            IF (sensor_tab(k)%TYPE == 14) THEN ! energy
              DO j=1,2
                DO i=1,npart
                  partsav2(j,i) = partsav(j,i)
                ENDDO
              ENDDO
            ENDIF
        ENDDO
      ENDIF
C-----------
      RETURN