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