C Library Functions - atomnum2symbol (3)
NAME
atomnum2symbol(3f) - [M_units:SYMBOLS] return element symbol given atomic number
(LICENSE:PD)
CONTENTS
Synopsis
Description
Options
Returns
Example
Author
License
SYNOPSIS
subroutine atomnum2symbol(atomnum,symbol)
integer,intent(in) :: atomnum
character(len=2),intent(out) :: symbol
DESCRIPTION
Given an atomic number in the range of 1 to 109 return the corresponding element symbol name
OPTIONS
|
atomnum |
| |
an atomic number from 1 to 109
|
|
RETURNS
|
symbol |
two-character symbol name corresponding to atomic number ATOMNUM
|
|
EXAMPLE
Sample program
program demo_atomnum2symbol
use M_units, only : atomnum2symbol
implicit none
character(len=2) :: name
integer :: i
do i=1,109
call atomnum2symbol(i,name)
write(*,*)i,name
enddo
end program demo_atomnum2symbol
Results:
> 1 H
> 2 He
> 3 Li
> 4 Be
> 5 B
> 6 C
> 7 N
> 8 O
> 9 F
> 10 Ne
> 11 Na
> 12 Mg
> 13 Al
> 14 Si
> 15 P
> 16 S
> 17 Cl
> 18 Ar
> 19 K
> 20 Ca
> 21 Sc
> 22 Ti
> 23 V
> 24 Cr
> 25 Mn
> 26 Fe
> 27 Co
> 28 Ni
> 29 Cu
> 30 Zn
> 31 Ga
> 32 Ge
> 33 As
> 34 Se
> 35 Br
> 36 Kr
> 37 Rb
> 38 Sr
> 39 Y
> 40 Zr
> 41 Nb
> 42 Mo
> 43 Tc
> 44 Ru
> 45 Rh
> 46 Pd
> 47 Ag
> 48 Cd
> 49 In
> 50 Sn
> 51 Sb
> 52 Te
> 53 I
> 54 Xe
> 55 Cs
> 56 Ba
> 57 La
> 58 Ce
> 59 Pr
> 60 Nd
> 61 Pm
> 62 Sm
> 63 Eu
> 64 Gd
> 65 Tb
> 66 Dy
> 67 Ho
> 68 Er
> 69 Tm
> 70 Yb
> 71 Lu
> 72 Hf
> 73 Ta
> 74 W
> 75 Re
> 76 Os
> 77 Ir
> 78 Pt
> 79 Au
> 80 Hg
> 81 Tl
> 82 Pb
> 83 Bi
> 84 Po
> 85 At
> 86 Rn
> 87 Fr
> 88 Ra
> 89 Ac
> 90 Th
> 91 Pa
> 92 U
> 93 Np
> 94 Pu
> 95 Am
> 96 Cm
> 97 Bk
> 98 Cf
> 99 Es
> 100 Fm
> 101 Md
> 102 No
> 103 Lr
> 104 Rf
> 105 Db
> 106 Sg
> 107 Bh
> 108 Hs
> 109 Mt
AUTHOR
John S. Urban
LICENSE
Public Domain
| Nemo Release 3.1 | atomnum2symbol (3) | February 23, 2025 |
Generated by manServer 1.08 from 72b605f9-24e6-4704-a5be-0434f794780b using man macros.
