sensor_energy_part.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	sensor_energy_part (ipart, subset, ipri, sensors, itask)

Function/Subroutine Documentation

sensor_energy_part()

subroutine sensor_energy_part	(	integer, dimension(*)	ipart,
		type (subset_), dimension(nsubs)	subset,
		integer	ipri,
		type (sensors_), intent(in)	sensors,
		integer, intent(in)	itask )

Definition at line 32 of file sensor_energy_part.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE groupdef_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   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,INTENT(IN) :: ITASK
      INTEGER IPART(*),IPRI
      TYPE (SUBSET_) , DIMENSION(NSUBS) :: SUBSET
      TYPE (SENSORS_), INTENT(IN) :: SENSORS
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,TYP,IPRT,ISUBS,NP,J,JJ
      INTEGER :: NGR_SENSOR
C-----------------------------------------------
        ngr_sensor = sensors%ngr_sensor(itask+1)
        IF(sensors%SENS_GROUP(ngr_sensor)%NUM_PART>0) ipri = 1
C-----------
      RETURN