| 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 |
| |
| CALL MySeparateSub |
| |
| comVar = 5.5 |
| |
| CONTAINS |
| |
| REAL FUNCTION MyTestFun() |
| |
| 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, p_xxx1 |
| |
| POINTER o_xxx1, p_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 |
| |
| END FUNCTION MyTestFun2 |
| |
| END PROGRAM MyMain |
| |
| SUBROUTINE MySub |
| |
| REAL :: test |
| COMMON /CB1/ comVar |
| |
| test = 1.1 |
| |
| comVar = comVar + comVar |
| |
| END SUBROUTINE MySub |
