gauss.f

Aller à la documentation de ce fichier.
00001 C*  This file is part of MED.
00002 C*
00003 C*  COPYRIGHT (C) 1999 - 2015  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     DEC$ ATTRIBUTES DLLEXPORT :: efngau
00020 c
00021       implicit none
00022       save
00023 c
00024       integer fid, n, cret
00025       integer edfngau
00026 c
00027       n = edfngau(fid)
00028 
00029       if (n.lt.0) then
00030          cret = -1
00031       else
00032          cret = 0
00033       endif
00034 c
00035       return
00036       end
00037 c
00038 c
00039 c
00040       subroutine efgaui( fid , indice , locname, typgeo, ngauss , cret)
00041 c     DEC$ ATTRIBUTES DLLEXPORT :: efgaui
00042 c
00043       implicit none
00044       save
00045 c
00046       integer fid,indice,typgeo,ngauss,cret
00047       character *(*) locname
00048       integer edfgaui
00049 c
00050       locname = ' ' 
00051 c
00052       cret = edfgaui (fid,indice,locname,typgeo,ngauss)
00053 c     
00054       return
00055       end
00056 c
00057 c
00058 c
00059       subroutine efgaue( fid, typgeo, refcoo, mode_coo, ngauss,
00060      1                  gscoo, wg, locname,cret)
00061 c     DEC$ ATTRIBUTES DLLEXPORT :: efgaue
00062 c
00063       implicit none
00064       save
00065 c      
00066       integer fid,typgeo,mode_coo,ngauss,cret
00067       real*8 refcoo(*),gscoo(*),wg(*)
00068       character *(*) locname
00069       integer edfgaue
00070 c
00071       cret = edfgaue( fid, typgeo, refcoo, mode_coo, ngauss,
00072      1                gscoo, wg, locname,len(locname))
00073 c
00074       return
00075       end
00076 c
00077 c
00078 c
00079       subroutine efgaul( fid, refcoo, gscoo, wg, 
00080      1                   mode_coo, locname, cret)
00081 c     DEC$ ATTRIBUTES DLLEXPORT :: efgaul
00082 c
00083       implicit none
00084       save
00085 c      
00086       integer fid,mode_coo,cret
00087       real*8 refcoo(*),gscoo(*),wg(*)
00088       character *(*) locname
00089       integer edfgaul 
00090 c
00091       cret = edfgaul(fid, refcoo, gscoo, wg, 
00092      1     mode_coo, locname, len(locname), cret)
00093 c
00094       return
00095       end
00096 c

Généré le Thu Oct 8 14:26:16 2015 pour MED fichier par  doxygen 1.6.1