Pro prsc, var
print,var,form='(10f10.2)'
return
END