fortran state updated