Select Code to Download

*** First record
(4 byte integer) - byte size of record (4*N) (f77 header)
...
...
(4 byte float) .. value N N = number of grid points in the field
(4 byte integer) .. byte size of record (4*N) (f77 trailer)

my $out_file = "/dicast2-papp/DICAST/smg_data/" . $gfn . ".bin"; #path
+ to binary file
my $template = "if262792i"; #binary layout (integer 262792 floats   in
+teger) as described in the format documentation above (not sure if th
+is is correct)
...
   @fields = unpack ($template, $record);
   print "field = $fields[0]\n";
}