C MAXIN4    SOURCE    BP208322  13/06/12    21:15:01     7776           
      SUBROUTINE MAXIN4 (IPEVO,IPLACE,AGRAND,OGRAND,KPLUS,LABSO,
     &IGRAND,JGRAND)                      
************************************************************************        
*                                                                               
*                             M A X I N 4                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     FOURNIR LA PLUS GRANDE VALEUR D'UNE EVOLUTION
*      indice / abscisse / ordonnée 
* appelle maxin3                             
*                                                                               
************************************************************************        
*
      IMPLICIT INTEGER(I-N)
-INC SMEVOLL
-INC SMLREEL
-INC SMLENTI
-INC CCOPTIO 
      REAL*8 AGRAND,OGRAND                                                        

      MEVOLL = IPEVO
      segact mevoll
      nevo = ievoll(/1)
      jg = nevo
      jgok = 0
      
      if (nevo.gt.1) then
      
        segini mlree1,mlree2,mlenti
c       on boucle sur les sous evolutions 
        do 100 in = 1, nevo
          kevoll = ievoll(in)
          segact kevoll
c         on verifie d'abord qu'il s'agisse bien de listreel-listreel      
          if(TYPX.ne.'LISTREEL') goto 100
          if(TYPY.ne.'LISTREEL') goto 100
          jgok=jgok+1
          IPRO = IPROGY
          CALL MAXIN3 (IPRO,  IPLACE,OGRAND,KPLUS,LABSO)
          mlree2.prog(jgok) = OGRAND
          mlenti.lect(jgok) = IPLACE                       
          mlreel = IPROGX
          segact mlreel
          AGRAND = prog(IPLACE)
          mlree1.prog(jgok) = AGRAND
          segdes mlreel 
 100    segdes kevoll         
        IGRAND = mlree1
        JGRAND = mlree2
        IPLACE = mlenti
        if(jgok.ne.jg) then
          if(jgok.eq.0) goto 666
          write(ioimp,*) 'Seuls les objets EVOLUTION de type LISTREEL-'
     &    ,'LISTREEL sont conservés'
          jg=jgok
          segadj,mlree1,mlree2,mlenti
        endif
        segdes,mlree1,mlree2,mlenti
        
      else
      
        IGRAND = 0
        JGRAND = 0
        kevoll = ievoll(1)
        segact kevoll
        if(TYPX.ne.'LISTREEL') goto 666
        if(TYPY.ne.'LISTREEL') goto 666
        IPRO = IPROGY
        CALL MAXIN3 (IPRO,  IPLACE,OGRAND,KPLUS,LABSO)                       
        mlreel = IPROGX
        segact mlreel
        AGRAND = prog(IPLACE)
        segdes mlreel,kevoll
        
      endif
      
C     PAS D'ERREUR
      goto 900

c     ERREUR
 666  continue
      write(ioimp,*) 'L objet EVOLUTION doit etre de type LISTREEL-'
     &,'LISTREEL !'
      call erreur(21)
      
C     FIN NORMALE
 900  continue
      segdes mevoll
      RETURN
      END