00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018       subroutine efmaac ( fid , nom , dim , type, desc, cret )
00019 
00020 
00021       implicit none
00022       save
00023 
00024       character *(*) nom
00025       character *(*) desc
00026       integer fid, dim, type, cret
00027       integer edfmaac
00028 
00029       cret = edfmaac (fid, nom , len(nom), dim, type, desc, len(desc))
00030 
00031       return
00032       end
00033 
00034 
00035       subroutine efnmaa( fid , n , cret)
00036 
00037 
00038       implicit none
00039       save
00040 
00041       integer fid, n, cret
00042       integer edfnmaa
00043 
00044       n = edfnmaa(fid)
00045 
00046       if (n.lt.0) then
00047          cret = -1
00048       else
00049          cret = 0
00050       endif
00051 
00052       return
00053       end
00054 
00055 
00056 
00057       subroutine efmaai( fid, indice, maa, dim, type, desc, cret)
00058 
00059 
00060       implicit none
00061       save
00062 
00063       integer fid,dim,cret,indice,type
00064       character *(*) maa
00065       character *(*) desc
00066       integer edfmaai
00067 
00068       maa = ' ' 
00069 
00070       cret = edfmaai (fid,indice,maa,dim,type,desc)
00071 
00072       return
00073       end
00074 
00075       subroutine efdiml( fid , maa, dim, cret)
00076 
00077 
00078       implicit none
00079       save
00080 
00081       integer fid,dim,cret
00082       character *(*) maa
00083       integer edfdiml
00084 
00085       dim = edfdiml (fid,maa,len(maa))
00086 
00087       if (dim.lt.0) then
00088          cret = -1
00089       else
00090          cret = 0
00091       endif
00092       return
00093       end
00094 
00095 
00096       subroutine efnnsl (fid,maa,n,cret)
00097 
00098 
00099       implicit none
00100       save
00101 
00102       integer fid,n,cret
00103       character*(*) maa
00104       integer edfnnsl
00105 
00106       n = edfnnsl(fid,maa,len(maa))
00107 
00108       if (n .lt. 0) then
00109          cret = -1
00110       else
00111          cret = 0
00112       endif
00113 
00114       end
00115 
00116 
00117       subroutine efnnse (fid,maa,n,cret)
00118 
00119 
00120       implicit none
00121       save
00122 
00123       integer fid,n,cret
00124       character*(*) maa
00125       integer edfnnse
00126 
00127       cret = edfnnse(fid,maa,len(maa),n)
00128 
00129       end
00130 
00131 
00132       subroutine efnnil (fid,maa,n,cret)
00133 
00134 
00135       implicit none
00136       save
00137 
00138       integer fid,n,cret
00139       character*(*) maa
00140       integer edfnnil
00141 
00142       n = edfnnil(fid,maa,len(maa))
00143 
00144       if (n .lt. 0) then
00145          cret = -1
00146       else
00147          cret = 0
00148       endif
00149 
00150       end
00151 
00152 
00153       subroutine efnnie (fid,maa,n,cret)
00154 
00155 
00156       implicit none
00157       save
00158 
00159       integer fid,n,cret
00160       character*(*) maa
00161       integer edfnnie
00162 
00163       cret = edfnnie(fid,maa,len(maa),n)
00164 
00165       end
00166 
00167 
00168       subroutine efnnml (fid,maa,n,cret)
00169 
00170 
00171       implicit none
00172       save
00173 
00174       integer fid,n,cret
00175       character*(*) maa
00176       integer edfnnml
00177 
00178       n = edfnnml(fid,maa,len(maa))
00179 
00180       if (n .lt. 0) then
00181          cret = -1
00182       else
00183          cret = 0
00184       endif
00185 
00186       end
00187 
00188 
00189       subroutine efnnme (fid,maa,n,cret)
00190 
00191 
00192       implicit none
00193       save
00194 
00195       integer fid,n,cret
00196       character*(*) maa
00197       integer edfnnme
00198 
00199       cret = edfnnme(fid,maa,len(maa),n)
00200 
00201       end
00202 
00203 
00204       subroutine efunvc ( fid , nom , cret )
00205 
00206 
00207       implicit none
00208       save
00209 
00210       character *(*) nom
00211       integer fid, cret
00212       integer edfunvc
00213 
00214       cret = edfunvc (fid, nom , len(nom))
00215 
00216       return
00217       end
00218 
00219       subroutine efunvl( fid , nom , nomu , cret)
00220 
00221 
00222       implicit none
00223       save
00224 
00225       integer fid,cret
00226       character *(*) nom,nomu
00227       integer edfunvl
00228 
00229       cret = edfunvl (fid,nom,len(nom),nomu,len(nomu))
00230 
00231       return
00232       end
00233 
00234 
00235       subroutine efespc(fid, nom, dim, cret )
00236 
00237 
00238       implicit none
00239       save
00240 
00241       character *(*) nom
00242       integer fid, dim, cret
00243       integer edfespc
00244 
00245       cret = edfespc (fid, nom , len(nom), dim)
00246 
00247       return
00248       end
00249 
00250 
00251       subroutine efespl( fid , maa, dim, cret)
00252 
00253 
00254       implicit none
00255       save
00256 
00257       integer fid,dim,cret
00258       character *(*) maa
00259       integer edfespl
00260 
00261       dim = edfespl (fid,maa,len(maa))
00262 
00263       if (dim.lt.0) then
00264          cret = -1
00265       else
00266          cret = 0
00267       endif
00268       return
00269       end
00270 
00271 
00272 
00273       subroutine efnage(fid,maa,typ,cret)
00274 
00275 
00276       implicit none
00277       save
00278 
00279       integer fid,typ,cret
00280       character*(*) maa
00281       integer edfnage
00282 
00283       cret = edfnage(fid,maa,len(maa),typ)
00284 
00285       end
00286 
00287 
00288 
00289       subroutine efnagl(fid,maa,typ,cret)
00290 
00291 
00292       implicit none
00293       save
00294 
00295       integer fid,typ,cret
00296       character*(*) maa
00297       integer edfnagl
00298 
00299       cret = edfnagl(fid,maa,len(maa),typ)
00300 
00301       end