ABINIT Discussion Forums

Is abinit-6.8.1/src/16_hideleave/m_optim_dumper.F90 an auto-generated program? I get an error when compiling it.
-----------------------------------------------------------------
ftn -DHAVE_CONFIG_H -I. -I../.. -I../../src/incs -I../../src/incs -ffree-form -J/work/z03/z03/ydsun/queries/q180761_abinit/abinit-6.8.1/src/mods -O2 -mtune=native -march=native -mfpmath=sse -g -ffree-line-length-none -c -o m_optim_dumper.o m_optim_dumper.F90
m_optim_dumper.F90:94.3:

end subroutine dump_optim
1
Error: Expecting END PROGRAM statement at (1)
m_optim_dumper.F90:96.3:

end module m_optim_dumper
1
Error: Expecting END PROGRAM statement at (1)
Error: Unexpected end of file in 'm_optim_dumper.F90'
----------------------------------------------------------------------
The m_optim_dumper.F90 contains duplicate ending lines. I have removed the duplicates by hand.

59 subroutine dump_optim(my_unit)
60
61 use defs_basis
62
63 implicit none
64
65 !Arguments ------------------------------------
66 integer,optional,intent(in) :: my_unit
67
68 !Local variables-------------------------------
69 character(len=500) :: msg
70 integer :: unt
71
72 ! *************************************************************************
73
74 unt = std_out
75 if ( present(my_unit) ) unt = my_unit
76
77 write(msg,"(a,1x,a)") ch10,repeat("+",78)
78 call wrtout(unt,msg,"COLL")
79 write(msg,"(1x,a,a,3x,a,a,a)") "Default optimizations:",ch10, &
80 & "-O2 -mtune=native -march=native -mfpmath=sse",ch10,ch10
81 call wrtout(unt,msg,"COLL")
82
83 write(msg,"(1x,a,a)") repeat("+",78),ch10
84 call wrtout(unt,msg,"COLL")
85
86 end subroutine dump_optim
87
88 end module m_optim_dumper
89 !!***
90
91 write(msg,"(1x,a,a)") repeat("+",78),ch10
92 call wrtout(unt,msg,"COLL")
93
94 end subroutine dump_optim
95
96 end module m_optim_dumper
97 !!***