[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Error
From: |
Berezhnoy Alexander V. |
Subject: |
Error |
Date: |
Thu, 7 Feb 2002 13:11:37 +0300 (MSK) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Error,
Berezhnoy Alexander V. <=