example_alchimia.f03

Sample program to demostrate the alchimia module.

Sample program to demostrate the alchimia module. This module use cuisine problems to demostrate the capacity of the module.

program cucina
 
USE alchimia
USE forno
USE pentolone
USE missing_values
USE log4fortran
 
IMPLICIT NONE
integer, parameter :: ndat=100
type(fndsv) :: vfn,myvfn
character(len=10), allocatable:: mybin(:),mybout(:)
real,allocatable :: myin(:,:),myout(:,:)
TYPE(l4f_handle) :: category
INTEGER :: ier
CHARACTER(len=512):: a_name
 
!questa chiamata prende dal launcher il nome univoco
call l4f_launcher(a_name,a_name_force="volgrid6dtransform")
 
!init di log4fortran
ier=l4f_init()
 
!imposta a_name
category=l4f_category_get_handle(a_name//".main")
 
 
call register_pentolone(vfn)
call register_forno(vfn)
 
mybin  = [character(len=10)::"acqua","olio","patate","sale","pollo","mais","gommosa"]
mybout = [character (len=10) :: "pole.pata.","lesso"]
 
!mybin  = [character(len=10)::"acqua","olio","patate","sale","pollo","mais","gommosa"]
!mybout = [character (len=10) :: "pole.pata.","pane"]
 
print *,"I have:  ",mybin
print *,"I have to prepare:     ",mybout
 
if (.not. oracle(mybin,mybout,vfn,myvfn)) then
  print*, "I cannot make ",mybout
 
  if (.not. shoppinglist(mybout,vfn,myvfn)) then
    print*, " error shoppinglist"
    stop 2
  else
        call display(myvfn)
        call display(compile_sl(myvfn))
    stop 3
  end if
end if
 
call display(myvfn)
print *,"I need ",myvfn%nout," more variables"
 
allocate(myin(ndat,size(mybin)))
myin=1.5
allocate(myout(ndat,myvfn%nout))
myout=rmiss
call make(myvfn,mybin,mybout,myin,myout)
 
                                !chiudo il logger
call l4f_category_delete(category)
ier=l4f_fini()
 
end program cucina