blob: 4f830011ab72456e585341a0ad3702daa19c6416 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# This is the non-VMS version. A character string variable is passed
# to an integer array argument.
#
# FTPCBF -- Write a sequence of characters to a file.
# FTPCBF -- Write a sequence of characters to a file. The sequence may begin
# on any byte boundary and may be any number of bytes long.
procedure ftpcbf (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
# Write the data. Won't work on a VAX.
call ftpbyt (iunit, nbytes, array, status)
end
|
