Select Code to Download

while ~feof(fileIDS);
  m1=fgetl(fileIDS);
...
    data=0.0;
  end;
end;

  intersection (2D data,scalar)
  if intersection exists not null
...
  else
     data=0.0
  endif

use 5.12.0;
use strict;
...
  };
};
close $TEST