1 implicit real*8 (a-h,o-z)
2 character*16 wname(100)
5 double precision weight(100),weightp(100),wspan(100),wlb(100)
10 read(*,*,end=10,err=10) wname(i),weight(i),wspan(i),wlb(i)
11 print *,"i",i," wname ",wname(i)," weight",weight(i)
15 write (*,'("Weight set",i3,t80,"&")') i
18 bound_l = weight(j)-wspan(j)
19 if (bound_l.lt.wlb(j)) bound_l=wlb(j)
20 bound_r = weight(j)+wspan(j)
21 weightp(j)=ran_number(bound_l,bound_r)
23 il=il+ilen(wname(j))+9
25 write (*,'(a,$)') (' ',k=1,79-ill)
27 write(*,'(a,1h=,f7.5," ",$)') wname(j)(:ilen(wname(j))),
31 write(*,'(a,1h=,f7.5," ",$)') wname(j)(:ilen(wname(j))),