Back to Multiple platform build/check report for BioC 3.20:   simplified   long
ABCDEFGH[I]JKLMNOPQRSTUVWXYZ

This page was generated on 2024-12-23 12:07 -0500 (Mon, 23 Dec 2024).

HostnameOSArch (*)R versionInstalled pkgs
nebbiolo2Linux (Ubuntu 24.04.1 LTS)x86_644.4.2 (2024-10-31) -- "Pile of Leaves" 4744
palomino8Windows Server 2022 Datacenterx644.4.2 (2024-10-31 ucrt) -- "Pile of Leaves" 4487
merida1macOS 12.7.5 Montereyx86_644.4.2 (2024-10-31) -- "Pile of Leaves" 4515
kjohnson1macOS 13.6.6 Venturaarm644.4.2 (2024-10-31) -- "Pile of Leaves" 4467
Click on any hostname to see more info about the system (e.g. compilers)      (*) as reported by 'uname -p', except on Windows and Mac OS X

Package 1001/2289HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
iClusterPlus 1.42.0  (landing page)
Qianxing Mo , Ronglai Shen
Snapshot Date: 2024-12-19 13:00 -0500 (Thu, 19 Dec 2024)
git_url: https://git.bioconductor.org/packages/iClusterPlus
git_branch: RELEASE_3_20
git_last_commit: 4070647
git_last_commit_date: 2024-10-29 09:49:53 -0500 (Tue, 29 Oct 2024)
nebbiolo2Linux (Ubuntu 24.04.1 LTS) / x86_64  OK    OK    OK  UNNEEDED, same version is already published
palomino8Windows Server 2022 Datacenter / x64  OK    OK    OK    OK  UNNEEDED, same version is already published
merida1macOS 12.7.5 Monterey / x86_64  OK    OK    OK    OK  UNNEEDED, same version is already published
kjohnson1macOS 13.6.6 Ventura / arm64  OK    OK    OK    OK  UNNEEDED, same version is already published


INSTALL results for iClusterPlus on kjohnson1

To the developers/maintainers of the iClusterPlus package:
- Allow up to 24 hours (and sometimes 48 hours) for your latest push to git@git.bioconductor.org:packages/iClusterPlus.git to reflect on this report. See Troubleshooting Build Report for more information.
- Use the following Renviron settings to reproduce errors and warnings.
- If 'R CMD check' started to fail recently on the Linux builder(s) over a missing dependency, add the missing dependency to 'Suggests:' in your DESCRIPTION file. See Renviron.bioc for more information.

raw results


Summary

Package: iClusterPlus
Version: 1.42.0
Command: /Library/Frameworks/R.framework/Resources/bin/R CMD INSTALL iClusterPlus
StartedAt: 2024-12-19 15:13:49 -0500 (Thu, 19 Dec 2024)
EndedAt: 2024-12-19 15:14:23 -0500 (Thu, 19 Dec 2024)
EllapsedTime: 34.6 seconds
RetCode: 0
Status:   OK  

Command output

##############################################################################
##############################################################################
###
### Running command:
###
###   /Library/Frameworks/R.framework/Resources/bin/R CMD INSTALL iClusterPlus
###
##############################################################################
##############################################################################


* installing to library ‘/Library/Frameworks/R.framework/Versions/4.4-arm64/Resources/library’
* installing *source* package ‘iClusterPlus’ ...
** using staged installation
 This package has only been tested with gfortran.
 So some checks are needed.
 R_HOME is /Library/Frameworks/R.framework/Resources
Attempting to determine R_ARCH...
R_ARCH is 
Attempting to detect how R was configured for Fortran 90....
  R configured for gfortran; Good!
configure: creating ./config.status
config.status: creating src/Makevars
** libs
using C compiler: ‘Apple clang version 15.0.0 (clang-1500.0.40.1)’
using Fortran compiler: ‘GNU Fortran (GCC) 12.2.0’
using SDK: ‘MacOSX11.3.sdk’
clang -arch arm64 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG   -I/opt/R/arm64/include    -fPIC  -falign-functions=64 -Wall -g -O2  -c iClusterBayes.c -o iClusterBayes.o
iClusterBayes.c:1218:20: warning: variable 'Zburnin' set but not used [-Wunused-but-set-variable]
  int i,j,h,n,k,ID,Zburnin,Zdraw,ndt,nk,thin,nthin,remainder,ty0,p0,ty1,p1,ty2,p2,ty3,p3,ty4,p4,ty5,p5,betaBurnin,betaDraw,p0k,p1k,p2k,p3k,p4k,p5k;
                   ^
iClusterBayes.c:1218:28: warning: variable 'Zdraw' set but not used [-Wunused-but-set-variable]
  int i,j,h,n,k,ID,Zburnin,Zdraw,ndt,nk,thin,nthin,remainder,ty0,p0,ty1,p1,ty2,p2,ty3,p3,ty4,p4,ty5,p5,betaBurnin,betaDraw,p0k,p1k,p2k,p3k,p4k,p5k;
                           ^
2 warnings generated.
clang -arch arm64 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG   -I/opt/R/arm64/include    -fPIC  -falign-functions=64 -Wall -g -O2  -c iClusterPlus.c -o iClusterPlus.o
/opt/gfortran/bin/gfortran -arch arm64 -fdefault-real-8 -ffixed-form -fPIC  -Wall -g -O2  -c  newGLMnet.f90 -o newGLMnet.o
newGLMnet.f90:519:72:

  519 |       subroutine elnet  (ka,parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam    609
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:521:72:

  521 |       real x(no,ni),y(no),w(no),vp(ni),ca(nx,nlam)                          610
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:522:72:

  522 |       real ulam(nlam),a0(nlam),rsq(nlam),alm(nlam)                          611
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:523:72:

  523 |       integer jd(*),ia(nx),nin(nlam)                                        612
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:525:72:

  525 |       if(maxval(vp) .gt. 0.0)goto 10021                                     615
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:526:72:

  526 |       jerr=10000                                                            615
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:527:72:

  527 |       return                                                                615
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:528:72:

  528 | 10021 continue                                                              616
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:529:72:

  529 |       allocate(vq(1:ni),stat=jerr)                                          616
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:530:72:

  530 |       if(jerr.ne.0) return                                                  617
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:531:72:

  531 |       vq=max(0.0,vp)                                                        617
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:532:72:

  532 |       vq=vq*ni/sum(vq)                                                      618
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:533:72:

  533 |       if(ka .ne. 1)goto 10041                                               619
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:534:72:

  534 |       call elnetu  (parm,no,ni,x,y,w,jd,vq,ne,nx,nlam,flmin,ulam,thr,isd    622
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:536:72:

  536 |       goto 10051                                                            623
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:537:72:

  537 | 10041 continue                                                              624
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:538:72:

  538 |       call elnetn (parm,no,ni,x,y,w,jd,vq,ne,nx,nlam,flmin,ulam,thr,isd,    627
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:540:72:

  540 | 10051 continue                                                              628
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:541:72:

  541 | 10031 continue                                                              628
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:542:72:

  542 |       deallocate(vq)                                                        629
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:543:72:

  543 |       return                                                                630
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:544:72:

  544 |       end                                                                   631
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:545:72:

  545 |       subroutine elnetu  (parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam,t    634
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:547:72:

  547 |       real x(no,ni),y(no),w(no),vp(ni),ulam(nlam)                           635
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:548:72:

  548 |       real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                         636
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:549:72:

  549 |       integer jd(*),ia(nx),nin(nlam)                                        637
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:552:72:

  552 |       allocate(g(1:ni),stat=jerr)                                           642
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:553:72:

  553 |       allocate(xm(1:ni),stat=ierr)                                          642
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:554:72:

  554 |       jerr=jerr+ierr                                                        643
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:555:72:

  555 |       allocate(xs(1:ni),stat=ierr)                                          643
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:556:72:

  556 |       jerr=jerr+ierr                                                        644
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:557:72:

  557 |       allocate(ju(1:ni),stat=ierr)                                          644
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:558:72:

  558 |       jerr=jerr+ierr                                                        645
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:559:72:

  559 |       allocate(xv(1:ni),stat=ierr)                                          645
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:560:72:

  560 |       jerr=jerr+ierr                                                        646
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:561:72:

  561 |       allocate(vlam(1:nlam),stat=ierr)                                      646
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:562:72:

  562 |       jerr=jerr+ierr                                                        647
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:563:72:

  563 |       if(jerr.ne.0) return                                                  648
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:564:72:

  564 |       call chkvars(no,ni,x,ju)                                              649
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:565:72:

  565 |       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                  650
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:566:72:

  566 |       if(maxval(ju) .gt. 0)goto 10071                                       650
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:567:72:

  567 |       jerr=7777                                                             650
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:568:72:

  568 |       return                                                                650
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:569:72:

  569 | 10071 continue                                                              651
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:570:72:

  570 |       call standard(no,ni,x,y,w,isd,ju,g,xm,xs,ym,ys,xv,jerr)               652
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:571:72:

  571 |       if(jerr.ne.0) return                                                  653
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:572:72:

  572 |       if(flmin.ge.1.0) vlam=ulam/ys                                         654
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:573:72:

  573 |       call elnet1(parm,ni,ju,vp,g,no,ne,nx,x,nlam,flmin,vlam,thr,maxit,x    656
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:575:72:

  575 |       if(jerr.gt.0) return                                                  657
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:576:72:

  576 | 10080 do 10081 k=1,lmu                                                      657
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:577:72:

  577 |       alm(k)=ys*alm(k)                                                      657
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:578:72:

  578 |       nk=nin(k)                                                             658
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:579:72:

  579 | 10090 do 10091 l=1,nk                                                       658
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:580:72:

  580 |       ca(l,k)=ys*ca(l,k)/xs(ia(l))                                          658
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:581:72:

  581 | 10091 continue                                                              659
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:582:72:

  582 | 10092 continue                                                              659
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:583:72:

  583 |       a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))                         660
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:584:72:

  584 | 10081 continue                                                              661
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:585:72:

  585 | 10082 continue                                                              661
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:586:72:

  586 |       deallocate(xm,xs,g,ju,xv,vlam)                                        662
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:587:72:

  587 |       return                                                                663
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:588:72:

  588 |       end                                                                   664
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:589:72:

  589 |       subroutine standard (no,ni,x,y,w,isd,ju,g,xm,xs,ym,ys,xv,jerr)        665
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:590:72:

  590 |       real x(no,ni),y(no),w(no),g(ni),xm(ni),xs(ni),xv(ni)                  665
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:591:72:

  591 |       integer ju(ni)                                                        666
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:593:72:

  593 |       allocate(v(1:no),stat=jerr)                                           669
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:594:72:

  594 |       if(jerr.ne.0) return                                                  670
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:595:72:

  595 |       w=w/sum(w)                                                            670
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:596:72:

  596 |       v=sqrt(w)                                                             671
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:597:72:

  597 | 10100 do 10101 j=1,ni                                                       671
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:598:72:

  598 |       if(ju(j).eq.0)goto 10101                                              672
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:599:72:

  599 |       xm(j)=dot_product(w,x(:,j))                                           672
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:600:72:

  600 |       x(:,j)=v*(x(:,j)-xm(j))                                               673
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:601:72:

  601 |       xv(j)=dot_product(x(:,j),x(:,j))                                      673
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:602:72:

  602 |       if(isd.gt.0) xs(j)=sqrt(xv(j))                                        674
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:603:72:

  603 | 10101 continue                                                              675
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:604:72:

  604 | 10102 continue                                                              675
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:605:72:

  605 |       if(isd .ne. 0)goto 10121                                              675
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:606:72:

  606 |       xs=1.0                                                                675
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:607:72:

  607 |       goto 10131                                                            676
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:608:72:

  608 | 10121 continue                                                              677
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:609:72:

  609 | 10140 do 10141 j=1,ni                                                       677
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:610:72:

  610 |       if(ju(j).eq.0)goto 10141                                              677
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:611:72:

  611 |       x(:,j)=x(:,j)/xs(j)                                                   677
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:612:72:

  612 | 10141 continue                                                              678
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:613:72:

  613 | 10142 continue                                                              678
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:614:72:

  614 |       xv=1.0                                                                679
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:615:72:

  615 | 10131 continue                                                              680
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:616:72:

  616 | 10111 continue                                                              680
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:617:72:

  617 |       ym=dot_product(w,y)                                                   680
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:618:72:

  618 |       y=v*(y-ym)                                                            680
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:619:72:

  619 |       ys=sqrt(dot_product(y,y))                                             680
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:620:72:

  620 |       y=y/ys                                                                680
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:621:72:

  621 |       g=0.0                                                                 681
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:622:72:

  622 | 10150 do 10151 j=1,ni                                                       681
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:623:72:

  623 |       if(ju(j).ne.0) g(j)=dot_product(y,x(:,j))                             681
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:624:72:

  624 | 10151 continue                                                              682
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:625:72:

  625 | 10152 continue                                                              682
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:626:72:

  626 |       deallocate(v)                                                         683
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:627:72:

  627 |       return                                                                684
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:628:72:

  628 |       end                                                                   685
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:629:72:

  629 |       subroutine elnet1 (beta,ni,ju,vp,g,no,ne,nx,x,nlam,flmin,ulam,thr,    687
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:631:72:

  631 |       parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99    688
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:633:72:

  633 |       real vp(ni),g(ni),x(no,ni),ulam(nlam),ao(nx,nlam),rsqo(nlam),almo(    689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:635:72:

  635 |       integer ju(ni),ia(nx),kin(nlam)                                       690
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:640:72:

  640 |       allocate(a(1:ni),stat=ierr)                                           696
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:641:72:

  641 |       jerr=jerr+ierr                                                        697
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:642:72:

  642 |       allocate(mm(1:ni),stat=ierr)                                          697
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:643:72:

  643 |       jerr=jerr+ierr                                                        698
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:644:72:

  644 |       allocate(da(1:ni),stat=ierr)                                          698
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:645:72:

  645 |       jerr=jerr+ierr                                                        699
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:646:72:

  646 |       if(jerr.ne.0) return                                                  700
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:647:72:

  647 |       bta=beta                                                              700
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:648:72:

  648 |       omb=1.0-bta                                                           701
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:649:72:

  649 |       if(flmin .ge. 1.0)goto 10171                                          701
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:650:72:

  650 |       eqs=max(eps,flmin)                                                    701
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:651:72:

  651 |       alf=eqs**(1.0/(nlam-1))                                               701
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:652:72:

  652 | 10171 continue                                                              702
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:653:72:

  653 |       rsq=0.0                                                               702
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:654:72:

  654 |       a=0.0                                                                 702
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:655:72:

  655 |       mm=0                                                                  702
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:656:72:

  656 |       nlp=0                                                                 702
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:657:72:

  657 |       nin=nlp                                                               702
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:658:72:

  658 |       iz=0                                                                  702
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:659:72:

  659 |       mnl=min(mnlam,nlam)                                                   703
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:660:72:

  660 | 10180 do 10181 m=1,nlam                                                     704
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:661:72:

  661 |       if(flmin .lt. 1.0)goto 10201                                          704
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:662:72:

  662 |       alm=ulam(m)                                                           704
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:663:72:

  663 |       goto 10191                                                            705
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:664:72:

  664 | 10201 if(m .le. 2)goto 10211                                                705
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:665:72:

  665 |       alm=alm*alf                                                           705
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:666:72:

  666 |       goto 10191                                                            706
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:667:72:

  667 | 10211 if(m .ne. 1)goto 10221                                                706
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:668:72:

  668 |       alm=big                                                               706
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:669:72:

  669 |       goto 10231                                                            707
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:670:72:

  670 | 10221 continue                                                              707
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:671:72:

  671 |       alm=0.0                                                               708
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:672:72:

  672 | 10240 do 10241 j=1,ni                                                       708
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:673:72:

  673 |       if(ju(j).eq.0)goto 10241                                              708
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:674:72:

  674 |       if(vp(j).le.0.0)goto 10241                                            709
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:675:72:

  675 |       alm=max(alm,abs(g(j))/vp(j))                                          710
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:676:72:

  676 | 10241 continue                                                              711
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:677:72:

  677 | 10242 continue                                                              711
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:678:72:

  678 |       alm=alf*alm/max(bta,1.0e-3)                                           712
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:679:72:

  679 | 10231 continue                                                              713
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:680:72:

  680 | 10191 continue                                                              713
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:681:72:

  681 |       dem=alm*omb                                                           713
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:682:72:

  682 |       ab=alm*bta                                                            713
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:683:72:

  683 |       rsq0=rsq                                                              713
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:684:72:

  684 |       jz=1                                                                  714
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:685:72:

  685 | 10250 continue                                                              714
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:686:72:

  686 | 10251 continue                                                              714
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:687:72:

  687 |       if(iz*jz.ne.0) go to 10260                                            714
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:688:72:

  688 |       nlp=nlp+1                                                             714
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:689:72:

  689 |       dlx=0.0                                                               715
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:690:72:

  690 | 10270 do 10271 k=1,ni                                                       715
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:691:72:

  691 |       if(ju(k).eq.0)goto 10271                                              716
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:692:72:

  692 |       ak=a(k)                                                               716
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:693:72:

  693 |       u=g(k)+ak*xv(k)                                                       716
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:694:72:

  694 |       v=abs(u)-vp(k)*ab                                                     716
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:695:72:

  695 |       a(k)=0.0                                                              717
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:696:72:

  696 |       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                         718
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:697:72:

  697 |       if(a(k).eq.ak)goto 10271                                              719
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:698:72:

  698 |       if(mm(k) .ne. 0)goto 10291                                            719
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:699:72:

  699 |       nin=nin+1                                                             719
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:700:72:

  700 |       if(nin.gt.nx)goto 10272                                               720
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:701:72:

  701 | 10300 do 10301 j=1,ni                                                       720
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:702:72:

  702 |       if(ju(j).eq.0)goto 10301                                              721
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:703:72:

  703 |       if(mm(j) .eq. 0)goto 10321                                            721
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:704:72:

  704 |       c(j,nin)=c(k,mm(j))                                                   721
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:705:72:

  705 |       goto 10301                                                            721
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:706:72:

  706 | 10321 continue                                                              722
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:707:72:

  707 |       if(j .ne. k)goto 10341                                                722
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:708:72:

  708 |       c(j,nin)=xv(j)                                                        722
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:709:72:

  709 |       goto 10301                                                            722
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:710:72:

  710 | 10341 continue                                                              723
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:711:72:

  711 |       c(j,nin)=dot_product(x(:,j),x(:,k))                                   724
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:712:72:

  712 | 10301 continue                                                              725
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:713:72:

  713 | 10302 continue                                                              725
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:714:72:

  714 |       mm(k)=nin                                                             725
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:715:72:

  715 |       ia(nin)=k                                                             726
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:716:72:

  716 | 10291 continue                                                              727
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:717:72:

  717 |       del=a(k)-ak                                                           727
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:718:72:

  718 |       rsq=rsq+del*(2.0*g(k)-del*xv(k))                                      728
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:719:72:

  719 |       dlx=max(xv(k)*del**2,dlx)                                             729
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:720:72:

  720 | 10350 do 10351 j=1,ni                                                       729
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:721:72:

  721 |       if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del                               729
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:722:72:

  722 | 10351 continue                                                              730
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:723:72:

  723 | 10352 continue                                                              730
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:724:72:

  724 | 10271 continue                                                              731
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:725:72:

  725 | 10272 continue                                                              731
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:726:72:

  726 |       if(dlx.lt.thr)goto 10252                                              731
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:727:72:

  727 |       if(nin.gt.nx)goto 10252                                               732
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:728:72:

  728 |       if(nlp .le. maxit)goto 10371                                          732
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:729:72:

  729 |       jerr=-m                                                               732
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:730:72:

  730 |       return                                                                732
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:731:72:

  731 | 10371 continue                                                              733
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:732:72:

  732 | 10260 continue                                                              733
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:733:72:

  733 |       iz=1                                                                  733
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:734:72:

  734 |       da(1:nin)=a(ia(1:nin))                                                734
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:735:72:

  735 | 10380 continue                                                              734
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:736:72:

  736 | 10381 continue                                                              734
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:737:72:

  737 |       nlp=nlp+1                                                             734
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:738:72:

  738 |       dlx=0.0                                                               735
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:739:72:

  739 | 10390 do 10391 l=1,nin                                                      735
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:740:72:

  740 |       k=ia(l)                                                               735
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:741:72:

  741 |       ak=a(k)                                                               735
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:742:72:

  742 |       u=g(k)+ak*xv(k)                                                       735
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:743:72:

  743 |       v=abs(u)-vp(k)*ab                                                     736
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:744:72:

  744 |       a(k)=0.0                                                              737
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:745:72:

  745 |       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                         738
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:746:72:

  746 |       if(a(k).eq.ak)goto 10391                                              739
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:747:72:

  747 |       del=a(k)-ak                                                           739
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:748:72:

  748 |       rsq=rsq+del*(2.0*g(k)-del*xv(k))                                      740
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:749:72:

  749 |       dlx=max(xv(k)*del**2,dlx)                                             741
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:750:72:

  750 | 10400 do 10401 j=1,nin                                                      741
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:751:72:

  751 |       g(ia(j))=g(ia(j))-c(ia(j),mm(k))*del                                  741
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:752:72:

  752 | 10401 continue                                                              742
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:753:72:

  753 | 10402 continue                                                              742
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:754:72:

  754 | 10391 continue                                                              743
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:755:72:

  755 | 10392 continue                                                              743
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:756:72:

  756 |       if(dlx.lt.thr)goto 10382                                              743
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:757:72:

  757 |       if(nlp .le. maxit)goto 10421                                          743
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:758:72:

  758 |       jerr=-m                                                               743
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:759:72:

  759 |       return                                                                743
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:760:72:

  760 | 10421 continue                                                              744
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:761:72:

  761 |       goto 10381                                                            745
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:762:72:

  762 | 10382 continue                                                              745
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:763:72:

  763 |       da(1:nin)=a(ia(1:nin))-da(1:nin)                                      746
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:764:72:

  764 | 10430 do 10431 j=1,ni                                                       746
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:765:72:

  765 |       if(mm(j).ne.0)goto 10431                                              747
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:766:72:

  766 |       if(ju(j).ne.0) g(j)=g(j)-dot_product(da(1:nin),c(j,1:nin))            748
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:767:72:

  767 | 10431 continue                                                              749
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:768:72:

  768 | 10432 continue                                                              749
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:769:72:

  769 |       jz=0                                                                  750
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:770:72:

  770 |       goto 10251                                                            751
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:771:72:

  771 | 10252 continue                                                              751
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:772:72:

  772 |       if(nin .le. nx)goto 10451                                             751
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:773:72:

  773 |       jerr=-10000-m                                                         751
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:774:72:

  774 |       goto 10182                                                            751
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:775:72:

  775 | 10451 continue                                                              752
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:776:72:

  776 |       if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))                                 752
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:777:72:

  777 |       kin(m)=nin                                                            753
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:778:72:

  778 |       rsqo(m)=rsq                                                           753
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:779:72:

  779 |       almo(m)=alm                                                           753
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:780:72:

  780 |       lmu=m                                                                 754
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:781:72:

  781 |       if(m.lt.mnl)goto 10181                                                754
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:782:72:

  782 |       if(flmin.ge.1.0)goto 10181                                            755
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:783:72:

  783 |       me=0                                                                  755
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:784:72:

  784 | 10460 do 10461 j=1,nin                                                      755
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:785:72:

  785 |       if(ao(j,m).ne.0.0) me=me+1                                            755
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:786:72:

  786 | 10461 continue                                                              755
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:787:72:

  787 | 10462 continue                                                              755
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:788:72:

  788 |       if(me.gt.ne)goto 10182                                                756
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:789:72:

  789 |       if(rsq-rsq0.lt.sml*rsq)goto 10182                                     756
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:790:72:

  790 |       if(rsq.gt.rsqmax)goto 10182                                           757
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:791:72:

  791 | 10181 continue                                                              758
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:792:72:

  792 | 10182 continue                                                              758
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:793:72:

  793 |       deallocate(a,mm,c,da)                                                 759
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:794:72:

  794 |       return                                                                760
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:795:72:

  795 |       end                                                                   761
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:796:72:

  796 |       subroutine elnetn (parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam,th    763
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:798:72:

  798 |       real vp(ni),x(no,ni),y(no),w(no),ulam(nlam)                           764
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:799:72:

  799 |       real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                         765
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:800:72:

  800 |       integer jd(*),ia(nx),nin(nlam)                                        766
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:803:72:

  803 |       allocate(xm(1:ni),stat=jerr)                                          771
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:804:72:

  804 |       allocate(xs(1:ni),stat=ierr)                                          771
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:805:72:

  805 |       jerr=jerr+ierr                                                        772
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:806:72:

  806 |       allocate(ju(1:ni),stat=ierr)                                          772
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:807:72:

  807 |       jerr=jerr+ierr                                                        773
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:808:72:

  808 |       allocate(xv(1:ni),stat=ierr)                                          773
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:809:72:

  809 |       jerr=jerr+ierr                                                        774
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:810:72:

  810 |       allocate(vlam(1:nlam),stat=ierr)                                      774
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:811:72:

  811 |       jerr=jerr+ierr                                                        775
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:812:72:

  812 |       if(jerr.ne.0) return                                                  776
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:813:72:

  813 |       call chkvars(no,ni,x,ju)                                              777
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:814:72:

  814 |       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                  778
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:815:72:

  815 |       if(maxval(ju) .gt. 0)goto 10481                                       778
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:816:72:

  816 |       jerr=7777                                                             778
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:817:72:

  817 |       return                                                                778
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:818:72:

  818 | 10481 continue                                                              779
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:819:72:

  819 |       call standard1(no,ni,x,y,w,isd,ju,xm,xs,ym,ys,xv,jerr)                780
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:820:72:

  820 |       if(jerr.ne.0) return                                                  781
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:821:72:

  821 |       if(flmin.ge.1.0) vlam=ulam/ys                                         782
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:822:72:

  822 |       call elnet2(parm,ni,ju,vp,y,no,ne,nx,x,nlam,flmin,vlam,thr,maxit,x    784
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:824:72:

  824 |       if(jerr.gt.0) return                                                  785
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:825:72:

  825 | 10490 do 10491 k=1,lmu                                                      785
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:826:72:

  826 |       alm(k)=ys*alm(k)                                                      785
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:827:72:

  827 |       nk=nin(k)                                                             786
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:828:72:

  828 | 10500 do 10501 l=1,nk                                                       786
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:829:72:

  829 |       ca(l,k)=ys*ca(l,k)/xs(ia(l))                                          786
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:830:72:

  830 | 10501 continue                                                              787
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:831:72:

  831 | 10502 continue                                                              787
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:832:72:

  832 |       a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))                         788
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:833:72:

  833 | 10491 continue                                                              789
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:834:72:

  834 | 10492 continue                                                              789
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:835:72:

  835 |       deallocate(xm,xs,ju,xv,vlam)                                          790
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:836:72:

  836 |       return                                                                791
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:837:72:

  837 |       end                                                                   792
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:838:72:

  838 |       subroutine standard1 (no,ni,x,y,w,isd,ju,xm,xs,ym,ys,xv,jerr)         793
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:839:72:

  839 |       real x(no,ni),y(no),w(no),xm(ni),xs(ni),xv(ni)                        793
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:840:72:

  840 |       integer ju(ni)                                                        794
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:842:72:

  842 |       allocate(v(1:no),stat=jerr)                                           797
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:843:72:

  843 |       if(jerr.ne.0) return                                                  798
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:844:72:

  844 |       w=w/sum(w)                                                            798
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:845:72:

  845 |       v=sqrt(w)                                                             799
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:846:72:

  846 | 10510 do 10511 j=1,ni                                                       799
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:847:72:

  847 |       if(ju(j).eq.0)goto 10511                                              800
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:848:72:

  848 |       xm(j)=dot_product(w,x(:,j))                                           800
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:849:72:

  849 |       x(:,j)=v*(x(:,j)-xm(j))                                               801
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:850:72:

  850 |       xv(j)=dot_product(x(:,j),x(:,j))                                      801
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:851:72:

  851 |       if(isd.gt.0) xs(j)=sqrt(xv(j))                                        802
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:852:72:

  852 | 10511 continue                                                              803
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:853:72:

  853 | 10512 continue                                                              803
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:854:72:

  854 |       if(isd .ne. 0)goto 10531                                              803
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:855:72:

  855 |       xs=1.0                                                                803
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:856:72:

  856 |       goto 10541                                                            804
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:857:72:

  857 | 10531 continue                                                              804
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:858:72:

  858 | 10550 do 10551 j=1,ni                                                       804
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:859:72:

  859 |       if(ju(j).eq.0)goto 10551                                              804
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:860:72:

  860 |       x(:,j)=x(:,j)/xs(j)                                                   804
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:861:72:

  861 | 10551 continue                                                              805
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:862:72:

  862 | 10552 continue                                                              805
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:863:72:

  863 |       xv=1.0                                                                806
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:864:72:

  864 | 10541 continue                                                              807
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:865:72:

  865 | 10521 continue                                                              807
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:866:72:

  866 |       ym=dot_product(w,y)                                                   807
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:867:72:

  867 |       y=v*(y-ym)                                                            807
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:868:72:

  868 |       ys=sqrt(dot_product(y,y))                                             807
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:869:72:

  869 |       y=y/ys                                                                808
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:870:72:

  870 |       deallocate(v)                                                         809
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:871:72:

  871 |       return                                                                810
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:872:72:

  872 |       end                                                                   811
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:873:72:

  873 |       subroutine elnet2(beta,ni,ju,vp,y,no,ne,nx,x,nlam,flmin,ulam,thr,m    813
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:875:72:

  875 |       parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99    814
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:877:72:

  877 |       real vp(ni),y(no),x(no,ni),ulam(nlam),ao(nx,nlam),rsqo(nlam),almo(    815
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:879:72:

  879 |       integer ju(ni),ia(nx),kin(nlam)                                       816
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:882:72:

  882 |       allocate(a(1:ni),stat=jerr)                                           821
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:883:72:

  883 |       allocate(mm(1:ni),stat=ierr)                                          821
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:884:72:

  884 |       jerr=jerr+ierr                                                        822
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:885:72:

  885 |       allocate(g(1:ni),stat=ierr)                                           822
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:886:72:

  886 |       jerr=jerr+ierr                                                        823
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:887:72:

  887 |       allocate(ix(1:ni),stat=ierr)                                          823
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:888:72:

  888 |       jerr=jerr+ierr                                                        824
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:889:72:

  889 |       if(jerr.ne.0) return                                                  825
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:890:72:

  890 |       bta=beta                                                              825
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:891:72:

  891 |       omb=1.0-bta                                                           825
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:892:72:

  892 |       ix=0                                                                  826
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:893:72:

  893 |       if(flmin .ge. 1.0)goto 10571                                          826
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:894:72:

  894 |       eqs=max(eps,flmin)                                                    826
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:895:72:

  895 |       alf=eqs**(1.0/(nlam-1))                                               826
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:896:72:

  896 | 10571 continue                                                              827
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:897:72:

  897 |       rsq=0.0                                                               827
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:898:72:

  898 |       a=0.0                                                                 827
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:899:72:

  899 |       mm=0                                                                  827
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:900:72:

  900 |       nlp=0                                                                 827
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:901:72:

  901 |       nin=nlp                                                               827
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:902:72:

  902 |       iz=0                                                                  827
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:903:72:

  903 |       mnl=min(mnlam,nlam)                                                   827
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:904:72:

  904 |       alm=0.0                                                               828
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:905:72:

  905 | 10580 do 10581 j=1,ni                                                       828
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:906:72:

  906 |       if(ju(j).eq.0)goto 10581                                              828
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:907:72:

  907 |       g(j)=abs(dot_product(y,x(:,j)))                                       828
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:908:72:

  908 | 10581 continue                                                              829
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:909:72:

  909 | 10582 continue                                                              829
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:910:72:

  910 | 10590 do 10591 m=1,nlam                                                     829
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:911:72:

  911 |       alm0=alm                                                              830
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:912:72:

  912 |       if(flmin .lt. 1.0)goto 10611                                          830
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:913:72:

  913 |       alm=ulam(m)                                                           830
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:914:72:

  914 |       goto 10601                                                            831
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:915:72:

  915 | 10611 if(m .le. 2)goto 10621                                                831
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:916:72:

  916 |       alm=alm*alf                                                           831
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:917:72:

  917 |       goto 10601                                                            832
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:918:72:

  918 | 10621 if(m .ne. 1)goto 10631                                                832
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:919:72:

  919 |       alm=big                                                               832
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:920:72:

  920 |       goto 10641                                                            833
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:921:72:

  921 | 10631 continue                                                              833
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:922:72:

  922 |       alm0=0.0                                                              834
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:923:72:

  923 | 10650 do 10651 j=1,ni                                                       834
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:924:72:

  924 |       if(ju(j).eq.0)goto 10651                                              834
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:925:72:

  925 |       if(vp(j).gt.0.0) alm0=max(alm0,g(j)/vp(j))                            834
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:926:72:

  926 | 10651 continue                                                              835
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:927:72:

  927 | 10652 continue                                                              835
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:928:72:

  928 |       alm0=alm0/max(bta,1.0e-3)                                             835
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:929:72:

  929 |       alm=alf*alm0                                                          836
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:930:72:

  930 | 10641 continue                                                              837
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:931:72:

  931 | 10601 continue                                                              837
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:932:72:

  932 |       dem=alm*omb                                                           837
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:933:72:

  933 |       ab=alm*bta                                                            837
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:934:72:

  934 |       rsq0=rsq                                                              837
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:935:72:

  935 |       jz=1                                                                  838
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:936:72:

  936 |       tlam=bta*(2.0*alm-alm0)                                               839
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:937:72:

  937 | 10660 do 10661 k=1,ni                                                       839
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:938:72:

  938 |       if(ix(k).eq.1)goto 10661                                              839
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:939:72:

  939 |       if(ju(k).eq.0)goto 10661                                              840
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:940:72:

  940 |       if(g(k).gt.tlam*vp(k)) ix(k)=1                                        841
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:941:72:

  941 | 10661 continue                                                              842
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:942:72:

  942 | 10662 continue                                                              842
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:943:72:

  943 | 10670 continue                                                              842
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:944:72:

  944 | 10671 continue                                                              842
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:945:72:

  945 |       if(iz*jz.ne.0) go to 10260                                            843
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:946:72:

  946 | 10680 continue                                                              843
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:947:72:

  947 |       nlp=nlp+1                                                             843
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:948:72:

  948 |       dlx=0.0                                                               844
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:949:72:

  949 | 10690 do 10691 k=1,ni                                                       844
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:950:72:

  950 |       if(ix(k).eq.0)goto 10691                                              844
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:951:72:

  951 |       gk=dot_product(y,x(:,k))                                              845
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:952:72:

  952 |       ak=a(k)                                                               845
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:953:72:

  953 |       u=gk+ak*xv(k)                                                         845
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:954:72:

  954 |       v=abs(u)-vp(k)*ab                                                     845
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:955:72:

  955 |       a(k)=0.0                                                              846
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:956:72:

  956 |       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                         847
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:957:72:

  957 |       if(a(k).eq.ak)goto 10691                                              848
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:958:72:

  958 |       if(mm(k) .ne. 0)goto 10711                                            848
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:959:72:

  959 |       nin=nin+1                                                             848
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:960:72:

  960 |       if(nin.gt.nx)goto 10692                                               849
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:961:72:

  961 |       mm(k)=nin                                                             849
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:962:72:

  962 |       ia(nin)=k                                                             850
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:963:72:

  963 | 10711 continue                                                              851
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:964:72:

  964 |       del=a(k)-ak                                                           851
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:965:72:

  965 |       rsq=rsq+del*(2.0*gk-del*xv(k))                                        852
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:966:72:

  966 |       y=y-del*x(:,k)                                                        852
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:967:72:

  967 |       dlx=max(xv(k)*del**2,dlx)                                             853
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:968:72:

  968 | 10691 continue                                                              854
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:969:72:

  969 | 10692 continue                                                              854
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:970:72:

  970 |       if(nin.gt.nx)goto 10672                                               855
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:971:72:

  971 |       if(dlx .ge. thr)goto 10731                                            855
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:972:72:

  972 |       ixx=0                                                                 856
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:973:72:

  973 | 10740 do 10741 k=1,ni                                                       856
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:974:72:

  974 |       if(ix(k).eq.1)goto 10741                                              856
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:975:72:

  975 |       if(ju(k).eq.0)goto 10741                                              857
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:976:72:

  976 |       g(k)=abs(dot_product(y,x(:,k)))                                       858
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:977:72:

  977 |       if(g(k) .le. ab*vp(k))goto 10761                                      858
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:978:72:

  978 |       ix(k)=1                                                               858
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:979:72:

  979 |       ixx=1                                                                 858
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:980:72:

  980 | 10761 continue                                                              859
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:981:72:

  981 | 10741 continue                                                              860
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:982:72:

  982 | 10742 continue                                                              860
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:983:72:

  983 |       if(ixx.eq.1) go to 10680                                              861
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:984:72:

  984 |       goto 10672                                                            862
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:985:72:

  985 | 10731 continue                                                              863
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:986:72:

  986 |       if(nlp .le. maxit)goto 10781                                          863
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:987:72:

  987 |       jerr=-m                                                               863
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:988:72:

  988 |       return                                                                863
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:989:72:

  989 | 10781 continue                                                              864
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:990:72:

  990 | 10260 continue                                                              864
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:991:72:

  991 |       iz=1                                                                  865
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:992:72:

  992 | 10790 continue                                                              865
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:993:72:

  993 | 10791 continue                                                              865
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:994:72:

  994 |       nlp=nlp+1                                                             865
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:995:72:

  995 |       dlx=0.0                                                               866
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:996:72:

  996 | 10800 do 10801 l=1,nin                                                      866
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:997:72:

  997 |       k=ia(l)                                                               866
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:998:72:

  998 |       gk=dot_product(y,x(:,k))                                              867
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:999:72:

  999 |       ak=a(k)                                                               867
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1000:72:

 1000 |       u=gk+ak*xv(k)                                                         867
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1001:72:

 1001 |       v=abs(u)-vp(k)*ab                                                     867
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1002:72:

 1002 |       a(k)=0.0                                                              868
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1003:72:

 1003 |       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                         869
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1004:72:

 1004 |       if(a(k).eq.ak)goto 10801                                              870
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1005:72:

 1005 |       del=a(k)-ak                                                           870
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1006:72:

 1006 |       rsq=rsq+del*(2.0*gk-del*xv(k))                                        871
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1007:72:

 1007 |       y=y-del*x(:,k)                                                        871
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1008:72:

 1008 |       dlx=max(xv(k)*del**2,dlx)                                             872
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1009:72:

 1009 | 10801 continue                                                              873
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1010:72:

 1010 | 10802 continue                                                              873
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1011:72:

 1011 |       if(dlx.lt.thr)goto 10792                                              873
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1012:72:

 1012 |       if(nlp .le. maxit)goto 10821                                          873
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1013:72:

 1013 |       jerr=-m                                                               873
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1014:72:

 1014 |       return                                                                873
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1015:72:

 1015 | 10821 continue                                                              874
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1016:72:

 1016 |       goto 10791                                                            875
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1017:72:

 1017 | 10792 continue                                                              875
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1018:72:

 1018 |       jz=0                                                                  876
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1019:72:

 1019 |       goto 10671                                                            877
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1020:72:

 1020 | 10672 continue                                                              877
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1021:72:

 1021 |       if(nin .le. nx)goto 10841                                             877
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1022:72:

 1022 |       jerr=-10000-m                                                         877
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1023:72:

 1023 |       goto 10592                                                            877
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1024:72:

 1024 | 10841 continue                                                              878
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1025:72:

 1025 |       if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))                                 878
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1026:72:

 1026 |       kin(m)=nin                                                            879
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1027:72:

 1027 |       rsqo(m)=rsq                                                           879
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1028:72:

 1028 |       almo(m)=alm                                                           879
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1029:72:

 1029 |       lmu=m                                                                 880
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1030:72:

 1030 |       if(m.lt.mnl)goto 10591                                                880
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1031:72:

 1031 |       if(flmin.ge.1.0)goto 10591                                            881
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1032:72:

 1032 |       me=0                                                                  881
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1033:72:

 1033 | 10850 do 10851 j=1,nin                                                      881
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1034:72:

 1034 |       if(ao(j,m).ne.0.0) me=me+1                                            881
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1035:72:

 1035 | 10851 continue                                                              881
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1036:72:

 1036 | 10852 continue                                                              881
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1037:72:

 1037 |       if(me.gt.ne)goto 10592                                                882
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1038:72:

 1038 |       if(rsq-rsq0.lt.sml*rsq)goto 10592                                     882
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1039:72:

 1039 |       if(rsq.gt.rsqmax)goto 10592                                           883
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1040:72:

 1040 | 10591 continue                                                              884
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1041:72:

 1041 | 10592 continue                                                              884
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1042:72:

 1042 |       deallocate(a,mm,g,ix)                                                 885
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1043:72:

 1043 |       return                                                                886
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1044:72:

 1044 |       end                                                                   887
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1045:72:

 1045 |       subroutine chkvars(no,ni,x,ju)                                        888
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1046:72:

 1046 |       real x(no,ni)                                                         888
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1047:72:

 1047 |       integer ju(ni)                                                        889
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1048:72:

 1048 | 10860 do 10861 j=1,ni                                                       889
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1049:72:

 1049 |       ju(j)=0                                                               889
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1050:72:

 1050 |       t=x(1,j)                                                              890
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1051:72:

 1051 | 10870 do 10871 i=2,no                                                       890
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1052:72:

 1052 |       if(x(i,j).eq.t)goto 10871                                             890
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1053:72:

 1053 |       ju(j)=1                                                               890
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1054:72:

 1054 |       goto 10872                                                            890
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1055:72:

 1055 | 10871 continue                                                              891
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1056:72:

 1056 | 10872 continue                                                              891
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1057:72:

 1057 | 10861 continue                                                              892
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1058:72:

 1058 | 10862 continue                                                              892
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1059:72:

 1059 |       return                                                                893
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1060:72:

 1060 |       end                                                                   894
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1061:72:

 1061 |       subroutine uncomp(ni,ca,ia,nin,a)                                     895
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1062:72:

 1062 |       real ca(*),a(ni)                                                      895
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1063:72:

 1063 |       integer ia(*)                                                         896
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1064:72:

 1064 |       a=0.0                                                                 896
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1065:72:

 1065 |       if(nin.gt.0) a(ia(1:nin))=ca(1:nin)                                   897
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1066:72:

 1066 |       return                                                                898
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1067:72:

 1067 |       end                                                                   899
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1068:72:

 1068 |       subroutine modval(a0,ca,ia,nin,n,x,f)                                 900
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1069:72:

 1069 |       real ca(nin),x(n,*),f(n)                                              900
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1070:72:

 1070 |       integer ia(nin)                                                       901
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1071:72:

 1071 |       f=a0                                                                  901
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1072:72:

 1072 |       if(nin.le.0) return                                                   902
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1073:72:

 1073 | 10880 do 10881 i=1,n                                                        902
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1074:72:

 1074 |       f(i)=f(i)+dot_product(ca(1:nin),x(i,ia(1:nin)))                       902
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1075:72:

 1075 | 10881 continue                                                              903
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1076:72:

 1076 | 10882 continue                                                              903
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1077:72:

 1077 |       return                                                                904
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1078:72:

 1078 |       end                                                                   905
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1079:72:

 1079 |       subroutine spelnet  (ka,parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,fl    908
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1081:72:

 1081 |       real x(*),y(no),w(no),vp(ni),ulam(nlam)                               909
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1082:72:

 1082 |       real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                         910
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1083:72:

 1083 |       integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                            911
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1085:72:

 1085 |       if(maxval(vp) .gt. 0.0)goto 10901                                     914
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1086:72:

 1086 |       jerr=10000                                                            914
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1087:72:

 1087 |       return                                                                914
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1088:72:

 1088 | 10901 continue                                                              915
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1089:72:

 1089 |       allocate(vq(1:ni),stat=jerr)                                          915
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1090:72:

 1090 |       if(jerr.ne.0) return                                                  916
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1091:72:

 1091 |       vq=max(0.0,vp)                                                        916
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1092:72:

 1092 |       vq=vq*ni/sum(vq)                                                      917
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1093:72:

 1093 |       if(ka .ne. 1)goto 10921                                               918
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1094:72:

 1094 |       call spelnetu  (parm,no,ni,x,ix,jx,y,w,jd,vq,ne,nx,nlam,flmin,ulam    921
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1096:72:

 1096 |       goto 10931                                                            922
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1097:72:

 1097 | 10921 continue                                                              923
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1098:72:

 1098 |       call spelnetn (parm,no,ni,x,ix,jx,y,w,jd,vq,ne,nx,nlam,flmin,ulam,    926
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1100:72:

 1100 | 10931 continue                                                              927
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1101:72:

 1101 | 10911 continue                                                              927
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1102:72:

 1102 |       deallocate(vq)                                                        928
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1103:72:

 1103 |       return                                                                929
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1104:72:

 1104 |       end                                                                   930
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1105:72:

 1105 |       subroutine spelnetu  (parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,flmi    933
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1107:72:

 1107 |       real x(*),y(no),w(no),vp(ni),ulam(nlam)                               934
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1108:72:

 1108 |       real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                         935
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1109:72:

 1109 |       integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                            936
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1112:72:

 1112 |       allocate(g(1:ni),stat=jerr)                                           941
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1113:72:

 1113 |       allocate(xm(1:ni),stat=ierr)                                          941
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1114:72:

 1114 |       jerr=jerr+ierr                                                        942
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1115:72:

 1115 |       allocate(xs(1:ni),stat=ierr)                                          942
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1116:72:

 1116 |       jerr=jerr+ierr                                                        943
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1117:72:

 1117 |       allocate(ju(1:ni),stat=ierr)                                          943
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1118:72:

 1118 |       jerr=jerr+ierr                                                        944
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1119:72:

 1119 |       allocate(xv(1:ni),stat=ierr)                                          944
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1120:72:

 1120 |       jerr=jerr+ierr                                                        945
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1121:72:

 1121 |       allocate(vlam(1:nlam),stat=ierr)                                      945
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1122:72:

 1122 |       jerr=jerr+ierr                                                        946
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1123:72:

 1123 |       if(jerr.ne.0) return                                                  947
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1124:72:

 1124 |       call spchkvars(no,ni,x,ix,ju)                                         948
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1125:72:

 1125 |       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                  949
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1126:72:

 1126 |       if(maxval(ju) .gt. 0)goto 10951                                       949
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1127:72:

 1127 |       jerr=7777                                                             949
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1128:72:

 1128 |       return                                                                949
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1129:72:

 1129 | 10951 continue                                                              950
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1130:72:

 1130 |       call spstandard(no,ni,x,ix,jx,y,w,ju,isd,g,xm,xs,ym,ys,xv,jerr)       951
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1131:72:

 1131 |       if(jerr.ne.0) return                                                  952
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1132:72:

 1132 |       if(flmin.ge.1.0) vlam=ulam/ys                                         953
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1133:72:

 1133 |       call spelnet1(parm,ni,g,no,w,ne,nx,x,ix,jx,ju,vp,nlam,flmin,vlam,t    955
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1135:72:

 1135 |       if(jerr.gt.0) return                                                  956
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1136:72:

 1136 | 10960 do 10961 k=1,lmu                                                      956
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1137:72:

 1137 |       alm(k)=ys*alm(k)                                                      956
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1138:72:

 1138 |       nk=nin(k)                                                             957
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1139:72:

 1139 | 10970 do 10971 l=1,nk                                                       957
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1140:72:

 1140 |       ca(l,k)=ys*ca(l,k)/xs(ia(l))                                          957
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1141:72:

 1141 | 10971 continue                                                              958
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1142:72:

 1142 | 10972 continue                                                              958
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1143:72:

 1143 |       a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))                         959
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1144:72:

 1144 | 10961 continue                                                              960
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1145:72:

 1145 | 10962 continue                                                              960
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1146:72:

 1146 |       deallocate(xm,xs,g,ju,xv,vlam)                                        961
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1147:72:

 1147 |       return                                                                962
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1148:72:

 1148 |       end                                                                   963
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1149:72:

 1149 |       subroutine spstandard (no,ni,x,ix,jx,y,w,ju,isd,g,xm,xs,ym,ys,xv,j    964
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1151:72:

 1151 |       real x(*),y(no),w(no),g(ni),xm(ni),xs(ni),xv(ni)                      964
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1152:72:

 1152 |       integer ix(*),jx(*),ju(ni)                                            965
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1153:72:

 1153 |       w=w/sum(w)                                                            966
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1154:72:

 1154 | 10980 do 10981 j=1,ni                                                       966
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1155:72:

 1155 |       if(ju(j).eq.0)goto 10981                                              967
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1156:72:

 1156 |       jb=ix(j)                                                              967
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1157:72:

 1157 |       je=ix(j+1)-1                                                          967
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1158:72:

 1158 |       xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                              968
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1159:72:

 1159 |       xv(j)=dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j)**2                  969
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1160:72:

 1160 |       if(isd.gt.0) xs(j)=sqrt(xv(j))                                        970
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1161:72:

 1161 | 10981 continue                                                              971
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1162:72:

 1162 | 10982 continue                                                              971
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1163:72:

 1163 |       if(isd .ne. 0)goto 11001                                              971
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1164:72:

 1164 |       xs=1.0                                                                971
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1165:72:

 1165 |       goto 11011                                                            971
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1166:72:

 1166 | 11001 continue                                                              971
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1167:72:

 1167 |       xv=1.0                                                                971
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1168:72:

 1168 | 11011 continue                                                              972
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1169:72:

 1169 | 10991 continue                                                              972
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1170:72:

 1170 |       ym=dot_product(w,y)                                                   972
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1171:72:

 1171 |       y=y-ym                                                                972
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1172:72:

 1172 |       ys=sqrt(dot_product(w,y**2))                                          972
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1173:72:

 1173 |       y=y/ys                                                                972
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1174:72:

 1174 |       g=0.0                                                                 973
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1175:72:

 1175 | 11020 do 11021 j=1,ni                                                       973
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1176:72:

 1176 |       if(ju(j).eq.0)goto 11021                                              973
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1177:72:

 1177 |       jb=ix(j)                                                              973
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1178:72:

 1178 |       je=ix(j+1)-1                                                          974
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1179:72:

 1179 |       g(j)=dot_product(w(jx(jb:je))*y(jx(jb:je)),x(jb:je))/xs(j)            975
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1180:72:

 1180 | 11021 continue                                                              976
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1181:72:

 1181 | 11022 continue                                                              976
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1182:72:

 1182 |       return                                                                977
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1183:72:

 1183 |       end                                                                   978
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1184:72:

 1184 |       subroutine spelnet1(beta,ni,g,no,w,ne,nx,x,ix,jx,ju,vp,nlam,flmin,    980
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1186:72:

 1186 |       parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99    981
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1188:72:

 1188 |       real g(ni),vp(ni),x(*),ulam(nlam),w(no)                               982
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1189:72:

 1189 |       real ao(nx,nlam),rsqo(nlam),almo(nlam),xm(ni),xs(ni),xv(ni)           983
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1190:72:

 1190 |       integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam)                           984
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1195:72:

 1195 |       allocate(a(1:ni),stat=ierr)                                           990
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1196:72:

 1196 |       jerr=jerr+ierr                                                        991
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1197:72:

 1197 |       allocate(mm(1:ni),stat=ierr)                                          991
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1198:72:

 1198 |       jerr=jerr+ierr                                                        992
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1199:72:

 1199 |       allocate(da(1:ni),stat=ierr)                                          992
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1200:72:

 1200 |       jerr=jerr+ierr                                                        993
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1201:72:

 1201 |       if(jerr.ne.0) return                                                  994
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1202:72:

 1202 |       bta=beta                                                              994
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1203:72:

 1203 |       omb=1.0-bta                                                           995
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1204:72:

 1204 |       if(flmin .ge. 1.0)goto 11041                                          995
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1205:72:

 1205 |       eqs=max(eps,flmin)                                                    995
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1206:72:

 1206 |       alf=eqs**(1.0/(nlam-1))                                               995
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1207:72:

 1207 | 11041 continue                                                              996
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1208:72:

 1208 |       rsq=0.0                                                               996
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1209:72:

 1209 |       a=0.0                                                                 996
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1210:72:

 1210 |       mm=0                                                                  996
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1211:72:

 1211 |       nlp=0                                                                 996
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1212:72:

 1212 |       nin=nlp                                                               996
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1213:72:

 1213 |       iz=0                                                                  996
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1214:72:

 1214 |       mnl=min(mnlam,nlam)                                                   997
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1215:72:

 1215 | 11050 do 11051 m=1,nlam                                                     998
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1216:72:

 1216 |       if(flmin .lt. 1.0)goto 11071                                          998
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1217:72:

 1217 |       alm=ulam(m)                                                           998
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1218:72:

 1218 |       goto 11061                                                            999
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1219:72:

 1219 | 11071 if(m .le. 2)goto 11081                                                999
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1220:72:

 1220 |       alm=alm*alf                                                           999
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1221:72:

 1221 |       goto 11061                                                           1000
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1222:72:

 1222 | 11081 if(m .ne. 1)goto 11091                                               1000
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1223:72:

 1223 |       alm=big                                                              1000
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1224:72:

 1224 |       goto 11101                                                           1001
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1225:72:

 1225 | 11091 continue                                                             1001
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1226:72:

 1226 |       alm=0.0                                                              1002
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1227:72:

 1227 | 11110 do 11111 j=1,ni                                                      1002
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1228:72:

 1228 |       if(ju(j).eq.0)goto 11111                                             1002
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1229:72:

 1229 |       if(vp(j).le.0.0)goto 11111                                           1003
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1230:72:

 1230 |       alm=max(alm,abs(g(j))/vp(j))                                         1004
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1231:72:

 1231 | 11111 continue                                                             1005
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1232:72:

 1232 | 11112 continue                                                             1005
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1233:72:

 1233 |       alm=alf*alm/max(bta,1.0e-3)                                          1006
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1234:72:

 1234 | 11101 continue                                                             1007
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1235:72:

 1235 | 11061 continue                                                             1007
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1236:72:

 1236 |       dem=alm*omb                                                          1007
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1237:72:

 1237 |       ab=alm*bta                                                           1007
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1238:72:

 1238 |       rsq0=rsq                                                             1007
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1239:72:

 1239 |       jz=1                                                                 1008
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1240:72:

 1240 | 11120 continue                                                             1008
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1241:72:

 1241 | 11121 continue                                                             1008
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1242:72:

 1242 |       if(iz*jz.ne.0) go to 10260                                           1008
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1243:72:

 1243 |       nlp=nlp+1                                                            1008
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1244:72:

 1244 |       dlx=0.0                                                              1009
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1245:72:

 1245 | 11130 do 11131 k=1,ni                                                      1009
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1246:72:

 1246 |       if(ju(k).eq.0)goto 11131                                             1010
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1247:72:

 1247 |       ak=a(k)                                                              1010
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1248:72:

 1248 |       u=g(k)+ak*xv(k)                                                      1010
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1249:72:

 1249 |       v=abs(u)-vp(k)*ab                                                    1010
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1250:72:

 1250 |       a(k)=0.0                                                             1011
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1251:72:

 1251 |       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                        1012
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1252:72:

 1252 |       if(a(k).eq.ak)goto 11131                                             1013
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1253:72:

 1253 |       if(mm(k) .ne. 0)goto 11151                                           1013
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1254:72:

 1254 |       nin=nin+1                                                            1013
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1255:72:

 1255 |       if(nin.gt.nx)goto 11132                                              1014
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1256:72:

 1256 | 11160 do 11161 j=1,ni                                                      1014
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1257:72:

 1257 |       if(ju(j).eq.0)goto 11161                                             1015
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1258:72:

 1258 |       if(mm(j) .eq. 0)goto 11181                                           1015
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1259:72:

 1259 |       c(j,nin)=c(k,mm(j))                                                  1015
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1260:72:

 1260 |       goto 11161                                                           1015
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1261:72:

 1261 | 11181 continue                                                             1016
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1262:72:

 1262 |       if(j .ne. k)goto 11201                                               1016
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1263:72:

 1263 |       c(j,nin)=xv(j)                                                       1016
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1264:72:

 1264 |       goto 11161                                                           1016
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1265:72:

 1265 | 11201 continue                                                             1017
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1266:72:

 1266 |       c(j,nin)=  (row_prod(j,k,ix,jx,x,w)-xm(j)*xm(k))/(xs(j)*xs(k))       1019
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1267:72:

 1267 | 11161 continue                                                             1020
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1268:72:

 1268 | 11162 continue                                                             1020
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1269:72:

 1269 |       mm(k)=nin                                                            1020
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1270:72:

 1270 |       ia(nin)=k                                                            1021
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1271:72:

 1271 | 11151 continue                                                             1022
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1272:72:

 1272 |       del=a(k)-ak                                                          1022
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1273:72:

 1273 |       rsq=rsq+del*(2.0*g(k)-del*xv(k))                                     1023
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1274:72:

 1274 |       dlx=max(xv(k)*del**2,dlx)                                            1024
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1275:72:

 1275 | 11210 do 11211 j=1,ni                                                      1024
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1276:72:

 1276 |       if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del                              1024
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1277:72:

 1277 | 11211 continue                                                             1025
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1278:72:

 1278 | 11212 continue                                                             1025
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1279:72:

 1279 | 11131 continue                                                             1026
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1280:72:

 1280 | 11132 continue                                                             1026
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1281:72:

 1281 |       if(dlx.lt.thr)goto 11122                                             1026
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1282:72:

 1282 |       if(nin.gt.nx)goto 11122                                              1027
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1283:72:

 1283 |       if(nlp .le. maxit)goto 11231                                         1027
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1284:72:

 1284 |       jerr=-m                                                              1027
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1285:72:

 1285 |       return                                                               1027
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1286:72:

 1286 | 11231 continue                                                             1028
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1287:72:

 1287 | 10260 continue                                                             1028
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1288:72:

 1288 |       iz=1                                                                 1028
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1289:72:

 1289 |       da(1:nin)=a(ia(1:nin))                                               1029
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1290:72:

 1290 | 11240 continue                                                             1029
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1291:72:

 1291 | 11241 continue                                                             1029
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1292:72:

 1292 |       nlp=nlp+1                                                            1029
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1293:72:

 1293 |       dlx=0.0                                                              1030
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1294:72:

 1294 | 11250 do 11251 l=1,nin                                                     1030
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1295:72:

 1295 |       k=ia(l)                                                              1031
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1296:72:

 1296 |       ak=a(k)                                                              1031
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1297:72:

 1297 |       u=g(k)+ak*xv(k)                                                      1031
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1298:72:

 1298 |       v=abs(u)-vp(k)*ab                                                    1031
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1299:72:

 1299 |       a(k)=0.0                                                             1032
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1300:72:

 1300 |       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                        1033
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1301:72:

 1301 |       if(a(k).eq.ak)goto 11251                                             1034
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1302:72:

 1302 |       del=a(k)-ak                                                          1034
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1303:72:

 1303 |       rsq=rsq+del*(2.0*g(k)-del*xv(k))                                     1035
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1304:72:

 1304 |       dlx=max(xv(k)*del**2,dlx)                                            1036
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1305:72:

 1305 | 11260 do 11261 j=1,nin                                                     1036
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1306:72:

 1306 |       g(ia(j))=g(ia(j))-c(ia(j),mm(k))*del                                 1036
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1307:72:

 1307 | 11261 continue                                                             1037
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1308:72:

 1308 | 11262 continue                                                             1037
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1309:72:

 1309 | 11251 continue                                                             1038
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1310:72:

 1310 | 11252 continue                                                             1038
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1311:72:

 1311 |       if(dlx.lt.thr)goto 11242                                             1038
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1312:72:

 1312 |       if(nlp .le. maxit)goto 11281                                         1038
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1313:72:

 1313 |       jerr=-m                                                              1038
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1314:72:

 1314 |       return                                                               1038
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1315:72:

 1315 | 11281 continue                                                             1039
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1316:72:

 1316 |       goto 11241                                                           1040
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1317:72:

 1317 | 11242 continue                                                             1040
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1318:72:

 1318 |       da(1:nin)=a(ia(1:nin))-da(1:nin)                                     1041
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1319:72:

 1319 | 11290 do 11291 j=1,ni                                                      1041
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1320:72:

 1320 |       if(mm(j).ne.0)goto 11291                                             1042
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1321:72:

 1321 |       if(ju(j).ne.0) g(j)=g(j)-dot_product(da(1:nin),c(j,1:nin))           1043
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1322:72:

 1322 | 11291 continue                                                             1044
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1323:72:

 1323 | 11292 continue                                                             1044
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1324:72:

 1324 |       jz=0                                                                 1045
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1325:72:

 1325 |       goto 11121                                                           1046
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1326:72:

 1326 | 11122 continue                                                             1046
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1327:72:

 1327 |       if(nin .le. nx)goto 11311                                            1046
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1328:72:

 1328 |       jerr=-10000-m                                                        1046
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1329:72:

 1329 |       goto 11052                                                           1046
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1330:72:

 1330 | 11311 continue                                                             1047
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1331:72:

 1331 |       if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))                                1047
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1332:72:

 1332 |       kin(m)=nin                                                           1048
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1333:72:

 1333 |       rsqo(m)=rsq                                                          1048
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1334:72:

 1334 |       almo(m)=alm                                                          1048
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1335:72:

 1335 |       lmu=m                                                                1049
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1336:72:

 1336 |       if(m.lt.mnl)goto 11051                                               1049
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1337:72:

 1337 |       if(flmin.ge.1.0)goto 11051                                           1050
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1338:72:

 1338 |       me=0                                                                 1050
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1339:72:

 1339 | 11320 do 11321 j=1,nin                                                     1050
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1340:72:

 1340 |       if(ao(j,m).ne.0.0) me=me+1                                           1050
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1341:72:

 1341 | 11321 continue                                                             1050
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1342:72:

 1342 | 11322 continue                                                             1050
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1343:72:

 1343 |       if(me.gt.ne)goto 11052                                               1051
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1344:72:

 1344 |       if(rsq-rsq0.lt.sml*rsq)goto 11052                                    1051
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1345:72:

 1345 |       if(rsq.gt.rsqmax)goto 11052                                          1052
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1346:72:

 1346 | 11051 continue                                                             1053
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1347:72:

 1347 | 11052 continue                                                             1053
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1348:72:

 1348 |       deallocate(a,mm,c,da)                                                1054
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1349:72:

 1349 |       return                                                               1055
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1350:72:

 1350 |       end                                                                  1056
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1351:72:

 1351 |       subroutine spelnetn(parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,flmin,   1058
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1353:72:

 1353 |       real x(*),vp(ni),y(no),w(no),ulam(nlam)                              1059
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1354:72:

 1354 |       real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                        1060
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1355:72:

 1355 |       integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                           1061
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1358:72:

 1358 |       allocate(xm(1:ni),stat=jerr)                                         1066
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1359:72:

 1359 |       allocate(xs(1:ni),stat=ierr)                                         1066
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1360:72:

 1360 |       jerr=jerr+ierr                                                       1067
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1361:72:

 1361 |       allocate(ju(1:ni),stat=ierr)                                         1067
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1362:72:

 1362 |       jerr=jerr+ierr                                                       1068
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1363:72:

 1363 |       allocate(xv(1:ni),stat=ierr)                                         1068
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1364:72:

 1364 |       jerr=jerr+ierr                                                       1069
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1365:72:

 1365 |       allocate(vlam(1:nlam),stat=ierr)                                     1069
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1366:72:

 1366 |       jerr=jerr+ierr                                                       1070
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1367:72:

 1367 |       if(jerr.ne.0) return                                                 1071
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1368:72:

 1368 |       call spchkvars(no,ni,x,ix,ju)                                        1072
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1369:72:

 1369 |       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                 1073
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1370:72:

 1370 |       if(maxval(ju) .gt. 0)goto 11341                                      1073
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1371:72:

 1371 |       jerr=7777                                                            1073
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1372:72:

 1372 |       return                                                               1073
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1373:72:

 1373 | 11341 continue                                                             1074
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1374:72:

 1374 |       call spstandard1(no,ni,x,ix,jx,y,w,ju,isd,xm,xs,ym,ys,xv,jerr)       1075
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1375:72:

 1375 |       if(jerr.ne.0) return                                                 1076
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1376:72:

 1376 |       if(flmin.ge.1.0) vlam=ulam/ys                                        1077
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1377:72:

 1377 |       call spelnet2(parm,ni,y,w,no,ne,nx,x,ix,jx,ju,vp,nlam,flmin,vlam,t   1079
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1379:72:

 1379 |       if(jerr.gt.0) return                                                 1080
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1380:72:

 1380 | 11350 do 11351 k=1,lmu                                                     1080
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1381:72:

 1381 |       alm(k)=ys*alm(k)                                                     1080
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1382:72:

 1382 |       nk=nin(k)                                                            1081
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1383:72:

 1383 | 11360 do 11361 l=1,nk                                                      1081
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1384:72:

 1384 |       ca(l,k)=ys*ca(l,k)/xs(ia(l))                                         1081
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1385:72:

 1385 | 11361 continue                                                             1082
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1386:72:

 1386 | 11362 continue                                                             1082
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1387:72:

 1387 |       a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))                        1083
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1388:72:

 1388 | 11351 continue                                                             1084
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1389:72:

 1389 | 11352 continue                                                             1084
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1390:72:

 1390 |       deallocate(xm,xs,ju,xv,vlam)                                         1085
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1391:72:

 1391 |       return                                                               1086
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1392:72:

 1392 |       end                                                                  1087
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1393:72:

 1393 |       subroutine spstandard1 (no,ni,x,ix,jx,y,w,ju,isd,xm,xs,ym,ys,xv,je   1088
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1395:72:

 1395 |       real x(*),y(no),w(no),xm(ni),xs(ni),xv(ni)                           1088
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1396:72:

 1396 |       integer ix(*),jx(*),ju(ni)                                           1089
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1397:72:

 1397 |       w=w/sum(w)                                                           1090
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1398:72:

 1398 | 11370 do 11371 j=1,ni                                                      1090
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1399:72:

 1399 |       if(ju(j).eq.0)goto 11371                                             1091
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1400:72:

 1400 |       jb=ix(j)                                                             1091
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1401:72:

 1401 |       je=ix(j+1)-1                                                         1091
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1402:72:

 1402 |       xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                             1092
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1403:72:

 1403 |       xv(j)=dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j)**2                 1093
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1404:72:

 1404 |       if(isd.gt.0) xs(j)=sqrt(xv(j))                                       1094
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1405:72:

 1405 | 11371 continue                                                             1095
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1406:72:

 1406 | 11372 continue                                                             1095
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1407:72:

 1407 |       if(isd .ne. 0)goto 11391                                             1095
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1408:72:

 1408 |       xs=1.0                                                               1095
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1409:72:

 1409 |       goto 11401                                                           1095
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1410:72:

 1410 | 11391 continue                                                             1095
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1411:72:

 1411 |       xv=1.0                                                               1095
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1412:72:

 1412 | 11401 continue                                                             1096
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1413:72:

 1413 | 11381 continue                                                             1096
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1414:72:

 1414 |       ym=dot_product(w,y)                                                  1096
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1415:72:

 1415 |       y=y-ym                                                               1096
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1416:72:

 1416 |       ys=sqrt(dot_product(w,y**2))                                         1096
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1417:72:

 1417 |       y=y/ys                                                               1097
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1418:72:

 1418 |       return                                                               1098
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1419:72:

 1419 |       end                                                                  1099
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1420:72:

 1420 |       subroutine spelnet2(beta,ni,y,w,no,ne,nx,x,ix,jx,ju,vp,nlam,flmin,   1101
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1422:72:

 1422 |       parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99   1102
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1424:72:

 1424 |       real y(no),w(no),x(*),vp(ni),ulam(nlam)                              1103
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1425:72:

 1425 |       real ao(nx,nlam),rsqo(nlam),almo(nlam),xm(ni),xs(ni),xv(ni)          1104
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1426:72:

 1426 |       integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam)                          1105
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1429:72:

 1429 |       allocate(a(1:ni),stat=jerr)                                          1110
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1430:72:

 1430 |       allocate(mm(1:ni),stat=ierr)                                         1110
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1431:72:

 1431 |       jerr=jerr+ierr                                                       1111
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1432:72:

 1432 |       allocate(g(1:ni),stat=ierr)                                          1111
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1433:72:

 1433 |       jerr=jerr+ierr                                                       1112
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1434:72:

 1434 |       allocate(iy(1:ni),stat=ierr)                                         1112
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1435:72:

 1435 |       jerr=jerr+ierr                                                       1113
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1436:72:

 1436 |       if(jerr.ne.0) return                                                 1114
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1437:72:

 1437 |       bta=beta                                                             1114
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1438:72:

 1438 |       omb=1.0-bta                                                          1114
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1439:72:

 1439 |       alm=0.0                                                              1114
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1440:72:

 1440 |       iy=0                                                                 1115
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1441:72:

 1441 |       if(flmin .ge. 1.0)goto 11421                                         1115
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1442:72:

 1442 |       eqs=max(eps,flmin)                                                   1115
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1443:72:

 1443 |       alf=eqs**(1.0/(nlam-1))                                              1115
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1444:72:

 1444 | 11421 continue                                                             1116
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1445:72:

 1445 |       rsq=0.0                                                              1116
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1446:72:

 1446 |       a=0.0                                                                1116
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1447:72:

 1447 |       mm=0                                                                 1116
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1448:72:

 1448 |       o=0.0                                                                1116
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1449:72:

 1449 |       nlp=0                                                                1116
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1450:72:

 1450 |       nin=nlp                                                              1116
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1451:72:

 1451 |       iz=0                                                                 1116
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1452:72:

 1452 |       mnl=min(mnlam,nlam)                                                  1117
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1453:72:

 1453 | 11430 do 11431 j=1,ni                                                      1117
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1454:72:

 1454 |       if(ju(j).eq.0)goto 11431                                             1118
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1455:72:

 1455 |       jb=ix(j)                                                             1118
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1456:72:

 1456 |       je=ix(j+1)-1                                                         1119
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1457:72:

 1457 |       g(j)=abs(dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(j))    1120
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1458:72:

 1458 | 11431 continue                                                             1121
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1459:72:

 1459 | 11432 continue                                                             1121
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1460:72:

 1460 | 11440 do 11441 m=1,nlam                                                    1121
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1461:72:

 1461 |       alm0=alm                                                             1122
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1462:72:

 1462 |       if(flmin .lt. 1.0)goto 11461                                         1122
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1463:72:

 1463 |       alm=ulam(m)                                                          1122
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1464:72:

 1464 |       goto 11451                                                           1123
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1465:72:

 1465 | 11461 if(m .le. 2)goto 11471                                               1123
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1466:72:

 1466 |       alm=alm*alf                                                          1123
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1467:72:

 1467 |       goto 11451                                                           1124
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1468:72:

 1468 | 11471 if(m .ne. 1)goto 11481                                               1124
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1469:72:

 1469 |       alm=big                                                              1124
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1470:72:

 1470 |       goto 11491                                                           1125
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1471:72:

 1471 | 11481 continue                                                             1125
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1472:72:

 1472 |       alm0=0.0                                                             1126
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1473:72:

 1473 | 11500 do 11501 j=1,ni                                                      1126
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1474:72:

 1474 |       if(ju(j).eq.0)goto 11501                                             1126
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1475:72:

 1475 |       if(vp(j).gt.0.0) alm0=max(alm0,g(j)/vp(j))                           1126
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1476:72:

 1476 | 11501 continue                                                             1127
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1477:72:

 1477 | 11502 continue                                                             1127
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1478:72:

 1478 |       alm0=alm0/max(bta,1.0e-3)                                            1127
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1479:72:

 1479 |       alm=alf*alm0                                                         1128
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1480:72:

 1480 | 11491 continue                                                             1129
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1481:72:

 1481 | 11451 continue                                                             1129
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1482:72:

 1482 |       dem=alm*omb                                                          1129
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1483:72:

 1483 |       ab=alm*bta                                                           1129
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1484:72:

 1484 |       rsq0=rsq                                                             1129
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1485:72:

 1485 |       jz=1                                                                 1130
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1486:72:

 1486 |       tlam=bta*(2.0*alm-alm0)                                              1131
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1487:72:

 1487 | 11510 do 11511 k=1,ni                                                      1131
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1488:72:

 1488 |       if(iy(k).eq.1)goto 11511                                             1131
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1489:72:

 1489 |       if(ju(k).eq.0)goto 11511                                             1132
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1490:72:

 1490 |       if(g(k).gt.tlam*vp(k)) iy(k)=1                                       1133
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1491:72:

 1491 | 11511 continue                                                             1134
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1492:72:

 1492 | 11512 continue                                                             1134
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1493:72:

 1493 | 11520 continue                                                             1134
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1494:72:

 1494 | 11521 continue                                                             1134
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1495:72:

 1495 |       if(iz*jz.ne.0) go to 10260                                           1135
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1496:72:

 1496 | 10680 continue                                                             1135
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1497:72:

 1497 |       nlp=nlp+1                                                            1135
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1498:72:

 1498 |       dlx=0.0                                                              1136
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1499:72:

 1499 | 11530 do 11531 k=1,ni                                                      1136
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1500:72:

 1500 |       if(iy(k).eq.0)goto 11531                                             1136
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1501:72:

 1501 |       jb=ix(k)                                                             1136
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1502:72:

 1502 |       je=ix(k+1)-1                                                         1137
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1503:72:

 1503 |       gk=dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(k)           1138
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1504:72:

 1504 |       ak=a(k)                                                              1138
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1505:72:

 1505 |       u=gk+ak*xv(k)                                                        1138
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1506:72:

 1506 |       v=abs(u)-vp(k)*ab                                                    1138
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1507:72:

 1507 |       a(k)=0.0                                                             1139
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1508:72:

 1508 |       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                        1140
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1509:72:

 1509 |       if(a(k).eq.ak)goto 11531                                             1141
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1510:72:

 1510 |       if(mm(k) .ne. 0)goto 11551                                           1141
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1511:72:

 1511 |       nin=nin+1                                                            1141
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1512:72:

 1512 |       if(nin.gt.nx)goto 11532                                              1142
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1513:72:

 1513 |       mm(k)=nin                                                            1142
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1514:72:

 1514 |       ia(nin)=k                                                            1143
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1515:72:

 1515 | 11551 continue                                                             1144
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1516:72:

 1516 |       del=a(k)-ak                                                          1144
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1517:72:

 1517 |       rsq=rsq+del*(2.0*gk-del*xv(k))                                       1145
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1518:72:

 1518 |       y(jx(jb:je))=y(jx(jb:je))-del*x(jb:je)/xs(k)                         1146
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1519:72:

 1519 |       o=o+del*xm(k)/xs(k)                                                  1146
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1520:72:

 1520 |       dlx=max(xv(k)*del**2,dlx)                                            1147
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1521:72:

 1521 | 11531 continue                                                             1148
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1522:72:

 1522 | 11532 continue                                                             1148
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1523:72:

 1523 |       if(nin.gt.nx)goto 11522                                              1149
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1524:72:

 1524 |       if(dlx .ge. thr)goto 11571                                           1149
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1525:72:

 1525 |       ixx=0                                                                1150
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1526:72:

 1526 | 11580 do 11581 j=1,ni                                                      1150
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1527:72:

 1527 |       if(iy(j).eq.1)goto 11581                                             1150
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1528:72:

 1528 |       if(ju(j).eq.0)goto 11581                                             1151
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1529:72:

 1529 |       jb=ix(j)                                                             1151
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1530:72:

 1530 |       je=ix(j+1)-1                                                         1152
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1531:72:

 1531 |       g(j)=abs(dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(j))    1153
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1532:72:

 1532 |       if(g(j) .le. ab*vp(j))goto 11601                                     1153
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1533:72:

 1533 |       iy(j)=1                                                              1153
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1534:72:

 1534 |       ixx=1                                                                1153
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1535:72:

 1535 | 11601 continue                                                             1154
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1536:72:

 1536 | 11581 continue                                                             1155
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1537:72:

 1537 | 11582 continue                                                             1155
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1538:72:

 1538 |       if(ixx.eq.1) go to 10680                                             1156
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1539:72:

 1539 |       goto 11522                                                           1157
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1540:72:

 1540 | 11571 continue                                                             1158
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1541:72:

 1541 |       if(nlp .le. maxit)goto 11621                                         1158
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1542:72:

 1542 |       jerr=-m                                                              1158
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1543:72:

 1543 |       return                                                               1158
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1544:72:

 1544 | 11621 continue                                                             1159
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1545:72:

 1545 | 10260 continue                                                             1159
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1546:72:

 1546 |       iz=1                                                                 1160
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1547:72:

 1547 | 11630 continue                                                             1160
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1548:72:

 1548 | 11631 continue                                                             1160
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1549:72:

 1549 |       nlp=nlp+1                                                            1160
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1550:72:

 1550 |       dlx=0.0                                                              1161
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1551:72:

 1551 | 11640 do 11641 l=1,nin                                                     1161
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1552:72:

 1552 |       k=ia(l)                                                              1161
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1553:72:

 1553 |       jb=ix(k)                                                             1161
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1554:72:

 1554 |       je=ix(k+1)-1                                                         1162
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1555:72:

 1555 |       gk=dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(k)           1163
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1556:72:

 1556 |       ak=a(k)                                                              1163
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1557:72:

 1557 |       u=gk+ak*xv(k)                                                        1163
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1558:72:

 1558 |       v=abs(u)-vp(k)*ab                                                    1163
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1559:72:

 1559 |       a(k)=0.0                                                             1164
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1560:72:

 1560 |       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                        1165
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1561:72:

 1561 |       if(a(k).eq.ak)goto 11641                                             1166
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1562:72:

 1562 |       del=a(k)-ak                                                          1166
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1563:72:

 1563 |       rsq=rsq+del*(2.0*gk-del*xv(k))                                       1167
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1564:72:

 1564 |       y(jx(jb:je))=y(jx(jb:je))-del*x(jb:je)/xs(k)                         1168
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1565:72:

 1565 |       o=o+del*xm(k)/xs(k)                                                  1168
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1566:72:

 1566 |       dlx=max(xv(k)*del**2,dlx)                                            1169
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1567:72:

 1567 | 11641 continue                                                             1170
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1568:72:

 1568 | 11642 continue                                                             1170
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1569:72:

 1569 |       if(dlx.lt.thr)goto 11632                                             1170
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1570:72:

 1570 |       if(nlp .le. maxit)goto 11661                                         1170
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1571:72:

 1571 |       jerr=-m                                                              1170
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1572:72:

 1572 |       return                                                               1170
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1573:72:

 1573 | 11661 continue                                                             1171
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1574:72:

 1574 |       goto 11631                                                           1172
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1575:72:

 1575 | 11632 continue                                                             1172
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1576:72:

 1576 |       jz=0                                                                 1173
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1577:72:

 1577 |       goto 11521                                                           1174
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1578:72:

 1578 | 11522 continue                                                             1174
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1579:72:

 1579 |       if(nin .le. nx)goto 11681                                            1174
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1580:72:

 1580 |       jerr=-10000-m                                                        1174
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1581:72:

 1581 |       goto 11442                                                           1174
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1582:72:

 1582 | 11681 continue                                                             1175
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1583:72:

 1583 |       if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))                                1175
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1584:72:

 1584 |       kin(m)=nin                                                           1176
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1585:72:

 1585 |       rsqo(m)=rsq                                                          1176
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1586:72:

 1586 |       almo(m)=alm                                                          1176
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1587:72:

 1587 |       lmu=m                                                                1177
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1588:72:

 1588 |       if(m.lt.mnl)goto 11441                                               1177
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1589:72:

 1589 |       if(flmin.ge.1.0)goto 11441                                           1178
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1590:72:

 1590 |       me=0                                                                 1178
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1591:72:

 1591 | 11690 do 11691 j=1,nin                                                     1178
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1592:72:

 1592 |       if(ao(j,m).ne.0.0) me=me+1                                           1178
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1593:72:

 1593 | 11691 continue                                                             1178
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1594:72:

 1594 | 11692 continue                                                             1178
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1595:72:

 1595 |       if(me.gt.ne)goto 11442                                               1179
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1596:72:

 1596 |       if(rsq-rsq0.lt.sml*rsq)goto 11442                                    1179
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1597:72:

 1597 |       if(rsq.gt.rsqmax)goto 11442                                          1180
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1598:72:

 1598 | 11441 continue                                                             1181
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1599:72:

 1599 | 11442 continue                                                             1181
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1600:72:

 1600 |       deallocate(a,mm,g,iy)                                                1182
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1601:72:

 1601 |       return                                                               1183
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1602:72:

 1602 |       end                                                                  1184
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1603:72:

 1603 |       subroutine spchkvars(no,ni,x,ix,ju)                                  1185
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1604:72:

 1604 |       real x(*)                                                            1185
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1605:72:

 1605 |       integer ix(*),ju(ni)                                                 1186
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1606:72:

 1606 | 11700 do 11701 j=1,ni                                                      1186
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1607:72:

 1607 |       ju(j)=0                                                              1186
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1608:72:

 1608 |       jb=ix(j)                                                             1186
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1609:72:

 1609 |       nj=ix(j+1)-jb                                                        1186
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1610:72:

 1610 |       if(nj.eq.0)goto 11701                                                1187
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1611:72:

 1611 |       je=ix(j+1)-1                                                         1188
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1612:72:

 1612 |       if(nj .ge. no)goto 11721                                             1188
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1613:72:

 1613 | 11730 do 11731 i=jb,je                                                     1188
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1614:72:

 1614 |       if(x(i).eq.0.0)goto 11731                                            1188
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1615:72:

 1615 |       ju(j)=1                                                              1188
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1616:72:

 1616 |       goto 11732                                                           1188
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1617:72:

 1617 | 11731 continue                                                             1188
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1618:72:

 1618 | 11732 continue                                                             1188
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1619:72:

 1619 |       goto 11741                                                           1189
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1620:72:

 1620 | 11721 continue                                                             1189
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1621:72:

 1621 |       t=x(jb)                                                              1189
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1622:72:

 1622 | 11750 do 11751 i=jb+1,je                                                   1189
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1623:72:

 1623 |       if(x(i).eq.t)goto 11751                                              1189
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1624:72:

 1624 |       ju(j)=1                                                              1189
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1625:72:

 1625 |       goto 11752                                                           1189
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1626:72:

 1626 | 11751 continue                                                             1189
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1627:72:

 1627 | 11752 continue                                                             1189
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1628:72:

 1628 | 11741 continue                                                             1190
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1629:72:

 1629 | 11711 continue                                                             1190
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1630:72:

 1630 | 11701 continue                                                             1191
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1631:72:

 1631 | 11702 continue                                                             1191
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1632:72:

 1632 |       return                                                               1192
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1633:72:

 1633 |       end                                                                  1193
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1634:72:

 1634 |       subroutine cmodval(a0,ca,ia,nin,x,ix,jx,n,f)                         1194
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1635:72:

 1635 |       real ca(*),x(*),f(n)                                                 1194
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1636:72:

 1636 |       integer ia(*),ix(*),jx(*)                                            1195
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1637:72:

 1637 |       f=a0                                                                 1196
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1638:72:

 1638 | 11760 do 11761 j=1,nin                                                     1196
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1639:72:

 1639 |       k=ia(j)                                                              1196
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1640:72:

 1640 |       kb=ix(k)                                                             1196
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1641:72:

 1641 |       ke=ix(k+1)-1                                                         1197
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1642:72:

 1642 |       f(jx(kb:ke))=f(jx(kb:ke))+ca(j)*x(kb:ke)                             1198
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1643:72:

 1643 | 11761 continue                                                             1199
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1644:72:

 1644 | 11762 continue                                                             1199
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1645:72:

 1645 |       return                                                               1200
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1646:72:

 1646 |       end                                                                  1201
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1647:72:

 1647 |       function row_prod(i,j,ia,ja,ra,w)                                    1202
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1648:72:

 1648 |       integer ia(*),ja(*)                                                  1202
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1649:72:

 1649 |       real ra(*),w(*)                                                      1203
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1650:72:

 1650 |       row_prod=dot(ra(ia(i)),ra(ia(j)),ja(ia(i)),ja(ia(j)),  ia(i+1)-ia(   1205
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1652:72:

 1652 |       return                                                               1206
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1653:72:

 1653 |       end                                                                  1207
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1654:72:

 1654 |       function dot(x,y,mx,my,nx,ny,w)                                      1208
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1655:72:

 1655 |       real x(*),y(*),w(*)                                                  1208
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1656:72:

 1656 |       integer mx(*),my(*)                                                  1209
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1657:72:

 1657 |       i=1                                                                  1209
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1658:72:

 1658 |       j=i                                                                  1209
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1659:72:

 1659 |       s=0.0                                                                1210
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1660:72:

 1660 | 11770 continue                                                             1210
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1661:72:

 1661 | 11771 continue                                                             1210
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1662:72:

 1662 | 11780 continue                                                             1211
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1663:72:

 1663 | 11781 if(mx(i).ge.my(j))goto 11782                                         1211
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1664:72:

 1664 |       i=i+1                                                                1211
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1665:72:

 1665 |       if(i.gt.nx) go to 11790                                              1211
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1666:72:

 1666 |       goto 11781                                                           1212
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1667:72:

 1667 | 11782 continue                                                             1212
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1668:72:

 1668 |       if(mx(i).eq.my(j)) go to 11800                                       1213
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1669:72:

 1669 | 11810 continue                                                             1213
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1670:72:

 1670 | 11811 if(my(j).ge.mx(i))goto 11812                                         1213
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1671:72:

 1671 |       j=j+1                                                                1213
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1672:72:

 1672 |       if(j.gt.ny) go to 11790                                              1213
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1673:72:

 1673 |       goto 11811                                                           1214
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1674:72:

 1674 | 11812 continue                                                             1214
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1675:72:

 1675 |       if(mx(i).eq.my(j)) go to 11800                                       1214
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1676:72:

 1676 |       goto 11771                                                           1215
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1677:72:

 1677 | 11800 continue                                                             1215
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1678:72:

 1678 |       s=s+w(mx(i))*x(i)*y(j)                                               1216
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1679:72:

 1679 |       i=i+1                                                                1216
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1680:72:

 1680 |       if(i.gt.nx)goto 11772                                                1216
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1681:72:

 1681 |       j=j+1                                                                1216
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1682:72:

 1682 |       if(j.gt.ny)goto 11772                                                1217
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1683:72:

 1683 |       goto 11771                                                           1218
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1684:72:

 1684 | 11772 continue                                                             1218
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1685:72:

 1685 | 11790 continue                                                             1218
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1686:72:

 1686 |       dot=s                                                                1219
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1687:72:

 1687 |       return                                                               1220
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1688:72:

 1688 |       end                                                                  1221
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1689:72:

 1689 |       subroutine lognet (parm,no,ni,nc,x,y,g,jd,vp,ne,nx,nlam,flmin,ulam   1223
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1691:72:

 1691 |       real x(no,ni),y(no,max(2,nc)),g(no,nc),vp(ni),ulam(nlam)             1224
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1692:72:

 1692 |       real ca(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)                  1225
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1693:72:

 1693 |       integer jd(*),ia(nx),nin(nlam)                                       1226
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1696:72:

 1696 |       if(maxval(vp) .gt. 0.0)goto 11831                                    1230
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1697:72:

 1697 |       jerr=10000                                                           1230
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1698:72:

 1698 |       return                                                               1230
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1699:72:

 1699 | 11831 continue                                                             1231
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1700:72:

 1700 |       allocate(ww(1:no),stat=jerr)                                         1232
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1701:72:

 1701 |       allocate(ju(1:ni),stat=ierr)                                         1232
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1702:72:

 1702 |       jerr=jerr+ierr                                                       1233
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1703:72:

 1703 |       allocate(vq(1:ni),stat=ierr)                                         1233
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1704:72:

 1704 |       jerr=jerr+ierr                                                       1234
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1705:72:

 1705 |       allocate(xm(1:ni),stat=ierr)                                         1234
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1706:72:

 1706 |       jerr=jerr+ierr                                                       1235
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1707:72:

 1707 |       if(isd .le. 0)goto 11851                                             1235
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1708:72:

 1708 |       allocate(xs(1:ni),stat=ierr)                                         1235
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1709:72:

 1709 |       jerr=jerr+ierr                                                       1235
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1710:72:

 1710 | 11851 continue                                                             1236
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1711:72:

 1711 |       if(jerr.ne.0) return                                                 1237
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1712:72:

 1712 |       call chkvars(no,ni,x,ju)                                             1238
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1713:72:

 1713 |       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                 1239
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1714:72:

 1714 |       if(maxval(ju) .gt. 0)goto 11871                                      1239
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1715:72:

 1715 |       jerr=7777                                                            1239
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1716:72:

 1716 |       return                                                               1239
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1717:72:

 1717 | 11871 continue                                                             1240
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1718:72:

 1718 |       vq=max(0.0,vp)                                                       1240
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1719:72:

 1719 |       vq=vq*ni/sum(vq)                                                     1241
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1720:72:

 1720 | 11880 do 11881 i=1,no                                                      1241
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1721:72:

 1721 |       ww(i)=sum(y(i,:))                                                    1241
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1722:72:

 1722 |       y(i,:)=y(i,:)/ww(i)                                                  1241
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1723:72:

 1723 | 11881 continue                                                             1241
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1724:72:

 1724 | 11882 continue                                                             1241
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1725:72:

 1725 |       sw=sum(ww)                                                           1241
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1726:72:

 1726 |       ww=ww/sw                                                             1242
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1727:72:

 1727 |       call lstandard1(no,ni,x,ww,ju,isd,xm,xs)                             1243
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1728:72:

 1728 |       if(nc .ne. 1)goto 11901                                              1244
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1729:72:

 1729 |       call lognet2n(parm,no,ni,x,y(:,1),g(:,1),ww,ju,vq,ne,nx,nlam,flmin   1246
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1731:72:

 1731 |       goto 11911                                                           1247
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1732:72:

 1732 | 11901 continue                                                             1248
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1733:72:

 1733 |       call lognetn(parm,no,ni,nc,x,y,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,th   1250
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1735:72:

 1735 | 11911 continue                                                             1251
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1736:72:

 1736 | 11891 continue                                                             1251
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1737:72:

 1737 |       if(jerr.gt.0) return                                                 1251
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1738:72:

 1738 |       dev0=2.0*sw*dev0                                                     1252
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1739:72:

 1739 | 11920 do 11921 k=1,lmu                                                     1252
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1740:72:

 1740 |       nk=nin(k)                                                            1253
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1741:72:

 1741 | 11930 do 11931 ic=1,nc                                                     1253
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1742:72:

 1742 |       if(isd .le. 0)goto 11951                                             1253
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1743:72:

 1743 | 11960 do 11961 l=1,nk                                                      1253
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1744:72:

 1744 |       ca(l,ic,k)=ca(l,ic,k)/xs(ia(l))                                      1253
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1745:72:

 1745 | 11961 continue                                                             1253
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1746:72:

 1746 | 11962 continue                                                             1253
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1747:72:

 1747 | 11951 continue                                                             1254
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1748:72:

 1748 |       a0(ic,k)=a0(ic,k)-dot_product(ca(1:nk,ic,k),xm(ia(1:nk)))            1255
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1749:72:

 1749 | 11931 continue                                                             1256
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1750:72:

 1750 | 11932 continue                                                             1256
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1751:72:

 1751 | 11921 continue                                                             1257
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1752:72:

 1752 | 11922 continue                                                             1257
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1753:72:

 1753 |       deallocate(ww,ju,vq,xm)                                              1257
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1754:72:

 1754 |       if(isd.gt.0) deallocate(xs)                                          1258
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1755:72:

 1755 |       return                                                               1259
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1756:72:

 1756 |       end                                                                  1260
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1757:72:

 1757 |       subroutine lstandard1 (no,ni,x,w,ju,isd,xm,xs)                       1261
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1758:72:

 1758 |       real x(no,ni),w(no),xm(ni),xs(ni)                                    1261
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1759:72:

 1759 |       integer ju(ni)                                                       1262
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1760:72:

 1760 | 11970 do 11971 j=1,ni                                                      1262
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1761:72:

 1761 |       if(ju(j).eq.0)goto 11971                                             1263
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1762:72:

 1762 |       xm(j)=dot_product(w,x(:,j))                                          1263
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1763:72:

 1763 |       x(:,j)=x(:,j)-xm(j)                                                  1264
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1764:72:

 1764 |       if(isd .le. 0)goto 11991                                             1264
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1765:72:

 1765 |       xs(j)=sqrt(dot_product(w,x(:,j)**2))                                 1264
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1766:72:

 1766 |       x(:,j)=x(:,j)/xs(j)                                                  1264
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1767:72:

 1767 | 11991 continue                                                             1265
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1768:72:

 1768 | 11971 continue                                                             1266
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1769:72:

 1769 | 11972 continue                                                             1266
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1770:72:

 1770 |       return                                                               1267
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1771:72:

 1771 |       end                                                                  1268
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1772:72:

 1772 |       subroutine lognet2n(parm,no,ni,x,y,g,w,ju,vp,ne,nx,nlam,flmin,ulam   1270
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1774:72:

 1774 |       parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5,  big=9.9e30, mnlam=   1272
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1776:72:

 1776 |       real x(no,ni),y(no),g(no),w(no),vp(ni),ulam(nlam)                    1273
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1777:72:

 1777 |       real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                         1274
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1778:72:

 1778 |       integer ju(ni),m(nx),kin(nlam)                                       1275
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1781:72:

 1781 |       allocate(b(0:ni),stat=jerr)                                          1280
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1782:72:

 1782 |       allocate(xv(1:ni),stat=ierr)                                         1280
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1783:72:

 1783 |       jerr=jerr+ierr                                                       1281
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1784:72:

 1784 |       allocate(ga(1:ni),stat=ierr)                                         1281
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1785:72:

 1785 |       jerr=jerr+ierr                                                       1282
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1786:72:

 1786 |       allocate(bs(0:ni),stat=ierr)                                         1282
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1787:72:

 1787 |       jerr=jerr+ierr                                                       1283
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1788:72:

 1788 |       allocate(mm(1:ni),stat=ierr)                                         1283
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1789:72:

 1789 |       jerr=jerr+ierr                                                       1284
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1790:72:

 1790 |       allocate(ixx(1:ni),stat=ierr)                                        1284
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1791:72:

 1791 |       jerr=jerr+ierr                                                       1285
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1792:72:

 1792 |       allocate(r(1:no),stat=ierr)                                          1285
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1793:72:

 1793 |       jerr=jerr+ierr                                                       1286
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1794:72:

 1794 |       allocate(v(1:no),stat=ierr)                                          1286
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1795:72:

 1795 |       jerr=jerr+ierr                                                       1287
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1796:72:

 1796 |       allocate(q(1:no),stat=ierr)                                          1287
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1797:72:

 1797 |       jerr=jerr+ierr                                                       1288
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1798:72:

 1798 |       if(jerr.ne.0) return                                                 1289
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1799:72:

 1799 |       fmax=log(1.0/pmin-1.0)                                               1289
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1800:72:

 1800 |       fmin=-fmax                                                           1289
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1801:72:

 1801 |       vmin=(1.0+pmin)*pmin*(1.0-pmin)                                      1290
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1802:72:

 1802 |       bta=parm                                                             1290
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1803:72:

 1803 |       omb=1.0-bta                                                          1291
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1804:72:

 1804 |       q0=dot_product(w,y)                                                  1291
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1805:72:

 1805 |       if(q0 .gt. pmin)goto 12011                                           1291
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1806:72:

 1806 |       jerr=8001                                                            1291
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1807:72:

 1807 |       return                                                               1291
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1808:72:

 1808 | 12011 continue                                                             1292
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1809:72:

 1809 |       if(q0 .lt. 1.0-pmin)goto 12031                                       1292
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1810:72:

 1810 |       jerr=9001                                                            1292
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1811:72:

 1811 |       return                                                               1292
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1812:72:

 1812 | 12031 continue                                                             1293
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1813:72:

 1813 |       ixx=0                                                                1293
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1814:72:

 1814 |       al=0.0                                                               1293
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1815:72:

 1815 |       bz=log(q0/(1.0-q0))                                                  1294
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1816:72:

 1816 |       if(nonzero(no,g) .ne. 0)goto 12051                                   1294
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1817:72:

 1817 |       vi=q0*(1.0-q0)                                                       1294
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1818:72:

 1818 |       b(0)=bz                                                              1294
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1819:72:

 1819 |       v=vi*w                                                               1295
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1820:72:

 1820 |       r=w*(y-q0)                                                           1295
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1821:72:

 1821 |       q=q0                                                                 1295
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1822:72:

 1822 |       xmz=vi                                                               1295
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1823:72:

 1823 |       dev1=-(bz*q0+log(1.0-q0))                                            1296
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1824:72:

 1824 |       goto 12061                                                           1297
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1825:72:

 1825 | 12051 continue                                                             1297
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1826:72:

 1826 |       b(0)=azero(no,y,g,w,jerr)                                            1297
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1827:72:

 1827 |       if(jerr.ne.0) return                                                 1298
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1828:72:

 1828 |       q=1.0/(1.0+exp(-b(0)-g))                                             1298
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1829:72:

 1829 |       v=w*q*(1.0-q)                                                        1298
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1830:72:

 1830 |       r=w*(y-q)                                                            1298
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1831:72:

 1831 |       xmz=sum(v)                                                           1299
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1832:72:

 1832 |       dev1=-(b(0)*q0+dot_product(w,y*g+log(1.0-q)))                        1300
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1833:72:

 1833 | 12061 continue                                                             1301
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1834:72:

 1834 | 12041 continue                                                             1301
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1835:72:

 1835 |       if(kopt .le. 0)goto 12081                                            1302
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1836:72:

 1836 |       if(isd .le. 0)goto 12101                                             1302
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1837:72:

 1837 |       xv=0.25                                                              1302
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1838:72:

 1838 |       goto 12111                                                           1303
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1839:72:

 1839 | 12101 continue                                                             1303
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1840:72:

 1840 | 12120 do 12121 j=1,ni                                                      1303
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1841:72:

 1841 |       if(ju(j).ne.0) xv(j)=0.25*dot_product(w,x(:,j)**2)                   1303
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1842:72:

 1842 | 12121 continue                                                             1303
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1843:72:

 1843 | 12122 continue                                                             1303
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1844:72:

 1844 | 12111 continue                                                             1304
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1845:72:

 1845 | 12091 continue                                                             1304
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1846:72:

 1846 | 12081 continue                                                             1305
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1847:72:

 1847 |       dev0=dev1                                                            1306
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1848:72:

 1848 | 12130 do 12131 i=1,no                                                      1306
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1849:72:

 1849 |       if(y(i).gt.0.0) dev0=dev0+w(i)*y(i)*log(y(i))                        1307
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1850:72:

 1850 |       if(y(i).lt.1.0) dev0=dev0+w(i)*(1.0-y(i))*log(1.0-y(i))              1308
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1851:72:

 1851 | 12131 continue                                                             1309
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1852:72:

 1852 | 12132 continue                                                             1309
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1853:72:

 1853 |       if(flmin .ge. 1.0)goto 12151                                         1309
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1854:72:

 1854 |       eqs=max(eps,flmin)                                                   1309
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1855:72:

 1855 |       alf=eqs**(1.0/(nlam-1))                                              1309
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1856:72:

 1856 | 12151 continue                                                             1310
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1857:72:

 1857 |       m=0                                                                  1310
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1858:72:

 1858 |       mm=0                                                                 1310
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1859:72:

 1859 |       nlp=0                                                                1310
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1860:72:

 1860 |       nin=nlp                                                              1310
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1861:72:

 1861 |       mnl=min(mnlam,nlam)                                                  1310
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1862:72:

 1862 |       bs=0.0                                                               1310
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1863:72:

 1863 |       b(1:ni)=0.0                                                          1311
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1864:72:

 1864 |       shr=shri*dev0                                                        1312
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1865:72:

 1865 | 12160 do 12161 j=1,ni                                                      1312
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1866:72:

 1866 |       if(ju(j).eq.0)goto 12161                                             1312
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1867:72:

 1867 |       ga(j)=abs(dot_product(r,x(:,j)))                                     1312
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1868:72:

 1868 | 12161 continue                                                             1313
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1869:72:

 1869 | 12162 continue                                                             1313
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1870:72:

 1870 | 12170 do 12171 ilm=1,nlam                                                  1313
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1871:72:

 1871 |       al0=al                                                               1314
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1872:72:

 1872 |       if(flmin .lt. 1.0)goto 12191                                         1314
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1873:72:

 1873 |       al=ulam(ilm)                                                         1314
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1874:72:

 1874 |       goto 12181                                                           1315
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1875:72:

 1875 | 12191 if(ilm .le. 2)goto 12201                                             1315
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1876:72:

 1876 |       al=al*alf                                                            1315
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1877:72:

 1877 |       goto 12181                                                           1316
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1878:72:

 1878 | 12201 if(ilm .ne. 1)goto 12211                                             1316
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1879:72:

 1879 |       al=big                                                               1316
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1880:72:

 1880 |       goto 12221                                                           1317
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1881:72:

 1881 | 12211 continue                                                             1317
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1882:72:

 1882 |       al0=0.0                                                              1318
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1883:72:

 1883 | 12230 do 12231 j=1,ni                                                      1318
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1884:72:

 1884 |       if(ju(j).eq.0)goto 12231                                             1318
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1885:72:

 1885 |       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            1318
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1886:72:

 1886 | 12231 continue                                                             1319
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1887:72:

 1887 | 12232 continue                                                             1319
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1888:72:

 1888 |       al0=al0/max(bta,1.0e-3)                                              1319
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1889:72:

 1889 |       al=alf*al0                                                           1320
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1890:72:

 1890 | 12221 continue                                                             1321
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1891:72:

 1891 | 12181 continue                                                             1321
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1892:72:

 1892 |       al2=al*omb                                                           1321
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1893:72:

 1893 |       al1=al*bta                                                           1321
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1894:72:

 1894 |       tlam=bta*(2.0*al-al0)                                                1322
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1895:72:

 1895 | 12240 do 12241 k=1,ni                                                      1322
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1896:72:

 1896 |       if(ixx(k).eq.1)goto 12241                                            1322
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1897:72:

 1897 |       if(ju(k).eq.0)goto 12241                                             1323
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1898:72:

 1898 |       if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                     1324
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1899:72:

 1899 | 12241 continue                                                             1325
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1900:72:

 1900 | 12242 continue                                                             1325
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1901:72:

 1901 | 10680 continue                                                             1326
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1902:72:

 1902 | 12250 continue                                                             1326
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1903:72:

 1903 | 12251 continue                                                             1326
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1904:72:

 1904 |       bs(0)=b(0)                                                           1326
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1905:72:

 1905 |       if(nin.gt.0) bs(m(1:nin))=b(m(1:nin))                                1327
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1906:72:

 1906 |       if(kopt .ne. 0)goto 12271                                            1328
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1907:72:

 1907 | 12280 do 12281 j=1,ni                                                      1328
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1908:72:

 1908 |       if(ixx(j).gt.0) xv(j)=dot_product(v,x(:,j)**2)                       1328
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1909:72:

 1909 | 12281 continue                                                             1329
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1910:72:

 1910 | 12282 continue                                                             1329
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1911:72:

 1911 | 12271 continue                                                             1330
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1912:72:

 1912 | 12290 continue                                                             1330
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1913:72:

 1913 | 12291 continue                                                             1330
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1914:72:

 1914 |       nlp=nlp+1                                                            1330
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1915:72:

 1915 |       dlx=0.0                                                              1331
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1916:72:

 1916 | 12300 do 12301 k=1,ni                                                      1331
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1917:72:

 1917 |       if(ixx(k).eq.0)goto 12301                                            1332
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1918:72:

 1918 |       bk=b(k)                                                              1332
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1919:72:

 1919 |       gk=dot_product(r,x(:,k))                                             1333
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1920:72:

 1920 |       u=gk+xv(k)*b(k)                                                      1333
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1921:72:

 1921 |       au=abs(u)-vp(k)*al1                                                  1334
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1922:72:

 1922 |       if(au .gt. 0.0)goto 12321                                            1334
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1923:72:

 1923 |       b(k)=0.0                                                             1334
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1924:72:

 1924 |       goto 12331                                                           1335
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1925:72:

 1925 | 12321 continue                                                             1335
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1926:72:

 1926 |       b(k)=sign(au,u)/(xv(k)+vp(k)*al2)                                    1335
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1927:72:

 1927 | 12331 continue                                                             1336
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1928:72:

 1928 | 12311 continue                                                             1336
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1929:72:

 1929 |       d=b(k)-bk                                                            1336
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1930:72:

 1930 |       if(abs(d).le.0.0)goto 12301                                          1336
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1931:72:

 1931 |       dlx=max(dlx,xv(k)*d**2)                                              1337
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1932:72:

 1932 |       r=r-d*v*x(:,k)                                                       1338
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1933:72:

 1933 |       if(mm(k) .ne. 0)goto 12351                                           1338
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1934:72:

 1934 |       nin=nin+1                                                            1338
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1935:72:

 1935 |       if(nin.gt.nx)goto 12302                                              1339
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1936:72:

 1936 |       mm(k)=nin                                                            1339
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1937:72:

 1937 |       m(nin)=k                                                             1340
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1938:72:

 1938 | 12351 continue                                                             1341
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1939:72:

 1939 | 12301 continue                                                             1342
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1940:72:

 1940 | 12302 continue                                                             1342
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1941:72:

 1941 |       if(nin.gt.nx)goto 12292                                              1343
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1942:72:

 1942 |       d=sum(r)/xmz                                                         1344
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1943:72:

 1943 |       if(d .eq. 0.0)goto 12371                                             1344
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1944:72:

 1944 |       b(0)=b(0)+d                                                          1344
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1945:72:

 1945 |       dlx=max(dlx,xmz*d**2)                                                1344
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1946:72:

 1946 |       r=r-d*v                                                              1344
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1947:72:

 1947 | 12371 continue                                                             1345
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1948:72:

 1948 |       if(dlx.lt.shr)goto 12292                                             1345
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1949:72:

 1949 |       if(nlp .le. maxit)goto 12391                                         1345
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1950:72:

 1950 |       jerr=-ilm                                                            1345
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1951:72:

 1951 |       return                                                               1345
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1952:72:

 1952 | 12391 continue                                                             1346
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1953:72:

 1953 | 12400 continue                                                             1346
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1954:72:

 1954 | 12401 continue                                                             1346
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1955:72:

 1955 |       nlp=nlp+1                                                            1346
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1956:72:

 1956 |       dlx=0.0                                                              1347
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1957:72:

 1957 | 12410 do 12411 l=1,nin                                                     1347
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1958:72:

 1958 |       k=m(l)                                                               1347
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1959:72:

 1959 |       bk=b(k)                                                              1348
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1960:72:

 1960 |       gk=dot_product(r,x(:,k))                                             1349
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1961:72:

 1961 |       u=gk+xv(k)*b(k)                                                      1349
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1962:72:

 1962 |       au=abs(u)-vp(k)*al1                                                  1350
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1963:72:

 1963 |       if(au .gt. 0.0)goto 12431                                            1350
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1964:72:

 1964 |       b(k)=0.0                                                             1350
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1965:72:

 1965 |       goto 12441                                                           1351
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1966:72:

 1966 | 12431 continue                                                             1351
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1967:72:

 1967 |       b(k)=sign(au,u)/(xv(k)+vp(k)*al2)                                    1351
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1968:72:

 1968 | 12441 continue                                                             1352
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1969:72:

 1969 | 12421 continue                                                             1352
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1970:72:

 1970 |       d=b(k)-bk                                                            1352
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1971:72:

 1971 |       if(abs(d).le.0.0)goto 12411                                          1352
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1972:72:

 1972 |       dlx=max(dlx,xv(k)*d**2)                                              1353
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1973:72:

 1973 |       r=r-d*v*x(:,k)                                                       1354
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1974:72:

 1974 | 12411 continue                                                             1355
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1975:72:

 1975 | 12412 continue                                                             1355
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1976:72:

 1976 |       d=sum(r)/xmz                                                         1356
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1977:72:

 1977 |       if(d .eq. 0.0)goto 12461                                             1356
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1978:72:

 1978 |       b(0)=b(0)+d                                                          1356
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1979:72:

 1979 |       dlx=max(dlx,xmz*d**2)                                                1356
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1980:72:

 1980 |       r=r-d*v                                                              1356
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1981:72:

 1981 | 12461 continue                                                             1357
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1982:72:

 1982 |       if(dlx.lt.shr)goto 12402                                             1357
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1983:72:

 1983 |       if(nlp .le. maxit)goto 12481                                         1357
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1984:72:

 1984 |       jerr=-ilm                                                            1357
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1985:72:

 1985 |       return                                                               1357
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1986:72:

 1986 | 12481 continue                                                             1358
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1987:72:

 1987 |       goto 12401                                                           1359
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1988:72:

 1988 | 12402 continue                                                             1359
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1989:72:

 1989 |       goto 12291                                                           1360
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1990:72:

 1990 | 12292 continue                                                             1360
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1991:72:

 1991 |       if(nin.gt.nx)goto 12252                                              1361
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1992:72:

 1992 | 12490 do 12491 i=1,no                                                      1361
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1993:72:

 1993 |       fi=b(0)+g(i)                                                         1362
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1994:72:

 1994 |       if(nin.gt.0) fi=fi+dot_product(b(m(1:nin)),x(i,m(1:nin)))            1363
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1995:72:

 1995 |       if(fi .ge. fmin)goto 12511                                           1363
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1996:72:

 1996 |       q(i)=0.0                                                             1363
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1997:72:

 1997 |       goto 12501                                                           1363
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1998:72:

 1998 | 12511 if(fi .le. fmax)goto 12521                                           1363
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1999:72:

 1999 |       q(i)=1.0                                                             1363
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2000:72:

 2000 |       goto 12531                                                           1364
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2001:72:

 2001 | 12521 continue                                                             1364
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2002:72:

 2002 |       q(i)=1.0/(1.0+exp(-fi))                                              1364
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2003:72:

 2003 | 12531 continue                                                             1365
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2004:72:

 2004 | 12501 continue                                                             1365
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2005:72:

 2005 | 12491 continue                                                             1366
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2006:72:

 2006 | 12492 continue                                                             1366
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2007:72:

 2007 |       v=w*q*(1.0-q)                                                        1366
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2008:72:

 2008 |       xmz=sum(v)                                                           1366
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2009:72:

 2009 |       if(xmz.le.vmin)goto 12252                                            1366
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2010:72:

 2010 |       r=w*(y-q)                                                            1367
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2011:72:

 2011 |       if(xmz*(b(0)-bs(0))**2 .ge. shr)goto 12551                           1367
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2012:72:

 2012 |       ix=0                                                                 1368
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2013:72:

 2013 | 12560 do 12561 j=1,nin                                                     1368
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2014:72:

 2014 |       k=m(j)                                                               1369
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2015:72:

 2015 |       if(xv(k)*(b(k)-bs(k))**2.lt.shr)goto 12561                           1369
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2016:72:

 2016 |       ix=1                                                                 1369
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2017:72:

 2017 |       goto 12562                                                           1370
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2018:72:

 2018 | 12561 continue                                                             1371
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2019:72:

 2019 | 12562 continue                                                             1371
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2020:72:

 2020 |       if(ix .ne. 0)goto 12581                                              1372
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2021:72:

 2021 | 12590 do 12591 k=1,ni                                                      1372
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2022:72:

 2022 |       if(ixx(k).eq.1)goto 12591                                            1372
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2023:72:

 2023 |       if(ju(k).eq.0)goto 12591                                             1373
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2024:72:

 2024 |       ga(k)=abs(dot_product(r,x(:,k)))                                     1374
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2025:72:

 2025 |       if(ga(k) .le. al1*vp(k))goto 12611                                   1374
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2026:72:

 2026 |       ixx(k)=1                                                             1374
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2027:72:

 2027 |       ix=1                                                                 1374
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2028:72:

 2028 | 12611 continue                                                             1375
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2029:72:

 2029 | 12591 continue                                                             1376
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2030:72:

 2030 | 12592 continue                                                             1376
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2031:72:

 2031 |       if(ix.eq.1) go to 10680                                              1377
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2032:72:

 2032 |       goto 12252                                                           1378
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2033:72:

 2033 | 12581 continue                                                             1379
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2034:72:

 2034 | 12551 continue                                                             1380
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2035:72:

 2035 |       goto 12251                                                           1381
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2036:72:

 2036 | 12252 continue                                                             1381
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2037:72:

 2037 |       if(nin .le. nx)goto 12631                                            1381
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2038:72:

 2038 |       jerr=-10000-ilm                                                      1381
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2039:72:

 2039 |       goto 12172                                                           1381
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2040:72:

 2040 | 12631 continue                                                             1382
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2041:72:

 2041 |       if(nin.gt.0) a(1:nin,ilm)=b(m(1:nin))                                1382
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2042:72:

 2042 |       kin(ilm)=nin                                                         1383
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2043:72:

 2043 |       a0(ilm)=b(0)                                                         1383
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2044:72:

 2044 |       alm(ilm)=al                                                          1383
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2045:72:

 2045 |       lmu=ilm                                                              1384
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2046:72:

 2046 |       devi=dev2(no,w,y,q,pmin)                                             1385
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2047:72:

 2047 |       dev(ilm)=(dev1-devi)/dev0                                            1385
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2048:72:

 2048 |       if(xmz.le.vmin)goto 12172                                            1386
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2049:72:

 2049 |       if(ilm.lt.mnl)goto 12171                                             1386
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2050:72:

 2050 |       if(flmin.ge.1.0)goto 12171                                           1387
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2051:72:

 2051 |       me=0                                                                 1387
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2052:72:

 2052 | 12640 do 12641 j=1,nin                                                     1387
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2053:72:

 2053 |       if(a(j,ilm).ne.0.0) me=me+1                                          1387
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2054:72:

 2054 | 12641 continue                                                             1387
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2055:72:

 2055 | 12642 continue                                                             1387
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2056:72:

 2056 |       if(me.gt.ne)goto 12172                                               1388
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2057:72:

 2057 |       if(dev(ilm).gt.devmax)goto 12172                                     1388
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2058:72:

 2058 |       if(dev(ilm)-dev(ilm-1).lt.sml)goto 12172                             1389
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2059:72:

 2059 | 12171 continue                                                             1390
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2060:72:

 2060 | 12172 continue                                                             1390
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2061:72:

 2061 |       g=log(q/(1.0-q))                                                     1391
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2062:72:

 2062 |       deallocate(b,bs,v,r,xv,q,mm,ga,ixx)                                  1392
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2063:72:

 2063 |       return                                                               1393
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2064:72:

 2064 |       end                                                                  1394
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2065:72:

 2065 |       function dev2(n,w,y,p,pmin)                                          1395
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2066:72:

 2066 |       real w(n),y(n),p(n)                                                  1396
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2067:72:

 2067 |       pmax=1.0-pmin                                                        1396
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2068:72:

 2068 |       s=0.0                                                                1397
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2069:72:

 2069 | 12650 do 12651 i=1,n                                                       1397
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2070:72:

 2070 |       pi=min(max(pmin,p(i)),pmax)                                          1398
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2071:72:

 2071 |       s=s-w(i)*(y(i)*log(pi)+(1.0-y(i))*log(1.0-pi))                       1399
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2072:72:

 2072 | 12651 continue                                                             1400
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2073:72:

 2073 | 12652 continue                                                             1400
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2074:72:

 2074 |       dev2=s                                                               1401
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2075:72:

 2075 |       return                                                               1402
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2076:72:

 2076 |       end                                                                  1403
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2077:72:

 2077 |       function azero(n,y,g,q,jerr)                                         1404
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2078:72:

 2078 |       parameter(eps=1.0e-7)                                                1405
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2079:72:

 2079 |       real y(n),g(n),q(n)                                                  1406
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2081:72:

 2081 |       allocate(e(1:n),stat=jerr)                                           1410
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2082:72:

 2082 |       allocate(p(1:n),stat=ierr)                                           1410
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2083:72:

 2083 |       jerr=jerr+ierr                                                       1411
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2084:72:

 2084 |       allocate(w(1:n),stat=ierr)                                           1411
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2085:72:

 2085 |       jerr=jerr+ierr                                                       1412
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2086:72:

 2086 |       if(jerr.ne.0) return                                                 1413
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2087:72:

 2087 |       az=0.0                                                               1413
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2088:72:

 2088 |       e=exp(-g)                                                            1413
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2089:72:

 2089 |       qy=dot_product(q,y)                                                  1413
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2090:72:

 2090 |       p=1.0/(1.0+e)                                                        1414
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2091:72:

 2091 | 12660 continue                                                             1414
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2092:72:

 2092 | 12661 continue                                                             1414
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2093:72:

 2093 |       w=q*p*(1.0-p)                                                        1415
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2094:72:

 2094 |       d=(qy-dot_product(q,p))/sum(w)                                       1415
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2095:72:

 2095 |       az=az+d                                                              1415
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2096:72:

 2096 |       if(abs(d).lt.eps)goto 12662                                          1416
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2097:72:

 2097 |       ea0=exp(-az)                                                         1416
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2098:72:

 2098 |       p=1.0/(1.0+ea0*e)                                                    1417
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2099:72:

 2099 |       goto 12661                                                           1418
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2100:72:

 2100 | 12662 continue                                                             1418
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2101:72:

 2101 |       azero=az                                                             1419
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2102:72:

 2102 |       deallocate(e,p,w)                                                    1420
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2103:72:

 2103 |       return                                                               1421
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2104:72:

 2104 |       end                                                                  1422
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2105:72:

 2105 |       subroutine lognetn(parm,no,ni,nc,x,y,g,w,ju,vp,ne,nx,nlam,flmin,ul   1424
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2107:72:

 2107 |       parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5,  big=9.9e30, mnlam=   1426
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2109:72:

 2109 |       real x(no,ni),y(no,nc),g(no,nc),w(no),vp(ni),ulam(nlam)              1427
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2110:72:

 2110 |       real a(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)                   1428
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2111:72:

 2111 |       integer ju(ni),m(nx),kin(nlam)                                       1429
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2121:72:

 2121 |       allocate(r(1:no),stat=ierr)                                          1440
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2122:72:

 2122 |       jerr=jerr+ierr                                                       1441
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2123:72:

 2123 |       allocate(v(1:no),stat=ierr)                                          1441
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2124:72:

 2124 |       jerr=jerr+ierr                                                       1442
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2125:72:

 2125 |       allocate(mm(1:ni),stat=ierr)                                         1442
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2126:72:

 2126 |       jerr=jerr+ierr                                                       1443
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2127:72:

 2127 |       allocate(is(1:max(nc,ni)),stat=ierr)                                 1443
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2128:72:

 2128 |       jerr=jerr+ierr                                                       1444
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2129:72:

 2129 |       allocate(sxp(1:no),stat=ierr)                                        1444
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2130:72:

 2130 |       jerr=jerr+ierr                                                       1445
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2131:72:

 2131 |       allocate(sxpl(1:no),stat=ierr)                                       1445
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2132:72:

 2132 |       jerr=jerr+ierr                                                       1446
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2133:72:

 2133 |       allocate(di(1:no),stat=ierr)                                         1446
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2134:72:

 2134 |       jerr=jerr+ierr                                                       1447
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2135:72:

 2135 |       allocate(ga(1:ni),stat=ierr)                                         1447
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2136:72:

 2136 |       jerr=jerr+ierr                                                       1448
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2137:72:

 2137 |       allocate(ixx(1:ni),stat=ierr)                                        1448
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2138:72:

 2138 |       jerr=jerr+ierr                                                       1449
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2139:72:

 2139 |       if(jerr.ne.0) return                                                 1450
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2140:72:

 2140 |       pmax=1.0-pmin                                                        1450
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2141:72:

 2141 |       emin=pmin/pmax                                                       1450
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2142:72:

 2142 |       emax=1.0/emin                                                        1451
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2143:72:

 2143 |       pfm=(1.0+pmin)*pmin                                                  1451
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2144:72:

 2144 |       pfx=(1.0-pmin)*pmax                                                  1451
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2145:72:

 2145 |       vmin=pfm*pmax                                                        1452
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2146:72:

 2146 |       bta=parm                                                             1452
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2147:72:

 2147 |       omb=1.0-bta                                                          1452
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2148:72:

 2148 |       dev1=0.0                                                             1452
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2149:72:

 2149 |       dev0=0.0                                                             1453
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2150:72:

 2150 | 12670 do 12671 ic=1,nc                                                     1453
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2151:72:

 2151 |       q0=dot_product(w,y(:,ic))                                            1454
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2152:72:

 2152 |       if(q0 .gt. pmin)goto 12691                                           1454
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2153:72:

 2153 |       jerr =8000+ic                                                        1454
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2154:72:

 2154 |       return                                                               1454
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2155:72:

 2155 | 12691 continue                                                             1455
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2156:72:

 2156 |       if(q0 .lt. 1.0-pmin)goto 12711                                       1455
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2157:72:

 2157 |       jerr =9000+ic                                                        1455
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2158:72:

 2158 |       return                                                               1455
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2159:72:

 2159 | 12711 continue                                                             1456
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2160:72:

 2160 |       b(0,ic)=log(q0)                                                      1456
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2161:72:

 2161 |       dev1=dev1-q0*b(0,ic)                                                 1456
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2162:72:

 2162 |       b(1:ni,ic)=0.0                                                       1457
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2163:72:

 2163 | 12671 continue                                                             1458
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2164:72:

 2164 | 12672 continue                                                             1458
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2165:72:

 2165 |       ixx=0                                                                1458
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2166:72:

 2166 |       al=0.0                                                               1459
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2167:72:

 2167 |       if(nonzero(no*nc,g) .ne. 0)goto 12731                                1460
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2168:72:

 2168 |       b(0,:)=b(0,:)-sum(b(0,:))/nc                                         1460
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2169:72:

 2169 |       sxp=0.0                                                              1461
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2170:72:

 2170 | 12740 do 12741 ic=1,nc                                                     1461
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2171:72:

 2171 |       q(:,ic)=exp(b(0,ic))                                                 1461
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2172:72:

 2172 |       sxp=sxp+q(:,ic)                                                      1461
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2173:72:

 2173 | 12741 continue                                                             1462
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2174:72:

 2174 | 12742 continue                                                             1462
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2175:72:

 2175 |       goto 12751                                                           1463
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2176:72:

 2176 | 12731 continue                                                             1463
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2177:72:

 2177 | 12760 do 12761 i=1,no                                                      1463
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2178:72:

 2178 |       g(i,:)=g(i,:)-sum(g(i,:))/nc                                         1463
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2179:72:

 2179 | 12761 continue                                                             1463
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2180:72:

 2180 | 12762 continue                                                             1463
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2181:72:

 2181 |       sxp=0.0                                                              1464
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2182:72:

 2182 |       call kazero(nc,no,y,g,w,b(0,:),jerr)                                 1464
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2183:72:

 2183 |       if(jerr.ne.0) return                                                 1465
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2184:72:

 2184 |       dev1=0.0                                                             1466
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2185:72:

 2185 | 12770 do 12771 ic=1,nc                                                     1466
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2186:72:

 2186 |       q(:,ic)=b(0,ic)+g(:,ic)                                              1467
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2187:72:

 2187 |       dev1=dev1-dot_product(w,y(:,ic)*q(:,ic))                             1468
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2188:72:

 2188 |       q(:,ic)=exp(q(:,ic))                                                 1468
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2189:72:

 2189 |       sxp=sxp+q(:,ic)                                                      1469
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2190:72:

 2190 | 12771 continue                                                             1470
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2191:72:

 2191 | 12772 continue                                                             1470
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2192:72:

 2192 |       sxpl=w*log(sxp)                                                      1470
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2193:72:

 2193 | 12780 do 12781 ic=1,nc                                                     1470
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2194:72:

 2194 |       dev1=dev1+dot_product(y(:,ic),sxpl)                                  1470
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2195:72:

 2195 | 12781 continue                                                             1471
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2196:72:

 2196 | 12782 continue                                                             1471
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2197:72:

 2197 | 12751 continue                                                             1472
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2198:72:

 2198 | 12721 continue                                                             1472
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2199:72:

 2199 | 12790 do 12791 ic=1,nc                                                     1472
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2200:72:

 2200 | 12800 do 12801 i=1,no                                                      1472
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2201:72:

 2201 |       if(y(i,ic).gt.0.0) dev0=dev0+w(i)*y(i,ic)*log(y(i,ic))               1472
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2202:72:

 2202 | 12801 continue                                                             1472
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2203:72:

 2203 | 12802 continue                                                             1472
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2204:72:

 2204 | 12791 continue                                                             1473
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2205:72:

 2205 | 12792 continue                                                             1473
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2206:72:

 2206 |       dev0=dev0+dev1                                                       1474
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2207:72:

 2207 |       if(kopt .le. 0)goto 12821                                            1475
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2208:72:

 2208 |       if(isd .le. 0)goto 12841                                             1475
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2209:72:

 2209 |       xv=0.25                                                              1475
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2210:72:

 2210 |       goto 12851                                                           1476
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2211:72:

 2211 | 12841 continue                                                             1476
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2212:72:

 2212 | 12860 do 12861 j=1,ni                                                      1476
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2213:72:

 2213 |       if(ju(j).ne.0) xv(j,:)=0.25*dot_product(w,x(:,j)**2)                 1476
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2214:72:

 2214 | 12861 continue                                                             1476
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2215:72:

 2215 | 12862 continue                                                             1476
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2216:72:

 2216 | 12851 continue                                                             1477
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2217:72:

 2217 | 12831 continue                                                             1477
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2218:72:

 2218 | 12821 continue                                                             1478
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2219:72:

 2219 |       if(flmin .ge. 1.0)goto 12881                                         1478
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2220:72:

 2220 |       eqs=max(eps,flmin)                                                   1478
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2221:72:

 2221 |       alf=eqs**(1.0/(nlam-1))                                              1478
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2222:72:

 2222 | 12881 continue                                                             1479
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2223:72:

 2223 |       m=0                                                                  1479
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2224:72:

 2224 |       mm=0                                                                 1479
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2225:72:

 2225 |       nin=0                                                                1479
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2226:72:

 2226 |       nlp=0                                                                1479
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2227:72:

 2227 |       mnl=min(mnlam,nlam)                                                  1479
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2228:72:

 2228 |       bs=0.0                                                               1479
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2229:72:

 2229 |       shr=shri*dev0                                                        1480
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2230:72:

 2230 |       ga=0.0                                                               1481
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2231:72:

 2231 | 12890 do 12891 ic=1,nc                                                     1481
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2232:72:

 2232 |       r=w*(y(:,ic)-q(:,ic)/sxp)                                            1482
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2233:72:

 2233 | 12900 do 12901 j=1,ni                                                      1482
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2234:72:

 2234 |       if(ju(j).ne.0) ga(j)=max(ga(j),abs(dot_product(r,x(:,j))))           1482
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2235:72:

 2235 | 12901 continue                                                             1483
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2236:72:

 2236 | 12902 continue                                                             1483
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2237:72:

 2237 | 12891 continue                                                             1484
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2238:72:

 2238 | 12892 continue                                                             1484
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2239:72:

 2239 | 12910 do 12911 ilm=1,nlam                                                  1484
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2240:72:

 2240 |       al0=al                                                               1485
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2241:72:

 2241 |       if(flmin .lt. 1.0)goto 12931                                         1485
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2242:72:

 2242 |       al=ulam(ilm)                                                         1485
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2243:72:

 2243 |       goto 12921                                                           1486
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2244:72:

 2244 | 12931 if(ilm .le. 2)goto 12941                                             1486
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2245:72:

 2245 |       al=al*alf                                                            1486
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2246:72:

 2246 |       goto 12921                                                           1487
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2247:72:

 2247 | 12941 if(ilm .ne. 1)goto 12951                                             1487
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2248:72:

 2248 |       al=big                                                               1487
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2249:72:

 2249 |       goto 12961                                                           1488
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2250:72:

 2250 | 12951 continue                                                             1488
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2251:72:

 2251 |       al0=0.0                                                              1489
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2252:72:

 2252 | 12970 do 12971 j=1,ni                                                      1489
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2253:72:

 2253 |       if(ju(j).eq.0)goto 12971                                             1489
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2254:72:

 2254 |       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            1489
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2255:72:

 2255 | 12971 continue                                                             1490
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2256:72:

 2256 | 12972 continue                                                             1490
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2257:72:

 2257 |       al0=al0/max(bta,1.0e-3)                                              1490
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2258:72:

 2258 |       al=alf*al0                                                           1491
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2259:72:

 2259 | 12961 continue                                                             1492
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2260:72:

 2260 | 12921 continue                                                             1492
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2261:72:

 2261 |       al2=al*omb                                                           1492
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2262:72:

 2262 |       al1=al*bta                                                           1492
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2263:72:

 2263 |       tlam=bta*(2.0*al-al0)                                                1493
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2264:72:

 2264 | 12980 do 12981 k=1,ni                                                      1493
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2265:72:

 2265 |       if(ixx(k).eq.1)goto 12981                                            1493
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2266:72:

 2266 |       if(ju(k).eq.0)goto 12981                                             1494
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2267:72:

 2267 |       if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                     1495
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2268:72:

 2268 | 12981 continue                                                             1496
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2269:72:

 2269 | 12982 continue                                                             1496
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2270:72:

 2270 | 10680 continue                                                             1497
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2271:72:

 2271 | 12990 continue                                                             1497
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2272:72:

 2272 | 12991 continue                                                             1497
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2273:72:

 2273 |       ix=0                                                                 1497
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2274:72:

 2274 |       jx=ix                                                                1497
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2275:72:

 2275 |       ig=0                                                                 1498
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2276:72:

 2276 | 13000 do 13001 ic=1,nc                                                     1498
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2277:72:

 2277 |       bs(0,ic)=b(0,ic)                                                     1499
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2278:72:

 2278 |       if(nin.gt.0) bs(m(1:nin),ic)=b(m(1:nin),ic)                          1500
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2279:72:

 2279 |       xmz=0.0                                                              1501
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2280:72:

 2280 | 13010 do 13011 i=1,no                                                      1501
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2281:72:

 2281 |       pic=q(i,ic)/sxp(i)                                                   1502
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2282:72:

 2282 |       if(pic .ge. pfm)goto 13031                                           1502
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2283:72:

 2283 |       pic=0.0                                                              1502
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2284:72:

 2284 |       v(i)=0.0                                                             1502
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2285:72:

 2285 |       goto 13021                                                           1503
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2286:72:

 2286 | 13031 if(pic .le. pfx)goto 13041                                           1503
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2287:72:

 2287 |       pic=1.0                                                              1503
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2288:72:

 2288 |       v(i)=0.0                                                             1503
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2289:72:

 2289 |       goto 13051                                                           1504
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2290:72:

 2290 | 13041 continue                                                             1504
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2291:72:

 2291 |       v(i)=w(i)*pic*(1.0-pic)                                              1504
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2292:72:

 2292 |       xmz=xmz+v(i)                                                         1504
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2293:72:

 2293 | 13051 continue                                                             1505
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2294:72:

 2294 | 13021 continue                                                             1505
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2295:72:

 2295 |       r(i)=w(i)*(y(i,ic)-pic)                                              1506
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2296:72:

 2296 | 13011 continue                                                             1507
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2297:72:

 2297 | 13012 continue                                                             1507
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2298:72:

 2298 |       if(xmz.le.vmin)goto 13001                                            1507
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2299:72:

 2299 |       ig=1                                                                 1508
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2300:72:

 2300 |       if(kopt .ne. 0)goto 13071                                            1509
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2301:72:

 2301 | 13080 do 13081 j=1,ni                                                      1509
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2302:72:

 2302 |       if(ixx(j).gt.0) xv(j,ic)=dot_product(v,x(:,j)**2)                    1509
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2303:72:

 2303 | 13081 continue                                                             1510
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2304:72:

 2304 | 13082 continue                                                             1510
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2305:72:

 2305 | 13071 continue                                                             1511
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2306:72:

 2306 | 13090 continue                                                             1511
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2307:72:

 2307 | 13091 continue                                                             1511
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2308:72:

 2308 |       nlp=nlp+1                                                            1511
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2309:72:

 2309 |       dlx=0.0                                                              1512
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2310:72:

 2310 | 13100 do 13101 k=1,ni                                                      1512
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2311:72:

 2311 |       if(ixx(k).eq.0)goto 13101                                            1513
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2312:72:

 2312 |       bk=b(k,ic)                                                           1513
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2313:72:

 2313 |       gk=dot_product(r,x(:,k))                                             1514
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2314:72:

 2314 |       u=gk+xv(k,ic)*b(k,ic)                                                1514
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2315:72:

 2315 |       au=abs(u)-vp(k)*al1                                                  1515
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2316:72:

 2316 |       if(au .gt. 0.0)goto 13121                                            1515
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2317:72:

 2317 |       b(k,ic)=0.0                                                          1515
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2318:72:

 2318 |       goto 13131                                                           1516
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2319:72:

 2319 | 13121 continue                                                             1516
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2320:72:

 2320 |       b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)                              1516
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2321:72:

 2321 | 13131 continue                                                             1517
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2322:72:

 2322 | 13111 continue                                                             1517
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2323:72:

 2323 |       d=b(k,ic)-bk                                                         1517
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2324:72:

 2324 |       if(abs(d).le.0.0)goto 13101                                          1518
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2325:72:

 2325 |       dlx=max(dlx,xv(k,ic)*d**2)                                           1518
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2326:72:

 2326 |       r=r-d*v*x(:,k)                                                       1519
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2327:72:

 2327 |       if(mm(k) .ne. 0)goto 13151                                           1519
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2328:72:

 2328 |       nin=nin+1                                                            1520
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2329:72:

 2329 |       if(nin .le. nx)goto 13171                                            1520
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2330:72:

 2330 |       jx=1                                                                 1520
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2331:72:

 2331 |       goto 13102                                                           1520
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2332:72:

 2332 | 13171 continue                                                             1521
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2333:72:

 2333 |       mm(k)=nin                                                            1521
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2334:72:

 2334 |       m(nin)=k                                                             1522
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2335:72:

 2335 | 13151 continue                                                             1523
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2336:72:

 2336 | 13101 continue                                                             1524
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2337:72:

 2337 | 13102 continue                                                             1524
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2338:72:

 2338 |       if(jx.gt.0)goto 13092                                                1525
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2339:72:

 2339 |       d=sum(r)/xmz                                                         1526
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2340:72:

 2340 |       if(d .eq. 0.0)goto 13191                                             1526
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2341:72:

 2341 |       b(0,ic)=b(0,ic)+d                                                    1526
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2342:72:

 2342 |       dlx=max(dlx,xmz*d**2)                                                1526
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2343:72:

 2343 |       r=r-d*v                                                              1526
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2344:72:

 2344 | 13191 continue                                                             1527
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2345:72:

 2345 |       if(dlx.lt.shr)goto 13092                                             1528
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2346:72:

 2346 |       if(nlp .le. maxit)goto 13211                                         1528
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2347:72:

 2347 |       jerr=-ilm                                                            1528
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2348:72:

 2348 |       return                                                               1528
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2349:72:

 2349 | 13211 continue                                                             1529
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2350:72:

 2350 | 13220 continue                                                             1529
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2351:72:

 2351 | 13221 continue                                                             1529
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2352:72:

 2352 |       nlp=nlp+1                                                            1529
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2353:72:

 2353 |       dlx=0.0                                                              1530
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2354:72:

 2354 | 13230 do 13231 l=1,nin                                                     1530
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2355:72:

 2355 |       k=m(l)                                                               1530
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2356:72:

 2356 |       bk=b(k,ic)                                                           1531
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2357:72:

 2357 |       gk=dot_product(r,x(:,k))                                             1532
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2358:72:

 2358 |       u=gk+xv(k,ic)*b(k,ic)                                                1532
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2359:72:

 2359 |       au=abs(u)-vp(k)*al1                                                  1533
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2360:72:

 2360 |       if(au .gt. 0.0)goto 13251                                            1533
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2361:72:

 2361 |       b(k,ic)=0.0                                                          1533
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2362:72:

 2362 |       goto 13261                                                           1534
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2363:72:

 2363 | 13251 continue                                                             1534
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2364:72:

 2364 |       b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)                              1534
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2365:72:

 2365 | 13261 continue                                                             1535
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2366:72:

 2366 | 13241 continue                                                             1535
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2367:72:

 2367 |       d=b(k,ic)-bk                                                         1535
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2368:72:

 2368 |       if(abs(d).le.0.0)goto 13231                                          1536
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2369:72:

 2369 |       dlx=max(dlx,xv(k,ic)*d**2)                                           1536
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2370:72:

 2370 |       r=r-d*v*x(:,k)                                                       1537
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2371:72:

 2371 | 13231 continue                                                             1538
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2372:72:

 2372 | 13232 continue                                                             1538
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2373:72:

 2373 |       d=sum(r)/xmz                                                         1539
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2374:72:

 2374 |       if(d .eq. 0.0)goto 13281                                             1539
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2375:72:

 2375 |       b(0,ic)=b(0,ic)+d                                                    1540
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2376:72:

 2376 |       dlx=max(dlx,xmz*d**2)                                                1540
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2377:72:

 2377 |       r=r-d*v                                                              1541
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2378:72:

 2378 | 13281 continue                                                             1542
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2379:72:

 2379 |       if(dlx.lt.shr)goto 13222                                             1542
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2380:72:

 2380 |       if(nlp .le. maxit)goto 13301                                         1542
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2381:72:

 2381 |       jerr=-ilm                                                            1542
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2382:72:

 2382 |       return                                                               1542
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2383:72:

 2383 | 13301 continue                                                             1543
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2384:72:

 2384 |       goto 13221                                                           1544
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2385:72:

 2385 | 13222 continue                                                             1544
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2386:72:

 2386 |       goto 13091                                                           1545
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2387:72:

 2387 | 13092 continue                                                             1545
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2388:72:

 2388 |       if(jx.gt.0)goto 13002                                                1546
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2389:72:

 2389 |       if(xmz*(b(0,ic)-bs(0,ic))**2.gt.shr) ix=1                            1547
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2390:72:

 2390 |       if(ix .ne. 0)goto 13321                                              1548
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2391:72:

 2391 | 13330 do 13331 j=1,nin                                                     1548
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2392:72:

 2392 |       k=m(j)                                                               1549
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2393:72:

 2393 |       if(xv(k,ic)*(b(k,ic)-bs(k,ic))**2 .le. shr)goto 13351                1549
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2394:72:

 2394 |       ix=1                                                                 1549
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2395:72:

 2395 |       goto 13332                                                           1549
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2396:72:

 2396 | 13351 continue                                                             1550
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2397:72:

 2397 | 13331 continue                                                             1551
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2398:72:

 2398 | 13332 continue                                                             1551
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2399:72:

 2399 | 13321 continue                                                             1552
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2400:72:

 2400 | 13360 do 13361 i=1,no                                                      1552
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2401:72:

 2401 |       fi=b(0,ic)+g(i,ic)                                                   1554
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2402:72:

 2402 |       if(nin.gt.0) fi=fi+dot_product(b(m(1:nin),ic),x(i,m(1:nin)))         1555
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2403:72:

 2403 |       fi=min(max(exmn,fi),exmx)                                            1555
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2404:72:

 2404 |       sxp(i)=sxp(i)-q(i,ic)                                                1556
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2405:72:

 2405 |       q(i,ic)=min(max(emin*sxp(i),exp(fi)),emax*sxp(i))                    1557
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2406:72:

 2406 |       sxp(i)=sxp(i)+q(i,ic)                                                1558
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2407:72:

 2407 | 13361 continue                                                             1559
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2408:72:

 2408 | 13362 continue                                                             1559
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2409:72:

 2409 | 13001 continue                                                             1560
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2410:72:

 2410 | 13002 continue                                                             1560
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2411:72:

 2411 |       s=-sum(b(0,:))/nc                                                    1560
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2412:72:

 2412 |       b(0,:)=b(0,:)+s                                                      1560
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2413:72:

 2413 |       di=s                                                                 1561
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2414:72:

 2414 | 13370 do 13371 j=1,nin                                                     1561
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2415:72:

 2415 |       l=m(j)                                                               1562
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2416:72:

 2416 |       if(vp(l) .gt. 0.0)goto 13391                                         1562
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2417:72:

 2417 |       s=sum(b(l,:))/nc                                                     1562
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2418:72:

 2418 |       goto 13401                                                           1563
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2419:72:

 2419 | 13391 continue                                                             1563
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2420:72:

 2420 |       s=elc(parm,nc,b(l,:),is)                                             1563
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2421:72:

 2421 | 13401 continue                                                             1564
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2422:72:

 2422 | 13381 continue                                                             1564
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2423:72:

 2423 |       b(l,:)=b(l,:)-s                                                      1564
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2424:72:

 2424 |       di=di-s*x(:,l)                                                       1565
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2425:72:

 2425 | 13371 continue                                                             1566
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2426:72:

 2426 | 13372 continue                                                             1566
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2427:72:

 2427 |       di=exp(di)                                                           1566
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2428:72:

 2428 |       sxp=sxp*di                                                           1566
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2429:72:

 2429 | 13410 do 13411 ic=1,nc                                                     1566
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2430:72:

 2430 |       q(:,ic)=q(:,ic)*di                                                   1566
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2431:72:

 2431 | 13411 continue                                                             1567
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2432:72:

 2432 | 13412 continue                                                             1567
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2433:72:

 2433 |       if(jx.gt.0)goto 12992                                                1567
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2434:72:

 2434 |       if(ig.eq.0)goto 12992                                                1568
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2435:72:

 2435 |       if(ix .ne. 0)goto 13431                                              1569
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2436:72:

 2436 | 13440 do 13441 k=1,ni                                                      1569
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2437:72:

 2437 |       if(ixx(k).eq.1)goto 13441                                            1569
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2438:72:

 2438 |       if(ju(k).eq.0)goto 13441                                             1569
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2439:72:

 2439 |       ga(k)=0.0                                                            1569
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2440:72:

 2440 | 13441 continue                                                             1570
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2441:72:

 2441 | 13442 continue                                                             1570
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2442:72:

 2442 | 13450 do 13451 ic=1,nc                                                     1570
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2443:72:

 2443 |       r=w*(y(:,ic)-q(:,ic)/sxp)                                            1571
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2444:72:

 2444 | 13460 do 13461 k=1,ni                                                      1571
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2445:72:

 2445 |       if(ixx(k).eq.1)goto 13461                                            1571
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2446:72:

 2446 |       if(ju(k).eq.0)goto 13461                                             1572
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2447:72:

 2447 |       ga(k)=max(ga(k),abs(dot_product(r,x(:,k))))                          1573
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2448:72:

 2448 | 13461 continue                                                             1574
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2449:72:

 2449 | 13462 continue                                                             1574
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2450:72:

 2450 | 13451 continue                                                             1575
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2451:72:

 2451 | 13452 continue                                                             1575
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2452:72:

 2452 | 13470 do 13471 k=1,ni                                                      1575
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2453:72:

 2453 |       if(ixx(k).eq.1)goto 13471                                            1575
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2454:72:

 2454 |       if(ju(k).eq.0)goto 13471                                             1576
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2455:72:

 2455 |       if(ga(k) .le. al1*vp(k))goto 13491                                   1576
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2456:72:

 2456 |       ixx(k)=1                                                             1576
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2457:72:

 2457 |       ix=1                                                                 1576
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2458:72:

 2458 | 13491 continue                                                             1577
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2459:72:

 2459 | 13471 continue                                                             1578
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2460:72:

 2460 | 13472 continue                                                             1578
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2461:72:

 2461 |       if(ix.eq.1) go to 10680                                              1579
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2462:72:

 2462 |       goto 12992                                                           1580
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2463:72:

 2463 | 13431 continue                                                             1581
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2464:72:

 2464 |       goto 12991                                                           1582
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2465:72:

 2465 | 12992 continue                                                             1582
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2466:72:

 2466 |       if(jx .le. 0)goto 13511                                              1582
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2467:72:

 2467 |       jerr=-10000-ilm                                                      1582
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2468:72:

 2468 |       goto 12912                                                           1582
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2469:72:

 2469 | 13511 continue                                                             1582
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2470:72:

 2470 |       devi=0.0                                                             1583
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2471:72:

 2471 | 13520 do 13521 ic=1,nc                                                     1584
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2472:72:

 2472 |       if(nin.gt.0) a(1:nin,ic,ilm)=b(m(1:nin),ic)                          1584
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2473:72:

 2473 |       a0(ic,ilm)=b(0,ic)                                                   1585
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2474:72:

 2474 | 13530 do 13531 i=1,no                                                      1585
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2475:72:

 2475 |       if(y(i,ic).le.0.0)goto 13531                                         1586
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2476:72:

 2476 |       devi=devi-w(i)*y(i,ic)*log(q(i,ic)/sxp(i))                           1587
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2477:72:

 2477 | 13531 continue                                                             1588
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2478:72:

 2478 | 13532 continue                                                             1588
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2479:72:

 2479 | 13521 continue                                                             1589
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2480:72:

 2480 | 13522 continue                                                             1589
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2481:72:

 2481 |       kin(ilm)=nin                                                         1589
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2482:72:

 2482 |       alm(ilm)=al                                                          1589
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2483:72:

 2483 |       lmu=ilm                                                              1590
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2484:72:

 2484 |       dev(ilm)=(dev1-devi)/dev0                                            1590
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2485:72:

 2485 |       if(ig.eq.0)goto 12912                                                1591
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2486:72:

 2486 |       if(ilm.lt.mnl)goto 12911                                             1591
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2487:72:

 2487 |       if(flmin.ge.1.0)goto 12911                                           1592
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2488:72:

 2488 |       if(nintot(ni,nx,nc,a(1,1,ilm),m,nin,is).gt.ne)goto 12912             1593
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2489:72:

 2489 |       if(dev(ilm).gt.devmax)goto 12912                                     1593
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2490:72:

 2490 |       if(dev(ilm)-dev(ilm-1).lt.sml)goto 12912                             1594
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2491:72:

 2491 | 12911 continue                                                             1595
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2492:72:

 2492 | 12912 continue                                                             1595
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2493:72:

 2493 |       g=log(q)                                                             1595
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2494:72:

 2494 | 13540 do 13541 i=1,no                                                      1595
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2495:72:

 2495 |       g(i,:)=g(i,:)-sum(g(i,:))/nc                                         1595
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2496:72:

 2496 | 13541 continue                                                             1596
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2497:72:

 2497 | 13542 continue                                                             1596
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2498:72:

 2498 |       deallocate(sxp,b,bs,v,r,xv,q,mm,is,ga,ixx)                           1597
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2499:72:

 2499 |       return                                                               1598
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2500:72:

 2500 |       end                                                                  1599
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2501:72:

 2501 |       subroutine kazero(kk,n,y,g,q,az,jerr)                                1600
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2502:72:

 2502 |       parameter(eps=1.0e-7)                                                1601
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2503:72:

 2503 |       real y(n,kk),g(n,kk),q(n),az(kk)                                     1602
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2507:72:

 2507 |       allocate(s(1:n),stat=ierr)                                           1607
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2508:72:

 2508 |       jerr=jerr+ierr                                                       1608
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2509:72:

 2509 |       if(jerr.ne.0) return                                                 1609
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2510:72:

 2510 |       az=0.0                                                               1609
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2511:72:

 2511 |       e=exp(g)                                                             1609
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2512:72:

 2512 | 13550 do 13551 i=1,n                                                       1609
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2513:72:

 2513 |       s(i)=sum(e(i,:))                                                     1609
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2514:72:

 2514 | 13551 continue                                                             1610
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2515:72:

 2515 | 13552 continue                                                             1610
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2516:72:

 2516 | 13560 continue                                                             1610
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2517:72:

 2517 | 13561 continue                                                             1610
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2518:72:

 2518 |       dm=0.0                                                               1611
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2519:72:

 2519 | 13570 do 13571 k=1,kk                                                      1611
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2520:72:

 2520 |       t=0.0                                                                1611
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2521:72:

 2521 |       u=t                                                                  1612
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2522:72:

 2522 | 13580 do 13581 i=1,n                                                       1612
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2523:72:

 2523 |       pik=e(i,k)/s(i)                                                      1613
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2524:72:

 2524 |       t=t+q(i)*(y(i,k)-pik)                                                1613
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2525:72:

 2525 |       u=u+q(i)*pik*(1.0-pik)                                               1614
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2526:72:

 2526 | 13581 continue                                                             1615
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2527:72:

 2527 | 13582 continue                                                             1615
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2528:72:

 2528 |       d=t/u                                                                1615
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2529:72:

 2529 |       az(k)=az(k)+d                                                        1615
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2530:72:

 2530 |       ed=exp(d)                                                            1615
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2531:72:

 2531 |       dm=max(dm,abs(d))                                                    1616
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2532:72:

 2532 | 13590 do 13591 i=1,n                                                       1616
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2533:72:

 2533 |       z=e(i,k)                                                             1616
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2534:72:

 2534 |       e(i,k)=z*ed                                                          1616
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2535:72:

 2535 |       s(i)=s(i)-z+e(i,k)                                                   1616
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2536:72:

 2536 | 13591 continue                                                             1617
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2537:72:

 2537 | 13592 continue                                                             1617
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2538:72:

 2538 | 13571 continue                                                             1618
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2539:72:

 2539 | 13572 continue                                                             1618
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2540:72:

 2540 |       if(dm.lt.eps)goto 13562                                              1618
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2541:72:

 2541 |       goto 13561                                                           1619
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2542:72:

 2542 | 13562 continue                                                             1619
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2543:72:

 2543 |       az=az-sum(az)/kk                                                     1620
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2544:72:

 2544 |       deallocate(e,s)                                                      1621
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2545:72:

 2545 |       return                                                               1622
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2546:72:

 2546 |       end                                                                  1623
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2547:72:

 2547 |       function elc(parm,n,a,m)                                             1624
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2548:72:

 2548 |       real a(n)                                                            1624
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2549:72:

 2549 |       integer m(n)                                                         1625
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2550:72:

 2550 |       fn=n                                                                 1625
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2551:72:

 2551 |       am=sum(a)/fn                                                         1626
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2552:72:

 2552 |       if((parm .ne. 0.0) .and. (n .ne. 2))goto 13611                       1626
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2553:72:

 2553 |       elc=am                                                               1626
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2554:72:

 2554 |       return                                                               1626
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2555:72:

 2555 | 13611 continue                                                             1627
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2556:72:

 2556 | 13620 do 13621 i=1,n                                                       1627
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2557:72:

 2557 |       m(i)=i                                                               1627
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2558:72:

 2558 | 13621 continue                                                             1627
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2559:72:

 2559 | 13622 continue                                                             1627
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2560:72:

 2560 |       call psort7(a,m,1,n)                                                 1628
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2561:72:

 2561 |       if(a(m(1)) .ne. a(m(n)))goto 13641                                   1628
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2562:72:

 2562 |       elc=a(1)                                                             1628
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2563:72:

 2563 |       return                                                               1628
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2564:72:

 2564 | 13641 continue                                                             1629
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2565:72:

 2565 |       if(mod(n,2) .ne. 1)goto 13661                                        1629
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2566:72:

 2566 |       ad=a(m(n/2+1))                                                       1629
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2567:72:

 2567 |       goto 13671                                                           1630
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2568:72:

 2568 | 13661 continue                                                             1630
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2569:72:

 2569 |       ad=0.5*(a(m(n/2+1))+a(m(n/2)))                                       1630
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2570:72:

 2570 | 13671 continue                                                             1631
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2571:72:

 2571 | 13651 continue                                                             1631
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2572:72:

 2572 |       if(parm .ne. 1.0)goto 13691                                          1631
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2573:72:

 2573 |       elc=ad                                                               1631
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2574:72:

 2574 |       return                                                               1631
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2575:72:

 2575 | 13691 continue                                                             1632
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2576:72:

 2576 |       b1=min(am,ad)                                                        1632
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2577:72:

 2577 |       b2=max(am,ad)                                                        1632
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2578:72:

 2578 |       k2=1                                                                 1633
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2579:72:

 2579 | 13700 continue                                                             1633
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2580:72:

 2580 | 13701 if(a(m(k2)).gt.b1)goto 13702                                         1633
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2581:72:

 2581 |       k2=k2+1                                                              1633
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2582:72:

 2582 |       goto 13701                                                           1633
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2583:72:

 2583 | 13702 continue                                                             1633
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2584:72:

 2584 |       k1=k2-1                                                              1634
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2585:72:

 2585 | 13710 continue                                                             1634
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2586:72:

 2586 | 13711 if(a(m(k2)).ge.b2)goto 13712                                         1634
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2587:72:

 2587 |       k2=k2+1                                                              1634
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2588:72:

 2588 |       goto 13711                                                           1635
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2589:72:

 2589 | 13712 continue                                                             1635
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2590:72:

 2590 |       r=parm/((1.0-parm)*fn)                                               1635
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2591:72:

 2591 |       is=0                                                                 1635
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2592:72:

 2592 |       sm=n-2*(k1-1)                                                        1636
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2593:72:

 2593 | 13720 do 13721 k=k1,k2-1                                                   1636
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2594:72:

 2594 |       sm=sm-2.0                                                            1636
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2595:72:

 2595 |       s=r*sm+am                                                            1637
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2596:72:

 2596 |       if(s .le. a(m(k)) .or. s .gt. a(m(k+1)))goto 13741                   1637
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2597:72:

 2597 |       is=k                                                                 1637
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2598:72:

 2598 |       goto 13722                                                           1637
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2599:72:

 2599 | 13741 continue                                                             1638
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2600:72:

 2600 | 13721 continue                                                             1639
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2601:72:

 2601 | 13722 continue                                                             1639
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2602:72:

 2602 |       if(is .eq. 0)goto 13761                                              1639
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2603:72:

 2603 |       elc=s                                                                1639
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2604:72:

 2604 |       return                                                               1639
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2605:72:

 2605 | 13761 continue                                                             1639
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2606:72:

 2606 |       r2=2.0*r                                                             1639
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2607:72:

 2607 |       s1=a(m(k1))                                                          1639
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2608:72:

 2608 |       am2=2.0*am                                                           1640
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2609:72:

 2609 |       cri=r2*sum(abs(a-s1))+s1*(s1-am2)                                    1640
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2610:72:

 2610 |       elc=s1                                                               1641
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2611:72:

 2611 | 13770 do 13771 k=k1+1,k2                                                   1641
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2612:72:

 2612 |       s=a(m(k))                                                            1641
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2613:72:

 2613 |       if(s.eq.s1)goto 13771                                                1642
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2614:72:

 2614 |       c=r2*sum(abs(a-s))+s*(s-am2)                                         1643
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2615:72:

 2615 |       if(c .ge. cri)goto 13791                                             1643
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2616:72:

 2616 |       cri=c                                                                1643
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2617:72:

 2617 |       elc=s                                                                1643
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2618:72:

 2618 | 13791 continue                                                             1643
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2619:72:

 2619 |       s1=s                                                                 1644
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2620:72:

 2620 | 13771 continue                                                             1645
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2621:72:

 2621 | 13772 continue                                                             1645
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2622:72:

 2622 |       return                                                               1646
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2623:72:

 2623 |       end                                                                  1647
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2624:72:

 2624 |       function nintot(ni,nx,nc,a,m,nin,is)                                 1648
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2625:72:

 2625 |       real a(nx,nc)                                                        1648
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2626:72:

 2626 |       integer m(nx),is(ni)                                                 1649
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2627:72:

 2627 |       is=0                                                                 1649
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2628:72:

 2628 |       nintot=0                                                             1650
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2629:72:

 2629 | 13800 do 13801 ic=1,nc                                                     1650
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2630:72:

 2630 | 13810 do 13811 j=1,nin                                                     1650
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2631:72:

 2631 |       k=m(j)                                                               1650
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2632:72:

 2632 |       if(is(k).ne.0)goto 13811                                             1651
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2633:72:

 2633 |       if(a(j,ic).eq.0.0)goto 13811                                         1651
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2634:72:

 2634 |       is(k)=k                                                              1651
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2635:72:

 2635 |       nintot=nintot+1                                                      1652
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2636:72:

 2636 | 13811 continue                                                             1652
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2637:72:

 2637 | 13812 continue                                                             1652
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2638:72:

 2638 | 13801 continue                                                             1653
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2639:72:

 2639 | 13802 continue                                                             1653
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2640:72:

 2640 |       return                                                               1654
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2641:72:

 2641 |       end                                                                  1655
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2642:72:

 2642 |       subroutine luncomp(ni,nx,nc,ca,ia,nin,a)                             1656
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2643:72:

 2643 |       real ca(nx,nc),a(ni,nc)                                              1656
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2644:72:

 2644 |       integer ia(nx)                                                       1657
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2645:72:

 2645 |       a=0.0                                                                1658
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2646:72:

 2646 | 13820 do 13821 ic=1,nc                                                     1658
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2647:72:

 2647 |       if(nin.gt.0) a(ia(1:nin),ic)=ca(1:nin,ic)                            1658
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2648:72:

 2648 | 13821 continue                                                             1659
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2649:72:

 2649 | 13822 continue                                                             1659
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2650:72:

 2650 |       return                                                               1660
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2651:72:

 2651 |       end                                                                  1661
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2652:72:

 2652 |       subroutine lmodval(nt,x,nc,nx,a0,ca,ia,nin,ans)                      1662
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2653:72:

 2653 |       real a0(nc),ca(nx,nc),x(nt,*),ans(nc,nt)                             1662
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2654:72:

 2654 |       integer ia(nx)                                                       1663
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2655:72:

 2655 | 13830 do 13831 i=1,nt                                                      1663
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2656:72:

 2656 | 13840 do 13841 ic=1,nc                                                     1663
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2657:72:

 2657 |       ans(ic,i)=a0(ic)                                                     1665
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2658:72:

 2658 |       if(nin.gt.0) ans(ic,i)=ans(ic,i)+dot_product(ca(1:nin,ic),x(i,ia(1   1666
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2660:72:

 2660 | 13841 continue                                                             1666
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2661:72:

 2661 | 13842 continue                                                             1666
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2662:72:

 2662 | 13831 continue                                                             1667
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2663:72:

 2663 | 13832 continue                                                             1667
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2664:72:

 2664 |       return                                                               1668
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2665:72:

 2665 |       end                                                                  1669
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2666:72:

 2666 |       subroutine splognet (parm,no,ni,nc,x,ix,jx,y,g,jd,vp,ne,nx,nlam,fl   1671
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2669:72:

 2669 |       real x(*),y(no,max(2,nc)),g(no,nc),vp(ni),ulam(nlam)                 1672
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2670:72:

 2670 |       real ca(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)                  1673
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2671:72:

 2671 |       integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                           1674
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2674:72:

 2674 |       if(maxval(vp) .gt. 0.0)goto 13861                                    1678
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2675:72:

 2675 |       jerr=10000                                                           1678
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2676:72:

 2676 |       return                                                               1678
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2677:72:

 2677 | 13861 continue                                                             1679
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2678:72:

 2678 |       allocate(ww(1:no),stat=jerr)                                         1680
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2679:72:

 2679 |       allocate(ju(1:ni),stat=ierr)                                         1680
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2680:72:

 2680 |       jerr=jerr+ierr                                                       1681
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2681:72:

 2681 |       allocate(vq(1:ni),stat=ierr)                                         1681
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2682:72:

 2682 |       jerr=jerr+ierr                                                       1682
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2683:72:

 2683 |       allocate(xm(1:ni),stat=ierr)                                         1682
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2684:72:

 2684 |       jerr=jerr+ierr                                                       1683
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2685:72:

 2685 |       allocate(xs(1:ni),stat=ierr)                                         1683
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2686:72:

 2686 |       jerr=jerr+ierr                                                       1684
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2687:72:

 2687 |       if(jerr.ne.0) return                                                 1685
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2688:72:

 2688 |       call spchkvars(no,ni,x,ix,ju)                                        1686
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2689:72:

 2689 |       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                 1687
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2690:72:

 2690 |       if(maxval(ju) .gt. 0)goto 13881                                      1687
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2691:72:

 2691 |       jerr=7777                                                            1687
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2692:72:

 2692 |       return                                                               1687
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2693:72:

 2693 | 13881 continue                                                             1688
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2694:72:

 2694 |       vq=max(0.0,vp)                                                       1688
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2695:72:

 2695 |       vq=vq*ni/sum(vq)                                                     1689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2696:72:

 2696 | 13890 do 13891 i=1,no                                                      1689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2697:72:

 2697 |       ww(i)=sum(y(i,:))                                                    1689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2698:72:

 2698 |       y(i,:)=y(i,:)/ww(i)                                                  1689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2699:72:

 2699 | 13891 continue                                                             1689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2700:72:

 2700 | 13892 continue                                                             1689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2701:72:

 2701 |       sw=sum(ww)                                                           1689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2702:72:

 2702 |       ww=ww/sw                                                             1690
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2703:72:

 2703 |       call splstandard2(no,ni,x,ix,jx,ww,ju,isd,xm,xs)                     1691
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2704:72:

 2704 |       if(nc .ne. 1)goto 13911                                              1692
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2705:72:

 2705 |       call sprlognet2n(parm,no,ni,x,ix,jx,y(:,1),g(:,1),ww,ju,vq,ne,nx,n   1694
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2708:72:

 2708 |       goto 13921                                                           1695
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2709:72:

 2709 | 13911 continue                                                             1696
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2710:72:

 2710 |       call sprlognetn(parm,no,ni,nc,x,ix,jx,y,g,ww,ju,vq,ne,nx,nlam,flmi   1698
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2713:72:

 2713 | 13921 continue                                                             1699
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2714:72:

 2714 | 13901 continue                                                             1699
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2715:72:

 2715 |       if(jerr.gt.0) return                                                 1699
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2716:72:

 2716 |       dev0=2.0*sw*dev0                                                     1700
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2717:72:

 2717 | 13930 do 13931 k=1,lmu                                                     1700
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2718:72:

 2718 |       nk=nin(k)                                                            1701
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2719:72:

 2719 | 13940 do 13941 ic=1,nc                                                     1701
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2720:72:

 2720 |       if(isd .le. 0)goto 13961                                             1701
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2721:72:

 2721 | 13970 do 13971 l=1,nk                                                      1701
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2722:72:

 2722 |       ca(l,ic,k)=ca(l,ic,k)/xs(ia(l))                                      1701
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2723:72:

 2723 | 13971 continue                                                             1701
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2724:72:

 2724 | 13972 continue                                                             1701
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2725:72:

 2725 | 13961 continue                                                             1702
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2726:72:

 2726 |       a0(ic,k)=a0(ic,k)-dot_product(ca(1:nk,ic,k),xm(ia(1:nk)))            1703
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2727:72:

 2727 | 13941 continue                                                             1704
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2728:72:

 2728 | 13942 continue                                                             1704
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2729:72:

 2729 | 13931 continue                                                             1705
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2730:72:

 2730 | 13932 continue                                                             1705
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2731:72:

 2731 |       deallocate(ww,ju,vq,xm,xs)                                           1706
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2732:72:

 2732 |       return                                                               1707
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2733:72:

 2733 |       end                                                                  1708
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2734:72:

 2734 |       subroutine splstandard2(no,ni,x,ix,jx,w,ju,isd,xm,xs)                1709
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2735:72:

 2735 |       real x(*),w(no),xm(ni),xs(ni)                                        1709
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2736:72:

 2736 |       integer ix(*),jx(*),ju(ni)                                           1710
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2737:72:

 2737 | 13980 do 13981 j=1,ni                                                      1710
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2738:72:

 2738 |       if(ju(j).eq.0)goto 13981                                             1710
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2739:72:

 2739 |       jb=ix(j)                                                             1710
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2740:72:

 2740 |       je=ix(j+1)-1                                                         1711
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2741:72:

 2741 |       xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                             1712
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2742:72:

 2742 |       if(isd.ne.0) xs(j)=sqrt(dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j   1713
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2744:72:

 2744 | 13981 continue                                                             1714
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2745:72:

 2745 | 13982 continue                                                             1714
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2746:72:

 2746 |       if(isd.eq.0) xs=1.0                                                  1715
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2747:72:

 2747 |       return                                                               1716
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2748:72:

 2748 |       end                                                                  1717
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2749:72:

 2749 |       subroutine sprlognet2n (parm,no,ni,x,ix,jx,y,g,w,ju,vp,ne,nx,nlam,   1719
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2752:72:

 2752 |       parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5,  big=9.9e30, mnlam=   1721
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2754:72:

 2754 |       real x(*),y(no),g(no),w(no),vp(ni),ulam(nlam)                        1722
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2755:72:

 2755 |       real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                         1723
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2756:72:

 2756 |       real xb(ni),xs(ni)                                                   1723
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2757:72:

 2757 |       integer ix(*),jx(*),ju(ni),m(nx),kin(nlam)                           1724
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2760:72:

 2760 |       allocate(b(0:ni),stat=jerr)                                          1729
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2761:72:

 2761 |       allocate(xm(0:ni),stat=ierr)                                         1729
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2762:72:

 2762 |       jerr=jerr+ierr                                                       1730
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2763:72:

 2763 |       allocate(xv(1:ni),stat=ierr)                                         1730
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2764:72:

 2764 |       jerr=jerr+ierr                                                       1731
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2765:72:

 2765 |       allocate(bs(0:ni),stat=ierr)                                         1731
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2766:72:

 2766 |       jerr=jerr+ierr                                                       1732
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2767:72:

 2767 |       allocate(ga(1:ni),stat=ierr)                                         1732
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2768:72:

 2768 |       jerr=jerr+ierr                                                       1733
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2769:72:

 2769 |       allocate(mm(1:ni),stat=ierr)                                         1733
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2770:72:

 2770 |       jerr=jerr+ierr                                                       1734
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2771:72:

 2771 |       allocate(ixx(1:ni),stat=ierr)                                        1734
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2772:72:

 2772 |       jerr=jerr+ierr                                                       1735
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2773:72:

 2773 |       allocate(q(1:no),stat=ierr)                                          1735
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2774:72:

 2774 |       jerr=jerr+ierr                                                       1736
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2775:72:

 2775 |       allocate(r(1:no),stat=ierr)                                          1736
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2776:72:

 2776 |       jerr=jerr+ierr                                                       1737
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2777:72:

 2777 |       allocate(v(1:no),stat=ierr)                                          1737
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2778:72:

 2778 |       jerr=jerr+ierr                                                       1738
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2779:72:

 2779 |       allocate(sc(1:no),stat=ierr)                                         1738
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2780:72:

 2780 |       jerr=jerr+ierr                                                       1739
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2781:72:

 2781 |       if(jerr.ne.0) return                                                 1740
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2782:72:

 2782 |       fmax=log(1.0/pmin-1.0)                                               1740
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2783:72:

 2783 |       fmin=-fmax                                                           1740
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2784:72:

 2784 |       vmin=(1.0+pmin)*pmin*(1.0-pmin)                                      1741
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2785:72:

 2785 |       bta=parm                                                             1741
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2786:72:

 2786 |       omb=1.0-bta                                                          1742
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2787:72:

 2787 |       q0=dot_product(w,y)                                                  1742
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2788:72:

 2788 |       if(q0 .gt. pmin)goto 14001                                           1742
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2789:72:

 2789 |       jerr=8001                                                            1742
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2790:72:

 2790 |       return                                                               1742
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2791:72:

 2791 | 14001 continue                                                             1743
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2792:72:

 2792 |       if(q0 .lt. 1.0-pmin)goto 14021                                       1743
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2793:72:

 2793 |       jerr=9001                                                            1743
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2794:72:

 2794 |       return                                                               1743
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2795:72:

 2795 | 14021 continue                                                             1743
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2796:72:

 2796 |       bz=log(q0/(1.0-q0))                                                  1744
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2797:72:

 2797 |       if(nonzero(no,g) .ne. 0)goto 14041                                   1744
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2798:72:

 2798 |       vi=q0*(1.0-q0)                                                       1744
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2799:72:

 2799 |       b(0)=bz                                                              1744
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2800:72:

 2800 |       v=vi*w                                                               1745
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2801:72:

 2801 |       r=w*(y-q0)                                                           1745
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2802:72:

 2802 |       q=q0                                                                 1745
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2803:72:

 2803 |       xm(0)=vi                                                             1745
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2804:72:

 2804 |       dev1=-(bz*q0+log(1.0-q0))                                            1746
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2805:72:

 2805 |       goto 14051                                                           1747
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2806:72:

 2806 | 14041 continue                                                             1747
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2807:72:

 2807 |       b(0)=azero(no,y,g,w,jerr)                                            1747
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2808:72:

 2808 |       if(jerr.ne.0) return                                                 1748
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2809:72:

 2809 |       q=1.0/(1.0+exp(-b(0)-g))                                             1748
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2810:72:

 2810 |       v=w*q*(1.0-q)                                                        1748
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2811:72:

 2811 |       r=w*(y-q)                                                            1748
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2812:72:

 2812 |       xm(0)=sum(v)                                                         1749
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2813:72:

 2813 |       dev1=-(b(0)*q0+dot_product(w,y*g+log(1.0-q)))                        1750
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2814:72:

 2814 | 14051 continue                                                             1751
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2815:72:

 2815 | 14031 continue                                                             1751
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2816:72:

 2816 |       if(kopt .le. 0)goto 14071                                            1752
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2817:72:

 2817 |       if(isd .le. 0)goto 14091                                             1752
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2818:72:

 2818 |       xv=0.25                                                              1752
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2819:72:

 2819 |       goto 14101                                                           1753
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2820:72:

 2820 | 14091 continue                                                             1754
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2821:72:

 2821 | 14110 do 14111 j=1,ni                                                      1754
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2822:72:

 2822 |       if(ju(j).eq.0)goto 14111                                             1754
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2823:72:

 2823 |       jb=ix(j)                                                             1754
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2824:72:

 2824 |       je=ix(j+1)-1                                                         1755
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2825:72:

 2825 |       xv(j)=0.25*(dot_product(w(jx(jb:je)),x(jb:je)**2)-xb(j)**2)          1756
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2826:72:

 2826 | 14111 continue                                                             1757
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2827:72:

 2827 | 14112 continue                                                             1757
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2828:72:

 2828 | 14101 continue                                                             1758
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2829:72:

 2829 | 14081 continue                                                             1758
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2830:72:

 2830 | 14071 continue                                                             1759
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2831:72:

 2831 |       b(1:ni)=0.0                                                          1759
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2832:72:

 2832 |       dev0=dev1                                                            1760
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2833:72:

 2833 | 14120 do 14121 i=1,no                                                      1760
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2834:72:

 2834 |       if(y(i).gt.0.0) dev0=dev0+w(i)*y(i)*log(y(i))                        1761
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2835:72:

 2835 |       if(y(i).lt.1.0) dev0=dev0+w(i)*(1.0-y(i))*log(1.0-y(i))              1762
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2836:72:

 2836 | 14121 continue                                                             1763
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2837:72:

 2837 | 14122 continue                                                             1763
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2838:72:

 2838 |       if(flmin .ge. 1.0)goto 14141                                         1763
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2839:72:

 2839 |       eqs=max(eps,flmin)                                                   1763
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2840:72:

 2840 |       alf=eqs**(1.0/(nlam-1))                                              1763
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2841:72:

 2841 | 14141 continue                                                             1764
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2842:72:

 2842 |       m=0                                                                  1764
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2843:72:

 2843 |       mm=0                                                                 1764
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2844:72:

 2844 |       nin=0                                                                1764
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2845:72:

 2845 |       o=0.0                                                                1764
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2846:72:

 2846 |       svr=o                                                                1764
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2847:72:

 2847 |       mnl=min(mnlam,nlam)                                                  1764
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2848:72:

 2848 |       bs=0.0                                                               1764
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2849:72:

 2849 |       nlp=0                                                                1764
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2850:72:

 2850 |       nin=nlp                                                              1765
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2851:72:

 2851 |       shr=shri*dev0                                                        1765
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2852:72:

 2852 |       al=0.0                                                               1765
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2853:72:

 2853 |       ixx=0                                                                1766
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2854:72:

 2854 | 14150 do 14151 j=1,ni                                                      1766
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2855:72:

 2855 |       if(ju(j).eq.0)goto 14151                                             1767
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2856:72:

 2856 |       jb=ix(j)                                                             1767
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2857:72:

 2857 |       je=ix(j+1)-1                                                         1767
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2858:72:

 2858 |       jn=ix(j+1)-ix(j)                                                     1768
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2859:72:

 2859 |       sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o                                 1769
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2860:72:

 2860 |       gj=dot_product(sc(1:jn),x(jb:je))                                    1770
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2861:72:

 2861 |       ga(j)=abs((gj-svr*xb(j))/xs(j))                                      1771
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2862:72:

 2862 | 14151 continue                                                             1772
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2863:72:

 2863 | 14152 continue                                                             1772
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2864:72:

 2864 | 14160 do 14161 ilm=1,nlam                                                  1772
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2865:72:

 2865 |       al0=al                                                               1773
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2866:72:

 2866 |       if(flmin .lt. 1.0)goto 14181                                         1773
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2867:72:

 2867 |       al=ulam(ilm)                                                         1773
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2868:72:

 2868 |       goto 14171                                                           1774
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2869:72:

 2869 | 14181 if(ilm .le. 2)goto 14191                                             1774
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2870:72:

 2870 |       al=al*alf                                                            1774
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2871:72:

 2871 |       goto 14171                                                           1775
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2872:72:

 2872 | 14191 if(ilm .ne. 1)goto 14201                                             1775
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2873:72:

 2873 |       al=big                                                               1775
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2874:72:

 2874 |       goto 14211                                                           1776
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2875:72:

 2875 | 14201 continue                                                             1776
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2876:72:

 2876 |       al0=0.0                                                              1777
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2877:72:

 2877 | 14220 do 14221 j=1,ni                                                      1777
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2878:72:

 2878 |       if(ju(j).eq.0)goto 14221                                             1777
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2879:72:

 2879 |       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            1777
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2880:72:

 2880 | 14221 continue                                                             1778
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2881:72:

 2881 | 14222 continue                                                             1778
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2882:72:

 2882 |       al0=al0/max(bta,1.0e-3)                                              1778
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2883:72:

 2883 |       al=alf*al0                                                           1779
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2884:72:

 2884 | 14211 continue                                                             1780
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2885:72:

 2885 | 14171 continue                                                             1780
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2886:72:

 2886 |       al2=al*omb                                                           1780
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2887:72:

 2887 |       al1=al*bta                                                           1780
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2888:72:

 2888 |       tlam=bta*(2.0*al-al0)                                                1781
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2889:72:

 2889 | 14230 do 14231 k=1,ni                                                      1781
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2890:72:

 2890 |       if(ixx(k).eq.1)goto 14231                                            1781
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2891:72:

 2891 |       if(ju(k).eq.0)goto 14231                                             1782
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2892:72:

 2892 |       if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                     1783
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2893:72:

 2893 | 14231 continue                                                             1784
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2894:72:

 2894 | 14232 continue                                                             1784
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2895:72:

 2895 | 10680 continue                                                             1785
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2896:72:

 2896 | 14240 continue                                                             1785
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2897:72:

 2897 | 14241 continue                                                             1785
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2898:72:

 2898 |       bs(0)=b(0)                                                           1785
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2899:72:

 2899 |       if(nin.gt.0) bs(m(1:nin))=b(m(1:nin))                                1786
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2900:72:

 2900 | 14250 do 14251 j=1,ni                                                      1786
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2901:72:

 2901 |       if(ixx(j).eq.0)goto 14251                                            1787
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2902:72:

 2902 |       jb=ix(j)                                                             1787
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2903:72:

 2903 |       je=ix(j+1)-1                                                         1787
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2904:72:

 2904 |       jn=ix(j+1)-ix(j)                                                     1788
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2905:72:

 2905 |       sc(1:jn)=v(jx(jb:je))                                                1789
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2906:72:

 2906 |       xm(j)=dot_product(sc(1:jn),x(jb:je))                                 1790
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2907:72:

 2907 |       if(kopt .ne. 0)goto 14271                                            1791
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2908:72:

 2908 |       xv(j)=dot_product(sc(1:jn),x(jb:je)**2)                              1792
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2909:72:

 2909 |       xv(j)=(xv(j)-2.0*xb(j)*xm(j)+xm(0)*xb(j)**2)/xs(j)**2                1793
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2910:72:

 2910 | 14271 continue                                                             1794
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2911:72:

 2911 | 14251 continue                                                             1795
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2912:72:

 2912 | 14252 continue                                                             1795
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2913:72:

 2913 | 14280 continue                                                             1795
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2914:72:

 2914 | 14281 continue                                                             1795
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2915:72:

 2915 |       nlp=nlp+1                                                            1795
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2916:72:

 2916 |       dlx=0.0                                                              1796
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2917:72:

 2917 | 14290 do 14291 k=1,ni                                                      1796
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2918:72:

 2918 |       if(ixx(k).eq.0)goto 14291                                            1797
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2919:72:

 2919 |       jb=ix(k)                                                             1797
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2920:72:

 2920 |       je=ix(k+1)-1                                                         1797
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2921:72:

 2921 |       jn=ix(k+1)-ix(k)                                                     1797
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2922:72:

 2922 |       bk=b(k)                                                              1798
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2923:72:

 2923 |       sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o                                 1799
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2924:72:

 2924 |       gk=dot_product(sc(1:jn),x(jb:je))                                    1800
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2925:72:

 2925 |       gk=(gk-svr*xb(k))/xs(k)                                              1801
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2926:72:

 2926 |       u=gk+xv(k)*b(k)                                                      1801
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2927:72:

 2927 |       au=abs(u)-vp(k)*al1                                                  1802
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2928:72:

 2928 |       if(au .gt. 0.0)goto 14311                                            1802
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2929:72:

 2929 |       b(k)=0.0                                                             1802
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2930:72:

 2930 |       goto 14321                                                           1803
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2931:72:

 2931 | 14311 continue                                                             1803
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2932:72:

 2932 |       b(k)=sign(au,u)/(xv(k)+vp(k)*al2)                                    1803
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2933:72:

 2933 | 14321 continue                                                             1804
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2934:72:

 2934 | 14301 continue                                                             1804
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2935:72:

 2935 |       d=b(k)-bk                                                            1804
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2936:72:

 2936 |       if(abs(d).le.0.0)goto 14291                                          1804
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2937:72:

 2937 |       dlx=max(dlx,xv(k)*d**2)                                              1805
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2938:72:

 2938 |       if(mm(k) .ne. 0)goto 14341                                           1805
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2939:72:

 2939 |       nin=nin+1                                                            1805
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2940:72:

 2940 |       if(nin.gt.nx)goto 14292                                              1806
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2941:72:

 2941 |       mm(k)=nin                                                            1806
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2942:72:

 2942 |       m(nin)=k                                                             1806
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2943:72:

 2943 |       sc(1:jn)=v(jx(jb:je))                                                1807
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2944:72:

 2944 |       xm(k)=dot_product(sc(1:jn),x(jb:je))                                 1808
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2945:72:

 2945 | 14341 continue                                                             1809
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2946:72:

 2946 |       r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)              1810
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2947:72:

 2947 |       o=o+d*(xb(k)/xs(k))                                                  1811
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2948:72:

 2948 |       svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)                                  1812
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2949:72:

 2949 | 14291 continue                                                             1813
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2950:72:

 2950 | 14292 continue                                                             1813
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2951:72:

 2951 |       if(nin.gt.nx)goto 14282                                              1814
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2952:72:

 2952 |       d=svr/xm(0)                                                          1815
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2953:72:

 2953 |       if(d .eq. 0.0)goto 14361                                             1815
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2954:72:

 2954 |       b(0)=b(0)+d                                                          1815
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2955:72:

 2955 |       dlx=max(dlx,xm(0)*d**2)                                              1815
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2956:72:

 2956 |       r=r-d*v                                                              1815
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2957:72:

 2957 | 14361 continue                                                             1816
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2958:72:

 2958 |       svr=svr-d*xm(0)                                                      1816
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2959:72:

 2959 |       if(dlx.lt.shr)goto 14282                                             1817
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2960:72:

 2960 |       if(nlp .le. maxit)goto 14381                                         1817
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2961:72:

 2961 |       jerr=-ilm                                                            1817
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2962:72:

 2962 |       return                                                               1817
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2963:72:

 2963 | 14381 continue                                                             1818
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2964:72:

 2964 | 14390 continue                                                             1818
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2965:72:

 2965 | 14391 continue                                                             1818
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2966:72:

 2966 |       nlp=nlp+1                                                            1818
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2967:72:

 2967 |       dlx=0.0                                                              1819
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2968:72:

 2968 | 14400 do 14401 l=1,nin                                                     1819
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2969:72:

 2969 |       k=m(l)                                                               1819
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2970:72:

 2970 |       jb=ix(k)                                                             1819
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2971:72:

 2971 |       je=ix(k+1)-1                                                         1820
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2972:72:

 2972 |       jn=ix(k+1)-ix(k)                                                     1820
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2973:72:

 2973 |       bk=b(k)                                                              1821
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2974:72:

 2974 |       sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o                                 1822
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2975:72:

 2975 |       gk=dot_product(sc(1:jn),x(jb:je))                                    1823
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2976:72:

 2976 |       gk=(gk-svr*xb(k))/xs(k)                                              1824
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2977:72:

 2977 |       u=gk+xv(k)*b(k)                                                      1824
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2978:72:

 2978 |       au=abs(u)-vp(k)*al1                                                  1825
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2979:72:

 2979 |       if(au .gt. 0.0)goto 14421                                            1825
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2980:72:

 2980 |       b(k)=0.0                                                             1825
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2981:72:

 2981 |       goto 14431                                                           1826
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2982:72:

 2982 | 14421 continue                                                             1826
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2983:72:

 2983 |       b(k)=sign(au,u)/(xv(k)+vp(k)*al2)                                    1826
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2984:72:

 2984 | 14431 continue                                                             1827
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2985:72:

 2985 | 14411 continue                                                             1827
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2986:72:

 2986 |       d=b(k)-bk                                                            1827
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2987:72:

 2987 |       if(abs(d).le.0.0)goto 14401                                          1827
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2988:72:

 2988 |       dlx=max(dlx,xv(k)*d**2)                                              1828
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2989:72:

 2989 |       r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)              1829
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2990:72:

 2990 |       o=o+d*(xb(k)/xs(k))                                                  1830
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2991:72:

 2991 |       svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)                                  1831
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2992:72:

 2992 | 14401 continue                                                             1832
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2993:72:

 2993 | 14402 continue                                                             1832
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2994:72:

 2994 |       d=svr/xm(0)                                                          1833
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2995:72:

 2995 |       if(d .eq. 0.0)goto 14451                                             1833
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2996:72:

 2996 |       b(0)=b(0)+d                                                          1833
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2997:72:

 2997 |       dlx=max(dlx,xm(0)*d**2)                                              1833
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2998:72:

 2998 |       r=r-d*v                                                              1833
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2999:72:

 2999 | 14451 continue                                                             1834
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3000:72:

 3000 |       svr=svr-d*xm(0)                                                      1834
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3001:72:

 3001 |       if(dlx.lt.shr)goto 14392                                             1835
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3002:72:

 3002 |       if(nlp .le. maxit)goto 14471                                         1835
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3003:72:

 3003 |       jerr=-ilm                                                            1835
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3004:72:

 3004 |       return                                                               1835
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3005:72:

 3005 | 14471 continue                                                             1836
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3006:72:

 3006 |       goto 14391                                                           1837
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3007:72:

 3007 | 14392 continue                                                             1837
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3008:72:

 3008 |       goto 14281                                                           1838
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3009:72:

 3009 | 14282 continue                                                             1838
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3010:72:

 3010 |       if(nin.gt.nx)goto 14242                                              1839
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3011:72:

 3011 |       sc=b(0)                                                              1839
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3012:72:

 3012 |       b0=0.0                                                               1840
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3013:72:

 3013 | 14480 do 14481 j=1,nin                                                     1840
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3014:72:

 3014 |       l=m(j)                                                               1840
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3015:72:

 3015 |       jb=ix(l)                                                             1840
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3016:72:

 3016 |       je=ix(l+1)-1                                                         1841
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3017:72:

 3017 |       sc(jx(jb:je))=sc(jx(jb:je))+b(l)*x(jb:je)/xs(l)                      1842
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3018:72:

 3018 |       b0=b0-b(l)*xb(l)/xs(l)                                               1843
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3019:72:

 3019 | 14481 continue                                                             1844
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3020:72:

 3020 | 14482 continue                                                             1844
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3021:72:

 3021 |       sc=sc+b0                                                             1845
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3022:72:

 3022 | 14490 do 14491 i=1,no                                                      1845
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3023:72:

 3023 |       fi=sc(i)+g(i)                                                        1846
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3024:72:

 3024 |       if(fi .ge. fmin)goto 14511                                           1846
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3025:72:

 3025 |       q(i)=0.0                                                             1846
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3026:72:

 3026 |       goto 14501                                                           1846
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3027:72:

 3027 | 14511 if(fi .le. fmax)goto 14521                                           1846
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3028:72:

 3028 |       q(i)=1.0                                                             1846
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3029:72:

 3029 |       goto 14531                                                           1847
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3030:72:

 3030 | 14521 continue                                                             1847
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3031:72:

 3031 |       q(i)=1.0/(1.0+exp(-fi))                                              1847
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3032:72:

 3032 | 14531 continue                                                             1848
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3033:72:

 3033 | 14501 continue                                                             1848
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3034:72:

 3034 | 14491 continue                                                             1849
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3035:72:

 3035 | 14492 continue                                                             1849
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3036:72:

 3036 |       v=w*q*(1.0-q)                                                        1849
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3037:72:

 3037 |       xm(0)=sum(v)                                                         1849
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3038:72:

 3038 |       if(xm(0).lt.vmin)goto 14242                                          1850
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3039:72:

 3039 |       r=w*(y-q)                                                            1850
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3040:72:

 3040 |       svr=sum(r)                                                           1850
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3041:72:

 3041 |       o=0.0                                                                1851
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3042:72:

 3042 |       if(xm(0)*(b(0)-bs(0))**2 .ge. shr)goto 14551                         1851
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3043:72:

 3043 |       kx=0                                                                 1852
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3044:72:

 3044 | 14560 do 14561 j=1,nin                                                     1852
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3045:72:

 3045 |       k=m(j)                                                               1853
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3046:72:

 3046 |       if(xv(k)*(b(k)-bs(k))**2.lt.shr)goto 14561                           1853
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3047:72:

 3047 |       kx=1                                                                 1853
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3048:72:

 3048 |       goto 14562                                                           1854
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3049:72:

 3049 | 14561 continue                                                             1855
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3050:72:

 3050 | 14562 continue                                                             1855
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3051:72:

 3051 |       if(kx .ne. 0)goto 14581                                              1856
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3052:72:

 3052 | 14590 do 14591 j=1,ni                                                      1856
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3053:72:

 3053 |       if(ixx(j).eq.1)goto 14591                                            1856
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3054:72:

 3054 |       if(ju(j).eq.0)goto 14591                                             1857
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3055:72:

 3055 |       jb=ix(j)                                                             1857
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3056:72:

 3056 |       je=ix(j+1)-1                                                         1857
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3057:72:

 3057 |       jn=ix(j+1)-ix(j)                                                     1858
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3058:72:

 3058 |       sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o                                 1859
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3059:72:

 3059 |       gj=dot_product(sc(1:jn),x(jb:je))                                    1860
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3060:72:

 3060 |       ga(j)=abs((gj-svr*xb(j))/xs(j))                                      1861
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3061:72:

 3061 |       if(ga(j) .le. al1*vp(j))goto 14611                                   1861
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3062:72:

 3062 |       ixx(j)=1                                                             1861
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3063:72:

 3063 |       kx=1                                                                 1861
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3064:72:

 3064 | 14611 continue                                                             1862
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3065:72:

 3065 | 14591 continue                                                             1863
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3066:72:

 3066 | 14592 continue                                                             1863
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3067:72:

 3067 |       if(kx.eq.1) go to 10680                                              1864
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3068:72:

 3068 |       goto 14242                                                           1865
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3069:72:

 3069 | 14581 continue                                                             1866
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3070:72:

 3070 | 14551 continue                                                             1867
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3071:72:

 3071 |       goto 14241                                                           1868
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3072:72:

 3072 | 14242 continue                                                             1868
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3073:72:

 3073 |       if(nin .le. nx)goto 14631                                            1868
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3074:72:

 3074 |       jerr=-10000-ilm                                                      1868
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3075:72:

 3075 |       goto 14162                                                           1868
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3076:72:

 3076 | 14631 continue                                                             1869
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3077:72:

 3077 |       if(nin.gt.0) a(1:nin,ilm)=b(m(1:nin))                                1869
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3078:72:

 3078 |       kin(ilm)=nin                                                         1870
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3079:72:

 3079 |       a0(ilm)=b(0)                                                         1870
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3080:72:

 3080 |       alm(ilm)=al                                                          1870
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3081:72:

 3081 |       lmu=ilm                                                              1871
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3082:72:

 3082 |       devi=dev2(no,w,y,q,pmin)                                             1872
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3083:72:

 3083 |       dev(ilm)=(dev1-devi)/dev0                                            1873
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3084:72:

 3084 |       if(ilm.lt.mnl)goto 14161                                             1873
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3085:72:

 3085 |       if(flmin.ge.1.0)goto 14161                                           1874
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3086:72:

 3086 |       me=0                                                                 1874
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3087:72:

 3087 | 14640 do 14641 j=1,nin                                                     1874
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3088:72:

 3088 |       if(a(j,ilm).ne.0.0) me=me+1                                          1874
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3089:72:

 3089 | 14641 continue                                                             1874
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3090:72:

 3090 | 14642 continue                                                             1874
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3091:72:

 3091 |       if(me.gt.ne)goto 14162                                               1875
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3092:72:

 3092 |       if(dev(ilm).gt.devmax)goto 14162                                     1875
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3093:72:

 3093 |       if(dev(ilm)-dev(ilm-1).lt.sml)goto 14162                             1876
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3094:72:

 3094 |       if(xm(0).lt.vmin)goto 14162                                          1877
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3095:72:

 3095 | 14161 continue                                                             1878
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3096:72:

 3096 | 14162 continue                                                             1878
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3097:72:

 3097 |       g=log(q/(1.0-q))                                                     1879
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3098:72:

 3098 |       deallocate(xm,b,bs,v,r,sc,xv,q,mm,ga,ixx)                            1880
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3099:72:

 3099 |       return                                                               1881
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3100:72:

 3100 |       end                                                                  1882
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3101:72:

 3101 |       subroutine sprlognetn(parm,no,ni,nc,x,ix,jx,y,g,w,ju,vp,ne,nx,nlam   1884
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3104:72:

 3104 |       parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5,  big=9.9e30, mnlam=   1886
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3106:72:

 3106 |       real x(*),y(no,nc),g(no,nc),w(no),vp(ni),ulam(nlam),xb(ni),xs(ni)    1887
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3107:72:

 3107 |       real a(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)                   1888
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3108:72:

 3108 |       integer ix(*),jx(*),ju(ni),m(nx),kin(nlam)                           1889
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3118:72:

 3118 |       allocate(xm(0:ni),stat=ierr)                                         1900
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3119:72:

 3119 |       jerr=jerr+ierr                                                       1901
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3120:72:

 3120 |       allocate(r(1:no),stat=ierr)                                          1901
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3121:72:

 3121 |       jerr=jerr+ierr                                                       1902
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3122:72:

 3122 |       allocate(v(1:no),stat=ierr)                                          1902
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3123:72:

 3123 |       jerr=jerr+ierr                                                       1903
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3124:72:

 3124 |       allocate(mm(1:ni),stat=ierr)                                         1903
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3125:72:

 3125 |       jerr=jerr+ierr                                                       1904
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3126:72:

 3126 |       allocate(ga(1:ni),stat=ierr)                                         1904
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3127:72:

 3127 |       jerr=jerr+ierr                                                       1905
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3128:72:

 3128 |       allocate(iy(1:ni),stat=ierr)                                         1905
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3129:72:

 3129 |       jerr=jerr+ierr                                                       1906
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3130:72:

 3130 |       allocate(is(1:max(nc,ni)),stat=ierr)                                 1906
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3131:72:

 3131 |       jerr=jerr+ierr                                                       1907
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3132:72:

 3132 |       allocate(sxp(1:no),stat=ierr)                                        1907
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3133:72:

 3133 |       jerr=jerr+ierr                                                       1908
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3134:72:

 3134 |       allocate(sxpl(1:no),stat=ierr)                                       1908
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3135:72:

 3135 |       jerr=jerr+ierr                                                       1909
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3136:72:

 3136 |       allocate(sc(1:no),stat=ierr)                                         1909
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3137:72:

 3137 |       jerr=jerr+ierr                                                       1910
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3138:72:

 3138 |       if(jerr.ne.0) return                                                 1911
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3139:72:

 3139 |       pmax=1.0-pmin                                                        1911
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3140:72:

 3140 |       emin=pmin/pmax                                                       1911
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3141:72:

 3141 |       emax=1.0/emin                                                        1912
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3142:72:

 3142 |       pfm=(1.0+pmin)*pmin                                                  1912
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3143:72:

 3143 |       pfx=(1.0-pmin)*pmax                                                  1912
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3144:72:

 3144 |       vmin=pfm*pmax                                                        1913
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3145:72:

 3145 |       bta=parm                                                             1913
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3146:72:

 3146 |       omb=1.0-bta                                                          1913
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3147:72:

 3147 |       dev1=0.0                                                             1913
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3148:72:

 3148 |       dev0=0.0                                                             1914
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3149:72:

 3149 | 14650 do 14651 ic=1,nc                                                     1914
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3150:72:

 3150 |       q0=dot_product(w,y(:,ic))                                            1915
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3151:72:

 3151 |       if(q0 .gt. pmin)goto 14671                                           1915
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3152:72:

 3152 |       jerr =8000+ic                                                        1915
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3153:72:

 3153 |       return                                                               1915
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3154:72:

 3154 | 14671 continue                                                             1916
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3155:72:

 3155 |       if(q0 .lt. 1.0-pmin)goto 14691                                       1916
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3156:72:

 3156 |       jerr =9000+ic                                                        1916
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3157:72:

 3157 |       return                                                               1916
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3158:72:

 3158 | 14691 continue                                                             1917
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3159:72:

 3159 |       b(1:ni,ic)=0.0                                                       1917
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3160:72:

 3160 |       b(0,ic)=log(q0)                                                      1917
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3161:72:

 3161 |       dev1=dev1-q0*b(0,ic)                                                 1918
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3162:72:

 3162 | 14651 continue                                                             1919
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3163:72:

 3163 | 14652 continue                                                             1919
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3164:72:

 3164 |       iy=0                                                                 1919
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3165:72:

 3165 |       al=0.0                                                               1920
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3166:72:

 3166 |       if(nonzero(no*nc,g) .ne. 0)goto 14711                                1921
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3167:72:

 3167 |       b(0,:)=b(0,:)-sum(b(0,:))/nc                                         1921
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3168:72:

 3168 |       sxp=0.0                                                              1922
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3169:72:

 3169 | 14720 do 14721 ic=1,nc                                                     1922
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3170:72:

 3170 |       q(:,ic)=exp(b(0,ic))                                                 1922
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3171:72:

 3171 |       sxp=sxp+q(:,ic)                                                      1922
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3172:72:

 3172 | 14721 continue                                                             1923
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3173:72:

 3173 | 14722 continue                                                             1923
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3174:72:

 3174 |       goto 14731                                                           1924
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3175:72:

 3175 | 14711 continue                                                             1924
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3176:72:

 3176 | 14740 do 14741 i=1,no                                                      1924
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3177:72:

 3177 |       g(i,:)=g(i,:)-sum(g(i,:))/nc                                         1924
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3178:72:

 3178 | 14741 continue                                                             1924
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3179:72:

 3179 | 14742 continue                                                             1924
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3180:72:

 3180 |       sxp=0.0                                                              1925
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3181:72:

 3181 |       call kazero(nc,no,y,g,w,b(0,:),jerr)                                 1925
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3182:72:

 3182 |       if(jerr.ne.0) return                                                 1926
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3183:72:

 3183 |       dev1=0.0                                                             1927
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3184:72:

 3184 | 14750 do 14751 ic=1,nc                                                     1927
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3185:72:

 3185 |       q(:,ic)=b(0,ic)+g(:,ic)                                              1928
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3186:72:

 3186 |       dev1=dev1-dot_product(w,y(:,ic)*q(:,ic))                             1929
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3187:72:

 3187 |       q(:,ic)=exp(q(:,ic))                                                 1929
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3188:72:

 3188 |       sxp=sxp+q(:,ic)                                                      1930
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3189:72:

 3189 | 14751 continue                                                             1931
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3190:72:

 3190 | 14752 continue                                                             1931
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3191:72:

 3191 |       sxpl=w*log(sxp)                                                      1931
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3192:72:

 3192 | 14760 do 14761 ic=1,nc                                                     1931
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3193:72:

 3193 |       dev1=dev1+dot_product(y(:,ic),sxpl)                                  1931
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3194:72:

 3194 | 14761 continue                                                             1932
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3195:72:

 3195 | 14762 continue                                                             1932
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3196:72:

 3196 | 14731 continue                                                             1933
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3197:72:

 3197 | 14701 continue                                                             1933
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3198:72:

 3198 | 14770 do 14771 ic=1,nc                                                     1933
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3199:72:

 3199 | 14780 do 14781 i=1,no                                                      1933
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3200:72:

 3200 |       if(y(i,ic).gt.0.0) dev0=dev0+w(i)*y(i,ic)*log(y(i,ic))               1933
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3201:72:

 3201 | 14781 continue                                                             1933
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3202:72:

 3202 | 14782 continue                                                             1933
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3203:72:

 3203 | 14771 continue                                                             1934
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3204:72:

 3204 | 14772 continue                                                             1934
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3205:72:

 3205 |       dev0=dev0+dev1                                                       1935
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3206:72:

 3206 |       if(kopt .le. 0)goto 14801                                            1936
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3207:72:

 3207 |       if(isd .le. 0)goto 14821                                             1936
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3208:72:

 3208 |       xv=0.25                                                              1936
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3209:72:

 3209 |       goto 14831                                                           1937
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3210:72:

 3210 | 14821 continue                                                             1938
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3211:72:

 3211 | 14840 do 14841 j=1,ni                                                      1938
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3212:72:

 3212 |       if(ju(j).eq.0)goto 14841                                             1938
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3213:72:

 3213 |       jb=ix(j)                                                             1938
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3214:72:

 3214 |       je=ix(j+1)-1                                                         1939
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3215:72:

 3215 |       xv(j,:)=0.25*(dot_product(w(jx(jb:je)),x(jb:je)**2)-xb(j)**2)        1940
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3216:72:

 3216 | 14841 continue                                                             1941
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3217:72:

 3217 | 14842 continue                                                             1941
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3218:72:

 3218 | 14831 continue                                                             1942
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3219:72:

 3219 | 14811 continue                                                             1942
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3220:72:

 3220 | 14801 continue                                                             1943
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3221:72:

 3221 |       if(flmin .ge. 1.0)goto 14861                                         1943
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3222:72:

 3222 |       eqs=max(eps,flmin)                                                   1943
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3223:72:

 3223 |       alf=eqs**(1.0/(nlam-1))                                              1943
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3224:72:

 3224 | 14861 continue                                                             1944
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3225:72:

 3225 |       m=0                                                                  1944
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3226:72:

 3226 |       mm=0                                                                 1944
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3227:72:

 3227 |       nin=0                                                                1944
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3228:72:

 3228 |       nlp=0                                                                1944
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3229:72:

 3229 |       mnl=min(mnlam,nlam)                                                  1944
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3230:72:

 3230 |       bs=0.0                                                               1944
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3231:72:

 3231 |       svr=0.0                                                              1944
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3232:72:

 3232 |       o=0.0                                                                1945
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3233:72:

 3233 |       shr=shri*dev0                                                        1945
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3234:72:

 3234 |       ga=0.0                                                               1946
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3235:72:

 3235 | 14870 do 14871 ic=1,nc                                                     1946
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3236:72:

 3236 |       v=q(:,ic)/sxp                                                        1946
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3237:72:

 3237 |       r=w*(y(:,ic)-v)                                                      1946
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3238:72:

 3238 |       v=w*v*(1.0-v)                                                        1947
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3239:72:

 3239 | 14880 do 14881 j=1,ni                                                      1947
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3240:72:

 3240 |       if(ju(j).eq.0)goto 14881                                             1948
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3241:72:

 3241 |       jb=ix(j)                                                             1948
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3242:72:

 3242 |       je=ix(j+1)-1                                                         1948
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3243:72:

 3243 |       jn=ix(j+1)-ix(j)                                                     1949
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3244:72:

 3244 |       sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))                                 1950
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3245:72:

 3245 |       gj=dot_product(sc(1:jn),x(jb:je))                                    1951
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3246:72:

 3246 |       ga(j)=max(ga(j),abs(gj-svr*xb(j))/xs(j))                             1952
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3247:72:

 3247 | 14881 continue                                                             1953
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3248:72:

 3248 | 14882 continue                                                             1953
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3249:72:

 3249 | 14871 continue                                                             1954
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3250:72:

 3250 | 14872 continue                                                             1954
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3251:72:

 3251 | 14890 do 14891 ilm=1,nlam                                                  1954
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3252:72:

 3252 |       al0=al                                                               1955
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3253:72:

 3253 |       if(flmin .lt. 1.0)goto 14911                                         1955
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3254:72:

 3254 |       al=ulam(ilm)                                                         1955
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3255:72:

 3255 |       goto 14901                                                           1956
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3256:72:

 3256 | 14911 if(ilm .le. 2)goto 14921                                             1956
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3257:72:

 3257 |       al=al*alf                                                            1956
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3258:72:

 3258 |       goto 14901                                                           1957
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3259:72:

 3259 | 14921 if(ilm .ne. 1)goto 14931                                             1957
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3260:72:

 3260 |       al=big                                                               1957
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3261:72:

 3261 |       goto 14941                                                           1958
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3262:72:

 3262 | 14931 continue                                                             1958
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3263:72:

 3263 |       al0=0.0                                                              1959
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3264:72:

 3264 | 14950 do 14951 j=1,ni                                                      1959
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3265:72:

 3265 |       if(ju(j).eq.0)goto 14951                                             1959
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3266:72:

 3266 |       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            1959
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3267:72:

 3267 | 14951 continue                                                             1960
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3268:72:

 3268 | 14952 continue                                                             1960
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3269:72:

 3269 |       al0=al0/max(bta,1.0e-3)                                              1960
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3270:72:

 3270 |       al=alf*al0                                                           1961
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3271:72:

 3271 | 14941 continue                                                             1962
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3272:72:

 3272 | 14901 continue                                                             1962
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3273:72:

 3273 |       al2=al*omb                                                           1962
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3274:72:

 3274 |       al1=al*bta                                                           1962
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3275:72:

 3275 |       tlam=bta*(2.0*al-al0)                                                1963
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3276:72:

 3276 | 14960 do 14961 k=1,ni                                                      1963
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3277:72:

 3277 |       if(iy(k).eq.1)goto 14961                                             1963
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3278:72:

 3278 |       if(ju(k).eq.0)goto 14961                                             1964
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3279:72:

 3279 |       if(ga(k).gt.tlam*vp(k)) iy(k)=1                                      1965
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3280:72:

 3280 | 14961 continue                                                             1966
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3281:72:

 3281 | 14962 continue                                                             1966
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3282:72:

 3282 | 10680 continue                                                             1967
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3283:72:

 3283 | 14970 continue                                                             1967
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3284:72:

 3284 | 14971 continue                                                             1967
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3285:72:

 3285 |       ixx=0                                                                1967
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3286:72:

 3286 |       jxx=ixx                                                              1967
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3287:72:

 3287 |       ig=0                                                                 1968
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3288:72:

 3288 | 14980 do 14981 ic=1,nc                                                     1968
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3289:72:

 3289 |       bs(0,ic)=b(0,ic)                                                     1969
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3290:72:

 3290 |       if(nin.gt.0) bs(m(1:nin),ic)=b(m(1:nin),ic)                          1970
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3291:72:

 3291 |       xm(0)=0.0                                                            1970
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3292:72:

 3292 |       svr=0.0                                                              1970
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3293:72:

 3293 |       o=0.0                                                                1971
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3294:72:

 3294 | 14990 do 14991 i=1,no                                                      1971
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3295:72:

 3295 |       pic=q(i,ic)/sxp(i)                                                   1972
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3296:72:

 3296 |       if(pic .ge. pfm)goto 15011                                           1972
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3297:72:

 3297 |       pic=0.0                                                              1972
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3298:72:

 3298 |       v(i)=0.0                                                             1972
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3299:72:

 3299 |       goto 15001                                                           1973
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3300:72:

 3300 | 15011 if(pic .le. pfx)goto 15021                                           1973
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3301:72:

 3301 |       pic=1.0                                                              1973
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3302:72:

 3302 |       v(i)=0.0                                                             1973
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3303:72:

 3303 |       goto 15031                                                           1974
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3304:72:

 3304 | 15021 continue                                                             1974
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3305:72:

 3305 |       v(i)=w(i)*pic*(1.0-pic)                                              1974
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3306:72:

 3306 |       xm(0)=xm(0)+v(i)                                                     1974
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3307:72:

 3307 | 15031 continue                                                             1975
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3308:72:

 3308 | 15001 continue                                                             1975
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3309:72:

 3309 |       r(i)=w(i)*(y(i,ic)-pic)                                              1975
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3310:72:

 3310 |       svr=svr+r(i)                                                         1976
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3311:72:

 3311 | 14991 continue                                                             1977
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3312:72:

 3312 | 14992 continue                                                             1977
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3313:72:

 3313 |       if(xm(0).le.vmin)goto 14981                                          1977
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3314:72:

 3314 |       ig=1                                                                 1978
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3315:72:

 3315 | 15040 do 15041 j=1,ni                                                      1978
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3316:72:

 3316 |       if(iy(j).eq.0)goto 15041                                             1979
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3317:72:

 3317 |       jb=ix(j)                                                             1979
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3318:72:

 3318 |       je=ix(j+1)-1                                                         1980
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3319:72:

 3319 |       xm(j)=dot_product(v(jx(jb:je)),x(jb:je))                             1981
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3320:72:

 3320 |       if(kopt .ne. 0)goto 15061                                            1982
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3321:72:

 3321 |       xv(j,ic)=dot_product(v(jx(jb:je)),x(jb:je)**2)                       1983
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3322:72:

 3322 |       xv(j,ic)=(xv(j,ic)-2.0*xb(j)*xm(j)+xm(0)*xb(j)**2)/xs(j)**2          1984
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3323:72:

 3323 | 15061 continue                                                             1985
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3324:72:

 3324 | 15041 continue                                                             1986
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3325:72:

 3325 | 15042 continue                                                             1986
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3326:72:

 3326 | 15070 continue                                                             1986
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3327:72:

 3327 | 15071 continue                                                             1986
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3328:72:

 3328 |       nlp=nlp+1                                                            1986
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3329:72:

 3329 |       dlx=0.0                                                              1987
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3330:72:

 3330 | 15080 do 15081 k=1,ni                                                      1987
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3331:72:

 3331 |       if(iy(k).eq.0)goto 15081                                             1988
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3332:72:

 3332 |       jb=ix(k)                                                             1988
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3333:72:

 3333 |       je=ix(k+1)-1                                                         1988
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3334:72:

 3334 |       jn=ix(k+1)-ix(k)                                                     1988
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3335:72:

 3335 |       bk=b(k,ic)                                                           1989
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3336:72:

 3336 |       sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))                                 1990
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3337:72:

 3337 |       gk=dot_product(sc(1:jn),x(jb:je))                                    1991
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3338:72:

 3338 |       gk=(gk-svr*xb(k))/xs(k)                                              1992
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3339:72:

 3339 |       u=gk+xv(k,ic)*b(k,ic)                                                1992
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3340:72:

 3340 |       au=abs(u)-vp(k)*al1                                                  1993
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3341:72:

 3341 |       if(au .gt. 0.0)goto 15101                                            1993
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3342:72:

 3342 |       b(k,ic)=0.0                                                          1993
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3343:72:

 3343 |       goto 15111                                                           1994
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3344:72:

 3344 | 15101 continue                                                             1994
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3345:72:

 3345 |       b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)                              1994
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3346:72:

 3346 | 15111 continue                                                             1995
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3347:72:

 3347 | 15091 continue                                                             1995
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3348:72:

 3348 |       d=b(k,ic)-bk                                                         1995
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3349:72:

 3349 |       if(abs(d).le.0.0)goto 15081                                          1996
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3350:72:

 3350 |       dlx=max(dlx,xv(k,ic)*d**2)                                           1997
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3351:72:

 3351 |       if(mm(k) .ne. 0)goto 15131                                           1997
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3352:72:

 3352 |       nin=nin+1                                                            1998
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3353:72:

 3353 |       if(nin .le. nx)goto 15151                                            1998
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3354:72:

 3354 |       jxx=1                                                                1998
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3355:72:

 3355 |       goto 15082                                                           1998
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3356:72:

 3356 | 15151 continue                                                             1999
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3357:72:

 3357 |       mm(k)=nin                                                            1999
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3358:72:

 3358 |       m(nin)=k                                                             2000
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3359:72:

 3359 |       xm(k)=dot_product(v(jx(jb:je)),x(jb:je))                             2001
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3360:72:

 3360 | 15131 continue                                                             2002
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3361:72:

 3361 |       r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)              2003
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3362:72:

 3362 |       o=o+d*(xb(k)/xs(k))                                                  2004
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3363:72:

 3363 |       svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)                                  2005
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3364:72:

 3364 | 15081 continue                                                             2006
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3365:72:

 3365 | 15082 continue                                                             2006
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3366:72:

 3366 |       if(jxx.gt.0)goto 15072                                               2007
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3367:72:

 3367 |       d=svr/xm(0)                                                          2008
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3368:72:

 3368 |       if(d .eq. 0.0)goto 15171                                             2008
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3369:72:

 3369 |       b(0,ic)=b(0,ic)+d                                                    2008
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3370:72:

 3370 |       dlx=max(dlx,xm(0)*d**2)                                              2009
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3371:72:

 3371 |       r=r-d*v                                                              2009
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3372:72:

 3372 |       svr=svr-d*xm(0)                                                      2010
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3373:72:

 3373 | 15171 continue                                                             2011
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3374:72:

 3374 |       if(dlx.lt.shr)goto 15072                                             2011
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3375:72:

 3375 |       if(nlp .le. maxit)goto 15191                                         2011
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3376:72:

 3376 |       jerr=-ilm                                                            2011
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3377:72:

 3377 |       return                                                               2011
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3378:72:

 3378 | 15191 continue                                                             2012
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3379:72:

 3379 | 15200 continue                                                             2012
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3380:72:

 3380 | 15201 continue                                                             2012
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3381:72:

 3381 |       nlp=nlp+1                                                            2012
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3382:72:

 3382 |       dlx=0.0                                                              2013
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3383:72:

 3383 | 15210 do 15211 l=1,nin                                                     2013
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3384:72:

 3384 |       k=m(l)                                                               2013
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3385:72:

 3385 |       jb=ix(k)                                                             2013
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3386:72:

 3386 |       je=ix(k+1)-1                                                         2014
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3387:72:

 3387 |       jn=ix(k+1)-ix(k)                                                     2014
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3388:72:

 3388 |       bk=b(k,ic)                                                           2015
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3389:72:

 3389 |       sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))                                 2016
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3390:72:

 3390 |       gk=dot_product(sc(1:jn),x(jb:je))                                    2017
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3391:72:

 3391 |       gk=(gk-svr*xb(k))/xs(k)                                              2018
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3392:72:

 3392 |       u=gk+xv(k,ic)*b(k,ic)                                                2018
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3393:72:

 3393 |       au=abs(u)-vp(k)*al1                                                  2019
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3394:72:

 3394 |       if(au .gt. 0.0)goto 15231                                            2019
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3395:72:

 3395 |       b(k,ic)=0.0                                                          2019
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3396:72:

 3396 |       goto 15241                                                           2020
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3397:72:

 3397 | 15231 continue                                                             2020
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3398:72:

 3398 |       b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)                              2020
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3399:72:

 3399 | 15241 continue                                                             2021
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3400:72:

 3400 | 15221 continue                                                             2021
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3401:72:

 3401 |       d=b(k,ic)-bk                                                         2021
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3402:72:

 3402 |       if(abs(d).le.0.0)goto 15211                                          2022
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3403:72:

 3403 |       dlx=max(dlx,xv(k,ic)*d**2)                                           2023
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3404:72:

 3404 |       r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)              2024
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3405:72:

 3405 |       o=o+d*(xb(k)/xs(k))                                                  2025
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3406:72:

 3406 |       svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)                                  2026
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3407:72:

 3407 | 15211 continue                                                             2027
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3408:72:

 3408 | 15212 continue                                                             2027
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3409:72:

 3409 |       d=svr/xm(0)                                                          2028
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3410:72:

 3410 |       if(d .eq. 0.0)goto 15261                                             2028
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3411:72:

 3411 |       b(0,ic)=b(0,ic)+d                                                    2028
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3412:72:

 3412 |       dlx=max(dlx,xm(0)*d**2)                                              2029
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3413:72:

 3413 |       r=r-d*v                                                              2029
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3414:72:

 3414 |       svr=svr-d*xm(0)                                                      2030
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3415:72:

 3415 | 15261 continue                                                             2031
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3416:72:

 3416 |       if(dlx.lt.shr)goto 15202                                             2031
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3417:72:

 3417 |       if(nlp .le. maxit)goto 15281                                         2031
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3418:72:

 3418 |       jerr=-ilm                                                            2031
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3419:72:

 3419 |       return                                                               2031
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3420:72:

 3420 | 15281 continue                                                             2032
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3421:72:

 3421 |       goto 15201                                                           2033
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3422:72:

 3422 | 15202 continue                                                             2033
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3423:72:

 3423 |       goto 15071                                                           2034
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3424:72:

 3424 | 15072 continue                                                             2034
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3425:72:

 3425 |       if(jxx.gt.0)goto 14982                                               2035
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3426:72:

 3426 |       if(xm(0)*(b(0,ic)-bs(0,ic))**2.gt.shr) ixx=1                         2036
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3427:72:

 3427 |       if(ixx .ne. 0)goto 15301                                             2037
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3428:72:

 3428 | 15310 do 15311 j=1,nin                                                     2037
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3429:72:

 3429 |       k=m(j)                                                               2038
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3430:72:

 3430 |       if(xv(k,ic)*(b(k,ic)-bs(k,ic))**2 .le. shr)goto 15331                2038
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3431:72:

 3431 |       ixx=1                                                                2038
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3432:72:

 3432 |       goto 15312                                                           2038
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3433:72:

 3433 | 15331 continue                                                             2039
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3434:72:

 3434 | 15311 continue                                                             2040
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3435:72:

 3435 | 15312 continue                                                             2040
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3436:72:

 3436 | 15301 continue                                                             2041
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3437:72:

 3437 |       sc=b(0,ic)+g(:,ic)                                                   2041
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3438:72:

 3438 |       b0=0.0                                                               2042
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3439:72:

 3439 | 15340 do 15341 j=1,nin                                                     2042
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3440:72:

 3440 |       l=m(j)                                                               2042
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3441:72:

 3441 |       jb=ix(l)                                                             2042
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3442:72:

 3442 |       je=ix(l+1)-1                                                         2043
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3443:72:

 3443 |       sc(jx(jb:je))=sc(jx(jb:je))+b(l,ic)*x(jb:je)/xs(l)                   2044
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3444:72:

 3444 |       b0=b0-b(l,ic)*xb(l)/xs(l)                                            2045
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3445:72:

 3445 | 15341 continue                                                             2046
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3446:72:

 3446 | 15342 continue                                                             2046
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3447:72:

 3447 |       sc=min(max(exmn,sc+b0),exmx)                                         2047
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3448:72:

 3448 |       sxp=sxp-q(:,ic)                                                      2048
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3449:72:

 3449 |       q(:,ic)=min(max(emin*sxp,exp(sc)),emax*sxp)                          2049
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3450:72:

 3450 |       sxp=sxp+q(:,ic)                                                      2050
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3451:72:

 3451 | 14981 continue                                                             2051
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3452:72:

 3452 | 14982 continue                                                             2051
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3453:72:

 3453 |       s=-sum(b(0,:))/nc                                                    2051
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3454:72:

 3454 |       b(0,:)=b(0,:)+s                                                      2051
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3455:72:

 3455 |       sc=s                                                                 2051
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3456:72:

 3456 |       b0=0.0                                                               2052
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3457:72:

 3457 | 15350 do 15351 j=1,nin                                                     2052
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3458:72:

 3458 |       l=m(j)                                                               2053
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3459:72:

 3459 |       if(vp(l) .gt. 0.0)goto 15371                                         2053
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3460:72:

 3460 |       s=sum(b(l,:))/nc                                                     2053
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3461:72:

 3461 |       goto 15381                                                           2054
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3462:72:

 3462 | 15371 continue                                                             2054
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3463:72:

 3463 |       s=elc(parm,nc,b(l,:),is)                                             2054
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3464:72:

 3464 | 15381 continue                                                             2055
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3465:72:

 3465 | 15361 continue                                                             2055
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3466:72:

 3466 |       b(l,:)=b(l,:)-s                                                      2056
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3467:72:

 3467 |       jb=ix(l)                                                             2056
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3468:72:

 3468 |       je=ix(l+1)-1                                                         2057
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3469:72:

 3469 |       sc(jx(jb:je))=sc(jx(jb:je))-s*x(jb:je)/xs(l)                         2058
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3470:72:

 3470 |       b0=b0+s*xb(l)/xs(l)                                                  2059
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3471:72:

 3471 | 15351 continue                                                             2060
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3472:72:

 3472 | 15352 continue                                                             2060
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3473:72:

 3473 |       sc=sc+b0                                                             2060
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3474:72:

 3474 |       sc=exp(sc)                                                           2060
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3475:72:

 3475 |       sxp=sxp*sc                                                           2060
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3476:72:

 3476 | 15390 do 15391 ic=1,nc                                                     2060
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3477:72:

 3477 |       q(:,ic)=q(:,ic)*sc                                                   2060
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3478:72:

 3478 | 15391 continue                                                             2061
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3479:72:

 3479 | 15392 continue                                                             2061
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3480:72:

 3480 |       if(jxx.gt.0)goto 14972                                               2061
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3481:72:

 3481 |       if(ig.eq.0)goto 14972                                                2062
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3482:72:

 3482 |       if(ixx .ne. 0)goto 15411                                             2063
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3483:72:

 3483 | 15420 do 15421 j=1,ni                                                      2063
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3484:72:

 3484 |       if(iy(j).eq.1)goto 15421                                             2063
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3485:72:

 3485 |       if(ju(j).eq.0)goto 15421                                             2063
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3486:72:

 3486 |       ga(j)=0.0                                                            2063
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3487:72:

 3487 | 15421 continue                                                             2064
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3488:72:

 3488 | 15422 continue                                                             2064
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3489:72:

 3489 | 15430 do 15431 ic=1,nc                                                     2064
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3490:72:

 3490 |       v=q(:,ic)/sxp                                                        2064
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3491:72:

 3491 |       r=w*(y(:,ic)-v)                                                      2064
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3492:72:

 3492 |       v=w*v*(1.0-v)                                                        2065
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3493:72:

 3493 | 15440 do 15441 j=1,ni                                                      2065
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3494:72:

 3494 |       if(iy(j).eq.1)goto 15441                                             2065
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3495:72:

 3495 |       if(ju(j).eq.0)goto 15441                                             2066
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3496:72:

 3496 |       jb=ix(j)                                                             2066
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3497:72:

 3497 |       je=ix(j+1)-1                                                         2066
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3498:72:

 3498 |       jn=ix(j+1)-ix(j)                                                     2067
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3499:72:

 3499 |       sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))                                 2068
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3500:72:

 3500 |       gj=dot_product(sc(1:jn),x(jb:je))                                    2069
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3501:72:

 3501 |       ga(j)=max(ga(j),abs(gj-svr*xb(j))/xs(j))                             2070
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3502:72:

 3502 | 15441 continue                                                             2071
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3503:72:

 3503 | 15442 continue                                                             2071
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3504:72:

 3504 | 15431 continue                                                             2072
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3505:72:

 3505 | 15432 continue                                                             2072
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3506:72:

 3506 | 15450 do 15451 k=1,ni                                                      2072
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3507:72:

 3507 |       if(iy(k).eq.1)goto 15451                                             2072
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3508:72:

 3508 |       if(ju(k).eq.0)goto 15451                                             2073
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3509:72:

 3509 |       if(ga(k) .le. al1*vp(k))goto 15471                                   2073
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3510:72:

 3510 |       iy(k)=1                                                              2073
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3511:72:

 3511 |       ixx=1                                                                2073
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3512:72:

 3512 | 15471 continue                                                             2074
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3513:72:

 3513 | 15451 continue                                                             2075
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3514:72:

 3514 | 15452 continue                                                             2075
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3515:72:

 3515 |       if(ixx.eq.1) go to 10680                                             2076
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3516:72:

 3516 |       goto 14972                                                           2077
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3517:72:

 3517 | 15411 continue                                                             2078
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3518:72:

 3518 |       goto 14971                                                           2079
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3519:72:

 3519 | 14972 continue                                                             2079
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3520:72:

 3520 |       if(jxx .le. 0)goto 15491                                             2079
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3521:72:

 3521 |       jerr=-10000-ilm                                                      2079
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3522:72:

 3522 |       goto 14892                                                           2079
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3523:72:

 3523 | 15491 continue                                                             2079
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3524:72:

 3524 |       devi=0.0                                                             2080
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3525:72:

 3525 | 15500 do 15501 ic=1,nc                                                     2081
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3526:72:

 3526 |       if(nin.gt.0) a(1:nin,ic,ilm)=b(m(1:nin),ic)                          2081
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3527:72:

 3527 |       a0(ic,ilm)=b(0,ic)                                                   2082
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3528:72:

 3528 | 15510 do 15511 i=1,no                                                      2082
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3529:72:

 3529 |       if(y(i,ic).le.0.0)goto 15511                                         2083
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3530:72:

 3530 |       devi=devi-w(i)*y(i,ic)*log(q(i,ic)/sxp(i))                           2084
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3531:72:

 3531 | 15511 continue                                                             2085
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3532:72:

 3532 | 15512 continue                                                             2085
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3533:72:

 3533 | 15501 continue                                                             2086
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3534:72:

 3534 | 15502 continue                                                             2086
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3535:72:

 3535 |       kin(ilm)=nin                                                         2086
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3536:72:

 3536 |       alm(ilm)=al                                                          2086
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3537:72:

 3537 |       lmu=ilm                                                              2087
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3538:72:

 3538 |       dev(ilm)=(dev1-devi)/dev0                                            2087
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3539:72:

 3539 |       if(ig.eq.0)goto 14892                                                2088
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3540:72:

 3540 |       if(ilm.lt.mnl)goto 14891                                             2088
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3541:72:

 3541 |       if(flmin.ge.1.0)goto 14891                                           2089
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3542:72:

 3542 |       if(nintot(ni,nx,nc,a(1,1,ilm),m,nin,is).gt.ne)goto 14892             2090
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3543:72:

 3543 |       if(dev(ilm).gt.devmax)goto 14892                                     2090
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3544:72:

 3544 |       if(dev(ilm)-dev(ilm-1).lt.sml)goto 14892                             2091
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3545:72:

 3545 | 14891 continue                                                             2092
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3546:72:

 3546 | 14892 continue                                                             2092
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3547:72:

 3547 |       g=log(q)                                                             2092
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3548:72:

 3548 | 15520 do 15521 i=1,no                                                      2092
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3549:72:

 3549 |       g(i,:)=g(i,:)-sum(g(i,:))/nc                                         2092
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3550:72:

 3550 | 15521 continue                                                             2093
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3551:72:

 3551 | 15522 continue                                                             2093
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3552:72:

 3552 |       deallocate(sxp,b,bs,v,r,xv,q,mm,is,xm,sc,ga,iy)                      2094
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3553:72:

 3553 |       return                                                               2095
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3554:72:

 3554 |       end                                                                  2096
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3555:72:

 3555 |       subroutine lcmodval(nc,nx,a0,ca,ia,nin,x,ix,jx,n,f)                  2097
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3556:72:

 3556 |       real a0(nc),ca(nx,nc),x(*),f(nc,n)                                   2097
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3557:72:

 3557 |       integer ia(*),ix(*),jx(*)                                            2098
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3558:72:

 3558 | 15530 do 15531 ic=1,nc                                                     2098
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3559:72:

 3559 |       f(ic,:)=a0(ic)                                                       2098
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3560:72:

 3560 | 15531 continue                                                             2099
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3561:72:

 3561 | 15532 continue                                                             2099
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3562:72:

 3562 | 15540 do 15541 j=1,nin                                                     2099
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3563:72:

 3563 |       k=ia(j)                                                              2099
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3564:72:

 3564 |       kb=ix(k)                                                             2099
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3565:72:

 3565 |       ke=ix(k+1)-1                                                         2100
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3566:72:

 3566 | 15550 do 15551 ic=1,nc                                                     2100
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3567:72:

 3567 |       f(ic,jx(kb:ke))=f(ic,jx(kb:ke))+ca(j,ic)*x(kb:ke)                    2100
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3568:72:

 3568 | 15551 continue                                                             2101
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3569:72:

 3569 | 15552 continue                                                             2101
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3570:72:

 3570 | 15541 continue                                                             2102
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3571:72:

 3571 | 15542 continue                                                             2102
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3572:72:

 3572 |       return                                                               2103
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3573:72:

 3573 |       end                                                                  2104
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3574:72:

 3574 |       subroutine coxnet (parm,no,ni,x,y,d,g,w,jd,vp,ne,nx,nlam,flmin,ula   2106
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3576:72:

 3576 |       real x(no,ni),y(no),d(no),g(no),w(no),vp(ni),ulam(nlam)              2107
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3577:72:

 3577 |       real ca(nx,nlam),dev(nlam),alm(nlam)                                 2108
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3578:72:

 3578 |       integer jd(*),ia(nx),nin(nlam)                                       2109
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3581:72:

 3581 |       if(maxval(vp) .gt. 0.0)goto 15571                                    2113
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3582:72:

 3582 |       jerr=10000                                                           2113
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3583:72:

 3583 |       return                                                               2113
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3584:72:

 3584 | 15571 continue                                                             2114
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3585:72:

 3585 |       allocate(ww(1:no),stat=jerr)                                         2115
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3586:72:

 3586 |       allocate(ju(1:ni),stat=ierr)                                         2115
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3587:72:

 3587 |       jerr=jerr+ierr                                                       2116
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3588:72:

 3588 |       allocate(vq(1:ni),stat=ierr)                                         2116
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3589:72:

 3589 |       jerr=jerr+ierr                                                       2117
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3590:72:

 3590 |       if(isd .le. 0)goto 15591                                             2117
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3591:72:

 3591 |       allocate(xs(1:ni),stat=ierr)                                         2117
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3592:72:

 3592 |       jerr=jerr+ierr                                                       2117
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3593:72:

 3593 | 15591 continue                                                             2118
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3594:72:

 3594 |       if(jerr.ne.0) return                                                 2119
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3595:72:

 3595 |       call chkvars(no,ni,x,ju)                                             2120
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3596:72:

 3596 |       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                 2121
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3597:72:

 3597 |       if(maxval(ju) .gt. 0)goto 15611                                      2121
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3598:72:

 3598 |       jerr=7777                                                            2121
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3599:72:

 3599 |       return                                                               2121
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3600:72:

 3600 | 15611 continue                                                             2122
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3601:72:

 3601 |       vq=max(0.0,vp)                                                       2122
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3602:72:

 3602 |       vq=vq*ni/sum(vq)                                                     2123
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3603:72:

 3603 |       ww=max(0.0,w)                                                        2123
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3604:72:

 3604 |       sw=sum(ww)                                                           2124
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3605:72:

 3605 |       if(sw .gt. 0.0)goto 15631                                            2124
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3606:72:

 3606 |       jerr=9999                                                            2124
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3607:72:

 3607 |       return                                                               2124
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3608:72:

 3608 | 15631 continue                                                             2124
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3609:72:

 3609 |       ww=ww/sw                                                             2125
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3610:72:

 3610 |       call cstandard(no,ni,x,ww,ju,isd,xs)                                 2126
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3611:72:

 3611 |       call coxnet1(parm,no,ni,x,y,d,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,thr   2128
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3613:72:

 3613 |       if(jerr.gt.0) return                                                 2128
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3614:72:

 3614 |       dev0=2.0*sw*dev0                                                     2129
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3615:72:

 3615 |       if(isd .le. 0)goto 15651                                             2129
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3616:72:

 3616 | 15660 do 15661 k=1,lmu                                                     2129
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3617:72:

 3617 |       nk=nin(k)                                                            2129
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3618:72:

 3618 |       ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk))                                   2129
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3619:72:

 3619 | 15661 continue                                                             2129
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3620:72:

 3620 | 15662 continue                                                             2129
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3621:72:

 3621 | 15651 continue                                                             2130
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3622:72:

 3622 |       deallocate(ww,ju,vq)                                                 2130
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3623:72:

 3623 |       if(isd.gt.0) deallocate(xs)                                          2131
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3624:72:

 3624 |       return                                                               2132
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3625:72:

 3625 |       end                                                                  2133
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3626:72:

 3626 |       subroutine cstandard (no,ni,x,w,ju,isd,xs)                           2134
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3627:72:

 3627 |       real x(no,ni),w(no),xs(ni)                                           2134
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3628:72:

 3628 |       integer ju(ni)                                                       2135
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3629:72:

 3629 | 15670 do 15671 j=1,ni                                                      2135
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3630:72:

 3630 |       if(ju(j).eq.0)goto 15671                                             2136
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3631:72:

 3631 |       xm=dot_product(w,x(:,j))                                             2136
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3632:72:

 3632 |       x(:,j)=x(:,j)-xm                                                     2137
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3633:72:

 3633 |       if(isd .le. 0)goto 15691                                             2137
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3634:72:

 3634 |       xs(j)=sqrt(dot_product(w,x(:,j)**2))                                 2137
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3635:72:

 3635 |       x(:,j)=x(:,j)/xs(j)                                                  2137
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3636:72:

 3636 | 15691 continue                                                             2138
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3637:72:

 3637 | 15671 continue                                                             2139
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3638:72:

 3638 | 15672 continue                                                             2139
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3639:72:

 3639 |       return                                                               2140
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3640:72:

 3640 |       end                                                                  2141
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3641:72:

 3641 |       subroutine coxnet1(parm,no,ni,x,y,d,g,q,ju,vp,ne,nx,nlam,flmin,ula   2143
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3643:72:

 3643 |       parameter(sml=0.001, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99)   2144
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3644:72:

 3644 |       real x(no,ni),y(no),q(no),d(no),g(no),vp(ni),ulam(nlam)              2145
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3645:72:

 3645 |       real ao(nx,nlam),dev(nlam),alm(nlam)                                 2146
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3646:72:

 3646 |       integer ju(ni),m(nx),kin(nlam)                                       2147
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3650:72:

 3650 |       allocate(e(1:no),stat=jerr)                                          2153
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3651:72:

 3651 |       allocate(uu(1:no),stat=ierr)                                         2153
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3652:72:

 3652 |       jerr=jerr+ierr                                                       2154
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3653:72:

 3653 |       allocate(f(1:no),stat=ierr)                                          2154
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3654:72:

 3654 |       jerr=jerr+ierr                                                       2155
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3655:72:

 3655 |       allocate(w(1:no),stat=ierr)                                          2155
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3656:72:

 3656 |       jerr=jerr+ierr                                                       2156
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3657:72:

 3657 |       allocate(v(1:ni),stat=ierr)                                          2156
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3658:72:

 3658 |       jerr=jerr+ierr                                                       2157
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3659:72:

 3659 |       allocate(a(1:ni),stat=ierr)                                          2157
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3660:72:

 3660 |       jerr=jerr+ierr                                                       2158
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3661:72:

 3661 |       allocate(as(1:ni),stat=ierr)                                         2158
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3662:72:

 3662 |       jerr=jerr+ierr                                                       2159
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3663:72:

 3663 |       allocate(xs(1:ni),stat=ierr)                                         2159
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3664:72:

 3664 |       jerr=jerr+ierr                                                       2160
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3665:72:

 3665 |       allocate(ga(1:ni),stat=ierr)                                         2160
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3666:72:

 3666 |       jerr=jerr+ierr                                                       2161
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3667:72:

 3667 |       allocate(ixx(1:ni),stat=ierr)                                        2161
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3668:72:

 3668 |       jerr=jerr+ierr                                                       2162
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3669:72:

 3669 |       allocate(jp(1:no),stat=ierr)                                         2162
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3670:72:

 3670 |       jerr=jerr+ierr                                                       2163
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3671:72:

 3671 |       allocate(kp(1:no),stat=ierr)                                         2163
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3672:72:

 3672 |       jerr=jerr+ierr                                                       2164
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3673:72:

 3673 |       allocate(dk(1:no),stat=ierr)                                         2164
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3674:72:

 3674 |       jerr=jerr+ierr                                                       2165
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3675:72:

 3675 |       allocate(wr(1:no),stat=ierr)                                         2165
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3676:72:

 3676 |       jerr=jerr+ierr                                                       2166
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3677:72:

 3677 |       allocate(dq(1:no),stat=ierr)                                         2166
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3678:72:

 3678 |       jerr=jerr+ierr                                                       2167
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3679:72:

 3679 |       allocate(mm(1:ni),stat=ierr)                                         2167
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3680:72:

 3680 |       jerr=jerr+ierr                                                       2168
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3681:72:

 3681 |       if(jerr.ne.0)go to 11790                                             2169
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3682:72:

 3682 |       call groups(no,y,d,q,nk,kp,jp,t0,jerr)                               2170
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3683:72:

 3683 |       if(jerr.ne.0) go to 11790                                            2170
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3684:72:

 3684 |       alpha=parm                                                           2171
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3685:72:

 3685 |       oma=1.0-alpha                                                        2171
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3686:72:

 3686 |       nlm=0                                                                2171
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3687:72:

 3687 |       ixx=0                                                                2171
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3688:72:

 3688 |       al=0.0                                                               2172
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3689:72:

 3689 |       dq=d*q                                                               2172
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3690:72:

 3690 |       call died(no,nk,dq,kp,jp,dk)                                         2173
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3691:72:

 3691 |       a=0.0                                                                2173
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3692:72:

 3692 |       f(1)=0.0                                                             2173
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3693:72:

 3693 |       fmax=log(huge(f(1))*0.1)                                             2174
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3694:72:

 3694 |       if(nonzero(no,g) .eq. 0)goto 15711                                   2174
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3695:72:

 3695 |       f=g-dot_product(q,g)                                                 2175
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3696:72:

 3696 |       e=q*exp(sign(min(abs(f),fmax),f))                                    2176
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3697:72:

 3697 |       goto 15721                                                           2177
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3698:72:

 3698 | 15711 continue                                                             2177
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3699:72:

 3699 |       f=0.0                                                                2177
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3700:72:

 3700 |       e=q                                                                  2177
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3701:72:

 3701 | 15721 continue                                                             2178
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3702:72:

 3702 | 15701 continue                                                             2178
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3703:72:

 3703 |       r0=risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)                                 2179
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3704:72:

 3704 |       rr=-(dot_product(dk(1:nk),log(dk(1:nk)))+r0)                         2179
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3705:72:

 3705 |       dev0=rr                                                              2180
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3706:72:

 3706 | 15730 do 15731 i=1,no                                                      2180
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3707:72:

 3707 |       if((y(i) .ge. t0) .and. (q(i) .gt. 0.0))goto 15751                   2180
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3708:72:

 3708 |       w(i)=0.0                                                             2180
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3709:72:

 3709 |       wr(i)=w(i)                                                           2180
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3710:72:

 3710 | 15751 continue                                                             2180
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3711:72:

 3711 | 15731 continue                                                             2181
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3712:72:

 3712 | 15732 continue                                                             2181
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3713:72:

 3713 |       call outer(no,nk,dq,dk,kp,jp,e,wr,w,jerr,uu)                         2182
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3714:72:

 3714 |       if(jerr.ne.0) go to 11790                                            2183
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3715:72:

 3715 |       if(flmin .ge. 1.0)goto 15771                                         2183
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3716:72:

 3716 |       eqs=max(eps,flmin)                                                   2183
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3717:72:

 3717 |       alf=eqs**(1.0/(nlam-1))                                              2183
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3718:72:

 3718 | 15771 continue                                                             2184
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3719:72:

 3719 |       m=0                                                                  2184
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3720:72:

 3720 |       mm=0                                                                 2184
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3721:72:

 3721 |       nlp=0                                                                2184
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3722:72:

 3722 |       nin=nlp                                                              2184
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3723:72:

 3723 |       mnl=min(mnlam,nlam)                                                  2184
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3724:72:

 3724 |       as=0.0                                                               2184
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3725:72:

 3725 |       cthr=cthri*dev0                                                      2185
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3726:72:

 3726 | 15780 do 15781 j=1,ni                                                      2185
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3727:72:

 3727 |       if(ju(j).eq.0)goto 15781                                             2185
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3728:72:

 3728 |       ga(j)=abs(dot_product(wr,x(:,j)))                                    2185
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3729:72:

 3729 | 15781 continue                                                             2186
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3730:72:

 3730 | 15782 continue                                                             2186
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3731:72:

 3731 | 15790 do 15791 ilm=1,nlam                                                  2186
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3732:72:

 3732 |       al0=al                                                               2187
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3733:72:

 3733 |       if(flmin .lt. 1.0)goto 15811                                         2187
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3734:72:

 3734 |       al=ulam(ilm)                                                         2187
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3735:72:

 3735 |       goto 15801                                                           2188
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3736:72:

 3736 | 15811 if(ilm .le. 2)goto 15821                                             2188
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3737:72:

 3737 |       al=al*alf                                                            2188
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3738:72:

 3738 |       goto 15801                                                           2189
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3739:72:

 3739 | 15821 if(ilm .ne. 1)goto 15831                                             2189
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3740:72:

 3740 |       al=big                                                               2189
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3741:72:

 3741 |       goto 15841                                                           2190
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3742:72:

 3742 | 15831 continue                                                             2190
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3743:72:

 3743 |       al0=0.0                                                              2191
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3744:72:

 3744 | 15850 do 15851 j=1,ni                                                      2191
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3745:72:

 3745 |       if(ju(j).eq.0)goto 15851                                             2191
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3746:72:

 3746 |       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            2191
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3747:72:

 3747 | 15851 continue                                                             2192
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3748:72:

 3748 | 15852 continue                                                             2192
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3749:72:

 3749 |       al0=al0/max(parm,1.0e-3)                                             2192
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3750:72:

 3750 |       al=alf*al0                                                           2193
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3751:72:

 3751 | 15841 continue                                                             2194
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3752:72:

 3752 | 15801 continue                                                             2194
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3753:72:

 3753 |       sa=alpha*al                                                          2194
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3754:72:

 3754 |       omal=oma*al                                                          2194
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3755:72:

 3755 |       tlam=alpha*(2.0*al-al0)                                              2195
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3756:72:

 3756 | 15860 do 15861 k=1,ni                                                      2195
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3757:72:

 3757 |       if(ixx(k).eq.1)goto 15861                                            2195
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3758:72:

 3758 |       if(ju(k).eq.0)goto 15861                                             2196
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3759:72:

 3759 |       if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                     2197
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3760:72:

 3760 | 15861 continue                                                             2198
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3761:72:

 3761 | 15862 continue                                                             2198
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3762:72:

 3762 | 10680 continue                                                             2199
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3763:72:

 3763 | 15870 continue                                                             2199
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3764:72:

 3764 | 15871 continue                                                             2199
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3765:72:

 3765 |       if(nin.gt.0) as(m(1:nin))=a(m(1:nin))                                2200
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3766:72:

 3766 |       call vars(no,ni,x,w,ixx,v)                                           2201
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3767:72:

 3767 | 15880 continue                                                             2201
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3768:72:

 3768 | 15881 continue                                                             2201
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3769:72:

 3769 |       nlp=nlp+1                                                            2201
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3770:72:

 3770 |       dli=0.0                                                              2202
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3771:72:

 3771 | 15890 do 15891 j=1,ni                                                      2202
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3772:72:

 3772 |       if(ixx(j).eq.0)goto 15891                                            2203
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3773:72:

 3773 |       u=a(j)*v(j)+dot_product(wr,x(:,j))                                   2204
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3774:72:

 3774 |       if(abs(u) .gt. vp(j)*sa)goto 15911                                   2204
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3775:72:

 3775 |       at=0.0                                                               2204
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3776:72:

 3776 |       goto 15921                                                           2205
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3777:72:

 3777 | 15911 continue                                                             2205
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3778:72:

 3778 |       at=sign(abs(u)-vp(j)*sa,u)/(v(j)+vp(j)*omal)                         2205
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3779:72:

 3779 | 15921 continue                                                             2206
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3780:72:

 3780 | 15901 continue                                                             2206
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3781:72:

 3781 |       if(at .eq. a(j))goto 15941                                           2206
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3782:72:

 3782 |       del=at-a(j)                                                          2206
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3783:72:

 3783 |       a(j)=at                                                              2206
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3784:72:

 3784 |       dli=max(dli,v(j)*del**2)                                             2207
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3785:72:

 3785 |       wr=wr-del*w*x(:,j)                                                   2207
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3786:72:

 3786 |       f=f+del*x(:,j)                                                       2208
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3787:72:

 3787 |       if(mm(j) .ne. 0)goto 15961                                           2208
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3788:72:

 3788 |       nin=nin+1                                                            2208
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3789:72:

 3789 |       if(nin.gt.nx)goto 15892                                              2209
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3790:72:

 3790 |       mm(j)=nin                                                            2209
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3791:72:

 3791 |       m(nin)=j                                                             2210
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3792:72:

 3792 | 15961 continue                                                             2211
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3793:72:

 3793 | 15941 continue                                                             2212
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3794:72:

 3794 | 15891 continue                                                             2213
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3795:72:

 3795 | 15892 continue                                                             2213
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3796:72:

 3796 |       if(nin.gt.nx)goto 15882                                              2213
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3797:72:

 3797 |       if(dli.lt.cthr)goto 15882                                            2214
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3798:72:

 3798 |       if(nlp .le. maxit)goto 15981                                         2214
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3799:72:

 3799 |       jerr=-ilm                                                            2214
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3800:72:

 3800 |       return                                                               2214
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3801:72:

 3801 | 15981 continue                                                             2215
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3802:72:

 3802 | 15990 continue                                                             2215
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3803:72:

 3803 | 15991 continue                                                             2215
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3804:72:

 3804 |       nlp=nlp+1                                                            2215
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3805:72:

 3805 |       dli=0.0                                                              2216
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3806:72:

 3806 | 16000 do 16001 l=1,nin                                                     2216
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3807:72:

 3807 |       j=m(l)                                                               2217
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3808:72:

 3808 |       u=a(j)*v(j)+dot_product(wr,x(:,j))                                   2218
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3809:72:

 3809 |       if(abs(u) .gt. vp(j)*sa)goto 16021                                   2218
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3810:72:

 3810 |       at=0.0                                                               2218
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3811:72:

 3811 |       goto 16031                                                           2219
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3812:72:

 3812 | 16021 continue                                                             2219
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3813:72:

 3813 |       at=sign(abs(u)-vp(j)*sa,u)/(v(j)+vp(j)*omal)                         2219
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3814:72:

 3814 | 16031 continue                                                             2220
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3815:72:

 3815 | 16011 continue                                                             2220
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3816:72:

 3816 |       if(at .eq. a(j))goto 16051                                           2220
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3817:72:

 3817 |       del=at-a(j)                                                          2220
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3818:72:

 3818 |       a(j)=at                                                              2220
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3819:72:

 3819 |       dli=max(dli,v(j)*del**2)                                             2221
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3820:72:

 3820 |       wr=wr-del*w*x(:,j)                                                   2221
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3821:72:

 3821 |       f=f+del*x(:,j)                                                       2222
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3822:72:

 3822 | 16051 continue                                                             2223
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3823:72:

 3823 | 16001 continue                                                             2224
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3824:72:

 3824 | 16002 continue                                                             2224
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3825:72:

 3825 |       if(dli.lt.cthr)goto 15992                                            2224
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3826:72:

 3826 |       if(nlp .le. maxit)goto 16071                                         2224
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3827:72:

 3827 |       jerr=-ilm                                                            2224
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3828:72:

 3828 |       return                                                               2224
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3829:72:

 3829 | 16071 continue                                                             2225
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3830:72:

 3830 |       goto 15991                                                           2226
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3831:72:

 3831 | 15992 continue                                                             2226
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3832:72:

 3832 |       goto 15881                                                           2227
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3833:72:

 3833 | 15882 continue                                                             2227
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3834:72:

 3834 |       if(nin.gt.nx)goto 15872                                              2228
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3835:72:

 3835 |       e=q*exp(sign(min(abs(f),fmax),f))                                    2229
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3836:72:

 3836 |       call outer(no,nk,dq,dk,kp,jp,e,wr,w,jerr,uu)                         2230
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3837:72:

 3837 |       if(jerr .eq. 0)goto 16091                                            2230
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3838:72:

 3838 |       jerr=jerr-ilm                                                        2230
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3839:72:

 3839 |       go to 11790                                                          2230
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3840:72:

 3840 | 16091 continue                                                             2231
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3841:72:

 3841 |       ix=0                                                                 2232
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3842:72:

 3842 | 16100 do 16101 j=1,nin                                                     2232
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3843:72:

 3843 |       k=m(j)                                                               2233
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3844:72:

 3844 |       if(v(k)*(a(k)-as(k))**2.lt.cthr)goto 16101                           2233
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3845:72:

 3845 |       ix=1                                                                 2233
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3846:72:

 3846 |       goto 16102                                                           2233
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3847:72:

 3847 | 16101 continue                                                             2234
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3848:72:

 3848 | 16102 continue                                                             2234
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3849:72:

 3849 |       if(ix .ne. 0)goto 16121                                              2235
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3850:72:

 3850 | 16130 do 16131 k=1,ni                                                      2235
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3851:72:

 3851 |       if(ixx(k).eq.1)goto 16131                                            2235
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3852:72:

 3852 |       if(ju(k).eq.0)goto 16131                                             2236
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3853:72:

 3853 |       ga(k)=abs(dot_product(wr,x(:,k)))                                    2237
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3854:72:

 3854 |       if(ga(k) .le. sa*vp(k))goto 16151                                    2237
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3855:72:

 3855 |       ixx(k)=1                                                             2237
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3856:72:

 3856 |       ix=1                                                                 2237
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3857:72:

 3857 | 16151 continue                                                             2238
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3858:72:

 3858 | 16131 continue                                                             2239
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3859:72:

 3859 | 16132 continue                                                             2239
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3860:72:

 3860 |       if(ix.eq.1) go to 10680                                              2240
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3861:72:

 3861 |       goto 15872                                                           2241
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3862:72:

 3862 | 16121 continue                                                             2242
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3863:72:

 3863 |       goto 15871                                                           2243
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3864:72:

 3864 | 15872 continue                                                             2243
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3865:72:

 3865 |       if(nin .le. nx)goto 16171                                            2243
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3866:72:

 3866 |       jerr=-10000-ilm                                                      2243
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3867:72:

 3867 |       goto 15792                                                           2243
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3868:72:

 3868 | 16171 continue                                                             2244
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3869:72:

 3869 |       if(nin.gt.0) ao(1:nin,ilm)=a(m(1:nin))                               2244
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3870:72:

 3870 |       kin(ilm)=nin                                                         2245
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3871:72:

 3871 |       alm(ilm)=al                                                          2245
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3872:72:

 3872 |       lmu=ilm                                                              2246
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3873:72:

 3873 |       dev(ilm)=(risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)-r0)/rr                   2247
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3874:72:

 3874 |       if(ilm.lt.mnl)goto 15791                                             2247
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3875:72:

 3875 |       if(flmin.ge.1.0)goto 15791                                           2248
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3876:72:

 3876 |       me=0                                                                 2248
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3877:72:

 3877 | 16180 do 16181 j=1,nin                                                     2248
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3878:72:

 3878 |       if(ao(j,ilm).ne.0.0) me=me+1                                         2248
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3879:72:

 3879 | 16181 continue                                                             2248
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3880:72:

 3880 | 16182 continue                                                             2248
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3881:72:

 3881 |       if(me.gt.ne)goto 15792                                               2249
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3882:72:

 3882 |       if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 15792              2250
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3883:72:

 3883 |       if(dev(ilm).gt.devmax)goto 15792                                     2251
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3884:72:

 3884 | 15791 continue                                                             2252
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3885:72:

 3885 | 15792 continue                                                             2252
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3886:72:

 3886 |       g=f                                                                  2253
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3887:72:

 3887 | 11790 continue                                                             2253
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3888:72:

 3888 |       deallocate(e,uu,w,dk,v,xs,f,wr,a,as,jp,kp,dq,mm,ga,ixx)              2254
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3889:72:

 3889 |       return                                                               2255
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3890:72:

 3890 |       end                                                                  2256
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3891:72:

 3891 |       subroutine cxmodval(ca,ia,nin,n,x,f)                                 2257
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3892:72:

 3892 |       real ca(nin),x(n,*),f(n)                                             2257
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3893:72:

 3893 |       integer ia(nin)                                                      2258
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3894:72:

 3894 |       f=0.0                                                                2258
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3895:72:

 3895 |       if(nin.le.0) return                                                  2259
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3896:72:

 3896 | 16190 do 16191 i=1,n                                                       2259
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3897:72:

 3897 |       f(i)=f(i)+dot_product(ca(1:nin),x(i,ia(1:nin)))                      2259
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3898:72:

 3898 | 16191 continue                                                             2260
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3899:72:

 3899 | 16192 continue                                                             2260
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3900:72:

 3900 |       return                                                               2261
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3901:72:

 3901 |       end                                                                  2262
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3902:72:

 3902 |       subroutine groups(no,y,d,q,nk,kp,jp,t0,jerr)                         2263
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3903:72:

 3903 |       real y(no),d(no),q(no)                                               2263
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3904:72:

 3904 |       integer jp(no),kp(*)                                                 2264
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3905:72:

 3905 | 16200 do 16201 j=1,no                                                      2264
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3906:72:

 3906 |       jp(j)=j                                                              2264
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3907:72:

 3907 | 16201 continue                                                             2264
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3908:72:

 3908 | 16202 continue                                                             2264
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3909:72:

 3909 |       call psort7(y,jp,1,no)                                               2265
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3910:72:

 3910 |       nj=0                                                                 2265
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3911:72:

 3911 | 16210 do 16211 j=1,no                                                      2265
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3912:72:

 3912 |       if(q(jp(j)).le.0.0)goto 16211                                        2265
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3913:72:

 3913 |       nj=nj+1                                                              2265
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3914:72:

 3914 |       jp(nj)=jp(j)                                                         2265
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3915:72:

 3915 | 16211 continue                                                             2266
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3916:72:

 3916 | 16212 continue                                                             2266
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3917:72:

 3917 |       if(nj .ne. 0)goto 16231                                              2266
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3918:72:

 3918 |       jerr=20000                                                           2266
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3919:72:

 3919 |       return                                                               2266
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3920:72:

 3920 | 16231 continue                                                             2267
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3921:72:

 3921 |       j=1                                                                  2267
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3922:72:

 3922 | 16240 continue                                                             2267
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3923:72:

 3923 | 16241 if(d(jp(j)).gt.0.0)goto 16242                                        2267
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3924:72:

 3924 |       j=j+1                                                                2267
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3925:72:

 3925 |       if(j.gt.nj)goto 16242                                                2267
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3926:72:

 3926 |       goto 16241                                                           2268
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3927:72:

 3927 | 16242 continue                                                             2268
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3928:72:

 3928 |       if(j .lt. nj-1)goto 16261                                            2268
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3929:72:

 3929 |       jerr=30000                                                           2268
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3930:72:

 3930 |       return                                                               2268
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3931:72:

 3931 | 16261 continue                                                             2269
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3932:72:

 3932 |       j0=j-1                                                               2269
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3933:72:

 3933 |       nj=nj-j0                                                             2269
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3934:72:

 3934 | 16270 do 16271 j=1,nj                                                      2269
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3935:72:

 3935 |       jp(j)=jp(j+j0)                                                       2269
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3936:72:

 3936 | 16271 continue                                                             2270
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3937:72:

 3937 | 16272 continue                                                             2270
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3938:72:

 3938 |       jerr=0                                                               2270
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3939:72:

 3939 |       nk=0                                                                 2270
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3940:72:

 3940 |       t0=y(jp(1))                                                          2270
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3941:72:

 3941 |       yk=t0                                                                2270
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3942:72:

 3942 |       j=2                                                                  2271
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3943:72:

 3943 | 16280 continue                                                             2271
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3944:72:

 3944 | 16281 continue                                                             2271
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3945:72:

 3945 | 16290 continue                                                             2272
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3946:72:

 3946 | 16291 if(d(jp(j)).gt.0.0.and.y(jp(j)).gt.yk)goto 16292                     2272
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3947:72:

 3947 |       j=j+1                                                                2272
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3948:72:

 3948 |       if(j.gt.nj)goto 16292                                                2272
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3949:72:

 3949 |       goto 16291                                                           2273
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3950:72:

 3950 | 16292 continue                                                             2273
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3951:72:

 3951 |       nk=nk+1                                                              2273
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3952:72:

 3952 |       kp(nk)=j-1                                                           2273
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3953:72:

 3953 |       if(j.gt.nj)goto 16282                                                2274
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3954:72:

 3954 |       if(j .ne. nj)goto 16311                                              2274
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3955:72:

 3955 |       nk=nk+1                                                              2274
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3956:72:

 3956 |       kp(nk)=nj                                                            2274
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3957:72:

 3957 |       goto 16282                                                           2274
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3958:72:

 3958 | 16311 continue                                                             2275
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3959:72:

 3959 |       yk=y(jp(j))                                                          2275
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3960:72:

 3960 |       j=j+1                                                                2276
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3961:72:

 3961 |       goto 16281                                                           2277
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3962:72:

 3962 | 16282 continue                                                             2277
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3963:72:

 3963 |       return                                                               2278
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3964:72:

 3964 |       end                                                                  2279
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3965:72:

 3965 |       subroutine outer(no,nk,d,dk,kp,jp,e,wr,w,jerr,u)                     2280
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3966:72:

 3966 |       real d(no),dk(nk),wr(no),w(no)                                       2281
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3967:72:

 3967 |       real e(no),u(no),b,c                                                 2281
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3968:72:

 3968 |       integer kp(nk),jp(no)                                                2282
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3969:72:

 3969 |       call usk(no,nk,kp,jp,e,u)                                            2283
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3970:72:

 3970 |       b=dk(1)/u(1)                                                         2283
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3971:72:

 3971 |       c=dk(1)/u(1)**2                                                      2283
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3972:72:

 3972 |       jerr=0                                                               2284
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3973:72:

 3973 | 16320 do 16321 j=1,kp(1)                                                   2284
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3974:72:

 3974 |       i=jp(j)                                                              2285
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3975:72:

 3975 |       w(i)=e(i)*(b-e(i)*c)                                                 2285
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3976:72:

 3976 |       if(w(i) .gt. 0.0)goto 16341                                          2285
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3977:72:

 3977 |       jerr=-3                                                              2285
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3978:72:

 3978 |       return                                                               2285
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3979:72:

 3979 | 16341 continue                                                             2286
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3980:72:

 3980 |       wr(i)=d(i)-e(i)*b                                                    2287
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3981:72:

 3981 | 16321 continue                                                             2288
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3982:72:

 3982 | 16322 continue                                                             2288
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3983:72:

 3983 | 16350 do 16351 k=2,nk                                                      2288
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3984:72:

 3984 |       j1=kp(k-1)+1                                                         2288
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3985:72:

 3985 |       j2=kp(k)                                                             2289
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3986:72:

 3986 |       b=b+dk(k)/u(k)                                                       2289
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3987:72:

 3987 |       c=c+dk(k)/u(k)**2                                                    2290
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3988:72:

 3988 | 16360 do 16361 j=j1,j2                                                     2290
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3989:72:

 3989 |       i=jp(j)                                                              2291
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3990:72:

 3990 |       w(i)=e(i)*(b-e(i)*c)                                                 2291
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3991:72:

 3991 |       if(w(i) .gt. 0.0)goto 16381                                          2291
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3992:72:

 3992 |       jerr=-30000                                                          2291
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3993:72:

 3993 |       return                                                               2291
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3994:72:

 3994 | 16381 continue                                                             2292
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3995:72:

 3995 |       wr(i)=d(i)-e(i)*b                                                    2293
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3996:72:

 3996 | 16361 continue                                                             2294
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3997:72:

 3997 | 16362 continue                                                             2294
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3998:72:

 3998 | 16351 continue                                                             2295
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3999:72:

 3999 | 16352 continue                                                             2295
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4000:72:

 4000 |       return                                                               2296
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4001:72:

 4001 |       end                                                                  2297
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4002:72:

 4002 |       subroutine vars(no,ni,x,w,ixx,v)                                     2298
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4003:72:

 4003 |       real x(no,ni),w(no),v(ni)                                            2298
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4004:72:

 4004 |       integer ixx(ni)                                                      2299
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4005:72:

 4005 | 16390 do 16391 j=1,ni                                                      2299
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4006:72:

 4006 |       if(ixx(j).gt.0) v(j)=dot_product(w,x(:,j)**2)                        2299
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4007:72:

 4007 | 16391 continue                                                             2300
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4008:72:

 4008 | 16392 continue                                                             2300
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4009:72:

 4009 |       return                                                               2301
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4010:72:

 4010 |       end                                                                  2302
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4011:72:

 4011 |       subroutine died(no,nk,d,kp,jp,dk)                                    2303
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4012:72:

 4012 |       real d(no),dk(nk)                                                    2303
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4013:72:

 4013 |       integer kp(nk),jp(no)                                                2304
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4014:72:

 4014 |       dk(1)=sum(d(jp(1:kp(1))))                                            2305
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4015:72:

 4015 | 16400 do 16401 k=2,nk                                                      2305
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4016:72:

 4016 |       dk(k)=sum(d(jp((kp(k-1)+1):kp(k))))                                  2305
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4017:72:

 4017 | 16401 continue                                                             2306
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4018:72:

 4018 | 16402 continue                                                             2306
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4019:72:

 4019 |       return                                                               2307
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4020:72:

 4020 |       end                                                                  2308
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4021:72:

 4021 |       subroutine usk(no,nk,kp,jp,e,u)                                      2309
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4022:72:

 4022 |       real e(no),u(nk),h                                                   2309
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4023:72:

 4023 |       integer kp(nk),jp(no)                                                2310
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4024:72:

 4024 |       h=0.0                                                                2311
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4025:72:

 4025 | 16410 do 16411 k=nk,1,-1                                                   2311
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4026:72:

 4026 |       j2=kp(k)                                                             2312
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4027:72:

 4027 |       j1=1                                                                 2312
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4028:72:

 4028 |       if(k.gt.1) j1=kp(k-1)+1                                              2313
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4029:72:

 4029 | 16420 do 16421 j=j2,j1,-1                                                  2313
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4030:72:

 4030 |       h=h+e(jp(j))                                                         2313
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4031:72:

 4031 | 16421 continue                                                             2314
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4032:72:

 4032 | 16422 continue                                                             2314
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4033:72:

 4033 |       u(k)=h                                                               2315
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4034:72:

 4034 | 16411 continue                                                             2316
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4035:72:

 4035 | 16412 continue                                                             2316
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4036:72:

 4036 |       return                                                               2317
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4037:72:

 4037 |       end                                                                  2318
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4038:72:

 4038 |       function risk(no,ni,nk,d,dk,f,e,kp,jp,u)                             2319
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4039:72:

 4039 |       real d(no),dk(nk),f(no)                                              2320
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4040:72:

 4040 |       integer kp(nk),jp(no)                                                2320
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4041:72:

 4041 |       real e(no),u(nk),s                                                   2321
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4042:72:

 4042 |       call usk(no,nk,kp,jp,e,u)                                            2321
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4043:72:

 4043 |       u=log(u)                                                             2322
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4044:72:

 4044 |       risk=dot_product(d,f)-dot_product(dk,u)                              2323
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4045:72:

 4045 |       return                                                               2324
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4046:72:

 4046 |       end                                                                  2325
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4047:72:

 4047 |       subroutine loglike(no,ni,x,y,d,g,w,nlam,a,flog,jerr)                 2326
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4048:72:

 4048 |       real x(no,ni),y(no),d(no),g(no),w(no),a(ni,nlam),flog(nlam)          2327
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4052:72:

 4052 |       allocate(e(1:no),stat=jerr)                                          2333
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4053:72:

 4053 |       allocate(q(1:no),stat=ierr)                                          2333
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4054:72:

 4054 |       jerr=jerr+ierr                                                       2334
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4055:72:

 4055 |       allocate(uu(1:no),stat=ierr)                                         2334
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4056:72:

 4056 |       jerr=jerr+ierr                                                       2335
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4057:72:

 4057 |       allocate(f(1:no),stat=ierr)                                          2335
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4058:72:

 4058 |       jerr=jerr+ierr                                                       2336
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4059:72:

 4059 |       allocate(dk(1:no),stat=ierr)                                         2336
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4060:72:

 4060 |       jerr=jerr+ierr                                                       2337
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4061:72:

 4061 |       allocate(jp(1:no),stat=ierr)                                         2337
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4062:72:

 4062 |       jerr=jerr+ierr                                                       2338
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4063:72:

 4063 |       allocate(kp(1:no),stat=ierr)                                         2338
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4064:72:

 4064 |       jerr=jerr+ierr                                                       2339
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4065:72:

 4065 |       allocate(dq(1:no),stat=ierr)                                         2339
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4066:72:

 4066 |       jerr=jerr+ierr                                                       2340
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4067:72:

 4067 |       allocate(xm(1:ni),stat=ierr)                                         2340
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4068:72:

 4068 |       jerr=jerr+ierr                                                       2341
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4069:72:

 4069 |       if(jerr.ne.0) go to 11790                                            2342
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4070:72:

 4070 |       q=max(0.0,w)                                                         2342
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4071:72:

 4071 |       sw=sum(q)                                                            2343
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4072:72:

 4072 |       if(sw .gt. 0.0)goto 16441                                            2343
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4073:72:

 4073 |       jerr=9999                                                            2343
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4074:72:

 4074 |       go to 11790                                                          2343
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4075:72:

 4075 | 16441 continue                                                             2344
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4076:72:

 4076 |       call groups(no,y,d,q,nk,kp,jp,t0,jerr)                               2345
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4077:72:

 4077 |       if(jerr.ne.0) go to 11790                                            2345
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4078:72:

 4078 |       fmax=log(huge(e(1))*0.1)                                             2346
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4079:72:

 4079 |       dq=d*q                                                               2346
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4080:72:

 4080 |       call died(no,nk,dq,kp,jp,dk)                                         2346
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4081:72:

 4081 |       gm=dot_product(q,g)/sw                                               2347
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4082:72:

 4082 | 16450 do 16451 j=1,ni                                                      2347
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4083:72:

 4083 |       xm(j)=dot_product(q,x(:,j))/sw                                       2347
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4084:72:

 4084 | 16451 continue                                                             2348
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4085:72:

 4085 | 16452 continue                                                             2348
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4086:72:

 4086 | 16460 do 16461 lam=1,nlam                                                  2349
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4087:72:

 4087 | 16470 do 16471 i=1,no                                                      2349
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4088:72:

 4088 |       f(i)=g(i)-gm+dot_product(a(:,lam),(x(i,:)-xm))                       2350
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4089:72:

 4089 |       e(i)=q(i)*exp(sign(min(abs(f(i)),fmax),f(i)))                        2351
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4090:72:

 4090 | 16471 continue                                                             2352
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4091:72:

 4091 | 16472 continue                                                             2352
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4092:72:

 4092 |       flog(lam)=risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)                          2353
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4093:72:

 4093 | 16461 continue                                                             2354
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4094:72:

 4094 | 16462 continue                                                             2354
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4095:72:

 4095 | 11790 continue                                                             2354
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4096:72:

 4096 |       deallocate(e,uu,dk,f,jp,kp,dq)                                       2355
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4097:72:

 4097 |       return                                                               2356
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4098:72:

 4098 |       end                                                                  2357
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4099:72:

 4099 |       subroutine fishnet (parm,no,ni,x,y,g,w,jd,vp,ne,nx,nlam,flmin,ulam   2359
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4101:72:

 4101 |       real x(no,ni),y(no),g(no),w(no),vp(ni),ulam(nlam)                    2360
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4102:72:

 4102 |       real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                        2361
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4103:72:

 4103 |       integer jd(*),ia(nx),nin(nlam)                                       2362
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4106:72:

 4106 |       if(maxval(vp) .gt. 0.0)goto 16491                                    2366
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4107:72:

 4107 |       jerr=10000                                                           2366
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4108:72:

 4108 |       return                                                               2366
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4109:72:

 4109 | 16491 continue                                                             2367
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4110:72:

 4110 |       if(minval(y) .ge. 0.0)goto 16511                                     2367
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4111:72:

 4111 |       jerr=8888                                                            2367
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4112:72:

 4112 |       return                                                               2367
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4113:72:

 4113 | 16511 continue                                                             2368
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4114:72:

 4114 |       allocate(ww(1:no),stat=jerr)                                         2369
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4115:72:

 4115 |       allocate(ju(1:ni),stat=ierr)                                         2369
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4116:72:

 4116 |       jerr=jerr+ierr                                                       2370
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4117:72:

 4117 |       allocate(vq(1:ni),stat=ierr)                                         2370
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4118:72:

 4118 |       jerr=jerr+ierr                                                       2371
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4119:72:

 4119 |       allocate(xm(1:ni),stat=ierr)                                         2371
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4120:72:

 4120 |       jerr=jerr+ierr                                                       2372
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4121:72:

 4121 |       if(isd .le. 0)goto 16531                                             2372
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4122:72:

 4122 |       allocate(xs(1:ni),stat=ierr)                                         2372
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4123:72:

 4123 |       jerr=jerr+ierr                                                       2372
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4124:72:

 4124 | 16531 continue                                                             2373
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4125:72:

 4125 |       if(jerr.ne.0) return                                                 2374
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4126:72:

 4126 |       call chkvars(no,ni,x,ju)                                             2375
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4127:72:

 4127 |       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                 2376
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4128:72:

 4128 |       if(maxval(ju) .gt. 0)goto 16551                                      2376
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4129:72:

 4129 |       jerr=7777                                                            2376
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4130:72:

 4130 |       go to 11790                                                          2376
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4131:72:

 4131 | 16551 continue                                                             2377
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4132:72:

 4132 |       vq=max(0.0,vp)                                                       2377
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4133:72:

 4133 |       vq=vq*ni/sum(vq)                                                     2378
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4134:72:

 4134 |       ww=max(0.0,w)                                                        2378
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4135:72:

 4135 |       sw=sum(ww)                                                           2378
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4136:72:

 4136 |       if(sw .gt. 0.0)goto 16571                                            2378
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4137:72:

 4137 |       jerr=9999                                                            2378
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4138:72:

 4138 |       go to 11790                                                          2378
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4139:72:

 4139 | 16571 continue                                                             2379
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4140:72:

 4140 |       ww=ww/sw                                                             2380
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4141:72:

 4141 |       call lstandard1(no,ni,x,ww,ju,isd,xm,xs)                             2381
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4142:72:

 4142 |       call fishnet1(parm,no,ni,x,y,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,thr,   2383
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4144:72:

 4144 |       if(jerr.gt.0) go to 11790                                            2383
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4145:72:

 4145 |       dev0=2.0*sw*dev0                                                     2384
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4146:72:

 4146 | 16580 do 16581 k=1,lmu                                                     2384
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4147:72:

 4147 |       nk=nin(k)                                                            2385
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4148:72:

 4148 |       if(isd.gt.0) ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk))                      2386
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4149:72:

 4149 |       a0(k)=a0(k)-dot_product(ca(1:nk,k),xm(ia(1:nk)))                     2387
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4150:72:

 4150 | 16581 continue                                                             2388
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4151:72:

 4151 | 16582 continue                                                             2388
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4152:72:

 4152 | 11790 continue                                                             2388
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4153:72:

 4153 |       deallocate(ww,ju,vq,xm)                                              2388
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4154:72:

 4154 |       if(isd.gt.0) deallocate(xs)                                          2389
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4155:72:

 4155 |       return                                                               2390
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4156:72:

 4156 |       end                                                                  2391
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4157:72:

 4157 |       subroutine fishnet1(parm,no,ni,x,y,g,q,ju,vp,ne,nx,nlam,flmin,ulam   2393
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4159:72:

 4159 |       parameter(sml=1.0e-4, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99   2394
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4161:72:

 4161 |       real x(no,ni),y(no),g(no),q(no),vp(ni),ulam(nlam)                    2395
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4162:72:

 4162 |       real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                        2396
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4163:72:

 4163 |       integer ju(ni),m(nx),kin(nlam)                                       2397
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4166:72:

 4166 |       allocate(a(1:ni),stat=jerr)                                          2402
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4167:72:

 4167 |       allocate(as(1:ni),stat=ierr)                                         2402
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4168:72:

 4168 |       jerr=jerr+ierr                                                       2403
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4169:72:

 4169 |       allocate(t(1:no),stat=ierr)                                          2403
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4170:72:

 4170 |       jerr=jerr+ierr                                                       2404
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4171:72:

 4171 |       allocate(mm(1:ni),stat=ierr)                                         2404
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4172:72:

 4172 |       jerr=jerr+ierr                                                       2405
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4173:72:

 4173 |       allocate(ga(1:ni),stat=ierr)                                         2405
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4174:72:

 4174 |       jerr=jerr+ierr                                                       2406
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4175:72:

 4175 |       allocate(ixx(1:ni),stat=ierr)                                        2406
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4176:72:

 4176 |       jerr=jerr+ierr                                                       2407
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4177:72:

 4177 |       allocate(wr(1:no),stat=ierr)                                         2407
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4178:72:

 4178 |       jerr=jerr+ierr                                                       2408
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4179:72:

 4179 |       allocate(v(1:ni),stat=ierr)                                          2408
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4180:72:

 4180 |       jerr=jerr+ierr                                                       2409
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4181:72:

 4181 |       allocate(w(1:no),stat=ierr)                                          2409
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4182:72:

 4182 |       jerr=jerr+ierr                                                       2410
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4183:72:

 4183 |       allocate(f(1:no),stat=ierr)                                          2410
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4184:72:

 4184 |       jerr=jerr+ierr                                                       2411
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4185:72:

 4185 |       if(jerr.ne.0) return                                                 2412
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4186:72:

 4186 |       bta=parm                                                             2412
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4187:72:

 4187 |       omb=1.0-bta                                                          2413
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4188:72:

 4188 |       t=q*y                                                                2413
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4189:72:

 4189 |       yb=sum(t)                                                            2413
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4190:72:

 4190 |       fmax=log(huge(bta)*0.1)                                              2414
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4191:72:

 4191 |       if(nonzero(no,g) .ne. 0)goto 16601                                   2414
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4192:72:

 4192 |       w=q*yb                                                               2414
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4193:72:

 4193 |       az=log(yb)                                                           2414
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4194:72:

 4194 |       f=az                                                                 2414
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4195:72:

 4195 |       dv0=yb*(log(yb)-1.0)                                                 2414
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4196:72:

 4196 |       goto 16611                                                           2415
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4197:72:

 4197 | 16601 continue                                                             2415
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4198:72:

 4198 |       w=q*exp(sign(min(abs(g),fmax),g))                                    2415
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4199:72:

 4199 |       v0=sum(w)                                                            2415
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4200:72:

 4200 |       eaz=yb/v0                                                            2416
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4201:72:

 4201 |       w=eaz*w                                                              2416
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4202:72:

 4202 |       az=log(eaz)                                                          2416
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4203:72:

 4203 |       f=az+g                                                               2417
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4204:72:

 4204 |       dv0=dot_product(t,g)-yb*(1.0-az)                                     2418
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4205:72:

 4205 | 16611 continue                                                             2419
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4206:72:

 4206 | 16591 continue                                                             2419
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4207:72:

 4207 |       a=0.0                                                                2419
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4208:72:

 4208 |       as=0.0                                                               2419
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4209:72:

 4209 |       wr=t-w                                                               2419
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4210:72:

 4210 |       v0=yb                                                                2419
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4211:72:

 4211 |       dvr=-yb                                                              2420
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4212:72:

 4212 | 16620 do 16621 i=1,no                                                      2420
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4213:72:

 4213 |       if(t(i).gt.0.0) dvr=dvr+t(i)*log(y(i))                               2420
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4214:72:

 4214 | 16621 continue                                                             2420
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4215:72:

 4215 | 16622 continue                                                             2420
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4216:72:

 4216 |       dvr=dvr-dv0                                                          2420
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4217:72:

 4217 |       dev0=dvr                                                             2421
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4218:72:

 4218 |       if(flmin .ge. 1.0)goto 16641                                         2421
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4219:72:

 4219 |       eqs=max(eps,flmin)                                                   2421
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4220:72:

 4220 |       alf=eqs**(1.0/(nlam-1))                                              2421
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4221:72:

 4221 | 16641 continue                                                             2422
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4222:72:

 4222 |       m=0                                                                  2422
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4223:72:

 4223 |       mm=0                                                                 2422
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4224:72:

 4224 |       nlp=0                                                                2422
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4225:72:

 4225 |       nin=nlp                                                              2422
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4226:72:

 4226 |       mnl=min(mnlam,nlam)                                                  2422
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4227:72:

 4227 |       shr=shri*dev0                                                        2422
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4228:72:

 4228 |       ixx=0                                                                2422
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4229:72:

 4229 |       al=0.0                                                               2423
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4230:72:

 4230 | 16650 do 16651 j=1,ni                                                      2423
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4231:72:

 4231 |       if(ju(j).eq.0)goto 16651                                             2423
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4232:72:

 4232 |       ga(j)=abs(dot_product(wr,x(:,j)))                                    2423
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4233:72:

 4233 | 16651 continue                                                             2424
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4234:72:

 4234 | 16652 continue                                                             2424
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4235:72:

 4235 | 16660 do 16661 ilm=1,nlam                                                  2424
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4236:72:

 4236 |       al0=al                                                               2425
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4237:72:

 4237 |       if(flmin .lt. 1.0)goto 16681                                         2425
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4238:72:

 4238 |       al=ulam(ilm)                                                         2425
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4239:72:

 4239 |       goto 16671                                                           2426
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4240:72:

 4240 | 16681 if(ilm .le. 2)goto 16691                                             2426
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4241:72:

 4241 |       al=al*alf                                                            2426
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4242:72:

 4242 |       goto 16671                                                           2427
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4243:72:

 4243 | 16691 if(ilm .ne. 1)goto 16701                                             2427
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4244:72:

 4244 |       al=big                                                               2427
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4245:72:

 4245 |       goto 16711                                                           2428
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4246:72:

 4246 | 16701 continue                                                             2428
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4247:72:

 4247 |       al0=0.0                                                              2429
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4248:72:

 4248 | 16720 do 16721 j=1,ni                                                      2429
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4249:72:

 4249 |       if(ju(j).eq.0)goto 16721                                             2429
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4250:72:

 4250 |       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            2429
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4251:72:

 4251 | 16721 continue                                                             2430
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4252:72:

 4252 | 16722 continue                                                             2430
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4253:72:

 4253 |       al0=al0/max(bta,1.0e-3)                                              2430
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4254:72:

 4254 |       al=alf*al0                                                           2431
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4255:72:

 4255 | 16711 continue                                                             2432
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4256:72:

 4256 | 16671 continue                                                             2432
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4257:72:

 4257 |       al2=al*omb                                                           2432
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4258:72:

 4258 |       al1=al*bta                                                           2432
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4259:72:

 4259 |       tlam=bta*(2.0*al-al0)                                                2433
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4260:72:

 4260 | 16730 do 16731 k=1,ni                                                      2433
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4261:72:

 4261 |       if(ixx(k).eq.1)goto 16731                                            2433
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4262:72:

 4262 |       if(ju(k).eq.0)goto 16731                                             2434
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4263:72:

 4263 |       if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                     2435
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4264:72:

 4264 | 16731 continue                                                             2436
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4265:72:

 4265 | 16732 continue                                                             2436
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4266:72:

 4266 | 10680 continue                                                             2437
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4267:72:

 4267 | 16740 continue                                                             2437
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4268:72:

 4268 | 16741 continue                                                             2437
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4269:72:

 4269 |       az0=az                                                               2438
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4270:72:

 4270 |       if(nin.gt.0) as(m(1:nin))=a(m(1:nin))                                2439
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4271:72:

 4271 | 16750 do 16751 j=1,ni                                                      2439
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4272:72:

 4272 |       if(ixx(j).ne.0) v(j)=dot_product(w,x(:,j)**2)                        2439
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4273:72:

 4273 | 16751 continue                                                             2440
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4274:72:

 4274 | 16752 continue                                                             2440
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4275:72:

 4275 | 16760 continue                                                             2440
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4276:72:

 4276 | 16761 continue                                                             2440
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4277:72:

 4277 |       nlp=nlp+1                                                            2440
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4278:72:

 4278 |       dlx=0.0                                                              2441
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4279:72:

 4279 | 16770 do 16771 k=1,ni                                                      2441
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4280:72:

 4280 |       if(ixx(k).eq.0)goto 16771                                            2441
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4281:72:

 4281 |       ak=a(k)                                                              2442
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4282:72:

 4282 |       u=dot_product(wr,x(:,k))+v(k)*ak                                     2442
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4283:72:

 4283 |       au=abs(u)-vp(k)*al1                                                  2443
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4284:72:

 4284 |       if(au .gt. 0.0)goto 16791                                            2443
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4285:72:

 4285 |       a(k)=0.0                                                             2443
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4286:72:

 4286 |       goto 16801                                                           2444
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4287:72:

 4287 | 16791 continue                                                             2444
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4288:72:

 4288 |       a(k)=sign(au,u)/(v(k)+vp(k)*al2)                                     2444
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4289:72:

 4289 | 16801 continue                                                             2445
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4290:72:

 4290 | 16781 continue                                                             2445
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4291:72:

 4291 |       if(a(k).eq.ak)goto 16771                                             2445
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4292:72:

 4292 |       d=a(k)-ak                                                            2445
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4293:72:

 4293 |       dlx=max(dlx,v(k)*d**2)                                               2446
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4294:72:

 4294 |       wr=wr-d*w*x(:,k)                                                     2446
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4295:72:

 4295 |       f=f+d*x(:,k)                                                         2447
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4296:72:

 4296 |       if(mm(k) .ne. 0)goto 16821                                           2447
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4297:72:

 4297 |       nin=nin+1                                                            2447
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4298:72:

 4298 |       if(nin.gt.nx)goto 16772                                              2448
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4299:72:

 4299 |       mm(k)=nin                                                            2448
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4300:72:

 4300 |       m(nin)=k                                                             2449
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4301:72:

 4301 | 16821 continue                                                             2450
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4302:72:

 4302 | 16771 continue                                                             2451
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4303:72:

 4303 | 16772 continue                                                             2451
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4304:72:

 4304 |       if(nin.gt.nx)goto 16762                                              2451
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4305:72:

 4305 |       d=sum(wr)/v0                                                         2452
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4306:72:

 4306 |       az=az+d                                                              2452
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4307:72:

 4307 |       dlx=max(dlx,v0*d**2)                                                 2452
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4308:72:

 4308 |       wr=wr-d*w                                                            2452
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4309:72:

 4309 |       f=f+d                                                                2453
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4310:72:

 4310 |       if(dlx.lt.shr)goto 16762                                             2453
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4311:72:

 4311 |       if(nlp .le. maxit)goto 16841                                         2453
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4312:72:

 4312 |       jerr=-ilm                                                            2453
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4313:72:

 4313 |       return                                                               2453
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4314:72:

 4314 | 16841 continue                                                             2454
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4315:72:

 4315 | 16850 continue                                                             2454
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4316:72:

 4316 | 16851 continue                                                             2454
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4317:72:

 4317 |       nlp=nlp+1                                                            2454
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4318:72:

 4318 |       dlx=0.0                                                              2455
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4319:72:

 4319 | 16860 do 16861 l=1,nin                                                     2455
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4320:72:

 4320 |       k=m(l)                                                               2455
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4321:72:

 4321 |       ak=a(k)                                                              2456
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4322:72:

 4322 |       u=dot_product(wr,x(:,k))+v(k)*ak                                     2456
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4323:72:

 4323 |       au=abs(u)-vp(k)*al1                                                  2457
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4324:72:

 4324 |       if(au .gt. 0.0)goto 16881                                            2457
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4325:72:

 4325 |       a(k)=0.0                                                             2457
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4326:72:

 4326 |       goto 16891                                                           2458
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4327:72:

 4327 | 16881 continue                                                             2458
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4328:72:

 4328 |       a(k)=sign(au,u)/(v(k)+vp(k)*al2)                                     2458
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4329:72:

 4329 | 16891 continue                                                             2459
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4330:72:

 4330 | 16871 continue                                                             2459
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4331:72:

 4331 |       if(a(k).eq.ak)goto 16861                                             2459
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4332:72:

 4332 |       d=a(k)-ak                                                            2459
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4333:72:

 4333 |       dlx=max(dlx,v(k)*d**2)                                               2460
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4334:72:

 4334 |       wr=wr-d*w*x(:,k)                                                     2460
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4335:72:

 4335 |       f=f+d*x(:,k)                                                         2462
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4336:72:

 4336 | 16861 continue                                                             2462
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4337:72:

 4337 | 16862 continue                                                             2462
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4338:72:

 4338 |       d=sum(wr)/v0                                                         2462
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4339:72:

 4339 |       az=az+d                                                              2462
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4340:72:

 4340 |       dlx=max(dlx,v0*d**2)                                                 2462
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4341:72:

 4341 |       wr=wr-d*w                                                            2462
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4342:72:

 4342 |       f=f+d                                                                2463
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4343:72:

 4343 |       if(dlx.lt.shr)goto 16852                                             2463
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4344:72:

 4344 |       if(nlp .le. maxit)goto 16911                                         2463
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4345:72:

 4345 |       jerr=-ilm                                                            2463
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4346:72:

 4346 |       return                                                               2463
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4347:72:

 4347 | 16911 continue                                                             2464
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4348:72:

 4348 |       goto 16851                                                           2465
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4349:72:

 4349 | 16852 continue                                                             2465
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4350:72:

 4350 |       goto 16761                                                           2466
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4351:72:

 4351 | 16762 continue                                                             2466
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4352:72:

 4352 |       if(nin.gt.nx)goto 16742                                              2467
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4353:72:

 4353 |       w=q*exp(sign(min(abs(f),fmax),f))                                    2467
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4354:72:

 4354 |       v0=sum(w)                                                            2467
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4355:72:

 4355 |       wr=t-w                                                               2468
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4356:72:

 4356 |       if(v0*(az-az0)**2 .ge. shr)goto 16931                                2468
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4357:72:

 4357 |       ix=0                                                                 2469
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4358:72:

 4358 | 16940 do 16941 j=1,nin                                                     2469
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4359:72:

 4359 |       k=m(j)                                                               2470
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4360:72:

 4360 |       if(v(k)*(a(k)-as(k))**2.lt.shr)goto 16941                            2470
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4361:72:

 4361 |       ix=1                                                                 2470
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4362:72:

 4362 |       goto 16942                                                           2471
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4363:72:

 4363 | 16941 continue                                                             2472
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4364:72:

 4364 | 16942 continue                                                             2472
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4365:72:

 4365 |       if(ix .ne. 0)goto 16961                                              2473
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4366:72:

 4366 | 16970 do 16971 k=1,ni                                                      2473
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4367:72:

 4367 |       if(ixx(k).eq.1)goto 16971                                            2473
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4368:72:

 4368 |       if(ju(k).eq.0)goto 16971                                             2474
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4369:72:

 4369 |       ga(k)=abs(dot_product(wr,x(:,k)))                                    2475
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4370:72:

 4370 |       if(ga(k) .le. al1*vp(k))goto 16991                                   2475
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4371:72:

 4371 |       ixx(k)=1                                                             2475
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4372:72:

 4372 |       ix=1                                                                 2475
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4373:72:

 4373 | 16991 continue                                                             2476
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4374:72:

 4374 | 16971 continue                                                             2477
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4375:72:

 4375 | 16972 continue                                                             2477
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4376:72:

 4376 |       if(ix.eq.1) go to 10680                                              2478
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4377:72:

 4377 |       goto 16742                                                           2479
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4378:72:

 4378 | 16961 continue                                                             2480
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4379:72:

 4379 | 16931 continue                                                             2481
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4380:72:

 4380 |       goto 16741                                                           2482
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4381:72:

 4381 | 16742 continue                                                             2482
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4382:72:

 4382 |       if(nin .le. nx)goto 17011                                            2482
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4383:72:

 4383 |       jerr=-10000-ilm                                                      2482
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4384:72:

 4384 |       goto 16662                                                           2482
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4385:72:

 4385 | 17011 continue                                                             2483
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4386:72:

 4386 |       if(nin.gt.0) ca(1:nin,ilm)=a(m(1:nin))                               2483
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4387:72:

 4387 |       kin(ilm)=nin                                                         2484
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4388:72:

 4388 |       a0(ilm)=az                                                           2484
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4389:72:

 4389 |       alm(ilm)=al                                                          2484
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4390:72:

 4390 |       lmu=ilm                                                              2485
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4391:72:

 4391 |       dev(ilm)=(dot_product(t,f)-v0-dv0)/dvr                               2486
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4392:72:

 4392 |       if(ilm.lt.mnl)goto 16661                                             2486
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4393:72:

 4393 |       if(flmin.ge.1.0)goto 16661                                           2487
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4394:72:

 4394 |       me=0                                                                 2487
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4395:72:

 4395 | 17020 do 17021 j=1,nin                                                     2487
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4396:72:

 4396 |       if(ca(j,ilm).ne.0.0) me=me+1                                         2487
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4397:72:

 4397 | 17021 continue                                                             2487
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4398:72:

 4398 | 17022 continue                                                             2487
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4399:72:

 4399 |       if(me.gt.ne)goto 16662                                               2488
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4400:72:

 4400 |       if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 16662              2489
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4401:72:

 4401 |       if(dev(ilm).gt.devmax)goto 16662                                     2490
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4402:72:

 4402 | 16661 continue                                                             2491
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4403:72:

 4403 | 16662 continue                                                             2491
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4404:72:

 4404 |       g=f                                                                  2492
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4405:72:

 4405 | 11790 continue                                                             2492
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4406:72:

 4406 |       deallocate(t,w,wr,v,a,f,as,mm,ga,ixx)                                2493
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4407:72:

 4407 |       return                                                               2494
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4408:72:

 4408 |       end                                                                  2495
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4409:72:

 4409 |       function nonzero(n,v)                                                2496
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4410:72:

 4410 |       real v(n)                                                            2497
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4411:72:

 4411 |       nonzero=0                                                            2497
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4412:72:

 4412 | 17030 do 17031 i=1,n                                                       2497
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4413:72:

 4413 |       if(v(i) .eq. 0.0)goto 17051                                          2497
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4414:72:

 4414 |       nonzero=1                                                            2497
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4415:72:

 4415 |       return                                                               2497
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4416:72:

 4416 | 17051 continue                                                             2497
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4417:72:

 4417 | 17031 continue                                                             2498
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4418:72:

 4418 | 17032 continue                                                             2498
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4419:72:

 4419 |       return                                                               2499
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4420:72:

 4420 |       end                                                                  2500
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4421:72:

 4421 |       subroutine solns(ni,nx,lmu,a,ia,nin,b)                               2501
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4422:72:

 4422 |       real a(nx,lmu),b(ni,lmu)                                             2501
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4423:72:

 4423 |       integer ia(nx),nin(lmu)                                              2502
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4424:72:

 4424 | 17060 do 17061 lam=1,lmu                                                   2502
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4425:72:

 4425 |       call uncomp(ni,a(:,lam),ia,nin(lam),b(:,lam))                        2502
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4426:72:

 4426 | 17061 continue                                                             2503
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4427:72:

 4427 | 17062 continue                                                             2503
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4428:72:

 4428 |       return                                                               2504
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4429:72:

 4429 |       end                                                                  2505
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4430:72:

 4430 |       subroutine lsolns(ni,nx,nc,lmu,a,ia,nin,b)                           2506
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4431:72:

 4431 |       real a(nx,nc,lmu),b(ni,nc,lmu)                                       2506
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4432:72:

 4432 |       integer ia(nx),nin(lmu)                                              2507
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4433:72:

 4433 | 17070 do 17071 lam=1,lmu                                                   2507
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4434:72:

 4434 |       call luncomp(ni,nx,nc,a(1,1,lam),ia,nin(lam),b(1,1,lam))             2507
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4435:72:

 4435 | 17071 continue                                                             2508
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4436:72:

 4436 | 17072 continue                                                             2508
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4437:72:

 4437 |       return                                                               2509
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4438:72:

 4438 |       end                                                                  2510
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4439:72:

 4439 |       subroutine deviance(no,ni,x,y,g,q,nlam,a0,a,flog,jerr)               2511
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4440:72:

 4440 |       real x(no,ni),y(no),g(no),q(no),a(ni,nlam),a0(nlam),flog(nlam)       2512
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4442:72:

 4442 |       if(minval(y) .ge. 0.0)goto 17091                                     2515
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4443:72:

 4443 |       jerr=8888                                                            2515
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4444:72:

 4444 |       return                                                               2515
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4445:72:

 4445 | 17091 continue                                                             2516
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4446:72:

 4446 |       allocate(w(1:no),stat=jerr)                                          2516
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4447:72:

 4447 |       if(jerr.ne.0) return                                                 2517
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4448:72:

 4448 |       w=max(0.0,q)                                                         2517
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4449:72:

 4449 |       sw=sum(w)                                                            2517
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4450:72:

 4450 |       if(sw .gt. 0.0)goto 17111                                            2517
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4451:72:

 4451 |       jerr=9999                                                            2517
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4452:72:

 4452 |       go to 11790                                                          2517
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4453:72:

 4453 | 17111 continue                                                             2518
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4454:72:

 4454 |       yb=dot_product(w,y)/sw                                               2518
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4455:72:

 4455 |       fmax=log(huge(y(1))*0.1)                                             2519
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4456:72:

 4456 | 17120 do 17121 lam=1,nlam                                                  2519
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4457:72:

 4457 |       s=0.0                                                                2520
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4458:72:

 4458 | 17130 do 17131 i=1,no                                                      2520
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4459:72:

 4459 |       if(w(i).le.0.0)goto 17131                                            2521
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4460:72:

 4460 |       f=g(i)+a0(lam)+dot_product(a(:,lam),x(i,:))                          2522
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4461:72:

 4461 |       s=s+w(i)*(y(i)*f-exp(sign(min(abs(f),fmax),f)))                      2523
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4462:72:

 4462 | 17131 continue                                                             2524
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4463:72:

 4463 | 17132 continue                                                             2524
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4464:72:

 4464 |       flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s)                                2525
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4465:72:

 4465 | 17121 continue                                                             2526
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4466:72:

 4466 | 17122 continue                                                             2526
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4467:72:

 4467 | 11790 continue                                                             2526
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4468:72:

 4468 |       deallocate(w)                                                        2527
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4469:72:

 4469 |       return                                                               2528
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4470:72:

 4470 |       end                                                                  2529
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4471:72:

 4471 |       subroutine spfishnet (parm,no,ni,x,ix,jx,y,g,w,jd,vp,ne,nx,nlam,fl   2531
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4473:72:

 4473 |       real x(*),y(no),g(no),w(no),vp(ni),ulam(nlam)                        2532
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4474:72:

 4474 |       real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                        2533
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4475:72:

 4475 |       integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                           2534
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4478:72:

 4478 |       if(maxval(vp) .gt. 0.0)goto 17151                                    2538
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4479:72:

 4479 |       jerr=10000                                                           2538
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4480:72:

 4480 |       return                                                               2538
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4481:72:

 4481 | 17151 continue                                                             2539
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4482:72:

 4482 |       if(minval(y) .ge. 0.0)goto 17171                                     2539
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4483:72:

 4483 |       jerr=8888                                                            2539
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4484:72:

 4484 |       return                                                               2539
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4485:72:

 4485 | 17171 continue                                                             2540
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4486:72:

 4486 |       allocate(ww(1:no),stat=jerr)                                         2541
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4487:72:

 4487 |       allocate(ju(1:ni),stat=ierr)                                         2541
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4488:72:

 4488 |       jerr=jerr+ierr                                                       2542
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4489:72:

 4489 |       allocate(vq(1:ni),stat=ierr)                                         2542
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4490:72:

 4490 |       jerr=jerr+ierr                                                       2543
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4491:72:

 4491 |       allocate(xm(1:ni),stat=ierr)                                         2543
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4492:72:

 4492 |       jerr=jerr+ierr                                                       2544
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4493:72:

 4493 |       allocate(xs(1:ni),stat=ierr)                                         2544
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4494:72:

 4494 |       jerr=jerr+ierr                                                       2545
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4495:72:

 4495 |       if(jerr.ne.0) return                                                 2546
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4496:72:

 4496 |       call spchkvars(no,ni,x,ix,ju)                                        2547
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4497:72:

 4497 |       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                 2548
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4498:72:

 4498 |       if(maxval(ju) .gt. 0)goto 17191                                      2548
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4499:72:

 4499 |       jerr=7777                                                            2548
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4500:72:

 4500 |       go to 11790                                                          2548
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4501:72:

 4501 | 17191 continue                                                             2549
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4502:72:

 4502 |       vq=max(0.0,vp)                                                       2549
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4503:72:

 4503 |       vq=vq*ni/sum(vq)                                                     2550
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4504:72:

 4504 |       ww=max(0.0,w)                                                        2550
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4505:72:

 4505 |       sw=sum(ww)                                                           2550
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4506:72:

 4506 |       if(sw .gt. 0.0)goto 17211                                            2550
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4507:72:

 4507 |       jerr=9999                                                            2550
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4508:72:

 4508 |       go to 11790                                                          2550
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4509:72:

 4509 | 17211 continue                                                             2551
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4510:72:

 4510 |       ww=ww/sw                                                             2552
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4511:72:

 4511 |       call splstandard2(no,ni,x,ix,jx,ww,ju,isd,xm,xs)                     2553
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4512:72:

 4512 |       call spfishnet1(parm,no,ni,x,ix,jx,y,g,ww,ju,vq,ne,nx,nlam,flmin,u   2555
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4514:72:

 4514 |       if(jerr.gt.0) go to 11790                                            2555
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4515:72:

 4515 |       dev0=2.0*sw*dev0                                                     2556
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4516:72:

 4516 | 17220 do 17221 k=1,lmu                                                     2556
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4517:72:

 4517 |       nk=nin(k)                                                            2557
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4518:72:

 4518 |       if(isd.gt.0) ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk))                      2558
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4519:72:

 4519 |       a0(k)=a0(k)-dot_product(ca(1:nk,k),xm(ia(1:nk)))                     2559
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4520:72:

 4520 | 17221 continue                                                             2560
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4521:72:

 4521 | 17222 continue                                                             2560
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4522:72:

 4522 | 11790 continue                                                             2560
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4523:72:

 4523 |       deallocate(ww,ju,vq,xm,xs)                                           2561
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4524:72:

 4524 |       return                                                               2562
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4525:72:

 4525 |       end                                                                  2563
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4526:72:

 4526 |       subroutine spfishnet1(parm,no,ni,x,ix,jx,y,g,q,ju,vp,ne,nx,nlam,fl   2565
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4529:72:

 4529 |       parameter(sml=1.0e-4, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99   2566
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4531:72:

 4531 |       real x(*),y(no),g(no),q(no),vp(ni),ulam(nlam),xb(ni),xs(ni)          2567
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4532:72:

 4532 |       real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                        2568
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4533:72:

 4533 |       integer ix(*),jx(*),ju(ni),m(nx),kin(nlam)                           2569
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4536:72:

 4536 |       allocate(a(1:ni),stat=jerr)                                          2574
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4537:72:

 4537 |       allocate(as(1:ni),stat=ierr)                                         2574
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4538:72:

 4538 |       jerr=jerr+ierr                                                       2575
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4539:72:

 4539 |       allocate(t(1:no),stat=ierr)                                          2575
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4540:72:

 4540 |       jerr=jerr+ierr                                                       2576
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4541:72:

 4541 |       allocate(mm(1:ni),stat=ierr)                                         2576
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4542:72:

 4542 |       jerr=jerr+ierr                                                       2577
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4543:72:

 4543 |       allocate(ga(1:ni),stat=ierr)                                         2577
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4544:72:

 4544 |       jerr=jerr+ierr                                                       2578
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4545:72:

 4545 |       allocate(ixx(1:ni),stat=ierr)                                        2578
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4546:72:

 4546 |       jerr=jerr+ierr                                                       2579
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4547:72:

 4547 |       allocate(wr(1:no),stat=ierr)                                         2579
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4548:72:

 4548 |       jerr=jerr+ierr                                                       2580
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4549:72:

 4549 |       allocate(v(1:ni),stat=ierr)                                          2580
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4550:72:

 4550 |       jerr=jerr+ierr                                                       2581
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4551:72:

 4551 |       allocate(xm(1:ni),stat=ierr)                                         2581
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4552:72:

 4552 |       jerr=jerr+ierr                                                       2582
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4553:72:

 4553 |       allocate(w(1:no),stat=ierr)                                          2582
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4554:72:

 4554 |       jerr=jerr+ierr                                                       2583
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4555:72:

 4555 |       allocate(qy(1:no),stat=ierr)                                         2583
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4556:72:

 4556 |       jerr=jerr+ierr                                                       2584
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4557:72:

 4557 |       if(jerr.ne.0) return                                                 2585
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4558:72:

 4558 |       bta=parm                                                             2585
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4559:72:

 4559 |       omb=1.0-bta                                                          2585
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4560:72:

 4560 |       fmax=log(huge(bta)*0.1)                                              2586
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4561:72:

 4561 |       qy=q*y                                                               2586
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4562:72:

 4562 |       yb=sum(qy)                                                           2587
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4563:72:

 4563 |       if(nonzero(no,g) .ne. 0)goto 17241                                   2587
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4564:72:

 4564 |       w=q*yb                                                               2587
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4565:72:

 4565 |       az=log(yb)                                                           2587
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4566:72:

 4566 |       uu=az                                                                2588
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4567:72:

 4567 |       xm=yb*xb                                                             2588
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4568:72:

 4568 |       t=0.0                                                                2588
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4569:72:

 4569 |       dv0=yb*(log(yb)-1.0)                                                 2589
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4570:72:

 4570 |       goto 17251                                                           2590
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4571:72:

 4571 | 17241 continue                                                             2590
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4572:72:

 4572 |       w=q*exp(sign(min(abs(g),fmax),g))                                    2590
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4573:72:

 4573 |       ww=sum(w)                                                            2590
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4574:72:

 4574 |       eaz=yb/ww                                                            2591
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4575:72:

 4575 |       w=eaz*w                                                              2591
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4576:72:

 4576 |       az=log(eaz)                                                          2591
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4577:72:

 4577 |       uu=az                                                                2591
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4578:72:

 4578 |       t=g                                                                  2591
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4579:72:

 4579 |       dv0=dot_product(qy,g)-yb*(1.0-az)                                    2592
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4580:72:

 4580 | 17260 do 17261 j=1,ni                                                      2592
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4581:72:

 4581 |       if(ju(j).eq.0)goto 17261                                             2592
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4582:72:

 4582 |       jb=ix(j)                                                             2592
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4583:72:

 4583 |       je=ix(j+1)-1                                                         2593
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4584:72:

 4584 |       xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                             2594
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4585:72:

 4585 | 17261 continue                                                             2595
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4586:72:

 4586 | 17262 continue                                                             2595
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4587:72:

 4587 | 17251 continue                                                             2596
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4588:72:

 4588 | 17231 continue                                                             2596
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4589:72:

 4589 |       tt=yb*uu                                                             2596
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4590:72:

 4590 |       ww=yb                                                                2596
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4591:72:

 4591 |       wr=qy-q*(yb*(1.0-uu))                                                2596
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4592:72:

 4592 |       a=0.0                                                                2596
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4593:72:

 4593 |       as=0.0                                                               2597
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4594:72:

 4594 |       dvr=-yb                                                              2598
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4595:72:

 4595 | 17270 do 17271 i=1,no                                                      2598
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4596:72:

 4596 |       if(qy(i).gt.0.0) dvr=dvr+qy(i)*log(y(i))                             2598
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4597:72:

 4597 | 17271 continue                                                             2598
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4598:72:

 4598 | 17272 continue                                                             2598
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4599:72:

 4599 |       dvr=dvr-dv0                                                          2598
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4600:72:

 4600 |       dev0=dvr                                                             2599
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4601:72:

 4601 |       if(flmin .ge. 1.0)goto 17291                                         2599
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4602:72:

 4602 |       eqs=max(eps,flmin)                                                   2599
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4603:72:

 4603 |       alf=eqs**(1.0/(nlam-1))                                              2599
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4604:72:

 4604 | 17291 continue                                                             2600
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4605:72:

 4605 |       m=0                                                                  2600
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4606:72:

 4606 |       mm=0                                                                 2600
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4607:72:

 4607 |       nlp=0                                                                2600
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4608:72:

 4608 |       nin=nlp                                                              2600
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4609:72:

 4609 |       mnl=min(mnlam,nlam)                                                  2600
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4610:72:

 4610 |       shr=shri*dev0                                                        2600
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4611:72:

 4611 |       al=0.0                                                               2600
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4612:72:

 4612 |       ixx=0                                                                2601
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4613:72:

 4613 | 17300 do 17301 j=1,ni                                                      2601
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4614:72:

 4614 |       if(ju(j).eq.0)goto 17301                                             2602
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4615:72:

 4615 |       jb=ix(j)                                                             2602
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4616:72:

 4616 |       je=ix(j+1)-1                                                         2603
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4617:72:

 4617 |       ga(j)=abs(dot_product(wr(jx(jb:je)),x(jb:je))  -uu*(xm(j)-ww*xb(j)   2605
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4619:72:

 4619 | 17301 continue                                                             2606
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4620:72:

 4620 | 17302 continue                                                             2606
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4621:72:

 4621 | 17310 do 17311 ilm=1,nlam                                                  2606
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4622:72:

 4622 |       al0=al                                                               2607
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4623:72:

 4623 |       if(flmin .lt. 1.0)goto 17331                                         2607
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4624:72:

 4624 |       al=ulam(ilm)                                                         2607
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4625:72:

 4625 |       goto 17321                                                           2608
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4626:72:

 4626 | 17331 if(ilm .le. 2)goto 17341                                             2608
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4627:72:

 4627 |       al=al*alf                                                            2608
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4628:72:

 4628 |       goto 17321                                                           2609
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4629:72:

 4629 | 17341 if(ilm .ne. 1)goto 17351                                             2609
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4630:72:

 4630 |       al=big                                                               2609
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4631:72:

 4631 |       goto 17361                                                           2610
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4632:72:

 4632 | 17351 continue                                                             2610
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4633:72:

 4633 |       al0=0.0                                                              2611
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4634:72:

 4634 | 17370 do 17371 j=1,ni                                                      2611
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4635:72:

 4635 |       if(ju(j).eq.0)goto 17371                                             2611
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4636:72:

 4636 |       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            2611
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4637:72:

 4637 | 17371 continue                                                             2612
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4638:72:

 4638 | 17372 continue                                                             2612
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4639:72:

 4639 |       al0=al0/max(bta,1.0e-3)                                              2612
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4640:72:

 4640 |       al=alf*al0                                                           2613
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4641:72:

 4641 | 17361 continue                                                             2614
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4642:72:

 4642 | 17321 continue                                                             2614
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4643:72:

 4643 |       al2=al*omb                                                           2614
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4644:72:

 4644 |       al1=al*bta                                                           2614
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4645:72:

 4645 |       tlam=bta*(2.0*al-al0)                                                2615
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4646:72:

 4646 | 17380 do 17381 k=1,ni                                                      2615
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4647:72:

 4647 |       if(ixx(k).eq.1)goto 17381                                            2615
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4648:72:

 4648 |       if(ju(k).eq.0)goto 17381                                             2616
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4649:72:

 4649 |       if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                     2617
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4650:72:

 4650 | 17381 continue                                                             2618
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4651:72:

 4651 | 17382 continue                                                             2618
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4652:72:

 4652 | 10680 continue                                                             2619
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4653:72:

 4653 | 17390 continue                                                             2619
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4654:72:

 4654 | 17391 continue                                                             2619
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4655:72:

 4655 |       az0=az                                                               2620
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4656:72:

 4656 |       if(nin.gt.0) as(m(1:nin))=a(m(1:nin))                                2621
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4657:72:

 4657 | 17400 do 17401 j=1,ni                                                      2621
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4658:72:

 4658 |       if(ixx(j).eq.0)goto 17401                                            2621
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4659:72:

 4659 |       jb=ix(j)                                                             2621
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4660:72:

 4660 |       je=ix(j+1)-1                                                         2622
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4661:72:

 4661 |       xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                             2623
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4662:72:

 4662 |       v(j)=(dot_product(w(jx(jb:je)),x(jb:je)**2)  -2.0*xb(j)*xm(j)+ww*x   2625
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4664:72:

 4664 | 17401 continue                                                             2626
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4665:72:

 4665 | 17402 continue                                                             2626
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4666:72:

 4666 | 17410 continue                                                             2626
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4667:72:

 4667 | 17411 continue                                                             2626
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4668:72:

 4668 |       nlp=nlp+1                                                            2627
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4669:72:

 4669 |       dlx=0.0                                                              2628
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4670:72:

 4670 | 17420 do 17421 k=1,ni                                                      2628
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4671:72:

 4671 |       if(ixx(k).eq.0)goto 17421                                            2628
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4672:72:

 4672 |       jb=ix(k)                                                             2628
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4673:72:

 4673 |       je=ix(k+1)-1                                                         2628
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4674:72:

 4674 |       ak=a(k)                                                              2629
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4675:72:

 4675 |       u=(dot_product(wr(jx(jb:je)),x(jb:je))  -uu*(xm(k)-ww*xb(k))-xb(k)   2631
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4677:72:

 4677 |       au=abs(u)-vp(k)*al1                                                  2632
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4678:72:

 4678 |       if(au .gt. 0.0)goto 17441                                            2632
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4679:72:

 4679 |       a(k)=0.0                                                             2632
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4680:72:

 4680 |       goto 17451                                                           2633
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4681:72:

 4681 | 17441 continue                                                             2633
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4682:72:

 4682 |       a(k)=sign(au,u)/(v(k)+vp(k)*al2)                                     2633
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4683:72:

 4683 | 17451 continue                                                             2634
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4684:72:

 4684 | 17431 continue                                                             2634
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4685:72:

 4685 |       if(a(k).eq.ak)goto 17421                                             2635
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4686:72:

 4686 |       if(mm(k) .ne. 0)goto 17471                                           2635
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4687:72:

 4687 |       nin=nin+1                                                            2635
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4688:72:

 4688 |       if(nin.gt.nx)goto 17422                                              2636
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4689:72:

 4689 |       mm(k)=nin                                                            2636
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4690:72:

 4690 |       m(nin)=k                                                             2637
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4691:72:

 4691 | 17471 continue                                                             2638
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4692:72:

 4692 |       d=a(k)-ak                                                            2638
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4693:72:

 4693 |       dlx=max(dlx,v(k)*d**2)                                               2638
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4694:72:

 4694 |       dv=d/xs(k)                                                           2639
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4695:72:

 4695 |       wr(jx(jb:je))=wr(jx(jb:je))-dv*w(jx(jb:je))*x(jb:je)                 2640
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4696:72:

 4696 |       t(jx(jb:je))=t(jx(jb:je))+dv*x(jb:je)                                2641
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4697:72:

 4697 |       uu=uu-dv*xb(k)                                                       2641
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4698:72:

 4698 |       tt=tt-dv*xm(k)                                                       2642
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4699:72:

 4699 | 17421 continue                                                             2643
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4700:72:

 4700 | 17422 continue                                                             2643
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4701:72:

 4701 |       if(nin.gt.nx)goto 17412                                              2643
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4702:72:

 4702 |       d=tt/ww-uu                                                           2644
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4703:72:

 4703 |       az=az+d                                                              2644
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4704:72:

 4704 |       dlx=max(dlx,ww*d**2)                                                 2644
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4705:72:

 4705 |       uu=uu+d                                                              2645
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4706:72:

 4706 |       if(dlx.lt.shr)goto 17412                                             2645
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4707:72:

 4707 |       if(nlp .le. maxit)goto 17491                                         2645
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4708:72:

 4708 |       jerr=-ilm                                                            2645
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4709:72:

 4709 |       return                                                               2645
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4710:72:

 4710 | 17491 continue                                                             2646
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4711:72:

 4711 | 17500 continue                                                             2646
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4712:72:

 4712 | 17501 continue                                                             2646
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4713:72:

 4713 |       nlp=nlp+1                                                            2646
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4714:72:

 4714 |       dlx=0.0                                                              2647
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4715:72:

 4715 | 17510 do 17511 l=1,nin                                                     2647
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4716:72:

 4716 |       k=m(l)                                                               2648
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4717:72:

 4717 |       jb=ix(k)                                                             2648
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4718:72:

 4718 |       je=ix(k+1)-1                                                         2648
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4719:72:

 4719 |       ak=a(k)                                                              2649
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4720:72:

 4720 |       u=(dot_product(wr(jx(jb:je)),x(jb:je))  -uu*(xm(k)-ww*xb(k))-xb(k)   2651
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4722:72:

 4722 |       au=abs(u)-vp(k)*al1                                                  2652
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4723:72:

 4723 |       if(au .gt. 0.0)goto 17531                                            2652
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4724:72:

 4724 |       a(k)=0.0                                                             2652
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4725:72:

 4725 |       goto 17541                                                           2653
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4726:72:

 4726 | 17531 continue                                                             2653
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4727:72:

 4727 |       a(k)=sign(au,u)/(v(k)+vp(k)*al2)                                     2653
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4728:72:

 4728 | 17541 continue                                                             2654
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4729:72:

 4729 | 17521 continue                                                             2654
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4730:72:

 4730 |       if(a(k).eq.ak)goto 17511                                             2654
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4731:72:

 4731 |       d=a(k)-ak                                                            2654
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4732:72:

 4732 |       dlx=max(dlx,v(k)*d**2)                                               2655
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4733:72:

 4733 |       dv=d/xs(k)                                                           2655
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4734:72:

 4734 |       wr(jx(jb:je))=wr(jx(jb:je))-dv*w(jx(jb:je))*x(jb:je)                 2656
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4735:72:

 4735 |       t(jx(jb:je))=t(jx(jb:je))+dv*x(jb:je)                                2657
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4736:72:

 4736 |       uu=uu-dv*xb(k)                                                       2657
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4737:72:

 4737 |       tt=tt-dv*xm(k)                                                       2658
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4738:72:

 4738 | 17511 continue                                                             2659
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4739:72:

 4739 | 17512 continue                                                             2659
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4740:72:

 4740 |       d=tt/ww-uu                                                           2659
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4741:72:

 4741 |       az=az+d                                                              2659
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4742:72:

 4742 |       dlx=max(dlx,ww*d**2)                                                 2659
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4743:72:

 4743 |       uu=uu+d                                                              2660
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4744:72:

 4744 |       if(dlx.lt.shr)goto 17502                                             2660
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4745:72:

 4745 |       if(nlp .le. maxit)goto 17561                                         2660
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4746:72:

 4746 |       jerr=-ilm                                                            2660
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4747:72:

 4747 |       return                                                               2660
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4748:72:

 4748 | 17561 continue                                                             2661
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4749:72:

 4749 |       goto 17501                                                           2662
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4750:72:

 4750 | 17502 continue                                                             2662
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4751:72:

 4751 |       goto 17411                                                           2663
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4752:72:

 4752 | 17412 continue                                                             2663
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4753:72:

 4753 |       if(nin.gt.nx)goto 17392                                              2664
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4754:72:

 4754 |       euu=exp(sign(min(abs(uu),fmax),uu))                                  2665
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4755:72:

 4755 |       w=euu*q*exp(sign(min(abs(t),fmax),t))                                2665
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4756:72:

 4756 |       ww=sum(w)                                                            2666
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4757:72:

 4757 |       wr=qy-w*(1.0-uu)                                                     2666
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4758:72:

 4758 |       tt=sum(wr)                                                           2667
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4759:72:

 4759 |       if(ww*(az-az0)**2 .ge. shr)goto 17581                                2667
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4760:72:

 4760 |       kx=0                                                                 2668
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4761:72:

 4761 | 17590 do 17591 j=1,nin                                                     2668
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4762:72:

 4762 |       k=m(j)                                                               2669
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4763:72:

 4763 |       if(v(k)*(a(k)-as(k))**2.lt.shr)goto 17591                            2669
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4764:72:

 4764 |       kx=1                                                                 2669
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4765:72:

 4765 |       goto 17592                                                           2670
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4766:72:

 4766 | 17591 continue                                                             2671
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4767:72:

 4767 | 17592 continue                                                             2671
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4768:72:

 4768 |       if(kx .ne. 0)goto 17611                                              2672
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4769:72:

 4769 | 17620 do 17621 j=1,ni                                                      2672
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4770:72:

 4770 |       if(ixx(j).eq.1)goto 17621                                            2672
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4771:72:

 4771 |       if(ju(j).eq.0)goto 17621                                             2673
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4772:72:

 4772 |       jb=ix(j)                                                             2673
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4773:72:

 4773 |       je=ix(j+1)-1                                                         2674
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4774:72:

 4774 |       xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                             2675
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4775:72:

 4775 |       ga(j)=abs(dot_product(wr(jx(jb:je)),x(jb:je))  -uu*(xm(j)-ww*xb(j)   2677
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4777:72:

 4777 |       if(ga(j) .le. al1*vp(j))goto 17641                                   2677
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4778:72:

 4778 |       ixx(j)=1                                                             2677
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4779:72:

 4779 |       kx=1                                                                 2677
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4780:72:

 4780 | 17641 continue                                                             2678
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4781:72:

 4781 | 17621 continue                                                             2679
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4782:72:

 4782 | 17622 continue                                                             2679
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4783:72:

 4783 |       if(kx.eq.1) go to 10680                                              2680
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4784:72:

 4784 |       goto 17392                                                           2681
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4785:72:

 4785 | 17611 continue                                                             2682
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4786:72:

 4786 | 17581 continue                                                             2683
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4787:72:

 4787 |       goto 17391                                                           2684
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4788:72:

 4788 | 17392 continue                                                             2684
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4789:72:

 4789 |       if(nin .le. nx)goto 17661                                            2684
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4790:72:

 4790 |       jerr=-10000-ilm                                                      2684
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4791:72:

 4791 |       goto 17312                                                           2684
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4792:72:

 4792 | 17661 continue                                                             2685
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4793:72:

 4793 |       if(nin.gt.0) ca(1:nin,ilm)=a(m(1:nin))                               2685
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4794:72:

 4794 |       kin(ilm)=nin                                                         2686
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4795:72:

 4795 |       a0(ilm)=az                                                           2686
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4796:72:

 4796 |       alm(ilm)=al                                                          2686
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4797:72:

 4797 |       lmu=ilm                                                              2687
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4798:72:

 4798 |       dev(ilm)=(dot_product(qy,t)+yb*uu-ww-dv0)/dvr                        2688
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4799:72:

 4799 |       if(ilm.lt.mnl)goto 17311                                             2688
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4800:72:

 4800 |       if(flmin.ge.1.0)goto 17311                                           2689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4801:72:

 4801 |       me=0                                                                 2689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4802:72:

 4802 | 17670 do 17671 j=1,nin                                                     2689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4803:72:

 4803 |       if(ca(j,ilm).ne.0.0) me=me+1                                         2689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4804:72:

 4804 | 17671 continue                                                             2689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4805:72:

 4805 | 17672 continue                                                             2689
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4806:72:

 4806 |       if(me.gt.ne)goto 17312                                               2690
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4807:72:

 4807 |       if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 17312              2691
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4808:72:

 4808 |       if(dev(ilm).gt.devmax)goto 17312                                     2692
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4809:72:

 4809 | 17311 continue                                                             2693
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4810:72:

 4810 | 17312 continue                                                             2693
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4811:72:

 4811 |       g=t+uu                                                               2694
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4812:72:

 4812 | 11790 continue                                                             2694
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4813:72:

 4813 |       deallocate(t,w,wr,v,a,qy,xm,as,mm,ga,ixx)                            2695
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4814:72:

 4814 |       return                                                               2696
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4815:72:

 4815 |       end                                                                  2697
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4816:72:

 4816 |       subroutine spdeviance(no,ni,x,ix,jx,y,g,q,nlam,a0,a,flog,jerr)       2698
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4817:72:

 4817 |       real x(*),y(no),g(no),q(no),a(ni,nlam),a0(nlam),flog(nlam)           2699
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4818:72:

 4818 |       integer ix(*),jx(*)                                                  2700
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4820:72:

 4820 |       if(minval(y) .ge. 0.0)goto 17691                                     2703
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4821:72:

 4821 |       jerr=8888                                                            2703
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4822:72:

 4822 |       return                                                               2703
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4823:72:

 4823 | 17691 continue                                                             2704
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4824:72:

 4824 |       allocate(w(1:no),stat=jerr)                                          2705
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4825:72:

 4825 |       allocate(f(1:no),stat=ierr)                                          2705
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4826:72:

 4826 |       jerr=jerr+ierr                                                       2706
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4827:72:

 4827 |       if(jerr.ne.0) return                                                 2707
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4828:72:

 4828 |       w=max(0.0,q)                                                         2707
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4829:72:

 4829 |       sw=sum(w)                                                            2707
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4830:72:

 4830 |       if(sw .gt. 0.0)goto 17711                                            2707
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4831:72:

 4831 |       jerr=9999                                                            2707
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4832:72:

 4832 |       go to 11790                                                          2707
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4833:72:

 4833 | 17711 continue                                                             2708
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4834:72:

 4834 |       yb=dot_product(w,y)/sw                                               2708
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4835:72:

 4835 |       fmax=log(huge(y(1))*0.1)                                             2709
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4836:72:

 4836 | 17720 do 17721 lam=1,nlam                                                  2709
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4837:72:

 4837 |       f=a0(lam)                                                            2710
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4838:72:

 4838 | 17730 do 17731 j=1,ni                                                      2710
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4839:72:

 4839 |       if(a(j,lam).eq.0.0)goto 17731                                        2710
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4840:72:

 4840 |       jb=ix(j)                                                             2710
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4841:72:

 4841 |       je=ix(j+1)-1                                                         2711
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4842:72:

 4842 |       f(jx(jb:je))=f(jx(jb:je))+a(j,lam)*x(jb:je)                          2712
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4843:72:

 4843 | 17731 continue                                                             2713
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4844:72:

 4844 | 17732 continue                                                             2713
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4845:72:

 4845 |       f=f+g                                                                2714
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4846:72:

 4846 |       s=dot_product(w,y*f-exp(sign(min(abs(f),fmax),f)))                   2715
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4847:72:

 4847 |       flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s)                                2716
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4848:72:

 4848 | 17721 continue                                                             2717
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4849:72:

 4849 | 17722 continue                                                             2717
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4850:72:

 4850 | 11790 continue                                                             2717
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4851:72:

 4851 |       deallocate(w,f)                                                      2718
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4852:72:

 4852 |       return                                                               2719
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4853:72:

 4853 |       end                                                                  2720
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4854:72:

 4854 |       subroutine cspdeviance(no,x,ix,jx,y,g,q,nx,nlam,a0,ca,ia,nin,flog,   2721
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4856:72:

 4856 |       real x(*),y(no),g(no),q(no),ca(nx,nlam),a0(nlam),flog(nlam)          2722
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4857:72:

 4857 |       integer ix(*),jx(*),nin(nlam),ia(nx)                                 2723
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4859:72:

 4859 |       if(minval(y) .ge. 0.0)goto 17751                                     2726
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4860:72:

 4860 |       jerr=8888                                                            2726
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4861:72:

 4861 |       return                                                               2726
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4862:72:

 4862 | 17751 continue                                                             2727
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4863:72:

 4863 |       allocate(w(1:no),stat=jerr)                                          2728
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4864:72:

 4864 |       allocate(f(1:no),stat=ierr)                                          2728
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4865:72:

 4865 |       jerr=jerr+ierr                                                       2729
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4866:72:

 4866 |       if(jerr.ne.0) return                                                 2730
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4867:72:

 4867 |       w=max(0.0,q)                                                         2730
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4868:72:

 4868 |       sw=sum(w)                                                            2730
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4869:72:

 4869 |       if(sw .gt. 0.0)goto 17771                                            2730
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4870:72:

 4870 |       jerr=9999                                                            2730
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4871:72:

 4871 |       go to 11790                                                          2730
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4872:72:

 4872 | 17771 continue                                                             2731
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4873:72:

 4873 |       yb=dot_product(w,y)/sw                                               2731
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4874:72:

 4874 |       fmax=log(huge(y(1))*0.1)                                             2732
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4875:72:

 4875 | 17780 do 17781 lam=1,nlam                                                  2732
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4876:72:

 4876 |       f=a0(lam)                                                            2733
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4877:72:

 4877 | 17790 do 17791 k=1,nin(lam)                                                2733
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4878:72:

 4878 |       j=ia(k)                                                              2733
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4879:72:

 4879 |       jb=ix(j)                                                             2733
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4880:72:

 4880 |       je=ix(j+1)-1                                                         2734
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4881:72:

 4881 |       f(jx(jb:je))=f(jx(jb:je))+ca(k,lam)*x(jb:je)                         2735
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4882:72:

 4882 | 17791 continue                                                             2736
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4883:72:

 4883 | 17792 continue                                                             2736
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4884:72:

 4884 |       f=f+g                                                                2737
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4885:72:

 4885 |       s=dot_product(w,y*f-exp(sign(min(abs(f),fmax),f)))                   2738
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4886:72:

 4886 |       flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s)                                2739
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4887:72:

 4887 | 17781 continue                                                             2740
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4888:72:

 4888 | 17782 continue                                                             2740
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4889:72:

 4889 | 11790 continue                                                             2740
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4890:72:

 4890 |       deallocate(w,f)                                                      2741
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4891:72:

 4891 |       return                                                               2742
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4892:72:

 4892 |       end                                                                  2743
      |                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:541:5:

  541 | 10031 continue                                                              628
      |     1
Warning: Label 10031 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:582:5:

  582 | 10092 continue                                                              659
      |     1
Warning: Label 10092 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:579:5:

  579 | 10090 do 10091 l=1,nk                                                       658
      |     1
Warning: Label 10090 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:585:5:

  585 | 10082 continue                                                              661
      |     1
Warning: Label 10082 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:576:5:

  576 | 10080 do 10081 k=1,lmu                                                      657
      |     1
Warning: Label 10080 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1051:5:

 1051 | 10870 do 10871 i=2,no                                                       890
      |     1
Warning: Label 10870 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1058:5:

 1058 | 10862 continue                                                              892
      |     1
Warning: Label 10862 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1048:5:

 1048 | 10860 do 10861 j=1,ni                                                       889
      |     1
Warning: Label 10860 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:625:5:

  625 | 10152 continue                                                              682
      |     1
Warning: Label 10152 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:622:5:

  622 | 10150 do 10151 j=1,ni                                                       681
      |     1
Warning: Label 10150 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:613:5:

  613 | 10142 continue                                                              678
      |     1
Warning: Label 10142 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:609:5:

  609 | 10140 do 10141 j=1,ni                                                       677
      |     1
Warning: Label 10140 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:616:5:

  616 | 10111 continue                                                              680
      |     1
Warning: Label 10111 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:604:5:

  604 | 10102 continue                                                              675
      |     1
Warning: Label 10102 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:597:5:

  597 | 10100 do 10101 j=1,ni                                                       671
      |     1
Warning: Label 10100 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:787:5:

  787 | 10462 continue                                                              755
      |     1
Warning: Label 10462 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:784:5:

  784 | 10460 do 10461 j=1,nin                                                      755
      |     1
Warning: Label 10460 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:768:5:

  768 | 10432 continue                                                              749
      |     1
Warning: Label 10432 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:764:5:

  764 | 10430 do 10431 j=1,ni                                                       746
      |     1
Warning: Label 10430 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:753:5:

  753 | 10402 continue                                                              742
      |     1
Warning: Label 10402 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:750:5:

  750 | 10400 do 10401 j=1,nin                                                      741
      |     1
Warning: Label 10400 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:755:5:

  755 | 10392 continue                                                              743
      |     1
Warning: Label 10392 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:739:5:

  739 | 10390 do 10391 l=1,nin                                                      735
      |     1
Warning: Label 10390 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:735:5:

  735 | 10380 continue                                                              734
      |     1
Warning: Label 10380 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:723:5:

  723 | 10352 continue                                                              730
      |     1
Warning: Label 10352 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:720:5:

  720 | 10350 do 10351 j=1,ni                                                       729
      |     1
Warning: Label 10350 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:713:5:

  713 | 10302 continue                                                              725
      |     1
Warning: Label 10302 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:701:5:

  701 | 10300 do 10301 j=1,ni                                                       720
      |     1
Warning: Label 10300 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:690:5:

  690 | 10270 do 10271 k=1,ni                                                       715
      |     1
Warning: Label 10270 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:685:5:

  685 | 10250 continue                                                              714
      |     1
Warning: Label 10250 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:677:5:

  677 | 10242 continue                                                              711
      |     1
Warning: Label 10242 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:672:5:

  672 | 10240 do 10241 j=1,ni                                                       708
      |     1
Warning: Label 10240 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:660:5:

  660 | 10180 do 10181 m=1,nlam                                                     704
      |     1
Warning: Label 10180 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:831:5:

  831 | 10502 continue                                                              787
      |     1
Warning: Label 10502 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:828:5:

  828 | 10500 do 10501 l=1,nk                                                       786
      |     1
Warning: Label 10500 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:834:5:

  834 | 10492 continue                                                              789
      |     1
Warning: Label 10492 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:825:5:

  825 | 10490 do 10491 k=1,lmu                                                      785
      |     1
Warning: Label 10490 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:862:5:

  862 | 10552 continue                                                              805
      |     1
Warning: Label 10552 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:858:5:

  858 | 10550 do 10551 j=1,ni                                                       804
      |     1
Warning: Label 10550 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:865:5:

  865 | 10521 continue                                                              807
      |     1
Warning: Label 10521 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:853:5:

  853 | 10512 continue                                                              803
      |     1
Warning: Label 10512 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:846:5:

  846 | 10510 do 10511 j=1,ni                                                       799
      |     1
Warning: Label 10510 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1036:5:

 1036 | 10852 continue                                                              881
      |     1
Warning: Label 10852 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1033:5:

 1033 | 10850 do 10851 j=1,nin                                                      881
      |     1
Warning: Label 10850 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1010:5:

 1010 | 10802 continue                                                              873
      |     1
Warning: Label 10802 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:996:5:

  996 | 10800 do 10801 l=1,nin                                                      866
      |     1
Warning: Label 10800 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:992:5:

  992 | 10790 continue                                                              865
      |     1
Warning: Label 10790 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:982:5:

  982 | 10742 continue                                                              860
      |     1
Warning: Label 10742 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:973:5:

  973 | 10740 do 10741 k=1,ni                                                       856
      |     1
Warning: Label 10740 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:949:5:

  949 | 10690 do 10691 k=1,ni                                                       844
      |     1
Warning: Label 10690 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:943:5:

  943 | 10670 continue                                                              842
      |     1
Warning: Label 10670 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:942:5:

  942 | 10662 continue                                                              842
      |     1
Warning: Label 10662 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:937:5:

  937 | 10660 do 10661 k=1,ni                                                       839
      |     1
Warning: Label 10660 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:927:5:

  927 | 10652 continue                                                              835
      |     1
Warning: Label 10652 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:923:5:

  923 | 10650 do 10651 j=1,ni                                                       834
      |     1
Warning: Label 10650 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:910:5:

  910 | 10590 do 10591 m=1,nlam                                                     829
      |     1
Warning: Label 10590 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:909:5:

  909 | 10582 continue                                                              829
      |     1
Warning: Label 10582 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:905:5:

  905 | 10580 do 10581 j=1,ni                                                       828
      |     1
Warning: Label 10580 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1076:5:

 1076 | 10882 continue                                                              903
      |     1
Warning: Label 10882 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1073:5:

 1073 | 10880 do 10881 i=1,n                                                        902
      |     1
Warning: Label 10880 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1101:5:

 1101 | 10911 continue                                                              927
      |     1
Warning: Label 10911 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1142:5:

 1142 | 10972 continue                                                              958
      |     1
Warning: Label 10972 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1139:5:

 1139 | 10970 do 10971 l=1,nk                                                       957
      |     1
Warning: Label 10970 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1145:5:

 1145 | 10962 continue                                                              960
      |     1
Warning: Label 10962 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1136:5:

 1136 | 10960 do 10961 k=1,lmu                                                      956
      |     1
Warning: Label 10960 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1622:5:

 1622 | 11750 do 11751 i=jb+1,je                                                   1189
      |     1
Warning: Label 11750 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1613:5:

 1613 | 11730 do 11731 i=jb,je                                                     1188
      |     1
Warning: Label 11730 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1629:5:

 1629 | 11711 continue                                                             1190
      |     1
Warning: Label 11711 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1631:5:

 1631 | 11702 continue                                                             1191
      |     1
Warning: Label 11702 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1606:5:

 1606 | 11700 do 11701 j=1,ni                                                      1186
      |     1
Warning: Label 11700 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1181:5:

 1181 | 11022 continue                                                              976
      |     1
Warning: Label 11022 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1175:5:

 1175 | 11020 do 11021 j=1,ni                                                       973
      |     1
Warning: Label 11020 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1169:5:

 1169 | 10991 continue                                                              972
      |     1
Warning: Label 10991 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1162:5:

 1162 | 10982 continue                                                              971
      |     1
Warning: Label 10982 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1154:5:

 1154 | 10980 do 10981 j=1,ni                                                       966
      |     1
Warning: Label 10980 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1342:5:

 1342 | 11322 continue                                                             1050
      |     1
Warning: Label 11322 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1339:5:

 1339 | 11320 do 11321 j=1,nin                                                     1050
      |     1
Warning: Label 11320 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1323:5:

 1323 | 11292 continue                                                             1044
      |     1
Warning: Label 11292 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1319:5:

 1319 | 11290 do 11291 j=1,ni                                                      1041
      |     1
Warning: Label 11290 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1308:5:

 1308 | 11262 continue                                                             1037
      |     1
Warning: Label 11262 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1305:5:

 1305 | 11260 do 11261 j=1,nin                                                     1036
      |     1
Warning: Label 11260 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1310:5:

 1310 | 11252 continue                                                             1038
      |     1
Warning: Label 11252 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1294:5:

 1294 | 11250 do 11251 l=1,nin                                                     1030
      |     1
Warning: Label 11250 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1290:5:

 1290 | 11240 continue                                                             1029
      |     1
Warning: Label 11240 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1278:5:

 1278 | 11212 continue                                                             1025
      |     1
Warning: Label 11212 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1275:5:

 1275 | 11210 do 11211 j=1,ni                                                      1024
      |     1
Warning: Label 11210 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1268:5:

 1268 | 11162 continue                                                             1020
      |     1
Warning: Label 11162 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1256:5:

 1256 | 11160 do 11161 j=1,ni                                                      1014
      |     1
Warning: Label 11160 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1245:5:

 1245 | 11130 do 11131 k=1,ni                                                      1009
      |     1
Warning: Label 11130 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1240:5:

 1240 | 11120 continue                                                             1008
      |     1
Warning: Label 11120 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1232:5:

 1232 | 11112 continue                                                             1005
      |     1
Warning: Label 11112 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1227:5:

 1227 | 11110 do 11111 j=1,ni                                                      1002
      |     1
Warning: Label 11110 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1215:5:

 1215 | 11050 do 11051 m=1,nlam                                                     998
      |     1
Warning: Label 11050 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1669:5:

 1669 | 11810 continue                                                             1213
      |     1
Warning: Label 11810 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1662:5:

 1662 | 11780 continue                                                             1211
      |     1
Warning: Label 11780 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1660:5:

 1660 | 11770 continue                                                             1210
      |     1
Warning: Label 11770 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1386:5:

 1386 | 11362 continue                                                             1082
      |     1
Warning: Label 11362 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1383:5:

 1383 | 11360 do 11361 l=1,nk                                                      1081
      |     1
Warning: Label 11360 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1389:5:

 1389 | 11352 continue                                                             1084
      |     1
Warning: Label 11352 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1380:5:

 1380 | 11350 do 11351 k=1,lmu                                                     1080
      |     1
Warning: Label 11350 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1413:5:

 1413 | 11381 continue                                                             1096
      |     1
Warning: Label 11381 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1406:5:

 1406 | 11372 continue                                                             1095
      |     1
Warning: Label 11372 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1398:5:

 1398 | 11370 do 11371 j=1,ni                                                      1090
      |     1
Warning: Label 11370 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1594:5:

 1594 | 11692 continue                                                             1178
      |     1
Warning: Label 11692 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1591:5:

 1591 | 11690 do 11691 j=1,nin                                                     1178
      |     1
Warning: Label 11690 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1568:5:

 1568 | 11642 continue                                                             1170
      |     1
Warning: Label 11642 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1551:5:

 1551 | 11640 do 11641 l=1,nin                                                     1161
      |     1
Warning: Label 11640 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1547:5:

 1547 | 11630 continue                                                             1160
      |     1
Warning: Label 11630 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1537:5:

 1537 | 11582 continue                                                             1155
      |     1
Warning: Label 11582 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1526:5:

 1526 | 11580 do 11581 j=1,ni                                                      1150
      |     1
Warning: Label 11580 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1499:5:

 1499 | 11530 do 11531 k=1,ni                                                      1136
      |     1
Warning: Label 11530 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1493:5:

 1493 | 11520 continue                                                             1134
      |     1
Warning: Label 11520 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1492:5:

 1492 | 11512 continue                                                             1134
      |     1
Warning: Label 11512 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1487:5:

 1487 | 11510 do 11511 k=1,ni                                                      1131
      |     1
Warning: Label 11510 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1477:5:

 1477 | 11502 continue                                                             1127
      |     1
Warning: Label 11502 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1473:5:

 1473 | 11500 do 11501 j=1,ni                                                      1126
      |     1
Warning: Label 11500 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1460:5:

 1460 | 11440 do 11441 m=1,nlam                                                    1121
      |     1
Warning: Label 11440 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1459:5:

 1459 | 11432 continue                                                             1121
      |     1
Warning: Label 11432 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1453:5:

 1453 | 11430 do 11431 j=1,ni                                                      1117
      |     1
Warning: Label 11430 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1644:5:

 1644 | 11762 continue                                                             1199
      |     1
Warning: Label 11762 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1638:5:

 1638 | 11760 do 11761 j=1,nin                                                     1196
      |     1
Warning: Label 11760 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1746:5:

 1746 | 11962 continue                                                             1253
      |     1
Warning: Label 11962 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1743:5:

 1743 | 11960 do 11961 l=1,nk                                                      1253
      |     1
Warning: Label 11960 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1750:5:

 1750 | 11932 continue                                                             1256
      |     1
Warning: Label 11932 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1741:5:

 1741 | 11930 do 11931 ic=1,nc                                                     1253
      |     1
Warning: Label 11930 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1752:5:

 1752 | 11922 continue                                                             1257
      |     1
Warning: Label 11922 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1739:5:

 1739 | 11920 do 11921 k=1,lmu                                                     1252
      |     1
Warning: Label 11920 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1736:5:

 1736 | 11891 continue                                                             1251
      |     1
Warning: Label 11891 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1724:5:

 1724 | 11882 continue                                                             1241
      |     1
Warning: Label 11882 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1720:5:

 1720 | 11880 do 11881 i=1,no                                                      1241
      |     1
Warning: Label 11880 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1769:5:

 1769 | 11972 continue                                                             1266
      |     1
Warning: Label 11972 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1760:5:

 1760 | 11970 do 11971 j=1,ni                                                      1262
      |     1
Warning: Label 11970 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2055:5:

 2055 | 12642 continue                                                             1387
      |     1
Warning: Label 12642 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2052:5:

 2052 | 12640 do 12641 j=1,nin                                                     1387
      |     1
Warning: Label 12640 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2030:5:

 2030 | 12592 continue                                                             1376
      |     1
Warning: Label 12592 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2021:5:

 2021 | 12590 do 12591 k=1,ni                                                      1372
      |     1
Warning: Label 12590 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2013:5:

 2013 | 12560 do 12561 j=1,nin                                                     1368
      |     1
Warning: Label 12560 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2006:5:

 2006 | 12492 continue                                                             1366
      |     1
Warning: Label 12492 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1992:5:

 1992 | 12490 do 12491 i=1,no                                                      1361
      |     1
Warning: Label 12490 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1969:5:

 1969 | 12421 continue                                                             1352
      |     1
Warning: Label 12421 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1975:5:

 1975 | 12412 continue                                                             1355
      |     1
Warning: Label 12412 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1957:5:

 1957 | 12410 do 12411 l=1,nin                                                     1347
      |     1
Warning: Label 12410 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1953:5:

 1953 | 12400 continue                                                             1346
      |     1
Warning: Label 12400 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1928:5:

 1928 | 12311 continue                                                             1336
      |     1
Warning: Label 12311 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1916:5:

 1916 | 12300 do 12301 k=1,ni                                                      1331
      |     1
Warning: Label 12300 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1912:5:

 1912 | 12290 continue                                                             1330
      |     1
Warning: Label 12290 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1910:5:

 1910 | 12282 continue                                                             1329
      |     1
Warning: Label 12282 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1907:5:

 1907 | 12280 do 12281 j=1,ni                                                      1328
      |     1
Warning: Label 12280 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1902:5:

 1902 | 12250 continue                                                             1326
      |     1
Warning: Label 12250 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1900:5:

 1900 | 12242 continue                                                             1325
      |     1
Warning: Label 12242 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1895:5:

 1895 | 12240 do 12241 k=1,ni                                                      1322
      |     1
Warning: Label 12240 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1887:5:

 1887 | 12232 continue                                                             1319
      |     1
Warning: Label 12232 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1883:5:

 1883 | 12230 do 12231 j=1,ni                                                      1318
      |     1
Warning: Label 12230 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1870:5:

 1870 | 12170 do 12171 ilm=1,nlam                                                  1313
      |     1
Warning: Label 12170 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1869:5:

 1869 | 12162 continue                                                             1313
      |     1
Warning: Label 12162 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1865:5:

 1865 | 12160 do 12161 j=1,ni                                                      1312
      |     1
Warning: Label 12160 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1852:5:

 1852 | 12132 continue                                                             1309
      |     1
Warning: Label 12132 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1848:5:

 1848 | 12130 do 12131 i=1,no                                                      1306
      |     1
Warning: Label 12130 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1843:5:

 1843 | 12122 continue                                                             1303
      |     1
Warning: Label 12122 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1840:5:

 1840 | 12120 do 12121 j=1,ni                                                      1303
      |     1
Warning: Label 12120 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1845:5:

 1845 | 12091 continue                                                             1304
      |     1
Warning: Label 12091 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:1834:5:

 1834 | 12041 continue                                                             1301
      |     1
Warning: Label 12041 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4418:5:

 4418 | 17032 continue                                                             2498
      |     1
Warning: Label 17032 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4412:5:

 4412 | 17030 do 17031 i=1,n                                                       2497
      |     1
Warning: Label 17030 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2091:5:

 2091 | 12660 continue                                                             1414
      |     1
Warning: Label 12660 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2073:5:

 2073 | 12652 continue                                                             1400
      |     1
Warning: Label 12652 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2069:5:

 2069 | 12650 do 12651 i=1,n                                                       1397
      |     1
Warning: Label 12650 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2497:5:

 2497 | 13542 continue                                                             1596
      |     1
Warning: Label 13542 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2494:5:

 2494 | 13540 do 13541 i=1,no                                                      1595
      |     1
Warning: Label 13540 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2478:5:

 2478 | 13532 continue                                                             1588
      |     1
Warning: Label 13532 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2474:5:

 2474 | 13530 do 13531 i=1,no                                                      1585
      |     1
Warning: Label 13530 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2480:5:

 2480 | 13522 continue                                                             1589
      |     1
Warning: Label 13522 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2471:5:

 2471 | 13520 do 13521 ic=1,nc                                                     1584
      |     1
Warning: Label 13520 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2460:5:

 2460 | 13472 continue                                                             1578
      |     1
Warning: Label 13472 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2452:5:

 2452 | 13470 do 13471 k=1,ni                                                      1575
      |     1
Warning: Label 13470 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2449:5:

 2449 | 13462 continue                                                             1574
      |     1
Warning: Label 13462 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2444:5:

 2444 | 13460 do 13461 k=1,ni                                                      1571
      |     1
Warning: Label 13460 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2451:5:

 2451 | 13452 continue                                                             1575
      |     1
Warning: Label 13452 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2442:5:

 2442 | 13450 do 13451 ic=1,nc                                                     1570
      |     1
Warning: Label 13450 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2441:5:

 2441 | 13442 continue                                                             1570
      |     1
Warning: Label 13442 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2436:5:

 2436 | 13440 do 13441 k=1,ni                                                      1569
      |     1
Warning: Label 13440 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2432:5:

 2432 | 13412 continue                                                             1567
      |     1
Warning: Label 13412 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2429:5:

 2429 | 13410 do 13411 ic=1,nc                                                     1566
      |     1
Warning: Label 13410 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2422:5:

 2422 | 13381 continue                                                             1564
      |     1
Warning: Label 13381 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2426:5:

 2426 | 13372 continue                                                             1566
      |     1
Warning: Label 13372 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2414:5:

 2414 | 13370 do 13371 j=1,nin                                                     1561
      |     1
Warning: Label 13370 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2408:5:

 2408 | 13362 continue                                                             1559
      |     1
Warning: Label 13362 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2400:5:

 2400 | 13360 do 13361 i=1,no                                                      1552
      |     1
Warning: Label 13360 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2391:5:

 2391 | 13330 do 13331 j=1,nin                                                     1548
      |     1
Warning: Label 13330 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2366:5:

 2366 | 13241 continue                                                             1535
      |     1
Warning: Label 13241 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2372:5:

 2372 | 13232 continue                                                             1538
      |     1
Warning: Label 13232 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2354:5:

 2354 | 13230 do 13231 l=1,nin                                                     1530
      |     1
Warning: Label 13230 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2350:5:

 2350 | 13220 continue                                                             1529
      |     1
Warning: Label 13220 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2322:5:

 2322 | 13111 continue                                                             1517
      |     1
Warning: Label 13111 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2310:5:

 2310 | 13100 do 13101 k=1,ni                                                      1512
      |     1
Warning: Label 13100 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2306:5:

 2306 | 13090 continue                                                             1511
      |     1
Warning: Label 13090 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2304:5:

 2304 | 13082 continue                                                             1510
      |     1
Warning: Label 13082 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2301:5:

 2301 | 13080 do 13081 j=1,ni                                                      1509
      |     1
Warning: Label 13080 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2297:5:

 2297 | 13012 continue                                                             1507
      |     1
Warning: Label 13012 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2280:5:

 2280 | 13010 do 13011 i=1,no                                                      1501
      |     1
Warning: Label 13010 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2276:5:

 2276 | 13000 do 13001 ic=1,nc                                                     1498
      |     1
Warning: Label 13000 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2271:5:

 2271 | 12990 continue                                                             1497
      |     1
Warning: Label 12990 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2269:5:

 2269 | 12982 continue                                                             1496
      |     1
Warning: Label 12982 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2264:5:

 2264 | 12980 do 12981 k=1,ni                                                      1493
      |     1
Warning: Label 12980 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2256:5:

 2256 | 12972 continue                                                             1490
      |     1
Warning: Label 12972 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2252:5:

 2252 | 12970 do 12971 j=1,ni                                                      1489
      |     1
Warning: Label 12970 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2239:5:

 2239 | 12910 do 12911 ilm=1,nlam                                                  1484
      |     1
Warning: Label 12910 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2236:5:

 2236 | 12902 continue                                                             1483
      |     1
Warning: Label 12902 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2233:5:

 2233 | 12900 do 12901 j=1,ni                                                      1482
      |     1
Warning: Label 12900 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2238:5:

 2238 | 12892 continue                                                             1484
      |     1
Warning: Label 12892 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2231:5:

 2231 | 12890 do 12891 ic=1,nc                                                     1481
      |     1
Warning: Label 12890 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2215:5:

 2215 | 12862 continue                                                             1476
      |     1
Warning: Label 12862 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2212:5:

 2212 | 12860 do 12861 j=1,ni                                                      1476
      |     1
Warning: Label 12860 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2217:5:

 2217 | 12831 continue                                                             1477
      |     1
Warning: Label 12831 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2203:5:

 2203 | 12802 continue                                                             1472
      |     1
Warning: Label 12802 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2200:5:

 2200 | 12800 do 12801 i=1,no                                                      1472
      |     1
Warning: Label 12800 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2205:5:

 2205 | 12792 continue                                                             1473
      |     1
Warning: Label 12792 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2199:5:

 2199 | 12790 do 12791 ic=1,nc                                                     1472
      |     1
Warning: Label 12790 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2196:5:

 2196 | 12782 continue                                                             1471
      |     1
Warning: Label 12782 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2193:5:

 2193 | 12780 do 12781 ic=1,nc                                                     1470
      |     1
Warning: Label 12780 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2191:5:

 2191 | 12772 continue                                                             1470
      |     1
Warning: Label 12772 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2185:5:

 2185 | 12770 do 12771 ic=1,nc                                                     1466
      |     1
Warning: Label 12770 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2180:5:

 2180 | 12762 continue                                                             1463
      |     1
Warning: Label 12762 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2177:5:

 2177 | 12760 do 12761 i=1,no                                                      1463
      |     1
Warning: Label 12760 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2174:5:

 2174 | 12742 continue                                                             1462
      |     1
Warning: Label 12742 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2170:5:

 2170 | 12740 do 12741 ic=1,nc                                                     1461
      |     1
Warning: Label 12740 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2198:5:

 2198 | 12721 continue                                                             1472
      |     1
Warning: Label 12721 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2164:5:

 2164 | 12672 continue                                                             1458
      |     1
Warning: Label 12672 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2150:5:

 2150 | 12670 do 12671 ic=1,nc                                                     1453
      |     1
Warning: Label 12670 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2537:5:

 2537 | 13592 continue                                                             1617
      |     1
Warning: Label 13592 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2532:5:

 2532 | 13590 do 13591 i=1,n                                                       1616
      |     1
Warning: Label 13590 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2527:5:

 2527 | 13582 continue                                                             1615
      |     1
Warning: Label 13582 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2522:5:

 2522 | 13580 do 13581 i=1,n                                                       1612
      |     1
Warning: Label 13580 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2539:5:

 2539 | 13572 continue                                                             1618
      |     1
Warning: Label 13572 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2519:5:

 2519 | 13570 do 13571 k=1,kk                                                      1611
      |     1
Warning: Label 13570 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2516:5:

 2516 | 13560 continue                                                             1610
      |     1
Warning: Label 13560 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2515:5:

 2515 | 13552 continue                                                             1610
      |     1
Warning: Label 13552 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2512:5:

 2512 | 13550 do 13551 i=1,n                                                       1609
      |     1
Warning: Label 13550 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2621:5:

 2621 | 13772 continue                                                             1645
      |     1
Warning: Label 13772 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2611:5:

 2611 | 13770 do 13771 k=k1+1,k2                                                   1641
      |     1
Warning: Label 13770 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2593:5:

 2593 | 13720 do 13721 k=k1,k2-1                                                   1636
      |     1
Warning: Label 13720 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2585:5:

 2585 | 13710 continue                                                             1634
      |     1
Warning: Label 13710 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2579:5:

 2579 | 13700 continue                                                             1633
      |     1
Warning: Label 13700 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2571:5:

 2571 | 13651 continue                                                             1631
      |     1
Warning: Label 13651 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2559:5:

 2559 | 13622 continue                                                             1627
      |     1
Warning: Label 13622 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2556:5:

 2556 | 13620 do 13621 i=1,n                                                       1627
      |     1
Warning: Label 13620 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2637:5:

 2637 | 13812 continue                                                             1652
      |     1
Warning: Label 13812 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2630:5:

 2630 | 13810 do 13811 j=1,nin                                                     1650
      |     1
Warning: Label 13810 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2639:5:

 2639 | 13802 continue                                                             1653
      |     1
Warning: Label 13802 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2629:5:

 2629 | 13800 do 13801 ic=1,nc                                                     1650
      |     1
Warning: Label 13800 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2649:5:

 2649 | 13822 continue                                                             1659
      |     1
Warning: Label 13822 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2646:5:

 2646 | 13820 do 13821 ic=1,nc                                                     1658
      |     1
Warning: Label 13820 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2661:5:

 2661 | 13842 continue                                                             1666
      |     1
Warning: Label 13842 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2656:5:

 2656 | 13840 do 13841 ic=1,nc                                                     1663
      |     1
Warning: Label 13840 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2663:5:

 2663 | 13832 continue                                                             1667
      |     1
Warning: Label 13832 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2655:5:

 2655 | 13830 do 13831 i=1,nt                                                      1663
      |     1
Warning: Label 13830 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2724:5:

 2724 | 13972 continue                                                             1701
      |     1
Warning: Label 13972 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2721:5:

 2721 | 13970 do 13971 l=1,nk                                                      1701
      |     1
Warning: Label 13970 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2728:5:

 2728 | 13942 continue                                                             1704
      |     1
Warning: Label 13942 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2719:5:

 2719 | 13940 do 13941 ic=1,nc                                                     1701
      |     1
Warning: Label 13940 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2730:5:

 2730 | 13932 continue                                                             1705
      |     1
Warning: Label 13932 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2717:5:

 2717 | 13930 do 13931 k=1,lmu                                                     1700
      |     1
Warning: Label 13930 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2714:5:

 2714 | 13901 continue                                                             1699
      |     1
Warning: Label 13901 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2700:5:

 2700 | 13892 continue                                                             1689
      |     1
Warning: Label 13892 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2696:5:

 2696 | 13890 do 13891 i=1,no                                                      1689
      |     1
Warning: Label 13890 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2745:5:

 2745 | 13982 continue                                                             1714
      |     1
Warning: Label 13982 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2737:5:

 2737 | 13980 do 13981 j=1,ni                                                      1710
      |     1
Warning: Label 13980 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3090:5:

 3090 | 14642 continue                                                             1874
      |     1
Warning: Label 14642 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3087:5:

 3087 | 14640 do 14641 j=1,nin                                                     1874
      |     1
Warning: Label 14640 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3066:5:

 3066 | 14592 continue                                                             1863
      |     1
Warning: Label 14592 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3052:5:

 3052 | 14590 do 14591 j=1,ni                                                      1856
      |     1
Warning: Label 14590 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3044:5:

 3044 | 14560 do 14561 j=1,nin                                                     1852
      |     1
Warning: Label 14560 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3035:5:

 3035 | 14492 continue                                                             1849
      |     1
Warning: Label 14492 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3022:5:

 3022 | 14490 do 14491 i=1,no                                                      1845
      |     1
Warning: Label 14490 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3020:5:

 3020 | 14482 continue                                                             1844
      |     1
Warning: Label 14482 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3013:5:

 3013 | 14480 do 14481 j=1,nin                                                     1840
      |     1
Warning: Label 14480 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2985:5:

 2985 | 14411 continue                                                             1827
      |     1
Warning: Label 14411 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2993:5:

 2993 | 14402 continue                                                             1832
      |     1
Warning: Label 14402 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2968:5:

 2968 | 14400 do 14401 l=1,nin                                                     1819
      |     1
Warning: Label 14400 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2964:5:

 2964 | 14390 continue                                                             1818
      |     1
Warning: Label 14390 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2934:5:

 2934 | 14301 continue                                                             1804
      |     1
Warning: Label 14301 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2917:5:

 2917 | 14290 do 14291 k=1,ni                                                      1796
      |     1
Warning: Label 14290 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2913:5:

 2913 | 14280 continue                                                             1795
      |     1
Warning: Label 14280 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2912:5:

 2912 | 14252 continue                                                             1795
      |     1
Warning: Label 14252 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2900:5:

 2900 | 14250 do 14251 j=1,ni                                                      1786
      |     1
Warning: Label 14250 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2896:5:

 2896 | 14240 continue                                                             1785
      |     1
Warning: Label 14240 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2894:5:

 2894 | 14232 continue                                                             1784
      |     1
Warning: Label 14232 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2889:5:

 2889 | 14230 do 14231 k=1,ni                                                      1781
      |     1
Warning: Label 14230 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2881:5:

 2881 | 14222 continue                                                             1778
      |     1
Warning: Label 14222 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2877:5:

 2877 | 14220 do 14221 j=1,ni                                                      1777
      |     1
Warning: Label 14220 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2864:5:

 2864 | 14160 do 14161 ilm=1,nlam                                                  1772
      |     1
Warning: Label 14160 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2863:5:

 2863 | 14152 continue                                                             1772
      |     1
Warning: Label 14152 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2854:5:

 2854 | 14150 do 14151 j=1,ni                                                      1766
      |     1
Warning: Label 14150 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2837:5:

 2837 | 14122 continue                                                             1763
      |     1
Warning: Label 14122 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2833:5:

 2833 | 14120 do 14121 i=1,no                                                      1760
      |     1
Warning: Label 14120 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2827:5:

 2827 | 14112 continue                                                             1757
      |     1
Warning: Label 14112 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2821:5:

 2821 | 14110 do 14111 j=1,ni                                                      1754
      |     1
Warning: Label 14110 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2829:5:

 2829 | 14081 continue                                                             1758
      |     1
Warning: Label 14081 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:2815:5:

 2815 | 14031 continue                                                             1751
      |     1
Warning: Label 14031 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3551:5:

 3551 | 15522 continue                                                             2093
      |     1
Warning: Label 15522 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3548:5:

 3548 | 15520 do 15521 i=1,no                                                      2092
      |     1
Warning: Label 15520 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3532:5:

 3532 | 15512 continue                                                             2085
      |     1
Warning: Label 15512 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3528:5:

 3528 | 15510 do 15511 i=1,no                                                      2082
      |     1
Warning: Label 15510 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3534:5:

 3534 | 15502 continue                                                             2086
      |     1
Warning: Label 15502 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3525:5:

 3525 | 15500 do 15501 ic=1,nc                                                     2081
      |     1
Warning: Label 15500 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3514:5:

 3514 | 15452 continue                                                             2075
      |     1
Warning: Label 15452 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3506:5:

 3506 | 15450 do 15451 k=1,ni                                                      2072
      |     1
Warning: Label 15450 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3503:5:

 3503 | 15442 continue                                                             2071
      |     1
Warning: Label 15442 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3493:5:

 3493 | 15440 do 15441 j=1,ni                                                      2065
      |     1
Warning: Label 15440 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3505:5:

 3505 | 15432 continue                                                             2072
      |     1
Warning: Label 15432 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3489:5:

 3489 | 15430 do 15431 ic=1,nc                                                     2064
      |     1
Warning: Label 15430 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3488:5:

 3488 | 15422 continue                                                             2064
      |     1
Warning: Label 15422 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3483:5:

 3483 | 15420 do 15421 j=1,ni                                                      2063
      |     1
Warning: Label 15420 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3479:5:

 3479 | 15392 continue                                                             2061
      |     1
Warning: Label 15392 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3476:5:

 3476 | 15390 do 15391 ic=1,nc                                                     2060
      |     1
Warning: Label 15390 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3465:5:

 3465 | 15361 continue                                                             2055
      |     1
Warning: Label 15361 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3472:5:

 3472 | 15352 continue                                                             2060
      |     1
Warning: Label 15352 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3457:5:

 3457 | 15350 do 15351 j=1,nin                                                     2052
      |     1
Warning: Label 15350 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3446:5:

 3446 | 15342 continue                                                             2046
      |     1
Warning: Label 15342 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3439:5:

 3439 | 15340 do 15341 j=1,nin                                                     2042
      |     1
Warning: Label 15340 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3428:5:

 3428 | 15310 do 15311 j=1,nin                                                     2037
      |     1
Warning: Label 15310 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3400:5:

 3400 | 15221 continue                                                             2021
      |     1
Warning: Label 15221 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3408:5:

 3408 | 15212 continue                                                             2027
      |     1
Warning: Label 15212 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3383:5:

 3383 | 15210 do 15211 l=1,nin                                                     2013
      |     1
Warning: Label 15210 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3379:5:

 3379 | 15200 continue                                                             2012
      |     1
Warning: Label 15200 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3347:5:

 3347 | 15091 continue                                                             1995
      |     1
Warning: Label 15091 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3330:5:

 3330 | 15080 do 15081 k=1,ni                                                      1987
      |     1
Warning: Label 15080 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3326:5:

 3326 | 15070 continue                                                             1986
      |     1
Warning: Label 15070 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3325:5:

 3325 | 15042 continue                                                             1986
      |     1
Warning: Label 15042 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3315:5:

 3315 | 15040 do 15041 j=1,ni                                                      1978
      |     1
Warning: Label 15040 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3312:5:

 3312 | 14992 continue                                                             1977
      |     1
Warning: Label 14992 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3294:5:

 3294 | 14990 do 14991 i=1,no                                                      1971
      |     1
Warning: Label 14990 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3288:5:

 3288 | 14980 do 14981 ic=1,nc                                                     1968
      |     1
Warning: Label 14980 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3283:5:

 3283 | 14970 continue                                                             1967
      |     1
Warning: Label 14970 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3281:5:

 3281 | 14962 continue                                                             1966
      |     1
Warning: Label 14962 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3276:5:

 3276 | 14960 do 14961 k=1,ni                                                      1963
      |     1
Warning: Label 14960 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3268:5:

 3268 | 14952 continue                                                             1960
      |     1
Warning: Label 14952 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3264:5:

 3264 | 14950 do 14951 j=1,ni                                                      1959
      |     1
Warning: Label 14950 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3251:5:

 3251 | 14890 do 14891 ilm=1,nlam                                                  1954
      |     1
Warning: Label 14890 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3248:5:

 3248 | 14882 continue                                                             1953
      |     1
Warning: Label 14882 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3239:5:

 3239 | 14880 do 14881 j=1,ni                                                      1947
      |     1
Warning: Label 14880 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3250:5:

 3250 | 14872 continue                                                             1954
      |     1
Warning: Label 14872 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3235:5:

 3235 | 14870 do 14871 ic=1,nc                                                     1946
      |     1
Warning: Label 14870 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3217:5:

 3217 | 14842 continue                                                             1941
      |     1
Warning: Label 14842 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3211:5:

 3211 | 14840 do 14841 j=1,ni                                                      1938
      |     1
Warning: Label 14840 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3219:5:

 3219 | 14811 continue                                                             1942
      |     1
Warning: Label 14811 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3202:5:

 3202 | 14782 continue                                                             1933
      |     1
Warning: Label 14782 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3199:5:

 3199 | 14780 do 14781 i=1,no                                                      1933
      |     1
Warning: Label 14780 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3204:5:

 3204 | 14772 continue                                                             1934
      |     1
Warning: Label 14772 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3198:5:

 3198 | 14770 do 14771 ic=1,nc                                                     1933
      |     1
Warning: Label 14770 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3195:5:

 3195 | 14762 continue                                                             1932
      |     1
Warning: Label 14762 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3192:5:

 3192 | 14760 do 14761 ic=1,nc                                                     1931
      |     1
Warning: Label 14760 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3190:5:

 3190 | 14752 continue                                                             1931
      |     1
Warning: Label 14752 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3184:5:

 3184 | 14750 do 14751 ic=1,nc                                                     1927
      |     1
Warning: Label 14750 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3179:5:

 3179 | 14742 continue                                                             1924
      |     1
Warning: Label 14742 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3176:5:

 3176 | 14740 do 14741 i=1,no                                                      1924
      |     1
Warning: Label 14740 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3173:5:

 3173 | 14722 continue                                                             1923
      |     1
Warning: Label 14722 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3169:5:

 3169 | 14720 do 14721 ic=1,nc                                                     1922
      |     1
Warning: Label 14720 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3197:5:

 3197 | 14701 continue                                                             1933
      |     1
Warning: Label 14701 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3163:5:

 3163 | 14652 continue                                                             1919
      |     1
Warning: Label 14652 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3149:5:

 3149 | 14650 do 14651 ic=1,nc                                                     1914
      |     1
Warning: Label 14650 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3569:5:

 3569 | 15552 continue                                                             2101
      |     1
Warning: Label 15552 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3566:5:

 3566 | 15550 do 15551 ic=1,nc                                                     2100
      |     1
Warning: Label 15550 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3571:5:

 3571 | 15542 continue                                                             2102
      |     1
Warning: Label 15542 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3562:5:

 3562 | 15540 do 15541 j=1,nin                                                     2099
      |     1
Warning: Label 15540 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3561:5:

 3561 | 15532 continue                                                             2099
      |     1
Warning: Label 15532 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3558:5:

 3558 | 15530 do 15531 ic=1,nc                                                     2098
      |     1
Warning: Label 15530 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3620:5:

 3620 | 15662 continue                                                             2129
      |     1
Warning: Label 15662 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3616:5:

 3616 | 15660 do 15661 k=1,lmu                                                     2129
      |     1
Warning: Label 15660 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3638:5:

 3638 | 15672 continue                                                             2139
      |     1
Warning: Label 15672 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3629:5:

 3629 | 15670 do 15671 j=1,ni                                                      2135
      |     1
Warning: Label 15670 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3880:5:

 3880 | 16182 continue                                                             2248
      |     1
Warning: Label 16182 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3877:5:

 3877 | 16180 do 16181 j=1,nin                                                     2248
      |     1
Warning: Label 16180 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3859:5:

 3859 | 16132 continue                                                             2239
      |     1
Warning: Label 16132 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3850:5:

 3850 | 16130 do 16131 k=1,ni                                                      2235
      |     1
Warning: Label 16130 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3842:5:

 3842 | 16100 do 16101 j=1,nin                                                     2232
      |     1
Warning: Label 16100 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3815:5:

 3815 | 16011 continue                                                             2220
      |     1
Warning: Label 16011 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3824:5:

 3824 | 16002 continue                                                             2224
      |     1
Warning: Label 16002 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3806:5:

 3806 | 16000 do 16001 l=1,nin                                                     2216
      |     1
Warning: Label 16000 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3802:5:

 3802 | 15990 continue                                                             2215
      |     1
Warning: Label 15990 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3780:5:

 3780 | 15901 continue                                                             2206
      |     1
Warning: Label 15901 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3771:5:

 3771 | 15890 do 15891 j=1,ni                                                      2202
      |     1
Warning: Label 15890 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3767:5:

 3767 | 15880 continue                                                             2201
      |     1
Warning: Label 15880 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3763:5:

 3763 | 15870 continue                                                             2199
      |     1
Warning: Label 15870 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3761:5:

 3761 | 15862 continue                                                             2198
      |     1
Warning: Label 15862 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3756:5:

 3756 | 15860 do 15861 k=1,ni                                                      2195
      |     1
Warning: Label 15860 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3748:5:

 3748 | 15852 continue                                                             2192
      |     1
Warning: Label 15852 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3744:5:

 3744 | 15850 do 15851 j=1,ni                                                      2191
      |     1
Warning: Label 15850 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3731:5:

 3731 | 15790 do 15791 ilm=1,nlam                                                  2186
      |     1
Warning: Label 15790 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3730:5:

 3730 | 15782 continue                                                             2186
      |     1
Warning: Label 15782 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3726:5:

 3726 | 15780 do 15781 j=1,ni                                                      2185
      |     1
Warning: Label 15780 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3712:5:

 3712 | 15732 continue                                                             2181
      |     1
Warning: Label 15732 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3706:5:

 3706 | 15730 do 15731 i=1,no                                                      2180
      |     1
Warning: Label 15730 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3702:5:

 3702 | 15701 continue                                                             2178
      |     1
Warning: Label 15701 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3945:5:

 3945 | 16290 continue                                                             2272
      |     1
Warning: Label 16290 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3943:5:

 3943 | 16280 continue                                                             2271
      |     1
Warning: Label 16280 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3937:5:

 3937 | 16272 continue                                                             2270
      |     1
Warning: Label 16272 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3934:5:

 3934 | 16270 do 16271 j=1,nj                                                      2269
      |     1
Warning: Label 16270 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3922:5:

 3922 | 16240 continue                                                             2267
      |     1
Warning: Label 16240 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3916:5:

 3916 | 16212 continue                                                             2266
      |     1
Warning: Label 16212 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3911:5:

 3911 | 16210 do 16211 j=1,no                                                      2265
      |     1
Warning: Label 16210 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3908:5:

 3908 | 16202 continue                                                             2264
      |     1
Warning: Label 16202 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3905:5:

 3905 | 16200 do 16201 j=1,no                                                      2264
      |     1
Warning: Label 16200 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4018:5:

 4018 | 16402 continue                                                             2306
      |     1
Warning: Label 16402 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4015:5:

 4015 | 16400 do 16401 k=2,nk                                                      2305
      |     1
Warning: Label 16400 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4032:5:

 4032 | 16422 continue                                                             2314
      |     1
Warning: Label 16422 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4029:5:

 4029 | 16420 do 16421 j=j2,j1,-1                                                  2313
      |     1
Warning: Label 16420 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4035:5:

 4035 | 16412 continue                                                             2316
      |     1
Warning: Label 16412 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4025:5:

 4025 | 16410 do 16411 k=nk,1,-1                                                   2311
      |     1
Warning: Label 16410 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3997:5:

 3997 | 16362 continue                                                             2294
      |     1
Warning: Label 16362 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3988:5:

 3988 | 16360 do 16361 j=j1,j2                                                     2290
      |     1
Warning: Label 16360 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3999:5:

 3999 | 16352 continue                                                             2295
      |     1
Warning: Label 16352 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3983:5:

 3983 | 16350 do 16351 k=2,nk                                                      2288
      |     1
Warning: Label 16350 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3982:5:

 3982 | 16322 continue                                                             2288
      |     1
Warning: Label 16322 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3973:5:

 3973 | 16320 do 16321 j=1,kp(1)                                                   2284
      |     1
Warning: Label 16320 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4008:5:

 4008 | 16392 continue                                                             2300
      |     1
Warning: Label 16392 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4005:5:

 4005 | 16390 do 16391 j=1,ni                                                      2299
      |     1
Warning: Label 16390 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3899:5:

 3899 | 16192 continue                                                             2260
      |     1
Warning: Label 16192 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:3896:5:

 3896 | 16190 do 16191 i=1,n                                                       2259
      |     1
Warning: Label 16190 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4091:5:

 4091 | 16472 continue                                                             2352
      |     1
Warning: Label 16472 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4087:5:

 4087 | 16470 do 16471 i=1,no                                                      2349
      |     1
Warning: Label 16470 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4094:5:

 4094 | 16462 continue                                                             2354
      |     1
Warning: Label 16462 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4086:5:

 4086 | 16460 do 16461 lam=1,nlam                                                  2349
      |     1
Warning: Label 16460 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4085:5:

 4085 | 16452 continue                                                             2348
      |     1
Warning: Label 16452 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4082:5:

 4082 | 16450 do 16451 j=1,ni                                                      2347
      |     1
Warning: Label 16450 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4151:5:

 4151 | 16582 continue                                                             2388
      |     1
Warning: Label 16582 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4146:5:

 4146 | 16580 do 16581 k=1,lmu                                                     2384
      |     1
Warning: Label 16580 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4398:5:

 4398 | 17022 continue                                                             2487
      |     1
Warning: Label 17022 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4395:5:

 4395 | 17020 do 17021 j=1,nin                                                     2487
      |     1
Warning: Label 17020 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4375:5:

 4375 | 16972 continue                                                             2477
      |     1
Warning: Label 16972 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4366:5:

 4366 | 16970 do 16971 k=1,ni                                                      2473
      |     1
Warning: Label 16970 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4358:5:

 4358 | 16940 do 16941 j=1,nin                                                     2469
      |     1
Warning: Label 16940 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4330:5:

 4330 | 16871 continue                                                             2459
      |     1
Warning: Label 16871 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4337:5:

 4337 | 16862 continue                                                             2462
      |     1
Warning: Label 16862 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4319:5:

 4319 | 16860 do 16861 l=1,nin                                                     2455
      |     1
Warning: Label 16860 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4315:5:

 4315 | 16850 continue                                                             2454
      |     1
Warning: Label 16850 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4290:5:

 4290 | 16781 continue                                                             2445
      |     1
Warning: Label 16781 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4279:5:

 4279 | 16770 do 16771 k=1,ni                                                      2441
      |     1
Warning: Label 16770 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4275:5:

 4275 | 16760 continue                                                             2440
      |     1
Warning: Label 16760 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4274:5:

 4274 | 16752 continue                                                             2440
      |     1
Warning: Label 16752 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4271:5:

 4271 | 16750 do 16751 j=1,ni                                                      2439
      |     1
Warning: Label 16750 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4267:5:

 4267 | 16740 continue                                                             2437
      |     1
Warning: Label 16740 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4265:5:

 4265 | 16732 continue                                                             2436
      |     1
Warning: Label 16732 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4260:5:

 4260 | 16730 do 16731 k=1,ni                                                      2433
      |     1
Warning: Label 16730 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4252:5:

 4252 | 16722 continue                                                             2430
      |     1
Warning: Label 16722 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4248:5:

 4248 | 16720 do 16721 j=1,ni                                                      2429
      |     1
Warning: Label 16720 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4235:5:

 4235 | 16660 do 16661 ilm=1,nlam                                                  2424
      |     1
Warning: Label 16660 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4234:5:

 4234 | 16652 continue                                                             2424
      |     1
Warning: Label 16652 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4230:5:

 4230 | 16650 do 16651 j=1,ni                                                      2423
      |     1
Warning: Label 16650 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4215:5:

 4215 | 16622 continue                                                             2420
      |     1
Warning: Label 16622 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4212:5:

 4212 | 16620 do 16621 i=1,no                                                      2420
      |     1
Warning: Label 16620 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4206:5:

 4206 | 16591 continue                                                             2419
      |     1
Warning: Label 16591 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4405:5:

 4405 | 11790 continue                                                             2492
      |     1
Warning: Label 11790 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4427:5:

 4427 | 17062 continue                                                             2503
      |     1
Warning: Label 17062 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4424:5:

 4424 | 17060 do 17061 lam=1,lmu                                                   2502
      |     1
Warning: Label 17060 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4436:5:

 4436 | 17072 continue                                                             2508
      |     1
Warning: Label 17072 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4433:5:

 4433 | 17070 do 17071 lam=1,lmu                                                   2507
      |     1
Warning: Label 17070 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4463:5:

 4463 | 17132 continue                                                             2524
      |     1
Warning: Label 17132 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4458:5:

 4458 | 17130 do 17131 i=1,no                                                      2520
      |     1
Warning: Label 17130 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4466:5:

 4466 | 17122 continue                                                             2526
      |     1
Warning: Label 17122 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4456:5:

 4456 | 17120 do 17121 lam=1,nlam                                                  2519
      |     1
Warning: Label 17120 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4521:5:

 4521 | 17222 continue                                                             2560
      |     1
Warning: Label 17222 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4516:5:

 4516 | 17220 do 17221 k=1,lmu                                                     2556
      |     1
Warning: Label 17220 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4805:5:

 4805 | 17672 continue                                                             2689
      |     1
Warning: Label 17672 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4802:5:

 4802 | 17670 do 17671 j=1,nin                                                     2689
      |     1
Warning: Label 17670 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4782:5:

 4782 | 17622 continue                                                             2679
      |     1
Warning: Label 17622 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4769:5:

 4769 | 17620 do 17621 j=1,ni                                                      2672
      |     1
Warning: Label 17620 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4761:5:

 4761 | 17590 do 17591 j=1,nin                                                     2668
      |     1
Warning: Label 17590 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4729:5:

 4729 | 17521 continue                                                             2654
      |     1
Warning: Label 17521 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4739:5:

 4739 | 17512 continue                                                             2659
      |     1
Warning: Label 17512 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4715:5:

 4715 | 17510 do 17511 l=1,nin                                                     2647
      |     1
Warning: Label 17510 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4711:5:

 4711 | 17500 continue                                                             2646
      |     1
Warning: Label 17500 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4684:5:

 4684 | 17431 continue                                                             2634
      |     1
Warning: Label 17431 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4670:5:

 4670 | 17420 do 17421 k=1,ni                                                      2628
      |     1
Warning: Label 17420 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4666:5:

 4666 | 17410 continue                                                             2626
      |     1
Warning: Label 17410 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4665:5:

 4665 | 17402 continue                                                             2626
      |     1
Warning: Label 17402 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4657:5:

 4657 | 17400 do 17401 j=1,ni                                                      2621
      |     1
Warning: Label 17400 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4653:5:

 4653 | 17390 continue                                                             2619
      |     1
Warning: Label 17390 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4651:5:

 4651 | 17382 continue                                                             2618
      |     1
Warning: Label 17382 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4646:5:

 4646 | 17380 do 17381 k=1,ni                                                      2615
      |     1
Warning: Label 17380 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4638:5:

 4638 | 17372 continue                                                             2612
      |     1
Warning: Label 17372 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4634:5:

 4634 | 17370 do 17371 j=1,ni                                                      2611
      |     1
Warning: Label 17370 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4621:5:

 4621 | 17310 do 17311 ilm=1,nlam                                                  2606
      |     1
Warning: Label 17310 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4620:5:

 4620 | 17302 continue                                                             2606
      |     1
Warning: Label 17302 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4613:5:

 4613 | 17300 do 17301 j=1,ni                                                      2601
      |     1
Warning: Label 17300 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4598:5:

 4598 | 17272 continue                                                             2598
      |     1
Warning: Label 17272 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4595:5:

 4595 | 17270 do 17271 i=1,no                                                      2598
      |     1
Warning: Label 17270 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4586:5:

 4586 | 17262 continue                                                             2595
      |     1
Warning: Label 17262 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4580:5:

 4580 | 17260 do 17261 j=1,ni                                                      2592
      |     1
Warning: Label 17260 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4588:5:

 4588 | 17231 continue                                                             2596
      |     1
Warning: Label 17231 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4812:5:

 4812 | 11790 continue                                                             2694
      |     1
Warning: Label 11790 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4844:5:

 4844 | 17732 continue                                                             2713
      |     1
Warning: Label 17732 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4838:5:

 4838 | 17730 do 17731 j=1,ni                                                      2710
      |     1
Warning: Label 17730 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4849:5:

 4849 | 17722 continue                                                             2717
      |     1
Warning: Label 17722 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4836:5:

 4836 | 17720 do 17721 lam=1,nlam                                                  2709
      |     1
Warning: Label 17720 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4883:5:

 4883 | 17792 continue                                                             2736
      |     1
Warning: Label 17792 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4877:5:

 4877 | 17790 do 17791 k=1,nin(lam)                                                2733
      |     1
Warning: Label 17790 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4888:5:

 4888 | 17782 continue                                                             2740
      |     1
Warning: Label 17782 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4875:5:

 4875 | 17780 do 17781 lam=1,nlam                                                  2732
      |     1
Warning: Label 17780 at (1) defined but not used [-Wunused-label]
newGLMnet.f90:4527:25:

 4527 |      *min,ulam,  shri,isd,maxit,xb,xs,lmu,a0,ca,m,kin,dev0,dev,alm,nlp,j
      |                         1
Warning: Unused dummy argument ‘isd’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:4158:17:

 4158 |      *,shri,  isd,maxit,lmu,a0,ca,m,kin,dev0,dev,alm,nlp,jerr)
      |                 1
Warning: Unused dummy argument ‘isd’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:4038:25:

 4038 |       function risk(no,ni,nk,d,dk,f,e,kp,jp,u)                             2319
      |                         1
Warning: Unused dummy argument ‘ni’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:4041:24:

 4041 |       real e(no),u(nk),s                                                   2321
      |                        1
Warning: Unused variable ‘s’ declared at (1) [-Wunused-variable]
newGLMnet.f90:3642:19:

 3642 |      *m,cthri,  isd,maxit,lmu,ao,m,kin,dev0,dev,alm,nlp,jerr)
      |                   1
Warning: Unused dummy argument ‘isd’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:1394:8:

 1394 |      *rr)
      |        1
Warning: Unused dummy argument ‘jerr’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:1150:9:

 1150 |      *err)
      |         1
Warning: Unused dummy argument ‘jerr’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:3750:72:

 3750 |       al=alf*al0                                                           2193
      |                                                                        ^
Warning: ‘alf’ may be used uninitialized [-Wmaybe-uninitialized]
newGLMnet.f90:3717:9:

 3717 |       alf=eqs**(1.0/(nlam-1))                                              2183
      |         ^
note: ‘alf’ was declared here
newGLMnet.f90:3270:72:

 3270 |       al=alf*al0                                                           1961
      |                                                                        ^
Warning: ‘alf’ may be used uninitialized [-Wmaybe-uninitialized]
newGLMnet.f90:3223:9:

 3223 |       alf=eqs**(1.0/(nlam-1))                                              1943
      |         ^
note: ‘alf’ was declared here
newGLMnet.f90:2077:6:

 2077 |       function azero(n,y,g,q,jerr)                                         1404
      |      ^
Warning: ‘__result_azero’ may be used uninitialized [-Wmaybe-uninitialized]
newGLMnet.f90:2258:72:

 2258 |       al=alf*al0                                                           1491
      |                                                                        ^
Warning: ‘alf’ may be used uninitialized [-Wmaybe-uninitialized]
newGLMnet.f90:2221:9:

 2221 |       alf=eqs**(1.0/(nlam-1))                                              1478
      |         ^
note: ‘alf’ was declared here
clang -arch arm64 -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -L/Library/Frameworks/R.framework/Resources/lib -L/opt/R/arm64/lib -o iClusterPlus.so iClusterBayes.o iClusterPlus.o newGLMnet.o -L/Library/Frameworks/R.framework/Resources/lib -lRlapack -L/Library/Frameworks/R.framework/Resources/lib -lRblas -L/opt/gfortran/lib/gcc/aarch64-apple-darwin20.0/12.2.0 -L/opt/gfortran/lib -lgfortran -lemutls_w -lquadmath -L/opt/gfortran/lib/gcc/aarch64-apple-darwin20.0/12.2.0 -L/opt/gfortran/lib -lgfortran -lemutls_w -lquadmath -F/Library/Frameworks/R.framework/.. -framework R -Wl,-framework -Wl,CoreFoundation
ld: warning: ignoring duplicate libraries: '-lemutls_w', '-lgfortran', '-lquadmath'
installing to /Library/Frameworks/R.framework/Versions/4.4-arm64/Resources/library/00LOCK-iClusterPlus/00new/iClusterPlus/libs
** R
** data
*** moving datasets to lazyload DB
** demo
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** building package indices
** installing vignettes
** testing if installed package can be loaded from temporary location
** checking absolute paths in shared objects and dynamic libraries
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* DONE (iClusterPlus)