17 lines
439 B
FortranFixed
17 lines
439 B
FortranFixed
SUBROUTINE ERFIN
|
|
c Copyright (c) 1996 California Institute of Technology, Pasadena, CA.
|
|
c ALL RIGHTS RESERVED.
|
|
c Based on Government Sponsored Research NAS7-03001.
|
|
C>> 1994-11-11 CLL Typing all variables.
|
|
C>> 1985-09-23 ERFIN Lawson Initial code.
|
|
C
|
|
integer idelta, ialpha
|
|
COMMON/M77ERR/IDELTA,IALPHA
|
|
SAVE /M77ERR/
|
|
C
|
|
1003 FORMAT(1X,72('$')/' ')
|
|
PRINT 1003
|
|
IF (IALPHA.GE.2) STOP
|
|
RETURN
|
|
END
|