Sample program to demostrate the alchimia module. This module use cuisine problems to demostrate the capacity of the module.
10 integer,
parameter :: ndat=100
11 type(fndsv) :: vfn,myvfn
12 character(len=10),
allocatable:: mybin(:),mybout(:)
13 real,
allocatable :: myin(:,:),myout(:,:)
14 integer :: category,ier
15 CHARACTER(len=512):: a_name
18 call l4f_launcher(a_name,a_name_force=
"volgrid6dtransform")
24 category=l4f_category_get(a_name//
".main")
27 call register_pentolone(vfn)
28 call register_forno(vfn)
30 mybin = [
character(len=10)::
"acqua",
"olio",
"patate",
"sale",
"pollo",
"mais",
"gommosa"]
31 mybout = [
character (len=10) ::
"pole.pata.",
"lesso"]
36 print *,
"I have: ",mybin
37 print *,
"I have to prepare: ",mybout
39 if (.not. oracle(mybin,mybout,vfn,myvfn))
then 40 print*,
"I cannot make ",mybout
42 if (.not. shoppinglist(mybout,vfn,myvfn))
then 43 print*,
" error shoppinglist" 53 print *,
"I need ",myvfn%nout,
" more variables" 55 allocate(myin(ndat,
size(mybin)))
57 allocate(myout(ndat,myvfn%nout))
59 call make(myvfn,mybin,mybout,myin,myout)
62 call l4f_category_delete(category)