1 C
2       LOGICAL THRSTA, SKIP
3 C
4       COMMON / CHORST / THRSTR, THRSTA, SKIP
5 
6