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