subroutine foo(a) | |
logical bar | |
dimension a(12,2) | |
dimension b(12,8) | |
if(cd .eq. 1) then | |
if (bar) write(iw,*) norb | |
if(ef.ne.1) then | |
do i=1,norb | |
end do | |
end if | |
end if | |
do 400 j = 1,8 | |
b(i,j) = 0 | |
400 continue | |
do 410 j=1,norb | |
a(i,j) = 0 | |
410 continue | |
call rdrsym(b) | |
end |