  c  =   k820309              10.0        RɘG                                                                                                           
       map_erod_v01.F MAP_EROD_DATA_V01                      @                     
                                               	                                               	                                                                                                                                                                                                                                                                                     	                                                
                                                                                                                                                                                                                                                                                               P                  @                           P                                              P                                              P                                               	                                               	                                               	                                               	                                               	                                               	                                               	                  @                            	                  @                            	                                                      #         @                                             #GET_EROD_DATA%EXP    #GET_EROD_DATA%FLOAT     #GET_EROD_DATA%INT !   #GET_EROD_DATA%TRIM "                                           EXP                                          FLOAT                                    !     INT                                    "     TRIM #         @                         #                   #STATUS $             
                          $           #         @                         %                  #LAMBC%TAN &   #LAMBC%COS '   #LAMBC%ALOG10 (   #LAMBC%ABS )   #LAMBC%SIN *   #XLATP +   #XLONP ,   #XI -   #YJ .                                      &     TAN                                    '     COS                                    (     ALOG10                                    )     ABS                                    *     SIN                                    +     	                                          ,     	                 D                         -     	                 D                         .     	       #         @                         /              	    #MAPCF%ATAN 0   #MAPCF%AMOD 1   #MAPCF%ATAN2 2   #MAPCF%SQRT 3   #MAPCF%TAN 4   #MAPCF%COS 5   #MAPCF%ALOG10 6   #MAPCF%ABS 7   #MAPCF%SIN 8   #XI 9   #YJ :   #XLATP ;   #XLONP <                                      0     ATAN                                    1     AMOD                                    2     ATAN2                                    3     SQRT                                    4     TAN                                    5     COS                                    6     ALOG10                                    7     ABS                                    8     SIN                                    9     	                                          :     	                 D                         ;     	                 D                         <     	             )      fn#fn       8   J   NETCDF      8       RAD_PER_DEG    9  8       DEG_PER_RAD    q  8       LON      8       ILON      8       LAT      8       ILAT    Q  8       NDCLS      8       NDSRC      8       STATUS      8       SYSTEM    1  8       IX2    i  8       JX2      8       KX      8       KP      8       DIR_IN    I  8       FNAME_IN_1      8       FNAME_IN_2      8       FNAME_OUT      8       REBY    )  8       DX    a  8       LAT1      8       LON1      8       STDLON    	  8       KNOWNI    A  8       KNOWNJ    y  8       TRUELAT1      8       TRUELAT2      8       HEMI    !         GET_EROD_DATA "     4      GET_EROD_DATA%EXP $     6      GET_EROD_DATA%FLOAT "   *  4      GET_EROD_DATA%INT #   ^  5      GET_EROD_DATA%TRIM      L       CHECK      8   a   CHECK%STATUS    	         LAMBC    	  4      LAMBC%TAN    	  4      LAMBC%COS    3
  7      LAMBC%ALOG10    j
  4      LAMBC%ABS    
  4      LAMBC%SIN    
  8   a   LAMBC%XLATP    
  8   a   LAMBC%XLONP    B  8   a   LAMBC%XI    z  8   a   LAMBC%YJ             MAPCF      5      MAPCF%ATAN      5      MAPCF%AMOD      6      MAPCF%ATAN2    G  5      MAPCF%SQRT    |  4      MAPCF%TAN      4      MAPCF%COS      7      MAPCF%ALOG10      4      MAPCF%ABS    O  4      MAPCF%SIN      8   a   MAPCF%XI      8   a   MAPCF%YJ      8   a   MAPCF%XLATP    +  8   a   MAPCF%XLONP 