real X, Y, PI or real :: X, Y, PIstate that X, Y and PI are single precision floating point variables.
A real parameter (whose value cannot be changed subsequently) may be declared with
real PI parameter (PI=3.141592)or with
real, parameter :: PI=3.141592
The double colon form is needed for more than one attribute (see above), or for declarations plus initializations
real :: X = 21.5
Application: circle area and perimeter.
program first implicit none ! disable implicit d. real :: R,Pi,a,p Pi = 3.1415926 print*, 'Please give radius:' read*, R a=Pi**R ! ** is exponentation operator p=2.0*Pi*R print*, 'Area=',a,' Perimeter=',p end program first