00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027 program test15
00028
00029 implicit none
00030 include 'med.hf'
00031
00032
00033 integer ret,cret, fid;
00034
00035 integer mdim
00036
00037 character*32 maa
00038 character*200 desc
00039
00040 integer :: nnoe = 0
00041
00042 real*8, allocatable, dimension(:) :: coo
00043
00044
00045 character*16 nomcoo(2)
00046 character*16 unicoo(2)
00047
00048
00049
00050 character*16, allocatable, dimension(:) :: nomnoe
00051 integer, allocatable, dimension(:) :: numnoe,nufano
00052 integer rep
00053 logical inonoe,inunoe
00054 character*16 str
00055 integer i
00056 character*255 argc
00057 integer type
00058
00059 print *,"Indiquez le fichier med a decrire : "
00060
00061 argc = "test14.med"
00062
00063
00064 call efouvr(fid,argc,MED_LECTURE, cret)
00065 print *,cret
00066
00067
00068
00069 if (cret.eq.0) then
00070 call efmaai(fid,1,maa,mdim,type,desc,cret)
00071 print *,"Maillage de nom : ",maa," et de dimension : ",mdim
00072 endif
00073 print *,cret
00074
00075
00076 if (cret.eq.0) then
00077 call efnema(fid,maa,MED_COOR,MED_NOEUD,0,0,nnoe,cret)
00078 print *,"Nombre de noeuds : ",nnoe
00079 endif
00080 print *,cret
00081
00082
00083
00084
00085 allocate (coo(nnoe*mdim),STAT=ret)
00086
00087
00088 allocate (numnoe(nnoe),nufano(nnoe),STAT=ret)
00089
00090
00091 allocate (nomnoe(nnoe),STAT=ret)
00092
00093
00094
00095
00096
00097
00098 if (cret.eq.0) then
00099 call efnoel(fid,maa,mdim,coo,MED_FULL_INTERLACE,rep,nomcoo,unicoo, &
00100 & nomnoe,inonoe,numnoe,inunoe,nufano,nnoe,cret)
00101 endif
00102
00103
00104 if (cret.eq.0) then
00105 print *,"Type de repere : ",rep
00106 print *,"Nom des coordonnees : ",nomcoo
00107
00108 print *,"Unites des coordonnees : ",unicoo
00109
00110 print *,"Coordonnees des noeuds : ",coo
00111
00112 if (inonoe) then
00113 print *,"Noms des noeuds : |",nomnoe,"|"
00114 endif
00115
00116 if (inunoe) then
00117 print *,"Numeros des noeuds : ",numnoe
00118 endif
00119
00120 print *,"Numeros des familles des noeuds : ",nufano
00121 endif
00122
00123
00124 deallocate(coo,nomnoe,numnoe,nufano)
00125
00126
00127 call efferm (fid,cret)
00128 print *,cret
00129
00130
00131 call efexit(cret)
00132
00133 end program test15
00134