     &            LOUT=6)
C**                                                                 ***
C**-----------------------------------------------------------------***
C**                                                                 ***
C**    LBIG is selected so that the job needs %STORAGE Mbytes.      ***
C**                                                                 ***
      PARAMETER ( LBIG= (%PROCESS_STORAGE_*1 000 000)/IREAL
     & - (LRVEM+2*LU+LNOD+LNOPRM+LRPARM+LRDPRM)
     & - (LIVEM+LNODN+LNEK+LIPARM+LDNOD+LIDPRM)     /RPI
     & - (LLVEM)                                   /RPL)
C**                                                                 ***
C**-----------------------------------------------------------------***
C**                                                                 ***
C**      variables and arrays :                                     ***
C**      --------------------                                       ***
C**                                                                 ***
C**                    >                                            ***
      DOUBLE PRECISION  T,U(LU),EEST(LU),RVEM(LRVEM),
     &                  NOD(LNOD),NOPARM(LNOPRM),
     &                  RPARM(LRPARM),RDPARM(LRDPRM),RBIG(LBIG)

      INTEGER           IVEM(LIVEM),NEK(LNEK),IPARM(LIPARM),
     &                  NODNUM(LNODN),ERRIND(NK),SOLIND(NK,NSEL),
     &                  DNOD(LDNOD),IDPARM(LIDPRM),IBIG(RPI*LBIG),
     &                  PROPOP(NK),PROPO2(NK,MAXNG),TRIND(NK)

      LOGICAL           MASKL(NK,NK,0:3),MASKF(NK,0:3),
     &                  MASKK(NK,NK,0:3),MASKLL(NK,NK,MAXNG),
     &                  MASKFF(NK,MAXNG),LVEM(LLVEM),LSYM,EX
      DOUBLE PRECISION  NORMU(NK),EPS
C**                                                                 ***
      INTEGER           MYPROC,NPROC,OUTFLG,I,J,K,NGROUP,NN,LUG,
     &                  LBIG2,RBIG2,IBIG2,INFO,G,CLASS,NE,SET,N,
     &                  MESH,GINFO,GINFO1,TCOUNT,STEP,SPACE,LSPACE,UG,
     &                  IH(3)
      CHARACTER*80      NAME,TEXT1,TEXT2,FILE(NSEL),TITLE(NSEL),STRDUM,
     &                  ERRFIL,WPIECE
C**                                                                 ***
      DATA ERRIND/%OUTPUT_ERRINDEX_/
      DATA SOLIND/%OUTPUT_INDEX_/
      DATA PROPOP/%MESH_REDUCE_/
C**                                                                 ***
      EXTERNAL DUMMY,VEM630,VEM500,INTERP,ERRORP,USERU0
      EXTERNAL USERB,USRFU,USERF,USRFUT
C**                                                                 ***
C**-----------------------------------------------------------------***
C**                                                                 ***
C**  The equivalence of RBIG and IBIG is very important :           ***
C**                                                                 ***
      EQUIVALENCE (RBIG,IBIG)
      COMMON /NORM/EPS,NORMU
      COMMON /TRANS/TRIND
C**                                                                 ***
      NE=0
      CLASS=0
      NGROUP=0
      G=0
      TCOUNT=0
      NAME='name'
      TEXT1='text1'
      TEXT2='text2'
      WPIECE='%WORKPIECE_'
C**                                                                 ***
C**                                                                 ***
C**-----------------------------------------------------------------***
C**                                                                 ***
C**   get task id's :                                               ***
C**                                                                 ***
      STRDUM='a.out'
      NPROC=NP
      CALL COMBGN(NPROC,MYPROC,NP,IVEM(204),STRDUM,INFO)

      IF (INFO.NE.0) GOTO 9999
      IVEM(200)=NPROC
      IVEM(201)=MYPROC
      IVEM(202)=0
      IVEM(203)=IVEM(204)
C**                                                                 ***
C**-----------------------------------------------------------------***
C**                                                                 ***
C**   only process 1 prints output :                                ***
C**                                                                 ***
      IF (MYPROC.EQ.1) THEN
	OUTFLG=1
	OPEN(1,FILE='%WORKPIECE_.lst',FORM='FORMATTED')
      ELSE
	OUTFLG=0
      ENDIF
C**                                                                 ***
C**-----------------------------------------------------------------***
C**                                                                 ***
C**** set general IVEM-infos:                                       ***
C**   ----------------------                                        ***
C**                                                                 ***
      IVEM(1)=210+NP
      IVEM(3)=0
      IVEM(4)=44
      IVEM(19)=30841
      IVEM(IVEM(1)+ 2)=NK
      IVEM(IVEM(1)+ 3)=DIM
      T=%SOLVER_T0_
      ERRFIL='%OUTPUT_ERRFILE_'
C**                                                                 ***
C**-----------------------------------------------------------------***
C**                                                                 ***
C**** set masks and symmetry flag:                                  ***
C**   ----------------------------                                  ***
C**                                                                 ***
      DO 10 I=0,3
	DO 10 J=1,NK
	  MASKF(J,I)=.FALSE.
	  DO 20 K=1,NK
            MASKL(J,K,I)=.FALSE.
 20         MASKK(J,K,I)=.FALSE.
10    CONTINUE
#** 
#**  title, file names, masks and the preprocessor interface
#**  ?in.h is included here !  
#** 
