1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
SUBROUTINE eprint(S)
c-----------------------------------------------------------------------
c eprint.f, Release 1, Subroutine Version 1.3, Modified 24 Jan 1995.
c-----------------------------------------------------------------------
c eprint - print error, Lahey pc version
c-----------------------------------------------------------------------
c Author - Larry Bobbitt
c Statistical Research Division
c U.S. Census Bureau
c Room 3000-4
c Washington, D.C. 20233
c (301) 763-3957
c-----------------------------------------------------------------------
IMPLICIT NONE
INCLUDE 'stdio.i'
c ------------------------------------------------------------------
CHARACTER*(*) S
c ------------------------------------------------------------------
WRITE(STDERR,*)' <p><strong>ERROR:</strong> ',S,'</p>'
c ------------------------------------------------------------------
RETURN
END
|
