00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018       subroutine efequc ( fid , maa , eq , des , cret)
00019 
00020 
00021       implicit none
00022       save
00023 
00024       character *(*) maa, des, eq
00025       integer fid, cret
00026       integer edfequc
00027 
00028       cret = edfequc(fid, maa, len(maa), eq, len(eq), des, len(des))
00029 
00030       return
00031       end
00032 
00033       subroutine efeque (fid,maa,eq,corr,n,typent,typgeo,cret)
00034 
00035 
00036       implicit none
00037       save
00038 
00039       character *(*) maa, eq
00040       integer fid, cret, corr(*), n, typent, typgeo
00041       integer edfeque
00042 
00043       cret = edfeque(fid, maa, len(maa), eq, len(eq), corr, 
00044      1     n, typent, typgeo)
00045 
00046       return
00047       end
00048 
00049       subroutine efequl(fid,maa,eq,corr,n,typent,typgeo,cret)
00050 
00051 
00052       implicit none
00053       save
00054 
00055       character *(*) maa, eq
00056       integer fid, cret, corr(*), n,typent, typgeo
00057       integer edfequl
00058 
00059       cret = edfequl(fid, maa, len(maa), eq, len(eq), corr, 
00060      1     n, typent, typgeo)
00061 
00062       return
00063       end
00064 
00065       subroutine efncor(fid,maa,eq,typent,typgeo,n,cret)
00066 
00067 
00068       implicit none
00069       save
00070 
00071       character *(*) maa, eq
00072       integer fid, cret, n,typent, typgeo
00073       integer edfncor
00074 
00075       n = edfncor(fid, maa, len(maa), eq, len(eq), typent,typgeo)
00076       if (n.lt.0) then
00077          cret = -1
00078       else
00079          cret =0
00080       endif
00081 
00082       return
00083       end
00084 
00085       subroutine efnequ(fid,maa,n,cret)
00086 
00087 
00088       implicit none
00089       save
00090 
00091       character *(*) maa
00092       integer fid, cret, n
00093       integer edfnequ
00094 
00095       n = edfnequ(fid, maa, len(maa))
00096       if (n.lt.0) then
00097          cret = -1
00098       else
00099          cret =0
00100       endif
00101 
00102       return
00103       end
00104 
00105       subroutine efequi(fid,maa,ind,eq,des,cret)
00106 
00107 
00108       implicit none
00109       save
00110 
00111       character *(*) maa,eq,des
00112       integer fid, cret,ind
00113       integer edfequi
00114 
00115       cret = edfequi(fid, maa, len(maa),ind,eq,des)
00116 
00117       return
00118       end
00119 
00120