Unittest_MEDlocalization_3.f
Aller à la documentation de ce fichier.00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022 program MEDloc3
00023
00024 implicit none
00025 include 'med.hf'
00026
00027
00028 integer cret
00029 integer fid
00030 character*64 fname,lname1,giname1,isname1
00031 character*64 giname,isname
00032 parameter (fname="Unittest_MEDlocalization_1.med")
00033 integer it,n,nloc
00034 parameter (nloc=1)
00035 parameter (giname1=MED_NO_INTERPOLATION)
00036 parameter (isname1=MED_NO_MESH_SUPPORT)
00037 integer gtype1,sdim1,nip1
00038 integer gtype,sdim,nip
00039 parameter(gtype1=MED_TRIA3)
00040 parameter(sdim1=2)
00041 parameter(nip1=3)
00042 integer sgtype,sgtype1
00043 parameter (sgtype1=MED_UNDEF_GEOTYPE)
00044 integer nsmc, nsmc1
00045 parameter (nsmc1=0)
00046
00047
00048
00049 call mfiope(fid,fname,MED_ACC_RDONLY,cret)
00050 print *,cret
00051 if (cret .ne. 0 ) then
00052 print *,'ERROR : open file'
00053 call efexit(-1)
00054 endif
00055
00056
00057
00058 call mlcnlc(fid,n,cret)
00059 print *,cret
00060 if ((cret .ne. 0) .or.
00061 & (n .ne. nloc) )then
00062 print *,'ERROR : number of localization'
00063 call efexit(-1)
00064 endif
00065
00066
00067
00068 do it=1,n
00069 call mlclci(fid,it,lname1,gtype,sdim,nip,
00070 & giname,isname,nsmc,sgtype,cret)
00071 print *,cret
00072 if (cret .ne. 0 ) then
00073 print *,'ERROR : read information'
00074 call efexit(-1)
00075 endif
00076
00077 if ((gtype .ne. gtype1) .or.
00078 & (sdim .ne. sdim1) .or.
00079 & (nip .ne. nip1) .or.
00080 & (giname .ne. giname1) .or.
00081 & (isname .ne. isname1) .or.
00082 & (nsmc .ne. nsmc1) .or.
00083 & (sgtype .ne. sgtype1) ) then
00084 print *,cret
00085 print *,'ERROR : read information'
00086 call efexit(-1)
00087 endif
00088 enddo
00089
00090
00091
00092 call mficlo(fid,cret)
00093 print *,cret
00094 if (cret .ne. 0 ) then
00095 print *,'ERROR : close file'
00096 call efexit(-1)
00097 endif
00098
00099
00100
00101 end
00102