[Fortran] 纯文本查看 复制代码 Module aaa
contains
subroutine aabs(input,output)
integer ab , i
DOUBLE PRECISION input,output(:)
ab=size(output)
do i=1,ab
output(i)=abs(input)
end do
end subroutine aabs
End Module aaa
program test01
use aaa
integer , parameter :: n = 2
DOUBLE PRECISION input,output(n)
input=-1
call aabs(input,output)
end program test01 |