kim-api  2.1.4-git+v2.1.3-git-1-g7847914a.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 ! CDDL HEADER START
3 !
4 ! The contents of this file are subject to the terms of the Common Development
5 ! and Distribution License Version 1.0 (the "License").
6 !
7 ! You can obtain a copy of the license at
8 ! http://www.opensource.org/licenses/CDDL-1.0. See the License for the
9 ! specific language governing permissions and limitations under the License.
10 !
11 ! When distributing Covered Code, include this CDDL HEADER in each file and
12 ! include the License file in a prominent location with the name LICENSE.CDDL.
13 ! If applicable, add the following below this CDDL HEADER, with the fields
14 ! enclosed by brackets "[]" replaced with your own identifying information:
15 !
16 ! Portions Copyright (c) [yyyy] [name of copyright owner]. All rights reserved.
17 !
18 ! CDDL HEADER END
19 !
20 
21 !
22 ! Copyright (c) 2016--2019, Regents of the University of Minnesota.
23 ! All rights reserved.
24 !
25 ! Contributors:
26 ! Ryan S. Elliott
27 !
28 
29 !
30 ! Release: This file is part of the kim-api.git repository.
31 !
32 
33 
40  use, intrinsic :: iso_c_binding
41  implicit none
42  private
43 
44  public &
45  ! Derived types
46  kim_species_name_type, &
47 
48  ! Constants
188 
189  ! Routines
190  kim_known, &
191  operator (.eq.), &
192  operator (.ne.), &
193  kim_from_string, &
194  kim_to_string, &
197 
198 
204  type, bind(c) :: kim_species_name_type
205  integer(c_int) species_name_id
206  end type kim_species_name_type
207 
213  type(kim_species_name_type), protected, save, &
214  bind(c, name="KIM_SPECIES_NAME_electron") &
216 
222  type(kim_species_name_type), protected, save, &
223  bind(c, name="KIM_SPECIES_NAME_H") &
225 
231  type(kim_species_name_type), protected, save, &
232  bind(c, name="KIM_SPECIES_NAME_He") &
234 
240  type(kim_species_name_type), protected, save, &
241  bind(c, name="KIM_SPECIES_NAME_Li") &
243 
249  type(kim_species_name_type), protected, save, &
250  bind(c, name="KIM_SPECIES_NAME_Be") &
252 
258  type(kim_species_name_type), protected, save, &
259  bind(c, name="KIM_SPECIES_NAME_B") &
261 
267  type(kim_species_name_type), protected, save, &
268  bind(c, name="KIM_SPECIES_NAME_C") &
270 
276  type(kim_species_name_type), protected, save, &
277  bind(c, name="KIM_SPECIES_NAME_N") &
279 
285  type(kim_species_name_type), protected, save, &
286  bind(c, name="KIM_SPECIES_NAME_O") &
288 
294  type(kim_species_name_type), protected, save, &
295  bind(c, name="KIM_SPECIES_NAME_F") &
297 
303  type(kim_species_name_type), protected, save, &
304  bind(c, name="KIM_SPECIES_NAME_Ne") &
306 
312  type(kim_species_name_type), protected, save, &
313  bind(c, name="KIM_SPECIES_NAME_Na") &
315 
321  type(kim_species_name_type), protected, save, &
322  bind(c, name="KIM_SPECIES_NAME_Mg") &
324 
330  type(kim_species_name_type), protected, save, &
331  bind(c, name="KIM_SPECIES_NAME_Al") &
333 
339  type(kim_species_name_type), protected, save, &
340  bind(c, name="KIM_SPECIES_NAME_Si") &
342 
348  type(kim_species_name_type), protected, save, &
349  bind(c, name="KIM_SPECIES_NAME_P") &
351 
357  type(kim_species_name_type), protected, save, &
358  bind(c, name="KIM_SPECIES_NAME_S") &
360 
366  type(kim_species_name_type), protected, save, &
367  bind(c, name="KIM_SPECIES_NAME_Cl") &
369 
375  type(kim_species_name_type), protected, save, &
376  bind(c, name="KIM_SPECIES_NAME_Ar") &
378 
384  type(kim_species_name_type), protected, save, &
385  bind(c, name="KIM_SPECIES_NAME_K") &
387 
393  type(kim_species_name_type), protected, save, &
394  bind(c, name="KIM_SPECIES_NAME_Ca") &
396 
402  type(kim_species_name_type), protected, save, &
403  bind(c, name="KIM_SPECIES_NAME_Sc") &
405 
411  type(kim_species_name_type), protected, save, &
412  bind(c, name="KIM_SPECIES_NAME_Ti") &
414 
420  type(kim_species_name_type), protected, save, &
421  bind(c, name="KIM_SPECIES_NAME_V") &
423 
429  type(kim_species_name_type), protected, save, &
430  bind(c, name="KIM_SPECIES_NAME_Cr") &
432 
438  type(kim_species_name_type), protected, save, &
439  bind(c, name="KIM_SPECIES_NAME_Mn") &
441 
447  type(kim_species_name_type), protected, save, &
448  bind(c, name="KIM_SPECIES_NAME_Fe") &
450 
456  type(kim_species_name_type), protected, save, &
457  bind(c, name="KIM_SPECIES_NAME_Co") &
459 
465  type(kim_species_name_type), protected, save, &
466  bind(c, name="KIM_SPECIES_NAME_Ni") &
468 
474  type(kim_species_name_type), protected, save, &
475  bind(c, name="KIM_SPECIES_NAME_Cu") &
477 
483  type(kim_species_name_type), protected, save, &
484  bind(c, name="KIM_SPECIES_NAME_Zn") &
486 
492  type(kim_species_name_type), protected, save, &
493  bind(c, name="KIM_SPECIES_NAME_Ga") &
495 
501  type(kim_species_name_type), protected, save, &
502  bind(c, name="KIM_SPECIES_NAME_Ge") &
504 
510  type(kim_species_name_type), protected, save, &
511  bind(c, name="KIM_SPECIES_NAME_As") &
513 
519  type(kim_species_name_type), protected, save, &
520  bind(c, name="KIM_SPECIES_NAME_Se") &
522 
528  type(kim_species_name_type), protected, save, &
529  bind(c, name="KIM_SPECIES_NAME_Br") &
531 
537  type(kim_species_name_type), protected, save, &
538  bind(c, name="KIM_SPECIES_NAME_Kr") &
540 
546  type(kim_species_name_type), protected, save, &
547  bind(c, name="KIM_SPECIES_NAME_Rb") &
549 
555  type(kim_species_name_type), protected, save, &
556  bind(c, name="KIM_SPECIES_NAME_Sr") &
558 
564  type(kim_species_name_type), protected, save, &
565  bind(c, name="KIM_SPECIES_NAME_Y") &
567 
573  type(kim_species_name_type), protected, save, &
574  bind(c, name="KIM_SPECIES_NAME_Zr") &
576 
582  type(kim_species_name_type), protected, save, &
583  bind(c, name="KIM_SPECIES_NAME_Nb") &
585 
591  type(kim_species_name_type), protected, save, &
592  bind(c, name="KIM_SPECIES_NAME_Mo") &
594 
600  type(kim_species_name_type), protected, save, &
601  bind(c, name="KIM_SPECIES_NAME_Tc") &
603 
609  type(kim_species_name_type), protected, save, &
610  bind(c, name="KIM_SPECIES_NAME_Ru") &
612 
618  type(kim_species_name_type), protected, save, &
619  bind(c, name="KIM_SPECIES_NAME_Rh") &
621 
627  type(kim_species_name_type), protected, save, &
628  bind(c, name="KIM_SPECIES_NAME_Pd") &
630 
636  type(kim_species_name_type), protected, save, &
637  bind(c, name="KIM_SPECIES_NAME_Ag") &
639 
645  type(kim_species_name_type), protected, save, &
646  bind(c, name="KIM_SPECIES_NAME_Cd") &
648 
654  type(kim_species_name_type), protected, save, &
655  bind(c, name="KIM_SPECIES_NAME_In") &
657 
663  type(kim_species_name_type), protected, save, &
664  bind(c, name="KIM_SPECIES_NAME_Sn") &
666 
672  type(kim_species_name_type), protected, save, &
673  bind(c, name="KIM_SPECIES_NAME_Sb") &
675 
681  type(kim_species_name_type), protected, save, &
682  bind(c, name="KIM_SPECIES_NAME_Te") &
684 
690  type(kim_species_name_type), protected, save, &
691  bind(c, name="KIM_SPECIES_NAME_I") &
693 
699  type(kim_species_name_type), protected, save, &
700  bind(c, name="KIM_SPECIES_NAME_Xe") &
702 
708  type(kim_species_name_type), protected, save, &
709  bind(c, name="KIM_SPECIES_NAME_Cs") &
711 
717  type(kim_species_name_type), protected, save, &
718  bind(c, name="KIM_SPECIES_NAME_Ba") &
720 
726  type(kim_species_name_type), protected, save, &
727  bind(c, name="KIM_SPECIES_NAME_La") &
729 
735  type(kim_species_name_type), protected, save, &
736  bind(c, name="KIM_SPECIES_NAME_Ce") &
738 
744  type(kim_species_name_type), protected, save, &
745  bind(c, name="KIM_SPECIES_NAME_Pr") &
747 
753  type(kim_species_name_type), protected, save, &
754  bind(c, name="KIM_SPECIES_NAME_Nd") &
756 
762  type(kim_species_name_type), protected, save, &
763  bind(c, name="KIM_SPECIES_NAME_Pm") &
765 
771  type(kim_species_name_type), protected, save, &
772  bind(c, name="KIM_SPECIES_NAME_Sm") &
774 
780  type(kim_species_name_type), protected, save, &
781  bind(c, name="KIM_SPECIES_NAME_Eu") &
783 
789  type(kim_species_name_type), protected, save, &
790  bind(c, name="KIM_SPECIES_NAME_Gd") &
792 
798  type(kim_species_name_type), protected, save, &
799  bind(c, name="KIM_SPECIES_NAME_Tb") &
801 
807  type(kim_species_name_type), protected, save, &
808  bind(c, name="KIM_SPECIES_NAME_Dy") &
810 
816  type(kim_species_name_type), protected, save, &
817  bind(c, name="KIM_SPECIES_NAME_Ho") &
819 
825  type(kim_species_name_type), protected, save, &
826  bind(c, name="KIM_SPECIES_NAME_Er") &
828 
834  type(kim_species_name_type), protected, save, &
835  bind(c, name="KIM_SPECIES_NAME_Tm") &
837 
843  type(kim_species_name_type), protected, save, &
844  bind(c, name="KIM_SPECIES_NAME_Yb") &
846 
852  type(kim_species_name_type), protected, save, &
853  bind(c, name="KIM_SPECIES_NAME_Lu") &
855 
861  type(kim_species_name_type), protected, save, &
862  bind(c, name="KIM_SPECIES_NAME_Hf") &
864 
870  type(kim_species_name_type), protected, save, &
871  bind(c, name="KIM_SPECIES_NAME_Ta") &
873 
879  type(kim_species_name_type), protected, save, &
880  bind(c, name="KIM_SPECIES_NAME_W") &
882 
888  type(kim_species_name_type), protected, save, &
889  bind(c, name="KIM_SPECIES_NAME_Re") &
891 
897  type(kim_species_name_type), protected, save, &
898  bind(c, name="KIM_SPECIES_NAME_Os") &
900 
906  type(kim_species_name_type), protected, save, &
907  bind(c, name="KIM_SPECIES_NAME_Ir") &
909 
915  type(kim_species_name_type), protected, save, &
916  bind(c, name="KIM_SPECIES_NAME_Pt") &
918 
924  type(kim_species_name_type), protected, save, &
925  bind(c, name="KIM_SPECIES_NAME_Au") &
927 
933  type(kim_species_name_type), protected, save, &
934  bind(c, name="KIM_SPECIES_NAME_Hg") &
936 
942  type(kim_species_name_type), protected, save, &
943  bind(c, name="KIM_SPECIES_NAME_Tl") &
945 
951  type(kim_species_name_type), protected, save, &
952  bind(c, name="KIM_SPECIES_NAME_Pb") &
954 
960  type(kim_species_name_type), protected, save, &
961  bind(c, name="KIM_SPECIES_NAME_Bi") &
963 
969  type(kim_species_name_type), protected, save, &
970  bind(c, name="KIM_SPECIES_NAME_Po") &
972 
978  type(kim_species_name_type), protected, save, &
979  bind(c, name="KIM_SPECIES_NAME_At") &
981 
987  type(kim_species_name_type), protected, save, &
988  bind(c, name="KIM_SPECIES_NAME_Rn") &
990 
996  type(kim_species_name_type), protected, save, &
997  bind(c, name="KIM_SPECIES_NAME_Fr") &
999 
1005  type(kim_species_name_type), protected, save, &
1006  bind(c, name="KIM_SPECIES_NAME_Ra") &
1008 
1014  type(kim_species_name_type), protected, save, &
1015  bind(c, name="KIM_SPECIES_NAME_Ac") &
1017 
1023  type(kim_species_name_type), protected, save, &
1024  bind(c, name="KIM_SPECIES_NAME_Th") &
1026 
1032  type(kim_species_name_type), protected, save, &
1033  bind(c, name="KIM_SPECIES_NAME_Pa") &
1035 
1041  type(kim_species_name_type), protected, save, &
1042  bind(c, name="KIM_SPECIES_NAME_U") &
1044 
1050  type(kim_species_name_type), protected, save, &
1051  bind(c, name="KIM_SPECIES_NAME_Np") &
1053 
1059  type(kim_species_name_type), protected, save, &
1060  bind(c, name="KIM_SPECIES_NAME_Pu") &
1062 
1068  type(kim_species_name_type), protected, save, &
1069  bind(c, name="KIM_SPECIES_NAME_Am") &
1071 
1077  type(kim_species_name_type), protected, save, &
1078  bind(c, name="KIM_SPECIES_NAME_Cm") &
1080 
1086  type(kim_species_name_type), protected, save, &
1087  bind(c, name="KIM_SPECIES_NAME_Bk") &
1089 
1095  type(kim_species_name_type), protected, save, &
1096  bind(c, name="KIM_SPECIES_NAME_Cf") &
1098 
1104  type(kim_species_name_type), protected, save, &
1105  bind(c, name="KIM_SPECIES_NAME_Es") &
1107 
1113  type(kim_species_name_type), protected, save, &
1114  bind(c, name="KIM_SPECIES_NAME_Fm") &
1116 
1122  type(kim_species_name_type), protected, save, &
1123  bind(c, name="KIM_SPECIES_NAME_Md") &
1125 
1131  type(kim_species_name_type), protected, save, &
1132  bind(c, name="KIM_SPECIES_NAME_No") &
1134 
1140  type(kim_species_name_type), protected, save, &
1141  bind(c, name="KIM_SPECIES_NAME_Lr") &
1143 
1149  type(kim_species_name_type), protected, save, &
1150  bind(c, name="KIM_SPECIES_NAME_Rf") &
1152 
1158  type(kim_species_name_type), protected, save, &
1159  bind(c, name="KIM_SPECIES_NAME_Db") &
1161 
1167  type(kim_species_name_type), protected, save, &
1168  bind(c, name="KIM_SPECIES_NAME_Sg") &
1170 
1176  type(kim_species_name_type), protected, save, &
1177  bind(c, name="KIM_SPECIES_NAME_Bh") &
1179 
1185  type(kim_species_name_type), protected, save, &
1186  bind(c, name="KIM_SPECIES_NAME_Hs") &
1188 
1194  type(kim_species_name_type), protected, save, &
1195  bind(c, name="KIM_SPECIES_NAME_Mt") &
1197 
1203  type(kim_species_name_type), protected, save, &
1204  bind(c, name="KIM_SPECIES_NAME_Ds") &
1206 
1212  type(kim_species_name_type), protected, save, &
1213  bind(c, name="KIM_SPECIES_NAME_Rg") &
1215 
1221  type(kim_species_name_type), protected, save, &
1222  bind(c, name="KIM_SPECIES_NAME_Cn") &
1224 
1230  type(kim_species_name_type), protected, save, &
1231  bind(c, name="KIM_SPECIES_NAME_Nh") &
1233 
1239  type(kim_species_name_type), protected, save, &
1240  bind(c, name="KIM_SPECIES_NAME_Fl") &
1242 
1248  type(kim_species_name_type), protected, save, &
1249  bind(c, name="KIM_SPECIES_NAME_Mc") &
1251 
1257  type(kim_species_name_type), protected, save, &
1258  bind(c, name="KIM_SPECIES_NAME_Lv") &
1260 
1266  type(kim_species_name_type), protected, save, &
1267  bind(c, name="KIM_SPECIES_NAME_Ts") &
1269 
1275  type(kim_species_name_type), protected, save, &
1276  bind(c, name="KIM_SPECIES_NAME_Og") &
1278 
1284  type(kim_species_name_type), protected, save, &
1285  bind(c, name="KIM_SPECIES_NAME_user01") &
1287 
1293  type(kim_species_name_type), protected, save, &
1294  bind(c, name="KIM_SPECIES_NAME_user02") &
1296 
1302  type(kim_species_name_type), protected, save, &
1303  bind(c, name="KIM_SPECIES_NAME_user03") &
1305 
1311  type(kim_species_name_type), protected, save, &
1312  bind(c, name="KIM_SPECIES_NAME_user04") &
1314 
1320  type(kim_species_name_type), protected, save, &
1321  bind(c, name="KIM_SPECIES_NAME_user05") &
1323 
1329  type(kim_species_name_type), protected, save, &
1330  bind(c, name="KIM_SPECIES_NAME_user06") &
1332 
1338  type(kim_species_name_type), protected, save, &
1339  bind(c, name="KIM_SPECIES_NAME_user07") &
1341 
1347  type(kim_species_name_type), protected, save, &
1348  bind(c, name="KIM_SPECIES_NAME_user08") &
1350 
1356  type(kim_species_name_type), protected, save, &
1357  bind(c, name="KIM_SPECIES_NAME_user09") &
1359 
1365  type(kim_species_name_type), protected, save, &
1366  bind(c, name="KIM_SPECIES_NAME_user10") &
1368 
1374  type(kim_species_name_type), protected, save, &
1375  bind(c, name="KIM_SPECIES_NAME_user11") &
1377 
1383  type(kim_species_name_type), protected, save, &
1384  bind(c, name="KIM_SPECIES_NAME_user12") &
1386 
1392  type(kim_species_name_type), protected, save, &
1393  bind(c, name="KIM_SPECIES_NAME_user13") &
1395 
1401  type(kim_species_name_type), protected, save, &
1402  bind(c, name="KIM_SPECIES_NAME_user14") &
1404 
1410  type(kim_species_name_type), protected, save, &
1411  bind(c, name="KIM_SPECIES_NAME_user15") &
1413 
1419  type(kim_species_name_type), protected, save, &
1420  bind(c, name="KIM_SPECIES_NAME_user16") &
1422 
1428  type(kim_species_name_type), protected, save, &
1429  bind(c, name="KIM_SPECIES_NAME_user17") &
1431 
1437  type(kim_species_name_type), protected, save, &
1438  bind(c, name="KIM_SPECIES_NAME_user18") &
1440 
1446  type(kim_species_name_type), protected, save, &
1447  bind(c, name="KIM_SPECIES_NAME_user19") &
1449 
1455  type(kim_species_name_type), protected, save, &
1456  bind(c, name="KIM_SPECIES_NAME_user20") &
1458 
1459 
1465  interface kim_known
1466  module procedure kim_species_name_known
1467  end interface kim_known
1468 
1474  interface operator (.eq.)
1475  module procedure kim_species_name_equal
1476  end interface operator (.eq.)
1477 
1483  interface operator (.ne.)
1484  module procedure kim_species_name_not_equal
1485  end interface operator (.ne.)
1486 
1493  interface kim_from_string
1494  module procedure kim_species_name_from_string
1495  end interface kim_from_string
1496 
1502  interface kim_to_string
1503  module procedure kim_species_name_to_string
1504  end interface kim_to_string
1505 
1506 contains
1512  logical recursive function kim_species_name_known(species_name)
1513  implicit none
1514  interface
1515  integer(c_int) recursive function known(species_name) &
1516  bind(c, name="KIM_SpeciesName_Known")
1517  use, intrinsic :: iso_c_binding
1518  import kim_species_name_type
1519  implicit none
1520  type(kim_species_name_type), intent(in), value :: species_name
1521  end function known
1522  end interface
1523  type(kim_species_name_type), intent(in) :: species_name
1524 
1525  kim_species_name_known = (known(species_name) /= 0)
1526  end function kim_species_name_known
1527 
1533  logical recursive function kim_species_name_equal(lhs, rhs)
1534  implicit none
1535  type(kim_species_name_type), intent(in) :: lhs
1536  type(kim_species_name_type), intent(in) :: rhs
1537 
1538  kim_species_name_equal &
1539  = (lhs%species_name_id .eq. rhs%species_name_id)
1540  end function kim_species_name_equal
1541 
1547  logical recursive function kim_species_name_not_equal(lhs, rhs)
1548  implicit none
1549  type(kim_species_name_type), intent(in) :: lhs
1550  type(kim_species_name_type), intent(in) :: rhs
1551 
1552  kim_species_name_not_equal = .not. (lhs .eq. rhs)
1553  end function kim_species_name_not_equal
1554 
1561  recursive subroutine kim_species_name_from_string(string, species_name)
1562  implicit none
1563  interface
1564  type(kim_species_name_type) recursive function from_string(string) &
1565  bind(c, name="KIM_SpeciesName_FromString")
1566  use, intrinsic :: iso_c_binding
1567  import kim_species_name_type
1568  implicit none
1569  character(c_char), intent(in) :: string(*)
1570  end function from_string
1571  end interface
1572  character(len=*, kind=c_char), intent(in) :: string
1573  type(kim_species_name_type), intent(out) :: species_name
1574 
1575  species_name = from_string(trim(string)//c_null_char)
1576  end subroutine kim_species_name_from_string
1577 
1583  recursive subroutine kim_species_name_to_string(species_name, string)
1584  use kim_convert_string_module, only : kim_convert_c_char_ptr_to_string
1585  implicit none
1586  interface
1587  type(c_ptr) recursive function get_string(species_name) &
1588  bind(c, name="KIM_SpeciesName_ToString")
1589  use, intrinsic :: iso_c_binding
1590  import kim_species_name_type
1591  implicit none
1592  type(kim_species_name_type), intent(in), value :: species_name
1593  end function get_string
1594  end interface
1595  type(kim_species_name_type), intent(in) :: species_name
1596  character(len=*, kind=c_char), intent(out) :: string
1597 
1598  type(c_ptr) :: p
1599 
1600  p = get_string(species_name)
1601  call kim_convert_c_char_ptr_to_string(p, string)
1602  end subroutine kim_species_name_to_string
1603 
1610  recursive subroutine kim_get_number_of_species_names(number_of_species_names)
1611  implicit none
1612  interface
1613  recursive subroutine get_number_of_species_names( &
1614  number_of_species_names) &
1615  bind(c, name="KIM_SPECIES_NAME_GetNumberOfSpeciesNames")
1616  use, intrinsic :: iso_c_binding
1617  implicit none
1618  integer(c_int), intent(out) :: number_of_species_names
1619  end subroutine get_number_of_species_names
1620  end interface
1621  integer(c_int), intent(out) :: number_of_species_names
1622 
1623  call get_number_of_species_names(number_of_species_names)
1624  end subroutine kim_get_number_of_species_names
1625 
1631  recursive subroutine kim_get_species_name(index, species_name, ierr)
1632  implicit none
1633  interface
1634  integer(c_int) recursive function get_species_name(index, species_name) &
1635  bind(c, name="KIM_SPECIES_NAME_GetSpeciesName")
1636  use, intrinsic :: iso_c_binding
1637  import kim_species_name_type
1638  implicit none
1639  integer(c_int), intent(in), value :: index
1640  type(kim_species_name_type), intent(out) :: species_name
1641  end function get_species_name
1642  end interface
1643  integer(c_int), intent(in) :: index
1644  type(kim_species_name_type), intent(out) :: species_name
1645  integer(c_int), intent(out) :: ierr
1646 
1647  ierr = get_species_name(index-1, species_name)
1648  end subroutine kim_get_species_name
1649 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