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 implicit none
00021 save
00022
00023 integer fid, n, cret
00024 integer edfngau
00025
00026 n = edfngau(fid)
00027
00028 if (n.lt.0) then
00029 cret = -1
00030 else
00031 cret = 0
00032 endif
00033
00034 return
00035 end
00036
00037
00038
00039 subroutine efgaui( fid , indice , locname, typgeo, ngauss , cret)
00040
00041 implicit none
00042 save
00043
00044 integer fid,indice,typgeo,ngauss,cret
00045 character *(*) locname
00046 integer edfgaui
00047
00048 locname = ' '
00049
00050 cret = edfgaui (fid,indice,locname,typgeo,ngauss)
00051
00052 return
00053 end
00054
00055
00056
00057 subroutine efgaue( fid, typgeo, refcoo, mode_coo, ngauss,
00058 1 gscoo, wg, locname,cret)
00059
00060 implicit none
00061 save
00062
00063 integer fid,typgeo,mode_coo,ngauss,cret
00064 real*8 refcoo(*),gscoo(*),wg(*)
00065 character *(*) locname
00066 integer edfgaue
00067
00068 cret = edfgaue( fid, typgeo, refcoo, mode_coo, ngauss,
00069 1 gscoo, wg, locname,len(locname))
00070
00071 return
00072 end
00073
00074
00075
00076 subroutine efgaul( fid, refcoo, gscoo, wg,
00077 1 mode_coo, locname, cret)
00078
00079 implicit none
00080 save
00081
00082 integer fid,mode_coo,cret
00083 real*8 refcoo(*),gscoo(*),wg(*)
00084 character *(*) locname
00085 integer edfgaul
00086
00087 cret = edfgaul(fid, refcoo, gscoo, wg,
00088 1 mode_coo, locname, len(locname), cret)
00089
00090 return
00091 end
00092