      PROGRAM VECFEM
C**                                                                 ***
      IMPLICIT NONE
      include 'bytes.h'
      include 'maxnpe.h'
C**                                                                 ***
C**-----------------------------------------------------------------***
C**                                                                 ***
C**      parameters :                                               ***
C**      ----------                                                 ***
C**                                                                 ***
C**                    >                                            ***
      INTEGER           DIM,NK,MAXNG,LU,LNEK,LRPARM,LIPARM,LDNOD,NP,
     &                  LIVEM,LRVEM,LLVEM,LNOPRM,LNOD,LNODN,LIDPRM,
     &                  LRDPRM,LOUT,LBIG,MAXNN,MAXNE,NSEL,CNTMSH,
     &                  CNTSLV,CNTOUT,NINFO0
C**                                                                 ***
      PARAMETER  (NK    = %NK_,
     &            DIM   = %DIM_,
     &            MAXNE = %PROCESS_MAXNE_,
     &            MAXNN = %PROCESS_MAXNN_,
     &            NSEL  = %OUTPUT_NSEL_,
     &            CNTMSH= %MESH_OUTCNT_,
     &            CNTSLV= %SOLVER_OUTCNT_,
     &            CNTOUT= %OUTPUT_OUTCNT_)

      PARAMETER  (MAXNG=25,
     &            NP=maxnpe                                  ,
     &            LU=MAXNN*NK                                ,
     &            LNODN=MAXNN                                ,
     &            LNOPRM=1                                   ,
     &            LNOD=MAXNN*DIM                             ,

     &            LNEK=MAXNE*20*(NK+1)                       ,
     &            LIPARM=2*MAXNE                             ,
     &            LRPARM=MAXNE                               ,

     &            LDNOD=MAXNN*2                              ,
     &            LIDPRM=MAXNN                               ,
     &            LRDPRM=MAXNN                               ,

     &            NINFO0=250+NP+MAXNG*(25+2*NK)+NK*15,
