!+
! Subroutine read_integer
! 
! Routine to read a string at the command line 
! On a carriage return, with no string supplied, string = default_string
!
! Input:
!  character(*) -- query string
!  integer -- default_integer
!
! Output:
!  integer -- answer
!
 
subroutine  read_integer(query_str,default_integer, answer)

implicit none

 character(*) query_str
 integer ix, default_integer, answer

  print '(a,$)', query_str
  read(*,'(a)') query_str
  call string_trim(string, string, ix)
!  if(ix == 0 .or. ix == len(string))then
  if(ix == 0)then
     string = default_string
  endif
 return
 end