Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!purdue!peb
From: peb@cs.purdue.EDU (Paul E. Buis)
Newsgroups: comp.lang.fortran
Subject: External Subprograms in Interface Blocks
Keywords: Fortran 8x
Message-ID: <7983@medusa.cs.purdue.edu>
Date: 15 Sep 89 16:59:39 GMT
Sender: news@cs.purdue.EDU
Distribution: usa
Organization: Department of Computer Science, Purdue University
Lines: 25

How does one declare the arguments to an external subprogram
in a Fortran 8x interface block?  My only reference to the 
standard is the first edition of Metcalf and Reid.

Suppose one has a subprogram such as:

      function eval(f, x)
      real f, x
      external f
      eval = f(x)
      return
      end

An interface block would look something like:

      interface
      function eval(f, x)
      real f, x
      external f
      end interface

Nowhere does this specify the number and type of the arguments to f.

Has the standard been patched up since Metcalf and Reid's first edition
to cover this sort of thing?