#include <f2c.h>/* assign strings:  a = b */#ifdef KR_headersVOID s_copy(a, b, la, lb) register char *a, *b; ftnlen la, lb;#elsevoid s_copy(register char *a, register char *b, ftnlen la, ftnlen lb)#endif{register char *aend, *bend;aend = a + la;if(la <= lb)	while(a < aend)		*a++ = *b++;else	{	bend = b + lb;	while(b < bend)		*a++ = *b++;	while(a < aend)		*a++ = ' ';	}}