🚀 go-pugleaf

In article <1990Feb12.234210.5541@Stardent.COM> johnd@Stardent.COM (John R. Dennis @stardent) writes:

>   From: johnd@Stardent.COM (John R. Dennis @stardent)

>   At a minimum we want to be able to replace one name
>   with another, optionally we would also like to be able to add or delete a
>   parameter or change its position in a parameter list, or translate a
>   hard-coded constant to a symbolic constant (parameter in fortran), etc.

One thing you can use is arithmetic statement functions
c
c   local definitions ** host specific **
c
c        convex version
c                   [ sh lamson GE CRD 1/90 ]
c     arithmetic statement functions to switch cray shift routines 
c       to convex
c
      integer shift,shiftr,shiftl
c
      and(i,j) = iand(i,j)
      or(i,j) = ior(i,j)
      shift(i,j) = ishft(i,j)
      shiftl(i,j) = ishft(i,j)
      shiftr(i,j) = ishft(i,-j)
c
c

this replaces cray references shiftr(i,j) with ishft(i,-j) which is
provided on the convex.   this minimizes the differences between cray
and convex versions, where both are being maintained.  I put this in
an include file for use by many routines.

another option is toolpack, a set of fortran source code
transformation tools.
For distribution, contact Integrated Systems Technologies at (312)869-
7820 or the Numerical Algorithms Group (usa 312-971-2337 or uk oxford
(0865)511245 international +44865 511245).

also see references IEEE Transactions on Software Engineering SE-9
                       #6 Nov 83 P 673.  L.J. Osterweil
TOOLPACK Funding was provided by the NSF, DOE, and 
                      UK Research & Engineering Council.


Lastly, Dennis Gannon et others is working on FAUST, a fortran (C?)
software development environment with source transformation
facilities.  This may be available this coming summer.

--
        Scott|  ARPA:      lamson@crd.ge.com
       Lamson|  UUCP:      uunet!crd.ge.com!lamson
(518)387-5795|  UUCP:      uunet!sierra.crd.ge.com!lamson