Reading fortran "unformatted" files from C on the 4D.

[Knobi der Rechnerschrat]

Hallo,

  here comes a code fragment that reads (from C) a fortran "unformatted"
file. Suppose the file has been fopen'ed to fp and that i1,i2,i3 are int's
and that farr is a float-array. The programm then reads max fortran-records
from the file, each record written by a fortran code like

  write(11) i1,i2,i3,farr    ! with REAL farr(3)

 You have of course to know what is written in the records to interpret them
correctly. For my opinion having the record-size included in the record is not
as bad as somebody on the list told us. If you really need "C"-binary files,
write a "C"-routine.

Regards

Martin Knoblauch
TH-Darmstadt
Phys. Chem. 1
Petersenstrasse 20
D-6100 Darmstadt, F.R.G.
------------------------------------------------------------------------------
for(iz=0;iz<max;iz++){
  nitem = fread(&dummy,4,1,fp);
  fread(&i1,sizeof(int),1,fp);
  fread(&i2,sizeof(int),1,fp);
  fread(&i3,sizeof(int),1,fp);
  fread(&farr[0],sizeof(float),3,fp);
  nitem = fread(&dummy,4,1,fp);
  }
------------------------------------------------------------------------------