1       LOGICAL FDEOM
2       character*(8) label_field
3       double precision field_strength
4 
5       COMMON /fdeomstuff/ field_strength,FDEOM,label_field
6