Add hash code to the printed message

victorsndvg · Oct 22, 2015 · 1b8409d · 1b8409d
1 parent 3a21748
commit 1b8409d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 8 deletions.
diff --git a/src/lib/ParameterListEntry.f90 b/src/lib/ParameterListEntry.f90
@@ -174,7 +174,7 @@ subroutine ParameterListEntry_Print(this, unit, prefix, iostat, iomsg)
         select type (Node)
             class is (ParameterListEntry_t)
                 do while(Node%HasKey())
-                    write(unit=unit,fmt='(A,$)',iostat=iostatd,iomsg=iomsgd)prefd//'   Key = '//Node%GetKey()//', '
+                    write(unit=unit,fmt='(A,$)',iostat=iostatd,iomsg=iomsgd)prefd//' Key = "'//Node%GetKey()//'", '
                     call Node%Value%Print(unit=unit)
                     if (Node%HasNext()) then
                         Next => Node%GetNext()

diff --git a/src/lib/ParameterListEntryContainer.f90 b/src/lib/ParameterListEntryContainer.f90
@@ -163,7 +163,6 @@ subroutine ParameterListEntryContainer_Set1D(this,Key,Value)
         WrapperFactory => this%WrapperFactoryList%GetFactory(Value=Value)
         if(associated(WrapperFactory)) call WrapperFactory%Wrap(Value=Value, Wrapper=Wrapper)
         if(allocated(Wrapper)) then
-            call Wrapper%Print(unit=6)
             call this%DataBase(this%Hash(Key=Key))%AddNode(Key=Key,Value=Wrapper)
             call Wrapper%Free()
             deallocate(Wrapper)
@@ -308,7 +307,6 @@ subroutine ParameterListEntryContainer_Get0D(this,Key,Value)
                 type is (ParameterListEntry_t)
                     call Node%GetValue(Value=Wrapper)
                     if(allocated(Wrapper)) then
-                        call Wrapper%Print(unit=6)
                         WrapperFactory => this%WrapperFactoryList%GetFactory(Value=Value)
                         if(associated(WrapperFactory)) call WrapperFactory%UnWrap(Wrapper=Wrapper, Value=Value)
                     endif
@@ -334,7 +332,6 @@ subroutine ParameterListEntryContainer_Get1D(this,Key,Value)
                 type is (ParameterListEntry_t)
                     call Node%GetValue(Value=Wrapper)
                     if(allocated(Wrapper)) then
-                        call Wrapper%Print(unit=6)
                         WrapperFactory => this%WrapperFactoryList%GetFactory(Value=Value)
                         if(associated(WrapperFactory)) call WrapperFactory%UnWrap(Wrapper=Wrapper, Value=Value)
                     endif
@@ -399,12 +396,13 @@ subroutine ParameterListEntryContainer_Print(this, unit, prefix, iostat, iomsg)
         integer(I4P)                                      :: DBIter  !< Database iterator
     !-----------------------------------------------------------------
         prefd = '' ; if (present(prefix)) prefd = prefix
-        write(*,fmt='(A)') prefd//' LINKED LIST KEYS:'
+        write(*,fmt='(A)') prefd//' PARAMETER LIST CONTENT:'
+        write(*,fmt='(A)') prefd//' -----------------------'
         if (allocated(this%DataBase)) then
-            write(*,fmt='(A)') prefd//' PARAMETER LIST CONTENT:'
-            write(*,fmt='(A)') prefd//' -----------------------'
             do DBIter=lbound(this%DataBase,dim=1), ubound(this%DataBase,dim=1)
-                call this%DataBase(DBIter)%print(unit=unit, prefix=prefd//"  ",iostat=iostatd,iomsg=iomsgd)
+                call this%DataBase(DBIter)%Print(unit=unit,                             &
+                        prefix=prefd//'  ['//trim(str(no_sign=.true., n=DBIter))//'] ', &
+                        iostat=iostatd,iomsg=iomsgd)
             enddo
         endif
         if (present(iostat)) iostat = iostatd