9 subroutine register_pentolone(vfn)
11 type(fndsv),
intent(inout) :: vfn
13 call fnregister(vfn,bolli_def())
14 call fnregister(vfn,mescola_def())
15 call fnregister(vfn,friggi_def())
16 call fnregister(vfn,gira_def())
18 end subroutine register_pentolone
21 subroutine bolli(mybin,mybout,bin,bout,in,out)
22 CHARACTER(len=10),
intent(in) :: mybin(:)
23 CHARACTER(len=10),
intent(in) :: mybout(:)
24 CHARACTER(len=10),
intent(in) :: bin(:)
25 CHARACTER(len=10),
intent(in) :: bout(:)
26 real,
intent(in) :: in(:,:)
27 real,
intent(out) :: out(:,:)
31 if (index_c(mybin,bin(i)) == 0) print *,
"not in bin : ",bin(i)
34 if (index_c(mybout,bout(i)) == 0) print *,
"not in bout: ",bout(i)
41 type(fnds
) function bolli_def()
47 call
init(bolli_def,
"bolli",&
48 [
character(len=10) ::
"pollo",
"gommosa"],&
49 [
character(len=10) ::
"brodo",
"lesso"],0,func=bolli)
52 end function bolli_def
55 subroutine mescola(mybin,mybout,bin,bout,in,out)
56 CHARACTER(len=10),
intent(in) :: mybin(:)
57 CHARACTER(len=10),
intent(in) :: mybout(:)
58 CHARACTER(len=10),
intent(in) :: bin(:)
59 CHARACTER(len=10),
intent(in) :: bout(:)
60 real,
intent(in) :: in(:,:)
61 real,
intent(out) :: out(:,:)
65 if (index_c(mybin,bin(i)) == 0) print *,
"not in bin : ",bin(i)
68 if (index_c(mybout,bout(i)) == 0) print *,
"not in bout: ",bout(i)
73 end subroutine mescola
76 type(fnds
) function mescola_def()
78 call
init(mescola_def,
"mescola",&
79 [
character(len=10) ::
"mais",
"sale",
"acqua"],&
80 [
character(len=10) ::
"polenta",
"sudore"],0,func=mescola)
86 end function mescola_def
89 subroutine friggi(mybin,mybout,bin,bout,in,out)
90 CHARACTER(len=10),
intent(in) :: mybin(:)
91 CHARACTER(len=10),
intent(in) :: mybout(:)
92 CHARACTER(len=10),
intent(in) :: bin(:)
93 CHARACTER(len=10),
intent(in) :: bout(:)
94 real,
intent(in) :: in(:,:)
95 real,
intent(out) :: out(:,:)
99 if (index_c(mybin,bin(i)) == 0) print *,
"not in bin : ",bin(i)
102 if (index_c(mybout,bout(i)) == 0) print *,
"not in bout: ",bout(i)
107 end subroutine friggi
110 type(fnds
) function friggi_def()
112 call
init(friggi_def,
"friggi",&
113 [
character(len=10) ::
"olio",
"polenta"],&
114 [
character(len=10) ::
"pole.frit."],0,func=friggi)
120 end function friggi_def
124 subroutine gira(mybin,mybout,bin,bout,in,out)
125 CHARACTER(len=10),
intent(in) :: mybin(:)
126 CHARACTER(len=10),
intent(in) :: mybout(:)
127 CHARACTER(len=10),
intent(in) :: bin(:)
128 CHARACTER(len=10),
intent(in) :: bout(:)
129 real,
intent(in) :: in(:,:)
130 real,
intent(out) :: out(:,:)
134 if (index_c(mybin,bin(i)) == 0) print *,
"not in bin : ",bin(i)
137 if (index_c(mybout,bout(i)) == 0) print *,
"not in bout: ",bout(i)
145 type(fnds
) function gira_def()
146 call
init(gira_def,
"gira",&
147 [
character(len=10) ::
"mais",
"sale"],&
148 [
character(len=10) ::
"broda"],0,func=gira)
155 end function gira_def
Vector of function to transform the input to alchimia module.
Costruttori per le classi datetime e timedelta.
This module defines objects and methods for generating derivative variables.
This module defines usefull general purpose function and subroutine.