   %  *   k820309 O49                                                                                                                                                    
       netcdf_dimension.f90 NETCDF_DIMENSION          NC_DIMENSION NC_DIMENSION_ERROR LEN FULLNAME gen@LEN gen@NAME gen@ID i@ u@ERROR gen@DIMENSION gen@FULLNAME                                          
                       @                        
                        @                        
                        @                        
                                                
                                                 u NETCDFDIMENSIONLENGTH DIM_ARRAY_LEN %     @    X                                         DIM       
@ A                                   NC_DIMENSION (    `    X                                              DIM_ARRAY_LEN%SIZE DIM p      H u DIM_ARRAY_LEN%SIZE   7NC_DIMENSION SNC_DIMENSION O p    j        j                    H u DIM_ARRAY_LEN%SIZE   7NC_DIMENSION SNC_DIMENSION O p    j        j                                                                SIZE       
 A                                              &                       NC_DIMENSION                                           u NETCDFDIMENSIONNAME &     @     X                                        NETCDFDIMENSIONNAME%TRIM DIM VARYING_STRING                                       TRIM       
@ A                                   NC_DIMENSION                                           u NETCDFDIMENSIONID %     @    X                                          DIM       
                                     NC_DIMENSION                                                NETCDFDIMENSIONEQUIV %     @    X                                          DIMA DIMB       
                                     NC_DIMENSION       
                                     NC_DIMENSION                                               o	 NETCDFDIMENSIONERROR %     @    X                                          DIM       
                                     NC_DIMENSION                                            u NETCDFNEWDIMENSION NETCDFFINDDIMENSION &     @     X                                          FILE NAME LEN NC_DIMENSION       
D A                                    NC_FILE       
  @                                   1       
  @                               &     @     X                                          FILE NAME NC_DIMENSION       
@ A                                   NC_FILE       
  @                                   1                                            u NETCDFDIMENSIONFULLNAME &     @     X                                          DIM VARYING_STRING       
@ A                                   NC_DIMENSION               @                         '            FILE ID                                                NC_FILE                                               &     @                                              NC_DIMENSION       .      fn#fn &      y   b   uapp(NETCDF_DIMENSION #   S  4   J   ISO_VARYING_STRING      4   J   NETCDF_ERROR      4   J   NETCDF_FILE       4   J   NETCDF_FILENAME    #  4   J   NETCDF_V3    W  X       gen@LEN &     D      NETCDFDIMENSIONLENGTH *     A   a   NETCDFDIMENSIONLENGTH%DIM    4  q     DIM_ARRAY_LEN #     1      DIM_ARRAY_LEN%SIZE "     m   a   DIM_ARRAY_LEN%DIM    C  H       gen@NAME $     l      NETCDFDIMENSIONNAME )     1      NETCDFDIMENSIONNAME%TRIM (   (  A   a   NETCDFDIMENSIONNAME%DIM    i  F       gen@ID "     D      NETCDFDIMENSIONID &     A   a   NETCDFDIMENSIONID%DIM    4  I      i@ %   }  J      NETCDFDIMENSIONEQUIV *     A   a   NETCDFDIMENSIONEQUIV%DIMA *     A   a   NETCDFDIMENSIONEQUIV%DIMB    I  I      u@ERROR %     D      NETCDFDIMENSIONERROR )     A   a   NETCDFDIMENSIONERROR%DIM    	  [       gen@DIMENSION #   r	  [      NETCDFNEWDIMENSION (   	  <   a   NETCDFNEWDIMENSION%FILE (   	
  8   a   NETCDFNEWDIMENSION%NAME '   A
  0   a   NETCDFNEWDIMENSION%LEN $   q
  W      NETCDFFINDDIMENSION )   
  <   a   NETCDFFINDDIMENSION%FILE )     8   a   NETCDFFINDDIMENSION%NAME    <  L       gen@FULLNAME (     S      NETCDFDIMENSIONFULLNAME ,     A   a   NETCDFDIMENSIONFULLNAME%DIM      D       NC_DIMENSION "   `  @   a   NC_DIMENSION%FILE       8   a   NC_DIMENSION%ID #     M       NC_DIMENSION_ERROR 