| subroutine bla(a,bar,lb,ne,nt,v,b) |
| character*8 lb |
| integer bar(20),foo(8,5) |
| real*8 a(3,*),x(3,8),v(0:3,*) |
| if(lb(4:4).eq.'3') then |
| n=8 |
| elseif(lb(4:5).eq.'10') then |
| n=10 |
| ns=6 |
| m=4 |
| endif |
| call blub(id) |
| do |
| if(id.eq.0) exit |
| if(lb(4:4).eq.'6') then |
| m=1 |
| endif |
| if((n.eq.20).or.(n.eq.8)) then |
| if(b.eq.0) then |
| do i=1,ns |
| do j=1,3 |
| x(j,i)=a(j,bar(foo(i,ig))) |
| enddo |
| enddo |
| else |
| do i=1,ns |
| do j=1,3 |
| x(j,i)=a(j,bar(foo(i,ig)))+v(j,bar(foo(i,ig))) |
| enddo |
| enddo |
| endif |
| endif |
| do i=1,m |
| if(lb(4:5).eq.'1E') then |
| call blab(x) |
| endif |
| enddo |
| enddo |
| end subroutine bla |