tests/ctags/lanus.for

   1 * From jlanus@netscape.net Thu Jan 16 20:38:12 2003
   2 * Date: Tue, 24 Sep 2002 12:20:07 -0400
   3 * From: Juan Lanus <jlanus@netscape.net>
   4 * To: ctags-users@lists.sourceforge.net
   5 * Subject: [Ctags] seeking for help to set ctags to work with old FORTRAN
   6 *
   7 * Hi
   8 *
   9 * I'm trying to set ctags to work with some old FORTRAN 77 programs.
  10 * I'm in Windows 2000, vim 6.1 and exuberant ctags 5.3.1.
  11 * The programs are for VAX FORTRAN 77 as of 1988. Writen with tabs and 132 columns line length.
  12 *
  13 * [...]
  14 *
  15 * What am I doing wrong? This is my first contact with tags files of any sort and I'm vexed.
  16 *
  17 * A sample .DES file is included at the bottom.
  18 *
  19 * TIA
  20 *
  21 * Juan Lanus
  22 * TECNOSOL
  23 * Argentina
  24 *
  25 *
  26 ****************
  27 *********************************************************************
  28 *                                                                   *
  29 * Sistema Personalizado - descripcion de registros - CGA - 1/12/89  *
  30 *                                                                   *
  31 * De tablas generales PERTAB012 - tabla 010                         *
  32 *                                                                   *
  33 *********************************************************************
  34
  35         character*6     FEC010          !Fecha de Proceso aa/mm/dd
  36         character*5     URE010          !Ultimo Numero de Pedido
  37         character*5     REM010          !Ultimo Numero de Remito
  38         character*5     FAC010          !Ultimo Numero de Factura
  39
  40         character*40    PER010          !Registro de Fecha
  41
  42         equivalence     (PER010(1:1)  ,FEC010(1:1))
  43         equivalence     (PER010(7:7)  ,URE010(1:1))
  44         equivalence     (PER010(12:12),REM010(1:1))
  45         equivalence     (PER010(17:17),FAC010(1:1))
  46
  47 ******************  Fin Registro de Fecha  ***********************************