! 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
