The SDL Component Suite is an industry leading collection of components supporting scientific and engineering computing. Please visit the SDL Web site for more information....



Interface of SDL_CData

const
  MaxChemElem = 103;       { number of elements supported by CDATA }
{$IFDEF PAIDVERS}
  SDLVersionInfo = 'cdata_r1050_full';
  IsLightEd = false;
{$ELSE}
  SDLVersionInfo = 'cdata_r1050_lighted';
  IsLightEd = true;
{$ENDIF}
  release = 1050;


  function  AtomicNumber
          (Symbol : string)                                   { element symbol }
                  : integer;                                   { atomic number }
  function  CElemName
            (AtNr : integer)                                   { atomic number }
                  : string;                                     { element name }
  function  CElemSymb
            (AtNr : integer)                                   { atomic number }
                  : string;                                   { element symbol }
  function  CheckCASNr
          (CASNum : longint)                             { CAS registry number }
                  : boolean;                            { TRUE, if CASNr is OK }
  function  ChemAtWeight
            (AtNr : integer)                                   { atomic number }
                  : double;                       { chemical weight of element }
  function  CompressChemName
        (Instring : string)                        { chemical name to compress }
                  : string;                                  { compressed name }
  function  ConvertStrToCASNr
        (InString : string;                                { CAS-No. as string }
        var CASNr : longint)                       { CAS-No. as integer number }
                  : boolean;                                     { TRUE, if OK }
  function  DeCompressChemName
        (InString : string)                        { compressed substance name }
                  : string;                                { uncompressed name }
  function  ExactAtWeight
            (AtNr : integer)                                   { atomic number }
                  : double;              { exact weight of most abund. isotope }
  function  FormatCASNr
           (CASNr : longint)                                         { CAS-No. }
                  : string;                                { CAS-No. as string }
  function  FullElectronConfig
            (AtNr : integer)                                   { atomic number }
                  : string;                           { electron configuration }
  function  IntAtWeight
            (AtNr : integer)                                   { atomic number }
                  : integer;              { nom. weight of most abund. isotope }
  function  NumOuterElectrons
            (AtNr : integer)                                   { atomic number }
                  : integer;                { no. of outer electrons (valence) }
  procedure PerSysCoord
            (AtNr : integer;                                    {atomic number }
          var x,y : integer);                       { coordinates of that atom }
  function  ShortElectronConfig
            (AtNr : integer)                                   { atomic number }
                  : string;                           { electron configuration }
  function  VDWRadius
            (AtNr : integer)                                   { atomic number }
                  : double;                             { van der Waals radius }






Last Update: 2012-Oct-20