- read (isidep,*,end=116,err=116)(sigma0(i),i=1,ntyp)
- read (isidep,*,end=116,err=116)(sigii(i),i=1,ntyp)
- read (isidep,*,end=116,err=116)(chip(i),i=1,ntyp)
- read (isidep,*,end=116,err=116)(alp(i),i=1,ntyp)
+ read (isidep,*,end=117,err=117)(sigma0(i),i=1,ntyp)
+ read (isidep,*,end=117,err=117)(sigii(i),i=1,ntyp)
+ read (isidep,*,end=117,err=117)(chip(i),i=1,ntyp)
+ read (isidep,*,end=117,err=117)(alp(i),i=1,ntyp)