structure saas with tools

This commit is contained in:
Davidson Gomes
2025-04-25 15:30:54 -03:00
commit 1aef473937
16434 changed files with 6584257 additions and 0 deletions

View File

@@ -0,0 +1,5 @@
REAL*8 FUNCTION FUNCFORTRANNAME(A,B)
REAL*8 A, B
FUNCFORTRANNAME = A + B
RETURN
END FUNCTION

View File

@@ -0,0 +1,11 @@
python module funcfortranname ! in
interface ! in :funcfortranname
function funcfortranname_default(a,b) ! in :funcfortranname:funcfortranname.f
fortranname funcfortranname
real*8 :: a
real*8 :: b
real*8 :: funcfortranname_default
real*8, intent(out) :: funcfortranname
end function funcfortranname_default
end interface
end python module funcfortranname

View File

@@ -0,0 +1,4 @@
SUBROUTINE SUBROUT(A,B,C)
REAL*8 A, B, C
C = A + B
END SUBROUTINE

View File

@@ -0,0 +1,10 @@
python module subrout ! in
interface ! in :subrout
subroutine subrout_default(a,b,c) ! in :subrout:subrout.f
fortranname subrout
real*8 :: a
real*8 :: b
real*8, intent(out) :: c
end subroutine subrout_default
end interface
end python module subrout