Listing of file='INPUT.FOR;01' on disk='vmedia/forutil_1-sector.ccvf'
SUBROUTINE INPUT(X,N) REAL X(N) BYTE LINE(80),STRING(20),I,J,K,DOTFLG BYTE SPACE,COMMA,DOT DATA SPACE,COMMA,DOT/' ',',','.'/ READ(3,10)LINE 10 FORMAT(80A1) DO 20 I=1,N 20 X(I) = 0.0 J = 0 30 DO 200 I=1,N DO 40 K=1,20 40 STRING(K) = SPACE K = 1 DOTFLG = .FALSE. 50 J = J+1 IF(J.GT.80) GOTO 100 IF(LINE(J).EQ.SPACE) GOTO 100 IF(LINE(J).EQ.COMMA) GOTO 100 STRING(K) = LINE(J) K = K+1 IF(LINE(J).EQ.DOT) DOTFLG = .TRUE. GOTO 50 100 IF(.NOT.DOTFLG) STRING(K) = DOT DECODE(STRING,150)X(I) 150 FORMAT(F15.0) IF(J.GT.80) RETURN 200 CONTINUE RETURN END