sensor_logical.F File Reference

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

Go to the source code of this file.

Macros
#define	SENS_SENS   3
#define	SENS_AND   4
#define	SENS_OR   5
#define	SENS_NOT   8

Functions/Subroutines
subroutine	sensor_logical (sensors)

Macro Definition Documentation

SENS_AND

#define SENS_AND   4

SENS_NOT

#define SENS_NOT   8

SENS_OR

#define SENS_OR   5

SENS_SENS

#define SENS_SENS   3

Function/Subroutine Documentation

sensor_logical()

subroutine sensor_logical

(

type (sensors_), intent(inout)

sensors

)

Definition at line 37 of file sensor_logical.F.

C-----------------------------------------------
C   M a c r o s 
C-----------------------------------------------
#define SENS_SENS 3
#define SENS_AND  4
#define SENS_OR   5 
#define SENS_NOT  8
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE sensor_mod
      USE message_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "comlock.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-----------------------------------------------
      TYPE (SENSORS_) ,INTENT(INOUT) :: SENSORS
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER :: I,K,TYP
C=======================================================================
      DO i = 1, sensors%LOGICAL_SENSOR_COUNT
 
         k    = sensors%LOGICAL_SENSORS_LIST(i)
         typ  = sensors%SENSOR_TAB(k)%TYPE
C--------------------------------
         SELECT CASE(typ)
 
         CASE (sens_sens) 
 
                         CALL sensor_sens(sensors%NSENSOR,sensors%SENSOR_TAB,k)
 
         CASE (sens_and) 
 
                         CALL sensor_and(sensors%NSENSOR,sensors%SENSOR_TAB,k)
c
         CASE (sens_or)
 
                         CALL sensor_or(sensors%NSENSOR,sensors%SENSOR_TAB,k)
c
         CASE (sens_not)
 
                         CALL sensor_not(sensors%NSENSOR,sensors%SENSOR_TAB,k)
         END SELECT
C-----------------------------------------------------------------------
       ENDDO
C-----------
      RETURN