00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021       subroutine efjntc ( fid , maalcl , jn , des , dom, maadst, cret)
00022 
00023 
00024       implicit none
00025       save
00026 
00027       character *(*) maalcl, jn, des, maadst
00028       integer fid, dom, cret
00029       integer edfjntc
00030 
00031       cret = edfjntc(fid, maalcl, len(maalcl), jn, len(jn),
00032      $     des, len(des),
00033      $     dom, maadst,len(maadst))
00034 
00035       return
00036       end
00037 
00038 
00039 
00040 
00041       subroutine efnjnt ( fid , maalcl , n , cret)
00042 
00043 
00044       implicit none
00045       save
00046 
00047       character *(*) maalcl
00048       integer n, fid,  cret
00049       integer edfnjnt
00050 
00051       cret = edfnjnt(fid, maalcl, len(maalcl), n)
00052 
00053       if (n.lt.0) then
00054          cret = -1
00055       else
00056          cret = 0
00057       endif
00058 
00059       return
00060       end
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069       subroutine efjnti ( fid , maalcl , ind, jn , des , dom,
00070      $     maadst, cret)
00071 
00072 
00073       implicit none
00074       save
00075 
00076       character *(*) maalcl, jn, des, maadst
00077       integer fid, ind, dom, cret
00078       integer edfjnti
00079 
00080       cret = edfjnti(fid, maalcl, len(maalcl), ind,
00081      $     jn, des, dom, maadst)
00082 
00083       return
00084       end
00085 
00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093       subroutine efjnte ( fid , maalcl , jn , corrtab, n,
00094      $                    entlcl, geolcl, entdst, geodst,
00095      $                    cret)
00096 
00097 
00098       implicit none
00099       save
00100 
00101       character *(*) maalcl, jn
00102       integer n, fid, cret, corrtab(*)
00103       integer entlcl, entdst, geolcl, geodst
00104       integer edfjnte
00105 
00106       cret = edfjnte(fid, maalcl, len(maalcl), jn, len(jn),
00107      $     corrtab, n,
00108      $     entlcl, geolcl, entdst, geodst)
00109 
00110       return
00111       end
00112 
00113 
00114 
00115 
00116       subroutine efjntl ( fid , maalcl , jn , corrtab, n,
00117      $                    entlcl, geolcl, entdst, geodst,
00118      $                    cret)
00119 
00120 
00121       implicit none
00122       save
00123 
00124       character *(*) maalcl, jn
00125       integer n, fid, cret, corrtab(*)
00126       integer entlcl, entdst, geolcl, geodst
00127       integer edfjntl
00128 
00129       cret = edfjntl(fid, maalcl, len(maalcl), jn, len(jn),
00130      $     corrtab, n,
00131      $     entlcl, geolcl, entdst, geodst)
00132 
00133       return
00134       end
00135 
00136 
00137 
00138 
00139 
00140       subroutine efjnco ( fid , maalcl , jn, 
00141      $     entlcl, geolcl, entdst, geodst,
00142      $     nent, cret)
00143 
00144 
00145       implicit none
00146       save
00147 
00148       character *(*) maalcl, jn
00149       integer fid, entlcl, entdst, geolcl, geodst, nent, cret
00150       integer edfjnco
00151 
00152       nent = edfjnco(fid,
00153      $     maalcl, len(maalcl),
00154      $     jn, len(jn),
00155      $     entlcl, geolcl, entdst, geodst)
00156 
00157       if (nent.lt.0) then
00158          cret = -1
00159       else
00160          cret = 0
00161       endif
00162 
00163       return
00164       end
00165 
00166 
00167 
00168 
00169 
00170 
00171       subroutine efjtco ( fid , maalcl , jn, ind, 
00172      $     entlcl, geolcl, entdst, geodst,
00173      $     cret)
00174 
00175 
00176       implicit none
00177       save
00178 
00179       character *(*) maalcl, jn 
00180       integer fid, entlcl, entdst, geolcl, geodst, nent, cret, ind
00181       integer edfjtco
00182 
00183       nent = edfjtco(fid,
00184      $     maalcl, len(maalcl),
00185      $     jn, len(jn),
00186      $     ind,
00187      $     entlcl, geolcl, entdst, geodst)
00188 
00189       if (nent.lt.0) then
00190          cret = -1
00191       else
00192          cret = 0
00193       endif
00194 
00195       return
00196       end
00197 
00198 
00199 
00200 
00201 
00202 
00203 
00204 
00205       subroutine efgnme ( fid , maa , numtab, n,
00206      $                    ent, geo, cret)
00207 
00208 
00209       implicit none
00210       save
00211 
00212       character *(*) maa
00213       integer n, fid,  cret, numtab(*)
00214       integer ent, geo
00215       integer edfgnme
00216 
00217       cret = edfgnme(fid, maa, len(maa), numtab, n, ent, geo)
00218 
00219       return
00220       end
00221 
00222 
00223 
00224 
00225 
00226 
00227       subroutine efgnml ( fid , maa , numtab, n,
00228      $                    ent, geo, cret)
00229 
00230 
00231       implicit none
00232       save
00233 
00234       character *(*) maa
00235       integer n, fid, cret, numtab(*)
00236       integer ent, geo
00237       integer edfgnml
00238 
00239       cret = edfgnml(fid, maa, len(maa), numtab, n, ent, geo)
00240 
00241       return
00242       end
00243 
00244 
00245