include file: C_A 28
C*L------------------COMDECK C_A----------------------------------------   C_A.2      
C A IS MEAN RADIUS OF EARTH                                                C_A.3      
      REAL A                                                               C_A.4      
                                                                           C_A.5      
      PARAMETER(A=6371229.)                                                MH171193.1      
C*----------------------------------------------------------------------   C_A.7      
                                                                           C_A.8