Error

[Berezhnoy Alexander V.]

Hello!

Unfortunately in my computer a2ps doesn't work correctly. 

The ps-files I make are not written by gv (or gs).

For example, after executing 
 
    a2ps  rez.f -o rez.ps
  
and after attempt to see rez.ps I receive the following messages
from GhostScript:

Error: /undefined in 15,000000
Operand stack:
   th
Execution stack:
   %interp_exit   .runexec2   --nostringval--   --nostringval--   
--nostringval--   2   %stopped_push   --nostringval--   --nostringval--   
--nostringval--   false   1   %stopped_push   1   3   %oparray_pop   1   3   
%oparray_pop   .runexec2   --nostringv
al--   --nostringval--   --nostringval--   2   %stopped_push   --nostringval--  
 --nostringval--   --nostringval--
Dictionary stack:
   --dict:1027/1476(ro)(G)--   --dict:0/20(G)--   --dict:84/200(L)--   
--dict:55/200(L)--
Current allocation mode is local
Last OS error: 2
GNU Ghostscript 6.51: Unrecoverable error, exit code 1


Could you give the advance? 

I send the files rez.f and rez.ps 

Best regards,

 A.Berezhnoy   

        PROGRAM REZ
        REAL*8 P,A,A1,A2,X,X1,X2

        PRINT *,'P N A1 A2'
        READ *,P,N,A1,A2


    5   CONTINUE
        
        A=(A1+A2)/2.    
        CALL URAV(A1,P,N,X1)
        CALL URAV(A,P,N,X)
        CALL URAV(A2,P,N,X2)

        IF(X1*X.LT.0) THEN 
        A2=A
        ELSE
        A1=A
        END IF

        IF(DABS(X).LT.1.e-8.and.DABS(A2-A1).LT.1.e-8) GO TO 10
        GO TO 5 

   10   CONTINUE
        PRINT *,A,X
        PRINT *,A1,X1
        PRINT *,A2,X2

        END 

        SUBROUTINE URAV(A,P,N,X)
        REAL*8 A,P,X,F

        X=A**N
        F=1.

        DO J=0,N
        X=X-P*F*A**(N-J)
        F=F*(N-J)
        END DO

        RETURN
        END

rez.ps
Description: PostScript document