C MEDRCH    SOURCE    CHAT      11/10/26    22:15:25     7176           
      subroutine medrch(ifid,mlmot1,mlmot2,nbnoin,nommaa,nbpta,icret)
      implicit real*8(a-h,o-z)
      implicit integer (i-n)
*
* lecture des champs s'il y a lieu
*      
-INC CCOPTIO
-INC SMELEME
-INC SMCHPOI
-INC SMCHAML
-INC SMTABLE
-INC SMLMOTS
      character*4 cha4a,cha4b,cha4c
      character*8 cha8a,ityc,cha8b,cha8c
      character*32 nocham,cha32a,cha32b,cha32c
      segment ichamp
         character*16 nomcom(nc+1),iunit(nc+1)
      endsegment 
      segment iprofi        
         character*32 nompro(m)
         integer melem(m)
      endsegment
      character*32 nommaa      
      parameter (MED_MAILLE=0,MED_FACE=1,MED_ARETE=2,MED_NOEUD=3)
      parameter (MED_NO_PFLMOD=0, MED_GLOBAL=1, MED_COMPACT=2)
                  
*      write(6,*) ' medrch : appel efncha'
      ind=0
      call efncha4(ifid,ind,nbch,icret)
      if(icret.ne.0) then
*        write(6,*) ' plouf 10'
        call efexit4(-1)
        return
      endif
*      write(6,*) ' sortie efncha nombre de champs ', nbch
*
* quelques initialisations 
*
*
      nat=1
      nsoupo=1
      nbnn=1
      nbsous=0
      nbref=0
      n1ptel=0
      n1el=0
      n2ptel=0
      n2el=0
      m=20
      nprof=0
      segini iprofi 
      do ia=1,nbch
* combien de composantes
*        write(6,*) ' lecture du nb de composantes du champ ' , ia
        call efncha4(ifid,ia,nc,icret)
*        write(6,*) ' nb de composante du champ ' , nc 
        if(icret.ne.0) then
*          write(6,*) ' plouf 11'     
          call efexit4(-1)  
          return
        endif     
        segini ichamp
*        write(6,*) ' avant appelefchai'  
******        call efchai(ifid,ia,nocham,itypch,nomcom,iunit,nc,icret) 
        call efchai4(ifid,ia,nocham,itypch,nomcom,iunit,nc,icret)
*        write(6,*) ' info issu de efchai '
*        write(6,*) ' nom du champ ', nocham , ' nb composantes ' ,nc
*        write(6,*) 'nom des composantes ' ,(nomcom(iou),iou=1,nc) 
*        write(6,*) ' type du champ ' ,itypch       
        if(icret.ne.0) then
*          write(6,*) ' plouf 12'
          call efexit4(-1)
          return
        endif   
*
*   est-ce un champ par point?si oui on le lit
* 
*        write(6,*) ' avant appel a medchp '      
        call medchp(ifid,nocham,itypch,nc,nbnoin,nommaa,iprofi,nprof,
     $         ichamp,nbpta,ich,icret)
        if(icret.ne.0) then
*          write(6,*) ' plouf 121'
          call efexit4(-1)
          return
        endif        
*        if(ich.ne.0) then
*           write(6,*) ' on vient de lire un chpoint de pointeur', ich
*        else 
*           write(6,*) ' le champ n est pas un chpoint'
*        endif        
*        call medcen(ifid,nocham,itypch,nc,nbnoin,nommaa,iprofi,nprof,
*     $         ichamp,nbpta,ich,icret)
      enddo
      return
      end