# Fortran

Fortran is an actively used programming language created in 1957.

62Years Old | 182,733Users | 1,968Jobs |

- Fortran ranks in the top 1% of languages
- the Fortran wikipedia page
- Fortran first appeared in 1957
- See also: speedcoding, algol-58, basic, c, chapel, cms-2, pl-i, pact-i, mumps, ratfor, assembly-language, laning-and-zierler-system, 1620sps, ucsd-pascal, watfiv, ascii, modula-2, ada, mortran, ratfiv, jcl, simscript, f
- I have 120 facts about Fortran. just email me if you need more.

### Example code from the Hello World Collection:

C Hello World in Fortran PROGRAM HELLO WRITE (*,100) STOP 100 FORMAT (' Hello World! ' /) END

### Example code from Linguist:

! Codes/HYCOM/hycom/ATLb2.00/src_2.0.01_22_one/ real onemu, twomu data onemu/0.0098/ data twomu/1./ data threemu/0.e9/ end

### Example code from Wikipedia:

program average ! Read in some numbers and take the average ! As written, if there are no data points, an average of zero is returned ! While this may not be desired behavior, it keeps this example simple implicit none real, dimension(:), allocatable :: points integer :: number_of_points real :: average_points=0., positive_average=0., negative_average=0. write (*,*) "Input number of points to average:" read (*,*) number_of_points allocate (points(number_of_points)) write (*,*) "Enter the points to average:" read (*,*) points ! Take the average by summing points and dividing by number_of_points if (number_of_points > 0) average_points = sum(points) / number_of_points ! Now form average over positive and negative points only if (count(points > 0.) > 0) then positive_average = sum(points, points > 0.) / count(points > 0.) end if if (count(points < 0.) > 0) then negative_average = sum(points, points < 0.) / count(points < 0.) end if deallocate (points) ! Print result to terminal write (*,'(a,g12.4)') 'Average = ', average_points write (*,'(a,g12.4)') 'Average of positive points = ', positive_average write (*,'(a,g12.4)') 'Average of negative points = ', negative_average end program averageEdit

Last updated February 11th, 2019