SUBROUTINE  AKIMASV(NP, ND, XD, YD, NI, X, Y)
IMPLICIT NONE
INTEGER NP, ND, NI
REAL*8 XD(ND), YD(ND), XI, YI, X(1), Y(1)
X(1)=XI
IF(NI.eq.1)THEN
   CALL AKIMA(NP, ND, XD, YD, NI, X, Y)
ELSE
   STOP 'Error in AKIMASV'
ENDIF
YI=Y(1)
RETURN
END