femwind/prolongation_fortran.m

   1 function u=prolongation_fortran(uc,hzc,icl3,X,params);
   2 % call fortran version
   3
   4 %Writing all arrays to text files for use by fortran tester
   5 write_array(swap23(uc),'uc');
   6 write_array(swap23(X{1}),'X');
   7 write_array(swap23(X{2}),'Y');
   8 write_array(swap23(X{3}),'Z');
   9 write_array(hzc(:),'hcz');
  10 write_array(icl3(:),'cl_z');
  11
  12 system('./fortran/prolongation_test.exe');
  13 u = swap23(read_array('u'));
  14
  15 end
  16