sam/grab_input.f at master · tslund/sam · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
      subroutine grab_input( i_unit, var_name, value, ivalue, ierr )

      character(*)  var_name
      character(len(var_name)) var_name_lower
      character(12) label
      logical done

      ierr = 0
      done = .false.

      rewind(i_unit)

c   *** read_line already converts labels to lower case.  We convert
c   *** var_name to lower case here in line in order to compare strictly
c   *** lower case strings.

      call to_lower( var_name, var_name_lower, len(var_name) )

      do while( .not. done )
         call read_line( i_unit, label, value, done, ierr )
         if( label .eq. var_name_lower ) then
            ivalue = nint(value)
            return
         end if
      end do

      print *, 'Error in grab_input: unable to find ', var_name
      ierr = 1

      return
      end