kim-api 2.3.0+AppleClang.AppleClang.GNU
An Application Programming Interface (API) for the Knowledgebase of Interatomic Models (KIM).
Loading...
Searching...
No Matches
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
43 ! Constants
183 ! Routines
184 kim_known, &
185 operator(.eq.), &
186 operator(.ne.), &
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
1486 module procedure kim_species_name_from_string
1487 end interface kim_from_string
1488
1495 module procedure kim_species_name_to_string
1496 end interface kim_to_string
1497
1498contains
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
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
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
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
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
1641end module kim_species_name_module
Create a SpeciesName object corresponding to the provided string. If the string does not match one of...
Determines if the object is a quantity known to the KIM API.
An Extensible Enumeration for the SpeciesName's supported by the KIM API.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Xe"), public, protected kim_species_name_xe
The standard Xenon species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user11"), public, protected kim_species_name_user11
The standard user11 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Cf"), public, protected kim_species_name_cf
The standard Californium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user13"), public, protected kim_species_name_user13
The standard user13 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Cu"), public, protected kim_species_name_cu
The standard Copper species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Nb"), public, protected kim_species_name_nb
The standard Niobium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ce"), public, protected kim_species_name_ce
The standard Cerium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_In"), public, protected kim_species_name_in
The standard Indium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Hf"), public, protected kim_species_name_hf
The standard Hafnium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user03"), public, protected kim_species_name_user03
The standard user03 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_No"), public, protected kim_species_name_no
The standard Nobelium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Os"), public, protected kim_species_name_os
The standard Osmium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Pa"), public, protected kim_species_name_pa
The standard Protactinium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Nd"), public, protected kim_species_name_nd
The standard Neodymium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_P"), public, protected kim_species_name_p
The standard Phosphorus species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user01"), public, protected kim_species_name_user01
The standard user01 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Kr"), public, protected kim_species_name_kr
The standard Krypton species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Rf"), public, protected kim_species_name_rf
The standard Rutherfordium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Na"), public, protected kim_species_name_na
The standard Sodium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Bi"), public, protected kim_species_name_bi
The standard Bismuth species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ne"), public, protected kim_species_name_ne
The standard Neon species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Es"), public, protected kim_species_name_es
The standard Einsteinium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_electron"), public, protected kim_species_name_electron
The standard electron species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Cm"), public, protected kim_species_name_cm
The standard Curium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Tb"), public, protected kim_species_name_tb
The standard Terbium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Cn"), public, protected kim_species_name_cn
The standard Copernicium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Mg"), public, protected kim_species_name_mg
The standard Magnesium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Mo"), public, protected kim_species_name_mo
The standard Molybdenum species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ba"), public, protected kim_species_name_ba
The standard Barium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Mt"), public, protected kim_species_name_mt
The standard Meitnerium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user16"), public, protected kim_species_name_user16
The standard user16 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Pd"), public, protected kim_species_name_pd
The standard Palladium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ho"), public, protected kim_species_name_ho
The standard Holmium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Be"), public, protected kim_species_name_be
The standard Beryllium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Sg"), public, protected kim_species_name_sg
The standard Seaborgium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ra"), public, protected kim_species_name_ra
The standard Radium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_I"), public, protected kim_species_name_i
The standard Iodine species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ts"), public, protected kim_species_name_ts
The standard Tennessine species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Fe"), public, protected kim_species_name_fe
The standard Iron species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Fr"), public, protected kim_species_name_fr
The standard Francium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_He"), public, protected kim_species_name_he
The standard Helium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_O"), public, protected kim_species_name_o
The standard Oxygen species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user18"), public, protected kim_species_name_user18
The standard user18 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_As"), public, protected kim_species_name_as
The standard Arsenic species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Mc"), public, protected kim_species_name_mc
The standard Moscovium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Er"), public, protected kim_species_name_er
The standard Erbium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Y"), public, protected kim_species_name_y
The standard Yttrium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Al"), public, protected kim_species_name_al
The standard Aluminum species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Bh"), public, protected kim_species_name_bh
The standard Bohrium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user12"), public, protected kim_species_name_user12
The standard user12 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Dy"), public, protected kim_species_name_dy
The standard Dysprosium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_W"), public, protected kim_species_name_w
The standard Tungsten species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ni"), public, protected kim_species_name_ni
The standard Nickel species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user19"), public, protected kim_species_name_user19
The standard user19 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Eu"), public, protected kim_species_name_eu
The standard Europium species.
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, bind(C, name="KIM_SPECIES_NAME_user10"), public, protected kim_species_name_user10
The standard user10 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Sn"), public, protected kim_species_name_sn
The standard Tin species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user02"), public, protected kim_species_name_user02
The standard user02 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Pt"), public, protected kim_species_name_pt
The standard Platinum species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Nh"), public, protected kim_species_name_nh
The standard Nihonium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ta"), public, protected kim_species_name_ta
The standard Tantalum species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Se"), public, protected kim_species_name_se
The standard Selenium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Rh"), public, protected kim_species_name_rh
The standard Rhodium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Sr"), public, protected kim_species_name_sr
The standard Strontium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Np"), public, protected kim_species_name_np
The standard Neptunium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Lr"), public, protected kim_species_name_lr
The standard Lawrencium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_F"), public, protected kim_species_name_f
The standard Fluorine species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ca"), public, protected kim_species_name_ca
The standard Calcium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ar"), public, protected kim_species_name_ar
The standard Argon species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ds"), public, protected kim_species_name_ds
The standard Darmstadtium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Th"), public, protected kim_species_name_th
The standard Thorium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Yb"), public, protected kim_species_name_yb
The standard Ytterbium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Tc"), public, protected kim_species_name_tc
The standard Technetium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Pu"), public, protected kim_species_name_pu
The standard Plutonium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user15"), public, protected kim_species_name_user15
The standard user15 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Co"), public, protected kim_species_name_co
The standard Cobalt species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Br"), public, protected kim_species_name_br
The standard Bromine species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Tl"), public, protected kim_species_name_tl
The standard Thallium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user14"), public, protected kim_species_name_user14
The standard user14 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Fm"), public, protected kim_species_name_fm
The standard Fermium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Bk"), public, protected kim_species_name_bk
The standard Berkelium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Au"), public, protected kim_species_name_au
The standard Gold species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Po"), public, protected kim_species_name_po
The standard Polonium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Pr"), public, protected kim_species_name_pr
The standard Praseodymium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_S"), public, protected kim_species_name_s
The standard Sulfur species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user17"), public, protected kim_species_name_user17
The standard user17 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_V"), public, protected kim_species_name_v
The standard Vanadium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Cl"), public, protected kim_species_name_cl
The standard Chlorine species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_N"), public, protected kim_species_name_n
The standard Nitrogen species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Hs"), public, protected kim_species_name_hs
The standard Hassium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Db"), public, protected kim_species_name_db
The standard Dubnium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ti"), public, protected kim_species_name_ti
The standard Titanium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user20"), public, protected kim_species_name_user20
The standard user20 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user05"), public, protected kim_species_name_user05
The standard user05 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_U"), public, protected kim_species_name_u
The standard Uranium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ac"), public, protected kim_species_name_ac
The standard Actinium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Rn"), public, protected kim_species_name_rn
The standard Radon species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Am"), public, protected kim_species_name_am
The standard Americium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_H"), public, protected kim_species_name_h
The standard Hydrogen species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ga"), public, protected kim_species_name_ga
The standard Gallium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Tm"), public, protected kim_species_name_tm
The standard Thulium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Pm"), public, protected kim_species_name_pm
The standard Promethium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Gd"), public, protected kim_species_name_gd
The standard Gadolinium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ir"), public, protected kim_species_name_ir
The standard Iridium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Md"), public, protected kim_species_name_md
The standard Mendelevium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Re"), public, protected kim_species_name_re
The standard Rhenium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Rb"), public, protected kim_species_name_rb
The standard Rubidium species.
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, bind(C, name="KIM_SPECIES_NAME_Rg"), public, protected kim_species_name_rg
The standard Roentgenium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Cs"), public, protected kim_species_name_cs
The standard Cesium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ge"), public, protected kim_species_name_ge
The standard Germanium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user08"), public, protected kim_species_name_user08
The standard user08 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Cd"), public, protected kim_species_name_cd
The standard Cadmium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Og"), public, protected kim_species_name_og
The standard Oganesson species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Si"), public, protected kim_species_name_si
The standard Silicon species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ag"), public, protected kim_species_name_ag
The standard Silver species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_B"), public, protected kim_species_name_b
The standard Boron species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Lv"), public, protected kim_species_name_lv
The standard Livermorium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_K"), public, protected kim_species_name_k
The standard Potassium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Lu"), public, protected kim_species_name_lu
The standard Lutetium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Zr"), public, protected kim_species_name_zr
The standard Zirconium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Mn"), public, protected kim_species_name_mn
The standard Manganese species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user06"), public, protected kim_species_name_user06
The standard user06 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user09"), public, protected kim_species_name_user09
The standard user09 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Cr"), public, protected kim_species_name_cr
The standard Chromium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_At"), public, protected kim_species_name_at
The standard Astatine species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user07"), public, protected kim_species_name_user07
The standard user07 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Sc"), public, protected kim_species_name_sc
The standard Scandium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Te"), public, protected kim_species_name_te
The standard Tellurium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Pb"), public, protected kim_species_name_pb
The standard Lead species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_La"), public, protected kim_species_name_la
The standard Lanthanum species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Ru"), public, protected kim_species_name_ru
The standard Ruthenium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Sm"), public, protected kim_species_name_sm
The standard Samarium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Li"), public, protected kim_species_name_li
The standard Lithium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_C"), public, protected kim_species_name_c
The standard Carbon species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Fl"), public, protected kim_species_name_fl
The standard Flerovium species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Sb"), public, protected kim_species_name_sb
The standard Antimony species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Zn"), public, protected kim_species_name_zn
The standard Zinc species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_user04"), public, protected kim_species_name_user04
The standard user04 species.
type(kim_species_name_type), save, bind(C, name="KIM_SPECIES_NAME_Hg"), public, protected kim_species_name_hg
The standard Mercury species.
An Extensible Enumeration for the SpeciesName's supported by the KIM API.