blob: 20cf860acae11eb83c41425ac64ec720b3f153f5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# FTGCBF -- Read a sequence of characters from a file into the output
# character string buffer. The sequence may begin on any byte boundary and
# may be any number of bytes long. An error status is returned if less than
# the requested amount of data is read.
procedure ftgcbf (iunit, convrt, nbytes, array, status)
int iunit #I fortran unit number
int convrt #I convert to ASCII? (not used in SPP version)
int nbytes #I number of bytes to be transferred
% character*(*) array
int status #U output error status
begin
# Get the data. Won't work on VAX.
call ftgbyt (iunit, nbytes, array, status)
end
|
