Re: Troubles with some IMSL routines (eg EVLRG, and some other)

"Steve Lionel" <Steve.Lionel@xxxxxxxxxxxxxxxxx> wrote in message
news:gbne91dj3mt69ap88jo73q9aubklkv905f@xxxxxxxxxx

> Yes, WRCRN (and all of IMSL in that version) was written in F77 (as far as
I
> know) and they made up interface blocks for F90 users.

> Prior to CVF 6.6B, the compiler would let you pass a scalar to an array,
and
> since the bounds information isn't passed, it would just take the string
> length of the argument and it would work.

Thanks for the explanation. This is one of the things us F90 types
fret about when we see a recommendation to use interface blocks
instead of module procedures to provide an explicit interface: the
exlicit interface might end up not agreeing with the interface of
the actual procedure.

BTW, you pointed out a mistake in one of my examples this week in
email, and I thought your explanation was so detailed and informative
that the group might benefit from it, but I couldn't post it myself
because it was your message, after all. Could you be so kind as to
append your excellent email message to the thread in question?

--
write(*,*) transfer((/17.392111325966148d0,6.5794487871554595D-85, &
6.0134700243160014d-154/),(/'x'/)); end


.

Relevant Pages

  • Re: variable length fields for flexibility in subroutines
    ... What you might look into is creating a description of your "interface ... block" in XML, then parsing that document and spinning through the nodes ... existing system (no recompilation of any Assemblies), is efficient, and ... Interface blocks for inter-program communication...Create an Interface ...
    (comp.lang.cobol)
  • Re: interface blocks
    ... > I have about 3500 subroutines with 400,000 lines of f66/f77 that I ... INTERFACE blocks are usually not checked against the ... So, the compiler should provide ... As for the other supposed problems with INTERFACE blocks: ...
    (comp.lang.fortran)
  • Re: Interface Question
    ... END SUBROUTINE C ... The INTERFACE block defines how subroutine C is supposed to be used. ... There are the interface blocks that define generics like ...
    (comp.lang.fortran)
  • Re: Interface Question
    ... END SUBROUTINE C ... The INTERFACE block defines how subroutine C is supposed to be used. ... There are the interface blocks that define generics like ...
    (comp.lang.fortran)
  • Re: Why use modules?
    ... > the primary operations on new data types I still keep them separate ... > and use a module of interface blocks. ...
    (comp.lang.fortran)