FUNCTION FPARAB
*-- Author : I.O. Skillicorn
      FUNCTION FPARAB(Z,X1,X2,X3,Z1,Z2,Z3)
C     CALCULATE X FOR Z ON PARABOLA THRU X1,X2,X3,Z1,Z2,Z3                                                    
      X=(Z-Z2)*(Z-Z3)/((Z1-Z2)*(Z1-Z3))*X1                              
      X=X+(Z-Z1)*(Z-Z3)/((Z2-Z1)*(Z2-Z3))*X2                            
      X=X+(Z-Z1)*(Z-Z2)/((Z3-Z1)*(Z3-Z2))*X3                            
      FPARAB=X                                                          
      RETURN                                                            
      END                                                               
*