c$Header: /weru/cvs/weps/weps.src/manage/dooper.for,v 1.1.1.1 1999-03-12 17:05:28 wagner Exp $
c
c
      subroutine   dooper (sr)
c
c     + + + PURPOSE + + +
c     Dooper is called when an operation line is found by the prfind
c     subroutine. Dooper reads in any coefficients associated with the
c     operation. Dooper then makes a call to a subroutine which, in turn,
c     modifies the state variables to mimic the effects of doing the
c     operation.
C
C     Edit History
C     19-Feb-99   wjr   removed iunit from param
C     20-Feb-99   wjr   made parse of oper line fixed format
c
c     + + + KEYWORDS + + +
c     tillage, operation, management
c
c     + + + PARAMETERS AND COMMON BLOCKS + + +
*$noereference
      include 'p1werm.inc'
      include 'manage/oper.inc'
      include 'manage/man.inc'
*$reference
c
c     + + + ARGUMENT DECLARATIONS + + +
      integer sr
c
c     + + + ARGUMENT DEFINITIONS + + +
c     sr - the subregion number
c
c     + + + LOCAL VARIABLES + + +
      character*1 opdumy
c
c     + + + SUBROUTINES CALLED + + +
c
c     + + + DATA INITIALIZATIONS + + +
c
c     + + + END SPECIFICATIONS + + +
C
C      write(*,*) '*>dooper line |', mtbl(mcur(sr)), '|'
      read(mtbl(mcur(sr)), 1001) opdumy, opcode, opname
 1001 format(a1,1x,i2,1x,a)
      print*, 'SR',sr,' Processing operation:',
     &        opcode,' ',opname
c
      return
C Error stops
  901 write(*,9901) mtbl(mcur(sr))
 9901 format ('DOOPER: Error reading line ->', a)
      stop 1003
      end