Fortran simulation