00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022 program MEDloc1
00023
00024 implicit none
00025 include 'med.hf'
00026
00027
00028 integer cret
00029 integer fid
00030 character*64 fname,lname,giname,isname
00031 parameter (fname = "Unittest_MEDlocalization_1.med")
00032 parameter (lname = "Localization name")
00033 parameter (giname=MED_NO_INTERPOLATION)
00034 parameter (isname=MED_NO_MESH_SUPPORT)
00035 integer gtype,sdim,nip
00036 parameter(gtype=MED_TRIA3)
00037 parameter(sdim=2)
00038 parameter(nip=3)
00039 real*8 ecoo(6), ipcoo(6), wght(3)
00040 data ecoo / 0.0, 0.0, 1.0, 0.0, 0.0,1.0 /
00041 data ipcoo / 0.166666, 0.166666, 0.66666, 0.166666,
00042 & 0.166666, 0.666666 /
00043 data wght / 0.166666, 0.166666, 0.166666 /
00044
00045
00046
00047 call mfiope(fid,fname,MED_ACC_CREAT,cret)
00048 print *,'Open file',cret
00049 if (cret .ne. 0 ) then
00050 print *,'ERROR : file creation'
00051 call efexit(-1)
00052 endif
00053
00054
00055
00056 call mlclow(fid,lname,gtype,sdim,ecoo,MED_FULL_INTERLACE,
00057 & nip,ipcoo, wght, giname, isname, cret)
00058 print *,'localization creation',cret
00059 if (cret .ne. 0 ) then
00060 print *,'ERROR : localization creation'
00061 call efexit(-1)
00062 endif
00063
00064
00065
00066 call mficlo(fid,cret)
00067 print *,'Close file',cret
00068 if (cret .ne. 0 ) then
00069 print *,'ERROR : close file'
00070 call efexit(-1)
00071 endif
00072
00073
00074
00075 end
00076