1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
SUBROUTINE NUCHAR(LINE,VALUE,NVALUE)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
************************************************************************
*
* NUCHAR DETERMINS AND RETURNS THE REAL VALUES OF ALL NUMBERS
* FOUND IN 'LINE'. ALL CONNECTED SUBSTRINGS ARE ASSUMED
* TO CONTAIN NUMBERS
* ON ENTRY LINE = CHARACTER STRING
* ON EXIT VALUE = ARRAY OF NVALUE REAL VALUES
*
************************************************************************
DIMENSION VALUE(40),ISTART(40)
CHARACTER*80 LINE
CHARACTER*1 TAB,COMMA,SPACE
LOGICAL LEADSP
SAVE COMMA, SPACE
DATA COMMA,SPACE/',',' '/
TAB=CHAR(9)
*
* CLEAN OUT TABS AND COMMAS
*
DO 10 I=1,80
10 IF(LINE(I:I).EQ.TAB.OR.LINE(I:I).EQ.COMMA)LINE(I:I)=SPACE
*
* FIND INITIAL DIGIT OF ALL NUMBERS, CHECK FOR LEADING SPACES FOLLOWED
* BY A CHARACTER
*
LEADSP=.TRUE.
NVALUE=0
DO 20 I=1,80
IF (LEADSP.AND.LINE(I:I).NE.SPACE) THEN
NVALUE=NVALUE+1
ISTART(NVALUE)=I
ENDIF
LEADSP=(LINE(I:I).EQ.SPACE)
20 CONTINUE
*
* FILL NUMBER ARRAY
*
DO 30 I=1,NVALUE
VALUE(I)=READA(LINE,ISTART(I))
30 CONTINUE
RETURN
END
|
