adding fortran code