fortran 77 to matlab or c Fermé

Question

bonjour, 

je trouve beaucoup difficultés a convertir le code ecrit en fortran 77 au matlab , si quelqun peut m'aider je serait trés réconnaissante. 

merci d'avant. ( le code est le suivant ) 
C	début de boucle  (LABEL 300)
C 
 300      NITER=NITER+1                                                                                        
          G=FG*G+(1.0-FG)*G                             
C         relaxation de RE                                    
          ICONT=ICONT+1                                                
          IF(ICONT.LE.IFREC)JFLAG=2                                    
          IF(NITER.EQ.1)JFLAG=1                                         
          IF(JFLAG.EQ.2)GO TO 125                                      
          RE=FRE*RE1+(1.0-FRE)*RE                                   
          ICONT=0                                                     
 125      JFLAG=1                                                      
           RE=RE1                                  
          IF(PROG01) CALL PROG1                                        
          IF(PROG02) CALL PROG2                                        
                                                    
C          WRITE(6,324)RE1,RE                                                                   
          WRITE(6,311)NITER,SOR1,SOR2        
                                                 
          IF(MOD(NITER,INDPRI).NE.0)GO TO 301                           
          WRITE(6,311)NITER,SOR1,SOR2  
c          IF(PROG01) CALL PROG1   PRINT(....)                                      
c          IF(PROG02) CALL PROG2   PRINT(....) 
C                                                 
C        test final                                                 
 301      SOR=DMAX1(SOR1,SOR2)               
          IF(SOR.LE.CONTR*SORMAX)GO TO 400                           
          GO TO 410                                                    
 400      NJ=NJ-1                                                 
                   
 420      CONTINUE                                                      
 410      IF(NITER.GE.MAXIT)GO TO 304                                  
          IF(SOR.GT.SORMAX)GO TO 300                                  
C        opérations final et résultast                                     
          WRITE(16,306)                                                
          WRITE(16,307)                                                
          GO TO 302                                                    
 304      WRITE(16,306)                                                 
          WRITE(16,309)                                                
 302       WRITE(6,311)NITER,SOR1,SOR2       
         IF(PROG01) CALL PROG1   PRINT(....)                                      
         IF(PROG02) CALL PROG2   PRINT(....)

Char Snipeur · Answer

c'est possible de traduire le goto en MATLAB ??
Sans ça il faut revoir le programme en profondeur.

thanks · Answer

salut  je croit qu'on peut pas traduire goto en matlab mais il faut l'idée e faire be boucle while ou if


merci de votre réponse

cchristian · Answer

Bonsoir, 

De toutes manières avec ou sans l'instruction GO TO dans le langage cible il semble qu'il soit nécessaire de refondre le programme source (FORTRAN). En effet cette façon de programmer n'est pas recevable, la dernière fois que j'ai vu programmer de cette manière c'était dans les années 70 et c'était déjà vivement condamné.
Comme l'écrit Char Snipeur "il faut revoir le programme en profondeur".

taoufik · Answer

merci beaucoup de votre attentions

en tout cas, sans voir le programme en profondeur c'est une facon de programmer en fortran 77 mais ce petit program est un test de convergence necessaire dans d'autre calcul  

si quelcun peut m'aider je serait trés réconnaissant 

merci

Fortran 77 to matlab or c

4 réponses

Discussions similaires