TweetFollow Us on Twitter

Volume Number:9
Issue Number:7
Column Tag:Jörg's Folder

Absoft MacFORTRAN 3.2

An interface to match the quality of its code optimizer

By Jörg Langowski, MacTech Magazine Regular Contributing Author

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

Those of you who have followed this column may have noticed that there are two major Fortran compilers for the Macintosh available: Absoft and Language Systems Fortran. And, for a long time, the main difference between the two products was that Absoft offered better performance - for typical programs, the code executed of the order of 25-40% faster than Language Systems, depending on the program and on the machine. Language Systems, on the other hand, had by far the superior Macintosh user interface, with easy assignment of subroutines to menu items, with Apple Events support and Publish/Subscribe possibilities. Absoft’s Macintosh support was only very rudimentary compared to that.

Well, some weeks ago I received an evaluation copy of MacFortran 3.2 by Absoft, and I must say that the situation has completely changed. Here is a version of MacFortran that finally comes with a Macintosh interface that matches the undeniable quality of Absoft’s code optimizer It is like someone at Absoft has read my columns (really! I’m flattered!) and incorporated each and every suggestion how to improve their Macintosh support, and then some. Of course, the general quality of the compiler and the performance of the code generated has not changed. So in this column I’d like to present you the main features of Absoft’s MRWE (MacFortran Runtime Window Environment), and show you an example program that uses them.

The MacFortran runtime window environment

Absoft’s MRWE is a library of Fortran routines that is usually linked into an application, unless you decide to build an MPW tool or create your own application framework around an event loop. At first glance, the new MRWE offers about the same possibilities as Language System’s runtime environment: one can associate a subroutine pointer to a menu item, and when the item is selected, the subroutine is executed; one can use the standard file dialog for opening a file, by specifying an empty filename string in the OPEN statement; the output window is a scrollable Text Edit window, fonts and font sizes can be changed and the text saved to a file. An application generated using MRWE will be Apple Event aware; you can easily add handlers for your own Apple Events, and send those events out. You can also open a file and publish it to other applications that support the subscribe/publish mechanism of System 7.

But Absoft has gone farther, and added features that the LS Fortran runtime package does not support (not yet - but we can be sure that they won’t be sleeping either. I am curious about their next upgrade ). One very important new addition is the possibility to assign an input/output window to any Fortran file unit - thus you can have multiple I/O windows, all scrollable and with custom font settings, and with the text saved to a file. The way to do this is simply to use OPEN (unit, ACCESS=’window’, ), and the window title will be the filename given in the OPEN statement. Up to 32 windows can be opened simultaneously this way, which gives you ample opportunity to confuse the user.

The OPEN statement is also used for implementing the publish/subscribe support. For creating a new edition of a file (which other programs can then subscribe to), you open the file by OPEN (unit, ACTION=’publish’, ); on the other hand, by using OPEN (unit, ACTION= ’subscribe’, ) you may read an edition generated by another program. In both cases, the files will be sequential and typically text files.

Finally, in the OPEN statement one can also define the filetype and creator of the newly opened file (which was already possible in LS Fortran).

A big new issue in Absoft MacFortran is the Apple Event support. This was not included at all in previous versions of MacFortran, and has been implemented now by adding a couple of powerful routines. Other than LS Fortran, where the only event class supported is ‘aevt’, here you may now define the class and the type of the event, and in addition supply two parameters which tell the Apple event sending routine whether there is any additional data to be sent and of what kind, and the data itself. In practice, you set up a call like this:

c          1


where target is a character expression specifying the application receiving the event, which may be specified by its name, its creator ID or selected by the PPC browser; it can be the calling program itself, or one can just have the event sent to the target that the last event was sent to. extraKind may be 0, 1, or 2; 0 means there is no extra data, 1 means extraInfo specifies a document name (e.g., to be opened), and 2 specifies an arbitrary character string in extraInfo. This Apple Event sending routine gives you therefore the possibility to exchange data (e.g., between Fortran programs using any arbitrary event class and type), without all the contortions that I had to go through when I wrote the first example routines for arbitrary Apple Event support in LS Fortran (see V8#2, June 1992). Again, I wouldn’t bet my life on it, but I’m pretty sure that Language Systems won’t hesitate to follow up with an extension to their Fortran that implements Apple Events support in a more general way.

Handlers for Apple Events that your application wants to receive are installed through a routine mrwe_AddAppleEvent(class,eventID,extraKind,extraInfo), where the parameters have the same meaning as in the Send routine. Finally, together with the Apple Event support you also get a routine that allows you to launch another program, or put your own application in the foreground when it needs attention. Very useful.

Distributed processing shell

When I browsed through the examples that come with MacFortran, I came across a folder called ‘DPShell’; I looked at some files inside, and voila! there was a complete set of shell applications that implemented exactly the type of Apple Event based ‘distributed processing’ mechanism proposed in my V8#2 column! Seems like someone at Absoft is really reading us, thank you. In essence, you have here a small application that can turn in the background on different Macs on a network and accept small tasks when the machine is not used too much, and send the result back to a parent application that turns on another machine. The whole housekeeping task, that is to keep track of which requests were sent out to which machine, and which results have come back in, is implemented in the DPShell; it is up to you to fill this shell with some useful code. Lacking the time, I have not exploited this tool, but it makes a very valuable addition to the examples and will prove useful for anyone who wants to implement parallel processing on a Macintosh network.

Menu support

Adding new menus and items to existing ones is implemented similarly to the way LS Fortran does it; you write for example

c          2

iresult=mrwe_AddMenu(‘Display’,’List Data/L’,list_data)

which will add to the menu ‘Display’ the item ‘List Data’ with the keyboard equivalent -L, and call the routine list_data when the item is selected. In addition, you may remove any item from a menu, and by removing all the items, the whole menu is deleted. You are not restricted to your custom menus, but may also manipulate the standard File and Edit menus this way. When a menu response routine is called, a parameter is passed that contains the menu and item IDs; this way you can use the same response routine for different menu items and distinguish inside the routine from where it was called.

Full source for MRWE

I can’t give you a description of all the routines included in MRWE here. The points discussed up to here show you the main new features and important differences with the main competitor, LS Fortran. One last thing has to be said, however: you get the full source code for all the routines in the MRWE. That way, you can see exactly how they work (they are very well documented and easy to read), modify them if you need it, and swat that last bug that every good piece of software has although I still have to find it.


Absoft’s documentation has evolved quite a bit over the last version changes, and to my opinion it is now every bit as good as Language System’s. Differences between the two manuals are in style rather than in quality, both of them are easy to use and you find what you’re looking for (although I found no entry for Publish/Subscribe, or the Edition manager, in the Absoft index). As said, the documentation inside the source code for the Macintosh runtime environment is excellent, and so is the description of the distributed processing shell.

Compatibility libraries

Porting programs from other machines to Absoft Fortran is now very easy. Not only is VAX code now compiled without any compatibility problems (i.e., the compiler now accepts program text with parts in VAX tab-delimited format and other parts in ANSI format), but there are also compatibility libraries that implement a few VAX system calls such as date, ran, time, and a lot of UNIX system functions, e.g., malloc, qsort, rename and others.

There is also a whole set of support libraries for AppMaker, the application prototyper that you’ve read about in earlier issues of this journal. I won’t go into details, because this deserves another column, but you can now create AppMaker application templates for Absoft MacFortran as well.


MacFortran’s debugging support is still only possible using SANE. A debugging library like it is included with LS Fortran is unfortunately missing here, and you have to run SANE - or SourceBug - on the side. It would be nice to have some quick and dirty means of tracing variables or displaying the names of routines as they are entered. Anyway, my crashes are usually of the kind where nothing seems suspicious until the machine almost explodes, debugger or not; so I think I’ll have to keep on living with the old method of scattering WRITE statements through my code for debugging.


With this upgrade, MacFortran has finally treated itself to a comfortable and very powerful Macintosh runtime environment. Compared to LS Fortran it also creates the fastest-running code. So is this a clear winner? In my opinion, I think both systems can have their advantages. For running Fortran code on a Mac with FPU support, I’d prefer Absoft 3.2 with its faster speed and its - at the moment - superior Macintosh interface. For lots of inter-language calling, LS Fortran may be offering a performance advantage because it supports the Macintosh register-saving conventions by default. If you want your program to run on a machine without an FPU (LC, Classic II, Centris 610), you’ll need LS Fortran unless the machine has an INIT installed that emulates the FPU instructions (such an INIT exists).


Before we end this column, let me briefly explain this month’s example. It shows how to use the Absoft Macintosh runtime routines in a Fortran program that reads a file with (x,y) data pairs and creates an edition out of it that can be subscribed to by Excel. Also, you can set some parameters through a dialog and create a theoretical curve that is also published, and Excel can subscribe to it.

Here we go: The main program sets some parameters, adds a custom menu with menu items and corresponding routine references, and drops into the Macintosh runtime environment. The first routine, Read_Data, opens a file using the SF dialog, and then calls a Lister routine that lists the contents of the file to a second output window, and publishes the (x,y) data pairs into an edition file ‘data.ed’. I have not provided any safety for bad number formats in the input file, so make sure this file looks correct. An example, ‘data1’, is included in the source code.

Draw_Curve will read the data pairs from the edition file ‘data.ed’ and use the x values to calculate ‘theoretical’ y-values through a function defined by three parameters a, b, c. The theoretical (x,y) data pairs are then published into a ‘curve.ed’ edition file.

Set_Pars, finally, puts up a modal dialog in which you can enter the three parameter values. They are converted from strings to real numbers using the Fortran ‘internal file’ READ statement. In this routine you find examples how to call toolbox routines from Absoft Fortran, where some parameters have to be passed by value.

The DLOG and DITL resources (ID=2000) are contained in a separate resource file (‘display.rsrc’ on the source code disk), which has to be merged into the compiled and linked application by using the MPW Rez tool or ResEdit.

Also included in the source code are two edition files ‘data.ed’ and ‘curve.ed’, and an Excel worksheet and a graph which subscribe to these edition files. Happy hacking; I hope you find the new Absoft MacFortran environment as useful as I have found it.

Example: Fortran program using ABsoft’s Macintosh Runtime Window Environment


 EXTERNAL Draw_Curve
 RECORD /Str255/  mrwe_PasSTR

 program display
creads data (x,y) from file and displays it
csuperimposes theoretical curve whose parameters 
care entered into a dialog box
cf(x) = a + b*exp(-c*x)
cJ. Langowski/MacTutor May 1993
 implicit none
 integer*4 ReadID, DrawID, ParsID
cinteger*4 AEresult

 INTEGER*4 window, unit
 COMMON /flags/ window,unit
 data unit /10/ ! initial unit # of windows to be opened

 ! note which window was in front at startup
 window = FrontWindow()
 ! move main window with Toolbox calls
 call MoveWindow(VAL4(window),
 1 VAL2(20),VAL2(50),VAL2(0))
 call SizeWindow(VAL4(window),
 1 VAL2(300),VAL2(200),VAL2(-1))
 ! Set up the menus
 ReadID  = mrwe_AddMenu('Display',
 1 'Read Data /R', Read_Data)
 DrawID  = mrwe_AddMenu('Display', 
 1 'Draw curve/D', Draw_Curve)
 ParsID  = mrwe_AddMenu('Display', 
 1 'Set Params/O', Set_Pars)
 write (*,*) 'Hello World'
 ! Pass control to MRWE "forever" (or until told to quit)
 CALL mrwe_EventLoop(0,0) ! should never return

 integer function Read_Data(itemID)
 CHARACTER filename*256
 INTEGER*4 status, Lister
 1 IOSTAT=status, STATUS='OLD')
 IF (status == 0) THEN
   INQUIRE (1, NAME=filename)
   Read_Data = Lister(TRIM(filename))
          Read_Data = status

! List a file with line numbers + open publisher

 INTEGER*4 FUNCTION Lister(filename)
 CHARACTER*(*) filename
 CHARACTER*132 line
 INTEGER*4 status, num
 real x,y
 OPEN(2, FILE=TRIM(filename)//' Listing', 
 1 ACCESS='WINDOW,200,300,50,20',
 WRITE(2,10) TRIM(filename)
 open (3, FILE='data.ed',ACTION='PUBLISH',
 num = 0
   READ (1,20,IOSTAT=status) line
          IF (status <> 0) EXIT
          num = num + 1
          WRITE(2,30) num, TRIM(line)
   read (line,*) x,y
   write(3,35) x,char(9),y

 10FORMAT ('*** Listing and publishing: "', a, '" ***', //)
 20FORMAT (a)
 30FORMAT (i4.4, ': ', a)
 35format (1xg15.5,1a,g15.5)
 40FORMAT (//,'*** End of listing ***',
 1 /,'To close window, press return')

 integer function Draw_Curve(itemID)
 implicit none
 integer status
 real a,b,c,x,y
 common /params/ a,b,c
 open (2, FILE='data.ed',ACTION='READ',
 open (3, FILE='curve.ed',ACTION='PUBLISH',
   READ (2,*,IOSTAT=status) x,y
          IF (status <> 0) EXIT
   y = a*exp(-b*x) + c
 WRITE(3,35) x,char(9),y
 Draw_Curve = 0
35 format (1xg15.5,1a,g15.5)

 integer function Set_Pars(itemID)
 implicit none
 real a,b,c
 common /params/ a,b,c
 integer*2 paramsDLOG,atext,btext,ctext
 1 atext=3,btext=4,ctext=5)

 INTEGER*4 savePort

 ! Dialog variables

 INTEGER*4    theDialog,itemType,hItem,Box
 INTEGER*2    itemHit
 RECORD /Str255/     itemaText,itembText,itemcText

 CALL GetPort(savePort)
 theDialog = GetNewDialog(VAL2(paramsDLOG),
 1 VAL4(0),VAL4(-1))
 CALL SetPort(VAL4(theDialog))
 itemHit = 0
    CALL ModalDialog(VAL4(0), itemHit)
    select case  (itemHit)
   case (ok)
 CALL GetDItem(VAL4(theDialog),
 1 VAL2(btext),itemType,hItem,Box)
 CALL GetIText(VAL4(hItem),itembText)
 CALL GetDItem(VAL4(theDialog),
 1 VAL2(ctext),itemType,hItem,Box)
 CALL GetIText(VAL4(hItem),itemcText)
 CALL GetDItem(VAL4(theDialog),
 1 VAL2(atext),itemType,hItem,Box)
 CALL GetIText(VAL4(hItem),itemaText)
 read (itemaText.chars(1:INT(itemaText.len)),*) a
 read (itembText.chars(1:INT(itembText.len)),*) b
 read (itemcText.chars(1:INT(itemcText.len)),*) c
 case (cancel)
 case default
    end select
 CALL DisposDialog(VAL4(theDialog))

 CALL SetPort(VAL4(savePort))
 Set_Pars = 0
 write (*,*) a,b,c



Community Search:
MacTech Search:

Software Updates via MacUpdate

VueScan 9.5.70 - Scanner software with a...
VueScan is a scanning program that works with most high-quality flatbed and film scanners to produce scans that have excellent color fidelity and color balance. VueScan is easy to use, and has... Read more
TextSoap 8.3.2 - Automate tedious text d...
TextSoap can automatically remove unwanted characters, fix up messed up carriage returns, and do pretty much anything else that we can think of to text. Save time and effort. Be more productive. Stop... Read more
ForkLift 3.0 - Powerful file manager: FT...
ForkLift is a powerful file manager and ferociously fast FTP client clothed in a clean and versatile UI that offers the combination of absolute simplicity and raw power expected from a well-executed... Read more
Amazon Chime 4.0.5528 - Amazon-based com...
Amazon Chime is a communications service that transforms online meetings with a secure, easy-to-use application that you can trust. Amazon Chime works seamlessly across your devices so that you can... Read more
Sparkle 2.1.0 - $79.99
Sparkle will change your mind if you thought building websites wasn't for you. Sparkle is the intuitive site builder that lets you create sites for your online portfolio, team or band pages, or... Read more
Bookends 12.7.9 - Reference management a...
Bookends is a full-featured bibliography/reference and information-management system for students and professionals. Bookends uses the cloud to sync reference libraries on all the Macs you use.... Read more
Dash 4.0.0 - Instant search and offline...
Dash is an API documentation browser and code snippet manager. Dash helps you store snippets of code, as well as instantly search and browse documentation for almost any API you might use (for a full... Read more
TrailRunner 3.8.834 - Route planning for...
TrailRunner is the perfect companion for runners, bikers, hikers, and all people wandering under the sky. Plan routes on a geographical map. Import GPS or workout recordings and journalize your... Read more
Dash 4.0.0 - Instant search and offline...
Dash is an API documentation browser and code snippet manager. Dash helps you store snippets of code, as well as instantly search and browse documentation for almost any API you might use (for a full... Read more
Bookends 12.7.9 - Reference management a...
Bookends is a full-featured bibliography/reference and information-management system for students and professionals. Bookends uses the cloud to sync reference libraries on all the Macs you use.... Read more

Fantasy MMORPG MU Origin’s receives a hu...
Developer Webzen are looking to take their highly popular fantasy battler MU Origin to the next level this month, with its most ambitious overhaul yet. The latest update introduces the long sought after Server Arena, new treasure dungeons, and much... | Read more »
RPG Djinn Caster (Games)
RPG Djinn Caster 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: SPECIAL PRICE 38% OFF(USD 7.99 -> USD 4.99)!!!A Fantasy Action RPG of far foreign lands! Summon the Djinns and rise to... | Read more »
Alto's Odyssey gets its first trail...
There's finally video evidence of Alto's Odyssey, the follow up to the 2015 App Store hit, Alto's Adventure. It looks just as soothing and atmospheric as Alto's last outing, but this time players will be journeying to the desert. Whereas Alto's... | Read more »
Last week on Pocket Gamer
What’s going on in the wider world of portable gaming? Each week we ask that question of our sister website Pocket Gamer. The PG team covers iOS gaming, just like 148Apps, but it also strays into the world of Android games and handheld consoles... | Read more »
Pokémon GO Generation 2 evolution guide
At long last, Niantic Labs finally unleashed the Generation 2 Pokémon into the wild. Pokémon GO trainers are scrambling to grab up this new set of 80 Pokémon. There are some special new tricks required to catch all of these new beasties, though.... | Read more »
The best new games we played this week
It feels as though the New Year got off to a creaking start as far as mobile games go, but that's changed over the past few weeks. The last few days alone have seen the debut of a number of wonderful games, so we thought we'd take the time to... | Read more »
Recruit more scallywags and discover new...
Get ready to show off your sea legs all over again in Oceans & Empires’ new grand update, which aims to make the act of rising to the role of seven seas ruler even more fresh and appealing, thanks to a richness of new content on both iOS and... | Read more »
Mage the Ascension: Refuge (Games)
Mage the Ascension: Refuge 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: The groundbreaking roleplaying game Mage: The Ascension manifests in our turbulent present with Refuge, an... | Read more »
Vampire: Prelude (Games)
Vampire: Prelude 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: The classic roleplaying game Vampire: The Masquerade returns to digital games with a Prelude of things to come. Experience a... | Read more »
Digby Forever Guide: How to dig to the d...
Digby Forever is a sparkling homage to arcade classics, and while you may be tiring of the number of arcade games being thrown at you, this endless digger finds many ways to stand out from the rest of the pack. The game manages to be challenging... | Read more »

Price Scanner via

QuickerTek Announces 5TB Apple AC AirPort Tim...
QuickerTek Inc. has announced their new 5TB hard drive upgrade for Apple’s AC AirPort Time Capsule. By customer request, this upgrade also features six external antennas and offers the highest... Read more
Apple Certified Refurbished iMacs available f...
Apple has Certified Refurbished 2015 21″ & 27″ iMacs available for up to $350 off MSRP. Apple’s one-year warranty is standard, and shipping is free. The following models are available: - 21″ 3.... Read more
Apple offering Certified Refurbished Series 1...
Apple is now offering Certified Refurbished Series 1 and Series 2 Apple Watches for 14-16% off MSRP, starting at $229. An Apple one-year warranty is included with each watch. Shipping is free: Series... Read more
1.4GHz Mac mini on sale for $449, save $50
B&H Photo has the 1.4GHz Mac mini on sale for $50 off MSRP including free shipping plus NY sales tax only: - 1.4GHz Mac mini: $449 $50 off MSRP Read more
12-inch Retina MacBooks on sale for $200-$250...
Newegg has the 12″ 1.2GHz Space Gray Retina MacBook (sku MLH82LL/A) on sale for $1349.99 including free shipping. Their price is $250 off MSRP, and it’s the lowest price available for this model.... Read more
13-inch 2.0GHz Space Gray MacBook Pro on sale...
Adorama has the non-Touch Bar 13″ 2.0GHz Space Gray MacBook Pro in stock today for $100 off MSRP. Shipping is free, and Adorama charges NY & NJ sales tax only: - 13″ 2.0GHz MacBook Pro Space Gray... Read more
13-inch Touch Bar MacBook Pros on sale for $1...
B&H Photo has select 2016 Apple 13″ Touch Bar MacBook Pros in stock today and up to $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.9GHz/512GB Touch Bar MacBook... Read more
KSI-1802R SX Disinfect-able Keyboard With Wav...
KSI has unveiled a new, innovative medical keyboard, the KSI-1802R SX, at HIMSS 2017, running February 19-22 in Orlando, Florida. KSI-1802R SX is the only keyboard that combines dual factor... Read more
15-inch Touch Bar MacBook Pros on sale for up...
Amazon has 15″ Touch Bar MacBook Pros in stock today and on sale for up to $150 off MSRP including free shipping: - 15″ 2.7GHz Touch Bar MacBook Pro Space Gray: $2720.38 $79 off MSRP - 15″ 2.7GHz... Read more
Apple’s Education discount saves up to $300 o...
Purchase a new Mac or iPad using Apple’s Education Store and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free: -... Read more

Jobs Board

*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Manager *Apple* Systems Administration - Pu...
Req ID 3315BR Position Title Manager, Apple Systems Administration Job Description The Manager of Apple Systems Administration oversees the administration and Read more
*Apple* Technician - nfrastructure (United S...
Let’s Work Together Apple Technician This position is based in Portland, ME Life at nfrastructure At nfrastructure, we understand that our success results from our Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Manager *Apple* Systems Administration - Pu...
Req ID 3315BR Position Title Manager, Apple Systems Administration Job Description The Manager of Apple Systems Administration oversees the administration and Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.