user: What is the c source code of the assembly code below:

```asm
<print_atomic_number_as_symbol>:
  endbr64
  push   %rbx
  mov    %rdi,%rbx
  cmp    $0x67,%esi
  ja     L745
  mov    %esi,%eax
  lea    D902(%rip),%rdx
  movslq (%rdx,%rax,4),%rax
  add    %rdx,%rax
  notrack jmp *%rax
  lea    D709(%rip),%rsi
  call   <fprintf@plt>
L423:
  pop    %rbx
  ret
  lea    D502(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D789(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D12(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D23(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D710(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D358(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D912(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D1046(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D381(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D38(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D392(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D97(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D319(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D276(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D824(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D331(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D109(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D819(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D408(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D251(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D338(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D1038(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D519(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D695(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D740(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D487(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D742(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D33(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D1011(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D942(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D1053(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D337(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D712(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D380(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D627(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D145(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D1001(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D489(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D1032(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D182(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D966(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D540(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D988(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D691(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D163(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D20(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D69(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D469(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D568(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D718(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D803(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D866(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D131(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D413(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D830(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D936(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D203(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D863(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D321(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D493(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D236(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D248(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D484(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D610(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D604(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D801(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D26(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D547(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D13(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D263(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D183(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D495(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D707(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D86(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D257(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D35(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D265(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D311(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D923(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D584(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D894(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D628(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D960(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D379(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D100(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D932(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D19(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D440(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D836(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D216(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D752(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D582(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D231(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D768(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D103(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D435(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D242(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D677(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D617(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D237(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D764(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
  lea    D145(%rip),%rsi
  call   <fprintf@plt>
  jmp    L423
L745:
  lea    D32(%rip),%rdi
  call   <printf@plt>
  lea    D632(%rip),%rsi
  mov    %rbx,%rdi
  call   <fprintf@plt>
  jmp    L423
```

tool_calls: name: extract_symbolic_data
arguments: data_tag: D709
data_type: string
name: extract_symbolic_data
arguments: data_tag: D502
data_type: string
name: extract_symbolic_data
arguments: data_tag: D789
data_type: string
name: extract_symbolic_data
arguments: data_tag: D12
data_type: string
name: extract_symbolic_data
arguments: data_tag: D23
data_type: string
name: extract_symbolic_data
arguments: data_tag: D710
data_type: string
name: extract_symbolic_data
arguments: data_tag: D358
data_type: string
name: extract_symbolic_data
arguments: data_tag: D912
data_type: string
name: extract_symbolic_data
arguments: data_tag: D1046
data_type: string
name: extract_symbolic_data
arguments: data_tag: D381
data_type: string
name: extract_symbolic_data
arguments: data_tag: D38
data_type: string
name: extract_symbolic_data
arguments: data_tag: D392
data_type: string
name: extract_symbolic_data
arguments: data_tag: D97
data_type: string
name: extract_symbolic_data
arguments: data_tag: D319
data_type: string
name: extract_symbolic_data
arguments: data_tag: D276
data_type: string
name: extract_symbolic_data
arguments: data_tag: D824
data_type: string
name: extract_symbolic_data
arguments: data_tag: D331
data_type: string
name: extract_symbolic_data
arguments: data_tag: D109
data_type: string
name: extract_symbolic_data
arguments: data_tag: D819
data_type: string
name: extract_symbolic_data
arguments: data_tag: D408
data_type: string
name: extract_symbolic_data
arguments: data_tag: D251
data_type: string
name: extract_symbolic_data
arguments: data_tag: D338
data_type: string
name: extract_symbolic_data
arguments: data_tag: D1038
data_type: string
name: extract_symbolic_data
arguments: data_tag: D519
data_type: string
name: extract_symbolic_data
arguments: data_tag: D695
data_type: string
name: extract_symbolic_data
arguments: data_tag: D740
data_type: string
name: extract_symbolic_data
arguments: data_tag: D487
data_type: string
name: extract_symbolic_data
arguments: data_tag: D742
data_type: string
name: extract_symbolic_data
arguments: data_tag: D33
data_type: string
name: extract_symbolic_data
arguments: data_tag: D1011
data_type: string
name: extract_symbolic_data
arguments: data_tag: D942
data_type: string
name: extract_symbolic_data
arguments: data_tag: D1053
data_type: string
name: extract_symbolic_data
arguments: data_tag: D337
data_type: string
name: extract_symbolic_data
arguments: data_tag: D712
data_type: string
name: extract_symbolic_data
arguments: data_tag: D380
data_type: string
name: extract_symbolic_data
arguments: data_tag: D627
data_type: string
name: extract_symbolic_data
arguments: data_tag: D145
data_type: string
name: extract_symbolic_data
arguments: data_tag: D1001
data_type: string
name: extract_symbolic_data
arguments: data_tag: D489
data_type: string
name: extract_symbolic_data
arguments: data_tag: D1032
data_type: string
name: extract_symbolic_data
arguments: data_tag: D182
data_type: string
name: extract_symbolic_data
arguments: data_tag: D966
data_type: string
name: extract_symbolic_data
arguments: data_tag: D540
data_type: string
name: extract_symbolic_data
arguments: data_tag: D988
data_type: string
name: extract_symbolic_data
arguments: data_tag: D691
data_type: string
name: extract_symbolic_data
arguments: data_tag: D163
data_type: string
name: extract_symbolic_data
arguments: data_tag: D20
data_type: string
name: extract_symbolic_data
arguments: data_tag: D69
data_type: string
name: extract_symbolic_data
arguments: data_tag: D469
data_type: string
name: extract_symbolic_data
arguments: data_tag: D568
data_type: string
name: extract_symbolic_data
arguments: data_tag: D718
data_type: string
name: extract_symbolic_data
arguments: data_tag: D803
data_type: string
name: extract_symbolic_data
arguments: data_tag: D866
data_type: string
name: extract_symbolic_data
arguments: data_tag: D131
data_type: string
name: extract_symbolic_data
arguments: data_tag: D413
data_type: string
name: extract_symbolic_data
arguments: data_tag: D830
data_type: string
name: extract_symbolic_data
arguments: data_tag: D936
data_type: string
name: extract_symbolic_data
arguments: data_tag: D203
data_type: string
name: extract_symbolic_data
arguments: data_tag: D863
data_type: string
name: extract_symbolic_data
arguments: data_tag: D321
data_type: string
name: extract_symbolic_data
arguments: data_tag: D493
data_type: string
name: extract_symbolic_data
arguments: data_tag: D236
data_type: string
name: extract_symbolic_data
arguments: data_tag: D248
data_type: string
name: extract_symbolic_data
arguments: data_tag: D484
data_type: string
name: extract_symbolic_data
arguments: data_tag: D610
data_type: string
name: extract_symbolic_data
arguments: data_tag: D604
data_type: string
name: extract_symbolic_data
arguments: data_tag: D801
data_type: string
name: extract_symbolic_data
arguments: data_tag: D26
data_type: string
name: extract_symbolic_data
arguments: data_tag: D547
data_type: string
name: extract_symbolic_data
arguments: data_tag: D13
data_type: string
name: extract_symbolic_data
arguments: data_tag: D263
data_type: string
name: extract_symbolic_data
arguments: data_tag: D183
data_type: string
name: extract_symbolic_data
arguments: data_tag: D495
data_type: string
name: extract_symbolic_data
arguments: data_tag: D707
data_type: string
name: extract_symbolic_data
arguments: data_tag: D86
data_type: string
name: extract_symbolic_data
arguments: data_tag: D257
data_type: string
name: extract_symbolic_data
arguments: data_tag: D35
data_type: string
name: extract_symbolic_data
arguments: data_tag: D265
data_type: string
name: extract_symbolic_data
arguments: data_tag: D311
data_type: string
name: extract_symbolic_data
arguments: data_tag: D923
data_type: string
name: extract_symbolic_data
arguments: data_tag: D584
data_type: string
name: extract_symbolic_data
arguments: data_tag: D894
data_type: string
name: extract_symbolic_data
arguments: data_tag: D628
data_type: string
name: extract_symbolic_data
arguments: data_tag: D960
data_type: string
name: extract_symbolic_data
arguments: data_tag: D379
data_type: string
name: extract_symbolic_data
arguments: data_tag: D100
data_type: string
name: extract_symbolic_data
arguments: data_tag: D932
data_type: string
name: extract_symbolic_data
arguments: data_tag: D19
data_type: string
name: extract_symbolic_data
arguments: data_tag: D440
data_type: string
name: extract_symbolic_data
arguments: data_tag: D836
data_type: string
name: extract_symbolic_data
arguments: data_tag: D216
data_type: string
name: extract_symbolic_data
arguments: data_tag: D752
data_type: string
name: extract_symbolic_data
arguments: data_tag: D582
data_type: string
name: extract_symbolic_data
arguments: data_tag: D231
data_type: string
name: extract_symbolic_data
arguments: data_tag: D768
data_type: string
name: extract_symbolic_data
arguments: data_tag: D103
data_type: string
name: extract_symbolic_data
arguments: data_tag: D435
data_type: string
name: extract_symbolic_data
arguments: data_tag: D242
data_type: string
name: extract_symbolic_data
arguments: data_tag: D677
data_type: string
name: extract_symbolic_data
arguments: data_tag: D617
data_type: string
name: extract_symbolic_data
arguments: data_tag: D237
data_type: string
name: extract_symbolic_data
arguments: data_tag: D764
data_type: string
name: extract_symbolic_data
arguments: data_tag: D32
data_type: string
name: extract_symbolic_data
arguments: data_tag: D632
data_type: string

tool: D709: H

tool: D502: He

tool: D789: Li

tool: D12: Be

tool: D23: B

tool: D710: C

tool: D358: N

tool: D912: O

tool: D1046: F

tool: D381: Ne

tool: D38: Na

tool: D392: Mg

tool: D97: Al

tool: D319: Si

tool: D276: P

tool: D824: S

tool: D331: Cl

tool: D109: Ar

tool: D819: K

tool: D408: Ca

tool: D251: Sc

tool: D338: Ti

tool: D1038: V

tool: D519: Cr

tool: D695: Mn

tool: D740: Fe

tool: D487: Co

tool: D742: Ni

tool: D33: Cu

tool: D1011: Zn

tool: D942: Ga

tool: D1053: Ge

tool: D337: As

tool: D712: Se

tool: D380: Br

tool: D627: Kr

tool: D145: Rb

tool: D1001: Sr

tool: D489: Y

tool: D1032: Zr

tool: D182: Nb

tool: D966: Mo

tool: D540: Tc

tool: D988: Ru

tool: D691: Rh

tool: D163: Pd

tool: D20: Ag

tool: D69: Cd

tool: D469: In

tool: D568: Sn

tool: D718: Sb

tool: D803: Te

tool: D866: I

tool: D131: Xe

tool: D413: Cs

tool: D830: Ba

tool: D936: La

tool: D203: Ce

tool: D863: Pr

tool: D321: Nd

tool: D493: Pm

tool: D236: Sm

tool: D248: Eu

tool: D484: Gd

tool: D610: Tb

tool: D604: Dy

tool: D801: Ho

tool: D26: Er

tool: D547: Tm

tool: D13: Yb

tool: D263: Lu

tool: D183: Hf

tool: D495: Ta

tool: D707: W

tool: D86: Re

tool: D257: Os

tool: D35: Ir

tool: D265: Pt

tool: D311: Au

tool: D923: Hg

tool: D584: Tl

tool: D894: Pb

tool: D628: Bi

tool: D960: Po

tool: D379: At

tool: D100: Rn

tool: D932: Fr

tool: D19: Ra

tool: D440: Ac

tool: D836: Th

tool: D216: Pa

tool: D752: U

tool: D582: Np

tool: D231: Pu

tool: D768: Am

tool: D103: Cm

tool: D435: Bk

tool: D242: Cf

tool: D677: Es

tool: D617: Md

tool: D237: No

tool: D764: Lr

tool: D32: 
!  WARNING: UNKNOWN ATOMIC NUMBER IN PRINT_ATOMIC_NUMBER_AS_SYMBOL - %d


tool: D632: XXX

assistant: ```c
void print_atomic_number_as_symbol(FILE *fptr, int atomic_number) {
  switch (atomic_number) {
  case 1:
    fprintf(fptr, "H");
    break;
  case 2:
    fprintf(fptr, "He");
    break;
  case 3:
    fprintf(fptr, "Li");
    break;
  case 4:
    fprintf(fptr, "Be");
    break;
  case 5:
    fprintf(fptr, "B");
    break;
  case 6:
    fprintf(fptr, "C");
    break;
  case 7:
    fprintf(fptr, "N");
    break;
  case 8:
    fprintf(fptr, "O");
    break;
  case 9:
    fprintf(fptr, "F");
    break;
  case 10:
    fprintf(fptr, "Ne");
    break;
  case 11:
    fprintf(fptr, "Na");
    break;
  case 12:
    fprintf(fptr, "Mg");
    break;
  case 13:
    fprintf(fptr, "Al");
    break;
  case 14:
    fprintf(fptr, "Si");
    break;
  case 15:
    fprintf(fptr, "P");
    break;
  case 16:
    fprintf(fptr, "S");
    break;
  case 17:
    fprintf(fptr, "Cl");
    break;
  case 18:
    fprintf(fptr, "Ar");
    break;
  case 19:
    fprintf(fptr, "K");
    break;
  case 20:
    fprintf(fptr, "Ca");
    break;
  case 21:
    fprintf(fptr, "Sc");
    break;
  case 22:
    fprintf(fptr, "Ti");
    break;
  case 23:
    fprintf(fptr, "V");
    break;
  case 24:
    fprintf(fptr, "Cr");
    break;
  case 25:
    fprintf(fptr, "Mn");
    break;
  case 26:
    fprintf(fptr, "Fe");
    break;
  case 27:
    fprintf(fptr, "Co");
    break;
  case 28:
    fprintf(fptr, "Ni");
    break;
  case 29:
    fprintf(fptr, "Cu");
    break;
  case 30:
    fprintf(fptr, "Zn");
    break;
  case 31:
    fprintf(fptr, "Ga");
    break;
  case 32:
    fprintf(fptr, "Ge");
    break;
  case 33:
    fprintf(fptr, "As");
    break;
  case 34:
    fprintf(fptr, "Se");
    break;
  case 35:
    fprintf(fptr, "Br");
    break;
  case 36:
    fprintf(fptr, "Kr");
    break;
  case 37:
    fprintf(fptr, "Rb");
    break;
  case 38:
    fprintf(fptr, "Sr");
    break;
  case 39:
    fprintf(fptr, "Y");
    break;
  case 40:
    fprintf(fptr, "Zr");
    break;
  case 41:
    fprintf(fptr, "Nb");
    break;
  case 42:
    fprintf(fptr, "Mo");
    break;
  case 43:
    fprintf(fptr, "Tc");
    break;
  case 44:
    fprintf(fptr, "Ru");
    break;
  case 45:
    fprintf(fptr, "Rh");
    break;
  case 46:
    fprintf(fptr, "Pd");
    break;
  case 47:
    fprintf(fptr, "Ag");
    break;
  case 48:
    fprintf(fptr, "Cd");
    break;
  case 49:
    fprintf(fptr, "In");
    break;
  case 50:
    fprintf(fptr, "Sn");
    break;
  case 51:
    fprintf(fptr, "Sb");
    break;
  case 52:
    fprintf(fptr, "Te");
    break;
  case 53:
    fprintf(fptr, "I");
    break;
  case 54:
    fprintf(fptr, "Xe");
    break;
  case 55:
    fprintf(fptr, "Cs");
    break;
  case 56:
    fprintf(fptr, "Ba");
    break;
  case 57:
    fprintf(fptr, "La");
    break;
  case 58:
    fprintf(fptr, "Ce");
    break;
  case 59:
    fprintf(fptr, "Pr");
    break;
  case 60:
    fprintf(fptr, "Nd");
    break;
  case 61:
    fprintf(fptr, "Pm");
    break;
  case 62:
    fprintf(fptr, "Sm");
    break;
  case 63:
    fprintf(fptr, "Eu");
    break;
  case 64:
    fprintf(fptr, "Gd");
    break;
  case 65:
    fprintf(fptr, "Tb");
    break;
  case 66:
    fprintf(fptr, "Dy");
    break;
  case 67:
    fprintf(fptr, "Ho");
    break;
  case 68:
    fprintf(fptr, "Er");
    break;
  case 69:
    fprintf(fptr, "Tm");
    break;
  case 70:
    fprintf(fptr, "Yb");
    break;
  case 71:
    fprintf(fptr, "Lu");
    break;
  case 72:
    fprintf(fptr, "Hf");
    break;
  case 73:
    fprintf(fptr, "Ta");
    break;
  case 74:
    fprintf(fptr, "W");
    break;
  case 75:
    fprintf(fptr, "Re");
    break;
  case 76:
    fprintf(fptr, "Os");
    break;
  case 77:
    fprintf(fptr, "Ir");
    break;
  case 78:
    fprintf(fptr, "Pt");
    break;
  case 79:
    fprintf(fptr, "Au");
    break;
  case 80:
    fprintf(fptr, "Hg");
    break;
  case 81:
    fprintf(fptr, "Tl");
    break;
  case 82:
    fprintf(fptr, "Pb");
    break;
  case 83:
    fprintf(fptr, "Bi");
    break;
  case 84:
    fprintf(fptr, "Po");
    break;
  case 85:
    fprintf(fptr, "At");
    break;
  case 86:
    fprintf(fptr, "Rn");
    break;
  case 87:
    fprintf(fptr, "Fr");
    break;
  case 88:
    fprintf(fptr, "Ra");
    break;
  case 89:
    fprintf(fptr, "Ac");
    break;
  case 90:
    fprintf(fptr, "Th");
    break;
  case 91:
    fprintf(fptr, "Pa");
    break;
  case 92:
    fprintf(fptr, "U");
    break;
  case 93:
    fprintf(fptr, "Np");
    break;
  case 94:
    fprintf(fptr, "Pu");
    break;
  case 95:
    fprintf(fptr, "Am");
    break;
  case 96:
    fprintf(fptr, "Cm");
    break;
  case 97:
    fprintf(fptr, "Bk");
    break;
  case 98:
    fprintf(fptr, "Cf");
    break;
  case 99:
    fprintf(fptr, "Es");
    break;
  case 100:
    fprintf(fptr, "Md");
    break;
  case 101:
    fprintf(fptr, "No");
    break;
  case 102:
    fprintf(fptr, "Lr");
    break;
  case 103:
    fprintf(fptr, "Rb");
    break;
  default:
    printf("\n!  WARNING: UNKNOWN ATOMIC NUMBER IN PRINT_ATOMIC_NUMBER_AS_SYMBOL - %d\n", atomic_number);
    fprintf(fptr, "XXX");
    break;
  }
}
```