MED fichier
Unittest_MEDlocalization_3.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2017 EDF R&D, CEA/DEN
4 C* MED is free software: you can redistribute it and/or modify
5 C* it under the terms of the GNU Lesser General Public License as published by
6 C* the Free Software Foundation, either version 3 of the License, or
7 C* (at your option) any later version.
8 C*
9 C* MED is distributed in the hope that it will be useful,
10 C* but WITHOUT ANY WARRANTY; without even the implied warranty of
11 C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 C* GNU Lesser General Public License for more details.
13 C*
14 C* You should have received a copy of the GNU Lesser General Public License
15 C* along with MED. If not, see <http://www.gnu.org/licenses/>.
16 C*
17 
18 C******************************************************************************
19 C * Tests for localization module
20 C *
21 C *****************************************************************************
22  program medloc3
23 C
24  implicit none
25  include 'med.hf'
26 C
27 C
28  integer cret
29  integer fid
30  character*64 fname,lname1,giname1,isname1
31  character*64 giname,isname
32  parameter(fname="Unittest_MEDlocalization_1.med")
33  integer it,n,nloc
34  parameter(nloc=1)
35  parameter(giname1=med_no_interpolation)
36  parameter(isname1=med_no_mesh_support)
37  integer gtype1,sdim1,nip1
38  integer gtype,sdim,nip
39  parameter(gtype1=med_tria3)
40  parameter(sdim1=2)
41  parameter(nip1=3)
42  integer sgtype,sgtype1
43  parameter(sgtype1=med_undef_geotype)
44  integer nsmc, nsmc1
45  parameter(nsmc1=0)
46 C
47 C
48 C open file
49  call mfiope(fid,fname,med_acc_rdonly,cret)
50  print *,cret
51  if (cret .ne. 0 ) then
52  print *,'ERROR : open file'
53  call efexit(-1)
54  endif
55 C
56 C
57 C number of localization
58  call mlcnlc(fid,n,cret)
59  print *,cret
60  if ((cret .ne. 0) .or.
61  & (n .ne. nloc) )then
62  print *,'ERROR : number of localization'
63  call efexit(-1)
64  endif
65 C
66 C
67 C informations bt iteration
68  do it=1,n
69  call mlclci(fid,it,lname1,gtype,sdim,nip,
70  & giname,isname,nsmc,sgtype,cret)
71  print *,cret
72  if (cret .ne. 0 ) then
73  print *,'ERROR : read information'
74  call efexit(-1)
75  endif
76 c
77  if ((gtype .ne. gtype1) .or.
78  & (sdim .ne. sdim1) .or.
79  & (nip .ne. nip1) .or.
80  & (giname .ne. giname1) .or.
81  & (isname .ne. isname1) .or.
82  & (nsmc .ne. nsmc1) .or.
83  & (sgtype .ne. sgtype1) ) then
84  print *,cret
85  print *,'ERROR : read information'
86  call efexit(-1)
87  endif
88  enddo
89 C
90 C
91 C close file
92  call mficlo(fid,cret)
93  print *,cret
94  if (cret .ne. 0 ) then
95  print *,'ERROR : close file'
96  call efexit(-1)
97  endif
98 C
99 C
100 C
101  end
102 
subroutine mlcnlc(fid, n, cret)
Cette routine permet de lire le nombre de localisations de points d'intégration contenues dans un fic...
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
Definition: medfile.f:80
subroutine mlclci(fid, it, lname, gtype, sdim, nip, giname, isname, nsmc, sgtype, cret)
Cette routine permet d'obtenir la description de la localisation de points d'intégration n° localizat...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
Definition: medfile.f:41
program medloc3