Removal of error from fortran code f.90

Is this the same code as here?

Please do not duplicate topics