Terence Wright wrote: > >Yes, I DO think that a FIXED LENGTH DIRECT ACCESS file > >should have exactly the same bytes if caused to be created > >by a particular fortran program compiled and executed for the > >same target machine by different compilers. > > > >I would go as far to say IRREGARDLESS of the target machine. > > > >It is fundamental to my faith, that fixed length binary records > >are the structure of my universe. > >This is one of very few ways data files can be reliably > >transferred. I'm afraid that there are quite a few exceptions I've known of. Others have mentioned byte-order differences, which admitedly don't change the size, but do mean you need some porting work. Likewise for machines that don't use IEEE floats - and yes, there are quite a few of those still around. Let us not forget the huge issues of different word sizes. If you write a single precision real on some machine where that is 64 bits, it just is not going to be the same size as a single precision real on a machine where it is 32-bits). If your universe is limitted to machines where single precision is always 32-bits, then I can only say that it is a limitted universe. Even ignoring all those things, I've seen multiple exceptions. Lahey by default adds a header to direct access unformatted files, and for ELF90, you can't even disable this "feature". I've also seen machines (specifics forgotten - something that our simulation folk used to use) where unformatted direct access records were "funny". I think they were blocked into blocks of a system-defined size, with extra stuff at the beginning of the blocks; I ended up having to use formatted direct access with "A" format to read binary direct access files from other machines - a hack, and a horribly slow one, but it did work. Not to mention machines where the file structure can be specified independently of the access method. For these sometimes you can specify the structure you expect, but it isn't a given. Yes, direct access unformatted files are the best way I know of to transfer data that needs to be in a binary form for efficiency or other reasons. Many years ago, I used to use only formatted for inter-machine transfer, and unformatted for non-portable efficient use on a single machine. But as multiple platforms on site became widespread and data file sizes grew, massive user complaints ensued. The formatted files were to big and too slow. But for best portability, don't just just assume that direct access unformatted is the way to read or write files without system-dependent stuff. It usually is. But if you care about easy porting, treat this like so many other system-dependent features. Isolate your dependence on thsi to a small portion of the code and document the system-dependence of that portion. In a case like file I/O, that isolation shoule be pretty simple. You have one code module (could be an f90 module, but doesn't have to be - I Iuse the term more generically here) that is responsible only for reading and writing the fixed-size blocks - everything else just calls the subroutines in that module. It is "fundamental to my faith" that I can somehow read and write binary files with no system-dependent extra bytes, and with with block lengths that are "nice" powers of 2 in bytes (like 1024 or 2048). I do not assume that direct access unformatted I/O is always the way to do this (though it usually is). There have existed machines where this is not practical - I've even worked on such in the past (notably 60-bit CDCs, which I used to do a lot in). But I've decided that such machines are now oddball enough that my applications just won't be readily portable to them. Don't know whether the f2k stream I/o has been mentioned in this thread. That will be the standard way to access files like this in f2k. Then you won't be restricted to fixed length records. Plus the standard will actually specify that the file has no extra "stuff", rather than just relying on the fact that that's how most vendors happen to have done direct access unformatted. -- Richard Maine | Good judgement comes from experience; [log in to unmask] | experience comes from bad judgement. | -- Mark Twain