1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
|
common /mlis3_l/ t_increased |
5 |
|
common /mlis3_i/ indica,indicd |
6 |
common /mlis3_rl/ tesf,tesd,fa,fpa,fn,barmin,barmul,barmax,barr, |
common /mlis3_rl/ tesf,tesd,fa,fpa,fn,barmin,barmul,barmax,barr, |
7 |
& tg,fg,fpg,td,ta,d2,fp,ffn,fd, |
& tg,fg,fpg,td,ta,d2,fp,ffn,fd, |
8 |
& fpd,z,test,gauche,droite |
& fpd,z,test,gauche,droite |
9 |
|
logical t_increased |
10 |
|
integer indica,indicd |
11 |
double precision tesf,tesd,fa,fpa,fn,barmin,barmul,barmax,barr |
double precision tesf,tesd,fa,fpa,fn,barmin,barmul,barmax,barr |
12 |
double precision tg,fg,fpg,td,ta,d2,fp,ffn,fd, |
double precision tg,fg,fpg,td,ta,d2,fp,ffn,fd, |
13 |
& fpd,z,test,gauche,droite |
& fpd,z,test,gauche,droite |