C
C program 20
C
C  illustrates formatting 
C
C  CWJ SDSU 2/14/2005 
C
      program program20

      implicit none
      real pi
      integer n
      
      pi = 2*asin(1.)

      write(6,*)pi
      write(6,101)pi
      write(6,102)pi
      write(6,103)pi
  101 format(f10.5)
  102 format(f10.7)
  103 format(f7.5)

      write(6,201)pi,pi**2,pi**3
      write(6,202)pi,pi**2,pi**3
      write(6,203)pi,pi**2,pi**3
  201 format(' pi = ',3f10.5)
  202 format(' pi = ',3f10.7)
  203 format(' pi = ',10x,3f10.7)
      
      end