blob: d3a3943b59fc3565876fcd9bc9539c3fcda9c269 [file] [log] [blame]
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