testindent.f.html mathcode2html   
 Source file:   testindent.f
 Directory:   /nfs/aesop01/hw00/d35/rjl/mathcode2html
 Converted:   Sat Oct 22 2011 at 13:35:55
 This documentation file will not reflect any later changes in the source file. 

 

c     =========================
      subroutine testindent(A)
c     =========================
c
sample code to test indentation at various levels...

Sets $A$ to the $3\times 3$ identity matrix, \[ A = \begin{matrix} 1&0&0\\ 0&1&0 \\ 0&0&1 \end{matrix}. \] 

 

      dimension A(3,3)

      do i=1,3
in the i loop 
 
         do j=1,3
in the j loop 
 
            if (i .eq. j) then
on the diagonal 
 
                 a(i,j) = 1
               else
off the diagonal 
 
                 a(i,j) = 0
               endif
             enddo ! end of j loop
          enddo ! end of i loop
All done 
 
      return
      end