program translog
      implicit real*8(a-h,o-z)
      double precision a(3),aa(3,3),x(3),dlnx(3)
      data a /0.03,0.04,0.05/
      data aa /-0.0030, 0.0010, 0.0005,
     1          0.0010,-0.0040, 0.0003,
     2          0.0005, 0.0003,-0.0025/
      data x /100.0,75.0,80.0/
      do 10 i=1,3
         dlnx(i) = dlog(x(i))
   10 continue
      dlny = a(1)*dlnx(1)+a(2)*dlnx(2)+a(3)*dlnx(2)
C      call vecmult(a,dlnx,dlny,3)
      write(6,100) dlny
  100 format(' ',10f10.6)
      end