Fortran Libraries compatible with 32-bit addressing architecture (Iyonix)

Although the Acornsoft Fortran compiler does not work on Iyonix, the object code it makes will run. The problem is that the libraries, in particular the Fortran system library, are not compatible.
We have rewritten the Fortran system library, removing three bugs, and no doubt introducing many more.
Please try the new library which is included in Fortran Friends library (224K) and let us know of new problems or omissions.

The user libraries (Utils, Graphics etc.) have also been translated to 32-bit compatible code.

All these libraries will still work on the original 26-bit addressing computers.

Enhancements/differences from Acornsoft Fortran

• Bug 4: OPEN file names are no longer truncated to 30 characters, 240 character names are allowed (the limit allowed by RISCOS)
• Bug 5 & 5a: STATUS='SCRATCH' files can be rewound and re-read
• Bug 8: Character comparison no longer ignores last character in first string when the first string is longer than the second.

• Random numbers [RND01() and SETRND(I)]
• OS_Byte [OSBYTE, OSBYTE1 and OSBYTE2]
• OS_Word [OSWORD]
• OS_CLI [OSCLI, and OSGETERROR]

• Unit numbers from 1 to 99 are allowed but:
  unit 5 is always the keybord input
  unit 6 is always the VDU output
• Setting the file names with the command line has not been implemented. (It could be done if really needed.)
  See also the treatment of 'Default file names' below.
• Extended format descriptors
  • Zw.d    hex translation, w is the width of the field, d is the number of digits printed, thus Z10.8 will always print eight characters right-adjusted preceeded by two blanks. w and d do not have to be even
  • Ow.d    octal
  • Bw.d    binary
  • Q      sends the size of the formatted buffer remaining (bytes) to the next integer in the output list (ignored on input)
  • $      don’t do “newline” after writing to the screen
• Format controlled input
  Numeric/logical input terminates on finding ",". Warnings:
  • don't use tab descriptors
  • does not work for A descriptor
• List-directed CHARACTER input
  Should be 'abcde...', but can be "abcde...", or even abcde..., i.e. without any quotes but in this form the string can not contain a space, a comma, a '/' or have a count thus:
  3*'empty' or 3*"empty" will transfer three strings 'empty', whereas
  3*empty will transfer one string '3*empty'
  These forms allow normal comma-separated-variable records to be read without complicated decoding though you must know a priori how many fields there are in a record or terminate all records with "/".
• List-directed complex input
  The real and imaginary parts must still be given within parentheses but either or both may be omitted. Thus "(1.0)" or "(1.0,)" will enter a real part of 1.0, leaving the imaginary part unchanged; "(,1.0)" will enter an imaginary part of 1.0 while leaving the real part unchanged.
• Formatted file record length
  External files, whether sequential or direct access, have a maximum record length of 512 bytes. The length of records of internal files is limited only by the size of the CHARACTER variable.
  Unformatted records, whether sequential or direct access, can be any size up to 2 Gbytes.
• Indexed Input
  If you want to read records in a sequential file in a non-sequential order you can set up an index to the records and then use the index to access them immediately. This works for both formatted and unformatted records
  • First you must set up the INTEGER index to the file. Do this by reading the file sequentially and before each READ statement:
    

         CALL FLGETP(NUNIT,INDX)

    
    where NUNIT is the Fortran unit number and INDX is the returned address of the record about to be read. Store the index of any records you may want to read non-sequentially later.
  • To read a record with index INDX
    

         CALL FLSETP(NUNIT,INDX)

    
    to position the file at byte INDX; then read the record in the usual way.
• End-of-file
  The ENDFILE statement writes a special record in the physical file which is interpreted on reading and can be detected by IOSTAT=-2 (rather than IOSTAT=-1 for the physical end of the file). You can write and read beyond this type of end-of-file marker; it counts as a record if you then BACKSPACE over it.
  

       CALL FLSKIP(NUNIT,IEOF)

  
  skips the rest of the file. It returns IEOF:
  • > 0 if the file is not open or is illegal in any way
  • =-1 for physical end of file detected
  • =-2 for logical end-of-file as described above) and positions the file for reading after the marker.
• OPEN qualifiers
  • FORM='PRINTER' to interpret Fortran carriage control characters
    (implies FORM='FORMATTED')
  • ACCESS='APPEND' positions the file at the end ready for more writing
    (implies ACCESS='SEQUENTIAL')
• Default file names
  If the name of an external file is not defined with a "FILE=filnam" in an OPEN statenemt Fortran will invent the name "FTnnF001" (nn = unit number). This may be changed by assigning an alias through the operating system, e.g. the system command: "Set FT10F001 My_file" will force I/O on stream 10 to the file "My_File" provided that stream 10 has not been OPENed with an explicit name. "UnSet FT10F001" returns to the normal convention.
• INQUIRE file names
  INQUIRE works with full file names: beginning with the filing system and ending with the leaf name. This is what it will give for
  

       INQUIRE(UNIT=nn,NAME=TEXT)

  
  even if the OPEN gave something much simpler.
  When the file is defined with a name rather than a unit it will try to make up a full file name by doing the following:
  • it will first expand any logical name enclosed in chevrons: "<...>"
  • if the name starts with "@" it will change "@" for the Currently Selected Directory name (CSD)
  • if the name begins with "%" it will change "%" for the current library
  • if the name contains "$" it will try to use the name as it is
  • if none of these is satisfied it will add the CSD to the beginning.
• INQUIRE replies
  When INQUIRE can not determine a variable it returns the following:

  ACCESS	'UNKNOWN'
  BLANK	'UNKNOWN'
  DIRECT	'UNKNOWN'
  EXIST	.FALSE.
  FORM	'UNKNOWN'
  FORMATTED	'UNKNOWN'
  NAME	blank fill
  NAMED	.FALSE.
  NEXTREC	0 (because the file is not connected or is not direct access)
  NUMBER	0 (because the file is not connected)
  OPENED	.FALSE.
  RECL	0 (because the file is not connected or is not direct access)
  SEQUENTIAL	'UNKNOWN'
  UNFORMATTED	'UNKNOWN'

• File length
  The current length of an open file can be found with:
  

        CALL FFSIZE(NUNIT,LBLK,NBLK,IERR)

  
  which returns the number of 'blocks' in the file attached to unit NUNIT in NBLK; the block length in 4-byte words (LBLK) must be supplied.
  IERR will be returned =0 if there is no error.
• Error reporting If the system reports an error it gives a trace-back through the subprogram chain. This is limited by default to a depth of 6 routines. To change the maximum length of this trace-back:
  

       CALL TRACEDEPTH(NEWMAX)

• Input/Output error numbers as returned by IOSTAT
  1. Illegal ACCESS code
  2. Illegal BLANK code
  3. Illegal FORM code
  4. Illegal STATUS code
  5. Illegal unit number
  6. Can not open OLD file
  7. Can not open NEW file (e.g. it is a directory)
  8. Can not open an existing file as NEW (or SCRATCH)
  9. Can not open an interactive unit
  10. OLD file is not direct access
  11. Illegal RECL for direct access file
  12. Unknown ACCESS code
  13. Illegal unit number
  14. Direct access REWIND
  15. File not open for REWIND
  16. Direct access ENDFILE
  17. File not open for ENDFILE
  18. Direct access BACKSPACE
  19. File not open for BACKSPACE
  20. Direct access record # is illegal
  21. Can not write to unformatted file
  22. Can not open file
  23. Illegal unit number
  24. ACCESS conflict
  25. Formatted I/O on unformatted file
  26. Unformatted I/O on formatted file
  27. Unformatted read header is wrong
  28. Can not read file
  29. Unformatted internal I/O not allowed
  30. Recursive I/O
  31. List-directed I/O to direct access file
  32. Buffer overflow on formatted read from file
  33. Buffer overflow on keyboard read.
  34. Escape pressed during keyboard input
  35. No more record reading internal file
  36. Can not write to formatted file
  37. No more records writing internal file
  38. Formatted output buffer overflow
  39. Data word length incompatible with format descriptor
  40. Format has no data-transfer descriptor
  41. Formatted input buffer overflow
  42. Hollerith data illegal in input format
  43. Formatted input integer overflow
  44. Tab outside formatted input record
  45. Negative tab position in formatted output
  46. Unformatted direct-access output record overflow
  47. Unformatted input record overflow
  48. Unexpected ASCII character in format
  49. non-positive tab
  50. non-positive X-skip
  51. non-positive Hollerith field
  52. negative repeat count for data descriptor
  53. negative repeat count for parenthesis
  54. B not followed by N or Z
  55. No count after tab descriptor
  56. No count (e) in Ew.dEe or Gw.dEe
  57. d part missing from F,E,D or G descriptor
  58. w missing from numeric or logical descriptor
  59. Unexpected right parenthesis
  60. Too deep parenthesis structure (maximum is 10)
  61. Illegal character in binary input
  62. Illegal character in logical input
  63. Illegal character in octal input
  64. Illegal character in hexadecimal input
  65. Illegal character in integer input
  66. Illegal character in floating input
  67. Illegal character in complex input
  101. Illegal file name in INQUIRE (Error number 101)