symbol2atomnum(3f) - [M_units:SYMBOLS] return atomic number given element symbol name (LICENSE:PD)
Synopsis
Description
Options
Returns
Example
Author
License
subroutine symbol2atomnum(symbol,atomnum)
character(len=2),intent(in) :: symbol integer,intent(out) :: atomnum
Given a two-character element symbol name return the corresponding atomic number
symbol two-character symbol name corresponding to atomic number ATOMNUM
atomnum an atomic number from 1 to 109
Sample program
program demo_symbol2atomnum use M_units, only : symbol2atomnum implicit none integer :: atomnum character(len=2) :: name name=Ne call symbol2atomnum(name,atomnum) write(*,*)atomnum,name end program demo_symbol2atomnumResults:
10 Ne
John S. Urban
Public Domain
Nemo Release 3.1 | symbol2atomnum (3) | February 23, 2025 |