%externalroutine fred(%real x,y)
%real z

%if x>0 %and y>0 %then %start
   z=sqrt(x+y)
%else
   %monitor
%finish
%end
%endoffile