projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
date and time created 83/01/21 11:12:06 by dlw
[unix-history]
/
usr
/
src
/
usr.bin
/
f77
/
libF77
/
ef1asc_.c
/*
* "@(#)ef1asc_.c 1.1"
*/
/* EFL support routine to copy string b to string a */
#define M ( (long) (sizeof(long) - 1) )
#define EVEN(x) ( ( (x)+ M) & (~M) )
ef1asc_
(
a
,
la
,
b
,
lb
)
int
*
a
, *
b
;
long int
*
la
, *
lb
;
{
s_copy
( (
char
*)
a
, (
char
*)
b
,
EVEN
(*
la
), *
lb
);
}