kim-api  2.3.0+v2.3.0.GNU.GNU.
An Application Programming Interface (API) for the Knowledgebase of Interatomic Models (KIM).
kim_species_name_module.f90
Go to the documentation of this file.
1 !
2 ! KIM-API: An API for interatomic models
3 ! Copyright (c) 2013--2022, Regents of the University of Minnesota.
4 ! All rights reserved.
5 !
6 ! Contributors:
7 ! Ryan S. Elliott
8 !
9 ! SPDX-License-Identifier: LGPL-2.1-or-later
10 !
11 ! This library is free software; you can redistribute it and/or
12 ! modify it under the terms of the GNU Lesser General Public
13 ! License as published by the Free Software Foundation; either
14 ! version 2.1 of the License, or (at your option) any later version.
15 !
16 ! This library is distributed in the hope that it will be useful,
17 ! but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ! Lesser General Public License for more details.
20 !
21 ! You should have received a copy of the GNU Lesser General Public License
22 ! along with this library; if not, write to the Free Software Foundation,
23 ! Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
24 !
25 
26 !
27 ! Release: This file is part of the kim-api-2.3.0 package.
28 !
29 
36  use, intrinsic :: iso_c_binding
37  implicit none
38  private
39 
40  public &
41  ! Derived types
42  kim_species_name_type, &
43  ! Constants
183  ! Routines
184  kim_known, &
185  operator(.eq.), &
186  operator(.ne.), &
187  kim_from_string, &
188  kim_to_string, &
191 
197  type, bind(c) :: kim_species_name_type
198  integer(c_int) species_name_id
199  end type kim_species_name_type
200 
206  type(kim_species_name_type), protected, save, &
207  bind(c, name="KIM_SPECIES_NAME_electron") &
209 
215  type(kim_species_name_type), protected, save, &
216  bind(c, name="KIM_SPECIES_NAME_H") &
218 
224  type(kim_species_name_type), protected, save, &
225  bind(c, name="KIM_SPECIES_NAME_He") &
227 
233  type(kim_species_name_type), protected, save, &
234  bind(c, name="KIM_SPECIES_NAME_Li") &
236 
242  type(kim_species_name_type), protected, save, &
243  bind(c, name="KIM_SPECIES_NAME_Be") &
245 
251  type(kim_species_name_type), protected, save, &
252  bind(c, name="KIM_SPECIES_NAME_B") &
254 
260  type(kim_species_name_type), protected, save, &
261  bind(c, name="KIM_SPECIES_NAME_C") &
263 
269  type(kim_species_name_type), protected, save, &
270  bind(c, name="KIM_SPECIES_NAME_N") &
272 
278  type(kim_species_name_type), protected, save, &
279  bind(c, name="KIM_SPECIES_NAME_O") &
281 
287  type(kim_species_name_type), protected, save, &
288  bind(c, name="KIM_SPECIES_NAME_F") &
290 
296  type(kim_species_name_type), protected, save, &
297  bind(c, name="KIM_SPECIES_NAME_Ne") &
299 
305  type(kim_species_name_type), protected, save, &
306  bind(c, name="KIM_SPECIES_NAME_Na") &
308 
314  type(kim_species_name_type), protected, save, &
315  bind(c, name="KIM_SPECIES_NAME_Mg") &
317 
323  type(kim_species_name_type), protected, save, &
324  bind(c, name="KIM_SPECIES_NAME_Al") &
326 
332  type(kim_species_name_type), protected, save, &
333  bind(c, name="KIM_SPECIES_NAME_Si") &
335 
341  type(kim_species_name_type), protected, save, &
342  bind(c, name="KIM_SPECIES_NAME_P") &
344 
350  type(kim_species_name_type), protected, save, &
351  bind(c, name="KIM_SPECIES_NAME_S") &
353 
359  type(kim_species_name_type), protected, save, &
360  bind(c, name="KIM_SPECIES_NAME_Cl") &
362 
368  type(kim_species_name_type), protected, save, &
369  bind(c, name="KIM_SPECIES_NAME_Ar") &
371 
377  type(kim_species_name_type), protected, save, &
378  bind(c, name="KIM_SPECIES_NAME_K") &
380 
386  type(kim_species_name_type), protected, save, &
387  bind(c, name="KIM_SPECIES_NAME_Ca") &
389 
395  type(kim_species_name_type), protected, save, &
396  bind(c, name="KIM_SPECIES_NAME_Sc") &
398 
404  type(kim_species_name_type), protected, save, &
405  bind(c, name="KIM_SPECIES_NAME_Ti") &
407 
413  type(kim_species_name_type), protected, save, &
414  bind(c, name="KIM_SPECIES_NAME_V") &
416 
422  type(kim_species_name_type), protected, save, &
423  bind(c, name="KIM_SPECIES_NAME_Cr") &
425 
431  type(kim_species_name_type), protected, save, &
432  bind(c, name="KIM_SPECIES_NAME_Mn") &
434 
440  type(kim_species_name_type), protected, save, &
441  bind(c, name="KIM_SPECIES_NAME_Fe") &
443 
449  type(kim_species_name_type), protected, save, &
450  bind(c, name="KIM_SPECIES_NAME_Co") &
452 
458  type(kim_species_name_type), protected, save, &
459  bind(c, name="KIM_SPECIES_NAME_Ni") &
461 
467  type(kim_species_name_type), protected, save, &
468  bind(c, name="KIM_SPECIES_NAME_Cu") &
470 
476  type(kim_species_name_type), protected, save, &
477  bind(c, name="KIM_SPECIES_NAME_Zn") &
479 
485  type(kim_species_name_type), protected, save, &
486  bind(c, name="KIM_SPECIES_NAME_Ga") &
488 
494  type(kim_species_name_type), protected, save, &
495  bind(c, name="KIM_SPECIES_NAME_Ge") &
497 
503  type(kim_species_name_type), protected, save, &
504  bind(c, name="KIM_SPECIES_NAME_As") &
506 
512  type(kim_species_name_type), protected, save, &
513  bind(c, name="KIM_SPECIES_NAME_Se") &
515 
521  type(kim_species_name_type), protected, save, &
522  bind(c, name="KIM_SPECIES_NAME_Br") &
524 
530  type(kim_species_name_type), protected, save, &
531  bind(c, name="KIM_SPECIES_NAME_Kr") &
533 
539  type(kim_species_name_type), protected, save, &
540  bind(c, name="KIM_SPECIES_NAME_Rb") &
542 
548  type(kim_species_name_type), protected, save, &
549  bind(c, name="KIM_SPECIES_NAME_Sr") &
551 
557  type(kim_species_name_type), protected, save, &
558  bind(c, name="KIM_SPECIES_NAME_Y") &
560 
566  type(kim_species_name_type), protected, save, &
567  bind(c, name="KIM_SPECIES_NAME_Zr") &
569 
575  type(kim_species_name_type), protected, save, &
576  bind(c, name="KIM_SPECIES_NAME_Nb") &
578 
584  type(kim_species_name_type), protected, save, &
585  bind(c, name="KIM_SPECIES_NAME_Mo") &
587 
593  type(kim_species_name_type), protected, save, &
594  bind(c, name="KIM_SPECIES_NAME_Tc") &
596 
602  type(kim_species_name_type), protected, save, &
603  bind(c, name="KIM_SPECIES_NAME_Ru") &
605 
611  type(kim_species_name_type), protected, save, &
612  bind(c, name="KIM_SPECIES_NAME_Rh") &
614 
620  type(kim_species_name_type), protected, save, &
621  bind(c, name="KIM_SPECIES_NAME_Pd") &
623 
629  type(kim_species_name_type), protected, save, &
630  bind(c, name="KIM_SPECIES_NAME_Ag") &
632 
638  type(kim_species_name_type), protected, save, &
639  bind(c, name="KIM_SPECIES_NAME_Cd") &
641 
647  type(kim_species_name_type), protected, save, &
648  bind(c, name="KIM_SPECIES_NAME_In") &
650 
656  type(kim_species_name_type), protected, save, &
657  bind(c, name="KIM_SPECIES_NAME_Sn") &
659 
665  type(kim_species_name_type), protected, save, &
666  bind(c, name="KIM_SPECIES_NAME_Sb") &
668 
674  type(kim_species_name_type), protected, save, &
675  bind(c, name="KIM_SPECIES_NAME_Te") &
677 
683  type(kim_species_name_type), protected, save, &
684  bind(c, name="KIM_SPECIES_NAME_I") &
686 
692  type(kim_species_name_type), protected, save, &
693  bind(c, name="KIM_SPECIES_NAME_Xe") &
695 
701  type(kim_species_name_type), protected, save, &
702  bind(c, name="KIM_SPECIES_NAME_Cs") &
704 
710  type(kim_species_name_type), protected, save, &
711  bind(c, name="KIM_SPECIES_NAME_Ba") &
713 
719  type(kim_species_name_type), protected, save, &
720  bind(c, name="KIM_SPECIES_NAME_La") &
722 
728  type(kim_species_name_type), protected, save, &
729  bind(c, name="KIM_SPECIES_NAME_Ce") &
731 
737  type(kim_species_name_type), protected, save, &
738  bind(c, name="KIM_SPECIES_NAME_Pr") &
740 
746  type(kim_species_name_type), protected, save, &
747  bind(c, name="KIM_SPECIES_NAME_Nd") &
749 
755  type(kim_species_name_type), protected, save, &
756  bind(c, name="KIM_SPECIES_NAME_Pm") &
758 
764  type(kim_species_name_type), protected, save, &
765  bind(c, name="KIM_SPECIES_NAME_Sm") &
767 
773  type(kim_species_name_type), protected, save, &
774  bind(c, name="KIM_SPECIES_NAME_Eu") &
776 
782  type(kim_species_name_type), protected, save, &
783  bind(c, name="KIM_SPECIES_NAME_Gd") &
785 
791  type(kim_species_name_type), protected, save, &
792  bind(c, name="KIM_SPECIES_NAME_Tb") &
794 
800  type(kim_species_name_type), protected, save, &
801  bind(c, name="KIM_SPECIES_NAME_Dy") &
803 
809  type(kim_species_name_type), protected, save, &
810  bind(c, name="KIM_SPECIES_NAME_Ho") &
812 
818  type(kim_species_name_type), protected, save, &
819  bind(c, name="KIM_SPECIES_NAME_Er") &
821 
827  type(kim_species_name_type), protected, save, &
828  bind(c, name="KIM_SPECIES_NAME_Tm") &
830 
836  type(kim_species_name_type), protected, save, &
837  bind(c, name="KIM_SPECIES_NAME_Yb") &
839 
845  type(kim_species_name_type), protected, save, &
846  bind(c, name="KIM_SPECIES_NAME_Lu") &
848 
854  type(kim_species_name_type), protected, save, &
855  bind(c, name="KIM_SPECIES_NAME_Hf") &
857 
863  type(kim_species_name_type), protected, save, &
864  bind(c, name="KIM_SPECIES_NAME_Ta") &
866 
872  type(kim_species_name_type), protected, save, &
873  bind(c, name="KIM_SPECIES_NAME_W") &
875 
881  type(kim_species_name_type), protected, save, &
882  bind(c, name="KIM_SPECIES_NAME_Re") &
884 
890  type(kim_species_name_type), protected, save, &
891  bind(c, name="KIM_SPECIES_NAME_Os") &
893 
899  type(kim_species_name_type), protected, save, &
900  bind(c, name="KIM_SPECIES_NAME_Ir") &
902 
908  type(kim_species_name_type), protected, save, &
909  bind(c, name="KIM_SPECIES_NAME_Pt") &
911 
917  type(kim_species_name_type), protected, save, &
918  bind(c, name="KIM_SPECIES_NAME_Au") &
920 
926  type(kim_species_name_type), protected, save, &
927  bind(c, name="KIM_SPECIES_NAME_Hg") &
929 
935  type(kim_species_name_type), protected, save, &
936  bind(c, name="KIM_SPECIES_NAME_Tl") &
938 
944  type(kim_species_name_type), protected, save, &
945  bind(c, name="KIM_SPECIES_NAME_Pb") &
947 
953  type(kim_species_name_type), protected, save, &
954  bind(c, name="KIM_SPECIES_NAME_Bi") &
956 
962  type(kim_species_name_type), protected, save, &
963  bind(c, name="KIM_SPECIES_NAME_Po") &
965 
971  type(kim_species_name_type), protected, save, &
972  bind(c, name="KIM_SPECIES_NAME_At") &
974 
980  type(kim_species_name_type), protected, save, &
981  bind(c, name="KIM_SPECIES_NAME_Rn") &
983 
989  type(kim_species_name_type), protected, save, &
990  bind(c, name="KIM_SPECIES_NAME_Fr") &
992 
998  type(kim_species_name_type), protected, save, &
999  bind(c, name="KIM_SPECIES_NAME_Ra") &
1001 
1007  type(kim_species_name_type), protected, save, &
1008  bind(c, name="KIM_SPECIES_NAME_Ac") &
1010 
1016  type(kim_species_name_type), protected, save, &
1017  bind(c, name="KIM_SPECIES_NAME_Th") &
1019 
1025  type(kim_species_name_type), protected, save, &
1026  bind(c, name="KIM_SPECIES_NAME_Pa") &
1028 
1034  type(kim_species_name_type), protected, save, &
1035  bind(c, name="KIM_SPECIES_NAME_U") &
1037 
1043  type(kim_species_name_type), protected, save, &
1044  bind(c, name="KIM_SPECIES_NAME_Np") &
1046 
1052  type(kim_species_name_type), protected, save, &
1053  bind(c, name="KIM_SPECIES_NAME_Pu") &
1055 
1061  type(kim_species_name_type), protected, save, &
1062  bind(c, name="KIM_SPECIES_NAME_Am") &
1064 
1070  type(kim_species_name_type), protected, save, &
1071  bind(c, name="KIM_SPECIES_NAME_Cm") &
1073 
1079  type(kim_species_name_type), protected, save, &
1080  bind(c, name="KIM_SPECIES_NAME_Bk") &
1082 
1088  type(kim_species_name_type), protected, save, &
1089  bind(c, name="KIM_SPECIES_NAME_Cf") &
1091 
1097  type(kim_species_name_type), protected, save, &
1098  bind(c, name="KIM_SPECIES_NAME_Es") &
1100 
1106  type(kim_species_name_type), protected, save, &
1107  bind(c, name="KIM_SPECIES_NAME_Fm") &
1109 
1115  type(kim_species_name_type), protected, save, &
1116  bind(c, name="KIM_SPECIES_NAME_Md") &
1118 
1124  type(kim_species_name_type), protected, save, &
1125  bind(c, name="KIM_SPECIES_NAME_No") &
1127 
1133  type(kim_species_name_type), protected, save, &
1134  bind(c, name="KIM_SPECIES_NAME_Lr") &
1136 
1142  type(kim_species_name_type), protected, save, &
1143  bind(c, name="KIM_SPECIES_NAME_Rf") &
1145 
1151  type(kim_species_name_type), protected, save, &
1152  bind(c, name="KIM_SPECIES_NAME_Db") &
1154 
1160  type(kim_species_name_type), protected, save, &
1161  bind(c, name="KIM_SPECIES_NAME_Sg") &
1163 
1169  type(kim_species_name_type), protected, save, &
1170  bind(c, name="KIM_SPECIES_NAME_Bh") &
1172 
1178  type(kim_species_name_type), protected, save, &
1179  bind(c, name="KIM_SPECIES_NAME_Hs") &
1181 
1187  type(kim_species_name_type), protected, save, &
1188  bind(c, name="KIM_SPECIES_NAME_Mt") &
1190 
1196  type(kim_species_name_type), protected, save, &
1197  bind(c, name="KIM_SPECIES_NAME_Ds") &
1199 
1205  type(kim_species_name_type), protected, save, &
1206  bind(c, name="KIM_SPECIES_NAME_Rg") &
1208 
1214  type(kim_species_name_type), protected, save, &
1215  bind(c, name="KIM_SPECIES_NAME_Cn") &
1217 
1223  type(kim_species_name_type), protected, save, &
1224  bind(c, name="KIM_SPECIES_NAME_Nh") &
1226 
1232  type(kim_species_name_type), protected, save, &
1233  bind(c, name="KIM_SPECIES_NAME_Fl") &
1235 
1241  type(kim_species_name_type), protected, save, &
1242  bind(c, name="KIM_SPECIES_NAME_Mc") &
1244 
1250  type(kim_species_name_type), protected, save, &
1251  bind(c, name="KIM_SPECIES_NAME_Lv") &
1253 
1259  type(kim_species_name_type), protected, save, &
1260  bind(c, name="KIM_SPECIES_NAME_Ts") &
1262 
1268  type(kim_species_name_type), protected, save, &
1269  bind(c, name="KIM_SPECIES_NAME_Og") &
1271 
1277  type(kim_species_name_type), protected, save, &
1278  bind(c, name="KIM_SPECIES_NAME_user01") &
1280 
1286  type(kim_species_name_type), protected, save, &
1287  bind(c, name="KIM_SPECIES_NAME_user02") &
1289 
1295  type(kim_species_name_type), protected, save, &
1296  bind(c, name="KIM_SPECIES_NAME_user03") &
1298 
1304  type(kim_species_name_type), protected, save, &
1305  bind(c, name="KIM_SPECIES_NAME_user04") &
1307 
1313  type(kim_species_name_type), protected, save, &
1314  bind(c, name="KIM_SPECIES_NAME_user05") &
1316 
1322  type(kim_species_name_type), protected, save, &
1323  bind(c, name="KIM_SPECIES_NAME_user06") &
1325 
1331  type(kim_species_name_type), protected, save, &
1332  bind(c, name="KIM_SPECIES_NAME_user07") &
1334 
1340  type(kim_species_name_type), protected, save, &
1341  bind(c, name="KIM_SPECIES_NAME_user08") &
1343 
1349  type(kim_species_name_type), protected, save, &
1350  bind(c, name="KIM_SPECIES_NAME_user09") &
1352 
1358  type(kim_species_name_type), protected, save, &
1359  bind(c, name="KIM_SPECIES_NAME_user10") &
1361 
1367  type(kim_species_name_type), protected, save, &
1368  bind(c, name="KIM_SPECIES_NAME_user11") &
1370 
1376  type(kim_species_name_type), protected, save, &
1377  bind(c, name="KIM_SPECIES_NAME_user12") &
1379 
1385  type(kim_species_name_type), protected, save, &
1386  bind(c, name="KIM_SPECIES_NAME_user13") &
1388 
1394  type(kim_species_name_type), protected, save, &
1395  bind(c, name="KIM_SPECIES_NAME_user14") &
1397 
1403  type(kim_species_name_type), protected, save, &
1404  bind(c, name="KIM_SPECIES_NAME_user15") &
1406 
1412  type(kim_species_name_type), protected, save, &
1413  bind(c, name="KIM_SPECIES_NAME_user16") &
1415 
1421  type(kim_species_name_type), protected, save, &
1422  bind(c, name="KIM_SPECIES_NAME_user17") &
1424 
1430  type(kim_species_name_type), protected, save, &
1431  bind(c, name="KIM_SPECIES_NAME_user18") &
1433 
1439  type(kim_species_name_type), protected, save, &
1440  bind(c, name="KIM_SPECIES_NAME_user19") &
1442 
1448  type(kim_species_name_type), protected, save, &
1449  bind(c, name="KIM_SPECIES_NAME_user20") &
1451 
1457  interface kim_known
1458  module procedure kim_species_name_known
1459  end interface kim_known
1460 
1466  interface operator(.eq.)
1467  module procedure kim_species_name_equal
1468  end interface operator(.eq.)
1469 
1475  interface operator(.ne.)
1476  module procedure kim_species_name_not_equal
1477  end interface operator(.ne.)
1478 
1485  interface kim_from_string
1486  module procedure kim_species_name_from_string
1487  end interface kim_from_string
1488 
1494  interface kim_to_string
1495  module procedure kim_species_name_to_string
1496  end interface kim_to_string
1497 
1498 contains
1504  logical recursive function kim_species_name_known(species_name)
1505  implicit none
1506  interface
1507  integer(c_int) recursive function known(species_name) &
1508  bind(c, name="KIM_SpeciesName_Known")
1509  use, intrinsic :: iso_c_binding
1510  import kim_species_name_type
1511  implicit none
1512  type(kim_species_name_type), intent(in), value :: species_name
1513  end function known
1514  end interface
1515  type(kim_species_name_type), intent(in) :: species_name
1516 
1517  kim_species_name_known = (known(species_name) /= 0)
1518  end function kim_species_name_known
1519 
1525  logical recursive function kim_species_name_equal(lhs, rhs)
1526  implicit none
1527  type(kim_species_name_type), intent(in) :: lhs
1528  type(kim_species_name_type), intent(in) :: rhs
1529 
1530  kim_species_name_equal &
1531  = (lhs%species_name_id == rhs%species_name_id)
1532  end function kim_species_name_equal
1533 
1539  logical recursive function kim_species_name_not_equal(lhs, rhs)
1540  implicit none
1541  type(kim_species_name_type), intent(in) :: lhs
1542  type(kim_species_name_type), intent(in) :: rhs
1543 
1544  kim_species_name_not_equal = .not. (lhs == rhs)
1545  end function kim_species_name_not_equal
1546 
1553  recursive subroutine kim_species_name_from_string(string, species_name)
1554  implicit none
1555  interface
1556  type(kim_species_name_type) recursive function from_string(string) &
1557  bind(c, name="KIM_SpeciesName_FromString")
1558  use, intrinsic :: iso_c_binding
1559  import kim_species_name_type
1560  implicit none
1561  character(c_char), intent(in) :: string(*)
1562  end function from_string
1563  end interface
1564  character(len=*, kind=c_char), intent(in) :: string
1565  type(kim_species_name_type), intent(out) :: species_name
1566 
1567  species_name = from_string(trim(string)//c_null_char)
1568  end subroutine kim_species_name_from_string
1569 
1575  recursive subroutine kim_species_name_to_string(species_name, string)
1576  use kim_convert_string_module, only: kim_convert_c_char_ptr_to_string
1577  implicit none
1578  interface
1579  type(c_ptr) recursive function get_string(species_name) &
1580  bind(c, name="KIM_SpeciesName_ToString")
1581  use, intrinsic :: iso_c_binding
1582  import kim_species_name_type
1583  implicit none
1584  type(kim_species_name_type), intent(in), value :: species_name
1585  end function get_string
1586  end interface
1587  type(kim_species_name_type), intent(in) :: species_name
1588  character(len=*, kind=c_char), intent(out) :: string
1589 
1590  type(c_ptr) :: p
1591 
1592  p = get_string(species_name)
1593  call kim_convert_c_char_ptr_to_string(p, string)
1594  end subroutine kim_species_name_to_string
1595 
1602  recursive subroutine kim_get_number_of_species_names(number_of_species_names)
1603  implicit none
1604  interface
1605  recursive subroutine get_number_of_species_names( &
1606  number_of_species_names) &
1607  bind(c, name="KIM_SPECIES_NAME_GetNumberOfSpeciesNames")
1608  use, intrinsic :: iso_c_binding
1609  implicit none
1610  integer(c_int), intent(out) :: number_of_species_names
1611  end subroutine get_number_of_species_names
1612  end interface
1613  integer(c_int), intent(out) :: number_of_species_names
1614 
1615  call get_number_of_species_names(number_of_species_names)
1616  end subroutine kim_get_number_of_species_names
1617 
1623  recursive subroutine kim_get_species_name(index, species_name, ierr)
1624  implicit none
1625  interface
1626  integer(c_int) recursive function get_species_name(index, species_name) &
1627  bind(c, name="KIM_SPECIES_NAME_GetSpeciesName")
1628  use, intrinsic :: iso_c_binding
1629  import kim_species_name_type
1630  implicit none
1631  integer(c_int), intent(in), value :: index
1632  type(kim_species_name_type), intent(out) :: species_name
1633  end function get_species_name
1634  end interface
1635  integer(c_int), intent(in) :: index
1636  type(kim_species_name_type), intent(out) :: species_name
1637  integer(c_int), intent(out) :: ierr
1638 
1639  ierr = get_species_name(index - 1, species_name)
1640  end subroutine kim_get_species_name
1641 end module kim_species_name_module
type(kim_species_name_type), save, public, protected kim_species_name_ar
type(kim_species_name_type), save, public, protected kim_species_name_as
type(kim_species_name_type), save, public, protected kim_species_name_mo
type(kim_species_name_type), save, public, protected kim_species_name_nb
type(kim_species_name_type), save, public, protected kim_species_name_bk
type(kim_species_name_type), save, public, protected kim_species_name_ti
type(kim_species_name_type), save, public, protected kim_species_name_pb
type(kim_species_name_type), save, public, protected kim_species_name_sn
type(kim_species_name_type), save, public, protected kim_species_name_cr
type(kim_species_name_type), save, public, protected kim_species_name_db
type(kim_species_name_type), save, public, protected kim_species_name_lr
type(kim_species_name_type), save, public, protected kim_species_name_rg
type(kim_species_name_type), save, public, protected kim_species_name_ds
type(kim_species_name_type), save, public, protected kim_species_name_sm
type(kim_species_name_type), save, public, protected kim_species_name_rf
type(kim_species_name_type), save, public, protected kim_species_name_bh
type(kim_species_name_type), save, public, protected kim_species_name_y
type(kim_species_name_type), save, public, protected kim_species_name_th
type(kim_species_name_type), save, public, protected kim_species_name_user14
type(kim_species_name_type), save, public, protected kim_species_name_mt
type(kim_species_name_type), save, public, protected kim_species_name_ga
type(kim_species_name_type), save, public, protected kim_species_name_user02
type(kim_species_name_type), save, public, protected kim_species_name_ra
type(kim_species_name_type), save, public, protected kim_species_name_c
type(kim_species_name_type), save, public, protected kim_species_name_na
type(kim_species_name_type), save, public, protected kim_species_name_user15
type(kim_species_name_type), save, public, protected kim_species_name_np
type(kim_species_name_type), save, public, protected kim_species_name_at
recursive subroutine, public kim_get_number_of_species_names(number_of_species_names)
Get the number of standard SpeciesName's defined by the KIM API.
type(kim_species_name_type), save, public, protected kim_species_name_b
type(kim_species_name_type), save, public, protected kim_species_name_li
type(kim_species_name_type), save, public, protected kim_species_name_tl
type(kim_species_name_type), save, public, protected kim_species_name_user08
type(kim_species_name_type), save, public, protected kim_species_name_user07
type(kim_species_name_type), save, public, protected kim_species_name_ce
type(kim_species_name_type), save, public, protected kim_species_name_rh
type(kim_species_name_type), save, public, protected kim_species_name_cn
type(kim_species_name_type), save, public, protected kim_species_name_mc
type(kim_species_name_type), save, public, protected kim_species_name_be
type(kim_species_name_type), save, public, protected kim_species_name_mg
type(kim_species_name_type), save, public, protected kim_species_name_user06
type(kim_species_name_type), save, public, protected kim_species_name_user11
type(kim_species_name_type), save, public, protected kim_species_name_sg
type(kim_species_name_type), save, public, protected kim_species_name_user19
type(kim_species_name_type), save, public, protected kim_species_name_br
type(kim_species_name_type), save, public, protected kim_species_name_am
type(kim_species_name_type), save, public, protected kim_species_name_ir
type(kim_species_name_type), save, public, protected kim_species_name_cs
type(kim_species_name_type), save, public, protected kim_species_name_i
type(kim_species_name_type), save, public, protected kim_species_name_ag
type(kim_species_name_type), save, public, protected kim_species_name_hs
type(kim_species_name_type), save, public, protected kim_species_name_yb
type(kim_species_name_type), save, public, protected kim_species_name_s
type(kim_species_name_type), save, public, protected kim_species_name_hf
type(kim_species_name_type), save, public, protected kim_species_name_user10
type(kim_species_name_type), save, public, protected kim_species_name_user01
type(kim_species_name_type), save, public, protected kim_species_name_au
type(kim_species_name_type), save, public, protected kim_species_name_mn
type(kim_species_name_type), save, public, protected kim_species_name_zr
type(kim_species_name_type), save, public, protected kim_species_name_co
type(kim_species_name_type), save, public, protected kim_species_name_user05
type(kim_species_name_type), save, public, protected kim_species_name_lv
type(kim_species_name_type), save, public, protected kim_species_name_xe
type(kim_species_name_type), save, public, protected kim_species_name_ni
type(kim_species_name_type), save, public, protected kim_species_name_tm
type(kim_species_name_type), save, public, protected kim_species_name_al
type(kim_species_name_type), save, public, protected kim_species_name_ta
type(kim_species_name_type), save, public, protected kim_species_name_rb
type(kim_species_name_type), save, public, protected kim_species_name_pt
type(kim_species_name_type), save, public, protected kim_species_name_rn
type(kim_species_name_type), save, public, protected kim_species_name_fm
type(kim_species_name_type), save, public, protected kim_species_name_ge
type(kim_species_name_type), save, public, protected kim_species_name_cd
type(kim_species_name_type), save, public, protected kim_species_name_pr
type(kim_species_name_type), save, public, protected kim_species_name_ru
type(kim_species_name_type), save, public, protected kim_species_name_no
type(kim_species_name_type), save, public, protected kim_species_name_n
type(kim_species_name_type), save, public, protected kim_species_name_kr
An Extensible Enumeration for the SpeciesName's supported by the KIM API.
type(kim_species_name_type), save, public, protected kim_species_name_fe
type(kim_species_name_type), save, public, protected kim_species_name_pd
type(kim_species_name_type), save, public, protected kim_species_name_hg
type(kim_species_name_type), save, public, protected kim_species_name_bi
type(kim_species_name_type), save, public, protected kim_species_name_sr
type(kim_species_name_type), save, public, protected kim_species_name_tb
type(kim_species_name_type), save, public, protected kim_species_name_cm
type(kim_species_name_type), save, public, protected kim_species_name_in
type(kim_species_name_type), save, public, protected kim_species_name_es
type(kim_species_name_type), save, public, protected kim_species_name_fl
type(kim_species_name_type), save, public, protected kim_species_name_ne
type(kim_species_name_type), save, public, protected kim_species_name_tc
type(kim_species_name_type), save, public, protected kim_species_name_ca
type(kim_species_name_type), save, public, protected kim_species_name_te
type(kim_species_name_type), save, public, protected kim_species_name_re
type(kim_species_name_type), save, public, protected kim_species_name_si
type(kim_species_name_type), save, public, protected kim_species_name_user18
type(kim_species_name_type), save, public, protected kim_species_name_user12
type(kim_species_name_type), save, public, protected kim_species_name_he
type(kim_species_name_type), save, public, protected kim_species_name_po
type(kim_species_name_type), save, public, protected kim_species_name_user03
type(kim_species_name_type), save, public, protected kim_species_name_os
type(kim_species_name_type), save, public, protected kim_species_name_user17
type(kim_species_name_type), save, public, protected kim_species_name_lu
type(kim_species_name_type), save, public, protected kim_species_name_user04
type(kim_species_name_type), save, public, protected kim_species_name_md
type(kim_species_name_type), save, public, protected kim_species_name_nd
type(kim_species_name_type), save, public, protected kim_species_name_fr
type(kim_species_name_type), save, public, protected kim_species_name_ts
type(kim_species_name_type), save, public, protected kim_species_name_ac
type(kim_species_name_type), save, public, protected kim_species_name_h
type(kim_species_name_type), save, public, protected kim_species_name_gd
type(kim_species_name_type), save, public, protected kim_species_name_ho
type(kim_species_name_type), save, public, protected kim_species_name_cl
type(kim_species_name_type), save, public, protected kim_species_name_se
type(kim_species_name_type), save, public, protected kim_species_name_v
type(kim_species_name_type), save, public, protected kim_species_name_sb
type(kim_species_name_type), save, public, protected kim_species_name_eu
type(kim_species_name_type), save, public, protected kim_species_name_la
type(kim_species_name_type), save, public, protected kim_species_name_cu
type(kim_species_name_type), save, public, protected kim_species_name_zn
type(kim_species_name_type), save, public, protected kim_species_name_user13
type(kim_species_name_type), save, public, protected kim_species_name_f
type(kim_species_name_type), save, public, protected kim_species_name_nh
type(kim_species_name_type), save, public, protected kim_species_name_sc
recursive subroutine, public kim_get_species_name(index, species_name, ierr)
Get the identity of each defined standard SpeciesName.
type(kim_species_name_type), save, public, protected kim_species_name_electron
type(kim_species_name_type), save, public, protected kim_species_name_dy
type(kim_species_name_type), save, public, protected kim_species_name_user16
type(kim_species_name_type), save, public, protected kim_species_name_ba
type(kim_species_name_type), save, public, protected kim_species_name_pu
type(kim_species_name_type), save, public, protected kim_species_name_p
type(kim_species_name_type), save, public, protected kim_species_name_u
type(kim_species_name_type), save, public, protected kim_species_name_w
type(kim_species_name_type), save, public, protected kim_species_name_cf
type(kim_species_name_type), save, public, protected kim_species_name_k
type(kim_species_name_type), save, public, protected kim_species_name_pm
type(kim_species_name_type), save, public, protected kim_species_name_er
type(kim_species_name_type), save, public, protected kim_species_name_pa
type(kim_species_name_type), save, public, protected kim_species_name_og
type(kim_species_name_type), save, public, protected kim_species_name_user09
type(kim_species_name_type), save, public, protected kim_species_name_user20
type(kim_species_name_type), save, public, protected kim_species_name_o