double a[2][5];
for( i=0; i<4; i++){
data[0][i] = i;
data[1][i] = i+5;
}
FILE *fp
fp = fopen("save.sav", "wb");
if((fp == NULL)){
printf("file open error\n");
}
else{
fwrite( &result, sizeof(data), (2*5), fp );/*fwrite関数でバイナリデータを保存出来る*/
}
fclose( fp );
data=dblarr(5,2) openr,1,'ファイルのアドレス' readu,1,data close,1
IDL> print, data
1 2 3 4 5
6 7 8 9 10