:78 Function create_function() is deprecated [8192]
Filename | |
---|---|
src/ext/feedforward.f90 |
diff --git a/src/ext/feedforward.f90 b/src/ext/feedforward.f90 index 1813672..a58c4b9 100644 --- a/src/ext/feedforward.f90 +++ b/src/ext/feedforward.f90 @@ -492,18 +492,20 @@ contains !-------------------------------------------------------------! write(*,'(1x,"Total number of weights (incl. bias) : ",I8)') net%Wsize write(*,*) - verbose1 : if (present(verbose) .and. verbose) then - write(*,'(1x,"Weight matrices:")') - write(*,*) - - iw1 = 1 - do ilayer = 1, net%nlayers-1 - iw2 = net%iw(ilayer+1) - call print_mat(reshape(net%W(iw1:iw2), & - (/net%nnodes(ilayer+1),net%nnodes(ilayer)+1/) )) + if (present(verbose)) then + verbose1 : if(verbose) then + write(*,'(1x,"Weight matrices:")') write(*,*) - end do - end if verbose1 + + iw1 = 1 + do ilayer = 1, net%nlayers-1 + iw2 = net%iw(ilayer+1) + call print_mat(reshape(net%W(iw1:iw2), & + (/net%nnodes(ilayer+1),net%nnodes(ilayer)+1/) )) + write(*,*) + end do + end if verbose1 + end if end subroutine ff_print_info