jacobi.f:10:14:

 v=0; do i=1,n; v(i,i)=1; end do
              1
Error: Unexpected DO statement at (1)
jacobi.f:10:28:

 v=0; do i=1,n; v(i,i)=1; end do
                            1
Error: Unexpected END statement at (1)
jacobi.f:13:23:

 do while (changed.eq.1)
                       1
Error: Unexpected DO statement at (1)
jacobi.f:16:9:

 do p=1,n; do q=p+1,n
         1
Error: Unexpected DO statement at (1)
jacobi.f:16:20:

 do p=1,n; do q=p+1,n
                    1
Error: Unexpected DO statement at (1)
jacobi.f:21:43:

  if(a1pp.ne.a(p,p) .or. a1qq.ne.a(q,q))then
                                           1
Error: Unexpected block IF statement at (1)
jacobi.f:35:4:

  end if
    1
Error: Unexpected END statement at (1)
jacobi.f:36:4:

  end do; end do
    1
Error: Unexpected END statement at (1)
jacobi.f:36:12:

  end do; end do
            1
Error: Unexpected END statement at (1)
jacobi.f:37:3:

 end do
   1
Error: Unexpected END statement at (1)
jacobi.f:38:3:

 end function jacobi_evd
   1
Error: Unexpected END statement at (1)
jacobi.f:40:3:

 end module jacobi
   1
Error: Unexpected END statement at (1)
f951: Error: Unexpected end of file in ‘jacobi.f’
make[1]: *** [jacobi.mod] Error 1
make: *** [out1.txt] Error 2