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