title: Fortran 77. Pass array by reference
body: <p>I need to pass array to subrobroutine by reference. Instead of this interpreter make copy of matrix. And static matrix in MAIN remains like <code>{{0,0}{0,0}{0,0}}</code>. I know in fortran all vars by defauly pass by reference. What I do wrong ?</p>
  
  <pre><code> PROGRAM LAB1
      IMPLICIT NONE
      Real pointsOfTriangle(2,3)
      call newTriangle(pointsOfTriangle)
      call getTriangle(pointsOfTriangle)
  
      pause
    END
  
    SUBROUTINE newTriangle(pointsOfTrinagle)
      IMPLICIT NONE
      Real pointsOfTriangle(2,3)
      Integer i
  
      do i=1,3
          print *,'enter x,y:'
          read *,pointsOfTriangle(1,i),pointsOfTriangle(2,i)
      end do
  
      do i=1,3
          print *,'x[', i,']=',pointsOfTriangle(1,i)
          print *,'y[', i,']=',pointsOfTriangle(2,i)
          print *,' '
      end do
  
    END
  
    SUBROUTINE getTriangle(pointsOfTriangle)
      IMPLICIT NONE
      Real pointsOfTriangle(2,3)
      Integer i
  
      do i=1,3
          print *,'x[', i,']=',pointsOfTriangle(1,i)
          print *,'y[', i,']=',pointsOfTriangle(2,i)
          print *,' '
      end do
  
    END
  </code></pre>