& "WHOMOLOGY","WDFAD","WDFAT","WDFAN","WDFAB"," "," "/
data nprint_ene /23/
data print_order /1,2,3,17,11,12,13,14,4,5,6,7,8,9,10,16,15,18,19,
- & 20,21,22,23,24,25/
+ & 20,21,22,23,24,25,0,0/
end
c---------------------------------------------------------------------------
subroutine init_int_table