chem/KPP/kpp/kpp-2.1/util/util.m

   1 % ****************************************************************
   2 %
   3 % InitSaveData - Opens the data file for writing
   4 %
   5 % ****************************************************************
   6
   7 function InitSaveData ()
   8
   9 global KPP_ROOT_FID
  10
  11       KPP_ROOT_FID = fopen('KPP_ROOT.dat','w');
  12
  13 return %  InitSaveData
  14
  15 % End of InitSaveData function
  16 % ****************************************************************
  17
  18 % ****************************************************************
  19 %
  20 % SaveData - Write LOOKAT species in the data file
  21 %
  22 % ****************************************************************
  23
  24 function SaveData ()
  25
  26 global VAR FIX CFACTOR LOOKAT NLOOKAT KPP_ROOT_FID
  27
  28       C(1:KPP_NVAR) = VAR(1:KPP_NVAR);
  29       C(KPP_NVAR+1:KPP_NSPEC) = FIX(1:KPP_NFIX);
  30
  31       fprintf(KPP_ROOT_FID,'%12.5e,',C(LOOKAT(1:NLOOKAT)));
  32
  33 return %  SaveData
  34
  35 % End of SaveData function
  36 % ****************************************************************
  37
  38 % ****************************************************************
  39 %
  40 % CloseSaveData - Close the data file
  41 %
  42 % ****************************************************************
  43
  44 function CloseSaveData ()
  45 global KPP_ROOT_FID
  46
  47       fclose( KPP_ROOT_FID );
  48
  49 return %  CloseSaveData
  50
  51 % End of CloseSaveData function
  52 % ****************************************************************
  53
  54