/* EPC Imp to C Translation Release 4 Version Apr 95 */


#include "imptoc.h"

/* Copyright (c) 1987 Edinburgh Portable Compilers Ltd. All Rights Reserved.  */
/**          01/03/92 - set scaleopt1=1 for RS6000                  ftnht7.14*/
/**          22/02/92 - Add ISBSDOMRON                              ftnht7.13*/
/**          14/02/92 - Add RS6000 target for IBM RS6000            ftnht7.12*/
/**          07/10/90 - Add Object Format for ftnend etc            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                          */
/***/
#define ICL2900 1
#define PERQPNX 2
#define ACCENT 3
#define IBM 4
#define VAX 5
#define M68000 6
#define Sun3 6
#define INTEL 7
#define LATTICE 8
#define VNS 9
#define GOULD 10
#define WWC 11
#define WCW 11
#define DRS 11
#define AMDAHL 14
#define Sequent 15
#define SPARC 16
#define M88000 17
#define M88k 17
#define i860 18
#define Locust 19
#define M88110 20
#define M88100 21
#define M88100forM88110 22
#define RS6000 23
#define DRS486 24
#define PTX 25
#define MIPS 26
#define PENTIUM 27
/***/
#define POSITIVE 1
#define NEGATIVE (-1)
/***/
#define HOST DRS
#define TARGET DRS
#define Env DRS486
#define STACKDIRECTION NEGATIVE
#define PARAMDIRECTION NEGATIVE
/***/
#define ALIGN8 (((((1<<GOULD)|(1<<SPARC))|(1<<M88000))|(1<<RS6000)))
/***/
#define Concept 0	/**/
#define NP1 1	/*only applicable if host/target=Gould*/
#define Cpu Concept	/**/
#define Goulddivnewbr 0	/* 0 not available  1 available */
/***/
#define Allowvector 0	/* 0  No   1  Yes */
#define Allowparallel 0	/* 0  No   1  Yes */
#define Emachine 4
#define Directcomplex 0	/* 0 No (indirect operands)  1 Yes (direct)  */
/***/
#define Arraytempsonstack 0	/* 0  No   1  Yes */
#define AllowI8 0	/* 0  No   1  Yes */
#define Evalrealslong 0	/* 0  No   1  Yes */
#define Bytesreversed 1	/* 0  No   1  Yes */
#define BSSavailable 1	/* 0  No   1  Yes */
#define Allowvaxnames 1	/* 0  No   1  Yes */
#define Allow99cont 1	/* 0  No   1  Yes */
#define Realsubscripts 1	/* 0  No   1  Yes */
#define AllowI8decl 0	/* 0  No   1  Yes */
#define AllowI1decl 0	/* 0  No   1  Yes */
#define Allowfind 1	/* 0  No   1  Yes   definefile,find*/
#define VAXparam 1	/* 0  No   1  Yes */
#define Bytesigned 1	/* 0  No   1  Yes */
#define FullVAX 1	/* 0  No   1  Yes */
#define Allowgldfns 0	/* 0  No   1  Yes */
#define Allowcase 0
#define Numoptregs 1
#define Allowintprc 0	/*0   No   1  Yes */
#define IEEE 1
#define Aligndata 0	/* 1 add filler bytes in common*/
#define SunF77 1	/*1 = full sun f77 compatibility*/
#define OCScompliant 0	/* 0 No  1 Yes */

#if((Target==RS6000)||(Target==Sparc)) 
#define Scaleopt1 1

#else
#define Scaleopt1 0

#endif;
/***/
#define TrueValue 1	/*usually 1, but x'ff' on PN and MPX*/
/***/
#define UTX 0	/**/
#define MPX 1	/*only applicable if host/target=Gould*/
#define Opsys UTX	/**/
/***/
#define M68881 1
#define Intel287 2
#define Intel387 3
#define Weitek 4
#define Usechipfns Intel387	/*0 if none available*/
/***/
#define Fregopt 0	/*0 not available  1 available*/
/***/
#define full387 1	/*applicable only on Intel*/
#define IMP 1
#define fortran 2
#define ccomp 11
#define pascal 14
#define modula 15
 
#define Compiler (Imp)
 
#define ISCOFF 0
#define ISELF 1
#define ISBSD 2
#define ISBSDOMRON 3
#define ObjectFormat ISELF

/* end of automatic translation */