:78 Function create_function() is deprecated [8192]

Break if statement to avoid accessing optional argument.

Bruno Mundim [2017-01-02 21:04:04]
Break if statement to avoid accessing optional argument.
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
ViewGit