1 %  DECLARE
2+ ,
2 %identifier description
3 ;

identifier description:

1 identifier
1.1? (-| dimension | )
1 (
1.1+ ,
1.1 identifier
1.1.1? (-| dimension | )
1.1.2 )
2? %attributes

dimension:

1+ ,
1.0? lbound :
1.1 hbound
1+ ,
1 *

attributes:

1! CHARACTER
1?
1 FIXED
2? 
2 EXTERNAL
2! INTERNAL
3? 
3 NOSCAN
3 SCAN
3! RESCAN