c......Example 1(b): Program to do frequency conversion
c23456
      program ex1b
c
      implicit none
c
      double precision convert,dollars
      integer i
c
c..... assign a value to the conversion rate
c
      convert = 2.56d0
c
c..... Run the do loop from 1 to 25
c
      do i = 1,25
c
c..... Calculate the conversion
c
         dollars = convert*i
c
c..... Output the result to the keyboard
c
         print *, i,' pounds = ',dollars
c
c..... End of the do loop
c
      end do
c
      end