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