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