double precision fT(6),quot,quotl,kfacl,kfac /2.4d0/,T0 /3.0d2/
double precision tt
integer snk_p(MaxR,MaxT_h,Max_parm)
- integer scount_(MaxProcs)
+ integer scount_(0:MaxProcs)
logical lerr
character*64 bprotfile_temp
call opentmp(islice,ientout,bprotfile_temp)