Skip to content

Commit

Permalink
change the line of the function 'call print_version' because gfortran…
Browse files Browse the repository at this point in the history
… complains about it.
  • Loading branch information
kousuke-nakano committed Jul 13, 2023
1 parent 2969eee commit 11ae732
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/a_makefort10/makefort10.f90
Original file line number Diff line number Diff line change
Expand Up @@ -110,9 +110,6 @@ program makefort10
logical :: readunpaired, forcesymm
real*8 scale_jasfat

! output version information
call print_version

namelist /system/ natoms, posunits, nxyz, celldm, at, phase, phasedo&
&, pbcfort10, complexfort10, real_contracted&
&, ntyp, rs_read, write_log, axyz, nel_read, L_read, yes_pfaff&
Expand Down Expand Up @@ -151,6 +148,9 @@ program makefort10
stop
end if

! output version information
call print_version

write (*, *)
write (*, *) ' * * * Creates fort.10 for solids and open systems * * * '
write (*, *)
Expand Down

0 comments on commit 11ae732

Please sign in to comment.