1* $Id$
2c
3      integer num_types
4      parameter (num_types = 10)
5      character*2 shell_types(-1:(num_types-2))
6      common /c_int_order/shell_types
7c
8