Unittest_MEDlocalization_3.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 MEDloc3
00023 
00024       implicit none
00025       include 'med.hf'
00026 
00027 
00028       integer cret
00029       integer fid
00030       character*64  fname,lname1,giname1,isname1
00031       character*64  giname,isname
00032       parameter (fname="Unittest_MEDlocalization_1.med")  
00033       integer it,n,nloc
00034       parameter (nloc=1)
00035       parameter (giname1=MED_NO_INTERPOLATION)
00036       parameter (isname1=MED_NO_MESH_SUPPORT)
00037       integer gtype1,sdim1,nip1
00038       integer gtype,sdim,nip
00039       parameter(gtype1=MED_TRIA3)
00040       parameter(sdim1=2)
00041       parameter(nip1=3)
00042       integer sgtype,sgtype1
00043       parameter (sgtype1=MED_UNDEF_GEOTYPE)
00044       integer nsmc, nsmc1
00045       parameter (nsmc1=0)
00046 
00047 
00048 
00049       call mfiope(fid,fname,MED_ACC_RDONLY,cret)
00050       print *,cret
00051       if (cret .ne. 0 ) then
00052          print *,'ERROR : open file'
00053          call efexit(-1)
00054       endif  
00055 
00056 
00057 
00058       call mlcnlc(fid,n,cret)
00059       print *,cret
00060       if ((cret .ne. 0) .or.
00061      &    (n .ne. nloc) )then
00062          print *,'ERROR : number of localization'
00063          call efexit(-1)
00064       endif  
00065 
00066 
00067 
00068       do it=1,n
00069          call mlclci(fid,it,lname1,gtype,sdim,nip,
00070      &               giname,isname,nsmc,sgtype,cret)
00071          print *,cret
00072          if (cret .ne. 0 ) then
00073             print *,'ERROR : read information'
00074             call efexit(-1)
00075          endif  
00076 
00077          if ((gtype .ne. gtype1) .or.
00078      &        (sdim .ne. sdim1) .or.
00079      &        (nip .ne. nip1) .or.
00080      &        (giname .ne. giname1) .or.
00081      &        (isname .ne. isname1) .or.
00082      &        (nsmc .ne. nsmc1) .or.
00083      &        (sgtype .ne. sgtype1) ) then
00084             print *,cret
00085             print *,'ERROR : read information'
00086             call efexit(-1)
00087          endif  
00088       enddo
00089 
00090 
00091 
00092       call mficlo(fid,cret)
00093       print *,cret
00094       if (cret .ne. 0 ) then
00095          print *,'ERROR :  close file'
00096          call efexit(-1)
00097       endif        
00098 
00099 
00100 
00101       end
00102