update ast

1 files changed, 0 insertions, 70 deletions

diff --git a/ast/object.f b/ast/object.f
deleted file mode 100644
index 34f92b2..0000000
--- a/ast/object.f
+++ /dev/null
@@ -1,70 +0,0 @@
-      CHARACTER * ( * ) FUNCTION AST_GETC( THIS, ATTRIB )
-*+
-* Name:
-*    AST_GETC
-
-*  Purpose:
-*     Wrap up the C ast_getc_a function.
-
-*  Language:
-*     Fortran 77
-
-*  Invocation:
-*     RESULT = AST_GETC( THIS, ATTRIB )
-
-*  Description:
-*     This function is a wrap-up of the C ast_getc_a function. It will
-*     rarely need to be used, but is provided for use on platforms
-*     where the normal mechanism for returning character strings as
-*     function results from C to Fortran (as defined in the f77.h
-*     include file) doesn't work.
-*
-*     If this problem is encountered, the C macro NO_CHAR_FUNCTION
-*     should be defined (in CFLAGS) during C compilation. This will
-*     cause the function ast_getc_a to be built (instead of ast_getc)
-*     and this returns its the result via an additional initial
-*     argument. This Fortran function is then used simply to transfer
-*     the argument value to the function result.
-
-*  Arguments:
-*     As for the C version of the Fortran-callable function ast_getc.
-
-*  Returned Value:
-*     AST_GETC = CHARACTER * ( * )
-*        The character return value required.
-
-*  Notes:
-*     - The length of the returned result is limited to 200 characters
-*     by a local buffer. This length can be increased if necessary.
-
-*  Authors:
-*     RFWS: R.F. Warren-Smith (STARLINK, RAL)
-*     {enter_new_authors_here}
-
-*  History:
-*     3-JUL-1996 (RFWS):
-*        Original version.
-*     {enter_changes_here}
-
-*  Bugs:
-*     {note_any_bugs_here}
-
-*-
-
-*  Type Definitions:
-      IMPLICIT NONE              ! No implicit typing
-
-*  Arguments Given:
-      INTEGER THIS
-      CHARACTER * ( * ) ATTRIB
-
-*  Local Variables:
-      CHARACTER * ( 200 ) BUFF   ! Local buffer for result
-*.
-
-*  Invoke the C function (with the additional argument).
-      CALL AST_GETC_A( BUFF, THIS, ATTRIB )
-
-*  Return the argument value as the function result.
-      AST_GETC = BUFF
-      END