structure saas with tools
This commit is contained in:
@@ -0,0 +1,5 @@
|
||||
REAL*8 FUNCTION FUNCFORTRANNAME(A,B)
|
||||
REAL*8 A, B
|
||||
FUNCFORTRANNAME = A + B
|
||||
RETURN
|
||||
END FUNCTION
|
||||
@@ -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
|
||||
@@ -0,0 +1,4 @@
|
||||
SUBROUTINE SUBROUT(A,B,C)
|
||||
REAL*8 A, B, C
|
||||
C = A + B
|
||||
END SUBROUTINE
|
||||
@@ -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
|
||||
Reference in New Issue
Block a user