open (RM3DFile, ">",  $fullFileName ) ||  die("Could NOT open " . $fullFileName  . "\n");  
  rm3dHeader(RM3DFile); 

  close   RM3DFile;



# RM3D File header
sub  rm3dHeader($)
{
   print  $_[0]   "START_OF_FILE\n";
   print  $_[0]   "\n";
   print  $_[0]   "DATEFORMAT=YYYYMMDD\n";
   print  $_[0]   "DECIMALSEPARATOR=. \n";
}