TweetFollow Us on Twitter

LS FORTRAN 3.0, Pt 2
Volume Number:8
Issue Number:2
Column Tag:Jörg's Folder

Language Systems FORTRAN 3.0

By Jörg Langowski, MacTutor Regular Contributing Author

[Due to a bug that showed itself in Quark XPress 3.1, portions of this article were not printed properly in the April/May issue. The relevant portions are reprinted here. Just goes to show, to err is human, but to really foul things up takes a computer. - Ed.]

Language Systems FORTRAN 3.0

FORTRAN 2.1 was already very robust, generated good, fast code, and all in all, allowed programs that ran on mainframes to be ported very quickly to the Macintosh. Also, subroutines could be assigned to menu items, and the runtime system would handle the menu selections automatically for you, files could be OPENed using the standard file dialogs, and many more goodies.

A Multi-dialect FORTRAN

When I opened the 3.0b2 version of the LS FORTRAN (LSF) compiler, amazingly enough I discovered that one could still make substantial improvements to this development system. First of all, Language Systems proved that one can actually make several existing FORTRAN dialects live happily together in one system. Although I have only VAX programs to test here, I believe their claim that Cray, Microsoft, Data General, and of course standard ANSI 77 FORTRAN programs mostly compile without modifications and produce the expected results. There is a whole section of the manual (20 pages, to be precise) devoted to describing the compatibility with other systems, and the changes that may still be necessary for porting the programs. The manual - or rather Karen Rall, who wrote it - “thinks for you”; the Mac user who has never before transferred a FORTRAN program from a mainframe will even get instructions about file-transfer protocols, Macintosh file attributes and VAX record types. There are -vax and -cray compiler switches for porting programs from those respective machines. Even the VAX pre-connected filenames SYS$INPUT, SYS$OUTPUT, SYS$PRINT and SYS$ERROR are supported. Also, all Microsoft compiler directives are recognized and respected, if possible

But porting programs is not the whole story. You’ll want to develop new programs, test out those bugs, and for that part LSF now adds new debugging options. Of course, the trace and dump options always existed which would trace subroutine entry and exit, and allow to dump variable values to the output screen. Now there is the new -debug compiler switch with four levels: debug=1 adds code that displays the file name and source line number where a runtime error occurred; and when you press the caps lock key during execution, a window pops up where the source line numbers that are being executed flash by. At debug=2, in addition, the heap is checked at the end of each subroutine, and at level 3, after each line of source code.

Of course, you can generate symbol tables for use with SADE, to have source code level debugging.

Toolbox Calling Conventions

The Mac toolbox interface has been improved even further. Now, when you declare functions as PEXTERNAL or CEXTERNAL, character constants passed as arguments are automatically converted to the Pascal (length byte followed by text) or C format (zero-terminated string). The names of PEXTERNAL routines are always passed to the linker in upper case, regardless of the case sensitivity of the FORTRAN compiler chosen (ignore case or case-sensitive), and CEXTERNAL names are always passed in case-sensitive format. These are the formats that the linker expects for C and Pascal. You can declare variables GLOBAL, which means they are application globals referenced from A5; again, to match the Pascal and C naming conventions, you can use the PGLOBAL and CGLOBAL declarations.

System 7

As promised, the new LS FORTRAN supports AppleEvents. The runtime library includes code that automatically recognizes the four required AppleEvents, ‘oapp’, ‘odoc’, ‘pdoc’, and ‘quit’ (see this column in V7#11). If you compile a FORTRAN program with the background processing option, it will react when another program sends it an AppleEvent. As an example, I have listed two programs provided on the LSF disks: the main program opens a second application, sends it some data via an intermediate file, and the second application transfers the processed data back to the main program and quits.

The inclusion of AppleEvents in LSF opens up a whole range of perspectives: for instance, one could imagine a ‘compute server’, a Quadra for example, sitting somewhere on the network with a math library, comprising lots of tiny applications, and programs on other Macintoshes that use this library. Or a way of distributed processing on the network, where a CPU-intensive program can ‘steal’ time from other machines when they are not being used. The routine F_OpenDocWaiting() is used to synchronize such parallel processes; it will continue only when the program has received an ‘odoc’ event. A very rudimentary but effective way of parallel processing.

Although (up to now) only the four required AppleEvents are recognized automatically by the FORTRAN runtime library, you can send any event you like, as shown in the third example. HyperCard 2.1 understands the event ‘dosc’ which will make it execute a HyperTalk script contained in the event’s data. The program sets up such a script and sends it to HyperCard; if you don’t have HyperCard opened, it will issue an error message. When you have HyperCard running and start the program, you’ll hear one beep and see the card window disappear and reappear. Very impressive.

The edition manager of System 7 is also supported in a way; you can publish a FORTRAN-created file by executing CLOSE(UNIT=iunit, STATUS=’PUBLISH’). ‘Subscribing’ to such a ‘published’ document from another program that supports the edition manager means that changes made by the publisher to the document are automatically reflected in the version of the document opened by the other program (I’ll give an introduction to the Edition manager in a later column, haven’t fully under-stood it myself yet).

The last System 7 feature that has been included into LSF 3.0 is alias support. If you open an alias to a file from within a FORTRAN program, the original file will be accessed, just as you would expect.

New Compiler Options

The compiler includes support for generating 68040-specific code, and the optimizer has been improved. As far as I could tell from some limited comparisons (comparing the assembly output generated for the Linpack and Matmult benchmarks, see V7#1), the code generated for the 68040 looks extremely similar to the 68030 code, except for some floating point FMOVE instructions, which are different. I’ll check whether there is a large speed difference on a 68040 between code compiled with the -mc68030 and the -mc68040 options as soon as I have access to a Quadra.

The quality of the code has improved from version 2.1. The Linpack and matrix multiplication benchmarks (V7#1) now run at the same speed as the Absoft MacFortranII compiled versions, although the Whetstone benchmark is still 20% slower. Note, however, that Absoft is much slower if you insist on full Pascal calling conventions, which is standard in LSF.

The most striking difference between the code created by the LSF and the Absoft compiler occurred when I ran a program called “Paranoia” which tests the accuracy and consistency of math operations. While LSF at opt=3 passed all the tests with no problems reported, Absoft’s code (with the basic optimizations) reported a lot of errors and got stuck halfway through. I include the two compiled versions on the source code disk so you can see for yourself.

At this moment, LSF seems to be superior to Absoft FORTRAN in almost all aspects, from the quality of the code to the Macintosh environment, to System 7 support; there may still be a slight disadvantage for integer-computation intensive programs (not for floating point). The new Absoft FORTRAN should be out by now, so we’ll soon see what that brings. From the information they gave in their ad, especially the 68040 support looks very interesting; however, the AppleEvents support is unique to LSF.

Other Features

There are many other improvements made in LSF 3.0 that you notice browsing through the manual, most often printed in boldface text because they are nonstandard extensions. The chapter about optimization was missing from my beta manual; it would have been interesting to see what they actually changed to get the better performance, but I’ll have to wait for the final version. There is a long appendix on how to use HyperCard as a front end to FORTRAN applications, which should be especially interesting under System 7, where both HyperCard and FORTRAN programs can pass AppleEvents to each other. Of course, you can still write XCMDs in FORTRAN, as was always possible. Also, 4th Dimension external commands are supported. All in all, there is almost no reason anymore why seasoned FORTRAN programmers should learn Pascal or C (although I do like C++).

For more information, contact:

Language Systems Corporation

441 Carlisle Drive, Herndon, VA 22070-4802

800-2-LANGSYS or 703-478-0181, 703-689-9593 (fax)

AppleLink: LANGSYS, America Online: LANGSYS

Retail Price: $595 w/MPW, $495 w/o MPW

FORTRAN Upgrades: $100, MPW Upgrades: $50

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Vivaldi 1.0.118.19 - Lightweight browser...
Vivaldi browser. In 1994, two programmers started working on a web browser. Our idea was to make a really fast browser, capable of running on limited hardware, keeping in mind that users are... Read more
Stacks 2.6.11 - New way to create pages...
Stacks is a new way to create pages in RapidWeaver. It's a plugin designed to combine drag-and-drop simplicity with the power of fluid layout. Features: Fluid Layout: Stacks lets you build pages... Read more
xScope 4.1.3 - Onscreen graphic measurem...
xScope is powerful set of tools that are ideal for measuring, inspecting, and testing on-screen graphics and layouts. Its tools float above your desktop windows and can be accessed via a toolbar,... Read more
Cyberduck 4.7 - FTP and SFTP browser. (F...
Cyberduck is a robust FTP/FTP-TLS/SFTP browser for the Mac whose lack of visual clutter and cleverly intuitive features make it easy to use. Support for external editors and system technologies such... Read more
Labels & Addresses 1.7 - Powerful la...
Labels & Addresses is a home and office tool for printing all sorts of labels, envelopes, inventory labels, and price tags. Merge-printing capability makes the program a great tool for holiday... Read more
teleport 1.2.1 - Use one mouse/keyboard...
teleport is a simple utility to let you use one single mouse and keyboard to control several of your Macs. Simply reach the edge of your screen, and your mouse teleports to your other Mac! The... Read more
Apple iMovie 10.0.8 - Edit personal vide...
With an all-new design, Apple iMovie lets you enjoy your videos like never before. Browse your clips more easily, instantly share your favorite moments, and create beautiful HD movies and Hollywood-... Read more
Box Sync 4.0.6233 - Online synchronizati...
Box Sync gives you a hard-drive in the Cloud for online storage. Note: You must first sign up to use Box. What if the files you need are on your laptop -- but you're on the road with your iPhone? No... Read more
Fantastical 2.0.3 - Create calendar even...
Fantastical 2 is the Mac calendar you'll actually enjoy using. Creating an event with Fantastical is quick, easy, and fun: Open Fantastical with a single click or keystroke Type in your event... Read more
The Hit List 1.1.14 - Advanced reminder...
The Hit List manages the daily chaos of your modern life. It's easy to learn - it's as easy as making lists. And it's powerful enough to let you plan, then forget, then act when the time is right.... Read more

SoundHound + LiveLyrics is Making its De...
SoundHound Inc. has announced that SoundHound + LiveLyrics, will be one of the first third-party apps to hit the Apple Watch. With  SoundHound you'll be able to tap on your watch and have the app recognize the music you are listening to, then have... | Read more »
Adobe Joins the Apple Watch Lineup With...
A whole tidal wave of apps are headed for the Apple Watch, and Adobe has joined in with 3 new ways to enhance your creativity and collaborate with others. The watch apps pair with iPad/iPhone apps to give you total control over your Adobe projects... | Read more »
Z Steel Soldiers, Sequel to Kavcom'...
Kavcom has released Z Steel Soldiers, which continues the story of the comedic RTS originally created by the Bitmap Brothers. [Read more] | Read more »
Seene Lets You Create 3D Images With You...
Seene, by Obvious Engineering, is a 3D capture app that's meant to allow you to create visually stunning 3D images with a tap of your finger, and then share them as a 3D photo, video or gif. [Read more] | Read more »
Lost Within - Tips, Tricks, and Strategi...
Have you just downloaded Lost Within and are you in need of a guiding hand? While it’s not the toughest of games out there you might still want some helpful tips to get you started. [Read more] | Read more »
Entertain Your Pet With Your Watch With...
The Petcube Camera is a device that lets you use live video to check in on your pet, talk to them, and play with them using a laser pointer - all while you're away. And the Petcube app is coming to the Apple Watch, so you'll be able to hang out with... | Read more »
Now You Can Manage Your Line2 Calls With...
You'll be able to get your Line2 cloud phone service on the Apple Watch very soon. The watch app can send and receive messages using hands-free voice dictation, or by selecting from a list of provided responses. [Read more] | Read more »
R.B.I. Baseball 15 (Games)
R.B.I. Baseball 15 1.01 Device: iOS Universal Category: Games Price: $4.99, Version: 1.01 (iTunes) Description: The legendary Major League Baseball franchise returns to the diamond. Make History. ** ALL iPOD Touch, the iPad 2 and the... | Read more »
Here's How You Can Tell if an App W...
The Apple Watch is pretty much here, and that means a whole lot of compatible apps and games are going to be updated or released onto the App Store. That's okay though, beacause Apple has quietly updated their app description pages to make things... | Read more »
Forgotten Memories : Alternate Realities...
Forgotten Memories : Alternate Realities 1.0.1 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.1 (iTunes) Description: + REDUCED PRICE ONLY THE LAUNCHING WEEK + "The most exciting horror game of 2015." - AppSpy... | Read more »

Price Scanner via MacPrices.net

Intel Compute Stick: A New Mini-Computing For...
The Intel Compute Stick, a new pocket-sized computer based on a quad-core Intel Atom processor running Windows 8.1 with Bing, is available now through Intel Authorized Dealers across much of the... Read more
Heal to Launch First One-Touch House Call Doc...
Santa Monica, California based Heal, a pioneer in on-demand personal health care services — will offer the first one-touch, on-demand house call doctor app for the Apple Watch. Heal’s Watch app,... Read more
Mac Notebooks: Avoiding MagSafe Power Adapter...
Apple Support says proper usage, care, and maintenance of Your Mac notebook’s MagSafe power adapter can substantially increase the the adapter’s service life. Of course, MagSafe itself is an Apple... Read more
12″ Retina MacBook In Shootout With Air And P...
BareFeats’ rob-ART morgan has posted another comparison of the 12″ MacBook with other Mac laptops, noting that the general goodness of all Mac laptops can make which one to purchase a tough decision... Read more
FileMaker Go for iPad and iPhone: Over 1.5 Mi...
FileMaker has announced that its FileMaker Go for iPad and iPhone app has surpassed 1.5 million downloads from the iTunes App Store. The milestone confirms the continued popularity of the FileMaker... Read more
Sale! 13-inch 2.7GHz Retina MacBook Pro for $...
 Best Buy has the new 2015 13″ 2.7GHz/128GB Retina MacBook Pro on sale for $1099 – $200 off MSRP. Choose free shipping or free local store pickup (if available). Price for online orders only, in-... Read more
Minimalist MacBook Confirms Death of Steve Jo...
ReadWrite’s Adriana Lee has posted a eulogy for the “Digital Hub” concept Steve Jobs first proposed back in 2001, declaring the new 12-inch MacBook with its single, over-subscribed USB-C port to be... Read more
13-inch 2.7GHz Retina MacBook Pro for $1234 w...
Adorama has the 13″ 2.7GHz/128GB Retina MacBook Pro in stock for $1234.99 ($65 off MSRP) including free shipping plus a free LG external DVD/CD optical drive. Adorama charges sales tax in NY & NJ... Read more
13-inch 2.5GHz MacBook Pro available for $999...
 Adorama has the 13-inch 2.5GHz MacBook Pro on sale for $999 including free shipping plus NY & NJ sales tax only. Their price is $100 off MSRP. Read more
Save up to $600 with Apple refurbished Mac Pr...
The Apple Store is offering Apple Certified Refurbished Mac Pros for up to $600 off the cost of new models. An Apple one-year warranty is included with each Mac Pro, and shipping is free. The... Read more

Jobs Board

*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
Service-Learning Counselor, *APPLE* Corps -...
…CONTRACT TITLE Higher Education Assistant FLSA Exempt CAMPUS SPECIFIC INFORMATION APPLE Corps (Academic Preparation Program for Law Enforcement), a partnership between Read more
*Apple* iOS Specialist - Kforce (United Stat...
Our client is seeking an Apple iOS Specialist to join their team in Quincy, Massachusetts (MA). Duties: * Responsible for configuration and distribution of desktop, Read more
*Apple* Systems Engineer - Axius Technologie...
* Must be Apple -Certified specialist and will be responsible for all hardware: device settings, images creation/deployment, security implementation * Responsible for all Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.