        k820309 629                                                                                                                                                    
       gtool_device.f90 GTOOL_DEVICE          GT_DEVICE CLOSE gen@OPEN gen@CLOSE                                           
                        @                        
                                                  u GTOOLDEVICEOPEN #     @      X                                       GTOOLDEVICEOPEN%PRESENT DEV WS_ID FAIL                                       PRESENT       D                                     GT_DEVICE       
 A                                     F A                                                                           u GTOOLDEVICECLOSE #     @      X                                        DEV       
D                                     GT_DEVICE               @                         '            WS_ID                                                      &      fn#fn "      /   b   uapp(GTOOL_DEVICE      4   J   DCL    5  4   J   GTOOL_ERROR    i  D       gen@OPEN       c      GTOOLDEVICEOPEN (     4      GTOOLDEVICEOPEN%PRESENT $   D  >   a   GTOOLDEVICEOPEN%DEV &     0   a   GTOOLDEVICEOPEN%WS_ID %     0   a   GTOOLDEVICEOPEN%FAIL      E       gen@CLOSE !   '  @      GTOOLDEVICECLOSE %   g  >   a   GTOOLDEVICECLOSE%DEV      B       GT_DEVICE       8   a   GT_DEVICE%WS_ID 