removed non properly working FORTRAN90 code