!
! Questo programma e' tratto o ispirato da 
! "Fortran 90 - A Conversion Course for Fortran 77 Programmers"
! S.Ramsen, F.Lin, M.A.Pettipher, G.S.Noland, J.M.Brooke
! The University of Manchester, G.B., Edition 3.0 July 1995 
!
!------------------------------------------------------------------------------
!
!  Program name:
!
!    renum
!
!  Purpose:
!
!    This program illustrates the fact that elements in an expression are 
!    renumbered with 1 as the lower bound in each dimension.
!
!------------------------------------------------------------------------------

PROGRAM renum

  IMPLICIT NONE

  REAL, DIMENSION (-3:4) :: ra
  INTEGER, DIMENSION (1) :: locmax1, locmax2

  ! Assign elements of array ra:
  ra = (/ 1.2, 3.4, 5.4, 11.2, 1.0, 3.7, 1.0, 1.0 /)

  WRITE(*,*) " LBOUND(ra), UBOUND(ra) = ",LBOUND(ra), UBOUND(ra)
  WRITE(*,*) " RA(:,:) = ",ra
  WRITE(*,*) ""
  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
  ! Stampa la locazione del massimo dell'intero array (memorizzala in locmax1)
  ! Ricorda che il valore ottenuto assume che il primo elemento ha locazione 1.
  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  locmax1 = 0  ! ??
  WRITE(*,*) ' MAXLOC(ra) = ', locmax1(1)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
! Stampa la locazione del massimo della sezione dell'array con indici  da 1 a 3 (memorizzala in locmax2)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
  locmax1 = 0  ! ??
  WRITE(*,*) ' MAXLOC(ra) = ', locmax1(1)

  WRITE(*,*)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  
!!!! Trova il massimo dell'intero array utilizzando il valore memorizzato in   !!!!locmax1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  WRITE(*,*) 'Maximum value of whole array is: ' ! ??

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Controlla il risultato utilizzando MAXVAL: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  WRITE(*,*) 'Maximum value of whole array using MAXVAL is: '!, 

  WRITE(*,*)

  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  
!!!! Trova il massimo della sezione di array considerata utilizzando il valore !!!memorizzato in locmax2
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  WRITE(*,*) 'Maximum value of ra(1:3) is: '!, 
  

  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Controlla il risultato utilizzando MAXVAL:
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  WRITE(*,*) 'Maximum value of ra(1:3) using MAXVAL is: ' !, 
  STOP
END PROGRAM renum