blob: 7dba302e7fc645040e3a442d0b898e46135234b8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
subroutine uliber (errcode, pkerrmsg, msglen)
character*80 pkerrmsg
integer errcode, msglen
integer*2 sppmsg(81)
integer SZLINE
parameter (SZLINE=80)
c unpack the fortran character string, call fulib to output the string.
c
call f77upk (pkerrmsg, sppmsg, SZLINE)
call fulib (errcode, sppmsg, msglen)
end
|
