Fortran 77 to matlab or c
samia317
-
taoufik -
taoufik -
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(....)
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(....)
A voir également:
- Fortran 77 to matlab or c
- Or - Guide
- Qwerty to azerty - Guide
- Request header or cookie too large - Forum Webmastering
- Wfp to mp4 - Forum Accessoires & objets connectés
- Carre or bercy ✓ - Forum Loisirs / Divertissements
4 réponses
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
merci de votre réponse
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".
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".