Compucolor.org – Virtual Media

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