1
2
write(*,*) "hello world"
end

1
2
3
4
5
6
7
8
9
integer data(1:100),kosu,work,i
 
kosu=12
 
data(1)=2
data(2)=50
data(3)=8
data(4)=10
data(5)=40
 ...

1
2
3
4
5
6
7
8
9
integer data(1:100),kosu,work,i
 
kosu=12
 
data(1)=2
data(2)=50
data(3)=8
data(4)=10
data(5)=40
 ...

1
2
3
4
5
6
7
8
9
integer data(1:100),kosu,work,i
 
kosu=12
 
data(1)=89
data(2)=50
data(3)=8
data(4)=10
data(5)=40
 ...

1
2
3
4
5
6
7
8
9
integer data(1:100),kosu,work,i
 
kosu=12
 
data(1)=89
data(2)=50
data(3)=8
data(4)=10
data(5)=40
 ...

1
2
3
4
5
6
7
8
9
 
integer data(1:100),kosu,work
 
kosu=12
 
data(1)=89
data(2)=50
data(3)=8
data(4)=10
 ...

1
2
3
4
5
6
7
8
9
integer data(1:100),kosu,work
 
kosu=12
 
data(1)=89
data(2)=50
data(3)=8
data(4)=10
data(5)=40
 ...

1
2
3
4
5
6
7
8
9
integer data(1:100),kosu,work
 
kosu=12
 
data(1)=89
data(2)=50
data(3)=8
data(4)=10
data(5)=40
 ...

1
2
3
4
5
6
7
8
9
integer A(1:100),kosu
 
kosu=12
 
A(1)=89
A(2)=50
A(3)=8
A(4)=10
A(5)=40
 ...

1
2
3
4
5
6
7
8
A1=89
A2=50
A3=600
 
MAXV=A1
 
if(A2.gt.MAXV) MAXV=A2
if(A3.gt.MAXV) MAXV=A3
 ...

1
WRITE 1

1
2
3
4
5
program wb
 
write(*,*)'lijunwangbada'
 
end

1
2
3
4
5
6
7
8
9
        program TEST 
                integer ans 
                do 
                        read (*,*) ans 
                        if (ans.eq.42) stop 
                        write (*,*) ans 
                enddo 
                stop 
        end

1
2
3
4
5
6
7
8
9
integer l,u,h
parameter (l=0,u=50,h=2)
real x,y
 
write(6,200)
200 format(' ',3x,'x',8x,'y')
 
do 10 i=l,u,h
  x=real(i)/10.0
 ...

1
2
3
4
5
6
7
8
9
integer l,u,h
parameter (l=0,u=50,h=2)
real x,y
 
write(6,200)
200 format(' ',3x,'x',8x,'y')
 
do 10 i=l,u,h
  x=real(i)/10.0
 ...

1
2
3
4
5
6
7
8
* 4-ji siki no suhyo
 
integer l,u,h
parameter (l=0,u=50,h=2)
real x,y
 
write(6,200)
200 format(' ',3x,'x',8x,'y')
 ...

1
2
3
4
5
6
7
8
9
integer a,m,n
real roota,c,eps
parameter (m=1,n=50,eps=1.0e-6)
 
do 20 a=m,n
  roota=1
 
10 continue
    c=0.5*(a/roota-roota)
 ...

1
2
3
4
5
6
7
8
9
integer i,n,old,last,new
parameter (n=40)
 
old=0
write(6,*) old
last=1
write(6,*) last
 
do 10 i=3,n
 ...

1
2
3
4
5
6
7
8
9
* program2
 
integer i,n,old,last,new
parameter (n=40)
 
old=0
write(6,*) old
last=1
write(6,*) last
 ...

1
2
3
4
5
6
7
8
9
* program2
 
integer n,old,last,new
parameter (n=40)
 
old=0
write(6,*) old
last=1
write(6,*) last
 ...

1
2
3
4
5
6
7
8
integer i,n,old,last,new
parameter (n=40)
 
old=0
write(6,*) old
last=1
write(6,*) last
i=3
 ...

1
2
3
4
5
6
7
8
9
       PROGRAM Kalkulator
 
       implicit none
        real::a,suma,i
      
        write(*,*),"Podaj liczbę"
        read(*,*),a
     
         do i=1,a,2
 ...

1
 

1
2
3
4
5
6
7
8
       program Kolo
 
       implicit none
       real::pi=3.14159265358979323846264338327950288419716939937510 
       real::r,pole,obwod
 
        write(*,*),"Podaj promień"
        read(*,*),r
 ...

1
2
3
4
5
6
7
8
9
        program TEST 
                integer ans 
                do 
                        read (*,*) ans 
                        if (ans.eq.42) stop 
                        write (*,*) ans 
                enddo 
                stop 
        end

1
2
3
4
5
6
7
8
9
PROGRAM test_hypotenuse
!  Purpose:
!     Program to test the operation of subroutine calc_hypotenuse
!
!     Copied from Figure 7-1,7-2 of SJ Chapman (2004) Fortran 95/2003 for Scientists and Engineers
! 
!  Record of revisions:
!     Date       Programmer           Descriptions of change
!     ====       ==========           ======================
 ...

1
2
3
4
5
6
7
8
9
PROGRAM test_hypotenuse
!  Purpose:
!     Program to test the operation of subroutine calc_hypotenuse
!
!  Record of revisions:
!     Date       Programmer           Descriptions of change
!     ====       ==========           ======================
!   23/12/11     Rohan J. Sadler      Original Code
!
 ...

1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real :: b
real :: h
real :: x
real,dimension(25) :: xi
real,dimension(25) :: yi
integer :: i
integer :: n
 ...

1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real :: b
real :: h
real :: x
real,dimension(25) :: xi
real,dimension(25) :: yi
integer :: i
integer :: n
 ...

1
2
3
4
5
6
7
8
9
program func_tab
real :: a
real :: b
real :: h
real :: x
real,dimension(25) :: xi
real,dimension(25) :: yi
integer :: i
integer :: n
 ...