fortran take 4