!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
      real a,b,c,d,psi,z
      real unsl,hi