ang_mom_int_to_char Function

public pure function ang_mom_int_to_char(ang_mom) result(ang_mom_char)

Convert angular momentum integer to character

Inverse mapping: 0=S, 1=P, 2=D, 3=F, 4=G, 5=H, 6=I Returns ‘?’ for invalid input values.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ang_mom

Angular momentum quantum number

Return Value character(len=1)

Corresponding symbol character


Source Code

   pure function ang_mom_int_to_char(ang_mom) result(ang_mom_char)
      !! Convert angular momentum integer to character
      !!
      !! Inverse mapping: 0=S, 1=P, 2=D, 3=F, 4=G, 5=H, 6=I
      !! Returns '?' for invalid input values.
      integer, intent(in) :: ang_mom  !! Angular momentum quantum number
      character(len=1) :: ang_mom_char  !! Corresponding symbol character

      select case (ang_mom)
      case (0)
         ang_mom_char = 'S'
      case (1)
         ang_mom_char = 'P'
      case (2)
         ang_mom_char = 'D'
      case (3)
         ang_mom_char = 'F'
      case (4)
         ang_mom_char = 'G'
      case (5)
         ang_mom_char = 'H'
      case (6)
         ang_mom_char = 'I'
      case default
         ang_mom_char = '?'
      end select
   end function ang_mom_int_to_char