X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fparmread.F;h=22236bc5c6e5db5c8ce980fa8e15da13e15176d4;hb=0bb81c1c3180a2079d70af7dd534295e1e0b1e4c;hp=bd2165b23f642ff16ffa79e95ece16159a53bb37;hpb=2ec03757b68a8fb1a604a7f84f83086291fc75db;p=unres.git diff --git a/source/unres/src_MD-M/parmread.F b/source/unres/src_MD-M/parmread.F index bd2165b..22236bc 100644 --- a/source/unres/src_MD-M/parmread.F +++ b/source/unres/src_MD-M/parmread.F @@ -591,6 +591,7 @@ C read (itorp,*,end=113,err=113) ntortyp,nterm_old if (lprint)write (iout,*) 'ntortyp,nterm',ntortyp,nterm_old read (itorp,*,end=113,err=113) (itortyp(i),i=1,ntyp) + itortyp(ntyp1)=0 do i=1,ntortyp do j=1,ntortyp read (itorp,'(a)')