%%
%% This is file `lstfortran.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% listings.dtx  (with options: `fortran')
%% 
%% (w)(c) 1996-1997 by Carsten Heinz
%% 
%% This file is distributed freely. You are not allowed to take money
%% for the distribution or use of this file, except for a nominal charge
%% for copying etc.
%% 
%% This file is distributed without any warranty; without even the implied
%% warranty of merchantability or fitness for a particular purpose.
%% 
%% You are not allowed to change this file.
%% 
\makeatletter %
\gdef\lst@keywords@fortran{ACCESS,ACTION,ADVANCE,ALLOCATE,ALLOCATABLE,%
    ASSIGN,ASSIGNMENT,BACKSPACE,BLANK,BLOCK,CALL,CASE,CHARACTER,CLOSE,%
    COMMON,COMPLEX,CONTAINS,CONTINUE,CYCLE,DATA,DEALLOCATE,DEFAULT,%
    DELIM,DIMENSION,DIRECT,DO,DOUBLE,ELSE,END,ENDFILE,ENTRY,EOR,%
    EQUIVALENCE,ERR,EXIST,EXIT,EXTERNAL,FILE,FMT,FORM,FORMAT,%
    FORMATTED,FUNCTION,GO,TO,IF,IMPLICIT,IN,NONE,INOUT,INQUIRE,%
    INTEGER,INTENT,INTERFACE,INTRINSIC,IOLENGTH,IOSTAT,KIND,LEN,%
    LOGICAL,MODULE,NAME,NAMED,NAMELIST,NEXTREC,NMT,NULLIFY,NUMBER,%
    ONLY,OPEN,OPENED,OPERATOR,OPTIONAL,OUT,PAD,PARAMETER,PAUSE,%
    POINTER,POSITION,PRECISION,PRINT,PRIVATE,PROGRAM,PUBLIC,READ,%
    READWRITE,REAL,REC,RECL,RECURSIVE,RESULT,RETURN,REWIND,SELECT,%
    SEQUENCE,SEQUENTIAL,SIZE,STAT,STATUS,STOP,SUBROUTINE,TARGET,THEN,%
    TYPE,UNFORMATTED,UINT,USE,WHERE,WHILE,WRITE}%
\begingroup \catcode`\"=12%
\gdef\lst@fortran{\keywords{}%
    \morekeywords{\lst@keywords@fortran}%
    \sensitivetrue %
    \DeclareCommentLine !\relax %
    \DeclareSingleComment stuff \relax %
    \stringizer{"}%
    \chardef\lst@sharp@catcode=12 %
    \let\lst@PreProcessLine=\lst@PreProcessLine@fortran}%
\endgroup %
\def\lst@PreProcessLine@fortran{%
    \expandafter\lst@TestSpecialComment@fortran\lst@line\relax}%
\begingroup \catcode`\*=\active %
\long\gdef\lst@TestSpecialComment@fortran#1#2\relax{%
  \ifx #1*%
      \@lst@commenttrue \expandafter\lst@Tokenize\lst@line\relax %
      \let\lst@line=\empty \@lst@commentfalse %
  \else \if #1C%
      \@lst@commenttrue \expandafter\lst@Tokenize\lst@line\relax %
      \let\lst@line=\empty \@lst@commentfalse %
  \fi\fi}%
\endgroup %
\makeatother %
\endinput
%%
%% End of file `lstfortran.sty'.
