From 60ddb089f23c64606d9343d12842120c13403a6e Mon Sep 17 00:00:00 2001 From: schnetter Date: Fri, 6 May 2005 21:39:05 +0000 Subject: Correct misspelled prodecure name. Do not declare some procedures that have no Fortran wrappers in the flesh. git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@30 51d2df92-0e4f-0410-a727-bd43d766d6b6 --- src/cctk_Reduction.F90 | 2 +- src/cctk_WarnLevel.F90 | 8 +++++--- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/src/cctk_Reduction.F90 b/src/cctk_Reduction.F90 index 6e5cda9..b56a91d 100644 --- a/src/cctk_Reduction.F90 +++ b/src/cctk_Reduction.F90 @@ -227,7 +227,7 @@ module cctk_Reduction external CCTK_Reduce external CCTK_ReduceLocalScalar external CCTK_ReduceLocalArray1D - external CCTK_ReduceLocScalarn + external CCTK_ReduceLocScalar external CCTK_ReduceLocArrayToArray1D external CCTK_ReduceLocArrayToArray2D external CCTK_ReduceLocArrayToArray3D diff --git a/src/cctk_WarnLevel.F90 b/src/cctk_WarnLevel.F90 index 80aab16..623224c 100644 --- a/src/cctk_WarnLevel.F90 +++ b/src/cctk_WarnLevel.F90 @@ -39,8 +39,10 @@ module cctk_WarnLevel end interface - external CCTK_VWarn - external CCTK_VParamWarn - external CCTK_VInfo + ! Do not declare these, because some compilers insist on a + ! definition once they have seen an external declaration: +!!$ external CCTK_VWarn +!!$ external CCTK_VParamWarn +!!$ external CCTK_VInfo end module cctk_WarnLevel -- cgit v1.2.3