TweetFollow Us on Twitter

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

Language Systems FORTRAN 3.0

By Jörg Langowski, MacTutor Regular Contributing Author; Neil Ticktin, Editor, MacTutor Magazine

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

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 like C++ :->).

Next time, some C++ again.

Listing 1
c
cMAIN
c
cPart of an AppleEvents example in the 
cFORTRAN manual.
c
cInvokes program Transform and passes it an 
carray for processing.
c
cCompile this demo with -bkg=4.
c
 PROGRAM MAIN
 REAL*4 Pressure(50)
 INTEGER*4NumPts/50/
 INTEGER*2ERROR,F_SendEvent
 LOGICAL*4F_OpenDocWaiting
 EXTERNAL F_SendEvent,F_OpenDocWaiting
 
 ! initialize an array
 DO J = 1,NumPts
 Pressure(J) = J
 END DO
 
 ! open TRANSFORM
 ERROR = F_SendEvent(‘oapp’,’TRANSFORM’,’’)
 IF (ERROR <> 0) CALL AlertBox(‘AppleEvent Error reported!’)
 
 ! send the data as binary file
 OPEN(10,FILE=’Main.Data’,form=’unformatted’)
 WRITE(10) NumPts,Pressure
 CLOSE(10)
 ERROR = F_SendEvent(‘odoc’,’TRANSFORM’,’Main.Data’)
 IF (ERROR <> 0) 
 1 CALL AlertBox(‘AppleEvent Error reported!’)
 
 ! wait for the data to return
 DO WHILE (.TRUE.)
 IF (F_OpenDocWaiting()) LEAVE
 END DO

 ! close TRANSFORM
 ERROR = F_SendEvent(‘quit’,’TRANSFORM’,’’)
 IF (ERROR <> 0) 
 1 CALL AlertBox(‘AppleEvent Error reported!’)
 
 ! print the data
 OPEN(10,FILE=*,form=’unformatted’)
 READ(10) NumPts,Pressure
 CLOSE(10,status=’delete’)
 WRITE(*,100) (Pressure(i),i=1,NumPts)
100FORMAT(5(x,f10.4)/)
 END

c
cTRANSFORM
c
cPart of an AppleEvents example in the FORTRAN manual.
c
cIs called by MAIN, processes an array and returns it.
c
cCompile this demo with -bkg=4.
c
 PROGRAM TRANSFORM ! a utility program to be
 REAL*4 DataSet(500) ! called by many other processes
 INTEGER*4NumPts
 INTEGER*2ERROR,F_SendEvent
 LOGICAL*4F_OpenDocWaiting
 EXTERNAL F_SendEvent,F_OpenDocWaiting

 ! loop until quit event comes
 DO WHILE (.TRUE.)
 IF (F_OpenDocWaiting()) THEN
 
 ! read in data
 OPEN(10,FILE=*,form=’unformatted’)
 READ(10) NumPts,(DataSet(J),J=1,NumPts)
 CLOSE(10,status=’delete’)
 
 ! transform it
 DO J = 1,NumPts
 DataSet(J) = DataSet(J) * 2.0
 END DO
 
 ! send the data back
 OPEN(10,FILE=’Transform.out’,form=’unformatted’)
 WRITE(10) NumPts,(DataSet(J),J=1,NumPts)
 CLOSE(10)
 ERROR =
 1  F_SendEvent(‘odoc’,’*sender’,’Transform.out’)
 IF (ERROR <> 0) 
 1 CALL AlertBox(‘AppleEvent Error reported!’)
 ELSE
 ! do nothing
 END IF
 END DO
 END

c
cSendScript
c
cSends a script to HyperCard 2.1 via the ‘dosc’ event.
c
cHyperCard v2.1 must be currently executing
c befor running this demo.
c
cCompile this demo with -bkg=4.
c
 program SendScript

 integer*2 err, F_SendScript
 external F_SendScript
 character*20  ch(3)
 character*5ch5
 
 ch(1) = ‘beep’
 ch(2) = ‘hide card window’
 ch(3) = ‘show card window’

 err = F_SendScript(‘HyperCard’,ch,3)
 
 if (err <> 0) then
 write(ch5,’(i5)’) err
 call alertbox
 1 (‘Error ‘//ch5//’ occurred during SendScript.’)
 write(*,*) 
 1 ‘Error ‘//ch5//’ occurred during SendScript.’
 end if
 end
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

FileZilla 3.23.0.2 - Fast and reliable F...
FileZilla (ported from Windows) is a fast and reliable FTP client and server with lots of useful features and an intuitive interface. Version 3.23.0.2: Bug Fixes and Minor Changes Speed up icon... Read more
PDFpen 8.3 - $74.95
PDFpen allows users to easily edit PDF's. Add text, images and signatures. Fill out PDF forms. Merge or split PDF documents. Reorder and delete pages. Even correct text and edit graphics! Features... Read more
TunnelBear 3.0.8 - Subscription-based pr...
TunnelBear is a subscription-based virtual private network (VPN) service and companion app, enabling you to browse the internet privately and securely. Features Browse privately - Secure your data... Read more
Safari Technology Preview 10.1 - The new...
Safari Technology Preview contains the most recent additions and improvements to WebKit and the latest advances in Safari web technologies. And once installed, you will receive notifications of... Read more
Ableton Live 9.7.1 - Record music using...
Ableton Live lets you create and record music on your Mac. Use digital instruments, pre-recorded sounds, and sampled loops to arrange, produce, and perform your music like never before. Ableton Live... Read more
BetterTouchTool 1.963 - Customize Multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
NeoFinder 7.0 - Catalog your external me...
NeoFinder (formerly CDFinder) rapidly organizes your data, either on external or internal disks, or any other volumes. It catalogs all your data, so you stay in control of your data archive or disk... Read more
Coda 2.6 - One-window Web development su...
Coda is a powerful Web editor that puts everything in one place. An editor. Terminal. CSS. Files. With Coda 2, we went beyond expectations. With loads of new, much-requested features, a few surprises... Read more
PDFpenPro 8.3 - $124.95
PDFpenPro allows users to edit PDF's easily. Add text, images and signatures. Fill out PDF forms. Merge or split PDF documents. Reorder and delete pages. Create fillable forms and tables of content... Read more
File Juicer 4.51 - Extract images, video...
File Juicer is a drag-and-drop can opener and data archaeologist. Its specialty is to find and extract images, video, audio, or text from files which are hard to open in other ways. In computer... Read more

Latest Forum Discussions

See All

PINE GROVE (Games)
PINE GROVE 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: A pine grove where there are no footsteps of people due to continuous missing cases. The case is still unsolved and nothing has... | Read more »
Niantic teases new Pokémon announcement...
After rumors started swirling yesterday, it turns out there is an official Pokémon GO update on its way. We’ll find out what’s in store for us and our growing Pokémon collections tomorrow during the Starbucks event, but Niantic will be revealing... | Read more »
3 reasons why Nicki Minaj: The Empire is...
Nicki Minaj is as business-savvy as she is musically talented and she’s proved that by launching her own game. Designed by Glu, purveyors of other fine celebrity games like cult favorite Kim Kardashian: Hollywood, Nicki Minaj: The Empire launched... | Read more »
Clash of Clans is getting its own animat...
Riding on its unending wave of fame and success, Clash of Clans is getting an animated web series based on its Clash-A-Rama animated shorts.As opposed to the current shorts' 60 second run time, the new and improved Clash-A-Rama will be comprised of... | Read more »
Leaks hint at Pokémon GO and Starbucks C...
Leaked images from a hub for Starbucks employees suggests that a big Pokémon GO event with the coffee giant could begin this very week. The images appeared on Reddit and hint at some exciting new things to come for Niantic's smash hit game. | Read more »
Silent Depth Submarine Simulation (Game...
Silent Depth Submarine Simulation 1.0 Device: iOS Universal Category: Games Price: $7.99, Version: 1.0 (iTunes) Description: | Read more »
Enneas Saga lets you lead your own demon...
Defend the land of Enneas Continent from the forces of evil in the new fantasy MMORPG from Lyto Mobi: Enneas Saga. Can’t wait? No problem. It’s available to download now on Android devices. | Read more »
Great zombie games in the spirit of Dead...
Dead Rising 4 arrives tomorrow, giving enthusiasts a fresh chance to take selfies with zombies and get up to other ridiculous end-of-the-world shenanigans. To really get into the spirit of things, we've gone and gathered the best zombie games that... | Read more »
Amateur Surgeon 4 Guide: Advanced tips a...
Amateur Surgeon 4 is still tackling the competition at the top of the App Store charts, so if you haven't tried it out yet, you should probably do that right away. If you've been at it for a while, though, perhaps you're ready to start expanding... | Read more »
Amateur Surgeon 4 Guide: Become the worl...
It's time to wield your trusty pizza cutter again, as Amateur Surgeon has returned with a whole fresh set of challenges (and some old, familiar ones, too). Starting anew isn't easy, especially when all you have at your disposal is a lighter, the... | Read more »

Price Scanner via MacPrices.net

Back in stock: Apple refurbished Mac minis fr...
Apple has Certified Refurbished Mac minis available starting at $419. Apple’s one-year warranty is included with each mini, and shipping is free: - 1.4GHz Mac mini: $419 $80 off MSRP - 2.6GHz Mac... Read more
Twenty-Five Years Of Apple Laptops – A person...
Among many other things, the often tumultuous 16th year of the new century marked the 25th anniversary of Apple laptop computers, not counting the optimistically named 16-pound Mac Portable of 1989.... Read more
Landlordy iOS App Adds Support For Appliances...
Riga, Latvia based E-protect SIA is releasing major update (version 1.8) to its Landlordy app for managing rental business financials on the go. Landlordy is iPhone and iPad app designed for self-... Read more
Holiday sale, Apple iMacs for up to $200 off...
B&H Photo has 21″ and 27″ Apple iMacs on sale for up to $200 off MSRP including free shipping plus NY sales tax only: - 27″ 3.3GHz iMac 5K: $2099 $200 off MSRP - 27″ 3.2GHz/1TB Fusion iMac 5K: $... Read more
Holiday sale: Mac minis for $50 to $100 off M...
B&H Photo has Mac minis on sale for up to $100 off MSRP free shipping plus NY sales tax only: - 1.4GHz Mac mini: $449 $50 off MSRP - 2.6GHz Mac mini: $629 $70 off MSRP - 2.8GHz Mac mini: $899 $... Read more
Mac Pros on sale for up to $300 off MSRP, ref...
B&H Photo has Mac Pros on sale for up to $300 off MSRP. Shipping is free, and B&H charges sales tax in NY only: - 3.7GHz 4-core Mac Pro: $2799, $200 off MSRP - 3.5GHz 6-core Mac Pro: $3699, $... Read more
12-inch WiFi Apple iPad Pros on sale for up t...
B&H Photo has 12″ WiFi Apple iPad Pros on sale for up to $50 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 12″ Space Gray 32GB WiFi iPad Pro: $749 $50 off MSRP... Read more
9-inch Apple WiFi iPad Pros on sale for $20-$...
B&H Photo has 9.7″ Apple WiFi iPad Pros on sale for $20-$50 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 9″ Space Gray 256GB WiFi iPad Pro: $779.95 $20 off MSRP... Read more
Apple refurbished 2015 15-inch MacBook Pros a...
Apple has Certified Refurbished 2015 15″ Retina MacBook Pros available starting at $1699. An Apple one-year warranty is included with each model, and shipping is free: - 15″ 2.2GHz Retina MacBook Pro... Read more
Back in stock! 13-inch 2.7GHz Retina MacBook...
Apple has Apple Certified Refurbished 2015 13″ 2.7GHz/128GB Retina MacBook Pros (MF839LL/A) available again for $1099 including free shipping. That’s $200 off MSRP, and it’s the lowest price... Read more

Jobs Board

*Apple* Retail - Multiple Positions- Philade...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Retail - Multiple Positions- San Ant...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Products Tester Needed - Apple (Unit...
…we therefore look forward to put out products to quality test for durability. Apple leads the digital music revolution with its iPods and iTunes online store, Read more
SW Engineer *Apple* TV Frameworks - Apple I...
The Apple TV team is looking for a software...create features that reflect the look and feel of Apple TV. Description: Were looking for someone who is Read more
Hardware Design Validation Engineer - *Apple...
The Apple Watch team is looking for a Hardware Design Validation Engineer. This person will be part of the Apple Watch hardware team with responsibilities for Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.