00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 subroutine efngau( fid , n , cret)
00019
00020
00021 implicit none
00022 save
00023
00024 integer fid, n, cret
00025 integer edfngau
00026
00027 n = edfngau(fid)
00028
00029 if (n.lt.0) then
00030 cret = -1
00031 else
00032 cret = 0
00033 endif
00034
00035 return
00036 end
00037
00038
00039
00040 subroutine efgaui( fid , indice , locname, typgeo, ngauss , cret)
00041
00042
00043 implicit none
00044 save
00045
00046 integer fid,indice,typgeo,ngauss,cret
00047 character *(*) locname
00048 integer edfgaui
00049
00050 locname = ' '
00051
00052 cret = edfgaui (fid,indice,locname,typgeo,ngauss)
00053
00054 return
00055 end
00056
00057
00058
00059 subroutine efgaue( fid, typgeo, refcoo, mode_coo, ngauss,
00060 1 gscoo, wg, locname,cret)
00061
00062
00063 implicit none
00064 save
00065
00066 integer fid,typgeo,mode_coo,ngauss,cret
00067 real*8 refcoo(*),gscoo(*),wg(*)
00068 character *(*) locname
00069 integer edfgaue
00070
00071 cret = edfgaue( fid, typgeo, refcoo, mode_coo, ngauss,
00072 1 gscoo, wg, locname,len(locname))
00073
00074 return
00075 end
00076
00077
00078
00079 subroutine efgaul( fid, refcoo, gscoo, wg,
00080 1 mode_coo, locname, cret)
00081
00082
00083 implicit none
00084 save
00085
00086 integer fid,mode_coo,cret
00087 real*8 refcoo(*),gscoo(*),wg(*)
00088 character *(*) locname
00089 integer edfgaul
00090
00091 cret = edfgaul(fid, refcoo, gscoo, wg,
00092 1 mode_coo, locname, len(locname), cret)
00093
00094 return
00095 end
00096