   6     k820309 t629                                                                                                                                                    
       string_b.f90 DC_STRING_INTERNAL          VARYING_STRING VAR_STR GET PUT_LINE SCAN EXTRACT DISPOSABLE i@| i@ i@ i@ i@ i@ i@ i@ gen@DISPOSABLE gen@LEN gen@VAR_STR gen@CHAR gen@EXTRACT gen@SPLIT gen@GET gen@PUT gen@PUT_LINE gen@SCAN gen@VERIFY gen@INDEX                                               |  STRING_LET_CHAR CHAR_LET_STRING #     @      X                                       STR CHAR       
D                                     VARYING_STRING       
  A                                   1 #     @      X                                       CHAR STR       D                                     1       
                                     VARYING_STRING                                                STRING_EQ_STRING STRING_EQ_CHAR CHAR_EQ_STRING %     @    X                                          LHS RHS       
                                     VARYING_STRING       
                                     VARYING_STRING %     @    X                                          STR CHAR       
                                     VARYING_STRING       
                                     1 %     @    X                                          CHAR STR       
                                     1       
                                     VARYING_STRING                                                STRING_NE_STRING STRING_NE_CHAR CHAR_NE_STRING %     @    X                                          LHS RHS       
                                     VARYING_STRING       
                                     VARYING_STRING %     @    X                                          STR CHAR       
                                     VARYING_STRING       
                                     1 %     @    X                                          CHAR STR       
                                     1       
                                     VARYING_STRING                                                STRING_ADD_STRING CHAR_ADD_STRING STRING_ADD_CHAR &     @    X                                          LHS RHS VARYING_STRING       
                                     VARYING_STRING       
                                     VARYING_STRING &     @     X                                          CHAR STR VARYING_STRING       
  @                                   1       
                                     VARYING_STRING &     @    X                                         LHS RHS VARYING_STRING       
                                     VARYING_STRING       
  @                                   1                                                STRING_LT_STRING STRING_LT_CHAR CHAR_LT_STRING %     @    X                                          LHS RHS       
                                     VARYING_STRING       
                                     VARYING_STRING %     @    X                                          STR CHAR       
                                     VARYING_STRING       
                                     1 %     @    X                                          CHAR STR       
                                     1       
                                     VARYING_STRING                                                STRING_LE_STRING STRING_LE_CHAR CHAR_LE_STRING %     @    X                                          LHS RHS       
                                     VARYING_STRING       
                                     VARYING_STRING %     @    X                                          STR CHAR       
                                     VARYING_STRING       
                                     1 %     @    X                                          CHAR STR       
                                     1       
                                     VARYING_STRING                                                STRING_GT_STRING STRING_GT_CHAR CHAR_GT_STRING %     @    X                                          LHS RHS       
                                     VARYING_STRING       
                                     VARYING_STRING %     @    X                                          STR CHAR       
                                     VARYING_STRING       
                                     1 %     @    X                                          CHAR STR       
                                     1       
                                     VARYING_STRING                                                STRING_GE_STRING STRING_GE_CHAR CHAR_GE_STRING %     @    X                                          LHS RHS       
                                     VARYING_STRING       
                                     VARYING_STRING %     @    X                                          STR CHAR       
                                     VARYING_STRING       
                                     1 %     @    X                                          CHAR STR       
                                     1       
                                     VARYING_STRING                                            u STRING_SET_DISPOSABLE #     @      X                                        STR       
                                      VARYING_STRING                                           u STRING_LEN %     @    X                                         STR       
                                     VARYING_STRING                                            u CHAR_TO_STRING &     @    X                                         CHAR_TO_STRING%MIN CHAR VARYING_STRING                                       MIN       
  A                                   1                                            u STRING_TO_CHAR_ALL STRING_TO_CHAR_LENGTH $    @    X                                          STR 5 8 O p    u fldref+VARYING_STRING%LEN       
  A                                   VARYING_STRING $    @     X                                           STR LENGTH 5 O p          
  @                                   VARYING_STRING       
                                                                            u EXTRACT_STRING &     @    X                                        EXTRACT_STRING%MAX EXTRACT_STRING%PRESENT EXTRACT_STRING%MIN STRING START FINISH VARYING_STRING                                       MAX                                       PRESENT                                       MIN       
                                     VARYING_STRING       
 A                                     
 A                                                                          u SPLIT_C SPLIT_S #     @      X                                      SPLIT_C%PRESENT STRING WORD SET SEPARATOR BACK                                       PRESENT       
D A                                    VARYING_STRING       D                                     VARYING_STRING       
  A                                   1       F A                                    VARYING_STRING       
 A                               #     @      X                                        STRING WORD SET SEPARATOR BACK       
D @                                    VARYING_STRING       D @                                    VARYING_STRING       
                                     VARYING_STRING       F @                                    VARYING_STRING       
 @                                                                          u STRING_GET STRING_GET_DEFAULT #     @      X                                      STRING_GET%LEN_TRIM STRING_GET%PRESENT STRING_GET%MIN UNIT STR MAXLEN IOSTAT                                       LEN_TRIM                                       PRESENT                                       MIN       
                                       D A                                    VARYING_STRING       
 A                                     F A                                #     @      X                                        STR MAXLEN IOSTAT       D @                                    VARYING_STRING       
 @                                     F @                                                                           u STRING_PUT STRING_PUT_DEFAULT CHAR_PUT CHAR_PUT_DEFAULT #     @      X                                      STRING_PUT%PRESENT UNIT STR IOSTAT                                       PRESENT       
                                       
                                     VARYING_STRING       F A                                #     @      X                                        STR IOSTAT       
  @                                   VARYING_STRING       F @                                #     @      X                                      CHAR_PUT%PRESENT UNIT CHAR IOSTAT                                       PRESENT       
                                       
                                     1       F A                                #     @      X                                        CHAR IOSTAT       
  @                                   1       F @                                                                           u STRING_PUT_LINE STRING_PUT_LINE_DEFAULT CHAR_PUT_LINE CHAR_PUT_LINE_DEFAULT #     @      X                                      STRING_PUT_LINE%PRESENT UNIT STR IOSTAT                                       PRESENT       
                                       
                                     VARYING_STRING       F A                                #     @      X                                        STR IOSTAT       
  @                                   VARYING_STRING       F @                                #     @      X                                      CHAR_PUT_LINE%PRESENT UNIT CHAR IOSTAT                                       PRESENT       
                                       
                                     1       F A                                #     @      X                                        CHAR IOSTAT       
  @                                   1       F @                                                                          u STRING_SCAN_STRING STRING_SCAN_CHAR %     @     X                                          STR SET BACK       
                                     VARYING_STRING       
                                     VARYING_STRING        A                                %     @     X                                          STR SET BACK       
                                     VARYING_STRING       
  A                                   1        A                                                                          u STRING_VERIFY_STRING STRING_VERIFY_CHAR %     @     X                                          STRING SET BACK       
                                     VARYING_STRING       
                                     VARYING_STRING        A                                %     @     X                                          STRING SET BACK       
                                     VARYING_STRING       
  A                                   1        A                                                                          u STRING_INDEX_STRING STRING_INDEX_CHAR CHAR_INDEX_STRING %     @     X                                         STRING_INDEX_STRING%PRESENT STR SUBSTRING BACK                                       PRESENT       
                                     VARYING_STRING       
                                     VARYING_STRING       
 A                               %     @     X                                         STRING_INDEX_CHAR%PRESENT STR SUBSTRING BACK                                       PRESENT       
                                     VARYING_STRING       
  A                                   1       
 A                               %     @     X                                         CHAR_INDEX_STRING%PRESENT STR SUBSTRING BACK                                       PRESENT       
  A                                   1       
                                     VARYING_STRING       
 A                                            @                         '            LEN BODY                                                                                                  (      fn#fn (         b   uapp(DC_STRING_INTERNAL      T      i@|       E      STRING_LET_CHAR $   Y  C   a   STRING_LET_CHAR%STR %     8   a   STRING_LET_CHAR%CHAR       E      CHAR_LET_STRING %     8   a   CHAR_LET_STRING%CHAR $   Q  C   a   CHAR_LET_STRING%STR      c      i@ !     H      STRING_EQ_STRING %   ?  C   a   STRING_EQ_STRING%LHS %     C   a   STRING_EQ_STRING%RHS      I      STRING_EQ_CHAR #     C   a   STRING_EQ_CHAR%STR $   Q  8   a   STRING_EQ_CHAR%CHAR      I      CHAR_EQ_STRING $     8   a   CHAR_EQ_STRING%CHAR #   
  C   a   CHAR_EQ_STRING%STR    M  c      i@ !     H      STRING_NE_STRING %     C   a   STRING_NE_STRING%LHS %   ;  C   a   STRING_NE_STRING%RHS    ~  I      STRING_NE_CHAR #     C   a   STRING_NE_CHAR%STR $   
  8   a   STRING_NE_CHAR%CHAR    B  I      CHAR_NE_STRING $     8   a   CHAR_NE_STRING%CHAR #     C   a   CHAR_NE_STRING%STR    	  f      i@ "   l	  W      STRING_ADD_STRING &   	  C   a   STRING_ADD_STRING%LHS &   
  C   a   STRING_ADD_STRING%RHS     I
  X      CHAR_ADD_STRING %   
  8   a   CHAR_ADD_STRING%CHAR $   
  C   a   CHAR_ADD_STRING%STR       W      STRING_ADD_CHAR $   s  C   a   STRING_ADD_CHAR%LHS $     8   a   STRING_ADD_CHAR%RHS      c      i@ !   Q  H      STRING_LT_STRING %     C   a   STRING_LT_STRING%LHS %     C   a   STRING_LT_STRING%RHS      I      STRING_LT_CHAR #   h  C   a   STRING_LT_CHAR%STR $     8   a   STRING_LT_CHAR%CHAR      I      CHAR_LT_STRING $   ,  8   a   CHAR_LT_STRING%CHAR #   d  C   a   CHAR_LT_STRING%STR      c      i@ !   
  H      STRING_LE_STRING %   R  C   a   STRING_LE_STRING%LHS %     C   a   STRING_LE_STRING%RHS      I      STRING_LE_CHAR #   !  C   a   STRING_LE_CHAR%STR $   d  8   a   STRING_LE_CHAR%CHAR      I      CHAR_LE_STRING $     8   a   CHAR_LE_STRING%CHAR #     C   a   CHAR_LE_STRING%STR    `  c      i@ !     H      STRING_GT_STRING %     C   a   STRING_GT_STRING%LHS %   N  C   a   STRING_GT_STRING%RHS      I      STRING_GT_CHAR #     C   a   STRING_GT_CHAR%STR $     8   a   STRING_GT_CHAR%CHAR    U  I      CHAR_GT_STRING $     8   a   CHAR_GT_STRING%CHAR #     C   a   CHAR_GT_STRING%STR      c      i@ !   |  H      STRING_GE_STRING %     C   a   STRING_GE_STRING%LHS %     C   a   STRING_GE_STRING%RHS    J  I      STRING_GE_CHAR #     C   a   STRING_GE_CHAR%STR $     8   a   STRING_GE_CHAR%CHAR      I      CHAR_GE_STRING $   W  8   a   CHAR_GE_STRING%CHAR #     C   a   CHAR_GE_STRING%STR      J       gen@DISPOSABLE &     @      STRING_SET_DISPOSABLE *   \  C   a   STRING_SET_DISPOSABLE%STR      ?       gen@LEN      D      STRING_LEN    "  C   a   STRING_LEN%STR    e  C       gen@VAR_STR      g      CHAR_TO_STRING #     0      CHAR_TO_STRING%MIN $   ?  8   a   CHAR_TO_STRING%CHAR    w  ]       gen@CHAR #     v      STRING_TO_CHAR_ALL '   J  C   a   STRING_TO_CHAR_ALL%STR &     [      STRING_TO_CHAR_LENGTH *     C   a   STRING_TO_CHAR_LENGTH%STR -   +  0   a   STRING_TO_CHAR_LENGTH%LENGTH    [  C       gen@EXTRACT            EXTRACT_STRING #   >  0      EXTRACT_STRING%MAX '   n  4      EXTRACT_STRING%PRESENT #     0      EXTRACT_STRING%MIN &     C   a   EXTRACT_STRING%STRING %     0   a   EXTRACT_STRING%START &   E  0   a   EXTRACT_STRING%FINISH    u  D       gen@SPLIT      k      SPLIT_C     $  4      SPLIT_C%PRESENT    X  C   a   SPLIT_C%STRING      C   a   SPLIT_C%WORD      8   a   SPLIT_C%SET "     C   a   SPLIT_C%SEPARATOR    Y  0   a   SPLIT_C%BACK      [      SPLIT_S      C   a   SPLIT_S%STRING    '   C   a   SPLIT_S%WORD    j   C   a   SPLIT_S%SET "      C   a   SPLIT_S%SEPARATOR       0   a   SPLIT_S%BACK     !  R       gen@GET    r!        STRING_GET $   !  5      STRING_GET%LEN_TRIM #   0"  4      STRING_GET%PRESENT    d"  0      STRING_GET%MIN     "  0   a   STRING_GET%UNIT    "  C   a   STRING_GET%STR "   #  0   a   STRING_GET%MAXLEN "   7#  0   a   STRING_GET%IOSTAT #   g#  N      STRING_GET_DEFAULT '   #  C   a   STRING_GET_DEFAULT%STR *   #  0   a   STRING_GET_DEFAULT%MAXLEN *   ($  0   a   STRING_GET_DEFAULT%IOSTAT    X$  l       gen@PUT    $  _      STRING_PUT #   #%  4      STRING_PUT%PRESENT     W%  0   a   STRING_PUT%UNIT    %  C   a   STRING_PUT%STR "   %  0   a   STRING_PUT%IOSTAT #   %  G      STRING_PUT_DEFAULT '   A&  C   a   STRING_PUT_DEFAULT%STR *   &  0   a   STRING_PUT_DEFAULT%IOSTAT    &  ^      CHAR_PUT !   '  4      CHAR_PUT%PRESENT    F'  0   a   CHAR_PUT%UNIT    v'  8   a   CHAR_PUT%CHAR     '  0   a   CHAR_PUT%IOSTAT !   '  H      CHAR_PUT_DEFAULT &   &(  8   a   CHAR_PUT_DEFAULT%CHAR (   ^(  0   a   CHAR_PUT_DEFAULT%IOSTAT    (         gen@PUT_LINE     )  d      STRING_PUT_LINE (   r)  4      STRING_PUT_LINE%PRESENT %   )  0   a   STRING_PUT_LINE%UNIT $   )  C   a   STRING_PUT_LINE%STR '   *  0   a   STRING_PUT_LINE%IOSTAT (   I*  G      STRING_PUT_LINE_DEFAULT ,   *  C   a   STRING_PUT_LINE_DEFAULT%STR /   *  0   a   STRING_PUT_LINE_DEFAULT%IOSTAT    +  c      CHAR_PUT_LINE &   f+  4      CHAR_PUT_LINE%PRESENT #   +  0   a   CHAR_PUT_LINE%UNIT #   +  8   a   CHAR_PUT_LINE%CHAR %   ,  0   a   CHAR_PUT_LINE%IOSTAT &   2,  H      CHAR_PUT_LINE_DEFAULT +   z,  8   a   CHAR_PUT_LINE_DEFAULT%CHAR -   ,  0   a   CHAR_PUT_LINE_DEFAULT%IOSTAT    ,  X       gen@SCAN #   :-  M      STRING_SCAN_STRING '   -  C   a   STRING_SCAN_STRING%STR '   -  C   a   STRING_SCAN_STRING%SET (   .  0   a   STRING_SCAN_STRING%BACK !   =.  M      STRING_SCAN_CHAR %   .  C   a   STRING_SCAN_CHAR%STR %   .  8   a   STRING_SCAN_CHAR%SET &   /  0   a   STRING_SCAN_CHAR%BACK    5/  \       gen@VERIFY %   /  P      STRING_VERIFY_STRING ,   /  C   a   STRING_VERIFY_STRING%STRING )   $0  C   a   STRING_VERIFY_STRING%SET *   g0  0   a   STRING_VERIFY_STRING%BACK #   0  P      STRING_VERIFY_CHAR *   0  C   a   STRING_VERIFY_CHAR%STRING '   *1  8   a   STRING_VERIFY_CHAR%SET (   b1  0   a   STRING_VERIFY_CHAR%BACK    1  l       gen@INDEX $   1  o      STRING_INDEX_STRING ,   m2  4      STRING_INDEX_STRING%PRESENT (   2  C   a   STRING_INDEX_STRING%STR .   2  C   a   STRING_INDEX_STRING%SUBSTRING )   '3  0   a   STRING_INDEX_STRING%BACK "   W3  m      STRING_INDEX_CHAR *   3  4      STRING_INDEX_CHAR%PRESENT &   3  C   a   STRING_INDEX_CHAR%STR ,   ;4  8   a   STRING_INDEX_CHAR%SUBSTRING '   s4  0   a   STRING_INDEX_CHAR%BACK "   4  m      CHAR_INDEX_STRING *   5  4      CHAR_INDEX_STRING%PRESENT &   D5  8   a   CHAR_INDEX_STRING%STR ,   |5  C   a   CHAR_INDEX_STRING%SUBSTRING '   5  0   a   CHAR_INDEX_STRING%BACK    5  E       VARYING_STRING #   46  8   a   VARYING_STRING%LEN $   l6  8   a   VARYING_STRING%BODY 