rotate molecule fortran