I needed this for testing sintr on Igor. Difference in index was NOT the problem. Once again LOG vs LN. But main was difference between accepting and rejecting while loop. Fortran is rejecting, Igor is accepting.