FIO_MAKE_SPECIES Function

  1. korc_fio_interface.f90
  2. korc_fio
  3. FIO_MAKE_SPECIES

public function FIO_MAKE_SPECIES(m, p, e)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: m
integer, intent(in) :: p
integer, intent(in) :: e

Return Value integer(kind=C_INT)


Called by

proc~~fio_make_species~~CalledByGraph proc~fio_make_species FIO_MAKE_SPECIES proc~initialize_m3d_c1_imp initialize_m3d_c1_imp proc~initialize_m3d_c1_imp->proc~fio_make_species proc~initialize_collision_params initialize_collision_params proc~initialize_collision_params->proc~initialize_m3d_c1_imp program~main main program~main->proc~initialize_m3d_c1_imp program~main->proc~initialize_collision_params

Contents

Source Code

FIO_MAKE_SPECIES

Source Code

  FUNCTION FIO_MAKE_SPECIES(m, p, e)
    INTEGER, INTENT(IN) :: m
    INTEGER, INTENT(IN) :: p
    INTEGER, INTENT(IN) :: e
    INTEGER(C_INT) :: FIO_MAKE_SPECIES
    
    FIO_MAKE_SPECIES = e + p*256 + (m-p)*65536
  END FUNCTION FIO_MAKE_SPECIES