!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
***S/P SERSETM -  INITIALISER UNE DES VARIABLES DES SERIES TEMPORELLES
*                 EN MODE MULTITACHE
*

      SUBROUTINE SERSETM (NOM,RANGEE,VALEUR) 3
*
#include "impnone.cdk"
*
      CHARACTER *(*) NOM
      INTEGER VALEUR, RANGEE
*
*Author
*          B. Bilodeau
*
*Object
*          to initialize a time-series variable in multitasking mode
*
*Arguments
*
*          - Input -
* NOM      name of the variable to initialize
* VALEUR   table containing the values for initializing the variable
* RANGEE   row number
*
*IMPLICITES
*
#include "sercmdk.cdk"
*
**
*
      IF (NSTAT.LE.0) RETURN
*
      IF (NOM .EQ. 'KA') THEN
        KAM(RANGEE) = VALEUR
      ENDIF
*
*
      RETURN
      END