1315
1314
text += 'double precision amp_split(amp_split_size)\n'
1316
1315
text += 'double complex amp_split_cnt(amp_split_size,2,nsplitorders)\n'
1317
1316
text += 'common /to_amp_split/amp_split, amp_split_cnt\n'
1321
1320
return amp_split_orders, amp_split_size, amp_split_size_born