tried it with FORTRAN