39 use,
intrinsic :: iso_c_binding
45 kim_species_name_type, &
200 type, bind(c) :: kim_species_name_type
201 integer(c_int) species_name_id
202 end type kim_species_name_type
209 type(kim_species_name_type),
protected,
save, &
210 bind(c, name=
"KIM_SPECIES_NAME_electron") &
218 type(kim_species_name_type),
protected,
save, &
219 bind(c, name=
"KIM_SPECIES_NAME_H") &
227 type(kim_species_name_type),
protected,
save, &
228 bind(c, name=
"KIM_SPECIES_NAME_He") &
236 type(kim_species_name_type),
protected,
save, &
237 bind(c, name=
"KIM_SPECIES_NAME_Li") &
245 type(kim_species_name_type),
protected,
save, &
246 bind(c, name=
"KIM_SPECIES_NAME_Be") &
254 type(kim_species_name_type),
protected,
save, &
255 bind(c, name=
"KIM_SPECIES_NAME_B") &
263 type(kim_species_name_type),
protected,
save, &
264 bind(c, name=
"KIM_SPECIES_NAME_C") &
272 type(kim_species_name_type),
protected,
save, &
273 bind(c, name=
"KIM_SPECIES_NAME_N") &
281 type(kim_species_name_type),
protected,
save, &
282 bind(c, name=
"KIM_SPECIES_NAME_O") &
290 type(kim_species_name_type),
protected,
save, &
291 bind(c, name=
"KIM_SPECIES_NAME_F") &
299 type(kim_species_name_type),
protected,
save, &
300 bind(c, name=
"KIM_SPECIES_NAME_Ne") &
308 type(kim_species_name_type),
protected,
save, &
309 bind(c, name=
"KIM_SPECIES_NAME_Na") &
317 type(kim_species_name_type),
protected,
save, &
318 bind(c, name=
"KIM_SPECIES_NAME_Mg") &
326 type(kim_species_name_type),
protected,
save, &
327 bind(c, name=
"KIM_SPECIES_NAME_Al") &
335 type(kim_species_name_type),
protected,
save, &
336 bind(c, name=
"KIM_SPECIES_NAME_Si") &
344 type(kim_species_name_type),
protected,
save, &
345 bind(c, name=
"KIM_SPECIES_NAME_P") &
353 type(kim_species_name_type),
protected,
save, &
354 bind(c, name=
"KIM_SPECIES_NAME_S") &
362 type(kim_species_name_type),
protected,
save, &
363 bind(c, name=
"KIM_SPECIES_NAME_Cl") &
371 type(kim_species_name_type),
protected,
save, &
372 bind(c, name=
"KIM_SPECIES_NAME_Ar") &
380 type(kim_species_name_type),
protected,
save, &
381 bind(c, name=
"KIM_SPECIES_NAME_K") &
389 type(kim_species_name_type),
protected,
save, &
390 bind(c, name=
"KIM_SPECIES_NAME_Ca") &
398 type(kim_species_name_type),
protected,
save, &
399 bind(c, name=
"KIM_SPECIES_NAME_Sc") &
407 type(kim_species_name_type),
protected,
save, &
408 bind(c, name=
"KIM_SPECIES_NAME_Ti") &
416 type(kim_species_name_type),
protected,
save, &
417 bind(c, name=
"KIM_SPECIES_NAME_V") &
425 type(kim_species_name_type),
protected,
save, &
426 bind(c, name=
"KIM_SPECIES_NAME_Cr") &
434 type(kim_species_name_type),
protected,
save, &
435 bind(c, name=
"KIM_SPECIES_NAME_Mn") &
443 type(kim_species_name_type),
protected,
save, &
444 bind(c, name=
"KIM_SPECIES_NAME_Fe") &
452 type(kim_species_name_type),
protected,
save, &
453 bind(c, name=
"KIM_SPECIES_NAME_Co") &
461 type(kim_species_name_type),
protected,
save, &
462 bind(c, name=
"KIM_SPECIES_NAME_Ni") &
470 type(kim_species_name_type),
protected,
save, &
471 bind(c, name=
"KIM_SPECIES_NAME_Cu") &
479 type(kim_species_name_type),
protected,
save, &
480 bind(c, name=
"KIM_SPECIES_NAME_Zn") &
488 type(kim_species_name_type),
protected,
save, &
489 bind(c, name=
"KIM_SPECIES_NAME_Ga") &
497 type(kim_species_name_type),
protected,
save, &
498 bind(c, name=
"KIM_SPECIES_NAME_Ge") &
506 type(kim_species_name_type),
protected,
save, &
507 bind(c, name=
"KIM_SPECIES_NAME_As") &
515 type(kim_species_name_type),
protected,
save, &
516 bind(c, name=
"KIM_SPECIES_NAME_Se") &
524 type(kim_species_name_type),
protected,
save, &
525 bind(c, name=
"KIM_SPECIES_NAME_Br") &
533 type(kim_species_name_type),
protected,
save, &
534 bind(c, name=
"KIM_SPECIES_NAME_Kr") &
542 type(kim_species_name_type),
protected,
save, &
543 bind(c, name=
"KIM_SPECIES_NAME_Rb") &
551 type(kim_species_name_type),
protected,
save, &
552 bind(c, name=
"KIM_SPECIES_NAME_Sr") &
560 type(kim_species_name_type),
protected,
save, &
561 bind(c, name=
"KIM_SPECIES_NAME_Y") &
569 type(kim_species_name_type),
protected,
save, &
570 bind(c, name=
"KIM_SPECIES_NAME_Zr") &
578 type(kim_species_name_type),
protected,
save, &
579 bind(c, name=
"KIM_SPECIES_NAME_Nb") &
587 type(kim_species_name_type),
protected,
save, &
588 bind(c, name=
"KIM_SPECIES_NAME_Mo") &
596 type(kim_species_name_type),
protected,
save, &
597 bind(c, name=
"KIM_SPECIES_NAME_Tc") &
605 type(kim_species_name_type),
protected,
save, &
606 bind(c, name=
"KIM_SPECIES_NAME_Ru") &
614 type(kim_species_name_type),
protected,
save, &
615 bind(c, name=
"KIM_SPECIES_NAME_Rh") &
623 type(kim_species_name_type),
protected,
save, &
624 bind(c, name=
"KIM_SPECIES_NAME_Pd") &
632 type(kim_species_name_type),
protected,
save, &
633 bind(c, name=
"KIM_SPECIES_NAME_Ag") &
641 type(kim_species_name_type),
protected,
save, &
642 bind(c, name=
"KIM_SPECIES_NAME_Cd") &
650 type(kim_species_name_type),
protected,
save, &
651 bind(c, name=
"KIM_SPECIES_NAME_In") &
659 type(kim_species_name_type),
protected,
save, &
660 bind(c, name=
"KIM_SPECIES_NAME_Sn") &
668 type(kim_species_name_type),
protected,
save, &
669 bind(c, name=
"KIM_SPECIES_NAME_Sb") &
677 type(kim_species_name_type),
protected,
save, &
678 bind(c, name=
"KIM_SPECIES_NAME_Te") &
686 type(kim_species_name_type),
protected,
save, &
687 bind(c, name=
"KIM_SPECIES_NAME_I") &
695 type(kim_species_name_type),
protected,
save, &
696 bind(c, name=
"KIM_SPECIES_NAME_Xe") &
704 type(kim_species_name_type),
protected,
save, &
705 bind(c, name=
"KIM_SPECIES_NAME_Cs") &
713 type(kim_species_name_type),
protected,
save, &
714 bind(c, name=
"KIM_SPECIES_NAME_Ba") &
722 type(kim_species_name_type),
protected,
save, &
723 bind(c, name=
"KIM_SPECIES_NAME_La") &
731 type(kim_species_name_type),
protected,
save, &
732 bind(c, name=
"KIM_SPECIES_NAME_Ce") &
740 type(kim_species_name_type),
protected,
save, &
741 bind(c, name=
"KIM_SPECIES_NAME_Pr") &
749 type(kim_species_name_type),
protected,
save, &
750 bind(c, name=
"KIM_SPECIES_NAME_Nd") &
758 type(kim_species_name_type),
protected,
save, &
759 bind(c, name=
"KIM_SPECIES_NAME_Pm") &
767 type(kim_species_name_type),
protected,
save, &
768 bind(c, name=
"KIM_SPECIES_NAME_Sm") &
776 type(kim_species_name_type),
protected,
save, &
777 bind(c, name=
"KIM_SPECIES_NAME_Eu") &
785 type(kim_species_name_type),
protected,
save, &
786 bind(c, name=
"KIM_SPECIES_NAME_Gd") &
794 type(kim_species_name_type),
protected,
save, &
795 bind(c, name=
"KIM_SPECIES_NAME_Tb") &
803 type(kim_species_name_type),
protected,
save, &
804 bind(c, name=
"KIM_SPECIES_NAME_Dy") &
812 type(kim_species_name_type),
protected,
save, &
813 bind(c, name=
"KIM_SPECIES_NAME_Ho") &
821 type(kim_species_name_type),
protected,
save, &
822 bind(c, name=
"KIM_SPECIES_NAME_Er") &
830 type(kim_species_name_type),
protected,
save, &
831 bind(c, name=
"KIM_SPECIES_NAME_Tm") &
839 type(kim_species_name_type),
protected,
save, &
840 bind(c, name=
"KIM_SPECIES_NAME_Yb") &
848 type(kim_species_name_type),
protected,
save, &
849 bind(c, name=
"KIM_SPECIES_NAME_Lu") &
857 type(kim_species_name_type),
protected,
save, &
858 bind(c, name=
"KIM_SPECIES_NAME_Hf") &
866 type(kim_species_name_type),
protected,
save, &
867 bind(c, name=
"KIM_SPECIES_NAME_Ta") &
875 type(kim_species_name_type),
protected,
save, &
876 bind(c, name=
"KIM_SPECIES_NAME_W") &
884 type(kim_species_name_type),
protected,
save, &
885 bind(c, name=
"KIM_SPECIES_NAME_Re") &
893 type(kim_species_name_type),
protected,
save, &
894 bind(c, name=
"KIM_SPECIES_NAME_Os") &
902 type(kim_species_name_type),
protected,
save, &
903 bind(c, name=
"KIM_SPECIES_NAME_Ir") &
911 type(kim_species_name_type),
protected,
save, &
912 bind(c, name=
"KIM_SPECIES_NAME_Pt") &
920 type(kim_species_name_type),
protected,
save, &
921 bind(c, name=
"KIM_SPECIES_NAME_Au") &
929 type(kim_species_name_type),
protected,
save, &
930 bind(c, name=
"KIM_SPECIES_NAME_Hg") &
938 type(kim_species_name_type),
protected,
save, &
939 bind(c, name=
"KIM_SPECIES_NAME_Tl") &
947 type(kim_species_name_type),
protected,
save, &
948 bind(c, name=
"KIM_SPECIES_NAME_Pb") &
956 type(kim_species_name_type),
protected,
save, &
957 bind(c, name=
"KIM_SPECIES_NAME_Bi") &
965 type(kim_species_name_type),
protected,
save, &
966 bind(c, name=
"KIM_SPECIES_NAME_Po") &
974 type(kim_species_name_type),
protected,
save, &
975 bind(c, name=
"KIM_SPECIES_NAME_At") &
983 type(kim_species_name_type),
protected,
save, &
984 bind(c, name=
"KIM_SPECIES_NAME_Rn") &
992 type(kim_species_name_type),
protected,
save, &
993 bind(c, name=
"KIM_SPECIES_NAME_Fr") &
1001 type(kim_species_name_type),
protected,
save, &
1002 bind(c, name=
"KIM_SPECIES_NAME_Ra") &
1010 type(kim_species_name_type),
protected,
save, &
1011 bind(c, name=
"KIM_SPECIES_NAME_Ac") &
1019 type(kim_species_name_type),
protected,
save, &
1020 bind(c, name=
"KIM_SPECIES_NAME_Th") &
1028 type(kim_species_name_type),
protected,
save, &
1029 bind(c, name=
"KIM_SPECIES_NAME_Pa") &
1037 type(kim_species_name_type),
protected,
save, &
1038 bind(c, name=
"KIM_SPECIES_NAME_U") &
1046 type(kim_species_name_type),
protected,
save, &
1047 bind(c, name=
"KIM_SPECIES_NAME_Np") &
1055 type(kim_species_name_type),
protected,
save, &
1056 bind(c, name=
"KIM_SPECIES_NAME_Pu") &
1064 type(kim_species_name_type),
protected,
save, &
1065 bind(c, name=
"KIM_SPECIES_NAME_Am") &
1073 type(kim_species_name_type),
protected,
save, &
1074 bind(c, name=
"KIM_SPECIES_NAME_Cm") &
1082 type(kim_species_name_type),
protected,
save, &
1083 bind(c, name=
"KIM_SPECIES_NAME_Bk") &
1091 type(kim_species_name_type),
protected,
save, &
1092 bind(c, name=
"KIM_SPECIES_NAME_Cf") &
1100 type(kim_species_name_type),
protected,
save, &
1101 bind(c, name=
"KIM_SPECIES_NAME_Es") &
1109 type(kim_species_name_type),
protected,
save, &
1110 bind(c, name=
"KIM_SPECIES_NAME_Fm") &
1118 type(kim_species_name_type),
protected,
save, &
1119 bind(c, name=
"KIM_SPECIES_NAME_Md") &
1127 type(kim_species_name_type),
protected,
save, &
1128 bind(c, name=
"KIM_SPECIES_NAME_No") &
1136 type(kim_species_name_type),
protected,
save, &
1137 bind(c, name=
"KIM_SPECIES_NAME_Lr") &
1145 type(kim_species_name_type),
protected,
save, &
1146 bind(c, name=
"KIM_SPECIES_NAME_Rf") &
1154 type(kim_species_name_type),
protected,
save, &
1155 bind(c, name=
"KIM_SPECIES_NAME_Db") &
1163 type(kim_species_name_type),
protected,
save, &
1164 bind(c, name=
"KIM_SPECIES_NAME_Sg") &
1172 type(kim_species_name_type),
protected,
save, &
1173 bind(c, name=
"KIM_SPECIES_NAME_Bh") &
1181 type(kim_species_name_type),
protected,
save, &
1182 bind(c, name=
"KIM_SPECIES_NAME_Hs") &
1190 type(kim_species_name_type),
protected,
save, &
1191 bind(c, name=
"KIM_SPECIES_NAME_Mt") &
1199 type(kim_species_name_type),
protected,
save, &
1200 bind(c, name=
"KIM_SPECIES_NAME_Ds") &
1208 type(kim_species_name_type),
protected,
save, &
1209 bind(c, name=
"KIM_SPECIES_NAME_Rg") &
1217 type(kim_species_name_type),
protected,
save, &
1218 bind(c, name=
"KIM_SPECIES_NAME_Cn") &
1226 type(kim_species_name_type),
protected,
save, &
1227 bind(c, name=
"KIM_SPECIES_NAME_Nh") &
1235 type(kim_species_name_type),
protected,
save, &
1236 bind(c, name=
"KIM_SPECIES_NAME_Fl") &
1244 type(kim_species_name_type),
protected,
save, &
1245 bind(c, name=
"KIM_SPECIES_NAME_Mc") &
1253 type(kim_species_name_type),
protected,
save, &
1254 bind(c, name=
"KIM_SPECIES_NAME_Lv") &
1262 type(kim_species_name_type),
protected,
save, &
1263 bind(c, name=
"KIM_SPECIES_NAME_Ts") &
1271 type(kim_species_name_type),
protected,
save, &
1272 bind(c, name=
"KIM_SPECIES_NAME_Og") &
1280 type(kim_species_name_type),
protected,
save, &
1281 bind(c, name=
"KIM_SPECIES_NAME_user01") &
1289 type(kim_species_name_type),
protected,
save, &
1290 bind(c, name=
"KIM_SPECIES_NAME_user02") &
1298 type(kim_species_name_type),
protected,
save, &
1299 bind(c, name=
"KIM_SPECIES_NAME_user03") &
1307 type(kim_species_name_type),
protected,
save, &
1308 bind(c, name=
"KIM_SPECIES_NAME_user04") &
1316 type(kim_species_name_type),
protected,
save, &
1317 bind(c, name=
"KIM_SPECIES_NAME_user05") &
1325 type(kim_species_name_type),
protected,
save, &
1326 bind(c, name=
"KIM_SPECIES_NAME_user06") &
1334 type(kim_species_name_type),
protected,
save, &
1335 bind(c, name=
"KIM_SPECIES_NAME_user07") &
1343 type(kim_species_name_type),
protected,
save, &
1344 bind(c, name=
"KIM_SPECIES_NAME_user08") &
1352 type(kim_species_name_type),
protected,
save, &
1353 bind(c, name=
"KIM_SPECIES_NAME_user09") &
1361 type(kim_species_name_type),
protected,
save, &
1362 bind(c, name=
"KIM_SPECIES_NAME_user10") &
1370 type(kim_species_name_type),
protected,
save, &
1371 bind(c, name=
"KIM_SPECIES_NAME_user11") &
1379 type(kim_species_name_type),
protected,
save, &
1380 bind(c, name=
"KIM_SPECIES_NAME_user12") &
1388 type(kim_species_name_type),
protected,
save, &
1389 bind(c, name=
"KIM_SPECIES_NAME_user13") &
1397 type(kim_species_name_type),
protected,
save, &
1398 bind(c, name=
"KIM_SPECIES_NAME_user14") &
1406 type(kim_species_name_type),
protected,
save, &
1407 bind(c, name=
"KIM_SPECIES_NAME_user15") &
1415 type(kim_species_name_type),
protected,
save, &
1416 bind(c, name=
"KIM_SPECIES_NAME_user16") &
1424 type(kim_species_name_type),
protected,
save, &
1425 bind(c, name=
"KIM_SPECIES_NAME_user17") &
1433 type(kim_species_name_type),
protected,
save, &
1434 bind(c, name=
"KIM_SPECIES_NAME_user18") &
1442 type(kim_species_name_type),
protected,
save, &
1443 bind(c, name=
"KIM_SPECIES_NAME_user19") &
1451 type(kim_species_name_type),
protected,
save, &
1452 bind(c, name=
"KIM_SPECIES_NAME_user20") &
1461 module procedure kim_species_name_known
1462 end interface kim_known
1469 interface operator(.eq.)
1470 module procedure kim_species_name_equal
1471 end interface operator(.eq.)
1478 interface operator(.ne.)
1479 module procedure kim_species_name_not_equal
1480 end interface operator(.ne.)
1488 interface kim_from_string
1489 module procedure kim_species_name_from_string
1490 end interface kim_from_string
1497 interface kim_to_string
1498 module procedure kim_species_name_to_string
1499 end interface kim_to_string
1507 logical recursive function kim_species_name_known(species_name)
1510 integer(c_int) recursive function known(species_name) &
1511 bind(c, name=
"KIM_SpeciesName_Known")
1512 use,
intrinsic :: iso_c_binding
1513 import kim_species_name_type
1515 type(kim_species_name_type),
intent(in),
value :: species_name
1518 type(kim_species_name_type),
intent(in) :: species_name
1520 kim_species_name_known = (known(species_name) /= 0)
1521 end function kim_species_name_known
1528 logical recursive function kim_species_name_equal(lhs, rhs)
1530 type(kim_species_name_type),
intent(in) :: lhs
1531 type(kim_species_name_type),
intent(in) :: rhs
1533 kim_species_name_equal &
1534 = (lhs%species_name_id == rhs%species_name_id)
1535 end function kim_species_name_equal
1542 logical recursive function kim_species_name_not_equal(lhs, rhs)
1544 type(kim_species_name_type),
intent(in) :: lhs
1545 type(kim_species_name_type),
intent(in) :: rhs
1547 kim_species_name_not_equal = .not. (lhs == rhs)
1548 end function kim_species_name_not_equal
1556 recursive subroutine kim_species_name_from_string(string, species_name)
1559 type(kim_species_name_type)
recursive function from_string(string) &
1560 bind(c, name=
"KIM_SpeciesName_FromString")
1561 use,
intrinsic :: iso_c_binding
1562 import kim_species_name_type
1564 character(c_char),
intent(in) :: string(*)
1565 end function from_string
1567 character(len=*, kind=c_char),
intent(in) :: string
1568 type(kim_species_name_type),
intent(out) :: species_name
1570 species_name = from_string(trim(string)//c_null_char)
1571 end subroutine kim_species_name_from_string
1578 recursive subroutine kim_species_name_to_string(species_name, string)
1579 use kim_convert_string_module
, only: kim_convert_c_char_ptr_to_string
1582 type(c_ptr)
recursive function get_string(species_name) &
1583 bind(c, name=
"KIM_SpeciesName_ToString")
1584 use,
intrinsic :: iso_c_binding
1585 import kim_species_name_type
1587 type(kim_species_name_type),
intent(in),
value :: species_name
1588 end function get_string
1590 type(kim_species_name_type),
intent(in) :: species_name
1591 character(len=*, kind=c_char),
intent(out) :: string
1595 p = get_string(species_name)
1596 call kim_convert_c_char_ptr_to_string(p, string)
1597 end subroutine kim_species_name_to_string
1608 recursive subroutine get_number_of_species_names( &
1609 number_of_species_names) &
1610 bind(c, name=
"KIM_SPECIES_NAME_GetNumberOfSpeciesNames")
1611 use,
intrinsic :: iso_c_binding
1613 integer(c_int),
intent(out) :: number_of_species_names
1614 end subroutine get_number_of_species_names
1616 integer(c_int),
intent(out) :: number_of_species_names
1618 call get_number_of_species_names(number_of_species_names)
1629 integer(c_int) recursive function get_species_name(index, species_name) &
1630 bind(c, name=
"KIM_SPECIES_NAME_GetSpeciesName")
1631 use,
intrinsic :: iso_c_binding
1632 import kim_species_name_type
1634 integer(c_int),
intent(in),
value :: index
1635 type(kim_species_name_type),
intent(out) :: species_name
1636 end function get_species_name
1638 integer(c_int),
intent(in) :: index
1639 type(kim_species_name_type),
intent(out) :: species_name
1640 integer(c_int),
intent(out) :: ierr
1642 ierr = get_species_name(index - 1, species_name)
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