PROGRAM D6R8
C	Driver for routine GSER
	CHARACTER TEXT*25
	OPEN(5,FILE='FNCVAL.DAT',STATUS='OLD')
10	READ(5,'(A)') TEXT
	IF (TEXT.NE.'Incomplete Gamma Function') GOTO 10
	READ(5,*) NVAL
	WRITE(*,*) TEXT
	WRITE(*,'(1X,T5,A,T16,A,T25,A,T36,A,T47,A,T62,A)')
     *		'A','X','Actual','GSER(A,X)','GAMMLN(A)','GLN'
	DO 11 I=1,NVAL
		READ(5,*) A,X,VALUE
		CALL GSER(GAMSER,A,X,GLN)
		WRITE(*,'(1X,F6.2,5F12.6)') A,X,VALUE,GAMSER,
     *			GAMMLN(A),GLN
11	CONTINUE
	CLOSE(5)
	END