get_variable Subroutine

  1. main.f90
  2. rmsd_main
  3. get_variable

subroutine get_variable(var, val)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: var

Name of variable
character(len=:), intent(out), allocatable:: val

Value of variable

Contents

Source Code

get_variable

Source Code

subroutine get_variable(var, val)

   !> Name of variable
   character(len=*), intent(in) :: var

   !> Value of variable
   character(len=:), allocatable, intent(out) :: val

   integer :: length, stat

   call get_environment_variable(var, length=length, status=stat)
   if (stat /= 0) then
      return
   endif

   allocate(character(len=length) :: val, stat=stat)
   if (stat /= 0) then
      return
   endif

   if (length > 0) then
      call get_environment_variable(var, val, status=stat)
      if (stat /= 0) then
         deallocate(val)
         return
      end if
   end if

end subroutine get_variable