NAGware Fortran 90 compiler

• Introduction
• Compilation and execution with the NAG compiler
• Peculiarities in the NAG compiler
• System parameters

Introduction:

    
        The Numerical Algorithms Group Ltd
        Wilkinson House
        Jordan Hill Road
        Oxford OX2 8DR
        infodesk@nag.co.uk      Tel: +44 1865 511245
                                Fax: +44 1865 310139

Link to NAGWare Fortran 90 Compilers.

Compilation and execution with the NAG compiler:

You run Fortran 90 in about the same way as you run Fortran 77. The usual commands are, if the source code code1.f90 is in the new free form and source code code2.f is in the old fixed form.

           % f90 code1.f90 code2.f

          % f90 -o program program.f90

          FTN90 PROGRAM.F90 /LGO

          FTN90 PART1.F90
          FTN90 PART2.FOR
         
          LINK77
          $LOAD PART1
          $LOAD PART2
          $FILE WHOLE.EXE

          % man f90

   -c               compilation only (no linking)
   -C               index control
   -fixed           the old form of the source code
   -free            the new form of the source code
   -f77             calling convention consistent with 
		    the UNIX f77
   -g               generates information for debugging
   -Ipathname       Fortran 90 looks automatically for 
		    modules in the present directory, 
		    in directories in the I-list and in 
		    /usr/local/lib/f90 
   -l               linking of a library
   -Ldir            Add dir to the list of directories 
		    for library routines
   -o               naming the output file
   -pg              generating execution profile
   -S               produces source code in the language C
   -v               give comment about how the compilation 
		    is proceeding
   -version         gives the compiler's version number
   -w               suppresses warnings

Peculiarities in the NAG compiler

• The compiler signals all (?) variables that have been specified but not used. The compiler therefore performs some data flow analysis.
• The compiler interrupts the compilation if it finds that a variable that has not been assigned a value is being used. The compiler thus performs the some data flow analysis.
• The compiler permits Swedish 8-bit characters in character strings (within apostrophes ' or citation marks ") and in comments.
• The compiler doesn't have support for precision that is larger than the normal double precision, which means that SELECTED_REAL_KIND(15) is the highest possible.
• Compiler error messages sometimes state only that an error occurs on a certain line.
  However, it seems that the reported line number is the correct line number.
• Errors in FORMAT are usually not found at compilation, but only at execution.
• The maximum unit number UNIT for input/output is 63 instead of the normal 99. This restriction is removed in version 2.1.
• The last line should be an END with a carriage return (CR), if not you can get a compilation error! (This has been fixed in release 2.0, but it is a rather common problem in UNIX).
• With some editors the Tab is stored as a special character, with some it is automatically replaced with a number of blanks. Prior to release 2.0 the NAG system did not accept the Tab as a special character, but it is now an extension.
• Using MS-DOS it is necessary to first start an auxiliary system with the command DBOS. If you wish to use Windows you have to first close DBOS with the command KILL_DBOS . If you first start Windows it is possible to go to the DOS-prompter and start DBOS there.
  Also at execution of an already compiled program the DBOS system must be active. It includes among other things a floating point emulator (used if you do not have floating point in the hardware).
• The NAG FTN90 system does not work with OS/2 as the operating system, not even using a DOS window. DBOS does not run in a simulated environment.
• The intrinsic function SPREAD can generate too many temporary arrays, which are not deallocated soon enough (causes memory shortage).
• The compiler warns for the use of obsolescent concepts, see Appendix 4, and also for some extensions to Fortran 90.
• The order of the compilation switches is important. When compiling a program program.f90 and using modules in the directory /example/modules and the library libnag.a in the directory /examples/libraries we have to use the following command

  f90 -I/example/modules program.f90 -lnag -L/examples/libraries
  

System parameters

Please note that NAG has somewhat changed the system parameters in Version 2.1.

  LOGICAL            Default             byte            word
Before release 2.1
     KIND number =         2                1               2
From release 2.1
     KIND number =         3                1               3

  INTEGER            Default           int8          int16   int32
     KIND number =         3              1              2       3
          digits =        31              7             15      31
           radix =         2              2              2       2
           range =         9              2              4       9
     huge =       2147483647            127          32767  2147483647
     bit_size =           32              8             16      32

     REAL            Default           single        double
       KIND number =       1                1             2
            digits =      24               24            53
      maxexponent =      128              128          1024
      minexponent =     -125             -125         -1021
        precision =        6                6            15
            radix =        2                2             2
            range =       37               37           307
          epsilon =  0.11920929e-06  0.11920929e-06   0.2224460e-15
             tiny =  0.11754944E-37  0.11754944E-37   0.22250739-307
             huge =  0.34028235E+39  0.34028235E+39   0.17976931+309

       COMPLEX        Default          single         double
          KIND number =     1               1              2
            precision =     6               6             15
                range =    37              37            307