C MEDLIB    SOURCE    CHAT      10/12/21    21:15:11     6831           
      subroutine medlib

      implicit real*8 (a-H,o-Z)
      implicit integer (i-n)
      return
      
      
*      entry efchac(ifid,cha32a,m1,nocom,unit,nccc,icret)
      entry efchac
      return
*      entry efchae(ifid,nobj,cha32a,vpocha,m1,n,MED_NOGAUSS,
*     $         k1,cha32b,m2,m3,m0,m1,cha1,
*     $                  mx0,k0,icret)  
      entry efchae     
      return
*      entry efchai(ifid,ia,nocham,itypch,nomcom,iunit,nc,icret)
      entry efchai
      return 
        
*      entry efchal(ifid,cha32a,nocham,vpocha,m0,mo0,cha32c,cha32b,m2,m3,
*     $              ml0,numdt,numo,icret) 
      entry efchal
      return 
*      entry EFCONE(IFID,NOBJ,medi,num,
*     &     MED_FULL_INTERLACE,m2,MED_MAILLE,ITCELL,
*     &     MED_NOD,ICRET)       
      entry EFCONE
      return
*       entry EFCONL(IFID,NOMMAA,ISDIM,num,m0,n0,l0,k0,ITAB,m0,
*     &     ICRET) 
      entry EFCONL
      return    
      
*      entry  EFCOOL(IFID,NOMMAA,ISDIM,xcoo,m0,l0,n0,k0,IREPER,COMP 
*     &   ,UNIT,      ICRET)
      entry  EFCOOL
      return
  
*      entry EFCOOE(IFID,NOBJ,IDIM,xyz,MED_FULL_INTERLACE,
*     &     nno,MED_CART,MED_NOGAUSS,MED_NOGAUSS,ICRET)
      entry EFCOOE
      return
      
*      entry efespc(ifid,nobj,idim,icret)
      entry efespc
      return
      
*      entry efexit(i)
      entry efexit
      return        
*      entry EFFAMC(IFID,NOBJ,FOBJ,INEG,m0,l0,n0,k0,nogr32,
*     $ m1,ICRET)
      entry EFFAMC
     
      return
*      entry EFFAME(IFID,NOBJ,nomnoe,nno,MED_NOEUD,m0,ICRET)    
      entry EFFAME
      return
            
*      IFID,NOMMAA,IFAM,NOMFA,INUMFA,attr,attr2, 
*     &               attr3,INBATT,nogr32,kg,ICRET) 
      entry  EFFAMI
      return   
         
*      entry   EFFAML(IFID,NOMMAA,numlis,inbele,m0,ITAB,
*     &     ICRET) 
      entry   EFFAML
      return
*      entry efferm (ifid,icret)  
      entry efferm 
      return
      
*      entry   EFMAAI(IFID,i,NOMMAA,ISDIM,ITYPEM,DESMAA,ICRET)
      entry   EFMAAI      
      return  
      
*      entry EFMAAC(IFID,NOBJ,IDIM,MED_NON_STRUCTURE,NOBJ,ICRET)
      entry EFMAAC      
      return
      

*      entry EFNATT(IFID,NOMMAA,IFAM,INBATT,ICRET)
      entry EFNATT      
      return      
             
*      entry efncha(ifid,ind,nbch,icret)
      entry efncha      
      return 
*      entry   EFNEMA(IFID,NOMMAA,m0,m3,l0,n0,nbpta,ICRET) 
      entry   EFNEMA                  
      return
*      entry efnfam(IFID,NOMMAA,INFAM,ICRET) 
      entry efnfam      
      return
*      entry EFNGRO(IFID,NOMMAA,IFAM,kg,ICRET) 
      entry EFNGRO      
      return
*      entry efnpdt (ifid,nocham,3,0,npasdt,icret)
      entry efnpdt
      return
*      entry efnval(ifid,nocham,m3,m0,numdt,numo
*     $              ,cha32a,m2,nval,icret)
      entry efnval     
      return
*      entry efouvr(ifid,medres,m0,ICRET)
      entry efouvr           
      return
*      entry efpdti(ifid, nocham,m3,m0,ib, ngauss, numdt, numo, iunit,        
*     &              dt, cha32a, bnoel, nbmaa, icret )
      entry efpdti     
      return
*      entry  efpfle(ifid,ipt1.num,n,cha32a,icret)
      entry  efpfle      
      return
*      entry  efpfll(ifid,num,cha32b,icret)
      entry  efpfll      
      return
      end