code-browser/F90Mapper/base36.c

char *base36(n)
     /* Returns a character string representing an integer in base 36 */
int n;
{
    char *base = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
    int  i, l;
    char buffer,num[500];
    static char rev[500]; 
    i = strlen(base);
    l=0;
    while ( n > i-1 ) {
     num[l]=base[n-i*(n/i)];
     ++l;
     n = n/i;
    }
    num[l]=base[n];
    rev[l+1]='\0';
    for (i=0;l>=0;--l){
     rev[i]=num[l];
     ++i;
    }
    return(rev);
}

1	adcroft	1.1	char *base36(n)
2			/* Returns a character string representing an integer in base 36 */
3			int n;
4			{
5			char *base = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
6			int i, l;
7			char buffer,num[500];
8			static char rev[500];
9			i = strlen(base);
10			l=0;
11			while ( n > i-1 ) {
12			num[l]=base[n-i*(n/i)];
13			++l;
14			n = n/i;
15			}
16			num[l]=base[n];
17			rev[l+1]='\0';
18			for (i=0;l>=0;--l){
19			rev[i]=num[l];
20			++i;
21			}
22			return(rev);
23			}
24