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