xyzorder.F90 Source File


Source Code

module xyz_order

 implicit none

 private

 integer, parameter, public :: &
     X__ = 1, &
     Y__ = 2, &
     Z__ = 3, &

     XX_ = 1, &
     YY_ = 2, &
     ZZ_ = 3, &
     XY_ = 4, &
     XZ_ = 5, &
     YZ_ = 6, &

     XXX = 1, &
     YYY = 2, &
     ZZZ = 3, &
     XXY = 4, &
     XXZ = 5, &
     YYX = 6, &
     YYZ = 7, &
     ZZX = 8, &
     ZZY = 9, &
     XYZ = 10

end module xyz_order