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)
show on the screen the fnds and fndsv structure
Do the real work to transform the input data to the output.
Global log4fortran constructor.
This module defines objects and methods for generating derivative variables.
classe per la gestione del logging
Definitions of constants and functions for working with missing values.