Here's a simple question:  Write a file with microsoft fortran
powerstation with the command:

REAL* 4 A, B,C
WRITE(2) A, B, C

Is there anyway to read this file in Microsoft Visual Basic and get
real values of A,B and C?  We have tried most everything.  If you have
a VB code snippet that works, please email.  Note there is no problem
reading a binary file created withVB.
===================================================
Visit my homepage at http://www.*-*-*.com/ ~rlang

I have used Fortran for years, but here's my two cents. I assume the data
is stored as a 4 byte real, which is the same format as the VB Single
data type, therefore:

Dim A As Single, B As Single, C As Single
Open "filename" For Binary As #1
Get #1, , A
Get #1, , B
Get #1, , C
Close #1

Good Luck,
Mike

writes

      \\?//    

/-----\(_)/-----------------------------------------------------\

| .oooO   Oooo.   Head of Software Development, Impact Software |
| (   )___(   )      1 Percy Street, Sheffield, S3 8AU, England |
\--\ ( _|_ ) /--------------------------------------------------/
    \_)   (_/

Declare Function hread Lib "kernel32" Alias "_hread" (ByVal hFile As Long, lpBuffer As Any, ByVal lBytes As Long) As Long
Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long

Dim x(3) As Single
filehandle& = lopen("my_fortran_binary_file", 0)
dummy& = hread(filehandle&, x(1), 12)
For i = 1 To 3
debug.print x(i)
Next i
dummy& = lclose(filehandle&)

If the file is opened with form='unformatted',
insert a line to read a two byte header:
dummy&=hread(filehandle&, tmp%, 2).

I don't know the exact format for 'unformatted' fortran file.  
It has some paddings.

Hope this helps.

Bo Yu
Brookhaven National Lab