! A monitoring routine for ILAP, which uses system dependent timings -

%external %routine monitor %alias "ILAP_MONITOR" (%string (255) S)
   %integer I
   I = out stream
   select output (0)
!   print string ("Monitor:  CPU =")
!   print (deltacpu/1000,1,2)
!   print string ("s  PF =")
!   write (delta page,2)
!   space;   space
print string ("Monitor:  ")
   print string (s)
   newline
   select output (i)
%end

! The following routines currently output comments in the CIF, but
! these can be changed to be calls to CIF STATEMENT in which case the
! system dependent user codes are output.

%routine dump lambda (%integer Lambda)
   dump comment ("25 Lambda = ".Itos(Lambda,0))
%end

%external %routine Node Label %alias "ILAP_NODE_LABEL" (%string (31) label,
   %integer x, y, %string (4) layer)
   ! User code 94 is used by some people for node lables.
   layer = to string (technology).layer %if length(layer)=1
   dump comment ("94 ".label." ".itos(x*cif scale,0)." ".itos(y*cif scale,0) %c
                       .layer)
%end

%end %of %file