1 subroutine getmul 2 implicit double precision (a-h,o-z), integer ( i-n) 3 common /rdwr/ iun1,iun2,iun3,iun4,iun5 4 character*137 line 5c Dirk Huckriede got Bug out 25 Nov 93 6 7 call search(line,'distributed multipole analysis module', 8 & istat) 9 do i=1,13 10 call nxtlin(line,jstat) 11 if (jstat.eq.1.or.jstat.eq.2) goto 100 12 13 end do 143 call nxtlin(line,jstat) 15 if (jstat.eq.1.or.jstat.eq.2) goto 100 16 17 if (index(line,'site').ne.0) call site(line) 18 if (index(line,'total multipoles referred to origin').ne.0) 19 & goto 2 20 goto 3 212 continue 22 return 23100 call inferr('DMA: Premature End Of File !',1) 24 end 25