SUBROUTINE  AKIMASV(NP,ND,XD,YD,NI,XI, YI)
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