   9     k820309 629                                                                                                                                                    
       gtool_frame.f90 GTOOL_FRAME          GT_FRAME PUT DISPOSE gen@INIT gen@PUT gen@DISPLAY gen@DISPOSE                                           
                                                 u GTOOLFIGUREINIT INIT_FRAME #     @      X                                        FRAME       D                              $       GT_FRAME                                           u PUT_FIGURE #     @      X                                        FRAME FIGURE       
D                              $       GT_FRAME       
                               |     GT_FIGURE                                          u GTOOLCONTOURSDISPLAY DISPLAY_FRAME #     @      X                                        DEV FRAME       
D @                                    GT_DEVICE       
@ A                             $      GT_FRAME                                           u DISPOSE_FRAME #     @      X                                       DISPOSE_FRAME%ASSOCIATED FRAME                                       ASSOCIATED       
D                              $       GT_FRAME               @                         '$            N_FIGURES FIGS                                                                                         |        GT_FIGURE       &                             $      fn#fn !      J   b   uapp(GTOOL_FRAME      4   J   GTOOL_FIGURE    N  O       gen@INIT      B      INIT_FRAME !     =   a   INIT_FRAME%FRAME      ?       gen@PUT    [  I      PUT_FIGURE !     =   a   PUT_FIGURE%FRAME "     >   a   PUT_FIGURE%FIGURE      W       gen@DISPLAY    v  F      DISPLAY_FRAME "     >   a   DISPLAY_FRAME%DEV $     =   a   DISPLAY_FRAME%FRAME    7  B       gen@DISPOSE    y  [      DISPOSE_FRAME )     7      DISPOSE_FRAME%ASSOCIATED $     =   a   DISPOSE_FRAME%FRAME    H  K       GT_FRAME #     8   a   GT_FRAME%N_FIGURES      n   a   GT_FRAME%FIGS 