5 lines
139 B
Fortran
5 lines
139 B
Fortran
subroutine square(x,answer)
|
|
integer, intent(in) :: x
|
|
integer, intent(out) :: answer
|
|
answer = x * x
|
|
end
|