+ else if(!strncmp(word[0],"sattr",5)) {
+ // for satrib line we need a special stage
+ // containing one schedule of 0 loops ...
+ csp.type=0;
+ for(i=1;i<wcnt;i++) {
+ if(!strncmp(word[i],"pctrl",5)) {
+ csp.ptau=0.01/(atof(word[++i])*GPA);
+ csp.type|=CHSATTR_PCTRL;
+ }
+ if(!strncmp(word[i],"tctrl",5)) {
+ csp.ttau=atof(word[++i]);
+ csp.type|=CHSATTR_TCTRL;
+ }
+ if(!strncmp(word[i],"prelax",6)) {
+ csp.dp=atof(word[++i])*BAR;
+ csp.type|=CHSATTR_PRELAX;
+ }
+ if(!strncmp(word[i],"trelax",6)) {
+ csp.dt=atof(word[++i]);
+ csp.type|=CHSATTR_TRELAX;
+ }
+ if(!strncmp(word[i],"rsteps",6)) {
+ csp.rsteps=atoi(word[++i]);
+ csp.type|=CHSATTR_RSTEPS;
+ }
+ if(!strncmp(word[i],"avgrst",6)) {
+ csp.avgrst=atoi(word[++i]);
+ csp.type|=CHSATTR_AVGRST;
+ }
+ }
+ add_stage(mdrun,STAGE_CHSATTR,&csp);