Fonction de calcul
fr

##
intplt

### Contenu du fichier

          subroutine intplt(flag,nevprt,t,xd,x,nx,z,nz,tvec,ntvec,
         &     rpar,nrpar,ipar,nipar,u,nu,y,ny)
    c     Copyright INRIA

    c     Scicos block simulator
    c     y=f(t) for f a tabulated function from R to R^ny
    c
    c     ipar(1)             : np number of mesh points
    c     rpar(1:ny+1,1:np) : matrix of mesh point coordinates
    c                       first row contains t coordinate mesh points
    c                       next rows contains y coordinates mesh points
    c                       (one row for each output)
    c
          double precision t,xd(*),x(*),z(*),tvec(*),rpar(*),u(*),y(*)
          integer flag,nevprt,nx,nz,ntvec,nrpar,ipar(*)
          integer nipar,nu,ny

    c
    c
          np=ipar(1)
          call intp(t,rpar(1),rpar(1+np),ny,np,y)

          end