     1   k820309 s69                                                                                                                                                    
       gtool_file.f90 GTOOL_FILE                                           
                                                
                                                u GTOOLFILECREATE                                          u GTOOLFILECLOSE                                          u GTOOLFILEREOPEN GTOOLFILEOPEN                                           u GTOOLFILEPUTATTRIBUTE                                           u GTOOLFILENVARS                                           u GTOOLFILENAME                                               o	 GTOOLFILEERROR                                               |  LETGTOOLFILENETCDFFILE LETNETCDFFILEGTOOLFILE               @                         '            NCFILE                                                NC_FILE #     @      X                                       GTOOLFILECREATE%PRESENT FILE FILENAME OVERWRITE FAIL TITLE SOURCE INSTITUTION                                       PRESENT       
D A                                    GT_FILE       
                                     VARYING_STRING       
B @                                     F @                                      
B @                                   1       
B @                                   1       
B @                                   1 #     @      X                                        FILE FAIL       
D A                                    GT_FILE       F @                                #     @      X                                        FILE OLDFILE       
D A                                    GT_FILE       
@ A                                   GT_FILE #     @      X                                        FILE FILENAME WRITABLE FAIL       
D A                                    GT_FILE       
                                     VARYING_STRING       
B @                                     F @                                #     @      X                                       FILE ATTRNAME VALUE       
D A                                    GT_FILE       
@ @                                   1       
                                     1 %     @    X                                          FILE       
@ A                                   GT_FILE &     @    X                                          FILE VARYING_STRING       
@ A                                   GT_FILE %     @    X                                          FILE       
                                     GT_FILE #     @      X                                        NCFILE GTFILE       D                                     NC_FILE       
                                     GT_FILE #     @      X                                        GTFILE NCFILE       D                                     GT_FILE       
                                     NC_FILE       "      fn#fn       4   J   NETCDF      4   J   DC_STRING    6  D       gen@CREATE    z  C       gen@CLOSE      R       gen@OPEN !     J       gen@PUTATTRIBUTE $   Y  C       gen@VARIABLESNUMBER      B       gen@NAME      C      u@ERROR    !  b      i@|      C       GT_FILE      @   a   GT_FILE%NCFILE              GTOOLFILECREATE (     4      GTOOLFILECREATE%PRESENT %     <   a   GTOOLFILECREATE%FILE )      C   a   GTOOLFILECREATE%FILENAME *   C  0   a   GTOOLFILECREATE%OVERWRITE %   s  0   a   GTOOLFILECREATE%FAIL &     8   a   GTOOLFILECREATE%TITLE '     8   a   GTOOLFILECREATE%SOURCE ,     8   a   GTOOLFILECREATE%INSTITUTION    K  F       GTOOLFILECLOSE $     <   a   GTOOLFILECLOSE%FILE $     0   a   GTOOLFILECLOSE%FAIL       I       GTOOLFILEREOPEN %   F  <   a   GTOOLFILEREOPEN%FILE (     <   a   GTOOLFILEREOPEN%OLDFILE      X       GTOOLFILEOPEN #     <   a   GTOOLFILEOPEN%FILE '   R  C   a   GTOOLFILEOPEN%FILENAME '     0   a   GTOOLFILEOPEN%WRITABLE #     0   a   GTOOLFILEOPEN%FAIL &     P       GTOOLFILEPUTATTRIBUTE +   E	  <   a   GTOOLFILEPUTATTRIBUTE%FILE /   	  8   a   GTOOLFILEPUTATTRIBUTE%ATTRNAME ,   	  8   a   GTOOLFILEPUTATTRIBUTE%VALUE    	  E       GTOOLFILENVARS $   6
  <   a   GTOOLFILENVARS%FILE    r
  T       GTOOLFILENAME #   
  <   a   GTOOLFILENAME%FILE      E       GTOOLFILEERROR $   G  <   a   GTOOLFILEERROR%FILE '     J       LETGTOOLFILENETCDFFILE .     <   a   LETGTOOLFILENETCDFFILE%NCFILE .   	  <   a   LETGTOOLFILENETCDFFILE%GTFILE '   E  J       LETNETCDFFILEGTOOLFILE .     <   a   LETNETCDFFILEGTOOLFILE%GTFILE .     <   a   LETNETCDFFILEGTOOLFILE%NCFILE 