   H  1   k820309     <;@                                                                                                                                                            
       gridops.f90 GRIDOPS #         @                                             IDENTIFYRELEVANT%SIZE IDENTIFYRELEVANT%REAL GOT NEED RANGE                                           SIZE                                           REAL          Q                                                          &                   &                                                   D                                                           &                   &                                                     
                               	      %         @                                          	       GETDISTANCE%ACOS GETDISTANCE%COS GETDISTANCE%SIN LAT1 LON1 LAT2 LON2                                           ACOS                                           COS                                           SIN                                         	                                               	                                               	                                               	       #         @                                             NATGRIDTOLATLONG%TAN NATGRIDTOLATLONG%SELECTED_REAL_KIND NATGRIDTOLATLONG%COS NATGRIDTOLATLONG%SIN NATGRIDTOLATLONG%REAL EAST NORTH LATDEG LONDEG                                           TAN                                            SELECTED_REAL_KIND                                           COS                                           SIN                              @            REAL           
                              
                
                              
                D                             
                 D                             
       %         @                                         
       CALCM%SELECTED_REAL_KIND CALCM%COS CALCM%SIN CALCM%REAL VA VB VF0 VTHI0 VTHI                                            SELECTED_REAL_KIND                                           COS                                           SIN                              @            REAL           
                              
                
                              
                
                              
                
                              
                
                              
      #         @                                             LATLONGTONATGRID%TAN LATLONGTONATGRID%SELECTED_REAL_KIND LATLONGTONATGRID%COS LATLONGTONATGRID%SIN LATLONGTONATGRID%REAL EAST NORTH LATDEG LATMIN LATSEC LONDEG LONMIN LONSEC                                           TAN                                            SELECTED_REAL_KIND                                           COS                                           SIN                              @            REAL           D                             
                 D                             
                 
                              
                
                              
                
                              
                
                              
                
                              
                
                              
         ¸         fn#fn !   Ô   {       IDENTIFYRELEVANT &   O  5      IDENTIFYRELEVANT%SIZE &   „  5      IDENTIFYRELEVANT%REAL %   ¹  œ   a   IDENTIFYRELEVANT%GOT &   U  œ   a   IDENTIFYRELEVANT%NEED '   ñ  8   a   IDENTIFYRELEVANT%RANGE    )         GETDISTANCE !   ¶  5      GETDISTANCE%ACOS     ë  4      GETDISTANCE%COS       4      GETDISTANCE%SIN !   S  8   a   GETDISTANCE%LAT1 !   ‹  8   a   GETDISTANCE%LON1 !   Ã  8   a   GETDISTANCE%LAT2 !   û  8   a   GETDISTANCE%LON2 !   3  Ò       NATGRIDTOLATLONG %     4      NATGRIDTOLATLONG%TAN 4   9  C      NATGRIDTOLATLONG%SELECTED_REAL_KIND %   |  4      NATGRIDTOLATLONG%COS %   °  4      NATGRIDTOLATLONG%SIN &   ä  5      NATGRIDTOLATLONG%REAL &     8   a   NATGRIDTOLATLONG%EAST '   Q  8   a   NATGRIDTOLATLONG%NORTH (   ‰  8   a   NATGRIDTOLATLONG%LATDEG (   Á  8   a   NATGRIDTOLATLONG%LONDEG    ù  •       CALCM )   Ž  C      CALCM%SELECTED_REAL_KIND    Ñ  4      CALCM%COS    	  4      CALCM%SIN    9	  5      CALCM%REAL    n	  8   a   CALCM%VA    ¦	  8   a   CALCM%VB    Þ	  8   a   CALCM%VF0    
  8   a   CALCM%VTHI0    N
  8   a   CALCM%VTHI !   †
  î       LATLONGTONATGRID %   t  4      LATLONGTONATGRID%TAN 4   ¨  C      LATLONGTONATGRID%SELECTED_REAL_KIND %   ë  4      LATLONGTONATGRID%COS %     4      LATLONGTONATGRID%SIN &   S  5      LATLONGTONATGRID%REAL &   ˆ  8   a   LATLONGTONATGRID%EAST '   À  8   a   LATLONGTONATGRID%NORTH (   ø  8   a   LATLONGTONATGRID%LATDEG (   0  8   a   LATLONGTONATGRID%LATMIN (   h  8   a   LATLONGTONATGRID%LATSEC (      8   a   LATLONGTONATGRID%LONDEG (   Ø  8   a   LATLONGTONATGRID%LONMIN (     8   a   LATLONGTONATGRID%LONSEC 