*DECK F1P
      REAL FUNCTION F1P (X)
C***BEGIN PROLOGUE  F1P
C***PURPOSE  Subsidiary to
C***LIBRARY   SLATEC
C***AUTHOR  (UNKNOWN)
C***ROUTINES CALLED  (NONE)
C***REVISION HISTORY  (YYMMDD)
C   ??????  DATE WRITTEN
C   891214  Prologue converted to Version 4.0 format.  (BAB)
C***END PROLOGUE  F1P
      REAL ALFA1,ALFA2,P1,P2,X,D1,D2
C  P1 = 1/7, P2 = 2/3
      DATA P1/0.1428571428571428E+00/
      DATA P2/0.6666666666666667E+00/
C***FIRST EXECUTABLE STATEMENT  F1P
      ALFA1 = -0.25E0
      ALFA2 = -0.5E0
      D1=ABS(X-P1)
      D2=ABS(X-P2)
      F1P = 0.0E+00
      IF(D1.NE.0.0E+00.AND.D2.NE.0.0E+00) F1P = D1**ALFA1+D2**ALFA2
      RETURN
      END
