Create jacobi3,f90