*# // Monitoring For maximum of values
*Set Var nMaxMonitor=0
*Set Var oMaximalMonitor_fV=0
*loop Intervals
*#
*Set Cond MaxMonitor_for_Line  *nodes  *CanRepeat
*Add Cond MaxMonitor_for_Surface *nodes  *CanRepeat
*#
*If(ndime==3)
*Add Cond MaxMonitor_for_Volume  *nodes  *CanRepeat
*EndIf
*#
*If(CondNumEntities(Int)>0)
*# // selection has *CondNumEntities entities
*Set Var oMaximalMonitor_fV=1
*EndIf
*break
*End Intervals
*#
*If(oMaximalMonitor_fV==1)
*include ..\include.src.bas\MaximalMonitor_for2.bas
*#If(ndime==3)
*#include ..\include.src.bas\MaximalMonitor_for_Volume.bas
*#EndIf
*#include ..\include.src.bas\MaximalMonitor_for_Line.bas
*#include ..\include.src.bas\MaximalMonitor_for_Surface.bas
*EndIf
