TweetFollow Us on Twitter

McFace
Volume Number:3
Issue Number:7
Column Tag:Fortran's World

McFace Fixes MS Fortran

By Chuck Bouldin, Gaithersburg, MD

Fortran Toolbox Access with McFace

Most programmers who use Fortran on the Macintosh do so because:(1) they already know Fortran, (2) they have a lot of existing code that they want to run on the Mac, or (3) they want to add Macintosh features to existing programs. So far, the articles on MacFortran have dealt mainly with adding toolbox and Mac-specific features to Fortran programs. From earlier articles, it is clear that adding Mac-style features to existing Fortran code is not easy to do. In this article I discuss the use of McFace, a large, high level, “glue” subroutine that greatly simplifies adding Mac features to Fortran programs.

McFace is particularly useful for porting existing Fortran applications, adding to the existing code the Mac “look and feel”. Apple is now pushing “desktop engineering” and 68020 upgrades are becoming commonplace, so it is important to find an easy means to port the large body of existing Fortran engineering and scientific code, while adding the user interface features required in a good Macintosh application.

McFace is a single, large (134K, whew!) subroutine that allows easy access to much of the Mac toolbox. The user interface is reduced to a single subroutine call with arguments that are used to pick out the various functions supplied by McFace. By making very small additions to existing Fortran source, it is easy to add support for the standard Apple, File and Edit menus, text editing of input and output streams, desk accessory support, and a graphics window. Graphics can be written to the screen and saved as Bitmaps or quickdraw pictures, allowing automatic handling of update events in the graphics window. With slightly more effort, existing Fortran can have dialogue boxes, alerts, and custom menus added. Conversion of existing programs to the event orientation of the Mac world is simplified. McFace also takes care of a lot of memory management automatically.

McFace is an external subroutine that, when called, is automatically linked in by Fortran’s runtime linking system. Thus, McFace need not be explicitly linked to a Fortran program that is under development, but can be “hard” linked after the final compilation. The use of runtime linking allows multiple applications to share one copy of McFace. McFace also has the Fortran Toolbx subroutine linked to it and contains resources. Because of this, the McFace subroutine must reside in the System folder of an HFS system.

In order to show how McFace works, it is best to do an example. Starting with the generic Fortran code for the famous Sieve of Eratosthenes benchmark, we will convert it to a Mac interface using McFace. This is done in two stages in order to show the hierarchy of McFace additions that can be made to generic Fortran code. Unfortunately, even if you have Fortran, you aren’t going to be able to run any of this code unless you also get McFace. Therefore, I intend to show the listings in order to illustrate how simple the code is in structure, while still letting you have a Mac interface on your Fortran programs. The three versions of the Sieve presented here are all functionally the same; they differ only in the user interface. To illustrate how the user interface changes as McFace additions are made, I have included copies of the output screens for each version of the program.

How it Works

Before diving in an a specific example, it is worthwhile to say a few general things about how McFace works. The main feature that makes the concept of McFace possible is the ability of Fortran to do input and output to “internal” files. That is, reads and writes can take place from a variable rather than from an i/o channel such as unit 5. McFace is able to intercept Fortran i/o by reassigning i/o to a specified internal file, in this case a character variable called MAC. McFace then acts as an intermediary that sits between the generic Fortran code and the new user interface possibilities of the Macintosh. McFace also adds a Common block to your applications so that communication between McFace and your code can be maintained through a few variables in Common.

A generic call to McFace has the form: Call McFace( 11 integer arguments). The first argument controls whether any character I/O is done, and, if so, to what window. The contents of the character variable “MAC” are used to shuttle character information between your Fortran code and McFace. The next 10 arguments are organized into 5 pairs. Each pair of numbers selects one of McFace’s high-level functions, or macros, for execution. This structure can be terse and a little cryptic, but it lets you pack a lot of power into a single call to McFace.

For example, the McFace call:

Call McFace(0, 4, 2, 3, 2, 2, -6, 0, 0, 0, 0)

will (1) Specify no I/O because of the initial 0, (2) the 4,2 specifies bringing a text edit window to the front, (3) the 3,2 moves the text insertion bar to the end of the text in the window, (4) finally the 2,-6 causes a return to the user’s code without updating the contents of MAC. The trailing zeroes are present since McFace can have up to 5 macro calls at one time. McFace must be called, like all Fortran subroutines, with a fixed number of arguments, so the last 2 unused macro slots must be zero-filled.

Without repeating the McFace documentation this gives some of the flavor of how McFace is used. The calls to McFace look more obscure than they really are, since about 6-8 different combinations of macros suffice to start out converting generic Fortan to a Mac interface.

Converting the Sieve

Listing 1 shows the “generic” Sieve of Eratosthenes, as supplied with the compiler by Absoft. Running this program brings up the “glass teletype” window that is defined by the Fortran runtime library. The user interface is nonexistent; what the user sees is unchanged from that of a conventional computer. The totally un-Mac-like output is shown in Screen 1.

Listing 2 shows the same code with the modifications needed to attach McFace to the existing code. The modifications are minimal: (1) There is some initialization code (2) I/O is trapped and routed through McFace by using a Fortran “internal file”, as described above. Characters are written to variable MAC rather than to an assigned I/O channel. Support for the standard Apple, File and Edit menus is automatically handled by McFace. The part of the code that is used to add McFace is in boldface, while the old “generic” Sieve code is in plain text. Screen 2 shows the user interface presented by the code of listing 2. For a very small amount of work, the user has essentially the full Mac interface! Much larger Fortan code can be adapted along the general lines shown here. The only disadvantage to this approach, as can be seen from the listing, is that McFace related code gets sprinkled throughout the old ANSI Fortran code.

Listing 3 shows a more complete adaptation of the Sieve for use with McFace. Here, McFace calls are not distributed throughout the existing Fortran code. Instead, the Sieve program has been converted to a subroutine that does no I/O. Communication with the main routine (a McFace shell) is done by passing an argument. This is a clean general solution to porting existing Fortran code to the Mac. The routines that do the real work are kept to simple ANSI Fortran, while McFace serves as the interface between the Fortran code and the Macintosh environment. Again, McFace related code is in boldface. Screen 3 shows the output of this code, which is almost identical to that of listing 2, except for the addition of an “About Sieve” alert. The advantage of using a McFace shell with standard Fortran subroutines for each menu entry is that every application has essentially the same structure, except for the application specific menu entries and resources. Writing new applications becomes quite trivial, since the standard shell is providing all the Mac-specific support features.

Notice that the use of a McFace shell allows the Sieve to be converted to a Menu driven system which incorporates the event orientation that all Mac programs should have. Events are actually trapped by McFace, which in turn reports Menu events back to the Fortran program so that the appropriate part of the user’s code is run. McFace takes care of handling Activate, Update, Scrolling, Auto-scrolling, Text Edit and SystemClick events, so that the work that is done by the application Fortran code is greatly reduced.

The menus, windows and alerts in McFace are all resources. Therefore, further customization of the McFace environment can be achieved by using ResEdit on McFace’s resources. This is nice for adjusting size, position and title of the McFace windows. One can also include new resources to be used for your own alerts, as shown in Listing 3 and Screen 3.

Critique

Like any other programming tool, McFace has both strengths and weaknesses. Here are some of each:

The ease of use of McFace is easily its biggest strength. To make the minimal modifications to the Sieve, which was the first thing I did with McFace, took about 20 minutes from the time that I first opened the documentation.

McFace provides enough built in functionality that writing new applications with McFace really takes less work than using the glass teletype environment supplied with Fortran. Once one application has been written with McFace, the subsequent ones are very easy.

At 134K, McFace is not small. McFace provides a tremendous gain in functionality over plain MacFortran, but it costs a lot of memory. This is a trade-off that was made deliberately, since the use of a single subroutine is what makes using McFace so simple. Under switcher or with a ram cache or ram disc you need to leave at least 256K of memory for any application that uses McFace. Big programs will require more. The space that McFace takes up on disc can be reduced by allowing more than one program to use McFace via Fortran’s link-at-runtime capability.

The macro commands bundle a lot of functionality into a single subroutine call. So much, in fact, that it is sometimes unclear to a naive user what all the effects of the call will be. However, the macro calls are well thought out, so the best way to learn McFace is to just dive in and try running and modifying the sample programs that are included. When I did not understand all the effects of a call to McFace, I got unexpected behavior, but no crashes.

Text output is limited to <32K because of the use of Text Edit Records in the text output windows. Some operations, such as Text Output, are slower with McFace than with a straight Fortran program. Speed is still acceptable, however.

I think the “macro” commands in McFace should not accessed by number. Instead, I think there should be a parameter file which uses the Fortran PARAMETER statement to define symbolic equivalents to the macro numbers. This is exactly what is done in all the Fortran include files for Toolbox access. In early revisions of McFace there have already been inconsistent changes in the macro numbers between versions, which caused me to recode some of my programs. Use of a PARAMETER file would have made converting between revisions completely transparent. Use of parameters would also make McFace calls more self documenting. A PARAMETER file should at least be included as an option for the user.

Except for the size of McFace, and possibly, the use of parameters, these are only minor quibbles. The author, Dan Kampmeier is constantly improving McFace and adding features and functionality. He readily responds to input from users. Most of the deficencies of Fortran for Macintosh programming are eliminated by McFace. [Thank you Dan Kampmeier, for doing Microsoft’s job! Between McFace and the CLR Libraries, maybe Microsoft will learn how to they SHOULD have done their programming products! -Ed]

Summary

McFace is a single external subroutine that acts as a Fortran “extender”. With very little effort generic Fortran programs can be converted to run with a full Mac interface.

The outstanding feature of McFace is its simplicity of use. The major drawback is the 134K of size that it adds to an application. However, this subroutine handles almost all of the Toolbox programming that you will ever need to do from Fortran.

Conversion of existing Fortran code to a Mac interface can almost be reduced to a cookbook translation process, at least for a first iteration. Fine tuning and addition of features is simple and is added by McFace’s ability to work with user designed resources. In short, if you have been frustrated by the difficulty of writing true Mac applications in Fortran, then McFace will probably solve your problems.

McFace is available from Dan Kampmeier or Tensor labs. There is probably an advertisement for it in this issue of MacTutor.

{1}
Listing 1
*
*       Sieve of Eratosthenes
*
        logical*2 flags(8191)
        integer*2 i,j,k,count,iter,prime
        n = long(362)                   ! 60 Hz counter
        do 92 iter = 1,10
           count=0
           i=0
           do 10 i = 1,8191
10            flags(i) = .true.
           do 91 i = 1,8191
              if (.not. flags(i)) go to 91
              prime = i + i + 3
              count = count + 1
              k = i + prime
              if (k .gt. 8191) go to 91
              do 60 j = k, 8191, prime
60               flags(j) = .false.
91          continue
92      continue
        write (9,*) count,” primes in”,(long(362)-n)/60.0,” seconds”
        pause
        end

Screen 1

{2}
Listing 2
*       Sieve of Eratosthenes
*
        logical*2 flags(8191)
        integer*2 i,j,k,count,iter,prime
c
c McFace Initialization Code
    include HFS VOLUME:FORTRAN 2.2:INCLUDE FILES:McVariables
    storage(232) = 10240!at least 10K of memory for stack expansion
    storage(240) = 3        !up to 5 text editors
    MAC = “About Sieve...”   !”About Program”
    call McFace(0,2,-6,0,0,0,0,0,0,0,0)     !initialize variables
c
c bring up editor #1, move insertion bar to end,return without reading:
        call McFace(0,4,2,3,2,2,-6,0,0,0,0)
c
c The code that does the work
        n = long(362)                   ! 60 Hz counter
        do 92 iter = 1,10
           count=0
           i=0
           do 10 i = 1,8191
10            flags(i) = .true.
           do 91 i = 1,8191
              if (.not. flags(i)) go to 91
              prime = i + i + 3
              count = count + 1
              k = i + prime
              if (k .gt. 8191) go to 91
              do 60 j = k, 8191, prime
60               flags(j) = .false.
91          continue
92      continue
        write (MAC,198) count,(long(362)-n)/60.0
198     FORMAT(I6, ‘ primes in ‘, f4.2, ‘ seconds’)
        call McFace(-1,2,-6,0,0,0,0,0,0,0,0)
        pause
        end
c
c Include McFace Variables
        include HFS VOLUME:FORTRAN 2.2:INCLUDE FILES:McMemory

Screen 2

{3}
Listing 3
*   McFace Shell to run
*   Sieve of Eratosthenes example
       integer*2 nprimes
c
c  McFace Initialization Code
 include HFS VOLUME:FORTRAN 2.2:INCLUDE FILES:McVariables
 storage(232) = 20240 !at least 20K of memory for stack              
 
 storage(240) = 3  !up to 2 text editors
   MAC = “About Sieve...”  !”About Program” 
   call McFace(0,2,-6,0,0,0,0,0,0,0,0) !initialize variables
c
c  Add a custom menu for the Sieve
   file = ‘Sieve’
   MAC = ‘Do Sieve;Write Test’
   call McFace(0,-1,0,2,-6,0,0,0,0,0,0)
c
c  bring up editor #1, move insertion bar to end,
c  and return without reading:
   call McFace(0,4,2,3,2,2,-6,0,0,0,0)
c
c  Loop that just waits for menu command
   do
 call McFace(0,0,0,0,0,0,0,0,0,0,0)
   select case (MAC)
 case(‘About’)    !open “About “ alert call McFace(0,10,4,0,0,0,0,0,0,0,0)
       case(‘Do Sieve’)
     n1 = long(362)  ! 60 Hz counter. Start
        call Sieve(nprimes)
     n2 = long(362)   ! 60 Hz counter. Stop
     deltat = (n2-n1)/60.0
        write (MAC,198) nprimes, deltat
198 FORMAT(I6, ‘ primes in ‘, f4.2, ‘ seconds’)
        call McFace(-1,4,2,2,-6,0,0,0,0,0,0)
 case default

    end select
   repeat
   end
c       Sieve of Eratosthenes subroutine
c       Just generic Fortran code, converted to a subroutine

        subroutine Sieve(count)
        logical*2 flags(8191)
        integer*2 i,j,k,count,iter,prime
        n = long(362)                   ! 60 Hz counter
        do 92 iter = 1,10
           count=0
           i=0
           do 10 i = 1,8191
10            flags(i) = .true.
           do 91 i = 1,8191
              if (.not. flags(i)) go to 91
              prime = i + i + 3
              count = count + 1
              k = i + prime
              if (k .gt. 8191) go to 91
              do 60 j = k, 8191, prime
60               flags(j) = .false.
91          continue
92      continue
 dt = (long(362)-n)/60.0
 return
        end
   include HFS VOLUME:FORTRAN 2.2:INCLUDE FILES:McMemory
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Navicat Premium Essentials 12.1.25 - Pro...
Navicat Premium Essentials is a compact version of Navicat which provides basic and necessary features you will need to perform simple administration on a database. It supports the latest features... Read more
Sketch 58 - Design app for UX/UI for iOS...
Sketch is an innovative and fresh look at vector drawing. Its intentionally minimalist design is based upon a drawing space of unlimited size and layers, free of palettes, panels, menus, windows, and... Read more
ClipGrab 3.8.5 - Download videos from Yo...
ClipGrab is a free downloader and converter for YouTube, Vimeo, Facebook and many other online video sites. It converts downloaded videos to MPEG4, MP3 or other formats in just one easy step Version... Read more
Dash 4.6.6 - 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
FotoMagico 5.6.8 - Powerful slideshow cr...
FotoMagico lets you create professional slideshows from your photos and music with just a few, simple mouse clicks. It sports a very clean and intuitive yet powerful user interface. High image... Read more
Civilization VI 1.2.4 - Next iteration o...
Sid Meier’s Civilization VI is the next entry in the popular Civilization franchise. Originally created by legendary game designer Sid Meier, Civilization is a strategy game in which you attempt to... Read more
Skype 8.52.0.138 - Voice-over-internet p...
Skype allows you to talk to friends, family and co-workers across the Internet without the inconvenience of long distance telephone charges. Using peer-to-peer data transmission technology, Skype... Read more
Bookends 13.2.6 - 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
BusyContacts 1.4.0 - Fast, efficient con...
BusyContacts is a contact manager for OS X that makes creating, finding, and managing contacts faster and more efficient. It brings to contact management the same power, flexibility, and sharing... Read more
Chromium 77.0.3865.75 - Fast and stable...
Chromium is an open-source browser project that aims to build a safer, faster, and more stable way for all Internet users to experience the web. Version 77.0.3865.75: A list of changes is available... Read more

Latest Forum Discussions

See All

Yoozoo Games launches Saint Seiya Awaken...
If you’re into your anime, you’ve probably seen or heard of Saint Seiya. Based on a shonen manga by Masami Kurumada, the series was massively popular in the 1980s – especially in its native Japan. Since then, it’s grown into a franchise of all... | Read more »
Five Nights at Freddy's AR: Special...
Five Nights at Freddy's AR: Special Delivery is a terrifying new nightmare from developer Illumix. Last week, FNAF fans were sent into a frenzy by a short teaser for what we now know to be Special Delivery. Those in the comments were quick to... | Read more »
Rush Rally 3's new live events are...
Last week, Rush Rally 3 got updated with live events, and it’s one of the best things to happen to racing games on mobile. Prior to this update, the game already had multiplayer, but live events are more convenient in the sense that it’s somewhat... | Read more »
Why your free-to-play racer sucks
It’s been this way for a while now, but playing Hot Wheels Infinite Loop really highlights a big issue with free-to-play mobile racing games: They suck. It doesn’t matter if you’re trying going for realism, cart racing, or arcade nonsense, they’re... | Read more »
Steam Link Spotlight - The Banner Saga 3
Steam Link Spotlight is a new feature where we take a look at PC games that play exceptionally well using the Steam Link app. Our last entry talked about Terry Cavanaugh’s incredible Dicey Dungeons. Read about how it’s a great mobile experience... | Read more »
PSA: GRIS has some issues
You may or may not have seen that Devolver Digital just released GRIS on the App Store, but we wanted to do a quick public service announcement to say that you might not want to hop on buying it just yet. The puzzle platformer has come to small... | Read more »
Combo Quest (Games)
Combo Quest 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: Combo Quest is an epic, time tap role-playing adventure. In this unique masterpiece, you are a knight on a heroic quest to retrieve... | Read more »
Hero Emblems (Games)
Hero Emblems 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: ** 25% OFF for a limited time to celebrate the release ** ** Note for iPhone 6 user: If it doesn't run fullscreen on your device... | Read more »
Puzzle Blitz (Games)
Puzzle Blitz 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Puzzle Blitz is a frantic puzzle solving race against the clock! Solve as many puzzles as you can, before time runs out! You have... | Read more »
Sky Patrol (Games)
Sky Patrol 1.0.1 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0.1 (iTunes) Description: 'Strategic Twist On The Classic Shooter Genre' - Indie Game Mag... | Read more »

Price Scanner via MacPrices.net

Preorder your Apple Watch Series 5 today at A...
Amazon has Apple Watch Series 5 GPS models available for preorder and on sale today for $15 off Apple’s MSRP. Shipping is free and starts on September 20th: – 40mm Apple Watch Series 5 GPS: $384.99 $... Read more
21″ iMacs on sale for $100 off Apple’s MSRP,...
B&H Photo has new 21″ Apple iMacs on sale for $100 off MSRP with models available starting at $999. These are the same iMacs offered by Apple in their retail and online stores. Overnight shipping... Read more
2018 4 and 6-Core Mac minis on sale today for...
Apple resellers are offering new 2018 4-Core and 6-Core Mac minis for $100-$150 off MSRP for a limited time. B&H Photo has the new 2018 4-Core and 6-Core Mac minis on sale for up to $150 off... Read more
Save $150-$250 on 10.2″ WiFi + Cellular iPads...
Verizon is offering $150-$250 discounts on Apple’s new 10.2″ WiFi + Cellular iPad with service. Buy the iPad itself and save $150. Save $250 on the purchase of an iPad along with an iPhone. The fine... Read more
Apple continues to offer 13″ 2.3GHz Dual-Core...
Apple has Certified Refurbished 2017 13″ 2.3GHz Dual-Core non-Touch Bar MacBook Pros available starting at $1019. An standard Apple one-year warranty is included with each model, outer cases are new... Read more
Apple restocks 2018 MacBook Airs, Certified R...
Apple has restocked Certified Refurbished 2018 13″ MacBook Airs starting at only $849. Each MacBook features a new outer case, comes with a standard Apple one-year warranty, and is shipped free. The... Read more
Sunday Sale! 2019 27″ 5K 6-Core iMacs for $20...
B&H Photo has the new 2019 27″ 5K 6-Core iMacs on stock today and on sale for up to $250 off Apple’s MSRP. Overnight shipping is free to many locations in the US. These are the same iMacs sold by... Read more
Weekend Sale! 2019 13″ MacBook Airs for $200...
Amazon has new 2019 13″ MacBook Airs on sale for $200 off Apple’s MSRP, with prices starting at $899, each including free shipping. Be sure to select Amazon as the seller during checkout, rather than... Read more
2019 15″ MacBook Pros now on sale for $350-$4...
B&H Photo has Apple’s 2019 15″ 6-Core and 8-Core MacBook Pros on sale today for $350-$400 off MSRP, starting at $2049, with free overnight shipping available to many addresses in the US: – 2019... Read more
Buy one Apple Watch Series 5 at Verizon, get...
Buy one Apple Watch Series 5 at Verizon, and get a second Watch for 50% off. Plus save $10 on your first month of service. The fine print: “Buy Apple Watch, get another up to 50% off on us. Plus $10... Read more

Jobs Board

*Apple* Mobility Pro-Store 149 - Best Buy (U...
**731985BR** **Job Title:** Apple Mobility Pro-Store 149 **Job Category:** Store Associates **Location Number:** 000149-Towson-Store **Job Description:** At Best Read more
Student Employment (Blue *Apple* Cafe) Spri...
Student Employment (Blue Apple Cafe) Spring 2019 Penn State University Campus/Location: Penn State Brandywine Campus City: Media, PA Date Announced: 12/20/2018 Date Read more
Windows/ *Apple* Technical Support Engineer...
Windows/ Apple Technical Support Engineer McLean , VA , US Apply + Be you + Be Booz Allen + Be empowered + Learn More Job Description Location: McLean, VA, US Job Read more
*Apple* Mobile Master - Best Buy (United Sta...
**725617BR** **Job Title:** Apple Mobile Master **Job Category:** Store Associates **Location Number:** 001095-Chesterfield-Store **Job Description:** **What does a Read more
Geek Squad *Apple* Master Consultation Agen...
**732415BR** **Job Title:** Geek Squad Apple Master Consultation Agent **Job Category:** Services/Installation/Repair **Location Number:** 000425-Hickory-Store **Job Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.