if ($flag eq 'C_N' || $flag eq 'C_S' || $flag eq 'C_E' || $flag eq 'C_W'){

##</code><code>##

if ($flag eq 'C_N', 'C_S', 'C_E', 'C_W'){

##</code><code>##

  for my $i (0..$N) {
    for my $j (0..$N) {

##</code><code>##

 
for $i (1..$imax) {                
  for $j (1..$jmax) {