19 #include "../base/base_uses.f90"
24 LOGICAL :: in_use = .false.
25 INTEGER :: nel_list = huge(0)
26 INTEGER :: istart = huge(0), iend = huge(0)
27 INTEGER :: ipresent = huge(0)
31 CHARACTER(len=*),
PARAMETER,
PRIVATE :: moduleN =
'cp_parser_ilist_types'
42 TYPE(ilist_type),
POINTER :: ilist
44 cpassert(.NOT.
ASSOCIATED(ilist))
56 TYPE(ilist_type),
POINTER :: ilist
58 cpassert(
ASSOCIATED(ilist))
a module to allow simple internal preprocessing in input files.
subroutine, public release_ilist_type(ilist)
creates the integer listing type
subroutine, public create_ilist_type(ilist)
creates the integer listing type