Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!cs.utexas.edu!uunet!crdgw1!lamson From: lamson@sierra.crd.ge.com (scott h lamson) Newsgroups: comp.lang.fortran Subject: Re: fortran source code translation utility Message-ID: Date: 13 Feb 90 12:43:58 GMT References: <1990Feb12.234210.5541@Stardent.COM> Sender: news@crdgw1.crd.ge.com Organization: GE Corporate Research & Development Lines: 53 In-reply-to: johnd@Stardent.COM's message of 12 Feb 90 23:42:10 GMT 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