Unittest_MEDlink_1.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 MEDlink1
00023 
00024       implicit none
00025       include 'med.hf'
00026 
00027 
00028       integer cret
00029       integer fid
00030       character*64 fname
00031       parameter (fname = "Unittest_MEDlink_1.med")
00032       character*64 mname1, mname2,lname1,lname2
00033       parameter(mname1 = "mesh name")
00034       parameter(lname1 = "/local/study1/filename.med")
00035       parameter(mname2 = "second mesh name")
00036       parameter(lname2 = "/local/study2/filename.med")
00037 
00038 
00039 
00040       call mfiope(fid,fname,MED_ACC_CREAT,cret)
00041       print *,'Open file',cret
00042       if (cret .ne. 0 ) then
00043          print *,'ERROR : file creation'
00044          call efexit(-1)
00045       endif 
00046 
00047 
00048 
00049       call mlnliw(fid,mname1,lname1,cret)
00050       print *,'Create a link',cret
00051       if (cret .ne. 0 ) then
00052          print *,'ERROR : link creation'
00053          call efexit(-1)
00054       endif 
00055 
00056       call mlnliw(fid,mname2,lname2,cret)
00057       print *,'Create a link',cret
00058       if (cret .ne. 0 ) then
00059          print *,'ERROR : link creation'
00060          call efexit(-1)
00061       endif 
00062 
00063 
00064 
00065       call mficlo(fid,cret)
00066       print *,'Close file',cret
00067       if (cret .ne. 0 ) then
00068          print *,'ERROR :  close file'
00069          call efexit(-1)
00070       endif  
00071 
00072 
00073 
00074       end
00075