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