Program ex0804
implicit none

integer:: a=1,b=2
call add(1,2)

stop
end


subroutine add(first,second)
    implicit none
......................

Program ex0801
implicit none

call message()
call message()

stop
end

subroutine message()
implicit none
write(*,*)"Hello."
......................

Program assignvalue_to_array
implicit none

integer::i
integer::a(5)
!integer::a(5)=(/(2*i,i=1,5)/)

DATA(a(i),i=2,4)/2,3,4/
write(*,*)(a(i),i=2,4)

stop
end

Program ex0716
implicit none

integer::students
integer,allocatable::a(:)
!integer, parameter::students =5
!integer            ::student(students)
integer            ::i

write(*,*)"How many students:"
read(*,*)students
allocate(a(students))
......................

Program ex0701
implicit none

integer, parameter::students =5
integer            ::student(students)
integer            ::i

do i=1,students
    write(*,*)i
    read(*,*)student(i)
end do

......................

Program ex0607
implicit none

real, parameter::weight =45.0
real, parameter::error =0.0001
real            ::guess

do while(.true.)
    write(*,*)"weight:"
    read(*,*)guess
    if (abs(weight-guess)<error) exit
end do
......................

Program ex0606
implicit none

integer ::dest =9
integer floor

do floor=1,dest
    if (floor==4) exit
    write(*,*) floor
end do

stop
......................

Program ex0601
implicit none

integer counter
integer,parameter::lines=10

do counter=1,lines,2
    write(*,*) "Happy Birthday",counter
end do

stop
end

Program ex0434
implicit none
type::person
    character(len=30)::name
    integer::           age
    real::              height
    real::              weight
    character(len=80)   address
end type person

type(person)::a

......................

Program ex0429
implicit none
real,parameter::pi=3.1415
write(*,*)sin(pi/6)
stop
end