1132 |
c --- variables locales |
c --- variables locales |
1133 |
c |
c |
1134 |
#include "mlis3_common.h" |
#include "mlis3_common.h" |
1135 |
logical t_increased |
integer i |
|
integer i,indica,indicd |
|
1136 |
double precision taa,ps |
double precision taa,ps |
1137 |
CML save t_increased,i,indica,indicd,tesf,tesd,tg,fg,fpg,td,ta,fa, |
CML save t_increased,i,indica,indicd,tesf,tesd,tg,fg,fpg,td,ta,fa, |
1138 |
CML & fpa,d2,fn,fp,ffn,fd,fpd,z,test,barmin,barmul,barmax,barr, |
CML & fpa,d2,fn,fp,ffn,fd,fpd,z,test,barmin,barmul,barmax,barr, |