fix in iio_conf

[unres4.git] / source / unres / data / names.F90

diff --git a/source/unres/data/names.F90 b/source/unres/data/names.F90
index c2d8b58..f901fc1 100644 (file)
--- a/source/unres/data/names.F90
+++ b/source/unres/data/names.F90
@@ -15,7 +15,7 @@
 !-----------------------------------------------------------------------------
 !      block data nazwy
 !el      allocate(restyp(-ntyp1:ntyp1))        !(-ntyp1:ntyp1)
-        character(len=3),dimension(-ntyp1:ntyp1,maxmolec) :: restyp = reshape(&
+        character(len=3),dimension(-ntyp1:ntyp1,maxmolec) :: restyp = (&
         (/'DD ','DDX','DDY','DDZ','DAU','DAI','DDB','DSM','DPR','DLY', &
           'DAR','DHI','DAS',&
        'DGL','DSG','DGN','DSN','DTH',&
@@ -29,30 +29,29 @@
        '   ','   ','   ','   ','   ','   ',&
        'A  ','G  ','C  ','T  ','U  ','X  ','   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ','   ','   ','   ',&
+       '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ', &
        '   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ','   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ','   ','   ','   ',&
+       '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ', &
        '   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ','   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ','   ','   ','   ',&
+       '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ', &
        '   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ',&
        'NA+','MG2','K+ ','CA2','CL-','   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ',&
-       '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ',&
-       '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ',&
-       '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ',&
-       '   ','   ','   ','   ','   ','   ','   ','   ','   ','   ',&
        '   ','   ','   ','   ','   ','   ','   ','   ','   ','   '&
-       /),(/ntyp11,maxmolec/))
+       /))
 !el      allocate(onelet(-ntyp1:ntyp1))         !(-ntyp1:ntyp1)
         character(len=1),dimension(-ntyp1:ntyp1) :: onelet = reshape(&
         (/'z','z','z','z','z','z','z','z',&