C Programmer: Elizabeth Adams

C Course: CS 430

C Date Due: August 30, 2007

C Language: FORTRAN

C Compiler used: FORCE2.08

C Source Filename: ImpliedDoLoop.f

C Executable Filename (if any) or None: IMPLIEDDOLOOP.EXE

C Professor: Elizabeth Adams

C   Purpose:  This program illustrates the use of  an implied DO LOOP in the reading in and

C             printing out of values stored in a one dimensional array
C     Input:   13 real numbers entered by the user  all on one line without decimal points
C     Output:  The 13 real numbers  5 per line
C     Language information
C        DIMENSION indicates that the variable name(s) which follow are arrays
C        The number in parentheses indicates the size of the array
C        If the array is to be an integer array its name must begin with one of the letters I-N
C        Although the values to be read are real values, the format statement places the decimal points
C        READ is the input statement.  
C        The 5 in the READ statement indicates the default input device
C        The 13 in front of the 5.2  in line 23 indicates that 13 numbers are expected
C        The format descriptor in line 24 says print 13 numbers,  5 per line, separated by spaces
C        The / in the format descriptor means new line
C        The 1X in the format descriptor means 1 blank space

C234567890
              DIMENSION A(13)
              READ (5,23) (A(I), I = 1,13)
              WRITE (6,24) (A(I), I = 1,13)
  23          FORMAT(13F5.2)
  24          FORMAT(1X, 13(5(F7.2,1X)/1X))
              STOP
              END