2.9BSD/usr/src/lib/libF77/chdir_.c

/* Fortran chdir PLWard 3/20/80 */
long chdir_(cmd,returns)
     char cmd[];
     int *returns;
{
     *returns = chdir(cmd);
}