1 PARAMETER (NBPGM=200, NGMAX=1000) 2 PARAMETER (NBECH=20, NBANG=16, NTABMAX=38) 3 COMMON / OPTIONS / IANG(NBANG),ISDVU(NGMAX) 4 & ,IANGLE,IFC,IFC0,ICARRE,ISHRINK,IDEMI,IFRONT 5 & ,I2D,ILEG,NBCOL,ISO,IFISO,IFVISO,IFVIT,IEPISO 6 & ,ICENTRISO,ICT,IPOST,IPOSTCOL,IEXAG,ISYM,ISYMR 7 & ,ICTFAC,ICTFAC00,ICTFON,ICTLEG,ICTFLE 8 & ,ISENS,IFAC,IFAC2,ICOURB,IAXES,IAXESDEF,IBORD 9 & ,INUMER,IGROUP,IPREFC,IORIENT,IMAILL,IVIT 10 & ,IPBM,IPGM 11 & ,ITYPFL,ISLEG,IDIRL,IDIRL0,IPERSP,IPERSP0,INOPO 12 & ,IECBOI,IBOITE,IFLAG3,MATMIN,MATMAX,IPS2D,ICENTR 13 & ,IELIMI,IVOL,ICSUR,ITABLE,ITABLE0,ISHPRO,IFBLO 14 & ,ICADPS,ISAUVEGRAPH,IDEFPS,IINFO,ITITAV,IDSEUL 15 & ,NPSUR,NSSUR,IEPSEG,ICPTS,ITPTS,ICSEG,IDX0,IDY0 16 & ,IDX,IDY,IVALMAR,IWILD,IOPREF,ILOGX,ILOGY,ILOGZ 17 & ,IDEFOR,ICALSU,ICOUPSU,ISOCOUP,IELISO,IFOUTLINE 18 & ,NODEPL,IFONT0,IFONT1,IFONT2,IFONT3,IFONT4 19 & ,IFONT5,IFONT7,IFONT8,IOPMAR,IARCH,ITERMC 20 & ,IROUGE0,IVERT0,IBLEU0,IROUGE1,IVERT1,IBLEU1 21 & ,ITABLE1,ITABLE2,IMULSAUV,IOPTFORME,IDEBRAP 22 & ,NECHX,NECHY,NECHZ,ITEMPS,IEPBOR,IEPBOR0,IEPBOR2 23 & ,IFREEZE,ISOBID,ISOFRO,IVFIXE,IPCOUP 24 & ,IPROGRE,ICOLAR,ICOLAX,ICOLAXB,ISHIFTX,ISHIFTY 25 & ,IBATCH,ITOUCHEX,ITOUCHNB,ITOUCHTAB,ILANG,ILANG0 26 & ,ISTDOUT,IBORDTHERMO,ICOULTHERMO,ICHARG,ICOURXYZ 27 & ,NBOGO,NOUTLINEM,IAUTORELOAD,ILEGMAN,ILEGAUTO 28 & ,IECHFX,IECHFY,IECHFZ,IFIX,IFIXFIX,ISAUVEMESH 29 & ,IDEPOUILLE 30 COMMON / ROPT / VAL(256),VALFRO(256),YCOUL(256) 31 & ,PROPX(NBECH),PROPY(NBECH),PROPZ(NBECH) 32 & ,XBOITE(8),YBOITE(8),XPUP(3),XCADRE(4),YCADRE(4) 33 & ,VMIN,VMAX,VMINISO,VMAXISO 34 & ,VMIN0,VMAX0,VITMIN,VITMAX 35 & ,BX,BY,BZ,BX0,BY0,BZ0,BX00,BY00,BZ00,BNOR 36 & ,XMINS,XMAXS,YMINS,YMAXS 37 & ,XMINR,XMAXR,YMINR,YMAXR,BXSYM,BYSYM 38 & ,BMIDX,BMIDY,BMIDZ,HXA4,HYA4,HYA4A,HYA4B 39 & ,FACEXA,FACEXAX,FACEXAY,FACEXAZ 40 & ,EXAX0,EXAY0,EXAZ0,EXAX00,EXAY00,EXAZ00 41 & ,FACDIO,FACVIT,FACVIT0,FACLEG,DIST,DIST0 42 & ,XMIL,YMIL,XSHIFT,YSHIFT,DIAMIN,TOL 43 & ,DIMMAXX,DIMMAXY,DIMMAXZ,DIMMAX 44 & ,DIMMAXXREF,DIMMAXYREF,DIMMAXZREF,DIMMAXREF 45 & ,DEPXM,DEPYM,DEPZM,DEPMAX,ANGPS,VSHPRO,FACPTS 46 & ,XMIREE,XMAREE,YMIREE,YMAREE,EPSISO 47 & ,XXMIN,XXMAX,YYMIN,YYMAX,XCUR,YCUR,XLARG 48 & ,XCUREF,YCUREF,XLAREF 49 & ,XDMIN,XDMIN0,XHELP,XDMAX,XDMA2 50 & ,YDMIN,YDMAX,YDMI2,YDMI20,CMINI,CMAXI,USDC 51 & ,XPTHER,YPTHER,DXTHER,DYTHER,XINFO,YINFO,BSOMB 52 & ,XBIDONCOM,YBIDONCOM,XCOUL,XLIMTAB,RBOUL,PIXEL 53 & ,XFMIN,XFMAX,YFMIN,YFMAX,ZMIN,ZMAX 54 & ,XBMIN,XBMAX,YBMIN,YBMAX,ZBMIN,ZBMAX 55 & ,XINIT_ECH(2,3) 56 & ,VMINXYZ(3),VMAXXYZ(3),VCOUPXYZ(3) 57 & ,XORIG,YORIG,ZORIG 58 LOGICAL*4 SIG,VITCOUL,CLIGNE 59 COMMON / LOGOPT / SIG,VITCOUL,CLIGNE 60 REAL*8 XECH(NBECH),YECH(NBECH),ZECH(NBECH) 61 & ,BIG,USBIG 62 COMMON / ECHECH / XECH,YECH,ZECH,BIG,USBIG,BIGS 63 CHARACTER*512 TITRE 64 CHARACTER*132 LEG,SAUVPS 65 CHARACTER*128 NOM_FICH,NOMF0,NOM_ISO,NOM_VIT,NOM_C1,NOM_C2 66 & ,NOM_COUR 67 CHARACTER*80 PROG,PROGEFF,TITAV,CHEMDOC,NOMPS 68 CHARACTER*20 ELEMENTS 69 CHARACTER*14 HELPPS 70 CHARACTER*6 CCOU 71 CHARACTER*2 CCOR 72 COMMON / CARA / LEG,SAUVPS,NOM_FICH,NOMF0,NOM_ISO 73 & ,NOM_VIT,NOM_C1,NOM_C2,NOM_COUR 74 & ,PROG,PROGEFF,TITAV 75 & ,CHEMDOC,NOMPS,ELEMENTS,HELPPS 76 COMMON / CARALON / LONLEG,LSPS,LONG,LONG0,LONG2,LONISO 77 & ,LONVIT,LONC1,LONC2,LONCOUR 78 & ,LPROG,LPROGEFF,LONTIT 79 & ,LENCHEM,LONPS,LELEM 80 COMMON / DATEFIC / IDFICH,IDDEPL,IDISO,IDVIT 81 COMMON / VALDES / VALG(NBPGM),XXXG(NBPGM),YYYG(NBPGM),NBPG 82 COMMON /CARAPOUB1 / TITRE 83 COMMON /CARAPOUB3 / CCOU 84 COMMON /CARAPOUB4 / CCOR 85C 86 CHARACTER DATE*6,MOI*8,MEMO*20 87 COMMON /DIVERSINFO/ MOI,MEMO,DATE 88 INTEGER ICC(0:16),ICA(0:14),ICF(0:14),ICREF(0:15),ICBLO(7,2) 89 COMMON /DIVERSCOUL/ ICC,ICA,ICF,ICREF,ICBLO 90