Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program escrita
- implicit none
- real :: a, b
- open(10, file='texte.txt')
- a=0.2; b = -3.4;
- write(10,*) a, b
- End Program escrita
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement