Sample program to demostrate the alchimia module with vol7d.
7 USE vol7d_alchimia_class
12 type(fndsv) :: vfn,vfnoracle
13 character(len=10),
allocatable:: mybout(:)
15 character(len=255) :: filenamein,filenameout
17 integer :: category,ier
18 character(len=512):: a_name
21 call l4f_launcher(a_name)
27 category=l4f_category_get(a_name)
31 mybout = [
character(len=10) ::
"B12192"]
32 filenamein=
"../data/example_temp.bufr"
33 filenameout=
"../data/tp.bufr"
35 call register_termo(vfn)
37 call init(myin,filename=filenamein, file=.true., categoryappend=
"input")
38 call init(myout,filename=filenameout, file=.true., write=.true., wipe=.true., categoryappend=
"output",template=
"generic")
45 if (alchemy(myin%vol7d,vfn,mybout,myout%vol7d,
copy=.true.,vfnoracle=vfnoracle) /= 0 )
then
46 print*,
"I cannot make ",mybout
48 if (.not. shoppinglist(mybout,vfn,vfnoracle))
then
49 print*,
" error shoppinglist"
52 call
display(compile_sl(vfnoracle))
66 call l4f_category_delete(category)
69 end program alchimiav7d