src/tool/Includes_Generaux/alphnu.h

   1 c
   2 c alphnu contient les principaux caracteres alphanumeriques
   3 c
   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'
   7 c             62 : +
   8 c
   9       integer lgalnu
  10       parameter ( lgalnu = 62 )
  11 c
  12       integer lgaln2
  13       parameter ( lgaln2 = lgalnu*lgalnu )
  14 c
  15       integer lgaln3
  16       parameter ( lgaln3 = lgalnu*lgalnu*lgalnu )
  17 c
  18       integer lgaln4
  19       parameter ( lgaln4 = lgalnu*lgalnu*lgalnu*lgalnu )
  20 c
  21       character*1 alphnu(0:lgalnu)
  22 c
  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',
  30      >              '+' /