util1_jan/write_m.m

   1 function write_m(a,name,num1,num2)
   2 % write_m(a,name,num1,num2)
   3 % a         array
   4 % name      root for file number
   5 % num1,num2 numbers to form file name name_num1_num2
   6 %           if either num1<0 or num2<0 it is not used
   7 % write array to file same as created by call write_array subroutines
   8 % the mode of reading may change; do not call the functions below directly
   9 % this file can be read by function read_m
  10 if ~exist('num1','var'),
  11         num1=-1;
  12 end
  13 if ~exist('num2','var'),
  14         num2=-1;
  15 end
  16 name=file_name(name,num1,num2);
  17 write_array(a,name);
  18