Hello All,
I have some nasty bug on solaris 2.6 with fortran 90 compiler of sun:
--------
PROGRAM essai
implicit none
integer, parameter :: dir2xyz(6,2) = RESHAPE((/1,1,2,2,3,3,
1,-1,1,-1,1,-1/),(/6,2/))
integer :: i, geom_pieces(6)
geom_pieces(1:6) = (/ 1,2,3,4,5,6 /)
do i=1, 6 ! search throw the pieces (in the order point, line,
surface)
print *,"Normal:", geom_pieces(i), dir2xyz( geom_pieces(i), 1)
select case( dir2xyz( geom_pieces(i), 1) ) ! in which plane is
the piece
case (1) ! in the plane yz-plane
print*,"case 1"
case (2) ! interstion with xz-plane
print*,"case 2"
case (3) ! intersect with the xy-plane
print*,"case 2"
end select
end do
END PROGRAM essai
-------
the interpretation of the dir2xyz( , ) are not the same in the print and
in
the select case. What have I made false? Or it is really a bug?
Alex.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|