3. FORTRAN Program for Mean, Minimum and Maximum Calculation

Write a FORTRAN subroutine MMM that computes the mean, the minimum and the maximum of an array A of N real numbers and prints out the values with suitable messages.

Ans :

It is assumed that the Main or Calling Programs will read the N, the size of the array and values of  array A and no read statements are required for N and A(N) in the subroutine MMM .

Here is listing of the Program:-

C*****SUBROUTINE MMM (A,N)

     C***** COMPUTE THE MEAN & PRINT ITS VALUE

           SUM = 0

      DO 10 I=1,N

 10  SUM = SUM + A(I)

      SMEAN = SUM/N

           WRITE(*,*) 'THE MEAN VALUE = ',SMEAN

C***** COMPUTE THE MINIMUM & PRINT ITS VALUE

           SMIN = A(1)

      DO 20 I=2,N

      IF SMIN .LT. A(I) THEN SMIN = A(I)

 20   CONTINUE 

           WRITE(*,*) 'THE MINIMUM VALUE = ',SMIN

C***** COMPUTE THE MAXIMUM & PRINT ITS VALUE

           SMAX = A(1)

      DO 20 I=2,N

      IF SMAX .GT. A(I) THEN SMAX = A(I)

 20   CONTINUE 

           WRITE(*,*) 'THE MAXIMUM VALUE = ',SMAX

      RETURN

           END