MODULE MySeparateFileMod | |
END MODULE | |
PROGRAM MyMain | |
USE MySeparateFileMod | |
REAL, POINTER :: a_xxx2 | |
REAL, DIMENSION(10) :: b_xxx1 | |
REAL, POINTER :: c_xxx1 | |
REAL :: e_xxx1 = 5.5 | |
REAL, POINTER :: o_xxx1 | |
REAL, POINTER :: p_xxx1 | |
REAL :: q_xxx1 = 3.3 | |
REAL, DIMENSION(5) :: r_xxx1 | |
REAL :: u_xxx1 = 1.1 | |
COMMON /MyTestFun_common3/ a_xxx2,b_xxx1,c_xxx1,e_xxx1,o_xxx1,p_xxx1,q_xxx1,r_xxx1,u_xxx1 | |
COMMON /MyTestFun_common1/ aVar | |
REAL :: a_xxx1 | |
REAL :: comVar | |
REAL :: aVar | |
COMMON /CB1/ comVar | |
print *, test | |
print *, internalModVar | |
comVar = 5.5 | |
CONTAINS | |
REAL FUNCTION MyTestFun() !<<<<< 27, 10, pass | |
COMMON /MyTestFun_common3/ a_xxx2,b_xxx1,c_xxx1,e_xxx1,o_xxx1,p_xxx1,q_xxx1,r_xxx1,u_xxx1 | |
REAL :: com | |
COMMON /MyTestFun_common2/ com | |
REAL :: q_xxx1, w, e_xxx1 | |
REAL, DIMENSION(5) :: r_xxx1, t | |
REAL :: u_xxx1 | |
REAL :: o_xxx1 | |
REAL, POINTER :: p_xxx1 | |
POINTER o_xxx1 | |
REAL :: b_xxx1, c_xxx1, d | |
REAL, POINTER :: a_xxx2 | |
POINTER c_xxx1, d | |
DIMENSION b_xxx1(10) | |
c_xxx1 = 1.2 | |
MyTestFun = 3.3 | |
END FUNCTION MyTestFun | |
REAL FUNCTION MyTestFun2(aVar) | |
REAL, DIMENSION (10:10) :: aVar | |
CHARACTER (LEN=30) :: char | |
REAL :: bVar(100:100) | |
DOUBLE PRECISION :: cVar(10) | |
REAL, PARAMETER :: b = 1.1 | |
REAL c | |
POINTER c | |
SAVE | |
MyTestFun2 = 0.0 | |
END FUNCTION MyTestFun2 | |
END PROGRAM MyMain | |
SUBROUTINE MySub | |
REAL :: test | |
COMMON /CB1/ comVar | |
test = 1.1 | |
comVar = comVar + comVar | |
END SUBROUTINE MySub |