REAL FUNCTION CKATOM (ENAME)

Returns atomic weight, given character-string element name.

SUBROUTINE CKAWT (ICKWRK, RCKWRK, AWT)

Returns the atomic weights of the elements.

SUBROUTINE CKCOMP (IST, IRAY, II, I)*

Returns the index of an element of a reference character string array which corresponds to a character string; leading and trailing blanks are ignored.

SUBROUTINE CKSYME (CCKWRK, LOUT, ENAME, KERR)*

Returns the character strings of element names.