Fortran 4 door Jeff Broeckx