! Copyright (c) 1987 Edinburgh Portable Compilers Ltd. All Rights Reserved.
!* 17/04/96 - Added AllowR16 for Fortran90 ftnht11.2
!* 19/11/92 - Add platform constants for MIPS and DRS486 ftnht11.1
!* 19/11/92 - Add Language Variant which takes values of ftnht11
!* Fortran77 or Fortran90
!* 28/08/92 - Add rs6000
!* ftnht9
!* 07/01/92 - common version
!* - add Object Format ISBSDOMRON
!* - add OCScompliant
!* 19/10/91 - common version ftnht8
!* 07/10/91 - Add Object format for ftnend etc ftnht7.11
!* 20/08/91 - Add M88k sched ftnht7.12
!* 12/07/91 - Add M88110 as a variant for Usechipfns ftnht7.11
!* 29/11/90 - Add sunf77 for full sun77 compatibility ftnht7.10
!* 09/09/90 - remove release number and date to vers.inc ftnht7.9
!* 09/07/90 - updated release number in message ftnht7.8
!* - changed Scaleopt1 to 0
!* modified 05/04/90 - add constinteger for Aligndata ftnht7.6
!* modified 13/03/90 - add constinteger for Locust ftnht7.5
!* modified 18/01/90 - define Allowparallel ftnht7.4
!* - define Directcomplex
!* - define Fregopt
!* modified 12/01/90 - define ALIGN8 for REAL*8 alignment reqmnts ftnht7.3
!* modified 17/11/89 - define Emachine ftnht7.2
!* modified 30/09/89 - define sparc,m88000,i860,paramdirection ftnht7.1
!* modified 05/09/89 - Add constinteger for modula
!* - add constinteger for compiler
!* - put reldate in ftnht instead of mfcompile
!* modified 01/05/89 - define TrueValue
!* modified 25/03/89 - define Allowintprc to govern the legality of
!* internal procedures
!* modified 06/01/89 - Remove flag NP2
!* modified 12/12/88 - Set NP2=1 Goulddivnewbr=1 for NP2
!* modified 10/12/88 - NP2 defined as a Boolean
!* modified 25/11/88 - define Goulddivnewbr
!* - define Scaleopt1,Allowcase,IEEE
!* modified 06/05/88 - define NP2
!* modified 21/03/88 - define Allowgldfns
!* modified 04/03/88 - more definitions added
!* modified 26/01/88 - define Numoptregs
!* modified 25/01/88 - define Bytesreversed
!* - define BSSavailable
!* - define Usechipfns
!* - define Allowvaxnames
!* - define Allow99cont
!* - define Realsubscripts
!* - define AllowI8decl
!* modified 13/09/87 - define Evalrealslong
!* - define AllowI8
!* modified 07/09/87 - define Array temps on stack
!*
constinteger ICL2900 = 1
constinteger IBM = 4
constinteger SPARC =16
constinteger M88000 =17
constinteger Locust =19
constinteger M88110 =20
constinteger M88100 =21
constinteger M88100forM88110 =22
constinteger RS6000 =23
constinteger MIPS =24
constinteger DRS486 =25
!*
constinteger POSITIVE = 1
constinteger NEGATIVE = -1
!*
constinteger HOST = DRS486
constinteger TARGET = DRS486
constinteger Env = DRS486
constinteger STACK DIRECTION = NEGATIVE
constinteger PARAM DIRECTION = POSITIVE
!*
constinteger ALIGN8 = (1 << SPARC) ! (1 << M88000)
!*
constinteger Goulddivnewbr = 0 { 0 not available 1 available }
!*
constinteger Allowvector = 0 { 0 No 1 Yes }
constinteger Allowparallel = 0 { 0 No 1 Yes }
constinteger Emachine = 4
constinteger Directcomplex = 1 { 0 No (indirect operands) 1 Yes (direct) }
constinteger OCScompliant = 0 { 0 No 1 Yes }
!*
constinteger Array temps on stack = 0 { 0 No 1 Yes }
constinteger AllowI8 = 0 { 0 No 1 Yes }
constinteger AllowR16= 0 { 0 No 1 Yes }
constinteger Evalrealslong = 0 { 0 No 1 Yes }
constinteger Bytesreversed = 0 { 0 No 1 Yes }
constinteger BSSavailable = 1 { 0 No 1 Yes }
constinteger Allowvaxnames = 1 { 0 No 1 Yes }
constinteger Allow99cont = 1 { 0 No 1 Yes }
constinteger Realsubscripts= 1 { 0 No 1 Yes }
constinteger AllowI8decl = 0 { 0 No 1 Yes }
constinteger AllowI1decl = 0 { 0 No 1 Yes }
constinteger Allowfind = 1 { 0 No 1 Yes definefile,find}
constinteger VAXparam = 1 { 0 No 1 Yes }
constinteger Bytesigned = 1 { 0 No 1 Yes }
constinteger FullVAX = 1 { 0 No 1 Yes }
constinteger Allowgldfns = 0 { 0 No 1 Yes }
constinteger Allowcase = 0
constinteger Numoptregs = 1
constinteger Allowintprc = 0 {0 No 1 Yes }
constinteger IEEE = 1
constinteger Scaleopt1 = 1
constinteger Aligndata = 1 { 1 add filler bytes in common}
constinteger SunF77 = 1 {1 = full sun f77 compatibility}
!*
constinteger TrueValue = 1 {usually 1, but x'ff' on PN and MPX}
!*
!*
constinteger M68881 = 1
constinteger Intel287 = 2
constinteger Intel387 = 3
constinteger Weitek = 4
constinteger Usechipfns = SPARC {0 if none available}
!*
constinteger M88ksched = M88000
constinteger Fregopt = 1 {0 not available 1 available}
!*
constinteger full387 = 0 {applicable only on Intel}
constinteger IMP = 1
constinteger fortran = 2
constinteger ccomp = 11
constinteger pascal = 14
constinteger modula = 15
constinteger Compiler = Fortran
constinteger Fortran77 = 0
constinteger Fortran90 = 1
constinteger Language Variant = Fortran90
constinteger ISCOFF = 0
constinteger ISELF = 1
constinteger ISBSD = 2
constinteger ISBSDOMRON = 3
constinteger Object Format = ISBSD