& "WLIPTRAN","WAFM","WTHETC"/
data nprint_ene /22/
data print_order /1,2,3,18,11,12,13,14,4,5,6,7,8,9,10,19,
- & 16,15,17,20,21,24,22,23/
+ & 16,15,17,20,21,24,22,23,0/
end
c---------------------------------------------------------------------------
subroutine init_int_table
& "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