13 lines
180 B
Fortran
13 lines
180 B
Fortran
module FunctionHolder
|
|
implicit none
|
|
|
|
contains
|
|
|
|
pure function afun(x)
|
|
real :: afun
|
|
real, intent(in) :: x
|
|
|
|
afun = x**2
|
|
end function afun
|
|
|
|
end module FunctionHolder
|