   7  M   k820309 629                                                                                                                                                    
       gt3read.f90 GT3READ          GT3_FILE GT3_HEADER CLOSE GETDATA REWIND GET gen@OPEN gen@CLOSE gen@REWIND gen@GETHEADER gen@GETDATA gen@SKIPRECORD gen@GETUNIT gen@GET                                           
                                                  u GT3OPEN #     @      X                                       GT3OPEN%TRIM GT3OPEN%PRESENT UNIT FILE FAIL                                       TRIM                                       PRESENT       D                                     GT3_FILE       
  A                                   1       F A                                                                           u GT3CLOSE #     @      X                                       GT3CLOSE%PRESENT UNIT FAIL                                       PRESENT       
D                                     GT3_FILE       F A                                                                           u GT3REWIND #     @      X                                       GT3REWIND%PRESENT UNIT FAIL                                       PRESENT       
                                     GT3_FILE       F A                                                                          u GT3GETHEADER #     @      X                                      GT3GETHEADER%PRESENT UNIT HEADER FAIL                                       PRESENT       
                                     GT3_FILE       D @                             (      GT3_HEADER       F A                                                                          u GT3GETDATA #     @      X                                      GT3GETDATA%TRIM GT3GETDATA%PRESENT UNIT HEADER ARRAY FAIL                                       TRIM                                       PRESENT       
                                     GT3_FILE       
                               (     GT3_HEADER     D                                    	 
          &           &           &                             F A                                                                           u GT3SKIPRECORD #     @      X                                        UNIT       
                                     GT3_FILE                                            u GT3GETUNIT #     @      X                                        UNIT HEADER BUFFER FAIL       
D @                                    GT3_FILE       D @                             (      GT3_HEADER      D P                                   	           &           &           &                             F @                                                                           u GT3GETHEADER GT3GETUNIT               @                         '(           IDFM DATASET ITEM EDIT FILE_NUMBER DATA_NUMBER TITLE UNIT EDIT_TITLE TIME DATETIME TIME_UNIT TIME_DURATION AXIS_ITEM AXIS_START AXIS_END FORMAT MISSING_VALUE RANGE_MAX RANGE_MIN DIV_SMALL DIV_LARGE SCALING OPTION MEMO CREATE_DATE CREATE_USER MODIFY_DATE MODIFY_USER RECORD_SIZE                                                                                                                                          .                                      $           p      p        p                                                                                                                                                                                                         .                                            	     p      p        p                                                       \  
                                             `                                            p                                                  .                                                p      p        p                                                                    p      p        p                                                                p      p        p                                                                                                    	                                             	                                             	                                             	                                             	                                                .                                                p      p        p                  .                                      $          p      p        p                                                                                                                                                                                                                                       $                     @                         '            NUMBER                                                            fn#fn          b   uapp(GT3READ    \  4   J   DCL      <       gen@OPEN      h      GT3OPEN    4  1      GT3OPEN%TRIM     e  4      GT3OPEN%PRESENT      =   a   GT3OPEN%UNIT      8   a   GT3OPEN%FILE      0   a   GT3OPEN%FAIL    >  =       gen@CLOSE    {  W      GT3CLOSE !     4      GT3CLOSE%PRESENT      =   a   GT3CLOSE%UNIT    C  0   a   GT3CLOSE%FAIL    s  >       gen@REWIND      X      GT3REWIND "   	  4      GT3REWIND%PRESENT    =  =   a   GT3REWIND%UNIT    z  0   a   GT3REWIND%FAIL      A       gen@GETHEADER      b      GT3GETHEADER %   M  4      GT3GETHEADER%PRESENT "     =   a   GT3GETHEADER%UNIT $     ?   a   GT3GETHEADER%HEADER "     0   a   GT3GETHEADER%FAIL    -  ?       gen@GETDATA    l  v      GT3GETDATA       1      GT3GETDATA%TRIM #     4      GT3GETDATA%PRESENT     G  =   a   GT3GETDATA%UNIT "     ?   a   GT3GETDATA%HEADER !        a   GT3GETDATA%ARRAY     C	  0   a   GT3GETDATA%FAIL    s	  B       gen@SKIPRECORD    	  A      GT3SKIPRECORD #   	  =   a   GT3SKIPRECORD%UNIT    3
  ?       gen@GETUNIT    r
  T      GT3GETUNIT     
  =   a   GT3GETUNIT%UNIT "     ?   a   GT3GETUNIT%HEADER "   B     a   GT3GETUNIT%BUFFER       0   a   GT3GETUNIT%FAIL      L       gen@GET    >  R      GT3_HEADER       8   a   GT3_HEADER%IDFM #     8   a   GT3_HEADER%DATASET        8   a   GT3_HEADER%ITEM     8  t   a   GT3_HEADER%EDIT '     8   a   GT3_HEADER%FILE_NUMBER '     8   a   GT3_HEADER%DATA_NUMBER !     8   a   GT3_HEADER%TITLE     T  8   a   GT3_HEADER%UNIT &     t   a   GT3_HEADER%EDIT_TITLE        8   a   GT3_HEADER%TIME $   8  8   a   GT3_HEADER%DATETIME %   p  8   a   GT3_HEADER%TIME_UNIT )     8   a   GT3_HEADER%TIME_DURATION %     t   a   GT3_HEADER%AXIS_ITEM &   T  p   a   GT3_HEADER%AXIS_START $     p   a   GT3_HEADER%AXIS_END "   4  8   a   GT3_HEADER%FORMAT )   l  8   a   GT3_HEADER%MISSING_VALUE %     8   a   GT3_HEADER%RANGE_MAX %     8   a   GT3_HEADER%RANGE_MIN %     8   a   GT3_HEADER%DIV_SMALL %   L  8   a   GT3_HEADER%DIV_LARGE #     8   a   GT3_HEADER%SCALING "     t   a   GT3_HEADER%OPTION     0  t   a   GT3_HEADER%MEMO '     8   a   GT3_HEADER%CREATE_DATE '     8   a   GT3_HEADER%CREATE_USER '     8   a   GT3_HEADER%MODIFY_DATE '   L  8   a   GT3_HEADER%MODIFY_USER '     8   a   GT3_HEADER%RECORD_SIZE      C       GT3_FILE       8   a   GT3_FILE%NUMBER 