SYMM     1/8 - X, 1/8 + Y, 1/8 + Z
SYMM     1/6 - X, 1/6 + Y, 1/6 + Z
SYMM     1/4 - X, 1/4 + Y, 1/4 + Z
SYMM     1/2 - X, 1/2 + Y, 1/2 + Z


##</code><code>##

   if (/SYMM/)
   {
	(undef, $symmetry[$i]) = split /SYMM\s+/;
	($symm[$i], $symm[$i], $symm[$i]) = split /,\s+/, $symmetry[$i];
	$i++;
   	next LOOP;      
   }
}
close (IN);

	foreach $i(0..$symm) { 	       
	if ($symm[$i] !~ /\d{1}/) {					
		($tmp2[$i], $tmp3[$i]) = split /\s+/, @symm[$i];		
			$tmp1[$i] = 0;	
	}else{
		($tmp1[$i], $tmp2[$i], $tmp3[$i]) = split /\s+/, @symm[$i];
	}
	($frac1[$i], $frac2[$i]) = split (/\//, @tmp1[$i]); 	
	}

print @value[0] = ($frac1[0]/$frac2[0]); print "\n";
print @value[2] = ($frac1[1]/$frac2[1]); print "\n"; 
print @value[3] = ($frac1[2]/$frac2[2]);