* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
* change default directory
* ierror = chdir(dirname)
* ierror will receive a returned status (0 == OK)
* dirname is the directory name
#include "../libI77/f_errno.h"
long chdir_(dname
, dnamlen
)
if (dnamlen
>= sizeof buf
)
return((long)(errno
=F_ERARG
));
g_char(dname
, dnamlen
, buf
);