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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
| C
C **********************************************************************
C
Subroutine AS0121
C
C Représentation d'une variable de type Real*4
C
C **********************************************************************
C
C Déclarations
C
Implicit None
C
Character*80 S
Real*4 R,Ra,Rb
Integer*1 I1(4),I1a(4),I1b(4),K
Equivalence (I1,R),(I1a,Ra),(I1b,Rb)
C
C **********************************************************************
C
C Instructions exécutables
C
Open (4,File='AS0121.txt')
10 Write (*,*) ' '
S='Tapez le numérateur'
Call U003(S,Len_Trim(S))
S='(Ctrl-Z pour quitter)'
Call U003(S,Len_Trim(S))
Read (*,*,End=99,Err=20) Ra
Go To 30
C
20 S='Donnée incorrecte'
Call U003(S,Len_Trim(S))
Go To 10
C
30 S='Tapez le dénominateur'
Call U003(S,Len_Trim(S))
Read (*,*,End=99,Err=40) Rb
Go To 50
C
40 S='Donnée incorrecte'
Call U003(S,Len_Trim(S))
Go To 30
C
50 R=Ra/Rb
Write (*,'(//2F8.3,E16.9)') Ra,Rb,R
Write (*,'(/1X,A)') 'Adr+3 Adr+2 Adr+1 Adr'
Write (*,'(4(1X,8I1))')
* (-BTest(I1(4),K),K=7,0,-1),(-BTest(I1(3),K),K=7,0,-1),
* (-BTest(I1(2),K),K=7,0,-1),(-BTest(I1(1),K),K=7,0,-1)
C
Write (4,'(//2F8.3,E16.9)') Ra,Rb,R
Write (4,'(/1X,A)') 'Adr+3 Adr+2 Adr+1 Adr'
Write (4,'(4(1X,8I1))')
* (-BTest(I1(4),K),K=7,0,-1),(-BTest(I1(3),K),K=7,0,-1),
* (-BTest(I1(2),K),K=7,0,-1),(-BTest(I1(1),K),K=7,0,-1)
Go To 10
C
99 Close (4)
Return
End |
Partager