MODULE DEVICE_VARIABLES USE PRECISION_PARAMETERSIMPLICIT NONECHARACTER(255), PARAMETER :: devcid='$Id: devc.f90 567 2007-09-11 20:48:44Z drjfloyd $'CHARACTER(255), PARAMETER :: devcrev='$Revision: 567 $'CHARACTER(255), PARAMETER :: devcdate='$Date: 2007-09-11 16:48:44 -0400 (Tue, 11 Sep 2007) $'TYPE PROPERTY_TYPE   REAL(EB) :: BEAD_DIAMETER,BEAD_EMISSIVITY,RTI,ACTIVATION_TEMPERATURE,ACTIVATION_OBSCURATION, &               ALPHA_E,ALPHA_C,BETA_E,BETA_C,CHARACTERISTIC_VELOCITY,DROPLET_VELOCITY,FLOW_RATE,FLOW_TAU,GAUGE_TEMPERATURE, &               INITIAL_TEMPERATURE,K_FACTOR,C_FACTOR,OPERATING_PRESSURE,OFFSET,SPRAY_ANGLE(2)   REAL, POINTER, DIMENSION(:) :: TABLE_ROW   INTEGER  :: PART_INDEX,FLOW_RAMP_INDEX,SPRAY_PATTERN_INDEX   CHARACTER(30) :: SMOKEVIEW_ID,PART_ID,ID,QUANTITY,TABLE_IDEND TYPE PROPERTY_TYPETYPE DEVICE_TYPE   REAL(EB) :: T,X,Y,Z,X1,X2,Y1,Y2,Z1,Z2,INSTANT_VALUE,VALUE,DEPTH,TMP_L,Y_C,OBSCURATION,DELAY,ROTATION,&               SETPOINT, T_CHANGE=1000000._EB,BYPASS_FLOWRATE,DT,TOTAL_FLOWRATE,FLOWRATE   REAL(EB), POINTER, DIMENSION(:) :: D_PATH,TIME_ARRAY   REAL(EB), POINTER, DIMENSION(:,:) :: YY_SOOT   REAL(EB), DIMENSION(3) :: ORIENTATION   INTEGER  :: OUTPUT_INDEX,IOR,IW,COUNT,ORDINAL,I,J,K,MESH,I1,I2,J1,J2,K1,K2,I_DEPTH,N_PATH,N_T_E,PROP_INDEX,&               TRIP_DIRECTION,CTRL_INDEX,N_INPUTS   INTEGER, POINTER, DIMENSION(:) :: DEVC_INDEX   INTEGER, POINTER, DIMENSION(:) :: I_PATH,J_PATH,K_PATH   REAL(EB),  POINTER, DIMENSION(:) :: Y_E,T_E   CHARACTER(30) :: ID,PROP_ID,QUANTITY,CTRL_ID,DEVC_ID,STATISTICS='null',SURF_ID   LOGICAL :: INITIAL_STATE,CURRENT_STATE,LATCH,PRIOR_STATEEND TYPE DEVICE_TYPE! Device arraysINTEGER :: N_PROP,N_DEVCTYPE (PROPERTY_TYPE),  DIMENSION(:), ALLOCATABLE, TARGET :: PROPERTYTYPE (DEVICE_TYPE),  DIMENSION(:), ALLOCATABLE, TARGET :: DEVICECONTAINSSUBROUTINE GET_REV_devc(MODULE_REV,MODULE_DATE)INTEGER,INTENT(INOUT) :: MODULE_REVCHARACTER(255),INTENT(INOUT) :: MODULE_DATEWRITE(MODULE_DATE,'(A)') devcrev(INDEX(devcrev,':')+1:LEN_TRIM(devcrev)-2)READ (MODULE_DATE,'(I5)') MODULE_REVWRITE(MODULE_DATE,'(A)') devcdateEND SUBROUTINE GET_REV_devcEND MODULE DEVICE_VARIABLESMODULE CONTROL_VARIABLES! Variables for evaluating control functionsUSE PRECISION_PARAMETERSIMPLICIT NONETYPE CONTROL_TYPE   LOGICAL :: INITIAL_STATE=.FALSE., CURRENT_STATE=.FALSE., PRIOR_STATE=.FALSE., LATCH=.TRUE., UPDATED=.FALSE.   INTEGER :: CONTROL_INDEX=0,CYCLES=1,N_INPUTS=0,RAMP_INDEX=0,MESH=1,N=1,ON_BOUND=0   INTEGER, POINTER, DIMENSION (:) :: INPUT,INPUT_TYPE   REAL(EB) :: SETPOINT(2)=1000000._EB, DELAY=0._EB, T_CHANGE=1000000._EB ,CYCLE_TIME=1000000._EB   CHARACTER(30) :: ID='null',RAMP_ID='null',INPUT_ID(40)='null'END TYPE CONTROL_TYPETYPE (CONTROL_TYPE),  DIMENSION(:), ALLOCATABLE, TARGET :: CONTROLINTEGER, PARAMETER :: AND_GATE=1, OR_GATE=2, XOR_GATE=3, X_OF_N_GATE=4, TIME_DELAY=5, DEADBAND=6, CYCLING=7, &                      CUSTOM=8,KILL=9,CORE_DUMP=10,DEVICE_INPUT=1, CONTROL_INPUT=2INTEGER :: N_CTRL, N_CTRL_FILESEND MODULE CONTROL_VARIABLES