2 c alphnu contient les principaux caracteres alphanumeriques
4 c de 0 a 9 : les chiffres de 0 a 9
5 c de 10 a 35 : les minuscules de 'a' a 'z'
6 c de 36 a 61 : les majuscules de 'A' a 'Z'
10 parameter ( lgalnu = 62 )
13 parameter ( lgaln2 = lgalnu*lgalnu )
16 parameter ( lgaln3 = lgalnu*lgalnu*lgalnu )
19 parameter ( lgaln4 = lgalnu*lgalnu*lgalnu*lgalnu )
21 character*1 alphnu(0:lgalnu)
23 data alphnu / '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
24 > 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j',
25 > 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't',
26 > 'u', 'v', 'w', 'x', 'y', 'z',
27 > 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',
28 > 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',
29 > 'U', 'V', 'W', 'X', 'Y', 'Z',