   !     k820309 629                                                                                                                                                    
       gtool_figure.f90 GTOOL_FIGURE                                           
                                                 
                        @                        
                                                  u GTOOLFIGUREINIT                                           u GTOOLFIGUREPUTAXIS GTOOLFIGUREPUTCONTOURS                                          u GTOOLFIGUREDISPLAY               @                         '|           H_AXIS V_AXIS CONTOURS TITLE H_AXIS_GIVEN V_AXIS_GIVEN CONTOURS_GIVEN                                                GT_AXIS                                               GT_AXIS                                      X         GT_CONTOURS                                         p      VARYING_STRING                                      p                                             t                                             x        #     @      X                                        FIG       D A                             |      GT_FIGURE #     @      X                                       GTOOLFIGUREPUTAXIS%PRESENT FIG AXIS VERTICAL                                       PRESENT       
D                              |      GT_FIGURE       
                                     GT_AXIS       
 A                               #     @      X                                        FIG CONTOURS       
D                              |      GT_FIGURE       
@ A                             X      GT_CONTOURS #     @      X                                       GTOOLFIGUREDISPLAY%TRIM DEV FIG                                       TRIM       
                                      GT_DEVICE       
@ A                             |     GT_FIGURE       &      fn#fn       4   J   GTOOL_AXIS      4   J   GTOOL_CONTOURS    :  4   J   GTOOL_DEVICE    n  D       gen@INIT      ^       gen@PUT      G       gen@DISPLAY    W         GT_FIGURE !     @   a   GT_FIGURE%H_AXIS !     @   a   GT_FIGURE%V_AXIS #   Y  D   a   GT_FIGURE%CONTOURS       G   a   GT_FIGURE%TITLE '     8   a   GT_FIGURE%H_AXIS_GIVEN '     8   a   GT_FIGURE%V_AXIS_GIVEN )   T  8   a   GT_FIGURE%CONTOURS_GIVEN       @       GTOOLFIGUREINIT $     >   a   GTOOLFIGUREINIT%FIG #   
  i       GTOOLFIGUREPUTAXIS +   s  4      GTOOLFIGUREPUTAXIS%PRESENT '     >   a   GTOOLFIGUREPUTAXIS%FIG (     <   a   GTOOLFIGUREPUTAXIS%AXIS ,   !  0   a   GTOOLFIGUREPUTAXIS%VERTICAL '   Q  I       GTOOLFIGUREPUTCONTOURS +     >   a   GTOOLFIGUREPUTCONTOURS%FIG 0     @   a   GTOOLFIGUREPUTCONTOURS%CONTOURS #     \       GTOOLFIGUREDISPLAY (   t  1      GTOOLFIGUREDISPLAY%TRIM '     >   a   GTOOLFIGUREDISPLAY%DEV '     >   a   GTOOLFIGUREDISPLAY%FIG 