Appendix F - Measuring Consumption (kWh), Demand, and Other Applications
C \NAME FOR THE CONSUMPTION FOR NOVEMBER .................(VLAO,NOV)\NOV\
C \NAME FOR THE CONSUMPTION FOR DECEMBER .................(VLAO,DEC)\DEC\
C \NAME FOR THE CONSUMPTION FOR MONDAY .................(VLAO,MON)\MON\
C \NAME FOR THE CONSUMPTION FOR TUESDAY .................(VLAO,TUE)\TUE\
C \NAME FOR THE CONSUMPTION FOR WEDNESDAY .................(VLAO,WED)\WED\
C \NAME FOR THE CONSUMPTION FOR THURSDAY .................(VLAO,THU)\THU\
C \NAME FOR THE CONSUMPTION FOR FRIDAY .................(VLAO,FRI)\FRI\
C \NAME FOR THE CONSUMPTION FOR SATURDY .................(VLAO,SAT)\SAT\
C \NAME FOR THE CONSUMPTION FOR SUNDAY .................(VLAO,SUN)\SUN\
C \NAME FOR THE CONSUMPTION FOR WEEK .................(VLAO,WEK)\WEK\
C ------- SET UP THE NAME OF THE MECHANICAL SYSTEM-------
C APOGEE INSTRUCTIONS: REPLACE %X% WITH MECHANICAL SYSTEM. THE Y AND Z
C DEFINE STATEMENTS ARE FOR THE ACTUAL POINTS IN THE DEM DEVICE.
C NON-APOGEE PANEL: DELETE OR “COMMENT OUT” LINES 1000-1020 AND
C USE “SEARCH AND REPLACE” TO CHANGE %X% TO MECHANICAL SYSTEMS AND
C REPLACE %Y% AND %Z% WITH THE DEM APPLICATION POINTS.
DEFINE(Y,”DEM:CONSUMPTN HI”)
DEFINE(Z,”DEM:CONSUMPTN LO”)
C ------- MONTHLY CONSUMPTION -------
C IF IT IS THE FIRST DAY OF THE MONTH AND THE TIME IS 12:00AM,
C THEN SET THE VIRTUAL METER CONSUMPTION POINTS EQUAL TO THE
C ACTUAL DEM VALUES. OTHERWISE, SKIP AND CALCULATE THE MONTHLY VALUE.
IF (DAYOFM .EQ. 1 .AND. CRTIME .EQ. 0.0) THEN GOTO 2010 ELSE GOTO 3000
C CALCULATE THE PROPER MONTH