C
C program 19
C
C  demonstrates writing to and from files
C  CWJ SDSU 2/14/2005
C
      program program19

      implicit none

      integer i,j

      read(8,*)i
      write(6,*)' Found integer ',i,' in fort.8 '
      write(6,*)' '
      write(6,*)' Please give me an integer '
      read(5,*)j
      write(9,*)i+j
      write(6,*)' sum written to fort.9 '
      end