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