Compare commits

..

1 Commits

Author SHA1 Message Date
Aaron
997d5b3e20
Merge 8350b334be into 77e2233bf3 2024-11-10 11:12:49 +01:00

View File

@ -41,7 +41,7 @@ program example ! declare a program called example.
real :: v, x ! WARNING: default initial values are compiler dependent! real :: v, x ! WARNING: default initial values are compiler dependent!
real :: a = 3, b = 2E12, c = 0.01 real :: a = 3, b = 2E12, c = 0.01
integer :: i, j, k = 1, m integer :: i, j, k = 1, m
real, parameter :: PI = 3.14159265 ! declare a constant. real, parameter :: PI = 3.1415926535897931 ! declare a constant.
logical :: y = .TRUE., n = .FALSE. ! boolean type. logical :: y = .TRUE., n = .FALSE. ! boolean type.
complex :: w = (0, 1) ! sqrt(-1) complex :: w = (0, 1) ! sqrt(-1)
character(len=3) :: month ! string of 3 characters. character(len=3) :: month ! string of 3 characters.