copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
      character*8 surface(nmlmax),profil(nmlmax)
      integer statij(2,nmlmax),lcl_sta(nmlmax),nstat,nstat_l,
     $        nsurf,nprof,serint,dimsers,dimserp,endserii
      real    statll(2,nmlmax),sers,serp,sersx,serpx,endserir
      pointer (pasers, sers(*)), (paserp, serp(*)),
     $        (pasersx, sersx(*)), (paserpx, serpx(*))
      common /seri_pnt/ pasers,paserp,pasersx,paserpx
*
      integer seri_c_first(-1:0),seri_c_last
      common /seri_c/ seri_c_first
      common /seri_c/ surface,profil
      common /seri_c/ seri_c_last
*
      common /seri_i/ statij,lcl_sta,nstat,nstat_l,
     $                nsurf,nprof,serint,dimsers,dimserp,endserii
      common /seri_r/ statll,endserir
*
      namelist /series_cfg/ surface,profil,statij,nstat,nsurf,nprof,
     $                      serint,statll
*
*     nstat      : number of surface station
*                  series are inactive if nstat = 0 (max = 256)
*     statij(?,1): grid coor. along x-axis of the station
*     statij(?,2): grid coor. along y-axis of the station
*     statll(?,1): latitude of the station
*     statll(?,2): longitude of the station
*     nsurf      : number of surface fields to extract
*     nprof      : number of profil fields to extract
*     surface    : comma separated list of surface fields to extract
*     profil     : comma separated list of profil fields to extract
*     serint     : extract fields each 'serint' timesteps