40 use,
intrinsic :: iso_c_binding
46 kim_species_name_type, &
204 type, bind(c) :: kim_species_name_type
205 integer(c_int) species_name_id
206 end type kim_species_name_type
213 type(kim_species_name_type),
protected,
save, &
214 bind(c, name=
"KIM_SPECIES_NAME_electron") &
222 type(kim_species_name_type),
protected,
save, &
223 bind(c, name=
"KIM_SPECIES_NAME_H") &
231 type(kim_species_name_type),
protected,
save, &
232 bind(c, name=
"KIM_SPECIES_NAME_He") &
240 type(kim_species_name_type),
protected,
save, &
241 bind(c, name=
"KIM_SPECIES_NAME_Li") &
249 type(kim_species_name_type),
protected,
save, &
250 bind(c, name=
"KIM_SPECIES_NAME_Be") &
258 type(kim_species_name_type),
protected,
save, &
259 bind(c, name=
"KIM_SPECIES_NAME_B") &
267 type(kim_species_name_type),
protected,
save, &
268 bind(c, name=
"KIM_SPECIES_NAME_C") &
276 type(kim_species_name_type),
protected,
save, &
277 bind(c, name=
"KIM_SPECIES_NAME_N") &
285 type(kim_species_name_type),
protected,
save, &
286 bind(c, name=
"KIM_SPECIES_NAME_O") &
294 type(kim_species_name_type),
protected,
save, &
295 bind(c, name=
"KIM_SPECIES_NAME_F") &
303 type(kim_species_name_type),
protected,
save, &
304 bind(c, name=
"KIM_SPECIES_NAME_Ne") &
312 type(kim_species_name_type),
protected,
save, &
313 bind(c, name=
"KIM_SPECIES_NAME_Na") &
321 type(kim_species_name_type),
protected,
save, &
322 bind(c, name=
"KIM_SPECIES_NAME_Mg") &
330 type(kim_species_name_type),
protected,
save, &
331 bind(c, name=
"KIM_SPECIES_NAME_Al") &
339 type(kim_species_name_type),
protected,
save, &
340 bind(c, name=
"KIM_SPECIES_NAME_Si") &
348 type(kim_species_name_type),
protected,
save, &
349 bind(c, name=
"KIM_SPECIES_NAME_P") &
357 type(kim_species_name_type),
protected,
save, &
358 bind(c, name=
"KIM_SPECIES_NAME_S") &
366 type(kim_species_name_type),
protected,
save, &
367 bind(c, name=
"KIM_SPECIES_NAME_Cl") &
375 type(kim_species_name_type),
protected,
save, &
376 bind(c, name=
"KIM_SPECIES_NAME_Ar") &
384 type(kim_species_name_type),
protected,
save, &
385 bind(c, name=
"KIM_SPECIES_NAME_K") &
393 type(kim_species_name_type),
protected,
save, &
394 bind(c, name=
"KIM_SPECIES_NAME_Ca") &
402 type(kim_species_name_type),
protected,
save, &
403 bind(c, name=
"KIM_SPECIES_NAME_Sc") &
411 type(kim_species_name_type),
protected,
save, &
412 bind(c, name=
"KIM_SPECIES_NAME_Ti") &
420 type(kim_species_name_type),
protected,
save, &
421 bind(c, name=
"KIM_SPECIES_NAME_V") &
429 type(kim_species_name_type),
protected,
save, &
430 bind(c, name=
"KIM_SPECIES_NAME_Cr") &
438 type(kim_species_name_type),
protected,
save, &
439 bind(c, name=
"KIM_SPECIES_NAME_Mn") &
447 type(kim_species_name_type),
protected,
save, &
448 bind(c, name=
"KIM_SPECIES_NAME_Fe") &
456 type(kim_species_name_type),
protected,
save, &
457 bind(c, name=
"KIM_SPECIES_NAME_Co") &
465 type(kim_species_name_type),
protected,
save, &
466 bind(c, name=
"KIM_SPECIES_NAME_Ni") &
474 type(kim_species_name_type),
protected,
save, &
475 bind(c, name=
"KIM_SPECIES_NAME_Cu") &
483 type(kim_species_name_type),
protected,
save, &
484 bind(c, name=
"KIM_SPECIES_NAME_Zn") &
492 type(kim_species_name_type),
protected,
save, &
493 bind(c, name=
"KIM_SPECIES_NAME_Ga") &
501 type(kim_species_name_type),
protected,
save, &
502 bind(c, name=
"KIM_SPECIES_NAME_Ge") &
510 type(kim_species_name_type),
protected,
save, &
511 bind(c, name=
"KIM_SPECIES_NAME_As") &
519 type(kim_species_name_type),
protected,
save, &
520 bind(c, name=
"KIM_SPECIES_NAME_Se") &
528 type(kim_species_name_type),
protected,
save, &
529 bind(c, name=
"KIM_SPECIES_NAME_Br") &
537 type(kim_species_name_type),
protected,
save, &
538 bind(c, name=
"KIM_SPECIES_NAME_Kr") &
546 type(kim_species_name_type),
protected,
save, &
547 bind(c, name=
"KIM_SPECIES_NAME_Rb") &
555 type(kim_species_name_type),
protected,
save, &
556 bind(c, name=
"KIM_SPECIES_NAME_Sr") &
564 type(kim_species_name_type),
protected,
save, &
565 bind(c, name=
"KIM_SPECIES_NAME_Y") &
573 type(kim_species_name_type),
protected,
save, &
574 bind(c, name=
"KIM_SPECIES_NAME_Zr") &
582 type(kim_species_name_type),
protected,
save, &
583 bind(c, name=
"KIM_SPECIES_NAME_Nb") &
591 type(kim_species_name_type),
protected,
save, &
592 bind(c, name=
"KIM_SPECIES_NAME_Mo") &
600 type(kim_species_name_type),
protected,
save, &
601 bind(c, name=
"KIM_SPECIES_NAME_Tc") &
609 type(kim_species_name_type),
protected,
save, &
610 bind(c, name=
"KIM_SPECIES_NAME_Ru") &
618 type(kim_species_name_type),
protected,
save, &
619 bind(c, name=
"KIM_SPECIES_NAME_Rh") &
627 type(kim_species_name_type),
protected,
save, &
628 bind(c, name=
"KIM_SPECIES_NAME_Pd") &
636 type(kim_species_name_type),
protected,
save, &
637 bind(c, name=
"KIM_SPECIES_NAME_Ag") &
645 type(kim_species_name_type),
protected,
save, &
646 bind(c, name=
"KIM_SPECIES_NAME_Cd") &
654 type(kim_species_name_type),
protected,
save, &
655 bind(c, name=
"KIM_SPECIES_NAME_In") &
663 type(kim_species_name_type),
protected,
save, &
664 bind(c, name=
"KIM_SPECIES_NAME_Sn") &
672 type(kim_species_name_type),
protected,
save, &
673 bind(c, name=
"KIM_SPECIES_NAME_Sb") &
681 type(kim_species_name_type),
protected,
save, &
682 bind(c, name=
"KIM_SPECIES_NAME_Te") &
690 type(kim_species_name_type),
protected,
save, &
691 bind(c, name=
"KIM_SPECIES_NAME_I") &
699 type(kim_species_name_type),
protected,
save, &
700 bind(c, name=
"KIM_SPECIES_NAME_Xe") &
708 type(kim_species_name_type),
protected,
save, &
709 bind(c, name=
"KIM_SPECIES_NAME_Cs") &
717 type(kim_species_name_type),
protected,
save, &
718 bind(c, name=
"KIM_SPECIES_NAME_Ba") &
726 type(kim_species_name_type),
protected,
save, &
727 bind(c, name=
"KIM_SPECIES_NAME_La") &
735 type(kim_species_name_type),
protected,
save, &
736 bind(c, name=
"KIM_SPECIES_NAME_Ce") &
744 type(kim_species_name_type),
protected,
save, &
745 bind(c, name=
"KIM_SPECIES_NAME_Pr") &
753 type(kim_species_name_type),
protected,
save, &
754 bind(c, name=
"KIM_SPECIES_NAME_Nd") &
762 type(kim_species_name_type),
protected,
save, &
763 bind(c, name=
"KIM_SPECIES_NAME_Pm") &
771 type(kim_species_name_type),
protected,
save, &
772 bind(c, name=
"KIM_SPECIES_NAME_Sm") &
780 type(kim_species_name_type),
protected,
save, &
781 bind(c, name=
"KIM_SPECIES_NAME_Eu") &
789 type(kim_species_name_type),
protected,
save, &
790 bind(c, name=
"KIM_SPECIES_NAME_Gd") &
798 type(kim_species_name_type),
protected,
save, &
799 bind(c, name=
"KIM_SPECIES_NAME_Tb") &
807 type(kim_species_name_type),
protected,
save, &
808 bind(c, name=
"KIM_SPECIES_NAME_Dy") &
816 type(kim_species_name_type),
protected,
save, &
817 bind(c, name=
"KIM_SPECIES_NAME_Ho") &
825 type(kim_species_name_type),
protected,
save, &
826 bind(c, name=
"KIM_SPECIES_NAME_Er") &
834 type(kim_species_name_type),
protected,
save, &
835 bind(c, name=
"KIM_SPECIES_NAME_Tm") &
843 type(kim_species_name_type),
protected,
save, &
844 bind(c, name=
"KIM_SPECIES_NAME_Yb") &
852 type(kim_species_name_type),
protected,
save, &
853 bind(c, name=
"KIM_SPECIES_NAME_Lu") &
861 type(kim_species_name_type),
protected,
save, &
862 bind(c, name=
"KIM_SPECIES_NAME_Hf") &
870 type(kim_species_name_type),
protected,
save, &
871 bind(c, name=
"KIM_SPECIES_NAME_Ta") &
879 type(kim_species_name_type),
protected,
save, &
880 bind(c, name=
"KIM_SPECIES_NAME_W") &
888 type(kim_species_name_type),
protected,
save, &
889 bind(c, name=
"KIM_SPECIES_NAME_Re") &
897 type(kim_species_name_type),
protected,
save, &
898 bind(c, name=
"KIM_SPECIES_NAME_Os") &
906 type(kim_species_name_type),
protected,
save, &
907 bind(c, name=
"KIM_SPECIES_NAME_Ir") &
915 type(kim_species_name_type),
protected,
save, &
916 bind(c, name=
"KIM_SPECIES_NAME_Pt") &
924 type(kim_species_name_type),
protected,
save, &
925 bind(c, name=
"KIM_SPECIES_NAME_Au") &
933 type(kim_species_name_type),
protected,
save, &
934 bind(c, name=
"KIM_SPECIES_NAME_Hg") &
942 type(kim_species_name_type),
protected,
save, &
943 bind(c, name=
"KIM_SPECIES_NAME_Tl") &
951 type(kim_species_name_type),
protected,
save, &
952 bind(c, name=
"KIM_SPECIES_NAME_Pb") &
960 type(kim_species_name_type),
protected,
save, &
961 bind(c, name=
"KIM_SPECIES_NAME_Bi") &
969 type(kim_species_name_type),
protected,
save, &
970 bind(c, name=
"KIM_SPECIES_NAME_Po") &
978 type(kim_species_name_type),
protected,
save, &
979 bind(c, name=
"KIM_SPECIES_NAME_At") &
987 type(kim_species_name_type),
protected,
save, &
988 bind(c, name=
"KIM_SPECIES_NAME_Rn") &
996 type(kim_species_name_type),
protected,
save, &
997 bind(c, name=
"KIM_SPECIES_NAME_Fr") &
1005 type(kim_species_name_type),
protected,
save, &
1006 bind(c, name=
"KIM_SPECIES_NAME_Ra") &
1014 type(kim_species_name_type),
protected,
save, &
1015 bind(c, name=
"KIM_SPECIES_NAME_Ac") &
1023 type(kim_species_name_type),
protected,
save, &
1024 bind(c, name=
"KIM_SPECIES_NAME_Th") &
1032 type(kim_species_name_type),
protected,
save, &
1033 bind(c, name=
"KIM_SPECIES_NAME_Pa") &
1041 type(kim_species_name_type),
protected,
save, &
1042 bind(c, name=
"KIM_SPECIES_NAME_U") &
1050 type(kim_species_name_type),
protected,
save, &
1051 bind(c, name=
"KIM_SPECIES_NAME_Np") &
1059 type(kim_species_name_type),
protected,
save, &
1060 bind(c, name=
"KIM_SPECIES_NAME_Pu") &
1068 type(kim_species_name_type),
protected,
save, &
1069 bind(c, name=
"KIM_SPECIES_NAME_Am") &
1077 type(kim_species_name_type),
protected,
save, &
1078 bind(c, name=
"KIM_SPECIES_NAME_Cm") &
1086 type(kim_species_name_type),
protected,
save, &
1087 bind(c, name=
"KIM_SPECIES_NAME_Bk") &
1095 type(kim_species_name_type),
protected,
save, &
1096 bind(c, name=
"KIM_SPECIES_NAME_Cf") &
1104 type(kim_species_name_type),
protected,
save, &
1105 bind(c, name=
"KIM_SPECIES_NAME_Es") &
1113 type(kim_species_name_type),
protected,
save, &
1114 bind(c, name=
"KIM_SPECIES_NAME_Fm") &
1122 type(kim_species_name_type),
protected,
save, &
1123 bind(c, name=
"KIM_SPECIES_NAME_Md") &
1131 type(kim_species_name_type),
protected,
save, &
1132 bind(c, name=
"KIM_SPECIES_NAME_No") &
1140 type(kim_species_name_type),
protected,
save, &
1141 bind(c, name=
"KIM_SPECIES_NAME_Lr") &
1149 type(kim_species_name_type),
protected,
save, &
1150 bind(c, name=
"KIM_SPECIES_NAME_Rf") &
1158 type(kim_species_name_type),
protected,
save, &
1159 bind(c, name=
"KIM_SPECIES_NAME_Db") &
1167 type(kim_species_name_type),
protected,
save, &
1168 bind(c, name=
"KIM_SPECIES_NAME_Sg") &
1176 type(kim_species_name_type),
protected,
save, &
1177 bind(c, name=
"KIM_SPECIES_NAME_Bh") &
1185 type(kim_species_name_type),
protected,
save, &
1186 bind(c, name=
"KIM_SPECIES_NAME_Hs") &
1194 type(kim_species_name_type),
protected,
save, &
1195 bind(c, name=
"KIM_SPECIES_NAME_Mt") &
1203 type(kim_species_name_type),
protected,
save, &
1204 bind(c, name=
"KIM_SPECIES_NAME_Ds") &
1212 type(kim_species_name_type),
protected,
save, &
1213 bind(c, name=
"KIM_SPECIES_NAME_Rg") &
1221 type(kim_species_name_type),
protected,
save, &
1222 bind(c, name=
"KIM_SPECIES_NAME_Cn") &
1230 type(kim_species_name_type),
protected,
save, &
1231 bind(c, name=
"KIM_SPECIES_NAME_Nh") &
1239 type(kim_species_name_type),
protected,
save, &
1240 bind(c, name=
"KIM_SPECIES_NAME_Fl") &
1248 type(kim_species_name_type),
protected,
save, &
1249 bind(c, name=
"KIM_SPECIES_NAME_Mc") &
1257 type(kim_species_name_type),
protected,
save, &
1258 bind(c, name=
"KIM_SPECIES_NAME_Lv") &
1266 type(kim_species_name_type),
protected,
save, &
1267 bind(c, name=
"KIM_SPECIES_NAME_Ts") &
1275 type(kim_species_name_type),
protected,
save, &
1276 bind(c, name=
"KIM_SPECIES_NAME_Og") &
1284 type(kim_species_name_type),
protected,
save, &
1285 bind(c, name=
"KIM_SPECIES_NAME_user01") &
1293 type(kim_species_name_type),
protected,
save, &
1294 bind(c, name=
"KIM_SPECIES_NAME_user02") &
1302 type(kim_species_name_type),
protected,
save, &
1303 bind(c, name=
"KIM_SPECIES_NAME_user03") &
1311 type(kim_species_name_type),
protected,
save, &
1312 bind(c, name=
"KIM_SPECIES_NAME_user04") &
1320 type(kim_species_name_type),
protected,
save, &
1321 bind(c, name=
"KIM_SPECIES_NAME_user05") &
1329 type(kim_species_name_type),
protected,
save, &
1330 bind(c, name=
"KIM_SPECIES_NAME_user06") &
1338 type(kim_species_name_type),
protected,
save, &
1339 bind(c, name=
"KIM_SPECIES_NAME_user07") &
1347 type(kim_species_name_type),
protected,
save, &
1348 bind(c, name=
"KIM_SPECIES_NAME_user08") &
1356 type(kim_species_name_type),
protected,
save, &
1357 bind(c, name=
"KIM_SPECIES_NAME_user09") &
1365 type(kim_species_name_type),
protected,
save, &
1366 bind(c, name=
"KIM_SPECIES_NAME_user10") &
1374 type(kim_species_name_type),
protected,
save, &
1375 bind(c, name=
"KIM_SPECIES_NAME_user11") &
1383 type(kim_species_name_type),
protected,
save, &
1384 bind(c, name=
"KIM_SPECIES_NAME_user12") &
1392 type(kim_species_name_type),
protected,
save, &
1393 bind(c, name=
"KIM_SPECIES_NAME_user13") &
1401 type(kim_species_name_type),
protected,
save, &
1402 bind(c, name=
"KIM_SPECIES_NAME_user14") &
1410 type(kim_species_name_type),
protected,
save, &
1411 bind(c, name=
"KIM_SPECIES_NAME_user15") &
1419 type(kim_species_name_type),
protected,
save, &
1420 bind(c, name=
"KIM_SPECIES_NAME_user16") &
1428 type(kim_species_name_type),
protected,
save, &
1429 bind(c, name=
"KIM_SPECIES_NAME_user17") &
1437 type(kim_species_name_type),
protected,
save, &
1438 bind(c, name=
"KIM_SPECIES_NAME_user18") &
1446 type(kim_species_name_type),
protected,
save, &
1447 bind(c, name=
"KIM_SPECIES_NAME_user19") &
1455 type(kim_species_name_type),
protected,
save, &
1456 bind(c, name=
"KIM_SPECIES_NAME_user20") &
1466 module procedure kim_species_name_known
1467 end interface kim_known
1474 interface operator (.eq.)
1475 module procedure kim_species_name_equal
1476 end interface operator (.eq.)
1483 interface operator (.ne.)
1484 module procedure kim_species_name_not_equal
1485 end interface operator (.ne.)
1493 interface kim_from_string
1494 module procedure kim_species_name_from_string
1495 end interface kim_from_string
1502 interface kim_to_string
1503 module procedure kim_species_name_to_string
1504 end interface kim_to_string
1512 logical recursive function kim_species_name_known(species_name)
1515 integer(c_int) recursive function known(species_name) &
1516 bind(c, name=
"KIM_SpeciesName_Known")
1517 use,
intrinsic :: iso_c_binding
1518 import kim_species_name_type
1520 type(kim_species_name_type),
intent(in),
value :: species_name
1523 type(kim_species_name_type),
intent(in) :: species_name
1525 kim_species_name_known = (known(species_name) /= 0)
1526 end function kim_species_name_known
1533 logical recursive function kim_species_name_equal(lhs, rhs)
1535 type(kim_species_name_type),
intent(in) :: lhs
1536 type(kim_species_name_type),
intent(in) :: rhs
1538 kim_species_name_equal &
1539 = (lhs%species_name_id .eq. rhs%species_name_id)
1540 end function kim_species_name_equal
1547 logical recursive function kim_species_name_not_equal(lhs, rhs)
1549 type(kim_species_name_type),
intent(in) :: lhs
1550 type(kim_species_name_type),
intent(in) :: rhs
1552 kim_species_name_not_equal = .not. (lhs .eq. rhs)
1553 end function kim_species_name_not_equal
1561 recursive subroutine kim_species_name_from_string(string, species_name)
1564 type(kim_species_name_type)
recursive function from_string(string) &
1565 bind(c, name=
"KIM_SpeciesName_FromString")
1566 use,
intrinsic :: iso_c_binding
1567 import kim_species_name_type
1569 character(c_char),
intent(in) :: string(*)
1570 end function from_string
1572 character(len=*, kind=c_char),
intent(in) :: string
1573 type(kim_species_name_type),
intent(out) :: species_name
1575 species_name = from_string(trim(string)//c_null_char)
1576 end subroutine kim_species_name_from_string
1583 recursive subroutine kim_species_name_to_string(species_name, string)
1584 use kim_convert_string_module
, only : kim_convert_c_char_ptr_to_string
1587 type(c_ptr)
recursive function get_string(species_name) &
1588 bind(c, name=
"KIM_SpeciesName_ToString")
1589 use,
intrinsic :: iso_c_binding
1590 import kim_species_name_type
1592 type(kim_species_name_type),
intent(in),
value :: species_name
1593 end function get_string
1595 type(kim_species_name_type),
intent(in) :: species_name
1596 character(len=*, kind=c_char),
intent(out) :: string
1600 p = get_string(species_name)
1601 call kim_convert_c_char_ptr_to_string(p, string)
1602 end subroutine kim_species_name_to_string
1613 recursive subroutine get_number_of_species_names( &
1614 number_of_species_names) &
1615 bind(c, name=
"KIM_SPECIES_NAME_GetNumberOfSpeciesNames")
1616 use,
intrinsic :: iso_c_binding
1618 integer(c_int),
intent(out) :: number_of_species_names
1619 end subroutine get_number_of_species_names
1621 integer(c_int),
intent(out) :: number_of_species_names
1623 call get_number_of_species_names(number_of_species_names)
1634 integer(c_int) recursive function get_species_name(index, species_name) &
1635 bind(c, name=
"KIM_SPECIES_NAME_GetSpeciesName")
1636 use,
intrinsic :: iso_c_binding
1637 import kim_species_name_type
1639 integer(c_int),
intent(in),
value :: index
1640 type(kim_species_name_type),
intent(out) :: species_name
1641 end function get_species_name
1643 integer(c_int),
intent(in) :: index
1644 type(kim_species_name_type),
intent(out) :: species_name
1645 integer(c_int),
intent(out) :: ierr
1647 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