Whoops, forgot how to do fortran if blocks apparently