fortran code

they work too less