%EXTERNALROUTINE SETR(%LONGREALNAME LR,%LONGREAL VAL)
PRINTSTRING('ENTERING IMP SETR')
NEWLINE
LR=VAL
%END
%ENDOFFILE