9subroutine 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())
18end subroutine register_pentolone
21subroutine 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)
41type(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)
55subroutine 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)
76type(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)
86end function mescola_def
89subroutine 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)
110type(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)
120end function friggi_def
124subroutine 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)
145type(fnds) function gira_def()
146 call init(gira_def,
"gira",&
147 [
character(len=10) ::
"mais",
"sale"],&
148 [
character(len=10) ::
"broda"],0,func=gira)
This module defines objects and methods for generating derivative variables.
This module defines usefull general purpose function and subroutine.