diff options
| author | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2005-03-22 17:30:51 +0000 |
|---|---|---|
| committer | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2005-03-22 17:30:51 +0000 |
| commit | 81b77cc6922e46fa2763edb561a1faa2ec9a7e53 (patch) | |
| tree | 7eb4da74c16573b36a376e93786b625f3522e0b0 | |
| parent | 8f50f5ab84e227a1263e59376933495af76d879d (diff) | |
Do not declare some routines as external, because some Fortran
compilers insist on a definition once they have seen an external
declaration.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@25 51d2df92-0e4f-0410-a727-bd43d766d6b6
| -rw-r--r-- | src/cctk_Misc.F90 | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/src/cctk_Misc.F90 b/src/cctk_Misc.F90 index 313fa33..be99736 100644 --- a/src/cctk_Misc.F90 +++ b/src/cctk_Misc.F90 @@ -94,12 +94,14 @@ module cctk_Misc end subroutine Util_RunTitle end interface - - external Util_InList - external IntInRangeList - external DoubleInRangeList - external SetDoubleInRangeList - external SetIntInRangeList - external SetKeywordInRangeList + + ! Do not declare these, because some compilers insist on a + ! definition once they have seen an external declaration: +!!$ external Util_InList +!!$ external Util_IntInRangeList +!!$ external Util_DoubleInRangeList +!!$ external CCTK_SetDoubleInRangeList +!!$ external CCTK_SetIntInRangeList +!!$ external CCTK_SetKeywordInRangeList end module cctk_Misc |