Projet mkd/fortran.c

De Wiki EELL.

(Différences entre les versions)
m (→Fichiers fortran : !)
m (→Fichiers fortran : !!)
 
(5 versions intermédiaires masquées)
Ligne 1 : Ligne 1 :
<small>[[Projet mkd/Fichiers en développement|Retour aux fichiers en développement &rarr;]]</small>
<small>[[Projet mkd/Fichiers en développement|Retour aux fichiers en développement &rarr;]]</small>
-
== Fichiers fortran ==
+
== Fichiers fortran 77 ==
 +
; See tri.c for fortran_90_&+
* Testé:
* Testé:
: fortran.c pour Konsole
: fortran.c pour Konsole
Ligne 7 : Ligne 8 :
: fortran.inc.cc pour inclusion dans le source c++ avec gtkmm
: fortran.inc.cc pour inclusion dans le source c++ avec gtkmm
-
{{Boîte déroulante/début|titre=Fortran Avril 2013}}
+
{{Boîte déroulante/début|titre=Fortran ; Updated 2013-05-11}}
-
<pre>
+
* fortran.c f77
 +
<pre style="color:red">
/*P
/*P
FILE NAMES: fortran.c for konsole, or fortran.cc or fortran.inc.cc to include
FILE NAMES: fortran.c for konsole, or fortran.cc or fortran.inc.cc to include
Ligne 106 : Ligne 108 :
   The 'Codes': table of 5 characters:
   The 'Codes': table of 5 characters:
       extern char codes[];  
       extern char codes[];  
-
       They must be défined in the calling function:
+
       They must be defined in the calling function:
       char codes[5] = {0,0,0,0,0};
       char codes[5] = {0,0,0,0,0};
   The 'Options': l,n,s,t.  
   The 'Options': l,n,s,t.  
       see NOTES for inline ! comment
       see NOTES for inline ! comment
       extern unsigned char n,s,t;
       extern unsigned char n,s,t;
-
       They must be dEfined in the calling function:
+
       They must be defined in the calling function:
       unsigned char n=0,s=0,t=0;
       unsigned char n=0,s=0,t=0;
   With the options:
   With the options:
Ligne 172 : Ligne 174 :
void fortran_ (FILE * pfdoc, FILE * pnfile);
void fortran_ (FILE * pfdoc, FILE * pnfile);
*/
*/
-
 
+
</pre>
-
/** #########################################
+
<pre style="color:blue">
-
    #                FORTRAN                #
+
-
    ######################################### */
+
-
 
+
#ifndef GTKMM  
#ifndef GTKMM  
   // If GTKMM is not defined then it is a Konsole version
   // If GTKMM is not defined then it is a Konsole version
Ligne 241 : Ligne 240 :
/*O                    si option s copier de même à la sortie standard */
/*O                    si option s copier de même à la sortie standard */
                         if (s && n) printf("%5d ", num );
                         if (s && n) printf("%5d ", num );
-
                         if (!t) putch(c1);
+
                         if (s && !t)putch(c1);
-
                         else putch(' '); // colonne 2
+
                         if (s && t)putch(' '); // colonne 2
                     } /* Cas 1 copier tous les commentaires ('Code' NULL) */
                     } /* Cas 1 copier tous les commentaires ('Code' NULL) */
Ligne 325 : Ligne 324 :
                           { /*S espaces */
                           { /*S espaces */
                               putc(' ',pfdoc);
                               putc(' ',pfdoc);
-
                               putch(' ');
+
                               if(s)putch(' ');
                           } /*S espaces */
                           } /*S espaces */
                         } /*S espaces en début de ligne */
                         } /*S espaces en début de ligne */
Ligne 376 : Ligne 375 :
         return;
         return;
     } /*S fortran */
     } /*S fortran */
-
 
</pre>
</pre>
{{boîte déroulante/fin}}
{{boîte déroulante/fin}}
Ligne 382 : Ligne 380 :
== Fichier de commande de tests Konsole ==
== Fichier de commande de tests Konsole ==
-
{{Boîte déroulante/début|titre=Fichier de commandes, Avril 2013}}
+
* Fichier: Make_Tests_U_f77
 +
* Fichier: Make_Tests_U_f90
 +
 
 +
{{Boîte déroulante/début|titre=Fichiers de commandes, Avril 2013}}
 +
 
 +
'''Fichier: Make_Tests_U_f77'''
 +
<pre>
 +
#!/bin/bash
 +
#O Fichier: Make_Tests_U_f77
 +
#O ../../mkd tests under Linux.
 +
#O Epreuve de vérification de la fonction fortran_() avec ../../mkd
 +
 
 +
#O Tests copier tous les caractères
 +
echo "---- sans numérotation ----" > tst1for.txt
 +
../../mkd -Fa '**' Stats.f tst1for.txt
 +
echo "" >> tst1for.txt
 +
echo "---- avec numérotation ----" >> tst1for.txt
 +
../../mkd -Fan '**' Stats.f tst1for.txt
 +
echo "" >> tst1for.txt
 +
echo "---- avec numérotation et copie stdout ----" >> tst1for.txt
 +
../../mkd -Fans '**' Stats.f tst1for.txt > tst1.stdout.txt
 +
echo "" >> tst1for.txt
 +
echo "---- avec numérotation texte seul et copie stdout ----" >> tst1for.txt
 +
../../mkd -Fants '**' Stats.f tst1for.txt > tst1.stdout.txt
 +
 
 +
 +
#O Tests avec code '0'
 +
      echo "---- sans numérotation ----" > tst2for.txt
 +
../../mkd -Fa O Stats.f tst2for.txt
 +
echo "" >> tst2for.txt
 +
echo "---- avec numérotation ----" >> tst2for.txt
 +
../../mkd -Fan O Stats.f tst2for.txt
 +
echo "" >> tst2for.txt
 +
echo "---- avec numérotation et copie terminal ----" >> tst2for.txt
 +
../../mkd -Fans O Stats.f tst2for.txt > tst2.stdout.txt
 +
echo "---- avec texte seul ----" >> tst2for.txt
 +
echo "" >> tst2for.txt
 +
../../mkd -Fat O Stats.f tst2for.txt
 +
echo "---- avec texte seul et copie stdout ----" >> tst2for.txt
 +
echo "" >> tst2for.txt
 +
../../mkd -Fats O Stats.f tst2for.txt > tst2.stdout.txt
 +
echo "---- texte seul avec numérotation ----" >> tst2for.txt
 +
echo "" >> tst2for.txt
 +
../../mkd -Fant O Stats.f tst2for.txt
 +
echo "" >> tst2for.txt
 +
echo "---- texte seul avec numérotation et copie stdout ----" >> tst2for.txt
 +
../../mkd -Fants O Stats.f tst2for.txt >> tst2.stdout.txt
 +
 +
#O Tests de fin de fichier
 +
#../../mkd -Fws Stats.f tst_end
 +
 
 +
#O Afficher dans gedit
 +
gedit tst1for.txt tst1.stdout.txt tst2for.txt tst2.stdout.txt
 +
 +
#O Erase Tests fortran 77
 +
rm *.doc
 +
rm *.o
 +
rm tst1for.txt tst1.stdout.txt
 +
rm tst2for.txt tst2.stdout.txt
 +
 
 +
</pre>
 +
 
 +
'''Fichier: Make_Tests_U_f90'''
 +
<pre>
 +
#!/bin/bash
 +
#O ../../mkd tests under Linux.
 +
#O Epreuve de vérification de la compilation CD3 = '!'
 +
 
 +
echo "tous les commentaires avec '**' " > Degrad.doc
 +
../../mkd -la '**' Degrad.f
 +
../../mkd -lan '**' Degrad.f
 +
../../mkd -lvans '**' Degrad.f Degrad.doc > Degrad.scr.txt
 +
 
 +
echo "" >> Degrad.doc
 +
echo "tous les commentaires avec 'S' " >> Degrad.doc
 +
../../mkd -la S Degrad.f
 +
../../mkd -lan S Degrad.f
 +
../../mkd -lvans S Degrad.f Degrad.doc >> Degrad.scr.txt
 +
 
 +
echo "" >> Degrad.doc
 +
echo "tous les textes seuls avec 'S' " >> Degrad.doc
 +
../../mkd -lat S Degrad.f
 +
../../mkd -lant S Degrad.f
 +
../../mkd -lvants S Degrad.f Degrad.doc >> Degrad.scr.txt
 +
 
 +
gedit Degrad.doc Degrad.scr.txt
 +
 
 +
rm Degrad.doc Degrad.scr.txt
 +
 
 +
</pre>
{{boîte déroulante/fin}}
{{boîte déroulante/fin}}
-
=== Analyse du test konsole ===
+
== Analyse du test konsole ==
 +
 
 +
Fichier: Analyse.txt
{{Boîte déroulante/début|titre=Résultat des tests; analyse Avril 2013}}
{{Boîte déroulante/début|titre=Résultat des tests; analyse Avril 2013}}
 +
<pre>
 +
Fichier: Analyse.text
 +
 +
Analyse du 20/04/2013 par JPL mkd 2013 alpha 1 par Clara
 +
Analyse avec Stats.f
 +
--------------------
 +
Cette analyse concerne la fonction fortran_() du fichier fotran.c
 +
 +
Analyse du cas 1 avec 'Codes' = '**' Copier tous les commentaires
 +
-----------------------------------------------------------------
 +
  mkd -Fa '**' Stats.f tst1for.txt
 +
    Les commentaires sont à la bonne place et tous les commentaires sont copiés
 +
  mkd -Fan '**' Stats.f tst1for.txt
 +
    Les numéros de lignes sur 5 colonnes sont suivis des commentaires
 +
  mkd -Fans '**' Stats.f tst1for.txt > tst1.stdout.txt
 +
    Les commentaires apparaissent correctement au terminal
 +
  mkd -Fants '**' Stats.f tst1for.txt > tst1.stdout.txt
 +
    Résultat conforme. Evidemment dans ce cas le caractère 'Code' apparaît,
 +
    seul le caractère de commentaire en première colonne disparaît
 +
 +
Analyse avec des cas 1 et 2 avec 'Code' = 'O'
 +
---------------------------------------------
 +
  mkd -Fa O Stats.f tst2for.txt
 +
 +
  mkd -Fan O Stats.f tst2for.txt
 +
 +
  mkd -Fans O Stats.f tst2for.txt > tst2.stdout.txt
 +
 +
  mkd -Fat O Stats.f tst2for.txt
 +
 +
  mkd -Fats O Stats.f tst2for.txt > tst2.stdout.txt
 +
 +
  mkd -Fant O Stats.f tst2for.txt
 +
 +
  mkd -Fants O Stats.f tst2for.txt >> tst2.stdout.txt
 +
 +
  Tous les caractères sont à la bonne place et la numérotation des lignes se
 +
  fait correctement sur 5 colonnes.
 +
  La sortie sur stdout redirigé vers les fichier  *. stdout.txt est conforme
 +
 +
Contrôle de fin de fichier
 +
--------------------------
 +
Ce contrôle a été effectué dès l'analyse du cas 1
 +
 +
Résultat conforme pour le fortran 77
 +
 +
 +
FORTRAN 90 avec Degrad.f
 +
 +
L'analyse pour le fortran 90 avec l'option de compilation CD3 = '!' donne des
 +
résultats comparables pour toutes les options n,s,t.
 +
Les numéros des lignes sont à leurs places sur 5 colonnes.
 +
CEPENDANT: Les commentaires sont cependant décalés à gauche de 2 caractères en
 +
cas de texte seul.
 +
</pre>
 +
{{boîte déroulante/fin}}
{{boîte déroulante/fin}}
 +
== Fichiers sources des tests ==
 +
 +
{{Boîte déroulante/début|titre=Stats.f (F77) et Degrad.f F(90) Avril 2013}}
 +
 +
'''Stats.f (Fortran 77)'''
 +
<pre>
 +
cO**********************************************************************
 +
C
 +
C O  STATS.FOR
 +
C
 +
C O        Calculates simple statistics (minimum, maximum, mean, median,
 +
C O        variance, and standard deviation) of up to 50 values.
 +
C
 +
C O        Reads one value at a time from unit 5.  Echoes values and
 +
C O        writes results to unit 6.
 +
C
 +
C O        All calculations are done in single precision.
 +
C
 +
C
 +
cO*********************************************************************
 +
* Bloc de tête 14 lignes commentées suivent 17 lignes commentées avec O
 +
* et 1 avec T en fin de fichier
 +
 +
 +
      DIMENSION DAT(50)
 +
      OPEN(5,FILE=' ')
 +
 +
      N=0
 +
      DO 10 I=1,50
 +
      READ(5,99999,END=20) DAT(I)
 +
      N=I
 +
10  CONTINUE
 +
 +
C O Too many values.  Write error message and die.
 +
 +
      WRITE(6,99998) N
 +
      STOP
 +
 
 +
C O Test to see if there's more than one value.  We don't want to divide
 +
C O by zero.
 +
 +
20    IF(N.LE.1) THEN
 +
 +
C O Too few values. Print message and die.
 +
 +
        WRITE(6,99997)
 +
 +
      ELSE
 +
 +
C O Echo input values to output.
 +
 +
        WRITE(6,99996)
 +
        WRITE(6,99995) (DAT(I),I=1,N)
 +
 +
C O Calculate mean, standard deviation, and median.
 +
 +
        CALL MEAN (DAT,N,DMEAN)
 +
        CALL STDEV (DAT,N,DMEAN,DSTDEV,DSTVAR)
 +
        CALL MEDIAN (DAT,N,DMEDN,DMIN,DMAX)
 +
 +
        WRITE(6,99994) N,DMEAN,DMIN,DMAX,DMEDN,DSTVAR,DSTDEV
 +
 +
      ENDIF
 +
 +
      STOP
 +
 +
99999 FORMAT(E14.6)
 +
99998 FORMAT('0 ********STAT: TOO MANY VALUES-- ',I5)
 +
99997 FORMAT('0 ********STAT: TOO FEW VALUES (1 OR LESS) ')
 +
99996 FORMAT(//,10X,
 +
    +' ******************SAMPLE DATA VALUES*****************'//)
 +
99995 FORMAT(5(1X,1PE14.6))
 +
99994 FORMAT(///,10X,
 +
    +' ******************SAMPLE STATISTICS******************',//,
 +
    +15X,'          Sample size = ',I5,/,
 +
    +15X,'          Mean        = ',1PE14.6,/,
 +
    +15X,'          Minimum    = ',E14.6,/,
 +
    +15X,'          Maximum    = ',E14.6,/
 +
    +15X,'          Median      = ',E14.6,/
 +
    +15X,'          Variance    = ',E14.6,/
 +
    +15X,'          St deviation= ',E14.6////)
 +
 +
      END
 +
 +
C O Calculate the mean (XMEAN) of the N values in array X.
 +
 +
      SUBROUTINE  MEAN (X,N,XMEAN)
 +
      DIMENSION X(N)
 +
 +
      SUM=0.0
 +
      DO 10 I=1,N
 +
        SUM=SUM+X(I)
 +
  10 CONTINUE
 +
 +
      XMEAN=SUM/FLOAT(N)
 +
 +
      RETURN
 +
      END
 +
 +
C O Calculate the standard deviation (XSTDEV) and variance (XVAR)
 +
C O of the N values in X using the mean (XMEAN).
 +
C O This divides by zero when N = 1.
 +
 +
      SUBROUTINE STDEV (X,N,XMEAN,XSTDEV,XVAR)
 +
      DIMENSION X(N)
 +
 +
      SUMSQ=0.0
 +
      DO 10 I=1,N
 +
        XDIFF=X(I)-XMEAN
 +
        SUMSQ=SUMSQ+XDIFF*XDIFF
 +
  10 CONTINUE
 +
 +
      XVAR=SUMSQ/FLOAT(N-1)
 +
      XSTDEV=SQRT(XVAR)
 +
 +
      RETURN
 +
      END
 +
 +
 +
C O Calculate the median (XMEDN), minimum (XMIN), and maximum (XMAX) of
 +
C O the N values in X.
 +
C O MEDIAN sorts the array and then calculates the median value.
 +
 +
      SUBROUTINE MEDIAN (X,N,XMEDN,XMIN,XMAX)
 +
      DIMENSION X(N)
 +
 +
      CALL SORT (X,N)
 +
 +
      IF(MOD(N,2).EQ.0) THEN
 +
        K=N/2
 +
        XMEDN=(X(K)+X(K+1))/2.0
 +
      ELSE
 +
        K=(N+1)/2
 +
        XMEDN=X(K)
 +
      ENDIF
 +
 +
      XMIN=X(1)
 +
      XMAX=X(N)
 +
 +
      END
 +
 +
C O Sort the N values in array X.  SORT uses a bubble sort
 +
C O that quits when no values were exchanged on the last pass.
 +
C O Each pass goes from the first element to where the last
 +
C O exchange occurred on the previous pass.
 +
 +
      SUBROUTINE SORT (X,N)
 +
      DIMENSION X(N)
 +
 +
      IBND=N
 +
  20  IXCH=0
 +
   
 +
      DO 100 J=1,IBND-1
 +
          IF(X(J).GT.X(J+1))THEN
 +
              TEMP=X(J)
 +
              X(J)=X(J+1)
 +
              X(J+1)=TEMP
 +
              IXCH=J
 +
          ENDIF
 +
100  CONTINUE
 +
 +
      IF (IXCH.EQ.0) RETURN
 +
      IBND=IXCH
 +
      GO TO 20
 +
 
 +
      END
 +
CT Fin
 +
</pre>
 +
 +
'''Degrad.f (Fortran 90)'''
 +
<pre>
 +
      PROGRAM DEGRAD  !S Début de programme
 +
!                                                                     
 +
!S Imprime une table de conversion degrés -> radians                   
 +
!S =================================================                   
 +
!                                                                     
 +
!S Déclaration des variables                                           
 +
      INTEGER DEG
 +
      REAL RAD, COEFF
 +
!                                                                     
 +
!S En-tête de programme                                               
 +
      WRITE ( *, 10)
 +
  10 FORMAT      (' ',20('*') /                                        &
 +
    &            ' * Degres * Radians *' /                            &
 +
    &            ' ', 20('*') )                                     
 +
!                                                                     
 +
!S Corps de programme                                                 
 +
      COEFF = (2.0 * 3.1416) / 360.0
 +
      DO DEG = 0, 90
 +
        RAD = DEG * COEFF
 +
        WRITE ( *, 20) DEG, RAD
 +
  20 FORMAT        (' *  ',I4,'  * ',F7.5,' *')
 +
      END DO
 +
!                                                                     
 +
!S Fin du tableau                                                     
 +
      WRITE ( *, 30)
 +
  30 FORMAT      (' ',20('*') )
 +
!                                                                     
 +
!S Fin de programme                                                   
 +
      STOP
 +
      END PROGRAM DEGRAD
 +
CS Fin
 +
!S Fin
 +
</pre>
 +
{{boîte déroulante/fin}}
[[Catégorie:Générateurs de documentation]]
[[Catégorie:Générateurs de documentation]]

Version actuelle en date du 11 mai 2013 à 14:04

Retour aux fichiers en développement →

Sommaire

[masquer]

Fichiers fortran 77

See tri.c for fortran_90_&+
  • Testé:
fortran.c pour Konsole
  • Non testé:
fortran.cc pour versions c++ indépendante
fortran.inc.cc pour inclusion dans le source c++ avec gtkmm

Fichier de commande de tests Konsole

  • Fichier: Make_Tests_U_f77
  • Fichier: Make_Tests_U_f90

Analyse du test konsole

Fichier: Analyse.txt

Fichiers sources des tests

Récupérée de « http://edeulo.free.fr/wiki/index.php/Projet_mkd/fortran.c »
Outils personnels
Catégories
Discussions