blob: a40c9fc125d2f56fd2ef537c20de41b4203980a8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# PSTR -- Print a character string from a fortran program. The string is
# passed as an unpacked spp string, the result of f77upk in the calling
# program. PSTR is called by agppid.f in the autograph package.
procedure pstr (spp_string)
char spp_string[ARB]
begin
call eprintf ("%s\n")
call pargstr (spp_string)
end
|
