	  7  A   k820309    Y
          11.1        Û²ÌQ                                                                                                           
       charpak_mod.F CHARPAK_MOD              CNTMAT COPYTXT CSTRIP ISDIGIT STRREPL STRSPLIT STRSQUEEZE TRANLC TRANUC TXT2INUM TXTEXT #         @                                                   #CNTMAT%LEN    #CNTMAT%LEN_TRIM    #CNTMAT%MAX    #STR1    #STR2    #IMAT                  @                                 LEN               @                                 LEN_TRIM               @                                 MAX            @@                                                   1            @@                                                   1           D  @                                          #         @                                                   #COPYTXT%MAX0 	   #COPYTXT%LEN 
   #COL    #STR1    #STR2                  @                            	     MAX0               @                            
     LEN            @@                                                     @@                                                   1           D @@                                                   1 #         @                                                    #CSTRIP%ICHAR    #CSTRIP%LEN    #TEXT                  @                                 ICHAR               @                                 LEN           D @@                                                   1 %         @                                                           #ISDIGIT%ICHAR    #CH                  @                                 ICHAR            @@                                                          #         @                                                    #STRREPL%INDEX    #STRREPL%REPEAT    #STRREPL%LEN    #STRREPL%LEN_TRIM    #STR    #PATTERN    #REPLTXT                  @                                 INDEX               @                                 REPEAT               @                                 LEN               @                                 LEN_TRIM           
D @@                                                  1           
  @@                                                 1           
  @@                                                 1 #         @                                                    #STRSPLIT%PRESENT    #STRSPLIT%TRIM    #STR     #SEP !   #RESULT "   #N_SUBSTRS #                 @                                 PRESENT               @                                 TRIM           
  @@                                                  1           
@ @@                             !                           ,          D  @                             "     ÿ                    p          p ÿ           p ÿ                         1           F @@                              #            #         @                                  $                  #STRSQUEEZE%ADJUSTL %   #STRSQUEEZE%ADJUSTR &   #STRSQUEEZE%TRIM '   #STR (                 @                            %     ADJUSTL               @                            &     ADJUSTR               @                            '     TRIM           
D @@                             (                     1 #         @                                  )                  #TRANLC%CHAR *   #TRANLC%ICHAR +   #TRANLC%LEN ,   #TEXT -                 @                            *     CHAR               @                            +     ICHAR               @                            ,     LEN           D @@                              -                     1 #         @                                  .                  #TRANUC%CHAR /   #TRANUC%ICHAR 0   #TRANUC%LEN 1   #TEXT 2                 @                            /     CHAR               @                            0     ICHAR               @                            1     LEN           D @@                              2                     1 #         @                                  3                   #FMAT 4   #TXT 5   #INUM 6   #IFLG 7               @                              4                     1             @                              5                     1           D  @                              6                      D  @                              7            #         @                                 8                  #TXTEXT%REPEAT 9   #TXTEXT%LEN :   #CH ;   #TEXT <   #COL =   #WORD >   #IFLG ?                 @                            9     REPEAT               @                            :     LEN           D @@                              ;                     1           D @@                              <                     1           D  @                              =                      D @@                              >                     1           D  @                              ?                   "      fn#fn !   Â   h   b   uapp(CHARPAK_MOD    *  ›       CNTMAT    Å  <      CNTMAT%LEN       A      CNTMAT%LEN_TRIM    B  <      CNTMAT%MAX    ~  L   a   CNTMAT%STR1    Ê  L   a   CNTMAT%STR2      @   a   CNTMAT%IMAT    V  ˆ       COPYTXT    Þ  =      COPYTXT%MAX0      <      COPYTXT%LEN    W  @   a   COPYTXT%COL    —  L   a   COPYTXT%STR1    ã  L   a   COPYTXT%STR2    /  t       CSTRIP    £  >      CSTRIP%ICHAR    á  <      CSTRIP%LEN      L   a   CSTRIP%TEXT    i  k       ISDIGIT    Ô  >      ISDIGIT%ICHAR      P   a   ISDIGIT%CH    b  ¹       STRREPL      >      STRREPL%INDEX    Y  ?      STRREPL%REPEAT    ˜  <      STRREPL%LEN !   Ô  A      STRREPL%LEN_TRIM    	  L   a   STRREPL%STR     a	  L   a   STRREPL%PATTERN     ­	  L   a   STRREPL%REPLTXT    ù	  ž       STRSPLIT !   —
  @      STRSPLIT%PRESENT    ×
  =      STRSPLIT%TRIM      L   a   STRSPLIT%STR    `  P   a   STRSPLIT%SEP     °  ˜   a   STRSPLIT%RESULT #   H  @   a   STRSPLIT%N_SUBSTRS    ˆ  –       STRSQUEEZE #     @      STRSQUEEZE%ADJUSTL #   ^  @      STRSQUEEZE%ADJUSTR     ž  =      STRSQUEEZE%TRIM    Û  L   a   STRSQUEEZE%STR    '  …       TRANLC    ¬  =      TRANLC%CHAR    é  >      TRANLC%ICHAR    '  <      TRANLC%LEN    c  L   a   TRANLC%TEXT    ¯  …       TRANUC    4  =      TRANUC%CHAR    q  >      TRANUC%ICHAR    ¯  <      TRANUC%LEN    ë  L   a   TRANUC%TEXT    7  o       TXT2INUM    ¦  L   a   TXT2INUM%FMAT    ò  L   a   TXT2INUM%TXT    >  @   a   TXT2INUM%INUM    ~  @   a   TXT2INUM%IFLG    ¾  š       TXTEXT    X  ?      TXTEXT%REPEAT    —  <      TXTEXT%LEN    Ó  L   a   TXTEXT%CH      L   a   TXTEXT%TEXT    k  @   a   TXTEXT%COL    «  L   a   TXTEXT%WORD    ÷  @   a   TXTEXT%IFLG 