Esope source files

   1 : C MEDLIB    SOURCE    CHAT      10/12/21    21:15:11     6831           
   2 :       subroutine medlib
   3 : 
   4 :       implicit real*8 (a-H,o-Z)
   5 :       implicit integer (i-n)
   6 :       return
   7 :       
   8 :       
   9 : *      entry efchac(ifid,cha32a,m1,nocom,unit,nccc,icret)
  10 :       entry efchac
  11 :       return
  12 : *      entry efchae(ifid,nobj,cha32a,vpocha,m1,n,MED_NOGAUSS,
  13 : *     $         k1,cha32b,m2,m3,m0,m1,cha1,
  14 : *     $                  mx0,k0,icret)  
  15 :       entry efchae     
  16 :       return
  17 : *      entry efchai(ifid,ia,nocham,itypch,nomcom,iunit,nc,icret)
  18 :       entry efchai
  19 :       return 
  20 :         
  21 : *      entry efchal(ifid,cha32a,nocham,vpocha,m0,mo0,cha32c,cha32b,m2,m3,
  22 : *     $              ml0,numdt,numo,icret) 
  23 :       entry efchal
  24 :       return 
  25 : *      entry EFCONE(IFID,NOBJ,medi,num,
  26 : *     &     MED_FULL_INTERLACE,m2,MED_MAILLE,ITCELL,
  27 : *     &     MED_NOD,ICRET)       
  28 :       entry EFCONE
  29 :       return
  30 : *       entry EFCONL(IFID,NOMMAA,ISDIM,num,m0,n0,l0,k0,ITAB,m0,
  31 : *     &     ICRET) 
  32 :       entry EFCONL
  33 :       return    
  34 :       
  35 : *      entry  EFCOOL(IFID,NOMMAA,ISDIM,xcoo,m0,l0,n0,k0,IREPER,COMP 
  36 : *     &   ,UNIT,      ICRET)
  37 :       entry  EFCOOL
  38 :       return
  39 :   
  40 : *      entry EFCOOE(IFID,NOBJ,IDIM,xyz,MED_FULL_INTERLACE,
  41 : *     &     nno,MED_CART,MED_NOGAUSS,MED_NOGAUSS,ICRET)
  42 :       entry EFCOOE
  43 :       return
  44 :       
  45 : *      entry efespc(ifid,nobj,idim,icret)
  46 :       entry efespc
  47 :       return
  48 :       
  49 : *      entry efexit(i)
  50 :       entry efexit
  51 :       return        
  52 : *      entry EFFAMC(IFID,NOBJ,FOBJ,INEG,m0,l0,n0,k0,nogr32,
  53 : *     $ m1,ICRET)
  54 :       entry EFFAMC
  55 :      
  56 :       return
  57 : *      entry EFFAME(IFID,NOBJ,nomnoe,nno,MED_NOEUD,m0,ICRET)    
  58 :       entry EFFAME
  59 :       return
  60 :             
  61 : *      IFID,NOMMAA,IFAM,NOMFA,INUMFA,attr,attr2, 
  62 : *     &               attr3,INBATT,nogr32,kg,ICRET) 
  63 :       entry  EFFAMI
  64 :       return   
  65 :          
  66 : *      entry   EFFAML(IFID,NOMMAA,numlis,inbele,m0,ITAB,
  67 : *     &     ICRET) 
  68 :       entry   EFFAML
  69 :       return
  70 : *      entry efferm (ifid,icret)  
  71 :       entry efferm 
  72 :       return
  73 :       
  74 : *      entry   EFMAAI(IFID,i,NOMMAA,ISDIM,ITYPEM,DESMAA,ICRET)
  75 :       entry   EFMAAI      
  76 :       return  
  77 :       
  78 : *      entry EFMAAC(IFID,NOBJ,IDIM,MED_NON_STRUCTURE,NOBJ,ICRET)
  79 :       entry EFMAAC      
  80 :       return
  81 :       
  82 : 
  83 : *      entry EFNATT(IFID,NOMMAA,IFAM,INBATT,ICRET)
  84 :       entry EFNATT      
  85 :       return      
  86 :              
  87 : *      entry efncha(ifid,ind,nbch,icret)
  88 :       entry efncha      
  89 :       return 
  90 : *      entry   EFNEMA(IFID,NOMMAA,m0,m3,l0,n0,nbpta,ICRET) 
  91 :       entry   EFNEMA                  
  92 :       return
  93 : *      entry efnfam(IFID,NOMMAA,INFAM,ICRET) 
  94 :       entry efnfam      
  95 :       return
  96 : *      entry EFNGRO(IFID,NOMMAA,IFAM,kg,ICRET) 
  97 :       entry EFNGRO      
  98 :       return
  99 : *      entry efnpdt (ifid,nocham,3,0,npasdt,icret)
 100 :       entry efnpdt
 101 :       return
 102 : *      entry efnval(ifid,nocham,m3,m0,numdt,numo
 103 : *     $              ,cha32a,m2,nval,icret)
 104 :       entry efnval     
 105 :       return
 106 : *      entry efouvr(ifid,medres,m0,ICRET)
 107 :       entry efouvr           
 108 :       return
 109 : *      entry efpdti(ifid, nocham,m3,m0,ib, ngauss, numdt, numo, iunit,        
 110 : *     &              dt, cha32a, bnoel, nbmaa, icret )
 111 :       entry efpdti     
 112 :       return
 113 : *      entry  efpfle(ifid,ipt1.num,n,cha32a,icret)
 114 :       entry  efpfle      
 115 :       return
 116 : *      entry  efpfll(ifid,num,cha32b,icret)
 117 :       entry  efpfll      
 118 :       return
 119 :       end
 120 :       
 121 :