9k820309629 gtool_frame.f90GTOOL_FRAMEGT_FRAMEPUTDISPOSEgen@INITgen@PUTgen@DISPLAYgen@DISPOSE  u GTOOLFIGUREINITINIT_FRAME#@ XFRAMED$GT_FRAME u PUT_FIGURE#@ XFRAMEFIGURE D$GT_FRAME |GT_FIGURE u GTOOLCONTOURSDISPLAYDISPLAY_FRAME#@ XDEVFRAME D@GT_DEVICE @A$GT_FRAME u DISPOSE_FRAME#@ XDISPOSE_FRAME%ASSOCIATEDFRAMEASSOCIATED D$GT_FRAME @'$N_FIGURESFIGS|GT_FIGURE&$fn#fn!Jbuapp(GTOOL_FRAME4JGTOOL_FIGURENOgen@INITBINIT_FRAME!=aINIT_FRAME%FRAME?gen@PUT[IPUT_FIGURE!=aPUT_FIGURE%FRAME">aPUT_FIGURE%FIGUREWgen@DISPLAYvFDISPLAY_FRAME">aDISPLAY_FRAME%DEV$=aDISPLAY_FRAME%FRAME7Bgen@DISPOSEy[DISPOSE_FRAME)7DISPOSE_FRAME%ASSOCIATED$ =aDISPOSE_FRAME%FRAMEHKGT_FRAME#8aGT_FRAME%N_FIGURESnaGT_FRAME%FIGS