nameValueLL_rules.F90

Go to the documentation of this file.

!! NOTICE
!!  Copyright 2022 UChicago Argonne, LLC and contributors
!!
!!  Licensed under the Apache License, Version 2.0 (the "License");
!!  you may not use this file except in compliance with the License.
!!
!!  Unless required by applicable law or agreed to in writing, software
!!  distributed under the License is distributed on an "AS IS" BASIS,
!!  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
!!  See the License for the specific language governing permissions and
!!  limitations under the License.
!!
 
subroutine nameValueLL_rulesInt ( context, name, numValues, minValues, maxValues)
 
  use nameValueLL_data !, ONLY: context_type, nameValueLL_findInt, &
 !     &  name_invalid, name_real, name_int, name_str, name_log, &
 !     &  real_list_type, int_list_type, str_list_type, log_list_type
  use Driver_interface, ONLY : Driver_abort
 
  implicit none
 
   type (context_type), intent(inout) :: context
   character(len=*), intent(in) :: name
   integer, intent(in) :: numValues
   integer,dimension(numValues),intent(in):: minValues,maxValues
   type (int_list_type), pointer :: node
   integer :: istat
 
   call nameValueLL_findInt(context,name,node)
 
   if (.not. associated(node)) then
      call Driver_abort("rules: add parameter and then the rules")
   endif
 
   node%numValues = 0
   nullify(node%maxValues)
   nullify(node%minValues)
   allocate(node%minValues(numValues),stat=istat)
   if (istat /= 0) then
      call Driver_abort("rules: unable to allocate")
   endif
   allocate(node%maxValues(numValues),stat=istat)
   if (istat /= 0) then
      call Driver_abort("rules: unable to allocate")
   endif
   node%minValues = minValues
   node%maxValues = maxValues
   node%numValues = numValues
 
end subroutine nameValueLL_rulesInt
   
!!
 
subroutine nameValueLL_rulesReal ( context, name, numValues, minValues, maxValues)
 
  use nameValueLL_data !, ONLY: context_type, nameValueLL_findReal, &
 !     &  name_invalid, name_real, name_int, name_str, name_log, &
 !     &  real_list_type, int_list_type, str_list_type, log_list_type
  use Driver_interface, ONLY : Driver_abort
 
  implicit none
 
   type (context_type), intent(inout) :: context
   character(len=*), intent(in) :: name
   integer,intent(in) :: numValues
   real,dimension(numValues),intent(in):: minValues,maxValues
   type (real_list_type), pointer :: node
   integer :: istat
 
   call nameValueLL_findReal(context,name,node)
 
   if (.not. associated(node)) then
      call Driver_abort("rules: add parameter and then the rules")
   endif
 
   node%numValues = 0
   nullify(node%minValues)
   nullify(node%maxValues)
   allocate(node%minValues(numValues),stat=istat)
   if (istat /= 0) then
      call Driver_abort("rules: unable to allocate")
   endif
   allocate(node%maxValues(numValues),stat=istat)
   if (istat /= 0) then
      call Driver_abort("rules: unable to allocate")
   endif
   node%minValues = minValues
   node%maxValues = maxValues
   node%numValues = numValues
 
end subroutine nameValueLL_rulesReal
   
!!
 
subroutine nameValueLL_rulesStr ( context, name, numValues, validValues)
 
  use nameValueLL_data !, ONLY: context_type, nameValueLL_findStr, &
 !     &  name_invalid, name_real, name_int, name_str, name_log, &
 !     &  real_list_type, int_list_type, str_list_type, log_list_type
  use Driver_interface, ONLY : Driver_abort
 
  implicit none
 
   type (context_type), intent(inout) :: context
   character(len=*), intent(in) :: name
   integer,intent(in) :: numValues
   character(len=*),dimension(numValues),intent(in):: validValues
   type (str_list_type), pointer :: node
   integer :: istat
 
   call nameValueLL_findStr(context,name,node)
 
   if (.not. associated(node)) then
      call Driver_abort("rules: add parameter and then the rules")
   endif
 
   node%numValues = 0
   nullify(node%validValues)
   allocate(node%validValues(numValues),stat=istat)
   if (istat /= 0) then
      call Driver_abort("rules: unable to allocate")
   endif
   node%validValues = validValues
   node%numValues = numValues
   do istat = 1 , numValues
      call makeLowercase(node%validValues(istat))
   enddo
 
end subroutine nameValueLL_rulesStr