Unittest_MEDparameter_2.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 MEDparameter2
00023 
00024       implicit none
00025       include 'med.hf'
00026 
00027 
00028       integer cret
00029       integer fid
00030       character*64 fname
00031       parameter (fname = "Unittest_MEDparameter_1.med")
00032       character*64 pname1,pname2,pname
00033       parameter (pname1="first parameter name") 
00034       parameter (pname2="second parameter name") 
00035       integer type1,type2,type
00036       parameter (type1=MED_FLOAT64, type2=MED_INT)
00037       character*200 desc1,desc2,desc
00038       parameter (desc1="First parameter description")
00039       parameter (desc2="Second parameter description")
00040       character*16 dtunit1,dtunit2,dtunit
00041       parameter (dtunit1="unit1")
00042       parameter (dtunit2="unit2")
00043       integer nstep1,nstep2,nstep
00044       parameter (nstep1=2,nstep2=2)
00045 
00046 
00047 
00048       call mfiope(fid,fname,MED_ACC_RDONLY,cret)
00049       print *,'Open file',cret
00050       if (cret .ne. 0 ) then
00051          print *,'ERROR : open file'
00052          call efexit(-1)
00053       endif 
00054 
00055 
00056 
00057       call mprpin(fid,pname1,type,desc,dtunit,
00058      &            nstep,cret)
00059       print *,'read information',cret
00060       if (cret .ne. 0 ) then
00061          print *,'ERROR : read information'
00062          call efexit(-1)
00063       endif 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075       call mprpin(fid,pname2,type,desc,dtunit,
00076      &            nstep,cret)
00077       print *,'read information',cret
00078       if (cret .ne. 0 ) then
00079          print *,'ERROR : read information'
00080         call efexit(-1)
00081       endif 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093       call mficlo(fid,cret)
00094       print *,'Close file',cret
00095       if (cret .ne. 0 ) then
00096          print *,'ERROR :  close file'
00097          call efexit(-1)
00098       endif  
00099 
00100 
00101 
00102       end