SUBROUTINE LT2GAU                                                 
     &(EDATA,IMAXE,JMAXE,IMAXG,JMAXG,COLRAD,                       
     & GDATA,DY,LY)                                                     
C                                                                       
      DIMENSION EDATA(IMAXE,JMAXE)
      DIMENSION GDATA(IMAXG,JMAXG)      
      DIMENSION DY(JMAXG),LY(JMAXG)                                     
      DIMENSION COLRAD(JMAXG) 

      PAI  =4.0*ATAN(1.0)  
      DLONE =PAI/FLOAT(JMAXE)                             
      DLONG =PAI/FLOAT(JMAXG)                              
      DLONEI=1.0/DLONE                                       
      CNVG2E=DLONG*DLONEI                                     
c      print*,' PAI = ',PAI
c      print*,' IMAXG= ',IMAXG,' JMAXG= ',JMAXG
c      print*,' IMAXE= ',IMAXE,' JMAXE= ',JMAXE
c      print*,' DLONE = ',DLONE,' DLONG= ',DLONG,
c     + ' CNVG2E= ',CNVG2E
C
      DO 200 JG=1,JMAXG                                        
      JE=LY(JG)                                                 
      FY=DY(JG)                                                  
      DO 200 IG=1,IMAXG  
      GDATA(IG,JG)=(1.0-FY)*EDATA(IG,JE)+ FY*EDATA(IG,JE+1)               
c      print*,IG,JG,JE,(1.0-FY),FY,' d1 & 2 res ',
c     + EDATA(IG,JE),EDATA(IG,JE+1),GDATA(IG,JG)
  200 CONTINUE                                                        
C                                                                    
C                                                                   
      RETURN                                                       
      END SUBROUTINE LT2GAU