Dashboard
PHP:
8.3.33
OS:
Linux
User:
proje374
/
/
usr
/
local
/
lib64
/
python3.9
/
site-packages
/
numpy
/
f2py
/
tests
/
src
/
modules
📤 Upload
📝 New File
📁 New Folder
Close
Editing: use_modules.f90
module mathops implicit none contains function add(a, b) result(c) integer, intent(in) :: a, b integer :: c c = a + b end function add end module mathops module useops use mathops, only: add implicit none contains function sum_and_double(a, b) result(d) integer, intent(in) :: a, b integer :: d d = 2 * add(a, b) end function sum_and_double end module useops
Save
Cancel