REF: logical statements f90 -> f77
REF: Get rid of assumed-shape arrays