Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!ncar!unmvax!brainerd
From: brainerd@unmvax.unm.edu (Walt Brainerd)
Newsgroups: comp.lang.fortran
Subject: Re: Is this a correct Fortran 88 subroutine?
Summary: ???
Message-ID: <325@unmvax.unm.edu>
Date: 5 Sep 89 21:37:49 GMT
References: <1018@key.COM>
Organization: University of New Mexico at Albuquerque
Lines: 19

In article <1018@key.COM>, sjc@key.COM (Steve Correll) writes:
> Is this legal Fortran 8x?
> 
> 	SUBROUTINE X(L)
> 	LOGICAL L
> 	IF: IF ( L ) THEN
> 	    ELSEIF		! This is not an ELSEIF statement
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> 	    ENDIF IF
> 	END

It doesn't look like legal anything to me.  Guess I don't understand the
question.  The rest of the subroutine looks OK.

-- 
Walt Brainerd  Unicomp, Inc.           brainerd@unmvax.cs.unm.edu
               2002 Quail Run Dr. NE
               Albuquerque, NM 87122
               505/275-0800