I/O performance blues

[Thomas Koenig]

Hi Salvaore,

>     read (infile,fmt=ptrfmt) (icp(i),i=1,ncol+1)
>     read (infile,fmt=indfmt) (ia(i),i=1,nnzero)
>     if (valcrd > 0) read (infile,fmt=valfmt) (val(i),i=1,nnzero)

Try using

     read (infile,fmt=ptrfmt) icpi(1:ncol+1)
     read (infile,fmt=indfmt) ia(1:nnzero)
     if (valcrd > 0) rad (infile,fmt=valfmt) val(1:nnzero)

(minus the typos, if any) and see if this helps.

There's a PR for doing this optimization in the front end, but
I haven't got a round tuit.

	Thomas