C$header: /weru/cvs/weps/manage/prfind.for,v 1.2 1995/09/13 15:54:45 wagner Exp $
c
c
      subroutine   prfind
     i                      (iunit, sr)
c
c     + + + PURPOSE + + +
c     Prfind is called after dooper has read in all global operation info.
c     Prfind goes through the next part of the MANAGMENT file calling
c     doproc for every individual process under the operation.
c
c     + + + KEYWORDS + + +
c     tillage, process, management
c
c     + + + PARAMETERS AND COMMON BLOCKS + + +
*$noereference
      include 'p1werm.inc'
      include 'manage/man.inc'
*$reference
c
c     + + + ARGUMENT DECLARATIONS + + +
      integer iunit, sr
c
c     + + + ARGUMENT DEFINITIONS + + +
c     iunit - management file handle
c     sr - the subregion number
c
c     + + + SUBROUTINES CALLED + + +
c     doproc - DO PROCess is called each time a process line is encountered
c
c     + + + END SPECIFICATIONS + + +
c
c     standard "skip comment lines" segment
 10   if (mline(1:1).eq.'#') then
        mrecnum = mrecnum+1
        read (iunit, rec=mrecnum) mline(:mrcl(sr))
        go to 10
      endif
c
      if (mline(1:1).eq.'O') then
        call dooper(sr)
      elseif (mline (1:1).eq.'P') then
        call doproc(sr)
      elseif (mline (1:1).eq.'E') then
        call doeffect(sr)
      else
c       no more processes or operations to do
        go to 1000
      endif
      go to 10
c
 1000 return
      end
c
c$Log: not supported by cvs2svn $
cRevision 1.3  1999/03/25 17:37:55  wjr
cxxx
c
cRevision 1.2  1999/03/22 22:07:36  wjr
cchanged number of parameters passed to the do's.  bad error
c
cRevision 1.1.1.1  1999/03/12 17:05:28  wagner
cBaseline version of WEPS with Bill Rust's modifications
c
c Revision 1.3  1996/01/19  21:48:20  jt
c Changed the way we handle read statements
c
c Revision 1.2  1995/09/13  15:54:45  wagner
c Necessary changes made to allow FORTRAN src files (*.for) to use the
c extended FORTRAN include statement rather than the MICROSOFT $INCLUDE
c directive as previously used.  This is required to allow use of other
c FORTRAN compilers.
c
c Changes have been made to the prologue.mk, epilogue.mk, and the Unix
c master startup.mk files as well as the src files.
c
c Revision 1.1.1.1  1995/01/18  04:19:54  wagner
c Initial checkin
c
c Revision 1.7  1992/10/18  17:09:48  wagner
c Don't know anymore.  Should have checked in earlier.
c
c Revision 1.6  1992/10/13  08:31:05  wagner
c Major changes involving reading management file.
c
c Revision 1.5  1992/10/10  21:15:07  wagner
c Converted TILLAGE submodel to MANAGEMENT submodel.
c
c Revision 1.4  1992/06/29  19:52:16  dudley
c *** empty log message ***
c