Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  001.f90
Language: FORTRAN
Code:
     real(kind=4) x(100)
     do i=1,100
     x(i)=sin(3.1415*i/20)
     end
     open(1,file="d:\001.txt")     
     do i=1,100
     write(1,*) i,x(i)
     enddo
     close(1)
     end
Comments: