29   subroutine init_notation_list(nlist)  argument
33     type(notation_list), intent(inout) :: nlist  local
35     allocate(nlist%list(0:0))
36     allocate(nlist%list(0)%name(0))
37     allocate(nlist%list(0)%systemId(0))
38     allocate(nlist%list(0)%publicId(0))
43   subroutine destroy_notation_list(nlist)  argument
44     type(notation_list), intent(inout) :: nlist  local
48     do i = 0, ubound(nlist%list, 1)
49       deallocate(nlist%list(i)%name)
50       deallocate(nlist%list(i)%systemId)
51       deallocate(nlist%list(i)%publicId)
53     deallocate(nlist%list)
57   subroutine add_notation(nlist, name, systemId, publicId)  argument
58     type(notation_list), intent(inout) :: nlist  local
70     allocate(temp(0:ubound(nlist%list,1)))
71     do i = 0, ubound(nlist%list, 1)
72       temp(i)%name => nlist%list(i)%name
73       temp(i)%systemId => nlist%list(i)%systemId
74       temp(i)%publicId => nlist%list(i)%publicId
77     deallocate(nlist%list)
78     allocate(nlist%list(0:ubound(temp, 1)+1))
80       nlist%list(i)%name => temp(i)%name
81       nlist%list(i)%systemId => temp(i)%systemId
82       nlist%list(i)%publicId => temp(i)%publicId
86     allocate(nlist%list(i)%name(len(name)))
87     nlist%list(i)%name = vs_str(name)
89       allocate(nlist%list(i)%systemId(len(systemId)))
90       nlist%list(i)%systemId = vs_str(systemId)
92       allocate(nlist%list(i)%systemId(0))
95       allocate(nlist%list(i)%publicId(len(publicId)))
96       nlist%list(i)%publicId = vs_str(publicId)
98       allocate(nlist%list(i)%publicId(0))
103   function notation_exists(nlist, name) result(p)
104     type(notation_list), intent(in) :: nlist  local
111     do i = 1, ubound(nlist%list, 1)
112       if (str_vs(nlist%list(i)%name) == name) then