uuid
!-----------
integer            :: icount=0
character(len=255) :: message=' '
   open(unit=10,file='cases.nml',delim='apostrophe') ! open a file to read NAMELIST data from
   do                    ! loop, reading and processing one read at a time
      uuid=''            ! if you do not set the values between calls the changes are cumulative
      ! it is common to set all values between sets but it can be very useful that the values
      ! are retained when doing a series of cases where only 