Advertisement
Guest User

Untitled

a guest
Oct 31st, 2014
154
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.97 KB | None | 0 0
  1. int NumI = InputSCube.NumSamplesIJK.I;
  2. int NumJ = InputSCube.NumSamplesIJK.J;
  3. int NumK = InputSCube.NumSamplesIJK.K;
  4. double[, ,] InputSeismicCubeData = new double[NumI, NumJ, NumK];
  5.  
  6.  
  7. for (int i = 0; i < NumI; i++)
  8. {
  9. for (int j = 0; j < NumJ; j++)
  10. {
  11. ITrace Trace = InputSCube.GetTrace(i, j);
  12. for (int k = 0; k < NumK; k++)
  13. {
  14. InputSeismicCubeData[i, j, k] = Trace[k];
  15. }
  16. }
  17.  
  18. }
  19.  
  20. using (ITransaction trans1 = DataManager.NewTransaction())
  21. {
  22.  
  23. SeismicCollection Sc = InputSCube.SeismicCollection;
  24. trans1.Lock(Sc);
  25. if (Sc.CanCreateSeismicCube(InputSCube))
  26. {
  27. SeismicCube NewCube = Sc.CreateSeismicCube(InputSCube, InputSCube.Template);
  28. if (!NewCube.IsWritable)
  29. {
  30. PetrelLogger.ErrorBox("Unable to Write to the Cloned Cube");
  31. return;
  32. }
  33.  
  34.  
  35.  
  36. for (int i = 0; i < NumI; i++)
  37. {
  38. for (int j = 0; j < NumJ; j++)
  39. {
  40.  
  41. ITrace trace = NewCube.GetTrace(i, j);
  42. for (int k = 0; k < trace.Length; k++)
  43. {
  44. trace[k] = (float)OutPutSeismicCubeData[i, j, k];
  45. }
  46.  
  47. }
  48. }
  49.  
  50. trans1.Commit();
  51. arguments.OutputSCube = NewCube;
  52. }
  53. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement