1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
   |  
SUBROUTINE TOTO
      CALL OPEN(25,'CALCUL','TRANSF','A',' ',' ',80,80)
 
      DO 20 I=1,NCOTE
        IF (I.EQ.IINF) GOTO 20
        IF (I.EQ.IPUIT) THEN
          WRITE(25,1003) I,T(I),'SINGULARITE'
        ELSE
          WRITE(25,1003) I,T(I)
        ENDIF
20    CONTINUE
 
      WRITE(25,*)
      WRITE(25,1000)'RAYON INTERIEUR ........................'
      WRITE(25,1000)'RAYON EXTERIEUR ........................'
      WRITE(25,*)
      WRITE(25,1000)'ANGLE INITIAL ..........................'
      WRITE(25,1000)'ANGLE FINAL ............................'
      WRITE(25,*)
      WRITE(25,1004)'INTENSITE SINGULARITE ..................',QPUIT
      WRITE(25,*)
      WRITE(25,1002)'NOMBRE DE LIGNES CALCULEES .............',NLIGNE
      WRITE(25,*)
      WRITE(25,1001)'FACTEUR DE PRECISION GLOBALE ........... 1.000D+00'
      WRITE(25,1001)'FACTEUR DE PRECISION COURTE DISTANCE ... 1.000D+00'
      WRITE(25,1001)'FACTEUR DE PRECISION LONGUE DISTANCE ... 1.000D+00'
      WRITE(25,*)
      WRITE(25,1002)'FREQUENCE DES MARQUES ..................',IMARQ | 
Partager