Is there a go-to code formatter for Fortran?

Help
12

One of the reasons I use formats in character strings is because those can
be placed in a module main block and then used by all the procedures in
the module or even made public and accessed via USE. That might be harder to do in an automated fashion, and some want the formats close to the point of use and so might prefer it staying in the procedure; but you cannot put a labeled FORMAT in the main block so if a lot of routines share the same formats you have to duplicate them or put them in an INCLUDE file.

module M_
character(len=*),parameter :: f101='(*(g0,1x))'

contains

subroutine a()
   write(*,f101) 10,20.0,'30'
end subroutine a

subroutine b()
   write(*,f101) 11,22.2,'33'
end subroutine b

end module M_

program useit
use M_, only : a,b
   call a()
   call b()
end program useit