36 use,
intrinsic :: iso_c_binding
42 kim_species_name_type, &
197 type, bind(c) :: kim_species_name_type
198 integer(c_int) species_name_id
199 end type kim_species_name_type
206 type(kim_species_name_type),
protected,
save, &
207 bind(c, name=
"KIM_SPECIES_NAME_electron") &
215 type(kim_species_name_type),
protected,
save, &
216 bind(c, name=
"KIM_SPECIES_NAME_H") &
224 type(kim_species_name_type),
protected,
save, &
225 bind(c, name=
"KIM_SPECIES_NAME_He") &
233 type(kim_species_name_type),
protected,
save, &
234 bind(c, name=
"KIM_SPECIES_NAME_Li") &
242 type(kim_species_name_type),
protected,
save, &
243 bind(c, name=
"KIM_SPECIES_NAME_Be") &
251 type(kim_species_name_type),
protected,
save, &
252 bind(c, name=
"KIM_SPECIES_NAME_B") &
260 type(kim_species_name_type),
protected,
save, &
261 bind(c, name=
"KIM_SPECIES_NAME_C") &
269 type(kim_species_name_type),
protected,
save, &
270 bind(c, name=
"KIM_SPECIES_NAME_N") &
278 type(kim_species_name_type),
protected,
save, &
279 bind(c, name=
"KIM_SPECIES_NAME_O") &
287 type(kim_species_name_type),
protected,
save, &
288 bind(c, name=
"KIM_SPECIES_NAME_F") &
296 type(kim_species_name_type),
protected,
save, &
297 bind(c, name=
"KIM_SPECIES_NAME_Ne") &
305 type(kim_species_name_type),
protected,
save, &
306 bind(c, name=
"KIM_SPECIES_NAME_Na") &
314 type(kim_species_name_type),
protected,
save, &
315 bind(c, name=
"KIM_SPECIES_NAME_Mg") &
323 type(kim_species_name_type),
protected,
save, &
324 bind(c, name=
"KIM_SPECIES_NAME_Al") &
332 type(kim_species_name_type),
protected,
save, &
333 bind(c, name=
"KIM_SPECIES_NAME_Si") &
341 type(kim_species_name_type),
protected,
save, &
342 bind(c, name=
"KIM_SPECIES_NAME_P") &
350 type(kim_species_name_type),
protected,
save, &
351 bind(c, name=
"KIM_SPECIES_NAME_S") &
359 type(kim_species_name_type),
protected,
save, &
360 bind(c, name=
"KIM_SPECIES_NAME_Cl") &
368 type(kim_species_name_type),
protected,
save, &
369 bind(c, name=
"KIM_SPECIES_NAME_Ar") &
377 type(kim_species_name_type),
protected,
save, &
378 bind(c, name=
"KIM_SPECIES_NAME_K") &
386 type(kim_species_name_type),
protected,
save, &
387 bind(c, name=
"KIM_SPECIES_NAME_Ca") &
395 type(kim_species_name_type),
protected,
save, &
396 bind(c, name=
"KIM_SPECIES_NAME_Sc") &
404 type(kim_species_name_type),
protected,
save, &
405 bind(c, name=
"KIM_SPECIES_NAME_Ti") &
413 type(kim_species_name_type),
protected,
save, &
414 bind(c, name=
"KIM_SPECIES_NAME_V") &
422 type(kim_species_name_type),
protected,
save, &
423 bind(c, name=
"KIM_SPECIES_NAME_Cr") &
431 type(kim_species_name_type),
protected,
save, &
432 bind(c, name=
"KIM_SPECIES_NAME_Mn") &
440 type(kim_species_name_type),
protected,
save, &
441 bind(c, name=
"KIM_SPECIES_NAME_Fe") &
449 type(kim_species_name_type),
protected,
save, &
450 bind(c, name=
"KIM_SPECIES_NAME_Co") &
458 type(kim_species_name_type),
protected,
save, &
459 bind(c, name=
"KIM_SPECIES_NAME_Ni") &
467 type(kim_species_name_type),
protected,
save, &
468 bind(c, name=
"KIM_SPECIES_NAME_Cu") &
476 type(kim_species_name_type),
protected,
save, &
477 bind(c, name=
"KIM_SPECIES_NAME_Zn") &
485 type(kim_species_name_type),
protected,
save, &
486 bind(c, name=
"KIM_SPECIES_NAME_Ga") &
494 type(kim_species_name_type),
protected,
save, &
495 bind(c, name=
"KIM_SPECIES_NAME_Ge") &
503 type(kim_species_name_type),
protected,
save, &
504 bind(c, name=
"KIM_SPECIES_NAME_As") &
512 type(kim_species_name_type),
protected,
save, &
513 bind(c, name=
"KIM_SPECIES_NAME_Se") &
521 type(kim_species_name_type),
protected,
save, &
522 bind(c, name=
"KIM_SPECIES_NAME_Br") &
530 type(kim_species_name_type),
protected,
save, &
531 bind(c, name=
"KIM_SPECIES_NAME_Kr") &
539 type(kim_species_name_type),
protected,
save, &
540 bind(c, name=
"KIM_SPECIES_NAME_Rb") &
548 type(kim_species_name_type),
protected,
save, &
549 bind(c, name=
"KIM_SPECIES_NAME_Sr") &
557 type(kim_species_name_type),
protected,
save, &
558 bind(c, name=
"KIM_SPECIES_NAME_Y") &
566 type(kim_species_name_type),
protected,
save, &
567 bind(c, name=
"KIM_SPECIES_NAME_Zr") &
575 type(kim_species_name_type),
protected,
save, &
576 bind(c, name=
"KIM_SPECIES_NAME_Nb") &
584 type(kim_species_name_type),
protected,
save, &
585 bind(c, name=
"KIM_SPECIES_NAME_Mo") &
593 type(kim_species_name_type),
protected,
save, &
594 bind(c, name=
"KIM_SPECIES_NAME_Tc") &
602 type(kim_species_name_type),
protected,
save, &
603 bind(c, name=
"KIM_SPECIES_NAME_Ru") &
611 type(kim_species_name_type),
protected,
save, &
612 bind(c, name=
"KIM_SPECIES_NAME_Rh") &
620 type(kim_species_name_type),
protected,
save, &
621 bind(c, name=
"KIM_SPECIES_NAME_Pd") &
629 type(kim_species_name_type),
protected,
save, &
630 bind(c, name=
"KIM_SPECIES_NAME_Ag") &
638 type(kim_species_name_type),
protected,
save, &
639 bind(c, name=
"KIM_SPECIES_NAME_Cd") &
647 type(kim_species_name_type),
protected,
save, &
648 bind(c, name=
"KIM_SPECIES_NAME_In") &
656 type(kim_species_name_type),
protected,
save, &
657 bind(c, name=
"KIM_SPECIES_NAME_Sn") &
665 type(kim_species_name_type),
protected,
save, &
666 bind(c, name=
"KIM_SPECIES_NAME_Sb") &
674 type(kim_species_name_type),
protected,
save, &
675 bind(c, name=
"KIM_SPECIES_NAME_Te") &
683 type(kim_species_name_type),
protected,
save, &
684 bind(c, name=
"KIM_SPECIES_NAME_I") &
692 type(kim_species_name_type),
protected,
save, &
693 bind(c, name=
"KIM_SPECIES_NAME_Xe") &
701 type(kim_species_name_type),
protected,
save, &
702 bind(c, name=
"KIM_SPECIES_NAME_Cs") &
710 type(kim_species_name_type),
protected,
save, &
711 bind(c, name=
"KIM_SPECIES_NAME_Ba") &
719 type(kim_species_name_type),
protected,
save, &
720 bind(c, name=
"KIM_SPECIES_NAME_La") &
728 type(kim_species_name_type),
protected,
save, &
729 bind(c, name=
"KIM_SPECIES_NAME_Ce") &
737 type(kim_species_name_type),
protected,
save, &
738 bind(c, name=
"KIM_SPECIES_NAME_Pr") &
746 type(kim_species_name_type),
protected,
save, &
747 bind(c, name=
"KIM_SPECIES_NAME_Nd") &
755 type(kim_species_name_type),
protected,
save, &
756 bind(c, name=
"KIM_SPECIES_NAME_Pm") &
764 type(kim_species_name_type),
protected,
save, &
765 bind(c, name=
"KIM_SPECIES_NAME_Sm") &
773 type(kim_species_name_type),
protected,
save, &
774 bind(c, name=
"KIM_SPECIES_NAME_Eu") &
782 type(kim_species_name_type),
protected,
save, &
783 bind(c, name=
"KIM_SPECIES_NAME_Gd") &
791 type(kim_species_name_type),
protected,
save, &
792 bind(c, name=
"KIM_SPECIES_NAME_Tb") &
800 type(kim_species_name_type),
protected,
save, &
801 bind(c, name=
"KIM_SPECIES_NAME_Dy") &
809 type(kim_species_name_type),
protected,
save, &
810 bind(c, name=
"KIM_SPECIES_NAME_Ho") &
818 type(kim_species_name_type),
protected,
save, &
819 bind(c, name=
"KIM_SPECIES_NAME_Er") &
827 type(kim_species_name_type),
protected,
save, &
828 bind(c, name=
"KIM_SPECIES_NAME_Tm") &
836 type(kim_species_name_type),
protected,
save, &
837 bind(c, name=
"KIM_SPECIES_NAME_Yb") &
845 type(kim_species_name_type),
protected,
save, &
846 bind(c, name=
"KIM_SPECIES_NAME_Lu") &
854 type(kim_species_name_type),
protected,
save, &
855 bind(c, name=
"KIM_SPECIES_NAME_Hf") &
863 type(kim_species_name_type),
protected,
save, &
864 bind(c, name=
"KIM_SPECIES_NAME_Ta") &
872 type(kim_species_name_type),
protected,
save, &
873 bind(c, name=
"KIM_SPECIES_NAME_W") &
881 type(kim_species_name_type),
protected,
save, &
882 bind(c, name=
"KIM_SPECIES_NAME_Re") &
890 type(kim_species_name_type),
protected,
save, &
891 bind(c, name=
"KIM_SPECIES_NAME_Os") &
899 type(kim_species_name_type),
protected,
save, &
900 bind(c, name=
"KIM_SPECIES_NAME_Ir") &
908 type(kim_species_name_type),
protected,
save, &
909 bind(c, name=
"KIM_SPECIES_NAME_Pt") &
917 type(kim_species_name_type),
protected,
save, &
918 bind(c, name=
"KIM_SPECIES_NAME_Au") &
926 type(kim_species_name_type),
protected,
save, &
927 bind(c, name=
"KIM_SPECIES_NAME_Hg") &
935 type(kim_species_name_type),
protected,
save, &
936 bind(c, name=
"KIM_SPECIES_NAME_Tl") &
944 type(kim_species_name_type),
protected,
save, &
945 bind(c, name=
"KIM_SPECIES_NAME_Pb") &
953 type(kim_species_name_type),
protected,
save, &
954 bind(c, name=
"KIM_SPECIES_NAME_Bi") &
962 type(kim_species_name_type),
protected,
save, &
963 bind(c, name=
"KIM_SPECIES_NAME_Po") &
971 type(kim_species_name_type),
protected,
save, &
972 bind(c, name=
"KIM_SPECIES_NAME_At") &
980 type(kim_species_name_type),
protected,
save, &
981 bind(c, name=
"KIM_SPECIES_NAME_Rn") &
989 type(kim_species_name_type),
protected,
save, &
990 bind(c, name=
"KIM_SPECIES_NAME_Fr") &
998 type(kim_species_name_type),
protected,
save, &
999 bind(c, name=
"KIM_SPECIES_NAME_Ra") &
1007 type(kim_species_name_type),
protected,
save, &
1008 bind(c, name=
"KIM_SPECIES_NAME_Ac") &
1016 type(kim_species_name_type),
protected,
save, &
1017 bind(c, name=
"KIM_SPECIES_NAME_Th") &
1025 type(kim_species_name_type),
protected,
save, &
1026 bind(c, name=
"KIM_SPECIES_NAME_Pa") &
1034 type(kim_species_name_type),
protected,
save, &
1035 bind(c, name=
"KIM_SPECIES_NAME_U") &
1043 type(kim_species_name_type),
protected,
save, &
1044 bind(c, name=
"KIM_SPECIES_NAME_Np") &
1052 type(kim_species_name_type),
protected,
save, &
1053 bind(c, name=
"KIM_SPECIES_NAME_Pu") &
1061 type(kim_species_name_type),
protected,
save, &
1062 bind(c, name=
"KIM_SPECIES_NAME_Am") &
1070 type(kim_species_name_type),
protected,
save, &
1071 bind(c, name=
"KIM_SPECIES_NAME_Cm") &
1079 type(kim_species_name_type),
protected,
save, &
1080 bind(c, name=
"KIM_SPECIES_NAME_Bk") &
1088 type(kim_species_name_type),
protected,
save, &
1089 bind(c, name=
"KIM_SPECIES_NAME_Cf") &
1097 type(kim_species_name_type),
protected,
save, &
1098 bind(c, name=
"KIM_SPECIES_NAME_Es") &
1106 type(kim_species_name_type),
protected,
save, &
1107 bind(c, name=
"KIM_SPECIES_NAME_Fm") &
1115 type(kim_species_name_type),
protected,
save, &
1116 bind(c, name=
"KIM_SPECIES_NAME_Md") &
1124 type(kim_species_name_type),
protected,
save, &
1125 bind(c, name=
"KIM_SPECIES_NAME_No") &
1133 type(kim_species_name_type),
protected,
save, &
1134 bind(c, name=
"KIM_SPECIES_NAME_Lr") &
1142 type(kim_species_name_type),
protected,
save, &
1143 bind(c, name=
"KIM_SPECIES_NAME_Rf") &
1151 type(kim_species_name_type),
protected,
save, &
1152 bind(c, name=
"KIM_SPECIES_NAME_Db") &
1160 type(kim_species_name_type),
protected,
save, &
1161 bind(c, name=
"KIM_SPECIES_NAME_Sg") &
1169 type(kim_species_name_type),
protected,
save, &
1170 bind(c, name=
"KIM_SPECIES_NAME_Bh") &
1178 type(kim_species_name_type),
protected,
save, &
1179 bind(c, name=
"KIM_SPECIES_NAME_Hs") &
1187 type(kim_species_name_type),
protected,
save, &
1188 bind(c, name=
"KIM_SPECIES_NAME_Mt") &
1196 type(kim_species_name_type),
protected,
save, &
1197 bind(c, name=
"KIM_SPECIES_NAME_Ds") &
1205 type(kim_species_name_type),
protected,
save, &
1206 bind(c, name=
"KIM_SPECIES_NAME_Rg") &
1214 type(kim_species_name_type),
protected,
save, &
1215 bind(c, name=
"KIM_SPECIES_NAME_Cn") &
1223 type(kim_species_name_type),
protected,
save, &
1224 bind(c, name=
"KIM_SPECIES_NAME_Nh") &
1232 type(kim_species_name_type),
protected,
save, &
1233 bind(c, name=
"KIM_SPECIES_NAME_Fl") &
1241 type(kim_species_name_type),
protected,
save, &
1242 bind(c, name=
"KIM_SPECIES_NAME_Mc") &
1250 type(kim_species_name_type),
protected,
save, &
1251 bind(c, name=
"KIM_SPECIES_NAME_Lv") &
1259 type(kim_species_name_type),
protected,
save, &
1260 bind(c, name=
"KIM_SPECIES_NAME_Ts") &
1268 type(kim_species_name_type),
protected,
save, &
1269 bind(c, name=
"KIM_SPECIES_NAME_Og") &
1277 type(kim_species_name_type),
protected,
save, &
1278 bind(c, name=
"KIM_SPECIES_NAME_user01") &
1286 type(kim_species_name_type),
protected,
save, &
1287 bind(c, name=
"KIM_SPECIES_NAME_user02") &
1295 type(kim_species_name_type),
protected,
save, &
1296 bind(c, name=
"KIM_SPECIES_NAME_user03") &
1304 type(kim_species_name_type),
protected,
save, &
1305 bind(c, name=
"KIM_SPECIES_NAME_user04") &
1313 type(kim_species_name_type),
protected,
save, &
1314 bind(c, name=
"KIM_SPECIES_NAME_user05") &
1322 type(kim_species_name_type),
protected,
save, &
1323 bind(c, name=
"KIM_SPECIES_NAME_user06") &
1331 type(kim_species_name_type),
protected,
save, &
1332 bind(c, name=
"KIM_SPECIES_NAME_user07") &
1340 type(kim_species_name_type),
protected,
save, &
1341 bind(c, name=
"KIM_SPECIES_NAME_user08") &
1349 type(kim_species_name_type),
protected,
save, &
1350 bind(c, name=
"KIM_SPECIES_NAME_user09") &
1358 type(kim_species_name_type),
protected,
save, &
1359 bind(c, name=
"KIM_SPECIES_NAME_user10") &
1367 type(kim_species_name_type),
protected,
save, &
1368 bind(c, name=
"KIM_SPECIES_NAME_user11") &
1376 type(kim_species_name_type),
protected,
save, &
1377 bind(c, name=
"KIM_SPECIES_NAME_user12") &
1385 type(kim_species_name_type),
protected,
save, &
1386 bind(c, name=
"KIM_SPECIES_NAME_user13") &
1394 type(kim_species_name_type),
protected,
save, &
1395 bind(c, name=
"KIM_SPECIES_NAME_user14") &
1403 type(kim_species_name_type),
protected,
save, &
1404 bind(c, name=
"KIM_SPECIES_NAME_user15") &
1412 type(kim_species_name_type),
protected,
save, &
1413 bind(c, name=
"KIM_SPECIES_NAME_user16") &
1421 type(kim_species_name_type),
protected,
save, &
1422 bind(c, name=
"KIM_SPECIES_NAME_user17") &
1430 type(kim_species_name_type),
protected,
save, &
1431 bind(c, name=
"KIM_SPECIES_NAME_user18") &
1439 type(kim_species_name_type),
protected,
save, &
1440 bind(c, name=
"KIM_SPECIES_NAME_user19") &
1448 type(kim_species_name_type),
protected,
save, &
1449 bind(c, name=
"KIM_SPECIES_NAME_user20") &
1458 module procedure kim_species_name_known
1459 end interface kim_known
1466 interface operator(.eq.)
1467 module procedure kim_species_name_equal
1468 end interface operator(.eq.)
1475 interface operator(.ne.)
1476 module procedure kim_species_name_not_equal
1477 end interface operator(.ne.)
1485 interface kim_from_string
1486 module procedure kim_species_name_from_string
1487 end interface kim_from_string
1494 interface kim_to_string
1495 module procedure kim_species_name_to_string
1496 end interface kim_to_string
1504 logical recursive function kim_species_name_known(species_name)
1507 integer(c_int) recursive function known(species_name) &
1508 bind(c, name=
"KIM_SpeciesName_Known")
1509 use,
intrinsic :: iso_c_binding
1510 import kim_species_name_type
1512 type(kim_species_name_type),
intent(in),
value :: species_name
1515 type(kim_species_name_type),
intent(in) :: species_name
1517 kim_species_name_known = (known(species_name) /= 0)
1518 end function kim_species_name_known
1525 logical recursive function kim_species_name_equal(lhs, rhs)
1527 type(kim_species_name_type),
intent(in) :: lhs
1528 type(kim_species_name_type),
intent(in) :: rhs
1530 kim_species_name_equal &
1531 = (lhs%species_name_id == rhs%species_name_id)
1532 end function kim_species_name_equal
1539 logical recursive function kim_species_name_not_equal(lhs, rhs)
1541 type(kim_species_name_type),
intent(in) :: lhs
1542 type(kim_species_name_type),
intent(in) :: rhs
1544 kim_species_name_not_equal = .not. (lhs == rhs)
1545 end function kim_species_name_not_equal
1553 recursive subroutine kim_species_name_from_string(string, species_name)
1556 type(kim_species_name_type)
recursive function from_string(string) &
1557 bind(c, name=
"KIM_SpeciesName_FromString")
1558 use,
intrinsic :: iso_c_binding
1559 import kim_species_name_type
1561 character(c_char),
intent(in) :: string(*)
1562 end function from_string
1564 character(len=*, kind=c_char),
intent(in) :: string
1565 type(kim_species_name_type),
intent(out) :: species_name
1567 species_name = from_string(trim(string)//c_null_char)
1568 end subroutine kim_species_name_from_string
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
1579 type(c_ptr)
recursive function get_string(species_name) &
1580 bind(c, name=
"KIM_SpeciesName_ToString")
1581 use,
intrinsic :: iso_c_binding
1582 import kim_species_name_type
1584 type(kim_species_name_type),
intent(in),
value :: species_name
1585 end function get_string
1587 type(kim_species_name_type),
intent(in) :: species_name
1588 character(len=*, kind=c_char),
intent(out) :: string
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
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
1610 integer(c_int),
intent(out) :: number_of_species_names
1611 end subroutine get_number_of_species_names
1613 integer(c_int),
intent(out) :: number_of_species_names
1615 call get_number_of_species_names(number_of_species_names)
1626 integer(c_int) recursive function get_species_name(index, species_name) &
1627 bind(c, name=
"KIM_SPECIES_NAME_GetSpeciesName")
1628 use,
intrinsic :: iso_c_binding
1629 import kim_species_name_type
1631 integer(c_int),
intent(in),
value :: index
1632 type(kim_species_name_type),
intent(out) :: species_name
1633 end function get_species_name
1635 integer(c_int),
intent(in) :: index
1636 type(kim_species_name_type),
intent(out) :: species_name
1637 integer(c_int),
intent(out) :: ierr
1639 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