Professor Diomar Cesar Lobao

Universidade Federal Fluminense-Volta Redonda, RJ, Brasil

Diomar Cesar


Dept. Ciências Exatas - Exact Science Dept.

Search

aorder.f

c<html>
c<body>
c<pre>
      program order
c
c   Demonstrate the storage order of elements in a
c   Multiply Dimensioned Array and the use of the
c   EQUIVALENCE statement
c
c     John Mahaffy  3/26/96
c
c
      implicit none
c<a name="in"><font color="FF0000">
      integer a(5,5), b(25), i, j
c</a></font>
c<a name="equal"><font color="FF0000">
      equivalence (a(1,1),b(1))
c</font></a>
c
c     Put some values into "a", and because it
c     occupies the same space also into "b"
c
      do i=1,5
         do j=1,5
            a(i,j)= 100*i+j
         enddo
      enddo
c
      write(*,*) "Hundred's digit is the first index of the array"
      write(*,*) 'One''s digit is the second index'
      write(*,2000) ((a(i,j),j=1,5),i=1,5)
      write(*,2001) b
 2000 format ( /, 'a(i,j) = ',/ (5i5))
 2001 format (/, 'b = ',/,(15i5))
      stop
      end
c</pre>
c</body>
c</html>
Skip to content