Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- PROGRAM MAIN
- IMPLICIT NONE
- INTEGER :: i
- REAL :: j
- WRITE (*,*) 'Enter integer'
- READ (*,100) i
- 100 FORMAT (I0)
- WRITE (*,*) 'Enter real'
- READ (*,110) j
- 110 FORMAT (F0.0)
- WRITE (*,100) 'Integer = ',i
- WRITE (*,110) 'Real = ',j
- END PROGRAM
- character :: form*64
- real :: r1, r2
- form = '(es13.6)' ! e.g. 9.123456e+001
- .
- .
- .
- WRITE (*,*) 'Enter a number'
- READ (*, form) r1
- WRITE (*,*) 'Enter another number'
- READ (*, form) r2
Add Comment
Please, Sign In to add comment