gfortran geomout.F:(.text+0x48df): relocation truncated to fit 2
authorCezary Czaplewski <czarek@chem.univ.gda.pl>
Mon, 16 Mar 2020 01:07:03 +0000 (02:07 +0100)
committerCezary Czaplewski <czarek@chem.univ.gda.pl>
Mon, 16 Mar 2020 01:07:03 +0000 (02:07 +0100)
source/unres/src_MD-M-SAXS-homology/geomout.F

index 0e77f42..09ad28e 100644 (file)
@@ -525,7 +525,7 @@ C          print *,'A CHUJ',potEcomp(23)
           if(itime.eq.0) then
            write(format,'(a1,a4,a1,a4,a10)') "(",format1,",",format2,
      &                                                     ",100a12)"
-           write (istat,format) "#","",
+           write (istat,format) "#"," ",
      &      (ename(print_order(i)),i=1,nprint_ene)
           endif
           write(format,'(a1,a4,a1,a4,a10)') "(",format1,",",format2,