;C  PLVECL:  PUT VECTOR OF LABEL VALUES - CHARACTER LITERALS>C  ELEMENTS OF VECTOR SEPARATED BY COMMAS (OR SPACES OR TABS?)LC  INPUT NVAL:  N>0 PUT FIRST N VALUES  N<0 PUT (-N)TH VALUE  OF VECTOR CVALKC  OUTPUTS LVAL:  -1 ILLEGAL NVAL  -2  INVALID KEY  -3 NO ROOM  >0 # VALUESMC  CURRENT MAXIMUM:  1024 CHARACTERS FOR VECTOR (INCL PARENS), 30 PER ELEMENT*C ... NEGATIVE NVAL NOT YET IMPLEMENTED...C  CALLS ADDKEY,LENVAL9      SUBROUTINE PLVECL(LAB,LLAB,KPOS,KEY,NVAL,CVAL,LVAL)      CHARACTER*(*) CVAL(1)      CHARACTER*(*) LAB,KEY      CHARACTER*30 VALI      CHARACTER*1024 VALC      IF (NVAL.EQ.0) GO TO 71&      IF (NVAL.LT.0) GO TO 71			! TEMP&      VAL(1:1)='('				! start with "("	      K=2*      DO 10 I=1,NVAL				! loop on elements#      VALI=CVAL(I)				! get element(      LVALI=LENVAL(VALI)			! find lengthF      VAL(K:K+LVALI)=VALI(1:LVALI)//','		! insert in string with comma+ 10   K=K+LVALI+1				! end loop on elements3      VAL(K-1:K-1)=')'				! over-write "," with ")"@      CALL ADDKEY(LAB,LLAB,KPOS,KEY,VAL,LVAL)	! put value string      IF (LVAL.LE.0) RETURN      LVAL=NVAL      RETURN	C  ERRORS  71   LVAL=-1					! illegal NVAL      RETURN	      END