!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
***S/P SERDATA - S'ASSURER DU CHARGEMENT DE TOUS LES MODULES DE SERIE
*

      SUBROUTINE SERDATA 6
#include "impnone.cdk"
*
*Author
*          M. Lepine  (June 87)
*
*Object
*          to initialize variables related to the time-series
*          package
*
*Arguments
*          None.
*
*
*IMPLICITES
#include "sercmdk.cdk"
*
*MODULES
      EXTERNAL SERDBU,SERDYN,SERECRI,SERFIN
      EXTERNAL SERPAT,SERSET,SERWRIT,SERXST
*
**
*--------------------------------------------------------------------
      DATA INITOK /.FALSE./
      DATA MXSRF,MXPRF,MXSTT,MXNVO /0,0,0,0/
      DATA NSTAT,NSURF,NPROF /0,0,0/
*--------------------------------------------------------------------
      RETURN
      END