This is an example in Fortran how to make a function:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
program hello implicit none integer:: square integer:: i Print *,"write your number:" read *, i print *,"your number:",i i= square(i) print *,"your result:",i end program Hello integer function square( a ) implicit none integer :: a square = a*a end function square |
Result:
|
1 2 3 4 |
write your number: 4 your number: 4 your result: 16 |