Numérotation des lignes :

maxin4
C MAXIN4    SOURCE    PV        21/04/26    21:15:14     10978                SUBROUTINE MAXIN4 (IPEVO,IPLACE,AGRAND,OGRAND,KPLUS,LABSO,     &KGRAND,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 PPARAM-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,mlentic       on boucle sur les sous evolutions        do 100 in = 1, nevo          kevoll = ievoll(in)          segact kevollc         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        segdes kevoll 100    continue        KGRAND = 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         KGRAND = 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    

© Cast3M 2003 - Tous droits réservés.
Mentions légales