I am writing a double number in Binary format to the console of program A (in FORTRAN) with the following code:

Code:
REAL*8 A
A = 12.54
INQUIRE(6, name = xstring)
OPEN(1,file=xstring, access='stream',action='write') 
WRITE (1) A            
CLOSE(1)
And trying to read that number by program B (in C++) which is connected to program A by anonymous pipes. Following is the reading part of program B:

Code:
#define BUF_SIZE 5000 
BOOL bSuccess = FALSE;
char Buf[BUF_SIZE];
DWORD dwRead;
for (;;) 
{ 
  bSuccess = ReadFile( V_hChildStd_OUT_Rd, Buf, BUF_SIZE, &dwRead, NULL);
  if( ! bSuccess || dwRead == 0 )   break; 
}
Note: V_hChildStd_OUT_Rd is a handle to the output of program A.

After running the program although bSuccess becomes TRUE, Buf array does not include the number (12.54) that I am expecting. If I do the same process without using the binary format it works fine and I can read the number. I know somethings wrong with the writing or reading of binary data but I do not know what it is.

I would appreciate if someone can help me. Thanks!