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