changes to show id code and compare against my fortran