function [stk,txt,top]=sci_real()
// Copyright INRIA
txt=[]
stk=list('real('+stk(top)(1)+')','0',stk(top)(3),stk(top)(4),stk(top)(5))


