fix fortran hickup