intfil.f

C  Author:   Mitch Richling<http://www.mitchr.me/>
C  IP:       Copyright 1993 by Mitch Richling.  All rights reserved.
C  Key word: formated i/o internal file FORTRAN 77
C  Notes:    Illustrates the use of internal files in Fortran 77.
C            
       program intfil

       character chrstr*10
       real      rnum

C     A rewind is done each time on single (non-array) variables
      write(chrstr, fmt='(f7.2)') 12.34
      write (*,*) 'After first write:  ', chrstr
C     You don't have to have a format specified
      write(chrstr,*) 12.34
      write (*,*) 'After second write: ', chrstr

C     Now we convert a string into a real
      read(chrstr, *) rnum
      write (*,*) 'The value converted was: ', rnum

      end

C     Note that the target/source of an internal read/write can be a
C     character type, a "substring" of a character type, or an element
C     of a character array.