fork(1) download

copy

program vertical
 
implicit none
integer::i,j,m,p,q,r,s,neq,k, nod=2, nodof,ndof=4,t,nels,iel
integer, allocatable::nf(:,:),kdiag(:),loads(:),g(:),num(:),g_g(:,:)
!open(20,file='cubes.dat')
q=2
r=5
allocate(nf(q,r))
nf=1
 
m=0
 
write (*,*) 'Hello' ,nf(1,1),nf(1,2),nf(1,3),nf(1,4),nf(1,5)
write (*,*) 'Hello' ,nf(2,1),nf(2,2),nf(2,3),nf(2,4),nf(2,5)
nf(1,1)=0
nf(1,4)=0
p=UBOUND(nf,dim=1)
s=UBOUND(nf,dim=2)
do j=1,UBOUND (nf,2)
	do i=1,UBOUND(nf,1)
	if(nf(i,j)/=0) then
	m=m+1
	nf(i,j)=m
	endif
	end do
end do
write (*,*) 'nf ', nf(:,5)
neq=MAXVAL(nf)
 
!write (*,*) 'Hello' ,nf(1,1),nf(1,2),nf(1,3),nf(1,4),nf(1,5)
!write (*,*) 'Hello' ,nf(2,1),nf(2,2),nf(2,3),nf(2,4),nf(2,5)
write(*,*) 'Hello',neq
allocate(kdiag(neq))
allocate(loads(0:neq),num(2),g(ndof),g_g(4,4))
kdiag=0
loads=7
write(*,*) 'Hello' , kdiag(6)
write(*,*) 'Hello' , loads(1),loads(2),loads(3),loads(4),loads(7),loads(8)
 
!allocate(num(nod))
nels=4
Do iel=1,nels
 
num=(/iel,iel+1/)
 
!allocate(num(nod))
 nod=UBOUND(num,1)
 
nodof=UBOUND(nf,1)
!nodof=2
elements_1:	DO i=1,nod
 	k=i*nodof
 	 g(k-nodof+1:k)=nf(:,num(i))
!	write (*,*) 'nf (i) and nf(2)', nf(:,num(i)), nf(:,2)
!	write(*,*) 'nod, k, nodof' ,nod,k,nodof
!	write(*,*) 'Num',num(1),num(2)
!	write(*,*) 'hello, g(_:g_)=' ,k-nodof+1,k,g(k-nodof+1),g(k)
 	END DO elements_1
 g_g(:,iel)=g
CALL fkdiag(kdiag,g)
 END DO
write (*,*) 'Hello' ,g_g(1,1),g_g(1,2),g_g(1,3),g_g(1,4)
write (*,*) 'Hello' ,g_g(2,1),g_g(2,2),g_g(2,3),g_g(2,4)
write (*,*) 'Hello' ,g_g(3,1),g_g(3,2),g_g(3,3),g_g(3,4)
write (*,*) 'Hello' ,g_g(4,1),g_g(4,2),g_g(4,3),g_g(4,4)
 
close(20)
end program vertical
 

prog.f95:21:1:

  do i=1,UBOUND(nf,1)
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:22:1:

  if(nf(i,j)/=0) then
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:23:1:

  m=m+1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:24:1:

  nf(i,j)=m
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:25:1:

  endif
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:26:1:

  end do
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:52:12:

 elements_1: DO i=1,nod
            1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:53:2:

   k=i*nodof
  1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:54:2:

    g(k-nodof+1:k)=nf(:,num(i))
  1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:59:2:

   END DO elements_1
  1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:4:51:

 integer::i,j,m,p,q,r,s,neq,k, nod=2, nodof,ndof=4,t,nels,iel
                                                   1
Warning: Unused variable ‘t’ declared at (1) [-Wunused-variable]
/home/JRxaYk/ccZhbjus.o: In function `MAIN__':
prog.f95:(.text+0x1337): undefined reference to `fkdiag_'
collect2: error: ld returned 1 exit status

Standard output is empty