* This is the header file for "FANTACROSS" program.
* Keep a copy along with the 'fantaCross.f' source file.


      IMPLICIT DOUBLE PRECISION (a-h,o-z)
      parameter (EPS=1.e-6)
      parameter (MAXOS=1000, MAXFE=1, MAXSTR=40, MAXDEF=5000,
     * MPAR=5, MP=MAXFE*MPAR+1, NP=MAXFE*MPAR, MH=MAXOS*MAXSTR)
      character fileout*20
      character nameatom*4,namat*4,namres*3,nam_at*4,nam_res*3,
     *          filename1*30,nam_fe*4,line*80,
     *	       filename2*30,filename3*30,
     *          formato*79,formato1*79
      dimension xp(MAXSTR,MAXDEF),yp(MAXSTR,MAXDEF),zp(MAXSTR,MAXDEF)
      dimension xn(MAXSTR,MAXDEF),yn(MAXSTR,MAXDEF),zn(MAXSTR,MAXDEF)
      common num_at(MAXSTR,MAXDEF),nam_at(MAXSTR,MAXDEF),
     *          nam_res(MAXSTR,MAXDEF),num_res(MAXSTR,MAXDEF),
     *          namat(MAXDEF),namres(MAXDEF)
      common numres(MH)
      common /simplex/ 
     *        cx(MAXSTR,MAXOS),cy(MAXSTR,MAXOS),cz(MAXSTR,MAXOS),
     *        fx(MAXSTR,MAXFE),fy(MAXSTR,MAXFE),fz(MAXSTR,MAXFE),
     *        rccptx(MAXFE,3), rccpty(MAXFE,3),rccptz(MAXFE,3),
     *        center(MAXFE,3),ssx(MAXFE,3),ssy(MAXFE,3),ssz(MAXFE,3),
     *        tsx(MAXFE,3),tsy(MAXFE,3),tsz(MAXFE,3),
     *        TOLPROT(MH),WPROT(MH),shift(MH),
     *        obs(MH),mlprot(MH),
     *        phi(MAXFE),teta(MAXFE),omega(MAXFE),
     *        a1dip(MAXFE),a2dip(MAXFE),
     *        optphi(MAXFE),optteta(MAXFE),optomega(MAXFE),
     *        opta1(MAXFE),opta2(MAXFE),
     *        asxx(MAXFE,3), asyy(MAXFE,3), aszz(MAXFE,3),
     *        axsys(MAXFE,3), aysys(MAXFE,3), azsys(MAXFE,3),
     *        toldip,RESID,OLDRESID,ioldvio,IVIOLATION,intsys,
     *        nhp,nfe,nstr,numS,numD,numT,nat,nsystem,ngrid,nff,
     *        line,filename1,filename2,filename3,
     *        formato,formato1