diff --git a/src/title.f90 b/src/title.f90 index 92923a6..4288850 100644 --- a/src/title.f90 +++ b/src/title.f90 @@ -16,7 +16,7 @@ subroutine title(iout) write(iout,"(t3,56('#'),' TOPOLINK ',55('#'))") write(iout,"(t18,a)") 'Institute of Chemistry - University of Campinas. http://m3g.iqm.unicamp.br/topolink' write(iout,*) - write(iout,"(t105,a)") " Version 19.020 " + write(iout,"(t105,a)") " Version 19.032 " write(iout,*) end subroutine title