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