&      SUBROUTINE DECRSTR (STR, VAR,KN)LC_TITLE  DECRSTR  Decodes a character string and converts to real variables.C_ARGUMENTS\	CHARACTER*(*) STR   ! [I] A sequence of numbers with commas separating the numeric entries	I	REAL VAR(*)         ! [O] Array in which the real variables are returned0	INTEGER KN	    ! [O] Number of variables in VARMC_DESCRIPTION  The subroutine DECRSTR decodes a character string and convertsCC it into KN real variables, the character string is in the format DC "STR,ANUM1,ANUM2" and is passed to this calling subroutine by TAE.)C_HISTORY  86March12  R.Gurule  FlagstaffC_END      IST =1      KNT=0      IL = LEN(STR) !-----Check for the first comma.      DO 10 I=1,IL)       IF(STR(I:I).EQ.','.OR.I.EQ.IL)THEN       KNT = KNT + 12!------We ar at the end, or we have found a match.         IF(I.EQ.IL) THEN           NCHAR=I-IST+1           IEND=I
         ELSE           NCHAR=I-IST           IEND=I-1         END IF!------decode the string.       IF(NCHAR.NE.0) THEN0         DECODE(NCHAR,100,STR(IST:IEND))VAR(KNT) 100     FORMAT(F9.0)         IST = I + 1       ELSE         VAR(KNT)=0.0         IST=I+1
       END IF      END IF  10  CONTINUE      KN = KNT      RETURN	      END