what is this extra argument to this subroutine?

From: Ben Barrowes (barrowes_at_alum.mit.edu)
Date: 03/25/05 

Date: Fri, 25 Mar 2005 15:56:35 -0700

In subpack.f90, I found an extra argument to a subroutine even though
the corresponding subroutine apparently does not support the argument.

The call is:

call perm_print ( n, p, ' The original permutation:' )

while the subroutine is simply:

subroutine perm_print ( n, p )
   implicit none
   integer n
   integer i
   integer ihi
   integer ilo
   integer, parameter :: inc = 20
   integer p(n)
   do ilo = 1, n, inc
     ihi = min ( n, ilo + inc - 1 )
     write ( *, '(a)' ) ' '
     write ( *, '(20i4)' ) ( i,i = ilo, ihi )
     write ( *, '(20i4)' ) p(ilo:ihi)
   end do
   return
end

What is going on with this call? Is:
' The original permutation:'
written to stdout or something?

Thanks,
Ben

Relevant Pages

  • Re: Standards interpretation: interface and intent?
    ... The fix was to make the called vector field subroutine ... Fortran Library: http://www.fortranlib.com Support the Original G95 Project: http://www.g95.org -OR- ... Support the GNU GFortran Project: http://gcc.gnu.org/fortran/index.html Why are there two? ... Liberty is a well armed sheep contesting the vote. ...
    (comp.lang.fortran)
  • NLSYST Subroutine Source
    ... someone has asked me for source to a subroutine called NLSYST. ... Support the Original G95 Project: http://www.g95.org ... Support the GNU GFortran Project: http://gcc.gnu.org/fortran/index.html ...
    (comp.lang.fortran)
  • Re: Q: ENTRY Argument List
    ... >> end subroutine ... > do with entry points. ... Support the GNU GFortran Project: http://gcc.gnu.org/fortran/index.html Why are there two? ... Liberty is a well armed sheep contesting the vote. ...
    (comp.lang.fortran)
  • Re: using the same function for stdout and files
    ... I have a subroutine as follows ... which basically prints the array in a specific format and sends the output ... Just use standard stdout unit number, so call this function with the correct ...
    (comp.lang.fortran)
  • Re: silly program with an interesting bug
    ... "Works" for Microsoft 3.31 as well. ... subroutine bar ... Support the Original G95 Project: http://www.g95.org ... Support the GNU GFortran Project: http://gcc.gnu.org/fortran/index.html ...
    (comp.lang.fortran)