gauss.f

Aller à la documentation de ce fichier.
00001 C*  This file is part of MED.
00002 C*
00003 C*  COPYRIGHT (C) 1999 - 2011  EDF R&D, CEA/DEN
00004 C*  MED is free software: you can redistribute it and/or modify
00005 C*  it under the terms of the GNU Lesser General Public License as published by
00006 C*  the Free Software Foundation, either version 3 of the License, or
00007 C*  (at your option) any later version.
00008 C*
00009 C*  MED is distributed in the hope that it will be useful,
00010 C*  but WITHOUT ANY WARRANTY; without even the implied warranty of
00011 C*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00012 C*  GNU Lesser General Public License for more details.
00013 C*
00014 C*  You should have received a copy of the GNU Lesser General Public License
00015 C*  along with MED.  If not, see <http://www.gnu.org/licenses/>.
00016 C*
00017 
00018       subroutine efngau( fid , n , cret)
00019 c
00020       implicit none
00021       save
00022 c
00023       integer fid, n, cret
00024       integer edfngau
00025 c
00026       n = edfngau(fid)
00027 
00028       if (n.lt.0) then
00029          cret = -1
00030       else
00031          cret = 0
00032       endif
00033 c
00034       return
00035       end
00036 c
00037 c
00038 c
00039       subroutine efgaui( fid , indice , locname, typgeo, ngauss , cret)
00040 c
00041       implicit none
00042       save
00043 c
00044       integer fid,indice,typgeo,ngauss,cret
00045       character *(*) locname
00046       integer edfgaui
00047 c
00048       locname = ' ' 
00049 c
00050       cret = edfgaui (fid,indice,locname,typgeo,ngauss)
00051 c     
00052       return
00053       end
00054 c
00055 c
00056 c
00057       subroutine efgaue( fid, typgeo, refcoo, mode_coo, ngauss,
00058      1                  gscoo, wg, locname,cret)
00059 c
00060       implicit none
00061       save
00062 c      
00063       integer fid,typgeo,mode_coo,ngauss,cret
00064       real*8 refcoo(*),gscoo(*),wg(*)
00065       character *(*) locname
00066       integer edfgaue
00067 c
00068       cret = edfgaue( fid, typgeo, refcoo, mode_coo, ngauss,
00069      1                gscoo, wg, locname,len(locname))
00070 c
00071       return
00072       end
00073 c
00074 c
00075 c
00076       subroutine efgaul( fid, refcoo, gscoo, wg, 
00077      1                   mode_coo, locname, cret)
00078 c
00079       implicit none
00080       save
00081 c      
00082       integer fid,mode_coo,cret
00083       real*8 refcoo(*),gscoo(*),wg(*)
00084       character *(*) locname
00085       integer edfgaul 
00086 c
00087       cret = edfgaul(fid, refcoo, gscoo, wg, 
00088      1     mode_coo, locname, len(locname), cret)
00089 c
00090       return
00091       end
00092 c

Généré le Mon May 16 17:10:22 2011 pour MED fichier par  doxygen 1.6.1