In DSCSOLV changed if (ALFA0[I-1] >= 0.0) to if (ALFA0[I-1} > 0.0).
drwxr-xr-x - mipav