doc: Play with using doxygen for Fortran code

darcs-hash:20050201212131-891bb-df7215694d99c95de5b1e2fceba6c0aff56ef586.gz

1 files changed, 28 insertions, 1 deletions

diff --git a/Carpet/CarpetLib/src/copy_3d_real8.F77 b/Carpet/CarpetLib/src/copy_3d_real8.F77
index efd91d8f2..a017dabc6 100644
--- a/Carpet/CarpetLib/src/copy_3d_real8.F77
+++ b/Carpet/CarpetLib/src/copy_3d_real8.F77
@@ -1,10 +1,36 @@
-c     -*-Fortran-*-
+/**
+ * @file copy_3d_real8.F77
+ * @brief Copy a region of a CCTK_REAL8 array
+ *
+ * copy, bla, bla
+ */
+
+/* -*-Fortran-*- */
       
 #include "cctk.h"
 #include "cctk_Parameters.h"
 
 
       
+/** Copy a region of a CCTK_REAL8 array
+ *
+ * copy, bla, bla, long description.
+ */
+#ifdef FOR_DOXYGEN_ONLY
+subroutine copy_3d_real8 (CCTK_REAL8 src(srciext,srcjext,srckext),
+                          integer srciext,
+                          integer srcjext,
+                          integer srckext,
+                          CCTK_REAL8 dst(dstiext,dstjext,dstkext),
+                          integer dstiext,
+                          integer dstjext,
+                          integer dstkext,
+                          integer srcbbox,
+                          integer dstbbox,
+                          integer regbbox)
+{
+}
+#else
       subroutine copy_3d_real8 (
      $     src, srciext, srcjext, srckext,
      $     dst, dstiext, dstjext, dstkext,
@@ -109,3 +135,4 @@ c     Loop over region
       end do
       
       end
+#endif