c$Author: fredfox $
c$Date: 2001-11-21 22:58:07 $
c$Revision: 1.4 $
c$Source: /weru/cvs/weps/weps.src/manage/dooper.for,v $

      subroutine   dooper (sr)

c     + + + PURPOSE + + +
c     Dooper reads in any coefficients associated with the
c     operation.

c     + + + KEYWORDS + + +
c     tillage, operation, management

c     + + + PARAMETERS AND COMMON BLOCKS + + +
      include 'p1werm.inc'
      include 'manage/oper.inc'
      include 'manage/man.inc'
      include 'manage/mproc.inc'

c     + + + ARGUMENT DECLARATIONS + + +
      integer sr

c     + + + ARGUMENT DEFINITIONS + + +
c     sr - the subregion number

c     + + + ACCESSED COMMON BLOCK VARIABLE DEFINITIONS + + +
c     odir - operation direction (degrees from NORTH)
c     ospeed - operation speed 

c     + + + LOCAL VARIABLES + + +
      character*80   line
      character*1 opdumy
c
c     + + + SUBROUTINES CALLED + + +
c     + + + FUNCTIONS CALLED + + +

      integer lentrm

c     + + + DATA INITIALIZATIONS + + +

c     + + + END SPECIFICATIONS + + +

C      write(*,*) '*>dooper line |', mtbl(mcur(sr)), '|'
      read(mtbl(mcur(sr)), 1001) opdumy, opcode, opname
 1001 format(a1,1x,i2,1x,a)
      if( (opcode.eq.0).and.(mcount(sr).gt.0) ) then
          opskip = 1
          print*, 'SR',sr,' Skip operation',
     &        opcode,' ',opname
      else
          print*, 'SR',sr,' Do operation',
     &        opcode,' ',opname
      end if
      if( opcode.eq.1 ) then
c         get additional line of data
          mcur(sr) = mcur(sr) + 1
          line = mtbl(mcur(sr))
c         read tillage speed and direction
          read(line(2:lentrm(line)), *, err=901) ospeed, odir,
     &                             ostdspeed, ominspeed, omaxspeed
      end if
c
      return
C Error stops
  901 write(*,9901) mtbl(mcur(sr))
 9901 format ('DOOPER: Error reading line ->', a)
      stop 1003
      end