removed fortran code