MRI / venv /lib /python3.13 /site-packages /numpy /f2py /tests /src /regression /assignOnlyModule.f90
| MODULE MOD_TYPES | |
| INTEGER, PARAMETER :: SP = SELECTED_REAL_KIND(6, 37) | |
| INTEGER, PARAMETER :: DP = SELECTED_REAL_KIND(15, 307) | |
| END MODULE | |
| ! | |
| MODULE F_GLOBALS | |
| USE MOD_TYPES | |
| IMPLICIT NONE | |
| INTEGER, PARAMETER :: N_MAX = 16 | |
| INTEGER, PARAMETER :: I_MAX = 18 | |
| INTEGER, PARAMETER :: J_MAX = 72 | |
| REAL(SP) :: XREF | |
| END MODULE F_GLOBALS | |
| ! | |
| SUBROUTINE DUMMY () | |
| ! | |
| USE F_GLOBALS | |
| USE MOD_TYPES | |
| IMPLICIT NONE | |
| ! | |
| REAL(SP) :: MINIMAL | |
| MINIMAL = 0.01*XREF | |
| RETURN | |
| ! | |
| END SUBROUTINE DUMMY | |